SINE.DEMO.BAS

10  CALL 24576
20 T$ =  CHR$ ( ASC ("T") - 64)
30 Q$ =  CHR$ ( ASC ("Q") - 64)
35  POKE 34,0
37  HOME 
40  HTAB 5: VTAB 5
50  PRINT T$;"MARK SANIM(FDLY=0)"
60  PRINT "": REM  TIMER VALUES
70  PRINT "0,2-,0TSR 4,0TSR": REM  ANIMATION CODE
80  PRINT "MICAH ";: REM  TEXT
90  PRINT Q$;
100  PRINT T$;"MARK SANIM(FDLY=0)"
110  PRINT "": REM  TIMER VALUES
120  PRINT "0,2-,0T,32+,SR 4,0T,32+,SR": REM  ANIMATION CODE
130  PRINT "COWAN ";: REM  TEXT
140  PRINT Q$;
150  PRINT T$;"MARK SANIM(FDLY=0)"
160  PRINT "": REM  TIMER VALUES
170  PRINT "0,2-,0T,64+,SR 4,0T,64+,SR": REM  ANIMATION CODE
180  PRINT "PRODUCTIONS ";: REM  TEXT
190  PRINT Q$;
200  PRINT T$;"MARK SANIM(FDLY=0)"
210  PRINT "": REM  TIMER VALUES
220  PRINT "0,2-,0T,96+,SR 4,0T,96+,SR": REM  ANIMATION CODE
230  PRINT "PRESENTS ";: REM  TEXT
240  PRINT Q$;
250  HTAB 18: VTAB 14
260  PRINT T$;"MARK SANIM(FDLY=0)"
270  PRINT "": REM  TIMER VALUES
280  PRINT "16,0TSR 0R": REM  ANIMATION CODE
290  PRINT "TAKI";: REM  TEXT
300  PRINT Q$;
310  PRINT ""
320  REM  SET SCROLL/WNDTOP
330  POKE 34, PEEK (37)
340  REM  DISABLE EXIT-ON-PROMPT
350  POKE 24714,0