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 DLY% = 0
2710  FOR I = 1 TO  LEN (STRING$)
     
2720 CHAR$ =  MID$ (STRING$,I,1)
2730  GOSUB 9000
2740  NEXT I
2750 CHAR$ = " "
2760 DLY% = MDY%
2770  FOR I = 1 TO 4
2780  GOSUB 9000
2790  NEXT I
2800 Y = Y + 2
2803  PRINT : PRINT 
2805 CHAR$ = ""
2810  FOR I = 1 TO 4
2820  GOSUB 9000
2830 Y = Y + 2
2835  PRINT 
2840  NEXT I
2900  HOME 
2910 X = 8
2920 Y = 8
2930 DLY% = MDY% / 80
2940 STRING$ = "AIR CONDITIONED"
2950  FOR I = 1 TO  LEN (STRING$)
     
2960 CHAR$ =  MID$ (STRING$,I,1)
2970  GOSUB 9000
2980  NEXT I
3000 DIR =  - 1
3005 DLY% = MDY% / 80
3010 STRING$ = " DNAL VT        "
     
3020  FOR I = 1 TO  LEN (STRING$)
     
3030 CHAR$ =  MID$ (STRING$,I,1)
3040  GOSUB 9000
3050  NEXT I
3060 DIR = 1
3070 STRING$ = " TWENTY GRAND  "
3080  FOR I = 1 TO  LEN (STRING$)
     
3090 CHAR$ =  MID$ (STRING$,I,1)
3100  GOSUB 9000
3110  NEXT I
3115 DLY% = 0
3120 STRING$ = " W A L K "
3130  FOR I = 1 TO  LEN (STRING$)
     
3240 CHAR$ =  MID$ (STRING$,I,1)
3250 X = X - 1
3260 Y = Y + 1
3270  GOSUB 9000
3280  NEXT I
3290 STRING$ = " T O  "
3295 Y = Y + 1
3300  FOR I = 1 TO  LEN (STRING$)
     
3310 CHAR$ =  MID$ (STRING$,I,1)
3330  GOSUB 9000
3340  NEXT I
3350 STRING$ = " T H E "
3360  FOR I = 1 TO  LEN (STRING$)
     
3370 CHAR$ =  MID$ (STRING$,I,1)
3380 X = X - 1
3390 Y = Y + 1
3400  GOSUB 9000
3410  NEXT I
3420 STRING$ = "$ BANK $"
3425  PRINT : PRINT : PRINT : PRINT 
     
3426  PRINT : PRINT : PRINT 
3427 X = X - 1
3428 Y = 19
3430  FOR I = 1 TO  LEN (STRING$)
     
3440 CHAR$ =  MID$ (STRING$,I,1)
3441  IF Y > 23 THEN Y = 23
3442  HTAB X: VTAB (Y - 2)
3443  PRINT "$"
3444  HTAB X: VTAB (Y + 2)
3445  PRINT "$"
3446  IF I = 1 OR I =  LEN (STRIN
     G$) THEN  HTAB X: VTAB (Y - 
     1): PRINT "$"
3447  IF I = 1 OR I =  LEN (STRIN
     G$) THEN  HTAB X: VTAB (Y + 
     1): PRINT "$"
3450  GOSUB 9000
3460  NEXT I
3470 CHAR$ = " "
3473 X = X + 1
3475 Y = Y + 2
3477 DLY% = MDY%
3480  FOR I = 1 TO 2
3490  GOSUB 9000
3500  NEXT I
3510 DLY% = MDY% / 80
3520 X = 1
3530 Y = Y + 1
3535  PRINT : PRINT : PRINT 
3536  PRINT : PRINT : PRINT : PRINT 
     
3540 STRING$ = "WITH "
3545  FOR I = 1 TO  LEN (STRING$)
     
3550 CHAR$ =  MID$ (STRING$,I,1)
3560  GOSUB 9000
3570  NEXT I
3575 DLY% = 0
3580 X2 = X + 2
3582 Y2 = Y - 4
3584 BTS = 2
3586  GOSUB 9500
3594 X2 = X + 2
3596 Y2 = Y + 4
3598  GOSUB 9500
3599 DLY% = MDY% / 80
3600 STRING$ = " FROM THE NIGHT B
     EFORE"
3602  FOR I = 1 TO  LEN (STRING$)
     
3604 CHAR$ =  MID$ (STRING$,I,1)
3606  GOSUB 9000
3608  NEXT I
3630 DLY% = MDY%
3635 X = 1
3636 Y = Y + 2
3637  PRINT 
3640 CHAR$ = ""
3650  FOR I = 1 TO 2
3660 Y = Y + 1
3665  PRINT 
3670  GOSUB 9000
3680  NEXT I
3700  REM  ## 01:20
3705  PRINT : PRINT : PRINT 
3707 Y = 21
3710 DLY% = MDY% / 80
3720 STRING$ = "STARING AT THE TI
     "
