Created
August 28, 2011 04:06
-
-
Save matthewryanscott/1176228 to your computer and use it in GitHub Desktop.
Jed's Other Poem
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment