I'll cut off my right hand
And stand in your shadow
900 REM *** CURSOR VARIABLES **
*
910 SPEED= 255
920 MDY% = 260
930 DLY% = MDY%
940 CHAR$ = ""
950 X = 1
960 Y = 1
970 DIR = 1
1000 REM *** BOOT SEQUENCE ***
1005 SPEED= 255
1007 NORMAL
1010 HOME
1022 GOTO 2000
1025 PRINT
1030 PRINT " APPL
E ";
1040 PRINT CHR$ (93);
1050 PRINT CHR$ (91);
1052 PRINT CHR$ (7);
1055 FOR PAUSE = 1 TO 300: NEXT
PAUSE
1060 HOME
1070 I = 0
1075 IF I > 24 GOTO 1090
1080 I = I + 1
1083 PRINT "@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@";
1085 GOTO 1075
1090 HOME
2000 REM ## 00:29
2010 CHAR$ = ""
2015 X = 1:Y = 1
2020 I = 0
2030 I = I + 1
2040 IF I = 5 THEN X = X + 2
2050 IF I = 9 THEN X = X + 2
2060 IF I = 13 THEN X = X + 2
2070 IF I = 17 THEN Y = Y + 2
2100 GOSUB 9000
2110 IF I < 20 THEN GOTO 2030
2200 REM ## 00:48
2210 DLY% = MDY% / 80
2215 X = 1
2217 Y = Y + 1
2220 STRING$ = "YOU SAID I'D WAKE
UP"
2222 STRING$ = STRING$ + CHR$ (9
2)
2230 FOR I = 1 TO LEN (STRING$)
2240 CHAR$ = MID$ (STRING$,I,1)
2250 GOSUB 9000
2260 NEXT I
2265 FOR PAUSE = 1 TO (MDY% / 2)
2266 NEXT PAUSE
2270 X = 1
2280 Y = Y + 2
2290 STRING$ = "DEAD DRUNK"
2300 STRING$ = STRING$ + CHR$ (9
2)
2310 FOR I = 1 TO LEN (STRING$)
2320 CHAR$ = MID$ (STRING$,I,1)
2330 GOSUB 9000
2340 NEXT I
2345 FOR PAUSE = 1 TO (MDY% * 2)
2346 NEXT PAUSE
2349 DLY% = MDY% / 80
2350 X = 1
2360 Y = Y + 2
2370 STRING$ = "ALONE IN THE PARK
"
2380 FOR I = 1 TO LEN (STRING$)
2390 CHAR$ = MID$ (STRING$,I,1)
2400 GOSUB 9000
2410 NEXT I
2420 CHAR$ = " "
2430 DLY% = MDY%
2440 FOR I = 1 TO 3
2450 GOSUB 9000
2460 NEXT I
2530 REM X = 5
2540 Y = Y + 1
2545 DLY% = 0
2550 STRING$ = "I CALLED YOU A LI
AR"
2560 FOR I = 1 TO LEN (STRING$)
2570 CHAR$ = MID$ (STRING$,I,1)
2580 GOSUB 9000
2585 Y = Y + 1
2590 NEXT I
2610 CHAR$ = ""
2612 Y = 23
2615 DLY% = MDY%
2620 FOR I = 1 TO 3
2630 GOSUB 9000
2635 PRINT
2640 NEXT I
2650 X = 1
2660 Y = 23
2700 STRING$ = "BUT HOW RIGHT YOU
WERE"
2705
