WELCOME.BAS

10  CALL 24576
20 T$ =  CHR$ ( ASC ("T") - 64)
30 Q$ =  CHR$ ( ASC ("Q") - 64)
40  REM CALL 24605:REM ACTIVATE DEBUG MODE
41  REM REINSTATE TAKI EXIT-ON-PROMPT, IF OTHER
42  REM  DEMOS DISABLED IT.
44  POKE 24714,221
45  POKE 24715,170
50  POKE 34,0:REM RESET WNDTOP
60  HOME
70  PRINT T$;"MARK BOUNCE-IN(FDLY=7 FBTW=50 SHUF=0)"
80  VTAB 8: HTAB 14
90  PRINT "MICAH COWAN"
100  HTAB 16
110  PRINT "PRESENTS"
120  PRINT Q$;
130  VTAB 9: HTAB 18
140  PRINT T$;"MARK SANIM"
150  PRINT "": REM   TIMER VALUES
160  PRINT "0,12-,0T192+SR 4,0T0+SR": REM   ANIMATION CODE
170  PRINT "TAKI";: REM   TEXT
180  PRINT Q$;
190  VTAB 9: HTAB 18
200  PRINT T$;"MARK SANIM"
210  PRINT "": REM   TIMER VALUES
220  PRINT "0,12-,0T243+SR 4,0T51+SR": REM   ANIMATION CODE
230  PRINT "TAKI";: REM   TEXT
240  PRINT Q$;
250  VTAB 9: HTAB 18
260  PRINT T$;"MARK SANIM"
270  PRINT "": REM   TIMER VALUES
280  PRINT "0,12-,0T38+SR 4,0T102+SR": REM   ANIMATION CODE
290  PRINT "TAKI";: REM   TEXT
300  PRINT Q$;
310  VTAB 9: HTAB 18
320  PRINT T$;"MARK SANIM"
330  PRINT "": REM   TIMER VALUES
340  PRINT "0,12-,0T89+SR 4,0T153+SR": REM   ANIMATION CODE
350  PRINT "TAKI";: REM   TEXT
360  PRINT Q$;
370  VTAB 9: HTAB 18
380  PRINT T$;"MARK SANIM"
390  PRINT "": REM   TIMER VALUES
400  PRINT "0,12-,0T140+SR 4,0T204+SR": REM   ANIMATION CODE
410  PRINT "TAKI";: REM   TEXT
420  PRINT Q$;
430  VTAB 15: HTAB 1
440  INPUT ">";A$