3730  FOR I = 1 TO  LEN (STRING$)
     
3740 CHAR$ =  MID$ (STRING$,I,1)
3750  GOSUB 9000
3760  IF I = 16 THEN  HTAB (X - 1
     ): VTAB (Y + 1): PRINT "I"
3770  IF I = 17 THEN  HTAB (X - 1
     ): VTAB (Y + 1): PRINT "K"
3790  NEXT I
3800 STRING$ = " FLOOR"
3810 Y = Y + 1
3820  FOR I = 1 TO  LEN (STRING$)
     
3830 CHAR$ =  MID$ (STRING$,I,1)
3840  GOSUB 9000
3850  NEXT I
4000  REM 
4003  HOME 
4005  FOR J = 1 TO 3
4007 DLY% = 0
4010 X = 1
4015 Y = 15
4020  PRINT : PRINT : PRINT : PRINT 
     : PRINT : PRINT 
4050 BTS = 4
4070 X2 = X + 4
4080 Y2 = Y - 10
4090  GOSUB 9500
4100 X2 = X + 4
4110 Y2 = Y2 + 15
4120  GOSUB 9500
4125 BTS = 2
4130 X2 = X + 2
4140 Y2 = Y2 - 5
4150  GOSUB 9500
4155 BTS = 5
4160 X2 = X + 5
4170 Y2 = Y
4180  GOSUB 9500
4185 BTS = 4
4190 X2 = X + 4
4200 Y2 = Y - 10
4210  GOSUB 9500
4220 X2 = X + 4
4230 Y2 = Y + 15
4240  GOSUB 9500
4245 BTS = 2
4250 X2 = X + 2
4260 Y2 = Y - 5
4270  GOSUB 9500
4275 BTS = 5
4280 X2 = X + 5
4290 Y2 = Y
4300  GOSUB 9500
4310  NEXT J
4500  REM 
4505 DLY% = 0
4510 STRING$ = "HIGHSCHOOLWEDDING
     RINGKEYSAREUNDERTHEMATS"
4520 STP =  ABS (1 / (1 +  LEN (S
     TRING$)))
4525 XC = 20
4526 YC = 12
4527 XR = 14
4528 YR = 11
4529 PI = 3.14159
4530 J = PI
4535  FOR I = 1 TO  LEN (STRING$)
     
4540 X = XC + (XR *  COS (J))
4550 Y = YC + (YR *  SIN (J))
4560 CHAR$ =  MID$ (STRING$,I,1)
4565 J = J + .15
4570  GOSUB 9000
4580  NEXT I
4590 DLY% = MDY%
4600 X = 6
4605 Y = 14
4610  FOR I = 1 TO 3
4620 CHAR$ = ""
4630  GOSUB 9000
4640  NEXT I
4650  HOME 
4657 DLY% = MDY% / 80
4660 STRING$ = "OF ALL OF THE "
4670  FOR I = 1 TO  LEN (STRING$)
     
4680 CHAR$ =  MID$ (STRING$,I,1)
4690  GOSUB 9000
4700  NEXT I
4710 DLY = MDY% / 80
4720 CHAR$ = "H"
4730  FOR I = 1 TO 3
4740  GOSUB 9000
4750  NEXT I
4760 CHAR$ = "O"
4765 Y = Y + 1
4767 X = X + 1
4770  FOR I = 1 TO 3
4780 Y = Y - 1
4790 X = X - 1
4800  GOSUB 9000
4810  NEXT I
4815 CHAR$ = "U"
4817 X = X - 2
4820  FOR I = 1 TO 5
4830 Y = Y - 1
4840  GOSUB 9000
4850  NEXT I
4855 CHAR$ = "S"
4860  FOR I = 1 TO 4
4870 Y = Y + 1
4880  GOSUB 9000
4890  NEXT I
4900 CHAR$ = "E"
4910 X = X - 2
4920 Y = Y - 3
4930  FOR I = 1 TO 5
4935  IF I = 3 THEN Y = Y + 2
4940  GOSUB 9000
4945 X = X - 1
4947 Y = Y + 1
4950  NEXT I
4952 Y = Y - 1
4953 X = X + 1
4955 CHAR$ = "S"
4960  FOR I = 1 TO 3
4970  GOSUB 9000
4980  NEXT I
4990 DLY% = MDY% / 80
5000 STRING$ = " HERE"
5010  FOR I = 1 TO  LEN (STRING$)
     
5020 CHAR$ =  MID$ (STRING$,I,1)
5030  GOSUB 9000
5040  NEXT I
5050 DLY% = MDY%
5060 X = 6
5070 Y = Y + 2
5080 CHAR$ = ""
5090  FOR I = 1 TO 2
5100  GOSUB 9000
5105 Y = Y + 1
5110  NEXT I
5120 DLY% = MDY% / 80
5130 STRING$ = "BUT NOT THE MOTEL
     S"
