Skip to content

Instantly share code, notes, and snippets.

@matthewryanscott

matthewryanscott/jed.bas

Created August 28, 2011 04:06
Show Gist options
  • Save matthewryanscott/1176228 to your computer and use it in GitHub Desktop.
Save matthewryanscott/1176228 to your computer and use it in GitHub Desktop.
Download ZIP
Jed's Other Poem
Raw
jed.bas
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