Qbasic and qb4.5

[GarrisonRicketson]

Since most everyone, now uses Windows and qb64, there won't be much
here, I guess,..But anyway, this is where it all started, before qb64 and windows,...in qbbasic,...for a good DEMO,
http://www.petesqbsite.com  Is a excellent source for Demos, and tutoriials.
http://dl.dropbox.com/u/8440706/Q-Basics.zip
Teds ("Clippy") Demo, or tutorial.
-------------------------------------------------------------------------
This is a little prgram I did when I was first starting.

Code:

SCREEN 12

OPEN "MAN.AXB" FOR BINARY AS #1
ArraySIZE& = (LOF(1) - 7) / 2
DIM MANARRAY(1 TO ArraySIZE&) AS INTEGER
CLOSE #1

DEF SEG = VARSEG(MANARRAY(1))
BLOAD "MAN.AXB", VARPTR(MANARRAY(1))
DEF SEG

'Set palette
OUT &H3C4, 0
FOR n = 9 TO 56
    OUT &H3C9, MANARRAY(n)
NEXT n

'Display the frames in sequence
PRINT "HelloWorld"
DO
PLAY "Mba15a12bgff12eag14fbc8de10aa"
    FOR i = 0 TO MANARRAY(57) - 1
        PUT (100, 200), MANARRAY(58 + i * 1635), PSET
             a$ = INPUT$(0) 'pause between frames
        Interval! = .2
        t! = TIMER
        DO
            IF TIMER < t! THEN EXIT DO
        LOOP UNTIL TIMER > t! + Interval!
   NEXT i
    'LOOP UNTIL a$ = INPUT$(1)
LOOP WHILE INKEY$ = ""
 

For the MAN.AXB which is needed:
http://dl.dropbox.com/u/15387474/A6MEN.rar
Note: This dose compile on qb64 ok.
This is another compiled with qb64, but originally it was for qb45 (qbasic)
http://dl.dropbox.com/u/15387474/SMILEYFACE.zip

[Dustie Bear]

Cute program.

For some reason I get out of memory error on the first one posted.

the second one run just fine however.

Dustie

[GarrisonRicketson]

Cute program.

For some reason I get out of memory error on the first one posted.

the second one run just fine however.

Dustie

The code I posted should work in qb64, if you have the "MAN.AXB" in the same qb64 dir, but all said and done, it is really for qbasic, or qb4.5 ,...
 I had gotten the same out of memory error, the first time I tried it in qb64,
I found I had forgotten to copy the MAN.axb file to the qb64 dir, then it  owrked ok, just tryed again, and it still dose.
 The second .RAR (SMILEYFACE.ZIP) has everything, for windows and qb64,
includeing  a .exe so that should run any where in Windows, dose not necessarily need qb64,
any way glad the second one worked,..some times all of this really gets confuseing to me, it is cause I had alot of stuff I started useing qb4.5, then I started useing qb64, and some of the earliest stuff still dose not work so well in qb64.
 From Garry