5140  FOR I = 1 TO  LEN (STRING$)
     
5150 CHAR$ =  MID$ (STRING$,I,1)
5160  GOSUB 9000
5170  NEXT I
5200  REM  ### 
5201 CHAR$ = ""
5205 X = 1
5207 Y = Y + 1
5209 DLY% = 0
5210  FOR J = 1 TO 8
5220 X2 = X + 4
5230 Y2 = Y - 10
5240 BTS = 4
5250  GOSUB 9500
5270 X2 = X + 4
5280 Y2 = Y + 15
5290  GOSUB 9500
5300 X2 = X + 2
5310 Y2 = Y - 5
5320 BTS = 2
5330  GOSUB 9500
5340 X2 = X + 10
5350 BTS = 10
5360  GOSUB 9500
5370  NEXT J
5400 DLY% = MDY% / 80
5410 X = 1
5420 Y = 13
5430 STRING$ = "I TRY TO SING IT 
     FUNNY LIKE BECK"
5440  FOR I = 1 TO  LEN (STRING$)
     
5450 CHAR$ =  MID$ (STRING$,I,1)
5460  GOSUB 9000
5470  NEXT I
5471 CHAR$ = ""
5472 DLY% = MDY%
5473  GOSUB 9000
5479 DLY% = MDY% / 80
5480 X = 1
5490 Y = Y + 2
5500 STRING$ = "BUT IT'S BRINGING
      ME DOWN"
5510  FOR I = 1 TO  LEN (STRING$)
     
5520 CHAR$ =  MID$ (STRING$,I,1)
5530  GOSUB 9000
5540  NEXT I
5545  FOR I = 1 TO MDY%
5547  NEXT I
5550  FOR I = 1 TO 28
5555  HTAB (22): VTAB (15)
5557  PRINT "    "
5560  VTAB (24)
5565  HTAB (1)
5567  IF I = 6 THEN  PRINT "LOWER
      THAN GROUND"
5568  IF I = 13 THEN  PRINT "BEAU
     TIFUL GROUND"
5570  PRINT 
5580  HTAB (22)
5590  VTAB (14)
5600  REM  PRINT "    "
5610  HTAB (22)
5620  VTAB (15)
5630  PRINT "DOWN"
5635 DLY% = MDY%
5640  FOR J = 1 TO DLY%
5641  NEXT J
5650  NEXT I
5700  REM  ### BOUNCE AND DIE!!
5705 DLY% = 0
5710 X = 1
5720 Y = 15
5730 BTS = 4
5740 X2 = X + 4
5750 Y2 = Y - 6
5780  GOSUB 9500
5790 X2 = X + 4
5800 Y2 = Y + 9
5810  GOSUB 9500
5820 X2 = X + 2
5830 Y2 = Y - 3
5840 BTS = 2
5850  GOSUB 9500
5860 X2 = X + 29
5870 BTS = 30
5875  GOSUB 9500
5880 X = 1
5885 X2 = X + 39
5887 BTS = 40
5890  GOSUB 9500
5895  SPEED= 212
5897  LIST 
5899  SPEED= 255
6000  REM  ### FIN ###
6005  END 
6010  PRINT : PRINT : PRINT 
6020  PRINT "STEWART SMITH"
6030  PRINT 
6040  PRINT "11 SEPTEMBER 2005"
8900  PRINT : PRINT : PRINT 
8910  END 
9000  REM  ### CURSOR FUNCTION ##
     #
9010  IF X < 1 THEN X = 1
9020  IF Y < 1 THEN Y = 1
9025  IF Y > 24 THEN Y = 24
9030  HTAB X
9040  VTAB Y
9050  INVERSE 
9060  PRINT " ";
9070  NORMAL 
9075 I$ = INKEY$
9076  IF I$ = " " THEN  GOSUB 940
     0
9080  FOR PAUSE = 1 TO DLY%
9090  NEXT PAUSE
9100  HTAB X
9110  VTAB Y
9120  IF CHAR$ <  > "" THEN  PRINT 
     CHAR$:X = X + DIR
9130  HTAB X
9140  VTAB Y
9150  PRINT " ";
9160  FOR PAUSE = 1 TO DLY%
9170  NEXT PAUSE
9180  RETURN 
9400  REM   ### PAUSE FUNCTION ##
     #
9410 I$ = INKEY$
9420  IF I$ =  CHR$ (13) THEN  RETURN 
     
9430  GOTO 9410
9500  REM  ### PONG FUNCTION ###
9505 XD = X2 - X
9510 YD = Y2 - Y
9520 XS = XD / BTS
9530 YS = YD / BTS
9540 CHAR$ = ""
9550  FOR I = 1 TO BTS
9560  GOSUB 9000
9570 X =  ABS (X + XS)
9580 Y =  ABS (Y + YS)
9590  NEXT I
9595  RETURN 