COMMANDS.DEMO.BAS

10  CALL 24576
20 T$ =  CHR$ ( ASC ("T") - 64)
30 Q$ =  CHR$ ( ASC ("Q") - 64)
40  POKE 34,0:REM RESET WNDTOP IF NECESSARY
50  HOME 
100 PRINT "WELCOME TO ANIMATING TEXT WITH TAKI!"
110 PRINT "HERE IS AN ";
120 PRINT T$;"WORD SCAN"
130 PRINT "EXAMPLE ANIMATED WORD."
199 IF A=0 THEN 5000
200 PRINT
210 PRINT "AND HERE IS SOME MORE ANI";
220 PRINT T$;"MARK SCAN(FDLY=45)"
230 PRINT "MATED TE";Q$;
240 PRINT "XT."
291 IF A=1 THEN 5000
292 IF A<>2 THEN 400
293 CV=PEEK(37):VTAB CV+5:PRINT "[LIST]":LIST 300,398:VTAB CV+1
300 PRINT
310 FOR I=5 TO 1 STEP -1
320 HTAB 1
330 PRINT I;"...";
340 PRINT T$;"DELAY 170"
350 NEXT I
360 HTAB 1:PRINT I;"!   "
399 IF A=2 THEN 5000
400 CV=PEEK(37)
410 VTAB CV+4
420 PRINT "[LIST]":LIST 450,499:CW=PEEK(37):VTAB CV+1
450 PRINT:INPUT "(PRESS ENTER TO TRIGGER RE-CONFIG)";A$
460 PRINT T$;"CONFIG 1 FDLY=5 PAUSE=100"
470 VTAB CW+1
499 END
5000  REM  SET SCROLL/WNDTOP
5005  PRINT
5010  POKE 34, PEEK (37)
5020  PRINT:PRINT"[LIST]"
5100  REM DISABLE EXIT-ON-PROMPT,
5110  REM SO YOU CAN EXAMINE CODE WHILE
5120  REM ANIMATIONS PLAY
5130  POKE 24714,0
5140  POKE 24715,0
6000  IF A<>0 THEN 6100
6010  LIST 10,198
6020  A=A+1:INPUT "";A$:GOTO 20
6100  IF A<>1 THEN 6200
6110  LIST 200,290
6120  A=A+1:INPUT "";A$:GOTO 20
6200  IF A<>2 THEN 6300
6210  LIST 300,398
6220  A=A+1:INPUT "";A$:GOTO 20