Code: Select all
SCREEN 12
OPEN "Asmile.AXB" FOR BINARY AS #1
ArraySIZE& = (LOF(1) - 7) / 2
DIM AsmileARRAY(1 TO ArraySIZE&) AS INTEGER
CLOSE #1
DEF SEG = VARSEG(AsmileARRAY(1))
BLOAD "Asmile.AXB", VARPTR(AsmileARRAY(1))
DEF SEG
'Set palette
OUT &H3C4, 0
FOR n = 9 TO 56
OUT &H3C9, AsmileARRAY(n)
NEXT n
'Display the frames in sequence
PRINT "HAVE A GOOD DAY!"
DO
FOR i = 0 TO AsmileARRAY(57) - 1
PUT (100, 100), AsmileARRAY(58 + i * 1635), PSET
'PLAY "Mbg15a10<g8f15f10ea9gf15bc8d15e10a>a"
' 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$ = ""
IF INKEY$ = "N" THEN GOTO 2
PRINT "Now lets see whats next"
'PLAY "Mbgaeg"
PRINT "This is next"
'-------2
SCREEN 12
OPEN "A6men.AXB" FOR BINARY AS #1
ArraySIZE& = (LOF(1) - 7) / 2
DIM A6menARRAY(1 TO ArraySIZE&) AS INTEGER
CLOSE #1
DEF SEG = VARSEG(A6menARRAY(1))
BLOAD "A6men.AXB", VARPTR(A6menARRAY(1))
DEF SEG
'Set palette
OUT &H3C4, 0
FOR n = 9 TO 56 OUT &H3C9, A6menARRAY(n)
NEXT n
'------
'Display the frames in sequence
PRINT "HAVE A GOOD DAY!"
DO
FOR i = 0 TO A6menARRAY(57) - 1
PUT (100, 100), A6menARRAY(58 + i * 1635), PSET
'PLAY "Mbg15a10<g8f15f10ea9gf15bc8d15e10a>a"
' 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$ = ""
I get a lot of illegal functions,..Could this code be modified to run in qbasic ? If anyone wants the entire, source and the images, you can get them at:
http://dl.dropbox.com/u/15387474/SMILEYFACE.zip
Ok I guess thats about it,... Also this is a new web site,..experiment:
http://creativeminds.webege.com/RETRO-0 ... pplet.html
I have a demo of qb4.5 that can be run,..online.
From Garry
Note, I got my first qbasic program, (a math multiplication tales excersise,) that runs, fine on the "retro applet",,...So I was trying to come up with some other simple qbasic prgrams that could run,..Any ideas ?
Thanks from Garry