Statistics: Posted by GarryRicketson — Sat Mar 26, 2011 10:29 pm
Statistics: Posted by burger2227 — Sat Mar 26, 2011 9:57 pm
Code:
SCREEN 12OPEN "MAN.AXB" FOR BINARY AS #1ArraySIZE& = (LOF(1) - 7) / 2DIM MANARRAY(1 TO ArraySIZE&) AS INTEGERCLOSE #1DEF SEG = VARSEG(MANARRAY(1))BLOAD "MAN.AXB", VARPTR(MANARRAY(1))DEF SEG'Set paletteOUT &H3C4, 0FOR n = 9 TO 56 OUT &H3C9, MANARRAY(n)NEXT n'Display the frames in sequencePRINT "HelloWorld"DOPLAY "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> t! + Interval! NEXT i 'LOOP UNTIL a$ = INPUT$(1)LOOP WHILE INKEY$ = ""
Statistics: Posted by GarryRicketson — Sat Mar 26, 2011 8:22 pm
Statistics: Posted by GarryRicketson — Wed Jul 28, 2010 7:04 pm
Statistics: Posted by burger2227 — Tue Jul 27, 2010 2:18 am
Statistics: Posted by GarryRicketson — Mon Jul 26, 2010 7:02 pm
Statistics: Posted by GarryRicketson — Sat Jul 17, 2010 11:03 am
Statistics: Posted by tomstyler23 — Sat Jul 10, 2010 5:03 am
Statistics: Posted by burger2227 — Fri Apr 23, 2010 6:11 pm
Statistics: Posted by angela88 — Fri Apr 23, 2010 10:46 am
Statistics: Posted by addison1949 — Fri Apr 23, 2010 1:39 am
Statistics: Posted by angela88 — Thu Apr 15, 2010 10:46 am
Statistics: Posted by dchapman — Mon Apr 05, 2010 7:45 pm
Statistics: Posted by jasbales — Sun Apr 04, 2010 9:41 pm