BASIC Computer Games - 101 Great Games To Play On Your Home Computer (UK) (Face 2) (2018) [COMPILATION].dsk
HexaDumpAscii only
000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 57 69 6E 41 50 45 20 32 2E 30 42 30 32 20 ..WinAPE 2.0B02
000030: 28 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 00 00 02 09 52 E5 00 00 C1 02 00 00 00 02 ......R.........
000120: 00 00 C6 02 00 00 00 02 00 00 C2 02 00 00 00 02 ................
000130: 00 00 C7 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000140: 00 00 C8 02 00 00 00 02 00 00 C4 02 00 00 00 02 ................
000150: 00 00 C9 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 00 53 4C 4F 54 53 20 20 20 42 41 53 00 00 00 18 .SLOTS BAS....
000210: 02 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000220: 00 53 50 4C 41 54 20 20 20 42 41 53 00 00 00 2A .SPLAT BAS...*
000230: 05 06 07 08 09 0A 00 00 00 00 00 00 00 00 00 00 ................
000240: 00 53 54 41 52 53 20 20 20 42 41 53 00 00 00 0D .STARS BAS....
000250: 0B 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000260: 00 53 54 4F 43 4B 4D 41 52 42 41 53 00 00 00 3B .STOCKMARBAS...;
000270: 0D 0E 0F 10 11 12 13 14 00 00 00 00 00 00 00 00 ................
000280: 00 53 55 49 54 45 20 20 20 42 41 53 00 00 00 14 .SUITE BAS....
000290: 15 16 17 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002A0: 00 54 41 52 47 45 54 20 20 42 41 53 00 00 00 14 .TARGET BAS....
0002B0: 18 19 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002C0: 00 54 45 53 54 20 20 20 20 42 41 53 00 00 00 39 .TEST BAS...9
0002D0: 1B 1C 1D 1E 1F 20 21 22 00 00 00 00 00 00 00 00 ..... !"........
0002E0: 00 53 59 4E 4F 4E 59 4D 20 42 41 53 00 00 00 10 .SYNONYM BAS....
0002F0: 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,-..............
000300: 00 4B 49 4E 45 4D 41 20 20 42 41 53 00 00 00 07 .KINEMA BAS....
000310: 2E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000320: 00 4B 49 4E 47 20 20 20 20 42 41 53 00 00 00 46 .KING BAS...F
000330: 2F 30 31 32 33 34 35 36 37 00 00 00 00 00 00 00 /01234567.......
000340: 00 4C 45 4D 20 20 20 20 20 42 41 53 00 00 00 33 .LEM BAS...3
000350: 38 39 3A 3B 3C 3D 3E 00 00 00 00 00 00 00 00 00 89:;<=>.........
000360: 00 4C 45 54 54 45 52 20 20 42 41 53 00 00 00 08 .LETTER BAS....
000370: 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ?...............
000380: 00 4C 49 46 45 20 20 20 20 42 41 53 00 00 00 0D .LIFE BAS....
000390: 40 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @A..............
0003A0: 00 4C 49 46 45 46 4F 52 54 42 41 53 00 00 00 12 .LIFEFORTBAS....
0003B0: 42 43 44 00 00 00 00 00 00 00 00 00 00 00 00 00 BCD.............
0003C0: 00 4C 49 54 51 55 49 5A 20 42 41 53 00 00 00 0F .LITQUIZ BAS....
0003D0: 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 EF..............
0003E0: 00 4C 4F 56 45 20 20 20 20 42 41 53 00 00 00 0D .LOVE BAS....
0003F0: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 GH..............
000400: 49 4E 54 28 4D 29 0D 0A 32 31 30 20 47 4F 53 55 INT(M)..210 GOSU
000410: 42 20 31 32 37 30 20 0D 0A 32 32 30 20 50 52 49 B 1270 ..220 PRI
000420: 4E 54 0D 0A 32 33 30 20 4C 45 54 20 58 3D 49 4E NT..230 LET X=IN
000430: 54 28 36 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 32 T(6*RND(1)+1)..2
000440: 34 30 20 4C 45 54 20 59 3D 49 4E 54 28 36 2A 52 40 LET Y=INT(6*R
000450: 4E 44 28 31 29 2B 31 29 0D 0A 32 35 30 20 4C 45 ND(1)+1)..250 LE
000460: 54 20 5A 3D 49 4E 54 28 36 2A 52 4E 44 28 31 29 T Z=INT(6*RND(1)
000470: 2B 31 29 0D 0A 32 36 30 20 50 52 49 4E 54 0D 0A +1)..260 PRINT..
000480: 32 37 30 20 49 46 20 58 3D 31 20 54 48 45 4E 20 270 IF X=1 THEN
000490: 39 31 30 0D 0A 32 38 30 20 49 46 20 58 3D 32 20 910..280 IF X=2
0004A0: 54 48 45 4E 20 39 33 30 0D 0A 32 39 30 20 49 46 THEN 930..290 IF
0004B0: 20 58 3D 33 20 54 48 45 4E 20 39 35 30 0D 0A 33 X=3 THEN 950..3
0004C0: 30 30 20 49 46 20 58 3D 34 20 54 48 45 4E 20 39 00 IF X=4 THEN 9
0004D0: 37 30 0D 0A 33 31 30 20 49 46 20 58 3D 35 20 54 70..310 IF X=5 T
0004E0: 48 45 4E 20 39 39 30 0D 0A 33 32 30 20 49 46 20 HEN 990..320 IF
0004F0: 58 3D 36 20 54 48 45 4E 20 31 30 31 30 0D 0A 33 X=6 THEN 1010..3
000500: 33 30 20 49 46 20 59 3D 31 20 54 48 45 4E 20 31 30 IF Y=1 THEN 1
000510: 30 33 30 0D 0A 33 34 30 20 49 46 20 59 3D 32 20 030..340 IF Y=2
000520: 54 48 45 4E 20 31 30 35 30 0D 0A 33 35 30 20 49 THEN 1050..350 I
000530: 46 20 59 3D 33 20 54 48 45 4E 20 31 30 37 30 0D F Y=3 THEN 1070.
000540: 0A 33 36 30 20 49 46 20 59 3D 34 20 54 48 45 4E .360 IF Y=4 THEN
000550: 20 31 30 39 30 0D 0A 33 37 30 20 49 46 20 59 3D 1090..370 IF Y=
000560: 35 20 54 48 45 4E 20 31 31 31 30 0D 0A 33 38 30 5 THEN 1110..380
000570: 20 49 46 20 59 3D 36 20 54 48 45 4E 20 31 31 33 IF Y=6 THEN 113
000580: 30 0D 0A 33 39 30 20 49 46 20 5A 3D 31 20 54 48 0..390 IF Z=1 TH
000590: 45 4E 20 31 31 35 30 0D 0A 34 30 30 20 49 46 20 EN 1150..400 IF
0005A0: 5A 3D 32 20 54 48 45 4E 20 31 31 37 30 0D 0A 34 Z=2 THEN 1170..4
0005B0: 31 30 20 49 46 20 5A 3D 33 20 54 48 45 4E 20 31 10 IF Z=3 THEN 1
0005C0: 31 39 30 0D 0A 34 32 30 20 49 46 20 5A 3D 34 20 190..420 IF Z=4
0005D0: 54 48 45 4E 20 31 32 31 30 0D 0A 34 33 30 20 49 THEN 1210..430 I
0005E0: 46 20 5A 3D 35 20 54 48 45 4E 20 31 32 33 30 0D F Z=5 THEN 1230.
0005F0: 0A 34 34 30 20 49 46 20 5A 3D 36 20 54 48 45 4E .440 IF Z=6 THEN
000600: 00 4C 55 4E 41 52 20 20 20 42 41 53 00 00 00 11 .LUNAR BAS....
000610: 49 4A 4B 00 00 00 00 00 00 00 00 00 00 00 00 00 IJK.............
000620: 00 4D 41 53 54 45 52 4D 49 42 41 53 00 00 00 2B .MASTERMIBAS...+
000630: 4C 4D 4E 4F 50 51 00 00 00 00 00 00 00 00 00 00 LMNOPQ..........
000640: 00 4D 41 54 48 44 49 43 45 42 41 53 00 00 00 0B .MATHDICEBAS....
000650: 52 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 RS..............
000660: 00 4D 49 4E 45 20 20 20 20 42 41 53 00 00 00 77 .MINE BAS...w
000670: 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 00 TUVWXYZ[\]^_`ab.
000680: 00 4D 55 47 57 55 4D 50 20 42 41 53 00 00 00 0D .MUGWUMP BAS....
000690: 63 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 cd..............
0006A0: 00 4E 41 4D 45 20 20 20 20 42 41 53 00 00 00 09 .NAME BAS....
0006B0: 65 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ef..............
0006C0: 00 4E 49 43 4F 4D 41 43 48 42 41 53 00 00 00 08 .NICOMACHBAS....
0006D0: 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 g...............
0006E0: 00 4E 49 4D 20 20 20 20 20 42 41 53 00 00 00 20 .NIM BAS...
0006F0: 68 69 6A 6B 00 00 00 00 00 00 00 00 00 00 00 00 hijk............
000700: 00 4E 55 4D 42 45 52 20 20 42 41 53 00 00 00 08 .NUMBER BAS....
000710: 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l...............
000720: 00 4F 4E 45 43 48 45 43 4B 42 41 53 00 00 00 12 .ONECHECKBAS....
000730: 6D 6E 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 mno.............
000740: 00 4F 52 42 49 54 20 20 20 42 41 53 00 00 00 1E .ORBIT BAS....
000750: 70 71 72 73 00 00 00 00 00 00 00 00 00 00 00 00 pqrs............
000760: 00 50 49 5A 5A 41 20 20 20 42 41 53 00 00 00 15 .PIZZA BAS....
000770: 74 75 76 00 00 00 00 00 00 00 00 00 00 00 00 00 tuv.............
000780: 00 50 4F 45 54 52 59 20 20 42 41 53 00 00 00 0B .POETRY BAS....
000790: 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wx..............
0007A0: 00 50 4F 4B 45 52 20 20 20 42 41 53 00 00 00 43 .POKER BAS...C
0007B0: 79 7A 7B 7C 7D 7E 7F 80 81 00 00 00 00 00 00 00 yz{|}~..........
0007C0: 00 51 55 42 49 54 20 20 20 42 41 53 00 00 00 39 .QUBIT BAS...9
0007D0: 82 83 84 85 86 87 88 89 00 00 00 00 00 00 00 00 ................
0007E0: 00 51 55 45 45 4E 20 20 20 42 41 53 00 00 00 22 .QUEEN BAS..."
0007F0: 8A 8B 8C 8D 8E 00 00 00 00 00 00 00 00 00 00 00 ................
000800: 20 31 32 35 30 0D 0A 34 35 30 20 49 46 20 58 3D 1250..450 IF X=
000810: 59 20 54 48 45 4E 20 36 30 30 0D 0A 34 36 30 20 Y THEN 600..460
000820: 49 46 20 58 3D 5A 20 54 48 45 4E 20 36 33 30 0D IF X=Z THEN 630.
000830: 0A 34 37 30 20 49 46 20 59 3D 5A 20 54 48 45 4E .470 IF Y=Z THEN
000840: 20 36 35 30 0D 0A 34 38 30 20 50 52 49 4E 54 0D 650..480 PRINT.
000850: 0A 34 39 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .490 PRINT "YOU
000860: 4C 4F 53 54 2E 22 0D 0A 35 30 30 20 4C 45 54 20 LOST."..500 LET
000870: 50 3D 50 2D 4D 0D 0A 35 31 30 20 50 52 49 4E 54 P=P-M..510 PRINT
000880: 20 22 59 4F 55 52 20 53 54 41 4E 44 49 4E 47 53 "YOUR STANDINGS
000890: 20 41 52 45 20 24 22 50 0D 0A 35 32 30 20 50 52 ARE $"P..520 PR
0008A0: 49 4E 54 20 22 41 47 41 49 4E 22 3B 0D 0A 35 33 INT "AGAIN";..53
0008B0: 30 20 49 4E 50 55 54 20 41 24 0D 0A 35 34 30 20 0 INPUT A$..540
0008C0: 49 46 20 41 24 3D 22 59 22 20 54 48 45 4E 20 31 IF A$="Y" THEN 1
0008D0: 36 30 0D 0A 35 35 30 20 50 52 49 4E 54 0D 0A 35 60..550 PRINT..5
0008E0: 36 30 20 49 46 20 50 3C 30 20 54 48 45 4E 20 36 60 IF P<0 THEN 6
0008F0: 37 30 0D 0A 35 37 30 20 49 46 20 50 3D 30 20 54 70..570 IF P=0 T
000900: 48 45 4E 20 36 39 30 0D 0A 35 38 30 20 49 46 20 HEN 690..580 IF
000910: 50 3E 30 20 54 48 45 4E 20 37 31 30 0D 0A 35 39 P>0 THEN 710..59
000920: 30 20 47 4F 54 4F 20 31 33 35 30 0D 0A 36 30 30 0 GOTO 1350..600
000930: 20 49 46 20 59 3D 5A 20 54 48 45 4E 20 37 33 30 IF Y=Z THEN 730
000940: 0D 0A 36 31 30 20 49 46 20 59 3D 31 20 54 48 45 ..610 IF Y=1 THE
000950: 4E 20 38 32 30 0D 0A 36 32 30 20 47 4F 54 4F 20 N 820..620 GOTO
000960: 31 33 34 31 0D 0A 36 33 30 20 49 46 20 5A 3D 31 1341..630 IF Z=1
000970: 20 54 48 45 4E 20 38 32 30 0D 0A 36 34 30 20 47 THEN 820..640 G
000980: 4F 54 4F 20 34 37 30 0D 0A 36 35 30 20 49 46 20 OTO 470..650 IF
000990: 5A 3D 31 20 54 48 45 4E 20 38 32 30 0D 0A 36 36 Z=1 THEN 820..66
0009A0: 30 20 47 4F 54 4F 20 31 33 34 31 0D 0A 36 37 30 0 GOTO 1341..670
0009B0: 20 50 52 49 4E 54 20 22 50 41 59 20 55 50 21 20 PRINT "PAY UP!
0009C0: 20 50 4C 45 41 53 45 20 4C 45 41 56 45 20 59 4F PLEASE LEAVE YO
0009D0: 55 52 20 4D 4F 4E 45 59 20 4F 4E 20 54 48 45 20 UR MONEY ON THE
0009E0: 54 45 52 4D 49 4E 41 4C 2E 22 0D 0A 36 38 30 20 TERMINAL."..680
0009F0: 47 4F 54 4F 20 31 33 35 30 0D 0A 36 39 30 20 50 GOTO 1350..690 P
000A00: 00 52 45 56 45 52 53 45 20 42 41 53 00 00 00 10 .REVERSE BAS....
000A10: 8F 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A20: 00 52 4F 43 4B 45 54 20 20 42 41 53 00 00 00 16 .ROCKET BAS....
000A30: 91 92 93 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A40: 00 52 4F 43 4B 53 43 49 53 42 41 53 00 00 00 09 .ROCKSCISBAS....
000A50: 94 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A60: 00 52 4F 55 4C 45 54 54 45 42 41 53 00 00 00 32 .ROULETTEBAS...2
000A70: 96 97 98 99 9A 9B 9C 00 00 00 00 00 00 00 00 00 ................
000A80: 00 52 55 53 53 49 41 4E 52 42 41 53 00 00 00 06 .RUSSIANRBAS....
000A90: 9D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AA0: 00 53 41 4C 56 4F 20 20 20 42 41 53 00 00 00 38 .SALVO BAS...8
000AB0: 9E 9F A0 A1 A2 A3 A4 00 00 00 00 00 00 00 00 00 .....£..........
000AC0: 00 53 49 4E 45 57 41 56 45 42 41 53 00 00 00 04 .SINEWAVEBAS....
000AD0: A5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AE0: 00 53 4C 41 4C 4F 4D 20 20 42 41 53 00 00 00 26 .SLALOM BAS...&
000AF0: A6 A7 A8 A9 AA 00 00 00 00 00 00 00 00 00 00 00 ................
000B00: 00 54 45 53 54 31 20 20 20 42 41 53 00 00 00 01 .TEST1 BAS....
000B10: 23 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #...............
000B20: 00 54 49 43 54 41 43 54 4F 42 41 53 00 00 00 19 .TICTACTOBAS....
000B30: 24 25 26 27 00 00 00 00 00 00 00 00 00 00 00 00 $%&'............
000B40: 00 54 4F 57 45 52 20 20 20 42 41 53 00 00 00 20 .TOWER BAS...
000B50: 28 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 ()*+............
000B60: 00 54 52 41 49 4E 20 20 20 42 41 53 00 00 00 06 .TRAIN BAS....
000B70: AB 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: 52 49 4E 54 22 48 45 59 2C 20 59 4F 55 20 42 52 RINT"HEY, YOU BR
000C10: 4F 4B 45 20 45 56 45 4E 2E 22 0D 0A 37 30 30 20 OKE EVEN."..700
000C20: 47 4F 54 4F 20 31 33 35 30 0D 0A 37 31 30 20 50 GOTO 1350..710 P
000C30: 52 49 4E 54 20 22 43 4F 4C 4C 45 43 54 20 59 4F RINT "COLLECT YO
000C40: 55 52 20 57 49 4E 4E 49 4E 47 53 20 46 52 4F 4D UR WINNINGS FROM
000C50: 20 54 48 45 20 48 26 4D 20 43 41 53 48 49 45 52 THE H&M CASHIER
000C60: 2E 22 0D 0A 37 32 30 20 47 4F 54 4F 20 31 33 35 ."..720 GOTO 135
000C70: 30 0D 0A 37 33 30 20 49 46 20 5A 3D 31 20 54 48 0..730 IF Z=1 TH
000C80: 45 4E 20 37 38 30 0D 0A 37 34 30 20 50 52 49 4E EN 780..740 PRIN
000C90: 54 3A 20 50 52 49 4E 54 22 2A 2A 54 4F 50 20 44 T: PRINT"**TOP D
000CA0: 4F 4C 4C 41 52 2A 2A 22 0D 0A 37 35 30 20 50 52 OLLAR**"..750 PR
000CB0: 49 4E 54 20 22 59 4F 55 20 57 4F 4E 21 22 0D 0A INT "YOU WON!"..
000CC0: 37 36 30 20 50 3D 28 28 28 31 30 2A 4D 29 2B 4D 760 P=(((10*M)+M
000CD0: 29 2B 50 29 0D 0A 37 37 30 20 47 4F 54 4F 20 35 )+P)..770 GOTO 5
000CE0: 31 30 0D 0A 37 38 30 20 50 52 49 4E 54 3A 50 52 10..780 PRINT:PR
000CF0: 49 4E 54 22 2A 2A 2A 4A 41 43 4B 50 4F 54 2A 2A INT"***JACKPOT**
000D00: 2A 22 0D 0A 37 39 30 20 50 52 49 4E 54 20 22 59 *"..790 PRINT "Y
000D10: 4F 55 20 57 4F 4E 21 22 0D 0A 38 30 30 20 50 3D OU WON!"..800 P=
000D20: 28 28 28 31 30 30 2A 4D 29 2B 4D 29 2B 50 29 0D (((100*M)+M)+P).
000D30: 0A 38 31 30 20 47 4F 54 4F 20 35 31 30 0D 0A 38 .810 GOTO 510..8
000D40: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 22 2A 20 PRINT:PRINT"*
000D50: 44 4F 55 42 4C 45 20 42 41 52 2A 22 0D 0A 38 33 DOUBLE BAR*"..83
000D60: 30 20 50 52 49 4E 54 22 59 4F 55 20 57 4F 4E 21 0 PRINT"YOU WON!
000D70: 22 0D 0A 38 34 30 20 50 3D 28 28 28 35 2A 4D 29 "..840 P=(((5*M)
000D80: 2B 4D 29 2B 50 29 0D 0A 38 35 30 20 47 4F 54 4F +M)+P)..850 GOTO
000D90: 20 35 31 30 0D 0A 38 36 30 20 50 52 49 4E 54 22 510..860 PRINT"
000DA0: 48 4F 55 53 45 20 4C 49 4D 49 54 53 20 41 52 45 HOUSE LIMITS ARE
000DB0: 20 24 31 30 30 22 0D 0A 38 37 30 20 47 4F 54 4F $100"..870 GOTO
000DC0: 20 31 36 30 0D 0A 38 38 30 20 50 52 49 4E 54 22 160..880 PRINT"
000DD0: 4D 49 4E 49 4D 55 4D 20 42 45 54 20 49 53 20 24 MINIMUM BET IS $
000DE0: 31 22 0D 0A 38 39 30 20 47 4F 54 4F 20 31 36 30 1"..890 GOTO 160
000DF0: 0D 0A 39 30 30 20 47 4F 54 4F 20 32 32 30 0D 0A ..900 GOTO 220..
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: 39 31 30 20 50 52 49 4E 54 22 42 41 52 22 3B 3A 910 PRINT"BAR";:
001010: 47 4F 53 55 42 20 31 33 31 30 0D 0A 39 32 30 20 GOSUB 1310..920
001020: 47 4F 54 4F 20 33 33 30 0D 0A 39 33 30 20 50 52 GOTO 330..930 PR
001030: 49 4E 54 22 42 45 4C 4C 22 3B 3A 47 4F 53 55 42 INT"BELL";:GOSUB
001040: 20 31 33 31 30 0D 0A 39 34 30 20 47 4F 54 4F 20 1310..940 GOTO
001050: 33 33 30 0D 0A 39 35 30 20 50 52 49 4E 54 22 4F 330..950 PRINT"O
001060: 52 41 4E 47 45 22 3B 3A 47 4F 53 55 42 20 31 33 RANGE";:GOSUB 13
001070: 31 30 0D 0A 39 36 30 20 47 4F 54 4F 20 33 33 30 10..960 GOTO 330
001080: 0D 0A 39 37 30 20 50 52 49 4E 54 22 4C 45 4D 4F ..970 PRINT"LEMO
001090: 4E 22 3B 3A 47 4F 53 55 42 20 31 33 31 30 0D 0A N";:GOSUB 1310..
0010A0: 39 38 30 20 47 4F 54 4F 20 33 33 30 0D 0A 39 39 980 GOTO 330..99
0010B0: 30 20 50 52 49 4E 54 22 50 4C 55 4D 22 3B 3A 47 0 PRINT"PLUM";:G
0010C0: 4F 53 55 42 20 31 33 31 30 0D 0A 31 30 30 30 20 OSUB 1310..1000
0010D0: 47 4F 54 4F 20 33 33 30 0D 0A 31 30 31 30 20 50 GOTO 330..1010 P
0010E0: 52 49 4E 54 22 43 48 45 52 52 59 22 3B 3A 47 4F RINT"CHERRY";:GO
0010F0: 53 55 42 20 31 33 31 30 0D 0A 31 30 32 30 20 47 SUB 1310..1020 G
001100: 4F 54 4F 20 33 33 30 0D 0A 31 30 33 30 20 50 52 OTO 330..1030 PR
001110: 49 4E 54 22 20 42 41 52 22 3B 3A 47 4F 53 55 42 INT" BAR";:GOSUB
001120: 20 31 33 31 30 0D 0A 31 30 34 30 20 47 4F 54 4F 1310..1040 GOTO
001130: 20 33 39 30 0D 0A 31 30 35 30 20 50 52 49 4E 54 390..1050 PRINT
001140: 22 20 42 45 4C 4C 22 3B 3A 47 4F 53 55 42 20 31 " BELL";:GOSUB 1
001150: 33 31 30 0D 0A 31 30 36 30 20 47 4F 54 4F 20 33 310..1060 GOTO 3
001160: 39 30 0D 0A 31 30 37 30 20 50 52 49 4E 54 22 20 90..1070 PRINT"
001170: 4F 52 41 4E 47 45 22 3B 3A 47 4F 53 55 42 20 31 ORANGE";:GOSUB 1
001180: 33 31 30 0D 0A 31 30 38 30 20 47 4F 54 4F 20 33 310..1080 GOTO 3
001190: 39 30 0D 0A 31 30 39 30 20 50 52 49 4E 54 22 20 90..1090 PRINT"
0011A0: 4C 45 4D 4F 4E 22 3B 3A 47 4F 53 55 42 20 31 33 LEMON";:GOSUB 13
0011B0: 31 30 0D 0A 31 31 30 30 20 47 4F 54 4F 20 33 39 10..1100 GOTO 39
0011C0: 30 0D 0A 31 31 31 30 20 50 52 49 4E 54 22 20 50 0..1110 PRINT" P
0011D0: 4C 55 4D 22 3B 3A 47 4F 53 55 42 20 31 33 31 30 LUM";:GOSUB 1310
0011E0: 0D 0A 31 31 32 30 20 47 4F 54 4F 20 33 39 30 0D ..1120 GOTO 390.
0011F0: 0A 31 31 33 30 20 50 52 49 4E 54 22 20 43 48 45 .1130 PRINT" CHE
001200: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
001210: 3B 22 53 4C 4F 54 53 22 0D 0A 32 30 20 50 52 49 ;"SLOTS"..20 PRI
001220: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
001230: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
001240: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
001250: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
001260: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D T: PRINT: PRINT.
001270: 0A 31 30 30 20 52 45 4D 20 50 52 4F 44 55 43 45 .100 REM PRODUCE
001280: 44 20 42 59 20 46 52 45 44 20 4D 49 52 41 42 45 D BY FRED MIRABE
001290: 4C 4C 45 20 41 4E 44 20 42 4F 42 20 48 41 52 50 LLE AND BOB HARP
0012A0: 45 52 20 4F 4E 20 4A 41 4E 20 32 39 2C 20 31 39 ER ON JAN 29, 19
0012B0: 37 33 0D 0A 31 31 30 20 52 45 4D 20 49 54 20 53 73..110 REM IT S
0012C0: 49 4D 55 4C 41 54 45 53 20 54 48 45 20 53 4C 4F IMULATES THE SLO
0012D0: 54 20 4D 41 43 48 49 4E 45 2E 0D 0A 31 32 30 20 T MACHINE...120
0012E0: 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 49 PRINT "YOU ARE I
0012F0: 4E 20 54 48 45 20 48 26 4D 20 43 41 53 49 4E 4F N THE H&M CASINO
001300: 2C 49 4E 20 46 52 4F 4E 54 20 4F 46 20 4F 4E 45 ,IN FRONT OF ONE
001310: 20 4F 46 20 4F 55 52 22 0D 0A 31 33 30 20 50 52 OF OUR"..130 PR
001320: 49 4E 54 20 22 4F 4E 45 2D 41 52 4D 20 42 41 4E INT "ONE-ARM BAN
001330: 44 49 54 53 2E 20 42 45 54 20 46 52 4F 4D 20 24 DITS. BET FROM $
001340: 31 20 54 4F 20 24 31 30 30 2E 22 0D 0A 31 34 30 1 TO $100."..140
001350: 20 50 52 49 4E 54 20 22 54 4F 20 50 55 4C 4C 20 PRINT "TO PULL
001360: 54 48 45 20 41 52 4D 2C 20 50 55 4E 43 48 20 54 THE ARM, PUNCH T
001370: 48 45 20 52 45 54 55 52 4E 20 4B 45 59 20 41 46 HE RETURN KEY AF
001380: 54 45 52 20 4D 41 4B 49 4E 47 20 59 4F 55 52 20 TER MAKING YOUR
001390: 42 45 54 2E 22 0D 0A 31 35 30 20 4C 45 54 20 50 BET."..150 LET P
0013A0: 3D 30 0D 0A 31 36 30 20 50 52 49 4E 54 3A 20 50 =0..160 PRINT: P
0013B0: 52 49 4E 54 22 59 4F 55 52 20 42 45 54 22 3B 0D RINT"YOUR BET";.
0013C0: 0A 31 37 30 20 49 4E 50 55 54 20 4D 0D 0A 31 38 .170 INPUT M..18
0013D0: 30 20 49 46 20 4D 3E 31 30 30 20 54 48 45 4E 20 0 IF M>100 THEN
0013E0: 38 36 30 0D 0A 31 39 30 20 49 46 20 4D 3C 31 20 860..190 IF M<1
0013F0: 54 48 45 4E 20 38 38 30 0D 0A 32 30 30 20 4D 3D THEN 880..200 M=
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 00 00 02 09 52 E5 01 00 C1 02 00 00 00 02 ......R.........
001420: 01 00 C6 02 00 00 00 02 01 00 C2 02 00 00 00 02 ................
001430: 01 00 C7 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001440: 01 00 C8 02 00 00 00 02 01 00 C4 02 00 00 00 02 ................
001450: 01 00 C9 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 52 52 59 22 3B 3A 47 4F 53 55 42 20 31 33 31 30 RRY";:GOSUB 1310
001510: 0D 0A 31 31 34 30 20 47 4F 54 4F 20 33 39 30 0D ..1140 GOTO 390.
001520: 0A 31 31 35 30 20 50 52 49 4E 54 22 20 42 41 52 .1150 PRINT" BAR
001530: 22 0D 0A 31 31 36 30 20 47 4F 54 4F 20 34 35 30 "..1160 GOTO 450
001540: 0D 0A 31 31 37 30 20 50 52 49 4E 54 22 20 42 45 ..1170 PRINT" BE
001550: 4C 4C 22 0D 0A 31 31 38 30 20 47 4F 54 4F 20 34 LL"..1180 GOTO 4
001560: 35 30 0D 0A 31 31 39 30 20 50 52 49 4E 54 22 20 50..1190 PRINT"
001570: 4F 52 41 4E 47 45 22 0D 0A 31 32 30 30 20 47 4F ORANGE"..1200 GO
001580: 54 4F 20 34 35 30 0D 0A 31 32 31 30 20 50 52 49 TO 450..1210 PRI
001590: 4E 54 22 20 4C 45 4D 4F 4E 22 0D 0A 31 32 32 30 NT" LEMON"..1220
0015A0: 20 47 4F 54 4F 20 34 35 30 0D 0A 31 32 33 30 20 GOTO 450..1230
0015B0: 50 52 49 4E 54 22 20 50 4C 55 4D 22 0D 0A 31 32 PRINT" PLUM"..12
0015C0: 34 30 20 47 4F 54 4F 20 34 35 30 0D 0A 31 32 35 40 GOTO 450..125
0015D0: 30 20 50 52 49 4E 54 22 20 43 48 45 52 52 59 22 0 PRINT" CHERRY"
0015E0: 0D 0A 31 32 36 30 20 47 4F 54 4F 20 34 35 30 0D ..1260 GOTO 450.
0015F0: 0A 31 32 37 30 20 46 4F 52 20 51 34 3D 31 20 54 .1270 FOR Q4=1 T
001600: 4F 20 31 30 20 0D 0A 31 32 38 30 20 50 52 49 4E O 10 ..1280 PRIN
001610: 54 20 43 48 52 24 28 37 29 3B 0D 0A 31 32 39 30 T CHR$(7);..1290
001620: 20 4E 45 58 54 20 51 34 0D 0A 31 33 30 30 20 52 NEXT Q4..1300 R
001630: 45 54 55 52 4E 0D 0A 31 33 31 30 20 46 4F 52 20 ETURN..1310 FOR
001640: 54 38 3D 31 20 54 4F 20 35 0D 0A 31 33 32 30 20 T8=1 TO 5..1320
001650: 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B 0D 0A PRINT CHR$(7);..
001660: 31 33 33 30 20 4E 45 58 54 20 54 38 0D 0A 31 33 1330 NEXT T8..13
001670: 34 30 20 52 45 54 55 52 4E 0D 0A 31 33 34 31 20 40 RETURN..1341
001680: 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 44 4F PRINT: PRINT "DO
001690: 55 42 4C 45 21 21 22 0D 0A 31 33 34 32 20 50 52 UBLE!!"..1342 PR
0016A0: 49 4E 54 22 59 4F 55 20 57 4F 4E 21 22 0D 0A 31 INT"YOU WON!"..1
0016B0: 33 34 33 20 50 3D 28 28 28 32 2A 4D 29 2B 4D 29 343 P=(((2*M)+M)
0016C0: 2B 50 29 0D 0A 31 33 34 34 20 47 4F 54 4F 20 35 +P)..1344 GOTO 5
0016D0: 31 30 0D 0A 31 33 35 30 20 53 54 4F 50 0D 0A 39 10..1350 STOP..9
0016E0: 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 999 END.........
0016F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001700: 20 41 32 3D 33 37 2E 36 3A 47 4F 54 4F 20 31 34 A2=37.6:GOTO 14
001710: 35 20 0D 0A 31 36 38 20 41 32 3D 33 33 2E 38 20 5 ..168 A2=33.8
001720: 3A 47 4F 54 4F 20 31 34 35 0D 0A 31 36 39 20 41 :GOTO 145..169 A
001730: 32 3D 33 39 2E 36 3A 47 4F 54 4F 20 31 34 35 20 2=39.6:GOTO 145
001740: 0D 0A 31 37 30 20 41 32 3D 38 39 36 3A 47 4F 54 ..170 A2=896:GOT
001750: 4F 20 31 34 35 0D 0A 32 30 35 20 50 52 49 4E 54 O 145..205 PRINT
001760: 0D 0A 32 30 36 20 50 52 49 4E 54 20 22 20 20 20 ..206 PRINT "
001770: 20 41 4C 54 49 54 55 44 45 20 20 20 20 20 20 20 ALTITUDE
001780: 20 20 3D 22 44 31 22 46 54 22 20 0D 0A 32 30 37 ="D1"FT" ..207
001790: 20 50 52 49 4E 54 20 22 20 20 20 20 54 45 52 4D PRINT " TERM
0017A0: 2E 20 56 45 4C 4F 43 49 54 59 20 20 20 3D 22 56 . VELOCITY ="V
0017B0: 31 22 46 54 2F 53 45 43 20 2B 2F 2D 35 25 22 0D 1"FT/SEC +/-5%".
0017C0: 0A 32 30 38 20 50 52 49 4E 54 20 22 20 20 20 20 .208 PRINT "
0017D0: 41 43 43 45 4C 45 52 41 54 49 4F 4E 20 20 20 20 ACCELERATION
0017E0: 20 3D 22 41 32 22 46 54 2F 53 45 43 2F 53 45 43 ="A2"FT/SEC/SEC
0017F0: 20 2B 2F 2D 35 25 22 0D 0A 32 31 30 20 50 52 49 +/-5%"..210 PRI
001800: 4E 54 20 22 53 45 54 20 54 48 45 20 54 49 4D 45 NT "SET THE TIME
001810: 52 20 46 4F 52 20 59 4F 55 52 20 46 52 45 45 46 R FOR YOUR FREEF
001820: 41 4C 4C 2E 22 0D 0A 32 31 31 20 50 52 49 4E 54 ALL."..211 PRINT
001830: 20 22 48 4F 57 20 4D 41 4E 59 20 53 45 43 4F 4E "HOW MANY SECON
001840: 44 53 22 3B 3A 49 4E 50 55 54 20 54 0D 0A 32 31 DS";:INPUT T..21
001850: 35 20 50 52 49 4E 54 20 22 48 45 52 45 20 57 45 5 PRINT "HERE WE
001860: 20 47 4F 2E 22 0D 0A 32 31 37 20 50 52 49 4E 54 GO."..217 PRINT
001870: 0D 0A 32 31 38 20 50 52 49 4E 54 20 22 54 49 4D ..218 PRINT "TIM
001880: 45 20 28 53 45 43 29 22 2C 22 44 49 53 54 20 54 E (SEC)","DIST T
001890: 4F 20 46 41 4C 4C 20 28 46 54 29 22 20 0D 0A 32 O FALL (FT)" ..2
0018A0: 31 39 20 50 52 49 4E 54 20 22 3D 3D 3D 3D 3D 3D 19 PRINT "======
0018B0: 3D 3D 3D 3D 22 2C 22 3D 3D 3D 3D 3D 3D 3D 3D 3D ====","=========
0018C0: 3D 3D 3D 3D 3D 3D 3D 3D 22 20 0D 0A 33 30 30 20 ========" ..300
0018D0: 46 4F 52 20 49 3D 30 20 54 4F 20 54 20 53 54 45 FOR I=0 TO T STE
0018E0: 50 20 28 54 2F 38 29 0D 0A 33 31 30 20 49 46 20 P (T/8)..310 IF
0018F0: 49 3E 56 2F 41 20 54 48 45 4E 20 34 30 30 0D 0A I>V/A THEN 400..
001900: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
001910: 3B 22 53 50 4C 41 54 22 0D 0A 32 30 20 50 52 49 ;"SPLAT"..20 PRI
001920: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
001930: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
001940: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
001950: 4A 45 52 53 45 59 22 0D 0A 34 30 20 50 52 49 4E JERSEY"..40 PRIN
001960: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 35 T:PRINT:PRINT..5
001970: 30 20 44 49 4D 20 41 28 34 32 29 0D 0A 39 35 20 0 DIM A(42)..95
001980: 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 45 20 54 PRINT "WELCOME T
001990: 4F 20 27 53 50 4C 41 54 27 20 2D 2D 20 54 48 45 O 'SPLAT' -- THE
0019A0: 20 47 41 4D 45 20 54 48 41 54 20 53 49 4D 55 4C GAME THAT SIMUL
0019B0: 41 54 45 53 20 41 20 50 41 52 41 43 48 55 54 45 ATES A PARACHUTE
0019C0: 22 0D 0A 39 36 20 50 52 49 4E 54 20 22 4A 55 4D "..96 PRINT "JUM
0019D0: 50 2E 20 20 54 52 59 20 54 4F 20 4F 50 45 4E 20 P. TRY TO OPEN
0019E0: 59 4F 55 52 20 43 48 55 54 45 20 41 54 20 54 48 YOUR CHUTE AT TH
0019F0: 45 20 4C 41 53 54 20 50 4F 53 53 49 42 4C 45 22 E LAST POSSIBLE"
001A00: 20 0D 0A 39 37 20 50 52 49 4E 54 20 22 4D 4F 4D ..97 PRINT "MOM
001A10: 45 4E 54 20 57 49 54 48 4F 55 54 20 47 4F 49 4E ENT WITHOUT GOIN
001A20: 47 20 53 50 4C 41 54 2E 22 0D 0A 31 31 38 20 50 G SPLAT."..118 P
001A30: 52 49 4E 54 3A 50 52 49 4E 54 3A 44 31 3D 30 3A RINT:PRINT:D1=0:
001A40: 56 3D 30 3A 41 3D 30 3A 4E 3D 30 3A 4D 3D 30 3A V=0:A=0:N=0:M=0:
001A50: 44 31 3D 49 4E 54 28 39 30 30 31 2A 52 4E 44 28 D1=INT(9001*RND(
001A60: 31 29 2B 31 30 30 30 29 0D 0A 31 31 39 20 50 52 1)+1000)..119 PR
001A70: 49 4E 54 20 22 53 45 4C 45 43 54 20 59 4F 55 52 INT "SELECT YOUR
001A80: 20 4F 57 4E 20 54 45 52 4D 49 4E 41 4C 20 56 45 OWN TERMINAL VE
001A90: 4C 4F 43 49 54 59 20 28 59 45 53 20 4F 52 20 4E LOCITY (YES OR N
001AA0: 4F 29 22 3B 3A 49 4E 50 55 54 20 41 31 24 20 20 O)";:INPUT A1$
001AB0: 20 20 0D 0A 31 32 30 20 49 46 20 41 31 24 3D 22 ..120 IF A1$="
001AC0: 4E 4F 22 20 54 48 45 4E 20 31 32 38 0D 0A 31 32 NO" THEN 128..12
001AD0: 31 20 49 46 20 41 31 24 3C 3E 22 59 45 53 22 20 1 IF A1$<>"YES"
001AE0: 54 48 45 4E 20 50 52 49 4E 54 20 22 59 45 53 20 THEN PRINT "YES
001AF0: 4F 52 20 4E 4F 22 3B 3A 49 4E 50 55 54 20 41 31 OR NO";:INPUT A1
001B00: 33 32 30 20 44 3D 44 31 2D 28 28 41 2F 32 29 2A 320 D=D1-((A/2)*
001B10: 49 5E 32 29 20 0D 0A 33 33 30 20 49 46 20 44 3C I^2) ..330 IF D<
001B20: 3D 30 20 54 48 45 4E 20 31 30 30 30 0D 0A 33 34 =0 THEN 1000..34
001B30: 30 20 50 52 49 4E 54 20 49 2C 44 0D 0A 33 35 30 0 PRINT I,D..350
001B40: 20 4E 45 58 54 20 49 20 0D 0A 33 36 30 20 47 4F NEXT I ..360 GO
001B50: 54 4F 20 35 30 30 20 0D 0A 34 30 30 20 50 52 49 TO 500 ..400 PRI
001B60: 4E 54 20 22 54 45 52 4D 49 4E 41 4C 20 56 45 4C NT "TERMINAL VEL
001B70: 4F 43 49 54 59 20 52 45 41 43 48 45 44 20 41 54 OCITY REACHED AT
001B80: 20 54 20 50 4C 55 53 22 56 2F 41 22 53 45 43 4F T PLUS"V/A"SECO
001B90: 4E 44 53 2E 22 0D 0A 34 30 35 20 46 4F 52 20 49 NDS."..405 FOR I
001BA0: 3D 49 20 54 4F 20 54 20 53 54 45 50 20 28 54 2F =I TO T STEP (T/
001BB0: 38 29 0D 0A 34 31 30 20 44 3D 44 31 2D 28 28 56 8)..410 D=D1-((V
001BC0: 5E 32 2F 28 32 2A 41 29 29 2B 28 56 2A 28 49 2D ^2/(2*A))+(V*(I-
001BD0: 28 56 2F 41 29 29 29 29 20 0D 0A 34 32 30 20 49 (V/A)))) ..420 I
001BE0: 46 20 44 3C 3D 30 20 54 48 45 4E 20 31 30 31 30 F D<=0 THEN 1010
001BF0: 0D 0A 34 33 30 20 50 52 49 4E 54 20 49 2C 44 0D ..430 PRINT I,D.
001C00: 0A 34 34 30 20 4E 45 58 54 20 49 20 0D 0A 35 30 .440 NEXT I ..50
001C10: 30 20 50 52 49 4E 54 20 22 43 48 55 54 45 20 4F 0 PRINT "CHUTE O
001C20: 50 45 4E 22 0D 0A 35 31 30 20 4B 3D 30 3A 4B 31 PEN"..510 K=0:K1
001C30: 3D 30 20 0D 0A 35 35 30 20 46 4F 52 20 4A 3D 30 =0 ..550 FOR J=0
001C40: 20 54 4F 20 34 32 0D 0A 35 35 35 20 49 46 20 41 TO 42..555 IF A
001C50: 28 4A 29 3D 30 20 54 48 45 4E 20 36 32 30 20 0D (J)=0 THEN 620 .
001C60: 0A 35 36 30 20 4B 3D 4B 2B 31 0D 0A 35 37 30 20 .560 K=K+1..570
001C70: 49 46 20 44 3E 3D 41 28 4A 29 20 54 48 45 4E 20 IF D>=A(J) THEN
001C80: 36 30 30 0D 0A 35 38 30 20 4B 31 3D 4B 31 2B 31 600..580 K1=K1+1
001C90: 0D 0A 36 30 30 20 4E 45 58 54 20 4A 20 0D 0A 36 ..600 NEXT J ..6
001CA0: 31 30 20 47 4F 54 4F 20 35 34 30 20 0D 0A 36 32 10 GOTO 540 ..62
001CB0: 30 20 41 28 4A 29 3D 44 20 0D 0A 36 33 30 20 49 0 A(J)=D ..630 I
001CC0: 46 20 4A 3E 32 20 54 48 45 4E 20 36 35 30 0D 0A F J>2 THEN 650..
001CD0: 36 33 35 20 50 52 49 4E 54 20 22 41 4D 41 5A 49 635 PRINT "AMAZI
001CE0: 4E 47 21 21 21 20 4E 4F 54 20 42 41 44 20 46 4F NG!!! NOT BAD FO
001CF0: 52 20 59 4F 55 52 20 22 3B 0D 0A 36 33 36 20 49 R YOUR ";..636 I
001D00: 24 3A 47 4F 54 4F 20 31 32 30 0D 0A 31 32 33 20 $:GOTO 120..123
001D10: 50 52 49 4E 54 20 22 57 48 41 54 20 54 45 52 4D PRINT "WHAT TERM
001D20: 49 4E 41 4C 20 56 45 4C 4F 43 49 54 59 20 28 4D INAL VELOCITY (M
001D30: 49 2F 48 52 29 22 3B 3A 49 4E 50 55 54 20 56 31 I/HR)";:INPUT V1
001D40: 20 0D 0A 31 32 35 20 56 31 3D 56 31 2A 28 35 32 ..125 V1=V1*(52
001D50: 38 30 2F 33 36 30 30 29 3A 56 3D 56 31 2B 28 28 80/3600):V=V1+((
001D60: 56 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 2D 28 V1*RND(1))/20)-(
001D70: 28 56 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 3A (V1*RND(1))/20):
001D80: 47 4F 54 4F 20 31 33 35 0D 0A 31 32 38 20 56 31 GOTO 135..128 V1
001D90: 3D 49 4E 54 28 31 30 30 30 2A 52 4E 44 28 31 29 =INT(1000*RND(1)
001DA0: 29 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 4F 4B )..130 PRINT "OK
001DB0: 2E 20 20 54 45 52 4D 49 4E 41 4C 20 56 45 4C 4F . TERMINAL VELO
001DC0: 43 49 54 59 20 3D 22 56 31 22 4D 49 2F 48 52 22 CITY ="V1"MI/HR"
001DD0: 0D 0A 31 33 31 20 56 31 3D 56 31 2A 28 35 32 38 ..131 V1=V1*(528
001DE0: 30 2F 33 36 30 30 29 3A 56 3D 56 31 2B 28 28 56 0/3600):V=V1+((V
001DF0: 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 2D 28 28 1*RND(1))/20)-((
001E00: 56 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 20 0D V1*RND(1))/20) .
001E10: 0A 31 33 35 20 20 50 52 49 4E 54 20 22 57 41 4E .135 PRINT "WAN
001E20: 54 20 54 4F 20 53 45 4C 45 43 54 20 41 43 43 45 T TO SELECT ACCE
001E30: 4C 45 52 41 54 49 4F 4E 20 44 55 45 20 54 4F 20 LERATION DUE TO
001E40: 47 52 41 56 49 54 59 20 28 59 45 53 20 4F 52 20 GRAVITY (YES OR
001E50: 4E 4F 29 22 3B 20 0D 0A 31 33 36 20 49 4E 50 55 NO)"; ..136 INPU
001E60: 54 20 42 31 24 0D 0A 31 34 30 20 49 46 20 42 31 T B1$..140 IF B1
001E70: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 35 30 0D $="NO" THEN 150.
001E80: 0A 31 34 31 20 49 46 20 42 31 24 3C 3E 22 59 45 .141 IF B1$<>"YE
001E90: 53 22 20 54 48 45 4E 20 50 52 49 4E 54 20 22 59 S" THEN PRINT "Y
001EA0: 45 53 20 4F 52 20 4E 4F 22 3B 3A 49 4E 50 55 54 ES OR NO";:INPUT
001EB0: 20 42 31 24 3A 47 4F 54 4F 20 31 34 30 0D 0A 31 B1$:GOTO 140..1
001EC0: 34 33 20 50 52 49 4E 54 20 22 57 48 41 54 20 41 43 PRINT "WHAT A
001ED0: 43 43 45 4C 45 52 41 54 49 4F 4E 20 28 46 54 2F CCELERATION (FT/
001EE0: 53 45 43 2F 53 45 43 29 22 3B 3A 49 4E 50 55 54 SEC/SEC)";:INPUT
001EF0: 20 41 32 20 0D 0A 31 34 35 20 41 3D 41 32 2B 28 A2 ..145 A=A2+(
001F00: 46 20 4A 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 F J=0 THEN PRINT
001F10: 20 22 31 53 54 20 22 3B 0D 0A 36 33 37 20 49 46 "1ST ";..637 IF
001F20: 20 4A 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 J=1 THEN PRINT
001F30: 22 32 4E 44 20 22 3B 0D 0A 36 33 38 20 49 46 20 "2ND ";..638 IF
001F40: 4A 3D 32 20 54 48 45 4E 20 50 52 49 4E 54 20 22 J=2 THEN PRINT "
001F50: 33 52 44 20 22 3B 0D 0A 36 33 39 20 50 52 49 4E 3RD ";..639 PRIN
001F60: 54 20 22 53 55 43 43 45 53 53 46 55 4C 20 4A 55 T "SUCCESSFUL JU
001F70: 4D 50 21 21 21 22 3A 47 4F 54 4F 20 32 30 30 30 MP!!!":GOTO 2000
001F80: 0D 0A 36 35 30 20 49 46 20 4B 2D 4B 31 3C 3D 2E ..650 IF K-K1<=.
001F90: 31 2A 4B 20 54 48 45 4E 20 37 30 30 20 0D 0A 36 1*K THEN 700 ..6
001FA0: 36 30 20 49 46 20 4B 2D 4B 31 3C 3D 2E 32 35 2A 60 IF K-K1<=.25*
001FB0: 4B 20 54 48 45 4E 20 37 31 30 0D 0A 36 37 30 20 K THEN 710..670
001FC0: 49 46 20 4B 2D 4B 31 3C 3D 2E 35 2A 4B 20 54 48 IF K-K1<=.5*K TH
001FD0: 45 4E 20 37 32 30 20 0D 0A 36 38 30 20 49 46 20 EN 720 ..680 IF
001FE0: 4B 2D 4B 31 3C 3D 2E 37 35 2A 4B 20 54 48 45 4E K-K1<=.75*K THEN
001FF0: 20 37 33 30 0D 0A 36 39 30 20 49 46 20 4B 2D 4B 730..690 IF K-K
002000: 31 3C 3D 2E 39 2A 4B 20 54 48 45 4E 20 37 34 30 1<=.9*K THEN 740
002010: 20 0D 0A 36 39 35 20 47 4F 54 4F 20 37 35 30 20 ..695 GOTO 750
002020: 0D 0A 37 30 30 20 50 52 49 4E 54 20 22 57 4F 57 ..700 PRINT "WOW
002030: 21 20 20 54 48 41 54 27 53 20 53 4F 4D 45 20 4A ! THAT'S SOME J
002040: 55 4D 50 49 4E 47 2E 20 20 4F 46 20 54 48 45 22 UMPING. OF THE"
002050: 4B 22 53 55 43 43 45 53 53 46 55 4C 20 4A 55 4D K"SUCCESSFUL JUM
002060: 50 53 22 0D 0A 37 30 31 20 50 52 49 4E 54 20 22 PS"..701 PRINT "
002070: 42 45 46 4F 52 45 20 59 4F 55 52 53 2C 20 4F 4E BEFORE YOURS, ON
002080: 4C 59 22 4B 2D 4B 31 22 4F 50 45 4E 45 44 20 54 LY"K-K1"OPENED T
002090: 48 45 49 52 20 43 48 55 54 45 53 20 4C 4F 57 45 HEIR CHUTES LOWE
0020A0: 52 20 54 48 41 4E 22 20 0D 0A 37 30 32 20 50 52 R THAN" ..702 PR
0020B0: 49 4E 54 20 22 59 4F 55 20 44 49 44 2E 22 20 0D INT "YOU DID." .
0020C0: 0A 37 30 33 20 47 4F 54 4F 20 32 30 30 30 0D 0A .703 GOTO 2000..
0020D0: 37 31 30 20 50 52 49 4E 54 20 22 50 52 45 54 54 710 PRINT "PRETT
0020E0: 59 20 47 4F 4F 44 21 20 22 20 4B 22 53 55 43 43 Y GOOD! " K"SUCC
0020F0: 45 53 53 46 55 4C 20 4A 55 4D 50 53 20 50 52 45 ESSFUL JUMPS PRE
002100: 28 41 32 2A 52 4E 44 28 31 29 29 2F 32 30 29 2D (A2*RND(1))/20)-
002110: 28 28 41 32 2A 52 4E 44 28 31 29 29 2F 32 30 29 ((A2*RND(1))/20)
002120: 3A 47 4F 54 4F 20 32 30 35 0D 0A 31 35 30 20 4F :GOTO 205..150 O
002130: 4E 20 49 4E 54 28 31 2B 28 31 30 2A 52 4E 44 28 N INT(1+(10*RND(
002140: 31 29 29 29 47 4F 54 4F 20 31 35 31 2C 31 35 32 1)))GOTO 151,152
002150: 2C 31 35 33 2C 31 35 34 2C 31 35 35 2C 31 35 36 ,153,154,155,156
002160: 2C 31 35 37 2C 31 35 38 2C 31 35 39 2C 31 36 30 ,157,158,159,160
002170: 20 0D 0A 31 35 31 20 50 52 49 4E 54 22 46 49 4E ..151 PRINT"FIN
002180: 45 2E 20 59 4F 55 27 52 45 20 4F 4E 20 4D 45 52 E. YOU'RE ON MER
002190: 43 55 52 59 2E 20 41 43 43 45 4C 45 52 41 54 49 CURY. ACCELERATI
0021A0: 4F 4E 3D 31 32 2E 32 20 46 54 2F 53 45 43 2F 53 ON=12.2 FT/SEC/S
0021B0: 45 43 2E 22 3A 47 4F 54 4F 20 31 36 31 0D 0A 31 EC.":GOTO 161..1
0021C0: 35 32 20 50 52 49 4E 54 22 41 4C 4C 20 52 49 47 52 PRINT"ALL RIG
0021D0: 48 54 2E 20 59 4F 55 27 52 45 20 4F 4E 20 56 45 HT. YOU'RE ON VE
0021E0: 4E 55 53 2E 20 41 43 43 45 4C 45 52 41 54 49 4F NUS. ACCELERATIO
0021F0: 4E 3D 32 38 2E 33 20 46 54 2F 53 45 43 2F 53 45 N=28.3 FT/SEC/SE
002200: 43 2E 22 3A 47 4F 54 4F 20 31 36 32 0D 0A 31 35 C.":GOTO 162..15
002210: 33 20 50 52 49 4E 54 20 22 54 48 45 4E 20 59 4F 3 PRINT "THEN YO
002220: 55 27 52 45 20 4F 4E 20 45 41 52 54 48 2E 20 41 U'RE ON EARTH. A
002230: 43 43 45 4C 45 52 41 54 49 4F 4E 3D 33 32 2E 31 CCELERATION=32.1
002240: 36 20 46 54 2F 53 45 43 2F 53 45 43 2E 22 3A 47 6 FT/SEC/SEC.":G
002250: 4F 54 4F 20 31 36 33 20 0D 0A 31 35 34 20 50 52 OTO 163 ..154 PR
002260: 49 4E 54 22 46 49 4E 45 2E 20 59 4F 55 27 52 45 INT"FINE. YOU'RE
002270: 20 4F 4E 20 54 48 45 20 4D 4F 4F 4E 2E 20 41 43 ON THE MOON. AC
002280: 43 45 4C 45 52 41 54 49 4F 4E 3D 35 2E 31 35 20 CELERATION=5.15
002290: 46 54 2F 53 45 43 2F 53 45 43 2E 22 3A 47 4F 54 FT/SEC/SEC.":GOT
0022A0: 4F 20 31 36 34 0D 0A 31 35 35 20 50 52 49 4E 54 O 164..155 PRINT
0022B0: 22 41 4C 4C 20 52 49 47 48 54 2E 20 59 4F 55 27 "ALL RIGHT. YOU'
0022C0: 52 45 20 4F 4E 20 4D 41 52 53 2E 20 41 43 43 45 RE ON MARS. ACCE
0022D0: 4C 45 52 41 54 49 4F 4E 3D 31 32 2E 35 20 46 54 LERATION=12.5 FT
0022E0: 2F 53 45 43 2F 53 45 43 2E 22 3A 47 4F 54 4F 20 /SEC/SEC.":GOTO
0022F0: 31 36 35 20 0D 0A 31 35 36 20 50 52 49 4E 54 22 165 ..156 PRINT"
002300: 43 45 44 45 44 20 59 4F 55 52 53 20 41 4E 44 20 CEDED YOURS AND
002310: 4F 4E 4C 59 22 0D 0A 37 31 31 20 50 52 49 4E 54 ONLY"..711 PRINT
002320: 20 4B 2D 4B 31 22 20 4F 46 20 54 48 45 4D 20 47 K-K1" OF THEM G
002330: 4F 54 20 4C 4F 57 45 52 20 54 48 41 4E 20 59 4F OT LOWER THAN YO
002340: 55 20 44 49 44 20 42 45 46 4F 52 45 20 54 48 45 U DID BEFORE THE
002350: 49 52 20 43 48 55 54 45 53 22 0D 0A 37 31 32 20 IR CHUTES"..712
002360: 50 52 49 4E 54 20 22 4F 50 45 4E 45 44 2E 22 20 PRINT "OPENED."
002370: 3A 47 4F 54 4F 20 32 30 30 30 20 0D 0A 37 32 30 :GOTO 2000 ..720
002380: 20 50 52 49 4E 54 20 22 4E 4F 54 20 42 41 44 2E PRINT "NOT BAD.
002390: 20 20 54 48 45 52 45 20 48 41 56 45 20 42 45 45 THERE HAVE BEE
0023A0: 4E 22 4B 22 53 55 43 43 45 53 53 46 55 4C 20 4A N"K"SUCCESSFUL J
0023B0: 55 4D 50 53 20 42 45 46 4F 52 45 20 59 4F 55 52 UMPS BEFORE YOUR
0023C0: 53 2E 22 20 0D 0A 37 32 31 20 50 52 49 4E 54 22 S." ..721 PRINT"
0023D0: 59 4F 55 20 57 45 52 45 20 42 45 41 54 45 4E 20 YOU WERE BEATEN
0023E0: 4F 55 54 20 42 59 22 4B 2D 4B 31 22 4F 46 20 54 OUT BY"K-K1"OF T
0023F0: 48 45 4D 2E 22 3A 47 4F 54 4F 20 32 30 30 30 20 HEM.":GOTO 2000
002400: 20 0D 0A 37 33 30 20 50 52 49 4E 54 20 22 43 4F ..730 PRINT "CO
002410: 4E 53 45 52 56 41 54 49 56 45 2C 20 41 52 45 4E NSERVATIVE, AREN
002420: 27 54 20 59 4F 55 3F 20 20 59 4F 55 20 52 41 4E 'T YOU? YOU RAN
002430: 4B 45 44 20 4F 4E 4C 59 22 4B 2D 4B 31 22 49 4E KED ONLY"K-K1"IN
002440: 20 54 48 45 22 0D 0A 37 33 31 20 50 52 49 4E 54 THE"..731 PRINT
002450: 20 4B 22 53 55 43 43 45 53 53 46 55 4C 20 4A 55 K"SUCCESSFUL JU
002460: 4D 50 53 20 42 45 46 4F 52 45 20 59 4F 55 52 53 MPS BEFORE YOURS
002470: 2E 22 3A 47 4F 54 4F 20 32 30 30 30 0D 0A 37 34 .":GOTO 2000..74
002480: 30 20 50 52 49 4E 54 20 22 48 55 4D 50 48 21 20 0 PRINT "HUMPH!
002490: 20 44 4F 4E 27 54 20 59 4F 55 20 48 41 56 45 20 DON'T YOU HAVE
0024A0: 41 4E 59 20 53 50 4F 52 54 49 4E 47 20 42 4C 4F ANY SPORTING BLO
0024B0: 4F 44 3F 20 20 54 48 45 52 45 20 57 45 52 45 22 OD? THERE WERE"
0024C0: 20 0D 0A 37 34 31 20 50 52 49 4E 54 20 4B 22 53 ..741 PRINT K"S
0024D0: 55 43 43 45 53 53 46 55 4C 20 4A 55 4D 50 53 20 UCCESSFUL JUMPS
0024E0: 42 45 46 4F 52 45 20 59 4F 55 52 53 20 41 4E 44 BEFORE YOURS AND
0024F0: 20 59 4F 55 20 43 41 4D 45 20 49 4E 22 4B 31 22 YOU CAME IN"K1"
002500: 54 48 45 4E 20 59 4F 55 27 52 45 20 4F 4E 20 4A THEN YOU'RE ON J
002510: 55 50 49 54 45 52 2E 20 41 43 43 45 4C 45 52 41 UPITER. ACCELERA
002520: 54 49 4F 4E 3D 38 35 2E 32 20 46 54 2F 53 45 43 TION=85.2 FT/SEC
002530: 2F 53 45 43 2E 22 3A 47 4F 54 4F 20 31 36 36 0D /SEC.":GOTO 166.
002540: 0A 31 35 37 20 50 52 49 4E 54 22 46 49 4E 45 2E .157 PRINT"FINE.
002550: 20 59 4F 55 27 52 45 20 4F 4E 20 53 41 54 55 52 YOU'RE ON SATUR
002560: 4E 2E 20 41 43 43 45 4C 45 52 41 54 49 4F 4E 3D N. ACCELERATION=
002570: 33 37 2E 36 20 46 54 2F 53 45 43 2F 53 45 43 2E 37.6 FT/SEC/SEC.
002580: 22 3A 47 4F 54 4F 20 31 36 37 0D 0A 31 35 38 20 ":GOTO 167..158
002590: 50 52 49 4E 54 22 41 4C 4C 20 52 49 47 48 54 2E PRINT"ALL RIGHT.
0025A0: 20 59 4F 55 27 52 45 20 4F 4E 20 55 52 41 4E 55 YOU'RE ON URANU
0025B0: 53 2E 20 41 43 43 45 4C 45 52 41 54 49 4F 4E 3D S. ACCELERATION=
0025C0: 33 33 2E 38 20 46 54 2F 53 45 43 2F 53 45 43 2E 33.8 FT/SEC/SEC.
0025D0: 22 3A 47 4F 54 4F 20 31 36 38 20 0D 0A 31 35 39 ":GOTO 168 ..159
0025E0: 20 50 52 49 4E 54 22 54 48 45 4E 20 59 4F 55 27 PRINT"THEN YOU'
0025F0: 52 45 20 4F 4E 20 4E 45 50 54 55 4E 45 2E 20 41 RE ON NEPTUNE. A
002600: 43 43 45 4C 45 52 41 54 49 4F 4E 3D 33 39 2E 36 CCELERATION=39.6
002610: 20 46 54 2F 53 45 43 2F 53 45 43 2E 22 3A 47 4F FT/SEC/SEC.":GO
002620: 54 4F 20 31 36 39 0D 0A 31 36 30 20 50 52 49 4E TO 169..160 PRIN
002630: 54 22 46 49 4E 45 2E 20 59 4F 55 27 52 45 20 4F T"FINE. YOU'RE O
002640: 4E 20 54 48 45 20 53 55 4E 2E 20 41 43 43 45 4C N THE SUN. ACCEL
002650: 45 52 41 54 49 4F 4E 3D 38 39 36 20 46 54 2F 53 ERATION=896 FT/S
002660: 45 43 2F 53 45 43 2E 22 3A 47 4F 54 4F 20 31 37 EC/SEC.":GOTO 17
002670: 30 0D 0A 31 36 31 20 41 32 3D 31 32 2E 32 3A 47 0..161 A2=12.2:G
002680: 4F 54 4F 20 31 34 35 20 0D 0A 31 36 32 20 41 32 OTO 145 ..162 A2
002690: 3D 32 38 2E 33 3A 47 4F 54 4F 20 31 34 35 20 0D =28.3:GOTO 145 .
0026A0: 0A 31 36 33 20 41 32 3D 33 32 2E 31 36 3A 47 4F .163 A2=32.16:GO
0026B0: 54 4F 20 31 34 35 0D 0A 31 36 34 20 41 32 3D 35 TO 145..164 A2=5
0026C0: 2E 31 35 3A 47 4F 54 4F 20 31 34 35 20 0D 0A 31 .15:GOTO 145 ..1
0026D0: 36 35 20 41 32 3D 31 32 2E 35 3A 47 4F 54 4F 20 65 A2=12.5:GOTO
0026E0: 31 34 35 20 0D 0A 31 36 36 20 41 32 3D 38 35 2E 145 ..166 A2=85.
0026F0: 32 3A 47 4F 54 4F 20 31 34 35 20 0D 0A 31 36 37 2:GOTO 145 ..167
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 00 00 02 09 52 E5 02 00 C1 02 00 00 00 02 ......R.........
002720: 02 00 C6 02 00 00 00 02 02 00 C2 02 00 00 00 02 ................
002730: 02 00 C7 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002740: 02 00 C8 02 00 00 00 02 02 00 C4 02 00 00 00 02 ................
002750: 02 00 C9 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 4A 55 4D 50 53 22 0D 0A 37 34 32 20 50 52 49 4E JUMPS"..742 PRIN
002810: 54 20 22 42 45 54 54 45 52 20 54 48 41 4E 20 54 T "BETTER THAN T
002820: 48 45 20 57 4F 52 53 54 2E 20 20 53 48 41 50 45 HE WORST. SHAPE
002830: 20 55 50 21 21 21 22 3A 47 4F 54 4F 20 32 30 30 UP!!!":GOTO 200
002840: 30 0D 0A 37 35 30 20 50 52 49 4E 54 20 22 48 45 0..750 PRINT "HE
002850: 59 21 20 20 59 4F 55 20 50 55 4C 4C 45 44 20 54 Y! YOU PULLED T
002860: 48 45 20 52 49 50 20 43 4F 52 44 20 4D 55 43 48 HE RIP CORD MUCH
002870: 20 54 4F 4F 20 53 4F 4F 4E 2E 20 20 22 4B 22 53 TOO SOON. "K"S
002880: 55 43 43 45 53 53 46 55 4C 22 0D 0A 37 35 31 20 UCCESSFUL"..751
002890: 50 52 49 4E 54 20 22 4A 55 4D 50 53 20 42 45 46 PRINT "JUMPS BEF
0028A0: 4F 52 45 20 59 4F 55 52 53 20 41 4E 44 20 59 4F ORE YOURS AND YO
0028B0: 55 20 43 41 4D 45 20 49 4E 20 4E 55 4D 42 45 52 U CAME IN NUMBER
0028C0: 22 4B 2D 4B 31 22 21 20 20 47 45 54 20 57 49 54 "K-K1"! GET WIT
0028D0: 48 20 49 54 21 22 20 0D 0A 37 35 32 20 47 4F 54 H IT!" ..752 GOT
0028E0: 4F 20 32 30 30 30 0D 0A 38 30 30 20 50 52 49 4E O 2000..800 PRIN
0028F0: 54 20 22 52 45 51 55 49 45 53 43 41 54 20 49 4E T "REQUIESCAT IN
002900: 20 50 41 43 45 2E 22 3A 47 4F 54 4F 20 31 39 35 PACE.":GOTO 195
002910: 30 0D 0A 38 30 31 20 50 52 49 4E 54 20 22 4D 41 0..801 PRINT "MA
002920: 59 20 54 48 45 20 41 4E 47 45 4C 20 4F 46 20 48 Y THE ANGEL OF H
002930: 45 41 56 45 4E 20 4C 45 41 44 20 59 4F 55 20 49 EAVEN LEAD YOU I
002940: 4E 54 4F 20 50 41 52 41 44 49 53 45 2E 22 3A 47 NTO PARADISE.":G
002950: 4F 54 4F 20 31 39 35 30 20 0D 0A 38 30 32 20 50 OTO 1950 ..802 P
002960: 52 49 4E 54 20 22 52 45 53 54 20 49 4E 20 50 45 RINT "REST IN PE
002970: 41 43 45 2E 22 3A 47 4F 54 4F 20 31 39 35 30 0D ACE.":GOTO 1950.
002980: 0A 38 30 33 20 50 52 49 4E 54 20 22 53 4F 4E 2D .803 PRINT "SON-
002990: 4F 46 2D 41 2D 47 55 4E 2E 22 3A 47 4F 54 4F 20 OF-A-GUN.":GOTO
0029A0: 31 39 35 30 20 0D 0A 38 30 34 20 50 52 49 4E 54 1950 ..804 PRINT
0029B0: 20 22 23 24 25 26 26 25 21 24 22 3A 47 4F 54 4F "#$%&&%!$":GOTO
0029C0: 20 31 39 35 30 20 0D 0A 38 30 35 20 50 52 49 4E 1950 ..805 PRIN
0029D0: 54 20 22 41 20 4B 49 43 4B 20 49 4E 20 54 48 45 T "A KICK IN THE
0029E0: 20 50 41 4E 54 53 20 49 53 20 41 20 42 4F 4F 53 PANTS IS A BOOS
0029F0: 54 20 49 46 20 59 4F 55 27 52 45 20 48 45 41 44 T IF YOU'RE HEAD
002A00: 53 20 28 2A 29 2E 20 20 54 48 45 20 4D 4F 52 45 S (*). THE MORE
002A10: 22 0D 0A 32 34 30 20 50 52 49 4E 54 20 22 53 54 "..240 PRINT "ST
002A20: 41 52 53 20 49 20 54 59 50 45 2C 20 54 48 45 20 ARS I TYPE, THE
002A30: 43 4C 4F 53 45 52 20 59 4F 55 20 41 52 45 20 54 CLOSER YOU ARE T
002A40: 4F 20 4D 59 20 4E 55 4D 42 45 52 2E 22 0D 0A 32 O MY NUMBER."..2
002A50: 35 30 20 50 52 49 4E 54 20 22 4F 4E 45 20 53 54 50 PRINT "ONE ST
002A60: 41 52 20 28 2A 29 20 4D 45 41 4E 53 20 46 41 52 AR (*) MEANS FAR
002A70: 20 41 57 41 59 2C 20 53 45 56 45 4E 20 53 54 41 AWAY, SEVEN STA
002A80: 52 53 20 28 2A 2A 2A 2A 2A 2A 2A 29 22 0D 0A 32 RS (*******)"..2
002A90: 36 30 20 50 52 49 4E 54 20 22 4D 45 41 4E 53 20 60 PRINT "MEANS
002AA0: 52 45 41 4C 4C 59 20 43 4C 4F 53 45 21 20 20 59 REALLY CLOSE! Y
002AB0: 4F 55 20 47 45 54 22 3B 4D 3B 22 47 55 45 53 53 OU GET";M;"GUESS
002AC0: 45 53 2E 22 0D 0A 32 37 30 20 52 45 4D 20 2A 2A ES."..270 REM **
002AD0: 2A 20 43 4F 4D 50 55 54 45 52 20 54 48 49 4E 4B * COMPUTER THINK
002AE0: 53 20 4F 46 20 41 20 4E 55 4D 42 45 52 0D 0A 32 S OF A NUMBER..2
002AF0: 38 30 20 50 52 49 4E 54 0D 0A 32 39 30 20 50 52 80 PRINT..290 PR
002B00: 49 4E 54 0D 0A 33 30 30 20 58 3D 49 4E 54 28 41 INT..300 X=INT(A
002B10: 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 33 31 30 20 *RND(1)+1)..310
002B20: 50 52 49 4E 54 20 22 4F 4B 2C 20 49 20 41 4D 20 PRINT "OK, I AM
002B30: 54 48 49 4E 4B 49 4E 47 20 4F 46 20 41 20 4E 55 THINKING OF A NU
002B40: 4D 42 45 52 2C 20 53 54 41 52 54 20 47 55 45 53 MBER, START GUES
002B50: 53 49 4E 47 2E 22 0D 0A 33 32 30 20 52 45 4D 20 SING."..320 REM
002B60: 2A 2A 2A 20 47 55 45 53 53 49 4E 47 20 42 45 47 *** GUESSING BEG
002B70: 49 4E 53 2C 20 48 55 4D 41 4E 20 47 45 54 53 20 INS, HUMAN GETS
002B80: 4D 20 47 55 45 53 53 45 53 0D 0A 33 33 30 20 46 M GUESSES..330 F
002B90: 4F 52 20 4B 3D 31 20 54 4F 20 4D 0D 0A 33 34 30 OR K=1 TO M..340
002BA0: 20 50 52 49 4E 54 0D 0A 33 35 30 20 50 52 49 4E PRINT..350 PRIN
002BB0: 54 20 22 59 4F 55 52 20 47 55 45 53 53 22 3B 0D T "YOUR GUESS";.
002BC0: 0A 33 36 30 20 49 4E 50 55 54 20 47 0D 0A 33 37 .360 INPUT G..37
002BD0: 30 20 49 46 20 47 3D 58 20 54 48 45 4E 20 36 30 0 IF G=X THEN 60
002BE0: 30 0D 0A 33 38 30 20 44 3D 41 42 53 28 47 2D 58 0..380 D=ABS(G-X
002BF0: 29 0D 0A 33 39 30 20 49 46 20 44 3E 3D 36 34 20 )..390 IF D>=64
002C00: 45 44 20 52 49 47 48 54 2E 22 3A 47 4F 54 4F 20 ED RIGHT.":GOTO
002C10: 31 39 35 30 0D 0A 38 30 36 20 50 52 49 4E 54 20 1950..806 PRINT
002C20: 22 48 4D 4D 4D 2E 20 53 48 4F 55 4C 44 20 48 41 "HMMM. SHOULD HA
002C30: 56 45 20 50 49 43 4B 45 44 20 41 20 53 48 4F 52 VE PICKED A SHOR
002C40: 54 45 52 20 54 49 4D 45 2E 22 3A 47 4F 54 4F 20 TER TIME.":GOTO
002C50: 31 39 35 30 20 0D 0A 38 30 37 20 50 52 49 4E 54 1950 ..807 PRINT
002C60: 20 22 4D 55 54 54 45 52 2E 20 4D 55 54 54 45 52 "MUTTER. MUTTER
002C70: 2E 20 4D 55 54 54 45 52 2E 22 3A 47 4F 54 4F 20 . MUTTER.":GOTO
002C80: 31 39 35 30 0D 0A 38 30 38 20 50 52 49 4E 54 20 1950..808 PRINT
002C90: 22 50 55 53 48 49 4E 47 20 55 50 20 44 41 49 53 "PUSHING UP DAIS
002CA0: 49 45 53 2E 22 3A 47 4F 54 4F 20 31 39 35 30 20 IES.":GOTO 1950
002CB0: 0D 0A 38 30 39 20 50 52 49 4E 54 20 22 45 41 53 ..809 PRINT "EAS
002CC0: 59 20 43 4F 4D 45 2C 20 45 41 53 59 20 47 4F 2E Y COME, EASY GO.
002CD0: 22 3A 47 4F 54 4F 20 31 39 35 30 20 20 0D 0A 31 ":GOTO 1950 ..1
002CE0: 30 30 30 20 50 52 49 4E 54 20 53 51 52 28 32 2A 000 PRINT SQR(2*
002CF0: 44 31 2F 41 29 2C 22 53 50 4C 41 54 22 0D 0A 31 D1/A),"SPLAT"..1
002D00: 30 30 35 20 4F 4E 20 49 4E 54 28 31 2B 28 31 30 005 ON INT(1+(10
002D10: 2A 52 4E 44 28 31 29 29 29 47 4F 54 4F 20 38 30 *RND(1)))GOTO 80
002D20: 30 2C 38 30 31 2C 38 30 32 2C 38 30 33 2C 38 30 0,801,802,803,80
002D30: 34 2C 38 30 35 2C 38 30 36 2C 38 30 37 2C 38 30 4,805,806,807,80
002D40: 38 2C 38 30 39 0D 0A 31 30 31 30 20 50 52 49 4E 8,809..1010 PRIN
002D50: 54 20 28 56 2F 41 29 2B 28 28 44 31 2D 28 56 5E T (V/A)+((D1-(V^
002D60: 32 2F 28 32 2A 41 29 29 29 2F 56 29 2C 22 53 50 2/(2*A)))/V),"SP
002D70: 4C 41 54 22 0D 0A 31 30 32 30 20 47 4F 54 4F 20 LAT"..1020 GOTO
002D80: 31 30 30 35 0D 0A 31 39 35 30 20 50 52 49 4E 54 1005..1950 PRINT
002D90: 20 22 49 27 4C 4C 20 47 49 56 45 20 59 4F 55 20 "I'LL GIVE YOU
002DA0: 41 4E 4F 54 48 45 52 20 43 48 41 4E 43 45 2E 22 ANOTHER CHANCE."
002DB0: 3A 47 4F 54 4F 20 32 30 30 30 0D 0A 32 30 30 30 :GOTO 2000..2000
002DC0: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
002DD0: 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 41 49 ANT TO PLAY AGAI
002DE0: 4E 22 3B 3A 49 4E 50 55 54 20 5A 24 20 20 0D 0A N";:INPUT Z$ ..
002DF0: 32 30 30 31 20 49 46 20 5A 24 3D 22 59 45 53 22 2001 IF Z$="YES"
002E00: 54 48 45 4E 20 35 31 30 0D 0A 34 30 30 20 49 46 THEN 510..400 IF
002E10: 20 44 3E 3D 33 32 20 54 48 45 4E 20 35 30 30 0D D>=32 THEN 500.
002E20: 0A 34 31 30 20 49 46 20 44 3E 3D 31 36 20 54 48 .410 IF D>=16 TH
002E30: 45 4E 20 34 39 30 0D 0A 34 32 30 20 49 46 20 44 EN 490..420 IF D
002E40: 3E 3D 38 20 54 48 45 4E 20 34 38 30 0D 0A 34 33 >=8 THEN 480..43
002E50: 30 20 49 46 20 44 3E 3D 34 20 54 48 45 4E 20 34 0 IF D>=4 THEN 4
002E60: 37 30 0D 0A 34 34 30 20 49 46 20 44 3E 3D 32 20 70..440 IF D>=2
002E70: 54 48 45 4E 20 34 36 30 0D 0A 34 35 30 20 50 52 THEN 460..450 PR
002E80: 49 4E 54 20 22 2A 22 3B 0D 0A 34 36 30 20 50 52 INT "*";..460 PR
002E90: 49 4E 54 20 22 2A 22 3B 0D 0A 34 37 30 20 50 52 INT "*";..470 PR
002EA0: 49 4E 54 20 22 2A 22 3B 0D 0A 34 38 30 20 50 52 INT "*";..480 PR
002EB0: 49 4E 54 20 22 2A 22 3B 0D 0A 34 39 30 20 50 52 INT "*";..490 PR
002EC0: 49 4E 54 20 22 2A 22 3B 0D 0A 35 30 30 20 50 52 INT "*";..500 PR
002ED0: 49 4E 54 20 22 2A 22 3B 0D 0A 35 31 30 20 50 52 INT "*";..510 PR
002EE0: 49 4E 54 20 22 2A 22 3B 0D 0A 35 32 30 20 50 52 INT "*";..520 PR
002EF0: 49 4E 54 0D 0A 35 33 30 20 4E 45 58 54 20 4B 0D INT..530 NEXT K.
002F00: 0A 35 34 30 20 52 45 4D 20 2A 2A 2A 20 44 49 44 .540 REM *** DID
002F10: 20 4E 4F 54 20 47 55 45 53 53 20 49 4E 20 4D 20 NOT GUESS IN M
002F20: 47 55 45 53 53 45 53 0D 0A 35 35 30 20 50 52 49 GUESSES..550 PRI
002F30: 4E 54 20 0D 0A 35 36 30 20 50 52 49 4E 54 20 22 NT ..560 PRINT "
002F40: 53 4F 52 52 59 2C 20 54 48 41 54 27 53 22 3B 4D SORRY, THAT'S";M
002F50: 3B 22 47 55 45 53 53 45 53 2E 20 54 48 45 20 4E ;"GUESSES. THE N
002F60: 55 4D 42 45 52 20 57 41 53 22 3B 58 0D 0A 35 38 UMBER WAS";X..58
002F70: 30 20 47 4F 54 4F 20 36 35 30 0D 0A 35 39 30 20 0 GOTO 650..590
002F80: 52 45 4D 20 2A 2A 2A 20 57 45 20 48 41 56 45 20 REM *** WE HAVE
002F90: 41 20 57 49 4E 4E 45 52 0D 0A 36 30 30 20 50 52 A WINNER..600 PR
002FA0: 49 4E 54 3A 46 4F 52 20 4E 3D 31 20 54 4F 20 37 INT:FOR N=1 TO 7
002FB0: 39 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 2A 22 9..610 PRINT "*"
002FC0: 3B 0D 0A 36 32 30 20 4E 45 58 54 20 4E 0D 0A 36 ;..620 NEXT N..6
002FD0: 33 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 30 PRINT:PRINT..
002FE0: 36 34 30 20 50 52 49 4E 54 20 22 59 4F 55 20 47 640 PRINT "YOU G
002FF0: 4F 54 20 49 54 20 49 4E 22 3B 4B 3B 22 47 55 45 OT IT IN";K;"GUE
003000: 20 54 48 45 4E 20 31 31 38 0D 0A 32 30 30 32 20 THEN 118..2002
003010: 49 46 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF Z$="NO" THEN
003020: 32 30 30 35 0D 0A 32 30 30 33 20 50 52 49 4E 54 2005..2003 PRINT
003030: 20 22 59 45 53 20 4F 52 20 4E 4F 22 3A 47 4F 54 "YES OR NO":GOT
003040: 4F 20 32 30 30 30 0D 0A 32 30 30 35 20 50 52 49 O 2000..2005 PRI
003050: 4E 54 20 22 50 4C 45 41 53 45 22 3B 3A 49 4E 50 NT "PLEASE";:INP
003060: 55 54 20 5A 24 3A 49 46 20 5A 24 3D 22 59 45 53 UT Z$:IF Z$="YES
003070: 22 20 54 48 45 4E 20 31 31 38 0D 0A 32 30 30 36 " THEN 118..2006
003080: 20 49 46 20 5A 24 3C 3E 22 4E 4F 22 20 54 48 45 IF Z$<>"NO" THE
003090: 4E 20 50 52 49 4E 54 20 22 59 45 53 20 4F 52 20 N PRINT "YES OR
0030A0: 4E 4F 20 22 3B 3A 47 4F 54 4F 20 32 30 30 35 0D NO ";:GOTO 2005.
0030B0: 0A 32 30 30 37 20 50 52 49 4E 54 20 22 53 53 53 .2007 PRINT "SSS
0030C0: 53 53 53 53 53 53 53 2E 22 3A 50 52 49 4E 54 3A SSSSSSS.":PRINT:
0030D0: 47 4F 54 4F 20 32 30 34 36 0D 0A 32 30 34 36 20 GOTO 2046..2046
0030E0: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
0030F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003200: 53 53 45 53 21 21 21 20 20 4C 45 54 27 53 20 50 SSES!!! LET'S P
003210: 4C 41 59 20 41 47 41 49 4E 2E 2E 2E 22 0D 0A 36 LAY AGAIN..."..6
003220: 35 30 20 47 4F 54 4F 20 32 38 30 0D 0A 36 36 30 50 GOTO 280..660
003230: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
003240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0032A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0032B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0032C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0032D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0032E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0032F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0033A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0033B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0033C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0033D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0033E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0033F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003600: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
003610: 3B 22 53 54 4F 43 4B 20 4D 41 52 4B 45 54 22 0D ;"STOCK MARKET".
003620: 0A 32 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 .20 PRINT TAB(15
003630: 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 );"CREATIVE COMP
003640: 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 UTING MORRISTOW
003650: 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A N, NEW JERSEY"..
003660: 33 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 30 PRINT: PRINT:
003670: 20 50 52 49 4E 54 0D 0A 31 30 30 20 52 45 4D 20 PRINT..100 REM
003680: 53 54 4F 43 4B 20 4D 41 52 4B 45 54 20 53 49 4D STOCK MARKET SIM
003690: 55 4C 41 54 49 4F 4E 20 20 20 20 20 2D 53 54 4F ULATION -STO
0036A0: 43 4B 2D 0D 0A 31 30 31 20 52 45 4D 20 52 45 56 CK-..101 REM REV
0036B0: 49 53 45 44 20 38 2F 31 38 2F 37 30 20 28 44 2E ISED 8/18/70 (D.
0036C0: 20 50 45 53 53 45 4C 2C 20 4C 2E 20 42 52 41 55 PESSEL, L. BRAU
0036D0: 4E 2C 20 43 2E 20 4C 4F 53 49 4B 29 20 20 0D 0A N, C. LOSIK) ..
0036E0: 31 30 32 20 52 45 4D 20 49 4D 50 20 56 52 42 4C 102 REM IMP VRBL
0036F0: 53 3A 20 41 2D 4D 52 4B 54 20 54 52 4E 44 20 53 S: A-MRKT TRND S
003700: 4C 50 3B 20 42 35 2D 42 52 4B 52 47 45 20 46 45 LP; B5-BRKRGE FE
003710: 45 3B 20 43 2D 54 54 4C 20 43 53 48 20 41 53 53 E; C-TTL CSH ASS
003720: 54 53 3B 20 20 20 20 0D 0A 31 30 33 20 52 45 4D TS; ..103 REM
003730: 20 43 35 2D 54 54 4C 20 43 53 48 20 41 53 53 54 C5-TTL CSH ASST
003740: 53 20 28 54 45 4D 50 29 3B 20 43 28 49 29 2D 43 S (TEMP); C(I)-C
003750: 48 4E 47 20 49 4E 20 53 54 4B 20 56 41 4C 3B 20 HNG IN STK VAL;
003760: 44 2D 54 54 4C 20 41 53 53 54 53 3B 0D 0A 31 30 D-TTL ASSTS;..10
003770: 34 20 52 45 4D 20 45 31 2C 45 32 2D 4C 52 47 20 4 REM E1,E2-LRG
003780: 43 48 4E 47 20 4D 49 53 43 3B 20 49 2D 53 54 43 CHNG MISC; I-STC
003790: 4B 20 23 3B 20 49 31 2C 49 32 2D 53 54 43 4B 53 K #; I1,I2-STCKS
0037A0: 20 57 20 4C 52 47 20 43 48 4E 47 3B 20 0D 0A 31 W LRG CHNG; ..1
0037B0: 30 35 20 52 45 4D 20 4E 31 2C 4E 32 2D 4C 52 47 05 REM N1,N2-LRG
0037C0: 20 43 48 4E 47 20 44 41 59 20 43 4E 54 53 3B 20 CHNG DAY CNTS;
0037D0: 50 35 2D 54 54 4C 20 44 41 59 53 20 50 52 43 48 P5-TTL DAYS PRCH
0037E0: 53 53 3B 20 50 28 49 29 2D 50 52 54 46 4C 20 43 SS; P(I)-PRTFL C
0037F0: 4E 54 4E 54 53 3B 0D 0A 31 30 36 20 52 45 4D 20 NTNTS;..106 REM
003800: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
003810: 3B 22 53 54 41 52 53 22 0D 0A 32 30 20 50 52 49 ;"STARS"..20 PRI
003820: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
003830: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
003840: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
003850: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
003860: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 T:PRINT:PRINT..1
003870: 30 30 20 52 45 4D 20 2A 2A 2A 20 53 54 41 52 53 00 REM *** STARS
003880: 20 2D 20 50 45 4F 50 4C 45 27 53 20 43 4F 4D 50 - PEOPLE'S COMP
003890: 55 54 45 52 20 43 45 4E 54 45 52 2C 20 4D 45 4E UTER CENTER, MEN
0038A0: 4C 4F 20 50 41 52 4B 2C 20 43 41 0D 0A 31 34 30 LO PARK, CA..140
0038B0: 20 52 45 4D 20 2A 2A 2A 20 41 20 49 53 20 4C 49 REM *** A IS LI
0038C0: 4D 49 54 20 4F 4E 20 4E 55 4D 42 45 52 2C 20 4D MIT ON NUMBER, M
0038D0: 20 49 53 20 4E 55 4D 42 45 52 20 4F 46 20 47 55 IS NUMBER OF GU
0038E0: 45 53 53 45 53 0D 0A 31 35 30 20 41 3D 31 30 30 ESSES..150 A=100
0038F0: 3A 4D 3D 37 0D 0A 31 37 30 20 49 4E 50 55 54 20 :M=7..170 INPUT
003900: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 "DO YOU WANT INS
003910: 54 52 55 43 54 49 4F 4E 53 22 3B 41 24 0D 0A 31 TRUCTIONS";A$..1
003920: 39 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 31 90 IF LEFT$(A$,1
003930: 29 3D 22 4E 22 20 54 48 45 4E 20 32 38 30 0D 0A )="N" THEN 280..
003940: 32 30 30 20 52 45 4D 20 2A 2A 2A 20 49 4E 53 54 200 REM *** INST
003950: 52 55 43 54 49 4F 4E 53 20 4F 4E 20 48 4F 57 20 RUCTIONS ON HOW
003960: 54 4F 20 50 4C 41 59 0D 0A 32 31 30 20 50 52 49 TO PLAY..210 PRI
003970: 4E 54 20 22 49 20 41 4D 20 54 48 49 4E 4B 49 4E NT "I AM THINKIN
003980: 47 20 4F 46 20 41 20 57 48 4F 4C 45 20 4E 55 4D G OF A WHOLE NUM
003990: 42 45 52 20 46 52 4F 4D 20 31 20 54 4F 22 3B 41 BER FROM 1 TO";A
0039A0: 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 54 52 59 ..220 PRINT "TRY
0039B0: 20 54 4F 20 47 55 45 53 53 20 4D 59 20 4E 55 4D TO GUESS MY NUM
0039C0: 42 45 52 2E 20 20 41 46 54 45 52 20 59 4F 55 20 BER. AFTER YOU
0039D0: 47 55 45 53 53 2C 20 49 22 0D 0A 32 33 30 20 50 GUESS, I"..230 P
0039E0: 52 49 4E 54 20 22 57 49 4C 4C 20 54 59 50 45 20 RINT "WILL TYPE
0039F0: 4F 4E 45 20 4F 52 20 4D 4F 52 45 20 53 54 41 52 ONE OR MORE STAR
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 00 00 02 09 52 E5 03 00 C1 02 00 00 00 02 ......R.........
003A20: 03 00 C6 02 00 00 00 02 03 00 C2 02 00 00 00 02 ................
003A30: 03 00 C7 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A40: 03 00 C8 02 00 00 00 02 03 00 C4 02 00 00 00 02 ................
003A50: 03 00 C9 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 51 39 2D 4E 45 57 20 43 59 43 4C 3F 3B 20 53 34 Q9-NEW CYCL?; S4
003B10: 2D 53 47 4E 20 4F 46 20 41 3B 20 53 35 2D 54 54 -SGN OF A; S5-TT
003B20: 4C 20 44 59 53 20 53 4C 53 3B 20 53 28 49 29 2D L DYS SLS; S(I)-
003B30: 56 41 4C 55 45 2F 53 48 52 3B 20 0D 0A 31 30 37 VALUE/SHR; ..107
003B40: 20 52 45 4D 20 54 2D 54 54 4C 20 53 54 43 4B 20 REM T-TTL STCK
003B50: 41 53 53 54 53 3B 20 54 35 2D 54 54 4C 20 56 41 ASSTS; T5-TTL VA
003B60: 4C 20 4F 46 20 54 52 4E 53 43 54 4E 53 3B 0D 0A L OF TRNSCTNS;..
003B70: 31 30 38 20 52 45 4D 20 57 33 2D 4C 52 47 20 43 108 REM W3-LRG C
003B80: 48 4E 47 3B 20 58 31 2D 53 4D 4C 4C 20 43 48 4E HNG; X1-SMLL CHN
003B90: 47 28 3C 24 31 29 3B 20 5A 34 2C 5A 35 2C 5A 36 G(<$1); Z4,Z5,Z6
003BA0: 2D 4E 59 53 45 20 41 56 45 2E 3B 20 5A 28 49 29 -NYSE AVE.; Z(I)
003BB0: 2D 54 52 4E 53 43 54 0D 0A 31 31 30 20 44 49 4D -TRNSCT..110 DIM
003BC0: 20 53 28 35 29 2C 50 28 35 29 2C 5A 28 35 29 2C S(5),P(5),Z(5),
003BD0: 43 28 35 29 20 0D 0A 31 31 32 20 52 45 4D 20 53 C(5) ..112 REM S
003BE0: 4C 4F 50 45 20 4F 46 20 4D 41 52 4B 45 54 20 54 LOPE OF MARKET T
003BF0: 52 45 4E 44 3A 41 20 20 28 53 41 4D 45 20 46 4F REND:A (SAME FO
003C00: 52 20 41 4C 4C 20 53 54 4F 43 4B 53 29 20 0D 0A R ALL STOCKS) ..
003C10: 31 31 33 20 4C 45 54 20 58 3D 31 0D 0A 31 31 34 113 LET X=1..114
003C20: 20 4C 45 54 20 41 3D 49 4E 54 28 28 52 4E 44 28 LET A=INT((RND(
003C30: 58 29 2F 31 30 29 2A 31 30 30 2B 2E 35 29 2F 31 X)/10)*100+.5)/1
003C40: 30 30 20 0D 0A 31 31 35 20 4C 45 54 20 54 35 3D 00 ..115 LET T5=
003C50: 30 0D 0A 31 31 36 20 4C 45 54 20 58 39 3D 30 0D 0..116 LET X9=0.
003C60: 0A 31 31 37 20 4C 45 54 20 4E 31 3D 30 0D 0A 31 .117 LET N1=0..1
003C70: 31 38 20 4C 45 54 20 4E 32 3D 30 0D 0A 31 31 39 18 LET N2=0..119
003C80: 20 4C 45 54 20 45 31 3D 30 0D 0A 31 32 30 20 4C LET E1=0..120 L
003C90: 45 54 20 45 32 3D 30 0D 0A 31 32 31 20 52 45 4D ET E2=0..121 REM
003CA0: 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 0D 0A INTRODUCTION ..
003CB0: 31 32 32 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 122 PRINT "DO YO
003CC0: 55 20 57 41 4E 54 20 54 48 45 20 49 4E 53 54 52 U WANT THE INSTR
003CD0: 55 43 54 49 4F 4E 53 20 28 59 45 53 2D 54 59 50 UCTIONS (YES-TYP
003CE0: 45 20 31 2C 20 4E 4F 2D 54 59 50 45 20 30 29 22 E 1, NO-TYPE 0)"
003CF0: 3B 20 0D 0A 31 32 33 20 49 4E 50 55 54 20 5A 39 ; ..123 INPUT Z9
003D00: 4E 45 54 20 43 48 41 4E 47 45 3A 5A 36 20 0D 0A NET CHANGE:Z6 ..
003D10: 33 36 33 20 4C 45 54 20 5A 34 3D 5A 35 20 0D 0A 363 LET Z4=Z5 ..
003D20: 33 36 34 20 4C 45 54 20 5A 35 3D 30 0D 0A 33 36 364 LET Z5=0..36
003D30: 35 20 4C 45 54 20 54 3D 30 20 0D 0A 33 37 30 20 5 LET T=0 ..370
003D40: 46 4F 52 20 49 3D 31 20 54 4F 20 35 0D 0A 33 37 FOR I=1 TO 5..37
003D50: 35 20 4C 45 54 20 5A 35 3D 5A 35 2B 53 28 49 29 5 LET Z5=Z5+S(I)
003D60: 0D 0A 33 38 30 20 4C 45 54 20 54 3D 54 2B 53 28 ..380 LET T=T+S(
003D70: 49 29 2A 50 28 49 29 20 0D 0A 33 39 30 20 4E 45 I)*P(I) ..390 NE
003D80: 58 54 20 49 0D 0A 33 39 31 20 4C 45 54 20 5A 35 XT I..391 LET Z5
003D90: 3D 49 4E 54 28 31 30 30 2A 28 5A 35 2F 35 29 2B =INT(100*(Z5/5)+
003DA0: 2E 35 29 2F 31 30 30 20 0D 0A 33 39 32 20 4C 45 .5)/100 ..392 LE
003DB0: 54 20 5A 36 3D 49 4E 54 28 28 5A 35 2D 5A 34 29 T Z6=INT((Z5-Z4)
003DC0: 2A 31 30 30 2B 2E 35 29 2F 31 30 30 0D 0A 33 39 *100+.5)/100..39
003DD0: 33 20 52 45 4D 20 54 4F 54 41 4C 20 41 53 53 45 3 REM TOTAL ASSE
003DE0: 54 53 3A 44 20 0D 0A 33 39 34 20 4C 45 54 20 44 TS:D ..394 LET D
003DF0: 3D 54 2B 43 20 0D 0A 33 39 35 20 49 46 20 58 39 =T+C ..395 IF X9
003E00: 3E 30 20 54 48 45 4E 20 33 39 38 0D 0A 33 39 36 >0 THEN 398..396
003E10: 20 50 52 49 4E 54 20 22 4E 45 57 20 59 4F 52 4B PRINT "NEW YORK
003E20: 20 53 54 4F 43 4B 20 45 58 43 48 41 4E 47 45 20 STOCK EXCHANGE
003E30: 41 56 45 52 41 47 45 3A 20 22 5A 35 20 0D 0A 33 AVERAGE: "Z5 ..3
003E40: 39 37 20 47 4F 54 4F 20 33 39 39 20 0D 0A 33 39 97 GOTO 399 ..39
003E50: 38 20 50 52 49 4E 54 20 22 4E 45 57 20 59 4F 52 8 PRINT "NEW YOR
003E60: 4B 20 53 54 4F 43 4B 20 45 58 43 48 41 4E 47 45 K STOCK EXCHANGE
003E70: 20 41 56 45 52 41 47 45 3A 20 22 5A 35 22 4E 45 AVERAGE: "Z5"NE
003E80: 54 20 43 48 41 4E 47 45 22 5A 36 0D 0A 33 39 39 T CHANGE"Z6..399
003E90: 20 50 52 49 4E 54 20 0D 0A 34 30 30 20 4C 45 54 PRINT ..400 LET
003EA0: 20 54 3D 49 4E 54 28 31 30 30 2A 54 2B 2E 35 29 T=INT(100*T+.5)
003EB0: 2F 31 30 30 20 0D 0A 34 30 31 20 50 52 49 4E 54 /100 ..401 PRINT
003EC0: 20 22 54 4F 54 41 4C 20 53 54 4F 43 4B 20 41 53 "TOTAL STOCK AS
003ED0: 53 45 54 53 20 41 52 45 20 20 20 24 22 3B 54 0D SETS ARE $";T.
003EE0: 0A 34 30 33 20 4C 45 54 20 43 3D 49 4E 54 28 31 .403 LET C=INT(1
003EF0: 30 30 2A 43 2B 2E 35 29 2F 31 30 30 20 0D 0A 34 00*C+.5)/100 ..4
003F00: 0D 0A 31 32 34 20 50 52 49 4E 54 20 0D 0A 31 32 ..124 PRINT ..12
003F10: 35 20 50 52 49 4E 54 20 0D 0A 31 32 36 20 49 46 5 PRINT ..126 IF
003F20: 20 5A 39 3C 31 20 54 48 45 4E 20 32 30 30 0D 0A Z9<1 THEN 200..
003F30: 31 33 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 130 PRINT "THIS
003F40: 50 52 4F 47 52 41 4D 20 50 4C 41 59 53 20 54 48 PROGRAM PLAYS TH
003F50: 45 20 53 54 4F 43 4B 20 4D 41 52 4B 45 54 2E 20 E STOCK MARKET.
003F60: 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 47 49 56 YOU WILL BE GIV
003F70: 45 4E 22 20 0D 0A 31 33 32 20 50 52 49 4E 54 20 EN" ..132 PRINT
003F80: 22 24 31 30 2C 30 30 30 20 41 4E 44 20 4D 41 59 "$10,000 AND MAY
003F90: 20 42 55 59 20 4F 52 20 53 45 4C 4C 20 53 54 4F BUY OR SELL STO
003FA0: 43 4B 53 2E 20 20 54 48 45 20 53 54 4F 43 4B 20 CKS. THE STOCK
003FB0: 50 52 49 43 45 53 20 57 49 4C 4C 22 0D 0A 31 33 PRICES WILL"..13
003FC0: 34 20 50 52 49 4E 54 20 22 42 45 20 47 45 4E 45 4 PRINT "BE GENE
003FD0: 52 41 54 45 44 20 52 41 4E 44 4F 4D 4C 59 20 41 RATED RANDOMLY A
003FE0: 4E 44 20 54 48 45 52 45 46 4F 52 45 20 54 48 49 ND THEREFORE THI
003FF0: 53 20 4D 4F 44 45 4C 20 44 4F 45 53 20 4E 4F 54 S MODEL DOES NOT
004000: 22 20 0D 0A 31 33 35 20 50 52 49 4E 54 20 22 52 " ..135 PRINT "R
004010: 45 50 52 45 53 45 4E 54 20 45 58 41 43 54 4C 59 EPRESENT EXACTLY
004020: 20 57 48 41 54 20 48 41 50 50 45 4E 53 20 4F 4E WHAT HAPPENS ON
004030: 20 54 48 45 20 45 58 43 48 41 4E 47 45 2E 20 20 THE EXCHANGE.
004040: 41 20 54 41 42 4C 45 22 0D 0A 31 33 36 20 50 52 A TABLE"..136 PR
004050: 49 4E 54 20 22 4F 46 20 41 56 41 49 4C 41 42 4C INT "OF AVAILABL
004060: 45 20 53 54 4F 43 4B 53 2C 20 54 48 45 49 52 20 E STOCKS, THEIR
004070: 50 52 49 43 45 53 2C 20 41 4E 44 20 54 48 45 20 PRICES, AND THE
004080: 4E 55 4D 42 45 52 20 4F 46 20 53 48 41 52 45 53 NUMBER OF SHARES
004090: 22 0D 0A 31 33 37 20 50 52 49 4E 54 20 22 49 4E "..137 PRINT "IN
0040A0: 20 59 4F 55 52 20 50 4F 52 54 46 4F 4C 49 4F 20 YOUR PORTFOLIO
0040B0: 57 49 4C 4C 20 42 45 20 50 52 49 4E 54 45 44 2E WILL BE PRINTED.
0040C0: 20 20 46 4F 4C 4C 4F 57 49 4E 47 20 54 48 49 53 FOLLOWING THIS
0040D0: 2C 20 54 48 45 22 20 0D 0A 31 33 38 20 50 52 49 , THE" ..138 PRI
0040E0: 4E 54 20 22 49 4E 49 54 49 41 4C 53 20 4F 46 20 NT "INITIALS OF
0040F0: 45 41 43 48 20 53 54 4F 43 4B 20 57 49 4C 4C 20 EACH STOCK WILL
004100: 30 35 20 50 52 49 4E 54 20 22 54 4F 54 41 4C 20 05 PRINT "TOTAL
004110: 43 41 53 48 20 41 53 53 45 54 53 20 41 52 45 20 CASH ASSETS ARE
004120: 20 20 20 24 22 3B 43 0D 0A 34 30 37 20 4C 45 54 $";C..407 LET
004130: 20 44 3D 49 4E 54 28 31 30 30 2A 44 2B 2E 35 29 D=INT(100*D+.5)
004140: 2F 31 30 30 20 0D 0A 34 30 38 20 50 52 49 4E 54 /100 ..408 PRINT
004150: 20 22 54 4F 54 41 4C 20 41 53 53 45 54 53 20 41 "TOTAL ASSETS A
004160: 52 45 20 20 20 20 20 20 20 20 20 24 22 3B 44 0D RE $";D.
004170: 0A 34 31 30 20 50 52 49 4E 54 20 0D 0A 34 31 31 .410 PRINT ..411
004180: 20 49 46 20 58 39 3D 30 20 54 48 45 4E 20 34 31 IF X9=0 THEN 41
004190: 36 0D 0A 34 31 32 20 50 52 49 4E 54 20 22 44 4F 6..412 PRINT "DO
0041A0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 43 4F 4E YOU WISH TO CON
0041B0: 54 49 4E 55 45 20 28 59 45 53 2D 54 59 50 45 20 TINUE (YES-TYPE
0041C0: 31 2C 20 4E 4F 2D 54 59 50 45 20 30 29 22 3B 0D 1, NO-TYPE 0)";.
0041D0: 0A 34 31 33 20 49 4E 50 55 54 20 51 39 0D 0A 34 .413 INPUT Q9..4
0041E0: 31 34 20 49 46 20 51 39 3C 31 20 54 48 45 4E 20 14 IF Q9<1 THEN
0041F0: 39 39 38 0D 0A 34 31 36 20 52 45 4D 20 49 4E 50 998..416 REM INP
004200: 55 54 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 20 UT TRANSACTIONS
004210: 0D 0A 34 32 30 20 50 52 49 4E 54 20 22 57 48 41 ..420 PRINT "WHA
004220: 54 20 49 53 20 59 4F 55 52 20 54 52 41 4E 53 41 T IS YOUR TRANSA
004230: 43 54 49 4F 4E 20 49 4E 22 20 0D 0A 34 33 30 20 CTION IN" ..430
004240: 50 52 49 4E 54 20 22 49 42 4D 22 3B 0D 0A 34 34 PRINT "IBM";..44
004250: 30 20 49 4E 50 55 54 20 5A 28 31 29 0D 0A 34 35 0 INPUT Z(1)..45
004260: 30 20 50 52 49 4E 54 20 22 52 43 41 22 3B 0D 0A 0 PRINT "RCA";..
004270: 34 36 30 20 49 4E 50 55 54 20 5A 28 32 29 0D 0A 460 INPUT Z(2)..
004280: 34 37 30 20 50 52 49 4E 54 20 22 4C 42 4A 22 3B 470 PRINT "LBJ";
004290: 0D 0A 34 38 30 20 49 4E 50 55 54 20 5A 28 33 29 ..480 INPUT Z(3)
0042A0: 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 41 42 43 ..490 PRINT "ABC
0042B0: 22 3B 0D 0A 35 30 30 20 49 4E 50 55 54 20 5A 28 ";..500 INPUT Z(
0042C0: 34 29 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 43 4)..510 PRINT "C
0042D0: 42 53 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 BS";..520 INPUT
0042E0: 5A 28 35 29 0D 0A 35 32 35 20 50 52 49 4E 54 20 Z(5)..525 PRINT
0042F0: 0D 0A 35 33 30 20 52 45 4D 20 54 4F 54 41 4C 20 ..530 REM TOTAL
004300: 42 45 20 50 52 49 4E 54 45 44 20 57 49 54 48 20 BE PRINTED WITH
004310: 41 20 51 55 45 53 54 49 4F 4E 22 0D 0A 31 33 39 A QUESTION"..139
004320: 20 50 52 49 4E 54 20 22 4D 41 52 4B 2E 20 20 48 PRINT "MARK. H
004330: 45 52 45 20 59 4F 55 20 49 4E 44 49 43 41 54 45 ERE YOU INDICATE
004340: 20 41 20 54 52 41 4E 53 41 43 54 49 4F 4E 2E 20 A TRANSACTION.
004350: 20 54 4F 20 42 55 59 20 41 20 53 54 4F 43 4B 22 TO BUY A STOCK"
004360: 20 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 54 59 ..140 PRINT "TY
004370: 50 45 20 2B 4E 4E 4E 2C 20 54 4F 20 53 45 4C 4C PE +NNN, TO SELL
004380: 20 41 20 53 54 4F 43 4B 20 54 59 50 45 20 2D 4E A STOCK TYPE -N
004390: 4E 4E 2C 20 57 48 45 52 45 20 4E 4E 4E 20 49 53 NN, WHERE NNN IS
0043A0: 20 54 48 45 22 20 20 0D 0A 31 34 31 20 50 52 49 THE" ..141 PRI
0043B0: 4E 54 20 22 4E 55 4D 42 45 52 20 4F 46 20 53 48 NT "NUMBER OF SH
0043C0: 41 52 45 53 2E 20 20 41 20 42 52 4F 4B 45 52 41 ARES. A BROKERA
0043D0: 47 45 20 46 45 45 20 4F 46 20 31 25 20 57 49 4C GE FEE OF 1% WIL
0043E0: 4C 20 42 45 20 43 48 41 52 47 45 44 22 0D 0A 31 L BE CHARGED"..1
0043F0: 34 32 20 50 52 49 4E 54 20 22 4F 4E 20 41 4C 4C 42 PRINT "ON ALL
004400: 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 2E 20 20 TRANSACTIONS.
004410: 4E 4F 54 45 20 54 48 41 54 20 49 46 20 41 20 53 NOTE THAT IF A S
004420: 54 4F 43 4B 27 53 20 56 41 4C 55 45 20 44 52 4F TOCK'S VALUE DRO
004430: 50 53 22 0D 0A 31 34 33 20 50 52 49 4E 54 20 22 PS"..143 PRINT "
004440: 54 4F 20 5A 45 52 4F 20 49 54 20 4D 41 59 20 52 TO ZERO IT MAY R
004450: 45 42 4F 55 4E 44 20 54 4F 20 41 20 50 4F 53 49 EBOUND TO A POSI
004460: 54 49 56 45 20 56 41 4C 55 45 20 41 47 41 49 4E TIVE VALUE AGAIN
004470: 2E 20 20 59 4F 55 22 0D 0A 31 34 34 20 50 52 49 . YOU"..144 PRI
004480: 4E 54 20 22 48 41 56 45 20 24 31 30 2C 30 30 30 NT "HAVE $10,000
004490: 20 54 4F 20 49 4E 56 45 53 54 2E 20 20 55 53 45 TO INVEST. USE
0044A0: 20 49 4E 54 45 47 45 52 53 20 46 4F 52 20 41 4C INTEGERS FOR AL
0044B0: 4C 20 59 4F 55 52 20 49 4E 50 55 54 53 2E 22 0D L YOUR INPUTS.".
0044C0: 0A 31 34 35 20 50 52 49 4E 54 20 22 28 4E 4F 54 .145 PRINT "(NOT
0044D0: 45 3A 20 20 54 4F 20 47 45 54 20 41 20 27 46 45 E: TO GET A 'FE
0044E0: 45 4C 27 20 46 4F 52 20 54 48 45 20 4D 41 52 4B EL' FOR THE MARK
0044F0: 45 54 20 52 55 4E 20 46 4F 52 20 41 54 20 4C 45 ET RUN FOR AT LE
004500: 44 41 59 27 53 20 50 55 52 43 48 41 53 45 53 20 DAY'S PURCHASES
004510: 49 4E 20 24 3A 50 35 0D 0A 35 34 30 20 4C 45 54 IN $:P5..540 LET
004520: 20 50 35 3D 30 0D 0A 35 35 30 20 52 45 4D 20 54 P5=0..550 REM T
004530: 4F 54 41 4C 20 44 41 59 27 53 20 53 41 4C 45 53 OTAL DAY'S SALES
004540: 20 49 4E 20 24 3A 53 35 0D 0A 35 36 30 20 4C 45 IN $:S5..560 LE
004550: 54 20 53 35 3D 30 0D 0A 35 37 30 20 46 4F 52 20 T S5=0..570 FOR
004560: 49 3D 31 20 54 4F 20 35 0D 0A 35 37 35 20 4C 45 I=1 TO 5..575 LE
004570: 54 20 5A 28 49 29 3D 49 4E 54 28 5A 28 49 29 2B T Z(I)=INT(Z(I)+
004580: 2E 35 29 20 0D 0A 35 38 30 20 49 46 20 5A 28 49 .5) ..580 IF Z(I
004590: 29 3C 3D 30 20 54 48 45 4E 20 36 31 30 20 0D 0A )<=0 THEN 610 ..
0045A0: 35 39 30 20 4C 45 54 20 50 35 3D 50 35 2B 5A 28 590 LET P5=P5+Z(
0045B0: 49 29 2A 53 28 49 29 20 0D 0A 36 30 30 20 47 4F I)*S(I) ..600 GO
0045C0: 54 4F 20 36 32 30 20 0D 0A 36 31 30 20 4C 45 54 TO 620 ..610 LET
0045D0: 20 53 35 3D 53 35 2D 5A 28 49 29 2A 53 28 49 29 S5=S5-Z(I)*S(I)
0045E0: 20 0D 0A 36 31 32 20 49 46 20 2D 5A 28 49 29 3C ..612 IF -Z(I)<
0045F0: 3D 50 28 49 29 20 54 48 45 4E 20 36 32 30 20 0D =P(I) THEN 620 .
004600: 0A 36 31 34 20 50 52 49 4E 54 20 22 59 4F 55 20 .614 PRINT "YOU
004610: 48 41 56 45 20 4F 56 45 52 53 4F 4C 44 20 41 20 HAVE OVERSOLD A
004620: 53 54 4F 43 4B 3B 20 54 52 59 20 41 47 41 49 4E STOCK; TRY AGAIN
004630: 2E 22 20 0D 0A 36 31 36 20 47 4F 54 4F 20 34 32 ." ..616 GOTO 42
004640: 30 20 0D 0A 36 32 30 20 4E 45 58 54 20 49 0D 0A 0 ..620 NEXT I..
004650: 36 32 32 20 52 45 4D 20 54 4F 54 41 4C 20 56 41 622 REM TOTAL VA
004660: 4C 55 45 20 4F 46 20 54 52 41 4E 53 41 43 54 49 LUE OF TRANSACTI
004670: 4F 4E 53 3A 54 35 20 0D 0A 36 32 35 20 4C 45 54 ONS:T5 ..625 LET
004680: 20 54 35 3D 50 35 2B 53 35 0D 0A 36 33 30 20 52 T5=P5+S5..630 R
004690: 45 4D 20 42 52 4F 4B 45 52 41 47 45 20 46 45 45 EM BROKERAGE FEE
0046A0: 3A 42 35 20 0D 0A 36 34 30 20 4C 45 54 20 42 35 :B5 ..640 LET B5
0046B0: 3D 49 4E 54 28 2E 30 31 2A 54 35 2A 31 30 30 2B =INT(.01*T5*100+
0046C0: 2E 35 29 2F 31 30 30 20 0D 0A 36 35 30 20 52 45 .5)/100 ..650 RE
0046D0: 4D 20 43 41 53 48 20 41 53 53 45 54 53 3D 4F 4C M CASH ASSETS=OL
0046E0: 44 20 43 41 53 48 20 41 53 53 45 54 53 2D 54 4F D CASH ASSETS-TO
0046F0: 54 41 4C 20 50 55 52 43 48 41 53 45 53 0D 0A 36 TAL PURCHASES..6
004700: 41 53 54 22 20 0D 0A 31 34 36 20 50 52 49 4E 54 AST" ..146 PRINT
004710: 20 22 31 30 20 44 41 59 53 29 22 0D 0A 31 34 37 "10 DAYS)"..147
004720: 20 50 52 49 4E 54 20 22 2D 2D 2D 2D 2D 47 4F 4F PRINT "-----GOO
004730: 44 20 4C 55 43 4B 21 2D 2D 2D 2D 2D 22 0D 0A 32 D LUCK!-----"..2
004740: 30 30 20 52 45 4D 20 47 45 4E 45 52 41 54 49 4F 00 REM GENERATIO
004750: 4E 20 4F 46 20 53 54 4F 43 4B 20 54 41 42 4C 45 N OF STOCK TABLE
004760: 3B 20 49 4E 50 55 54 20 52 45 51 55 45 53 54 53 ; INPUT REQUESTS
004770: 20 20 0D 0A 32 31 30 20 52 45 4D 20 49 4E 49 54 ..210 REM INIT
004780: 49 41 4C 20 53 54 4F 43 4B 20 56 41 4C 55 45 53 IAL STOCK VALUES
004790: 20 0D 0A 32 32 30 20 4C 45 54 20 53 28 31 29 3D ..220 LET S(1)=
0047A0: 31 30 30 0D 0A 32 33 30 20 4C 45 54 20 53 28 32 100..230 LET S(2
0047B0: 29 3D 38 35 20 0D 0A 32 34 30 20 4C 45 54 20 53 )=85 ..240 LET S
0047C0: 28 33 29 3D 31 35 30 0D 0A 32 35 30 20 4C 45 54 (3)=150..250 LET
0047D0: 20 53 28 34 29 3D 31 34 30 0D 0A 32 36 30 20 4C S(4)=140..260 L
0047E0: 45 54 20 53 28 35 29 3D 31 31 30 0D 0A 32 36 35 ET S(5)=110..265
0047F0: 20 52 45 4D 20 49 4E 49 54 49 41 4C 20 54 38 20 REM INITIAL T8
004800: 2D 20 23 20 44 41 59 53 20 46 4F 52 20 46 49 52 - # DAYS FOR FIR
004810: 53 54 20 54 52 45 4E 44 20 53 4C 4F 50 45 20 28 ST TREND SLOPE (
004820: 41 29 0D 0A 32 36 36 20 4C 45 54 20 54 38 3D 49 A)..266 LET T8=I
004830: 4E 54 28 34 2E 39 39 2A 52 4E 44 28 58 29 2B 31 NT(4.99*RND(X)+1
004840: 29 20 0D 0A 32 36 37 20 52 45 4D 20 52 41 4E 44 ) ..267 REM RAND
004850: 4F 4D 49 5A 45 20 53 49 47 4E 20 4F 46 20 46 49 OMIZE SIGN OF FI
004860: 52 53 54 20 54 52 45 4E 44 20 53 4C 4F 50 45 20 RST TREND SLOPE
004870: 28 41 29 0D 0A 32 36 38 20 49 46 20 52 4E 44 28 (A)..268 IF RND(
004880: 58 29 3E 2E 35 20 54 48 45 4E 20 32 37 30 20 0D X)>.5 THEN 270 .
004890: 0A 32 36 39 20 4C 45 54 20 41 3D 2D 41 0D 0A 32 .269 LET A=-A..2
0048A0: 37 30 20 52 45 4D 20 52 41 4E 44 4F 4D 49 5A 45 70 REM RANDOMIZE
0048B0: 20 49 4E 49 54 49 41 4C 20 56 41 4C 55 45 53 20 INITIAL VALUES
0048C0: 0D 0A 32 38 30 20 47 4F 53 55 42 20 38 33 30 20 ..280 GOSUB 830
0048D0: 0D 0A 32 38 35 20 52 45 4D 20 49 4E 49 54 49 41 ..285 REM INITIA
0048E0: 4C 20 50 4F 52 54 46 4F 4C 49 4F 20 43 4F 4E 54 L PORTFOLIO CONT
0048F0: 45 4E 54 53 20 0D 0A 32 39 30 20 46 4F 52 20 49 ENTS ..290 FOR I
004900: 35 32 20 52 45 4D 20 2D 42 52 4F 4B 45 52 41 47 52 REM -BROKERAG
004910: 45 20 46 45 45 53 2B 54 4F 54 41 4C 20 53 41 4C E FEES+TOTAL SAL
004920: 45 53 3A 43 35 20 0D 0A 36 35 34 20 4C 45 54 20 ES:C5 ..654 LET
004930: 43 35 3D 43 2D 50 35 2D 42 35 2B 53 35 20 0D 0A C5=C-P5-B5+S5 ..
004940: 36 35 36 20 49 46 20 43 35 3E 3D 30 20 54 48 45 656 IF C5>=0 THE
004950: 4E 20 36 37 34 20 0D 0A 36 35 38 20 50 52 49 4E N 674 ..658 PRIN
004960: 54 20 22 59 4F 55 20 48 41 56 45 20 55 53 45 44 T "YOU HAVE USED
004970: 20 24 22 2D 43 35 22 20 4D 4F 52 45 20 54 48 41 $"-C5" MORE THA
004980: 4E 20 59 4F 55 20 48 41 56 45 2E 22 20 0D 0A 36 N YOU HAVE." ..6
004990: 36 30 20 47 4F 54 4F 20 34 32 30 0D 0A 36 37 34 60 GOTO 420..674
0049A0: 20 4C 45 54 20 43 3D 43 35 0D 0A 36 37 35 20 52 LET C=C5..675 R
0049B0: 45 4D 20 43 41 4C 43 55 4C 41 54 45 20 4E 45 57 EM CALCULATE NEW
0049C0: 20 50 4F 52 54 46 4F 4C 49 4F 20 20 0D 0A 36 38 PORTFOLIO ..68
0049D0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 35 0D 0A 0 FOR I=1 TO 5..
0049E0: 36 39 30 20 4C 45 54 20 50 28 49 29 3D 50 28 49 690 LET P(I)=P(I
0049F0: 29 2B 5A 28 49 29 0D 0A 37 30 30 20 4E 45 58 54 )+Z(I)..700 NEXT
004A00: 20 49 0D 0A 37 31 30 20 52 45 4D 20 43 41 4C 43 I..710 REM CALC
004A10: 55 4C 41 54 45 20 4E 45 57 20 53 54 4F 43 4B 20 ULATE NEW STOCK
004A20: 56 41 4C 55 45 53 20 0D 0A 37 32 30 20 47 4F 53 VALUES ..720 GOS
004A30: 55 42 20 38 33 30 20 0D 0A 37 35 30 20 52 45 4D UB 830 ..750 REM
004A40: 20 50 52 49 4E 54 20 50 4F 52 54 46 4F 4C 49 4F PRINT PORTFOLIO
004A50: 0D 0A 37 35 31 20 52 45 4D 20 42 45 4C 4C 20 52 ..751 REM BELL R
004A60: 49 4E 47 49 4E 47 2D 44 49 46 46 45 52 45 4E 54 INGING-DIFFERENT
004A70: 20 4F 4E 20 4D 41 4E 59 20 43 4F 4D 50 55 54 45 ON MANY COMPUTE
004A80: 52 53 20 0D 0A 37 35 35 20 50 52 49 4E 54 20 0D RS ..755 PRINT .
004A90: 0A 37 35 36 20 50 52 49 4E 54 20 22 2A 2A 2A 2A .756 PRINT "****
004AA0: 2A 2A 2A 2A 2A 2A 20 20 20 20 20 45 4E 44 20 4F ****** END O
004AB0: 46 20 44 41 59 27 53 20 54 52 41 44 49 4E 47 20 F DAY'S TRADING
004AC0: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 0D **********".
004AD0: 0A 37 35 37 20 50 52 49 4E 54 20 0D 0A 37 35 38 .757 PRINT ..758
004AE0: 20 50 52 49 4E 54 20 0D 0A 37 35 39 20 49 46 20 PRINT ..759 IF
004AF0: 58 39 3C 31 20 54 48 45 4E 20 37 36 39 0D 0A 37 X9<1 THEN 769..7
004B00: 3D 31 20 54 4F 20 35 0D 0A 33 30 30 20 4C 45 54 =1 TO 5..300 LET
004B10: 20 50 28 49 29 3D 30 0D 0A 33 30 35 20 4C 45 54 P(I)=0..305 LET
004B20: 20 5A 28 49 29 3D 30 0D 0A 33 31 30 20 4E 45 58 Z(I)=0..310 NEX
004B30: 54 20 49 0D 0A 33 32 30 20 50 52 49 4E 54 20 0D T I..320 PRINT .
004B40: 0A 33 33 30 20 50 52 49 4E 54 20 0D 0A 33 33 33 .330 PRINT ..333
004B50: 20 52 45 4D 20 49 4E 49 54 49 41 4C 49 5A 45 20 REM INITIALIZE
004B60: 43 41 53 48 20 41 53 53 45 54 53 3A 43 20 0D 0A CASH ASSETS:C ..
004B70: 33 33 35 20 4C 45 54 20 43 3D 31 30 30 30 30 20 335 LET C=10000
004B80: 0D 0A 33 33 38 20 52 45 4D 20 50 52 49 4E 54 20 ..338 REM PRINT
004B90: 49 4E 49 54 49 41 4C 20 50 4F 52 54 46 4F 4C 49 INITIAL PORTFOLI
004BA0: 4F 0D 0A 33 34 30 20 50 52 49 4E 54 20 22 53 54 O..340 PRINT "ST
004BB0: 4F 43 4B 22 2C 22 20 22 2C 22 49 4E 49 54 49 41 OCK"," ","INITIA
004BC0: 4C 53 22 2C 22 50 52 49 43 45 2F 53 48 41 52 45 LS","PRICE/SHARE
004BD0: 22 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 49 4E "..350 PRINT "IN
004BE0: 54 2E 20 42 41 4C 4C 49 53 54 49 43 20 4D 49 53 T. BALLISTIC MIS
004BF0: 53 49 4C 45 53 22 2C 22 20 20 49 42 4D 22 2C 53 SILES"," IBM",S
004C00: 28 31 29 0D 0A 33 35 32 20 50 52 49 4E 54 20 22 (1)..352 PRINT "
004C10: 52 45 44 20 43 52 4F 53 53 20 4F 46 20 41 4D 45 RED CROSS OF AME
004C20: 52 49 43 41 22 2C 22 20 20 52 43 41 22 2C 53 28 RICA"," RCA",S(
004C30: 32 29 20 0D 0A 33 35 34 20 50 52 49 4E 54 20 22 2) ..354 PRINT "
004C40: 4C 49 43 48 54 45 4E 53 54 45 49 4E 2C 20 42 55 LICHTENSTEIN, BU
004C50: 4D 52 41 50 20 26 20 4A 4F 4B 45 22 2C 22 20 20 MRAP & JOKE","
004C60: 4C 42 4A 22 2C 53 28 33 29 0D 0A 33 35 36 20 50 LBJ",S(3)..356 P
004C70: 52 49 4E 54 20 22 41 4D 45 52 49 43 41 4E 20 42 RINT "AMERICAN B
004C80: 41 4E 4B 52 55 50 54 20 43 4F 2E 22 2C 22 20 20 ANKRUPT CO.","
004C90: 41 42 43 22 2C 53 28 34 29 0D 0A 33 35 38 20 50 ABC",S(4)..358 P
004CA0: 52 49 4E 54 20 22 43 45 4E 53 55 52 45 44 20 42 RINT "CENSURED B
004CB0: 4F 4F 4B 53 20 53 54 4F 52 45 22 2C 22 20 20 43 OOKS STORE"," C
004CC0: 42 53 22 2C 53 28 35 29 20 0D 0A 33 36 30 20 50 BS",S(5) ..360 P
004CD0: 52 49 4E 54 20 0D 0A 33 36 31 20 52 45 4D 20 4E RINT ..361 REM N
004CE0: 59 53 45 20 41 56 45 52 41 47 45 3A 5A 35 3B 20 YSE AVERAGE:Z5;
004CF0: 54 45 4D 50 2E 20 56 41 4C 55 45 3A 5A 34 3B 20 TEMP. VALUE:Z4;
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 00 00 02 09 52 E5 04 00 C1 02 00 00 00 02 ......R.........
004D20: 04 00 C6 02 00 00 00 02 04 00 C2 02 00 00 00 02 ................
004D30: 04 00 C7 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D40: 04 00 C8 02 00 00 00 02 04 00 C4 02 00 00 00 02 ................
004D50: 04 00 C9 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 36 39 20 50 52 49 4E 54 20 22 53 54 4F 43 4B 22 69 PRINT "STOCK"
004E10: 2C 22 50 52 49 43 45 2F 53 48 41 52 45 22 2C 22 ,"PRICE/SHARE","
004E20: 48 4F 4C 44 49 4E 47 53 22 2C 20 22 56 41 4C 55 HOLDINGS", "VALU
004E30: 45 22 2C 20 22 4E 45 54 20 50 52 49 43 45 20 43 E", "NET PRICE C
004E40: 48 41 4E 47 45 22 0D 0A 37 37 30 20 50 52 49 4E HANGE"..770 PRIN
004E50: 54 20 22 49 42 4D 22 2C 20 53 28 31 29 2C 20 50 T "IBM", S(1), P
004E60: 28 31 29 2C 20 53 28 31 29 2A 50 28 31 29 2C 20 (1), S(1)*P(1),
004E70: 43 28 31 29 0D 0A 37 37 31 20 50 52 49 4E 54 20 C(1)..771 PRINT
004E80: 22 52 43 41 22 2C 20 53 28 32 29 2C 20 50 28 32 "RCA", S(2), P(2
004E90: 29 2C 20 53 28 32 29 2A 50 28 32 29 2C 20 43 28 ), S(2)*P(2), C(
004EA0: 32 29 0D 0A 37 37 32 20 50 52 49 4E 54 20 22 4C 2)..772 PRINT "L
004EB0: 42 4A 22 2C 20 53 28 33 29 2C 20 50 28 33 29 2C BJ", S(3), P(3),
004EC0: 20 53 28 33 29 2A 50 28 33 29 2C 20 43 28 33 29 S(3)*P(3), C(3)
004ED0: 0D 0A 37 37 33 20 50 52 49 4E 54 20 22 41 42 43 ..773 PRINT "ABC
004EE0: 22 2C 20 53 28 34 29 2C 20 50 28 34 29 2C 20 53 ", S(4), P(4), S
004EF0: 28 34 29 2A 50 28 34 29 2C 20 43 28 34 29 0D 0A (4)*P(4), C(4)..
004F00: 37 37 34 20 50 52 49 4E 54 20 22 43 42 53 22 2C 774 PRINT "CBS",
004F10: 20 53 28 35 29 2C 20 50 28 35 29 2C 20 53 28 35 S(5), P(5), S(5
004F20: 29 2A 50 28 35 29 2C 20 43 28 35 29 0D 0A 37 37 )*P(5), C(5)..77
004F30: 35 20 4C 45 54 20 58 39 3D 31 0D 0A 37 38 30 20 5 LET X9=1..780
004F40: 50 52 49 4E 54 20 0D 0A 37 39 30 20 50 52 49 4E PRINT ..790 PRIN
004F50: 54 20 0D 0A 38 31 30 20 47 4F 54 4F 20 33 36 30 T ..810 GOTO 360
004F60: 20 0D 0A 38 32 39 20 52 45 4D 20 4E 45 57 20 53 ..829 REM NEW S
004F70: 54 4F 43 4B 20 56 41 4C 55 45 53 20 2D 20 53 55 TOCK VALUES - SU
004F80: 42 52 4F 55 54 49 4E 45 0D 0A 38 33 30 20 52 45 BROUTINE..830 RE
004F90: 4D 20 52 41 4E 44 4F 4D 4C 59 20 50 52 4F 44 55 M RANDOMLY PRODU
004FA0: 43 45 20 4E 45 57 20 53 54 4F 43 4B 20 56 41 4C CE NEW STOCK VAL
004FB0: 55 45 53 20 42 41 53 45 44 20 4F 4E 20 50 52 45 UES BASED ON PRE
004FC0: 56 49 4F 55 53 0D 0A 38 33 31 20 52 45 4D 20 44 VIOUS..831 REM D
004FD0: 41 59 27 53 20 56 41 4C 55 45 53 20 0D 0A 38 33 AY'S VALUES ..83
004FE0: 32 20 52 45 4D 20 4E 31 2C 4E 32 20 41 52 45 20 2 REM N1,N2 ARE
004FF0: 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 53 20 4F RANDOM NUMBERS O
005000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005200: 46 20 44 41 59 53 20 57 48 49 43 48 20 52 45 53 F DAYS WHICH RES
005210: 50 45 43 54 49 56 45 4C 59 0D 0A 38 33 33 20 52 PECTIVELY..833 R
005220: 45 4D 20 44 45 54 45 52 4D 49 4E 45 20 57 48 45 EM DETERMINE WHE
005230: 4E 20 53 54 4F 43 4B 20 49 31 20 57 49 4C 4C 20 N STOCK I1 WILL
005240: 49 4E 43 52 45 41 53 45 20 31 30 20 50 54 53 2E INCREASE 10 PTS.
005250: 20 41 4E 44 20 53 54 4F 43 4B 0D 0A 38 33 34 20 AND STOCK..834
005260: 52 45 4D 20 49 32 20 57 49 4C 4C 20 44 45 43 52 REM I2 WILL DECR
005270: 45 41 53 45 20 31 30 20 50 54 53 2E 20 0D 0A 38 EASE 10 PTS. ..8
005280: 34 30 20 52 45 4D 20 49 46 20 4E 31 20 44 41 59 40 REM IF N1 DAY
005290: 53 20 48 41 56 45 20 50 41 53 53 45 44 2C 20 50 S HAVE PASSED, P
0052A0: 49 43 4B 20 41 4E 20 49 31 2C 20 53 45 54 20 45 ICK AN I1, SET E
0052B0: 31 2C 20 44 45 54 45 52 4D 49 4E 45 20 4E 45 57 1, DETERMINE NEW
0052C0: 20 4E 31 20 0D 0A 38 34 31 20 49 46 20 4E 31 3E N1 ..841 IF N1>
0052D0: 30 20 54 48 45 4E 20 38 35 30 0D 0A 38 34 35 20 0 THEN 850..845
0052E0: 4C 45 54 20 49 31 3D 49 4E 54 28 34 2E 39 39 2A LET I1=INT(4.99*
0052F0: 52 4E 44 28 58 29 2B 31 29 20 0D 0A 38 34 36 20 RND(X)+1) ..846
005300: 4C 45 54 20 4E 31 3D 49 4E 54 28 34 2E 39 39 2A LET N1=INT(4.99*
005310: 52 4E 44 28 58 29 2B 31 29 20 0D 0A 38 34 37 20 RND(X)+1) ..847
005320: 4C 45 54 20 45 31 3D 31 0D 0A 38 35 30 20 52 45 LET E1=1..850 RE
005330: 4D 20 49 46 20 4E 32 20 44 41 59 53 20 48 41 56 M IF N2 DAYS HAV
005340: 45 20 50 41 53 53 45 44 2C 20 50 49 43 4B 20 41 E PASSED, PICK A
005350: 4E 20 49 32 2C 20 53 45 54 20 45 32 2C 20 44 45 N I2, SET E2, DE
005360: 54 45 52 4D 49 4E 45 20 4E 45 57 20 4E 32 20 0D TERMINE NEW N2 .
005370: 0A 38 35 31 20 49 46 20 4E 32 3E 30 20 54 48 45 .851 IF N2>0 THE
005380: 4E 20 38 36 30 0D 0A 38 35 35 20 4C 45 54 20 49 N 860..855 LET I
005390: 32 3D 49 4E 54 28 34 2E 39 39 2A 52 4E 44 28 58 2=INT(4.99*RND(X
0053A0: 29 2B 31 29 20 0D 0A 38 35 36 20 4C 45 54 20 4E )+1) ..856 LET N
0053B0: 32 3D 49 4E 54 28 34 2E 39 39 2A 52 4E 44 28 58 2=INT(4.99*RND(X
0053C0: 29 2B 31 29 20 0D 0A 38 35 37 20 4C 45 54 20 45 )+1) ..857 LET E
0053D0: 32 3D 31 0D 0A 38 36 30 20 52 45 4D 20 44 45 44 2=1..860 REM DED
0053E0: 55 43 54 20 4F 4E 45 20 44 41 59 20 46 52 4F 4D UCT ONE DAY FROM
0053F0: 20 4E 31 20 41 4E 44 20 4E 32 0D 0A 38 36 31 20 N1 AND N2..861
005400: 69 66 20 31 20 74 68 65 6E 20 70 72 69 6E 74 20 if 1 then print
005410: 22 68 69 22 3A 20 70 72 69 6E 74 20 22 6C 6F 22 "hi": print "lo"
005420: 0D 0A 69 66 20 31 20 74 68 65 6E 20 70 72 69 6E ..if 1 then prin
005430: 74 20 22 74 68 69 73 22 3A 20 70 72 69 6E 74 20 t "this": print
005440: 22 74 68 61 74 22 20 65 6C 73 65 20 70 72 69 6E "that" else prin
005450: 74 20 22 77 68 61 74 20 3F 22 0D 0A 69 66 20 30 t "what ?"..if 0
005460: 20 74 68 65 6E 20 70 72 69 6E 74 20 22 68 65 6C then print "hel
005470: 70 22 3A 20 70 72 69 6E 74 20 22 79 6F 75 72 73 p": print "yours
005480: 22 20 65 6C 73 65 20 70 72 69 6E 74 20 22 6D 69 " else print "mi
005490: 6E 65 22 0D 0A 69 66 20 31 20 74 68 65 6E 20 70 ne"..if 1 then p
0054A0: 72 69 6E 74 20 22 62 6C 75 65 22 20 65 6C 73 65 rint "blue" else
0054B0: 20 70 72 69 6E 74 20 22 79 65 6C 6C 6F 77 22 3A print "yellow":
0054C0: 20 70 72 69 6E 74 20 22 6F 72 61 6E 67 65 22 0D print "orange".
0054D0: 0A 69 66 20 30 20 74 68 65 6E 20 70 72 69 6E 74 .if 0 then print
0054E0: 20 22 62 72 6F 77 6E 22 20 65 6C 73 65 20 70 72 "brown" else pr
0054F0: 69 6E 74 20 22 66 75 63 69 61 22 3A 20 70 72 69 int "fucia": pri
005500: 6E 74 20 22 61 7A 75 72 65 22 0D 0A 69 66 20 31 nt "azure"..if 1
005510: 20 74 68 65 6E 20 70 72 69 6E 74 20 22 62 61 72 then print "bar
005520: 6B 22 3A 20 70 72 69 6E 74 20 22 6D 61 72 6B 22 k": print "mark"
005530: 20 65 6C 73 65 20 70 72 69 6E 74 20 22 7A 61 72 else print "zar
005540: 6B 22 3A 20 70 72 69 6E 74 20 22 66 6C 61 72 6B k": print "flark
005550: 22 20 65 6E 64 69 66 0D 0A 69 66 20 30 20 74 68 " endif..if 0 th
005560: 65 6E 20 70 72 69 6E 74 20 22 77 68 6F 6F 70 73 en print "whoops
005570: 22 3A 20 70 72 69 6E 74 20 22 77 68 61 70 70 73 ": print "whapps
005580: 22 20 65 6C 73 65 20 70 72 69 6E 74 20 22 70 61 " else print "pa
005590: 70 73 22 3A 20 70 72 69 6E 74 20 22 6D 61 70 73 ps": print "maps
0055A0: 22 20 65 6E 64 69 66 0D 0A 69 66 20 31 20 74 68 " endif..if 1 th
0055B0: 65 6E 0D 0A 0D 0A 20 20 20 70 72 69 6E 74 20 22 en.... print "
0055C0: 74 68 69 73 20 69 73 20 31 22 0D 0A 20 20 20 70 this is 1".. p
0055D0: 72 69 6E 74 20 22 74 68 69 73 20 69 73 20 32 22 rint "this is 2"
0055E0: 0D 0A 0D 0A 65 6E 64 69 66 20 0D 0A 0D 0A 69 66 ....endif ....if
0055F0: 20 31 20 74 68 65 6E 0D 0A 0D 0A 20 20 20 70 72 1 then.... pr
005600: 4C 45 54 20 4E 31 3D 4E 31 2D 31 20 0D 0A 38 36 LET N1=N1-1 ..86
005610: 32 20 4C 45 54 20 4E 32 3D 4E 32 2D 31 20 0D 0A 2 LET N2=N2-1 ..
005620: 38 39 30 20 52 45 4D 20 4C 4F 4F 50 20 54 48 52 890 REM LOOP THR
005630: 4F 55 47 48 20 41 4C 4C 20 53 54 4F 43 4B 53 0D OUGH ALL STOCKS.
005640: 0A 39 30 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .900 FOR I=1 TO
005650: 35 0D 0A 39 31 30 20 4C 45 54 20 58 31 3D 52 4E 5..910 LET X1=RN
005660: 44 28 58 29 20 0D 0A 39 31 35 20 49 46 20 58 31 D(X) ..915 IF X1
005670: 3E 2E 32 35 20 54 48 45 4E 20 39 32 30 0D 0A 39 >.25 THEN 920..9
005680: 31 36 20 4C 45 54 20 58 31 3D 2E 32 35 0D 0A 39 16 LET X1=.25..9
005690: 31 37 20 47 4F 54 4F 20 39 33 35 20 0D 0A 39 32 17 GOTO 935 ..92
0056A0: 30 20 49 46 20 58 31 3E 2E 35 20 54 48 45 4E 20 0 IF X1>.5 THEN
0056B0: 39 32 35 0D 0A 39 32 31 20 4C 45 54 20 58 31 3D 925..921 LET X1=
0056C0: 2E 35 0D 0A 39 32 32 20 47 4F 54 4F 20 39 33 35 .5..922 GOTO 935
0056D0: 20 0D 0A 39 32 35 20 49 46 20 58 31 3E 2E 37 35 ..925 IF X1>.75
0056E0: 20 54 48 45 4E 20 39 33 30 0D 0A 39 32 36 20 4C THEN 930..926 L
0056F0: 45 54 20 58 31 3D 2E 37 35 20 20 0D 0A 39 32 37 ET X1=.75 ..927
005700: 20 47 4F 54 4F 20 39 33 35 20 0D 0A 39 33 30 20 GOTO 935 ..930
005710: 4C 45 54 20 58 31 3D 30 2E 30 0D 0A 39 33 31 20 LET X1=0.0..931
005720: 52 45 4D 20 42 49 47 20 43 48 41 4E 47 45 20 43 REM BIG CHANGE C
005730: 4F 4E 53 54 41 4E 54 3A 57 33 20 20 28 53 45 54 ONSTANT:W3 (SET
005740: 20 54 4F 20 5A 45 52 4F 20 49 4E 49 54 49 41 4C TO ZERO INITIAL
005750: 4C 59 29 0D 0A 39 33 35 20 4C 45 54 20 57 33 3D LY)..935 LET W3=
005760: 30 0D 0A 39 33 36 20 49 46 20 45 31 3C 31 20 54 0..936 IF E1<1 T
005770: 48 45 4E 20 39 34 35 0D 0A 39 33 37 20 49 46 20 HEN 945..937 IF
005780: 49 4E 54 28 49 31 2B 2E 35 29 3C 3E 49 4E 54 28 INT(I1+.5)<>INT(
005790: 49 2B 2E 35 29 20 54 48 45 4E 20 39 34 35 20 0D I+.5) THEN 945 .
0057A0: 0A 39 33 38 20 52 45 4D 20 41 44 44 20 31 30 20 .938 REM ADD 10
0057B0: 50 54 53 2E 20 54 4F 20 54 48 49 53 20 53 54 4F PTS. TO THIS STO
0057C0: 43 4B 3B 20 20 52 45 53 45 54 20 45 31 20 0D 0A CK; RESET E1 ..
0057D0: 39 33 39 20 4C 45 54 20 57 33 3D 31 30 20 0D 0A 939 LET W3=10 ..
0057E0: 39 34 33 20 4C 45 54 20 45 31 3D 30 0D 0A 39 34 943 LET E1=0..94
0057F0: 35 20 49 46 20 45 32 3C 31 20 54 48 45 4E 20 39 5 IF E2<1 THEN 9
005800: 69 6E 74 20 22 74 68 69 73 20 69 73 20 33 22 0D int "this is 3".
005810: 0A 20 20 20 70 72 69 6E 74 20 22 74 68 69 73 20 . print "this
005820: 69 73 20 34 22 0D 0A 0D 0A 65 6C 73 65 0D 0A 0D is 4"....else...
005830: 0A 20 20 20 70 72 69 6E 74 20 22 74 68 69 73 20 . print "this
005840: 69 73 20 35 22 0D 0A 20 20 20 70 72 69 6E 74 20 is 5".. print
005850: 22 74 68 69 73 20 69 73 20 36 22 0D 0A 0D 0A 65 "this is 6"....e
005860: 6E 64 69 66 20 20 20 0D 0A 0D 0A 69 66 20 30 20 ndif ....if 0
005870: 74 68 65 6E 0D 0A 0D 0A 20 20 20 70 72 69 6E 74 then.... print
005880: 20 22 74 68 69 73 20 69 73 20 37 22 0D 0A 20 20 "this is 7"..
005890: 20 70 72 69 6E 74 20 22 74 68 69 73 20 69 73 20 print "this is
0058A0: 38 22 0D 0A 0D 0A 65 6C 73 65 0D 0A 0D 0A 20 20 8"....else....
0058B0: 20 70 72 69 6E 74 20 22 74 68 69 73 20 69 73 20 print "this is
0058C0: 39 22 0D 0A 20 20 20 70 72 69 6E 74 20 22 74 68 9".. print "th
0058D0: 69 73 20 69 73 20 31 30 22 0D 0A 0D 0A 65 6E 64 is is 10"....end
0058E0: 69 66 0D 0A 0D 0A 69 66 20 31 20 74 68 65 6E 0D if....if 1 then.
0058F0: 0A 0D 0A 20 20 20 70 72 69 6E 74 20 22 79 65 73 ... print "yes
005900: 22 0D 0A 20 20 20 69 66 20 33 20 74 68 65 6E 0D ".. if 3 then.
005910: 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 6E 6F . print "no
005920: 22 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 ".. else..
005930: 20 20 70 72 69 6E 74 20 22 77 68 79 22 0D 0A 20 print "why"..
005940: 20 20 65 6E 64 69 66 0D 0A 0D 0A 65 6C 73 65 0D endif....else.
005950: 0A 0D 0A 20 20 20 70 72 69 6E 74 20 22 6E 6F 20 ... print "no
005960: 6E 6F 22 0D 0A 20 20 20 69 66 20 30 20 74 68 65 no".. if 0 the
005970: 6E 0D 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 n.. print "
005980: 77 68 6F 22 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 who".. else..
005990: 20 20 20 20 20 70 72 69 6E 74 20 22 77 68 61 74 print "what
0059A0: 22 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 65 ".. endif....e
0059B0: 6E 64 69 66 0D 0A 0D 0A 69 66 20 31 20 74 68 65 ndif....if 1 the
0059C0: 6E 20 70 72 69 6E 74 20 22 77 69 6C 64 22 20 65 n print "wild" e
0059D0: 6C 73 65 20 69 66 20 32 20 74 68 65 6E 20 70 72 lse if 2 then pr
0059E0: 69 6E 74 20 22 62 69 74 65 22 20 65 6C 73 65 20 int "bite" else
0059F0: 70 72 69 6E 74 20 22 63 61 6D 70 69 6E 67 22 0D print "camping".
005A00: 35 35 0D 0A 39 34 37 20 49 46 20 49 4E 54 28 49 55..947 IF INT(I
005A10: 32 2B 2E 35 29 3C 3E 49 4E 54 28 49 2B 2E 35 29 2+.5)<>INT(I+.5)
005A20: 20 54 48 45 4E 20 39 35 35 20 0D 0A 39 34 38 20 THEN 955 ..948
005A30: 52 45 4D 20 53 55 42 54 52 41 43 54 20 31 30 20 REM SUBTRACT 10
005A40: 50 54 53 2E 20 46 52 4F 4D 20 54 48 49 53 20 53 PTS. FROM THIS S
005A50: 54 4F 43 4B 3B 20 20 52 45 53 45 54 20 45 32 0D TOCK; RESET E2.
005A60: 0A 39 34 39 20 4C 45 54 20 57 33 3D 57 33 2D 31 .949 LET W3=W3-1
005A70: 30 0D 0A 39 35 33 20 4C 45 54 20 45 32 3D 30 0D 0..953 LET E2=0.
005A80: 0A 39 35 34 20 52 45 4D 20 43 28 49 29 20 49 53 .954 REM C(I) IS
005A90: 20 43 48 41 4E 47 45 20 49 4E 20 53 54 4F 43 4B CHANGE IN STOCK
005AA0: 20 56 41 4C 55 45 0D 0A 39 35 35 20 4C 45 54 20 VALUE..955 LET
005AB0: 43 28 49 29 3D 49 4E 54 28 41 2A 53 28 49 29 29 C(I)=INT(A*S(I))
005AC0: 2B 58 31 2B 49 4E 54 28 33 2D 36 2A 52 4E 44 28 +X1+INT(3-6*RND(
005AD0: 58 29 2B 2E 35 29 2B 57 33 20 0D 0A 39 35 36 20 X)+.5)+W3 ..956
005AE0: 4C 45 54 20 43 28 49 29 3D 49 4E 54 28 31 30 30 LET C(I)=INT(100
005AF0: 2A 43 28 49 29 2B 2E 35 29 2F 31 30 30 20 0D 0A *C(I)+.5)/100 ..
005B00: 39 35 37 20 4C 45 54 20 53 28 49 29 3D 53 28 49 957 LET S(I)=S(I
005B10: 29 2B 43 28 49 29 0D 0A 39 36 30 20 49 46 20 53 )+C(I)..960 IF S
005B20: 28 49 29 3E 30 20 54 48 45 4E 20 39 36 37 0D 0A (I)>0 THEN 967..
005B30: 39 36 34 20 4C 45 54 20 43 28 49 29 3D 30 0D 0A 964 LET C(I)=0..
005B40: 39 36 35 20 4C 45 54 20 53 28 49 29 3D 30 0D 0A 965 LET S(I)=0..
005B50: 39 36 36 20 47 4F 54 4F 20 39 37 30 20 0D 0A 39 966 GOTO 970 ..9
005B60: 36 37 20 4C 45 54 20 53 28 49 29 3D 49 4E 54 28 67 LET S(I)=INT(
005B70: 31 30 30 2A 53 28 49 29 2B 2E 35 29 2F 31 30 30 100*S(I)+.5)/100
005B80: 20 0D 0A 39 37 30 20 4E 45 58 54 20 49 0D 0A 39 ..970 NEXT I..9
005B90: 37 32 20 52 45 4D 20 41 46 54 45 52 20 54 38 20 72 REM AFTER T8
005BA0: 44 41 59 53 20 52 41 4E 44 4F 4D 4C 59 20 43 48 DAYS RANDOMLY CH
005BB0: 41 4E 47 45 20 54 52 45 4E 44 20 53 49 47 4E 20 ANGE TREND SIGN
005BC0: 41 4E 44 20 53 4C 4F 50 45 20 0D 0A 39 37 33 20 AND SLOPE ..973
005BD0: 4C 45 54 20 54 38 3D 54 38 2D 31 20 0D 0A 39 37 LET T8=T8-1 ..97
005BE0: 34 20 49 46 20 54 38 3C 31 20 54 48 45 4E 20 39 4 IF T8<1 THEN 9
005BF0: 38 35 0D 0A 39 38 30 20 52 45 54 55 52 4E 0D 0A 85..980 RETURN..
005C00: 0A 0D 0A 69 66 20 31 20 74 68 65 6E 20 70 72 69 ...if 1 then pri
005C10: 6E 74 20 22 63 61 72 70 22 3A 20 69 66 20 31 20 nt "carp": if 1
005C20: 74 68 65 6E 20 70 72 69 6E 74 20 22 62 61 74 22 then print "bat"
005C30: 3A 20 69 66 20 31 20 74 68 65 6E 0D 0A 0D 0A 20 : if 1 then....
005C40: 20 20 70 72 69 6E 74 20 22 73 74 65 65 6C 68 65 print "steelhe
005C50: 61 64 22 0D 0A 0D 0A 65 6E 64 69 66 20 0D 0A 0D ad"....endif ...
005C60: 0A 69 66 20 31 20 74 68 65 6E 20 70 72 69 6E 74 .if 1 then print
005C70: 20 22 61 64 64 65 72 22 20 65 6C 73 65 0D 0A 0D "adder" else...
005C80: 0A 20 20 20 70 72 69 6E 74 20 22 77 68 61 74 63 . print "whatc
005C90: 68 61 63 61 6C 6C 69 74 22 0D 0A 20 20 20 70 72 hacallit".. pr
005CA0: 69 6E 74 20 22 73 6D 61 63 6B 22 0D 0A 0D 0A 65 int "smack"....e
005CB0: 6E 64 69 66 0D 0A 0D 0A 69 66 20 30 20 74 68 65 ndif....if 0 the
005CC0: 6E 20 70 72 69 6E 74 20 22 6C 61 73 74 22 20 65 n print "last" e
005CD0: 6C 73 65 0D 0A 0D 0A 20 20 20 70 72 69 6E 74 20 lse.... print
005CE0: 22 79 65 70 22 0D 0A 20 20 20 70 72 69 6E 74 20 "yep".. print
005CF0: 22 68 6F 77 73 69 74 22 0D 0A 0D 0A 65 6E 64 69 "howsit"....endi
005D00: 66 0D 0A 0D 0A 73 65 6C 65 63 74 20 31 0D 0A 0D f....select 1...
005D10: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
005D20: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
005D30: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
005D40: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
005D50: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
005D60: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
005D70: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
005D80: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 32 0D 0A 0D l....select 2...
005D90: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
005DA0: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
005DB0: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
005DC0: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
005DD0: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
005DE0: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
005DF0: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
005E00: 39 38 35 20 52 45 4D 20 52 41 4E 44 4F 4D 4C 59 985 REM RANDOMLY
005E10: 20 43 48 41 4E 47 45 20 54 52 45 4E 44 20 53 49 CHANGE TREND SI
005E20: 47 4E 20 41 4E 44 20 53 4C 4F 50 45 20 28 41 29 GN AND SLOPE (A)
005E30: 2C 20 41 4E 44 20 44 55 52 41 54 49 4F 4E 20 0D , AND DURATION .
005E40: 0A 39 38 36 20 52 45 4D 20 4F 46 20 54 52 45 4E .986 REM OF TREN
005E50: 44 20 28 54 38 29 0D 0A 39 39 30 20 4C 45 54 20 D (T8)..990 LET
005E60: 54 38 3D 49 4E 54 28 34 2E 39 39 2A 52 4E 44 28 T8=INT(4.99*RND(
005E70: 58 29 2B 31 29 20 0D 0A 39 39 32 20 4C 45 54 20 X)+1) ..992 LET
005E80: 41 3D 49 4E 54 28 28 52 4E 44 28 58 29 2F 31 30 A=INT((RND(X)/10
005E90: 29 2A 31 30 30 2B 2E 35 29 2F 31 30 30 20 0D 0A )*100+.5)/100 ..
005EA0: 39 39 33 20 4C 45 54 20 53 34 3D 52 4E 44 28 58 993 LET S4=RND(X
005EB0: 29 20 0D 0A 39 39 34 20 49 46 20 53 34 3C 3D 2E ) ..994 IF S4<=.
005EC0: 35 20 54 48 45 4E 20 39 39 37 0D 0A 39 39 35 20 5 THEN 997..995
005ED0: 4C 45 54 20 41 3D 2D 41 0D 0A 39 39 37 20 52 45 LET A=-A..997 RE
005EE0: 54 55 52 4E 0D 0A 39 39 38 20 50 52 49 4E 54 20 TURN..998 PRINT
005EF0: 22 48 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 "HOPE YOU HAD FU
005F00: 4E 21 21 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A N!!"..999 END...
005F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 00 00 02 09 52 E5 05 00 C1 02 00 00 00 02 ......R.........
006020: 05 00 C6 02 00 00 00 02 05 00 C2 02 00 00 00 02 ................
006030: 05 00 C7 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006040: 05 00 C8 02 00 00 00 02 05 00 C4 02 00 00 00 02 ................
006050: 05 00 C9 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 33 0D 0A 0D l....select 3...
006110: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
006120: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
006130: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
006140: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
006150: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
006160: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
006170: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
006180: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 34 0D 0A 0D l....select 4...
006190: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
0061A0: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
0061B0: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
0061C0: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
0061D0: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
0061E0: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
0061F0: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
006200: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 32 33 34 0D l....select 234.
006210: 0A 0D 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 ... case 1: pr
006220: 69 6E 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 int "one".. ca
006230: 73 65 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F se 2: print "two
006240: 22 0D 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 ".. case 3: pr
006250: 69 6E 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 int "three"..
006260: 6F 74 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 other: print "s
006270: 6F 6D 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 omething"....end
006280: 73 65 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 31 30 sel....select 10
006290: 0D 0A 0D 0A 20 20 20 63 61 73 65 20 31 3A 20 70 .... case 1: p
0062A0: 72 69 6E 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 rint "one".. c
0062B0: 61 73 65 20 32 3A 20 70 72 69 6E 74 20 22 74 77 ase 2: print "tw
0062C0: 6F 22 0D 0A 20 20 20 63 61 73 65 20 33 3A 20 70 o".. case 3: p
0062D0: 72 69 6E 74 20 22 74 68 72 65 65 22 0D 0A 0D 0A rint "three"....
0062E0: 65 6E 64 73 65 6C 0D 0A 70 72 69 6E 74 20 22 61 endsel..print "a
0062F0: 6E 64 20 61 66 74 65 72 22 0D 0A 0D 0A 73 65 6C nd after"....sel
006300: 34 35 20 52 3D 52 2B 31 3A 20 49 46 20 52 3E 35 45 R=R+1: IF R>5
006310: 20 54 48 45 4E 20 33 39 30 0D 0A 33 35 30 20 4F THEN 390..350 O
006320: 4E 20 52 20 47 4F 54 4F 20 33 35 35 2C 33 36 30 N R GOTO 355,360
006330: 2C 33 36 35 2C 33 37 30 2C 33 37 35 0D 0A 33 35 ,365,370,375..35
006340: 35 20 50 33 3D 49 4E 54 28 50 31 2A 2E 30 35 29 5 P3=INT(P1*.05)
006350: 2A 32 30 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 *20: GOTO 390..3
006360: 36 30 20 50 33 3D 49 4E 54 28 50 31 2A 2E 31 29 60 P3=INT(P1*.1)
006370: 2A 31 30 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 *10: GOTO 390..3
006380: 36 35 20 50 33 3D 49 4E 54 28 50 31 2A 2E 35 29 65 P3=INT(P1*.5)
006390: 2A 32 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 37 *2: GOTO 390..37
0063A0: 30 20 50 33 3D 49 4E 54 28 50 31 29 3A 20 47 4F 0 P3=INT(P1): GO
0063B0: 54 4F 20 33 39 30 0D 0A 33 37 35 20 50 33 3D 50 TO 390..375 P3=P
0063C0: 31 0D 0A 33 39 30 20 50 52 49 4E 54 20 22 20 20 1..390 PRINT "
0063D0: 20 20 20 45 53 54 49 4D 41 54 45 44 20 44 49 53 ESTIMATED DIS
0063E0: 54 41 4E 43 45 3A 22 3B 50 33 0D 0A 34 30 30 20 TANCE:";P3..400
0063F0: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 49 4E 50 PRINT:PRINT "INP
006400: 55 54 20 41 4E 47 4C 45 20 44 45 56 49 41 54 49 UT ANGLE DEVIATI
006410: 4F 4E 20 46 52 4F 4D 20 58 2C 20 44 45 56 49 41 ON FROM X, DEVIA
006420: 54 49 4F 4E 20 46 52 4F 4D 20 5A 2C 20 44 49 53 TION FROM Z, DIS
006430: 54 41 4E 43 45 22 3B 0D 0A 34 30 35 20 49 4E 50 TANCE";..405 INP
006440: 55 54 20 41 31 2C 42 31 2C 50 32 0D 0A 34 31 30 UT A1,B1,P2..410
006450: 20 50 52 49 4E 54 3A 20 49 46 20 50 32 3C 32 30 PRINT: IF P2<20
006460: 20 54 48 45 4E 20 50 52 49 4E 54 20 22 59 4F 55 THEN PRINT "YOU
006470: 20 42 4C 45 57 20 59 4F 55 52 53 45 4C 46 20 55 BLEW YOURSELF U
006480: 50 21 21 22 3A 20 47 4F 54 4F 20 35 38 30 0D 0A P!!": GOTO 580..
006490: 34 32 30 20 41 31 3D 41 31 2F 52 31 3A 20 42 31 420 A1=A1/R1: B1
0064A0: 3D 42 31 2F 52 31 3A 20 50 52 49 4E 54 20 22 52 =B1/R1: PRINT "R
0064B0: 41 44 49 41 4E 53 20 46 52 4F 4D 20 58 20 41 58 ADIANS FROM X AX
0064C0: 49 53 20 3D 22 3B 41 31 3B 22 20 20 22 3B 0D 0A IS =";A1;" ";..
0064D0: 34 32 35 20 50 52 49 4E 54 20 22 46 52 4F 4D 20 425 PRINT "FROM
0064E0: 5A 20 41 58 49 53 20 3D 22 3B 42 31 0D 0A 34 38 Z AXIS =";B1..48
0064F0: 30 20 58 31 3D 50 32 2A 53 49 4E 28 42 31 29 2A 0 X1=P2*SIN(B1)*
006500: 65 63 74 20 22 66 6F 72 6B 22 0D 0A 0D 0A 20 20 ect "fork"....
006510: 20 63 61 73 65 20 22 6B 6E 69 66 65 22 3A 20 70 case "knife": p
006520: 72 69 6E 74 20 22 69 74 73 20 61 20 6B 6E 69 66 rint "its a knif
006530: 65 22 0D 0A 20 20 20 63 61 73 65 20 22 73 70 6F e".. case "spo
006540: 6F 6E 22 3A 20 70 72 69 6E 74 20 22 69 74 73 20 on": print "its
006550: 61 20 73 70 6F 6F 6E 22 0D 0A 20 20 20 63 61 73 a spoon".. cas
006560: 65 20 22 66 6F 72 6B 22 3A 20 20 70 72 69 6E 74 e "fork": print
006570: 20 22 69 74 73 20 61 20 66 6F 72 6B 22 0D 0A 20 "its a fork"..
006580: 20 20 6F 74 68 65 72 3A 20 20 20 20 20 20 20 20 other:
006590: 70 72 69 6E 74 20 22 64 6F 6E 27 74 20 6B 6E 6F print "don't kno
0065A0: 77 20 77 68 61 74 20 69 74 20 69 73 22 0D 0A 0D w what it is"...
0065B0: 0A 65 6E 64 73 65 6C 0D 0A 0D 0A 73 65 6C 65 63 .endsel....selec
0065C0: 74 20 31 2E 32 0D 0A 0D 0A 20 20 20 63 61 73 65 t 1.2.... case
0065D0: 20 31 2E 31 3A 20 70 72 69 6E 74 20 22 70 6F 69 1.1: print "poi
0065E0: 6E 74 20 31 22 0D 0A 20 20 20 63 61 73 65 20 31 nt 1".. case 1
0065F0: 2E 32 3A 20 70 72 69 6E 74 20 22 70 6F 69 6E 74 .2: print "point
006600: 20 32 22 0D 0A 20 20 20 63 61 73 65 20 31 2E 33 2".. case 1.3
006610: 3A 20 70 72 69 6E 74 20 22 70 6F 69 6E 74 20 33 : print "point 3
006620: 22 0D 0A 0D 0A 65 6E 64 73 65 6C 0D 0A 0D 0A 73 "....endsel....s
006630: 65 6C 65 63 74 20 31 3A 20 63 61 73 65 20 31 3A elect 1: case 1:
006640: 20 70 72 69 6E 74 20 22 6F 6E 65 22 3A 20 63 61 print "one": ca
006650: 73 65 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F se 2: print "two
006660: 22 3A 20 63 61 73 65 20 33 3A 20 70 72 69 6E 74 ": case 3: print
006670: 20 22 74 68 72 65 65 22 20 65 6E 64 73 65 6C 0D "three" endsel.
006680: 0A 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0066A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0066B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0066C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0066D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0066E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0066F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006700: 43 4F 53 28 41 31 29 3A 20 59 31 3D 50 32 2A 53 COS(A1): Y1=P2*S
006710: 49 4E 28 42 31 29 2A 53 49 4E 28 41 31 29 3A 20 IN(B1)*SIN(A1):
006720: 5A 31 3D 50 32 2A 43 4F 53 28 42 31 29 0D 0A 35 Z1=P2*COS(B1)..5
006730: 31 30 20 44 3D 28 28 58 31 2D 58 29 5E 32 2B 28 10 D=((X1-X)^2+(
006740: 59 31 2D 59 29 5E 32 2B 28 5A 31 2D 5A 29 5E 32 Y1-Y)^2+(Z1-Z)^2
006750: 29 5E 28 31 2F 32 29 0D 0A 35 32 30 20 49 46 20 )^(1/2)..520 IF
006760: 44 3E 32 30 20 54 48 45 4E 20 36 37 30 0D 0A 35 D>20 THEN 670..5
006770: 33 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 30 PRINT: PRINT
006780: 22 20 2A 20 2A 20 2A 20 48 49 54 20 2A 20 2A 20 " * * * HIT * *
006790: 2A 20 20 20 54 41 52 47 45 54 20 49 53 20 4E 4F * TARGET IS NO
0067A0: 4E 2D 46 55 4E 43 54 49 4F 4E 41 4C 22 3A 20 50 N-FUNCTIONAL": P
0067B0: 52 49 4E 54 0D 0A 35 35 30 20 50 52 49 4E 54 20 RINT..550 PRINT
0067C0: 22 44 49 53 54 41 4E 43 45 20 4F 46 20 45 58 50 "DISTANCE OF EXP
0067D0: 4C 4F 53 49 4F 4E 20 46 52 4F 4D 20 54 41 52 47 LOSION FROM TARG
0067E0: 45 54 20 57 41 53 22 3B 44 3B 22 4B 49 4C 4F 4D ET WAS";D;"KILOM
0067F0: 45 54 45 52 53 2E 22 0D 0A 35 37 30 20 50 52 49 ETERS."..570 PRI
006800: 4E 54 3A 20 50 52 49 4E 54 20 22 4D 49 53 53 49 NT: PRINT "MISSI
006810: 4F 4E 20 41 43 43 4F 4D 50 4C 49 53 48 45 44 20 ON ACCOMPLISHED
006820: 49 4E 20 22 3B 52 3B 22 20 53 48 4F 54 53 2E 22 IN ";R;" SHOTS."
006830: 0D 0A 35 38 30 20 52 3D 30 3A 20 46 4F 52 20 49 ..580 R=0: FOR I
006840: 3D 31 20 54 4F 20 35 3A 20 50 52 49 4E 54 3A 20 =1 TO 5: PRINT:
006850: 4E 45 58 54 20 49 3A 20 50 52 49 4E 54 20 22 4E NEXT I: PRINT "N
006860: 45 58 54 20 54 41 52 47 45 54 2E 2E 2E 22 3A 20 EXT TARGET...":
006870: 50 52 49 4E 54 0D 0A 35 39 30 20 47 4F 54 4F 20 PRINT..590 GOTO
006880: 32 32 30 0D 0A 36 37 30 20 58 32 3D 58 31 2D 58 220..670 X2=X1-X
006890: 3A 20 59 32 3D 59 31 2D 59 3A 20 5A 32 3D 5A 31 : Y2=Y1-Y: Z2=Z1
0068A0: 2D 5A 3A 20 49 46 20 58 32 3C 30 20 54 48 45 4E -Z: IF X2<0 THEN
0068B0: 20 37 33 30 0D 0A 37 31 30 20 50 52 49 4E 54 20 730..710 PRINT
0068C0: 22 53 48 4F 54 20 49 4E 20 46 52 4F 4E 54 20 4F "SHOT IN FRONT O
0068D0: 46 20 54 41 52 47 45 54 22 3B 58 32 3B 22 4B 49 F TARGET";X2;"KI
0068E0: 4C 4F 4D 45 54 45 52 53 2E 22 3A 20 47 4F 54 4F LOMETERS.": GOTO
0068F0: 20 37 34 30 0D 0A 37 33 30 20 50 52 49 4E 54 20 740..730 PRINT
006900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0069A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0069B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0069C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0069D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0069E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0069F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006B00: 22 53 48 4F 54 20 42 45 48 49 4E 44 20 54 41 52 "SHOT BEHIND TAR
006B10: 47 45 54 22 3B 2D 58 32 3B 22 4B 49 4C 4F 4D 45 GET";-X2;"KILOME
006B20: 54 45 52 53 2E 22 0D 0A 37 34 30 20 49 46 20 59 TERS."..740 IF Y
006B30: 32 3C 30 20 54 48 45 4E 20 37 37 30 0D 0A 37 35 2<0 THEN 770..75
006B40: 30 20 50 52 49 4E 54 20 22 53 48 4F 54 20 54 4F 0 PRINT "SHOT TO
006B50: 20 4C 45 46 54 20 4F 46 20 54 41 52 47 45 54 22 LEFT OF TARGET"
006B60: 3B 59 32 3B 22 4B 49 4C 4F 4D 45 54 45 52 53 2E ;Y2;"KILOMETERS.
006B70: 22 3A 20 47 4F 54 4F 20 37 38 30 0D 0A 37 37 30 ": GOTO 780..770
006B80: 20 50 52 49 4E 54 20 22 53 48 4F 54 20 54 4F 20 PRINT "SHOT TO
006B90: 52 49 47 48 54 20 4F 46 20 54 41 52 47 45 54 22 RIGHT OF TARGET"
006BA0: 3B 2D 59 32 3B 22 4B 49 4C 4F 4D 45 54 45 52 53 ;-Y2;"KILOMETERS
006BB0: 2E 22 0D 0A 37 38 30 20 49 46 20 5A 32 3C 30 20 ."..780 IF Z2<0
006BC0: 54 48 45 4E 20 38 31 30 0D 0A 37 39 30 20 50 52 THEN 810..790 PR
006BD0: 49 4E 54 20 22 53 48 4F 54 20 41 42 4F 56 45 20 INT "SHOT ABOVE
006BE0: 54 41 52 47 45 54 22 3B 5A 32 3B 22 4B 49 4C 4F TARGET";Z2;"KILO
006BF0: 4D 45 54 45 52 53 2E 22 3A 20 47 4F 54 4F 20 38 METERS.": GOTO 8
006C00: 32 30 0D 0A 38 31 30 20 50 52 49 4E 54 20 22 53 20..810 PRINT "S
006C10: 48 4F 54 20 42 45 4C 4F 57 20 54 41 52 47 45 54 HOT BELOW TARGET
006C20: 22 3B 2D 5A 32 3B 22 4B 49 4C 4F 4D 45 54 45 52 ";-Z2;"KILOMETER
006C30: 53 2E 22 0D 0A 38 32 30 20 50 52 49 4E 54 20 22 S."..820 PRINT "
006C40: 41 50 50 52 4F 58 20 50 4F 53 49 54 49 4F 4E 20 APPROX POSITION
006C50: 4F 46 20 45 58 50 4C 4F 53 49 4F 4E 3A 20 20 58 OF EXPLOSION: X
006C60: 3D 22 3B 58 31 3B 22 20 20 20 59 3D 22 3B 59 31 =";X1;" Y=";Y1
006C70: 3B 22 20 20 20 5A 3D 22 3B 5A 31 0D 0A 38 33 30 ;" Z=";Z1..830
006C80: 20 50 52 49 4E 54 20 22 20 20 20 20 20 44 49 53 PRINT " DIS
006C90: 54 41 4E 43 45 20 46 52 4F 4D 20 54 41 52 47 45 TANCE FROM TARGE
006CA0: 54 20 3D 22 3B 44 3A 20 50 52 49 4E 54 3A 20 50 T =";D: PRINT: P
006CB0: 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 RINT: PRINT: GOT
006CC0: 4F 20 33 34 35 0D 0A 39 39 39 20 45 4E 44 0D 0A O 345..999 END..
006CD0: 1A 3D 4B 39 2B 31 0D 0A 39 38 30 20 42 33 3D 30 .=K9+1..980 B3=0
006CE0: 3A 49 46 52 4E 44 28 31 29 3E 2E 39 36 54 48 45 :IFRND(1)>.96THE
006CF0: 4E 42 33 3D 31 3A 42 39 3D 42 39 2B 31 0D 0A 31 NB3=1:B9=B9+1..1
006D00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
006D10: 3B 22 54 41 52 47 45 54 22 0D 0A 32 30 20 50 52 ;"TARGET"..20 PR
006D20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
006D30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
006D40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
006D50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
006D60: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
006D70: 0D 0A 31 30 30 20 52 3D 31 3A 20 52 31 3D 35 37 ..100 R=1: R1=57
006D80: 2E 32 39 36 3A 20 50 3D 33 2E 31 34 31 35 39 0D .296: P=3.14159.
006D90: 0A 31 31 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .110 PRINT "YOU
006DA0: 41 52 45 20 54 48 45 20 57 45 41 50 4F 4E 53 20 ARE THE WEAPONS
006DB0: 4F 46 46 49 43 45 52 20 4F 4E 20 54 48 45 20 53 OFFICER ON THE S
006DC0: 54 41 52 53 48 49 50 20 45 4E 54 45 52 50 52 49 TARSHIP ENTERPRI
006DD0: 53 45 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 SE"..120 PRINT "
006DE0: 41 4E 44 20 54 48 49 53 20 49 53 20 41 20 54 45 AND THIS IS A TE
006DF0: 53 54 20 54 4F 20 53 45 45 20 48 4F 57 20 41 43 ST TO SEE HOW AC
006E00: 43 55 52 41 54 45 20 41 20 53 48 4F 54 20 59 4F CURATE A SHOT YO
006E10: 55 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 41 U"..130 PRINT "A
006E20: 52 45 20 49 4E 20 41 20 54 48 52 45 45 2D 44 49 RE IN A THREE-DI
006E30: 4D 45 4E 53 49 4F 4E 41 4C 20 52 41 4E 47 45 2E MENSIONAL RANGE.
006E40: 20 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 54 4F YOU WILL BE TO
006E50: 4C 44 22 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 LD"..140 PRINT "
006E60: 54 48 45 20 52 41 44 49 41 4E 20 4F 46 46 53 45 THE RADIAN OFFSE
006E70: 54 20 46 4F 52 20 54 48 45 20 58 20 41 4E 44 20 T FOR THE X AND
006E80: 5A 20 41 58 45 53 2C 20 54 48 45 20 4C 4F 43 41 Z AXES, THE LOCA
006E90: 54 49 4F 4E 22 0D 0A 31 35 30 20 50 52 49 4E 54 TION"..150 PRINT
006EA0: 20 22 4F 46 20 54 48 45 20 54 41 52 47 45 54 20 "OF THE TARGET
006EB0: 49 4E 20 54 48 52 45 45 20 44 49 4D 45 4E 53 49 IN THREE DIMENSI
006EC0: 4F 4E 41 4C 20 52 45 43 54 41 4E 47 55 4C 41 52 ONAL RECTANGULAR
006ED0: 20 43 4F 4F 52 44 49 4E 41 54 45 53 2C 22 0D 0A COORDINATES,"..
006EE0: 31 36 30 20 50 52 49 4E 54 20 22 54 48 45 20 41 160 PRINT "THE A
006EF0: 50 50 52 4F 58 49 4D 41 54 45 20 4E 55 4D 42 45 PPROXIMATE NUMBE
006F00: 30 34 30 20 47 28 49 2C 4A 29 3D 4B 33 2A 31 30 040 G(I,J)=K3*10
006F10: 30 2B 42 33 2A 31 30 2B 46 4E 52 28 31 29 3A 4E 0+B3*10+FNR(1):N
006F20: 45 58 54 4A 3A 4E 45 58 54 49 3A 49 46 4B 39 3E EXTJ:NEXTI:IFK9>
006F30: 54 39 54 48 45 4E 54 39 3D 4B 39 2B 31 0D 0A 31 T9THENT9=K9+1..1
006F40: 31 30 30 20 49 46 42 39 3C 3E 30 54 48 45 4E 31 100 IFB9<>0THEN1
006F50: 32 30 30 0D 0A 31 31 35 30 20 49 46 47 28 51 31 200..1150 IFG(Q1
006F60: 2C 51 32 29 3C 32 30 30 54 48 45 4E 47 28 51 31 ,Q2)<200THENG(Q1
006F70: 2C 51 32 29 3D 47 28 51 31 2C 51 32 29 2B 31 32 ,Q2)=G(Q1,Q2)+12
006F80: 30 3A 4B 39 3D 4B 39 2B 31 0D 0A 31 31 36 30 20 0:K9=K9+1..1160
006F90: 42 39 3D 31 3A 47 28 51 31 2C 51 32 29 3D 47 28 B9=1:G(Q1,Q2)=G(
006FA0: 51 31 2C 51 32 29 2B 31 30 3A 51 31 3D 46 4E 52 Q1,Q2)+10:Q1=FNR
006FB0: 28 31 29 3A 51 32 3D 46 4E 52 28 31 29 0D 0A 31 (1):Q2=FNR(1)..1
006FC0: 32 30 30 20 4B 37 3D 4B 39 3A 49 46 42 39 3C 3E 200 K7=K9:IFB9<>
006FD0: 31 54 48 45 4E 58 24 3D 22 53 22 3A 58 30 24 3D 1THENX$="S":X0$=
006FE0: 22 20 41 52 45 20 22 0D 0A 31 32 33 30 20 50 52 " ARE "..1230 PR
006FF0: 49 4E 54 22 59 4F 55 52 20 4F 52 44 45 52 53 20 INT"YOUR ORDERS
007000: 41 52 45 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 ARE AS FOLLOWS:"
007010: 0D 0A 31 32 34 30 20 50 52 49 4E 54 22 20 20 20 ..1240 PRINT"
007020: 20 20 44 45 53 54 52 4F 59 20 54 48 45 22 3B 4B DESTROY THE";K
007030: 39 3B 22 4B 4C 49 4E 47 4F 4E 20 57 41 52 53 48 9;"KLINGON WARSH
007040: 49 50 53 20 57 48 49 43 48 20 48 41 56 45 20 49 IPS WHICH HAVE I
007050: 4E 56 41 44 45 44 22 0D 0A 31 32 35 32 20 50 52 NVADED"..1252 PR
007060: 49 4E 54 22 20 20 20 54 48 45 20 47 41 4C 41 58 INT" THE GALAX
007070: 59 20 42 45 46 4F 52 45 20 54 48 45 59 20 43 41 Y BEFORE THEY CA
007080: 4E 20 41 54 54 41 43 4B 20 46 45 44 45 52 41 54 N ATTACK FEDERAT
007090: 49 4F 4E 20 48 45 41 44 51 55 41 52 54 45 52 53 ION HEADQUARTERS
0070A0: 22 0D 0A 31 32 36 30 20 50 52 49 4E 54 22 20 20 "..1260 PRINT"
0070B0: 20 4F 4E 20 53 54 41 52 44 41 54 45 22 3B 54 30 ON STARDATE";T0
0070C0: 2B 54 39 3B 22 20 20 54 48 49 53 20 47 49 56 45 +T9;" THIS GIVE
0070D0: 53 20 59 4F 55 22 3B 54 39 3B 22 44 41 59 53 2E S YOU";T9;"DAYS.
0070E0: 20 20 54 48 45 52 45 22 3B 58 30 24 0D 0A 31 32 THERE";X0$..12
0070F0: 37 32 20 50 52 49 4E 54 22 20 20 22 3B 42 39 3B 72 PRINT" ";B9;
007100: 52 20 4F 46 20 44 45 47 52 45 45 53 20 46 52 4F R OF DEGREES FRO
007110: 4D 20 54 48 45 20 58 20 41 4E 44 20 5A 22 0D 0A M THE X AND Z"..
007120: 31 37 30 20 50 52 49 4E 54 20 22 41 58 45 53 2C 170 PRINT "AXES,
007130: 20 41 4E 44 20 54 48 45 20 41 50 50 52 4F 58 49 AND THE APPROXI
007140: 4D 41 54 45 20 44 49 53 54 41 4E 43 45 20 54 4F MATE DISTANCE TO
007150: 20 54 48 45 20 54 41 52 47 45 54 2E 22 0D 0A 31 THE TARGET."..1
007160: 38 30 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 80 PRINT "YOU WI
007170: 4C 4C 20 54 48 45 4E 20 50 52 4F 43 45 45 45 44 LL THEN PROCEEED
007180: 20 54 4F 20 53 48 4F 4F 54 20 41 54 20 54 48 45 TO SHOOT AT THE
007190: 20 54 41 52 47 45 54 20 55 4E 54 49 4C 20 49 54 TARGET UNTIL IT
0071A0: 20 49 53 22 0D 0A 31 39 30 20 50 52 49 4E 54 20 IS"..190 PRINT
0071B0: 22 44 45 53 54 52 4F 59 45 44 21 22 3A 20 50 52 "DESTROYED!": PR
0071C0: 49 4E 54 3A 20 50 52 49 4E 54 20 22 47 4F 4F 44 INT: PRINT "GOOD
0071D0: 20 4C 55 43 4B 21 21 22 3A 50 52 49 4E 54 3A 20 LUCK!!":PRINT:
0071E0: 50 52 49 4E 54 0D 0A 32 32 30 20 41 3D 52 4E 44 PRINT..220 A=RND
0071F0: 28 31 29 2A 32 2A 50 3A 20 42 3D 52 4E 44 28 31 (1)*2*P: B=RND(1
007200: 29 2A 32 2A 50 3A 20 51 3D 49 4E 54 28 41 2A 52 )*2*P: Q=INT(A*R
007210: 31 29 3A 20 57 3D 49 4E 54 28 42 2A 52 31 29 0D 1): W=INT(B*R1).
007220: 0A 32 36 30 20 50 52 49 4E 54 20 22 52 41 44 49 .260 PRINT "RADI
007230: 41 4E 53 20 46 52 4F 4D 20 58 20 41 58 49 53 20 ANS FROM X AXIS
007240: 3D 22 3B 41 3B 22 20 20 20 46 52 4F 4D 20 5A 20 =";A;" FROM Z
007250: 41 58 49 53 20 3D 22 3B 42 0D 0A 32 38 30 20 50 AXIS =";B..280 P
007260: 31 3D 31 30 30 30 30 30 2A 52 4E 44 28 31 29 2B 1=100000*RND(1)+
007270: 52 4E 44 28 31 29 3A 20 58 3D 53 49 4E 28 42 29 RND(1): X=SIN(B)
007280: 2A 43 4F 53 28 41 29 2A 50 31 3A 20 59 3D 53 49 *COS(A)*P1: Y=SI
007290: 4E 28 42 29 2A 53 49 4E 28 41 29 2A 50 31 0D 0A N(B)*SIN(A)*P1..
0072A0: 32 39 30 20 5A 3D 43 4F 53 28 42 29 2A 50 31 0D 290 Z=COS(B)*P1.
0072B0: 0A 33 34 30 20 50 52 49 4E 54 20 22 54 41 52 47 .340 PRINT "TARG
0072C0: 45 54 20 53 49 47 48 54 45 44 3A 20 41 50 50 52 ET SIGHTED: APPR
0072D0: 4F 58 49 4D 41 54 45 20 43 4F 4F 52 44 49 4E 41 OXIMATE COORDINA
0072E0: 54 45 53 3A 20 20 58 3D 22 3B 58 3B 22 20 20 59 TES: X=";X;" Y
0072F0: 3D 22 3B 59 3B 22 20 20 5A 3D 22 3B 5A 0D 0A 33 =";Y;" Z=";Z..3
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 00 00 02 09 52 E5 06 00 C1 02 00 00 00 02 ......R.........
007320: 06 00 C6 02 00 00 00 02 06 00 C2 02 00 00 00 02 ................
007330: 06 00 C7 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007340: 06 00 C8 02 00 00 00 02 06 00 C4 02 00 00 00 02 ................
007350: 06 00 C9 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 100 PRINT TAB(33
007410: 29 3B 22 51 55 42 49 43 22 3A 50 52 49 4E 54 0D );"QUBIC":PRINT.
007420: 0A 31 31 30 20 50 52 49 4E 54 20 54 41 42 28 31 .110 PRINT TAB(1
007430: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
007440: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
007450: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
007460: 0A 31 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .120 PRINT:PRINT
007470: 3A 50 52 49 4E 54 0D 0A 32 31 30 20 50 52 49 4E :PRINT..210 PRIN
007480: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 T "DO YOU WANT I
007490: 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 NSTRUCTIONS";..2
0074A0: 32 30 20 49 4E 50 55 54 20 43 24 0D 0A 32 33 30 20 INPUT C$..230
0074B0: 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 3D IF LEFT$(C$,1)=
0074C0: 22 4E 22 20 54 48 45 4E 20 33 31 35 0D 0A 32 34 "N" THEN 315..24
0074D0: 30 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 0 IF LEFT$(C$,1)
0074E0: 3D 22 59 22 20 54 48 45 4E 20 32 36 35 0D 0A 32 ="Y" THEN 265..2
0074F0: 35 30 20 50 52 49 4E 54 20 22 49 4E 43 4F 52 52 50 PRINT "INCORR
007500: 45 43 54 20 41 4E 53 57 45 52 2E 20 20 50 4C 45 ECT ANSWER. PLE
007510: 41 53 45 20 54 59 50 45 20 27 59 45 53 27 20 4F ASE TYPE 'YES' O
007520: 52 20 27 4E 4F 27 22 3B 0D 0A 32 36 30 20 47 4F R 'NO'";..260 GO
007530: 54 4F 20 32 32 30 0D 0A 32 36 35 20 50 52 49 4E TO 220..265 PRIN
007540: 54 0D 0A 32 37 30 20 50 52 49 4E 54 20 22 54 48 T..270 PRINT "TH
007550: 45 20 47 41 4D 45 20 49 53 20 54 49 43 2D 54 41 E GAME IS TIC-TA
007560: 43 2D 54 4F 45 20 49 4E 20 41 20 34 20 58 20 34 C-TOE IN A 4 X 4
007570: 20 58 20 34 20 43 55 42 45 2E 22 0D 0A 32 38 30 X 4 CUBE."..280
007580: 20 50 52 49 4E 54 20 22 45 41 43 48 20 4D 4F 56 PRINT "EACH MOV
007590: 45 20 49 53 20 49 4E 44 49 43 41 54 45 44 20 42 E IS INDICATED B
0075A0: 59 20 41 20 33 20 44 49 47 49 54 20 4E 55 4D 42 Y A 3 DIGIT NUMB
0075B0: 45 52 2C 20 57 49 54 48 20 45 41 43 48 22 0D 0A ER, WITH EACH"..
0075C0: 32 39 30 20 50 52 49 4E 54 20 22 44 49 47 49 54 290 PRINT "DIGIT
0075D0: 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 34 BETWEEN 1 AND 4
0075E0: 20 49 4E 43 4C 55 53 49 56 45 2E 20 20 54 48 45 INCLUSIVE. THE
0075F0: 20 44 49 47 49 54 53 20 49 4E 44 49 43 41 54 45 DIGITS INDICATE
007600: 0A 31 30 30 30 20 47 4F 54 4F 20 35 30 30 0D 0A .1000 GOTO 500..
007610: 31 30 31 30 20 4E 45 58 54 20 4A 0D 0A 31 30 32 1010 NEXT J..102
007620: 30 20 47 4F 54 4F 20 31 33 30 30 0D 0A 31 30 33 0 GOTO 1300..103
007630: 30 20 49 3D 31 0D 0A 31 30 34 30 20 4C 45 54 20 0 I=1..1040 LET
007640: 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 2B 58 L(I)=X(M(I,1))+X
007650: 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 2C 33 (M(I,2))+X(M(I,3
007660: 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A 31 30 ))+X(M(I,4))..10
007670: 35 30 20 4C 45 54 20 4C 20 3D 20 4C 28 49 29 0D 50 LET L = L(I).
007680: 0A 31 30 36 30 20 49 46 20 4C 20 3C 32 20 54 48 .1060 IF L <2 TH
007690: 45 4E 20 31 31 33 30 0D 0A 31 30 37 30 20 49 46 EN 1130..1070 IF
0076A0: 20 4C 3E 3D 33 20 54 48 45 4E 20 31 31 33 30 0D L>=3 THEN 1130.
0076B0: 0A 31 30 38 30 20 49 46 20 4C 3E 32 20 54 48 45 .1080 IF L>2 THE
0076C0: 4E 20 32 32 33 30 0D 0A 31 30 39 30 20 46 4F 52 N 2230..1090 FOR
0076D0: 20 4A 20 3D 20 31 20 54 4F 20 34 0D 0A 31 31 30 J = 1 TO 4..110
0076E0: 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 0 IF X(M(I,J))<>
0076F0: 30 20 54 48 45 4E 20 31 31 32 30 0D 0A 31 31 31 0 THEN 1120..111
007700: 30 20 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 0 LET X(M(I,J))=
007710: 31 2F 38 0D 0A 31 31 32 30 20 4E 45 58 54 20 4A 1/8..1120 NEXT J
007720: 0D 0A 31 31 33 30 20 49 3D 49 2B 31 3A 20 49 46 ..1130 I=I+1: IF
007730: 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 30 34 30 I<=76 THEN 1040
007740: 0D 0A 31 31 34 30 20 47 4F 53 55 42 20 31 36 34 ..1140 GOSUB 164
007750: 30 0D 0A 31 31 35 30 20 49 3D 31 0D 0A 31 31 36 0..1150 I=1..116
007760: 30 20 49 46 20 4C 28 49 29 3D 31 2F 32 20 54 48 0 IF L(I)=1/2 TH
007770: 45 4E 20 32 33 36 30 0D 0A 31 31 37 30 20 49 46 EN 2360..1170 IF
007780: 20 4C 28 49 29 3D 31 2B 33 2F 38 20 54 48 45 4E L(I)=1+3/8 THEN
007790: 20 32 33 36 30 0D 0A 31 31 38 30 20 49 3D 49 2B 2360..1180 I=I+
0077A0: 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 1: IF I<=76 THEN
0077B0: 20 31 31 36 30 0D 0A 31 31 39 30 20 47 4F 54 4F 1160..1190 GOTO
0077C0: 20 31 38 33 30 0D 0A 31 32 30 30 20 4C 45 54 20 1830..1200 LET
0077D0: 5A 20 3D 20 31 0D 0A 31 32 31 30 20 49 46 20 58 Z = 1..1210 IF X
0077E0: 28 59 28 5A 29 29 3D 30 20 54 48 45 4E 20 31 32 (Y(Z))=0 THEN 12
0077F0: 35 30 0D 0A 31 32 32 30 20 4C 45 54 20 5A 3D 5A 50..1220 LET Z=Z
007800: 20 54 48 45 22 0D 0A 33 30 30 20 50 52 49 4E 54 THE"..300 PRINT
007810: 20 22 4C 45 56 45 4C 2C 20 52 4F 57 2C 20 41 4E "LEVEL, ROW, AN
007820: 44 20 43 4F 4C 55 4D 4E 2C 20 52 45 53 50 45 43 D COLUMN, RESPEC
007830: 54 49 56 45 4C 59 2C 20 4F 46 20 54 48 45 20 4F TIVELY, OF THE O
007840: 43 43 55 50 49 45 44 22 0D 0A 33 30 35 20 50 52 CCUPIED"..305 PR
007850: 49 4E 54 20 22 50 4C 41 43 45 2E 20 20 22 0D 0A INT "PLACE. "..
007860: 33 30 36 20 50 52 49 4E 54 0D 0A 33 30 37 20 50 306 PRINT..307 P
007870: 52 49 4E 54 20 22 54 4F 20 50 52 49 4E 54 20 54 RINT "TO PRINT T
007880: 48 45 20 50 4C 41 59 49 4E 47 20 42 4F 41 52 44 HE PLAYING BOARD
007890: 2C 20 54 59 50 45 20 30 20 28 5A 45 52 4F 29 20 , TYPE 0 (ZERO)
0078A0: 41 53 20 59 4F 55 52 20 4D 4F 56 45 2E 22 0D 0A AS YOUR MOVE."..
0078B0: 33 30 38 20 50 52 49 4E 54 20 22 54 48 45 20 50 308 PRINT "THE P
0078C0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E ROGRAM WILL PRIN
0078D0: 54 20 54 48 45 20 42 4F 41 52 44 20 57 49 54 48 T THE BOARD WITH
0078E0: 20 59 4F 55 52 20 4D 4F 56 45 53 20 49 4E 44 49 YOUR MOVES INDI
0078F0: 2D 22 0D 0A 33 30 39 20 50 52 49 4E 54 20 22 43 -"..309 PRINT "C
007900: 41 54 45 44 20 57 49 54 48 20 41 20 28 59 29 2C ATED WITH A (Y),
007910: 20 54 48 45 20 4D 41 43 48 49 4E 45 27 53 20 4D THE MACHINE'S M
007920: 4F 56 45 53 20 57 49 54 48 20 41 4E 20 28 4D 29 OVES WITH AN (M)
007930: 2C 20 41 4E 44 22 0D 0A 33 31 30 20 50 52 49 4E , AND"..310 PRIN
007940: 54 20 22 55 4E 55 53 45 44 20 53 51 55 41 52 45 T "UNUSED SQUARE
007950: 53 20 57 49 54 48 20 41 20 28 20 29 2E 20 20 4F S WITH A ( ). O
007960: 55 54 50 55 54 20 49 53 20 4F 4E 20 50 41 50 45 UTPUT IS ON PAPE
007970: 52 2E 22 0D 0A 33 31 31 20 50 52 49 4E 54 0D 0A R."..311 PRINT..
007980: 33 31 32 20 50 52 49 4E 54 20 22 54 4F 20 53 54 312 PRINT "TO ST
007990: 4F 50 20 54 48 45 20 50 52 4F 47 52 41 4D 20 52 OP THE PROGRAM R
0079A0: 55 4E 2C 20 54 59 50 45 20 31 20 41 53 20 59 4F UN, TYPE 1 AS YO
0079B0: 55 52 20 4D 4F 56 45 2E 22 0D 0A 33 31 33 20 50 UR MOVE."..313 P
0079C0: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 33 31 35 20 RINT:PRINT..315
0079D0: 44 49 4D 20 58 28 36 34 29 2C 4C 28 37 36 29 2C DIM X(64),L(76),
0079E0: 4D 28 37 36 2C 34 29 2C 59 28 31 36 29 0D 0A 33 M(76,4),Y(16)..3
0079F0: 32 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 20 FOR I = 1 TO
007A00: 2B 31 0D 0A 31 32 33 30 20 49 46 20 5A 3C 3E 31 +1..1230 IF Z<>1
007A10: 37 20 54 48 45 4E 20 31 32 31 30 0D 0A 31 32 34 7 THEN 1210..124
007A20: 30 20 47 4F 54 4F 20 31 37 32 30 0D 0A 31 32 35 0 GOTO 1720..125
007A30: 30 20 4C 45 54 20 4D 3D 59 28 5A 29 0D 0A 31 32 0 LET M=Y(Z)..12
007A40: 36 30 20 4C 45 54 20 58 28 4D 29 3D 35 0D 0A 31 60 LET X(M)=5..1
007A50: 32 37 30 20 50 52 49 4E 54 20 22 4D 41 43 48 49 270 PRINT "MACHI
007A60: 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D 0A 31 NE MOVES TO";..1
007A70: 32 38 30 20 47 4F 53 55 42 20 31 35 37 30 0D 0A 280 GOSUB 1570..
007A80: 31 32 39 30 20 47 4F 54 4F 20 35 30 30 0D 0A 31 1290 GOTO 500..1
007A90: 33 30 30 20 4C 45 54 20 58 3D 58 0D 0A 31 33 31 300 LET X=X..131
007AA0: 30 20 49 3D 31 0D 0A 31 33 32 30 20 4C 45 54 20 0 I=1..1320 LET
007AB0: 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 2B 58 L(I)=X(M(I,1))+X
007AC0: 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 2C 33 (M(I,2))+X(M(I,3
007AD0: 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A 31 33 ))+X(M(I,4))..13
007AE0: 33 30 20 4C 45 54 20 4C 3D 4C 28 49 29 0D 0A 31 30 LET L=L(I)..1
007AF0: 33 34 30 20 49 46 20 4C 3C 31 30 20 54 48 45 4E 340 IF L<10 THEN
007B00: 20 31 34 31 30 0D 0A 31 33 35 30 20 49 46 20 4C 1410..1350 IF L
007B10: 3E 3D 31 31 20 54 48 45 4E 20 31 34 31 30 0D 0A >=11 THEN 1410..
007B20: 31 33 36 30 20 49 46 20 4C 3E 31 30 20 54 48 45 1360 IF L>10 THE
007B30: 4E 20 32 32 33 30 0D 0A 31 33 37 30 20 46 4F 52 N 2230..1370 FOR
007B40: 20 4A 3D 31 20 54 4F 20 34 0D 0A 31 33 38 30 20 J=1 TO 4..1380
007B50: 49 46 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 30 20 IF X(M(I,J))<>0
007B60: 54 48 45 4E 20 31 34 30 30 0D 0A 31 33 39 30 20 THEN 1400..1390
007B70: 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 31 2F LET X(M(I,J))=1/
007B80: 38 0D 0A 31 34 30 30 20 4E 45 58 54 20 4A 0D 0A 8..1400 NEXT J..
007B90: 31 34 31 30 20 49 3D 49 2B 31 3A 20 49 46 20 49 1410 I=I+1: IF I
007BA0: 3C 3D 37 36 20 54 48 45 4E 20 31 33 32 30 0D 0A <=76 THEN 1320..
007BB0: 31 34 32 30 20 47 4F 53 55 42 20 31 36 34 30 0D 1420 GOSUB 1640.
007BC0: 0A 31 34 33 30 20 49 3D 31 0D 0A 31 34 34 30 20 .1430 I=1..1440
007BD0: 49 46 20 4C 28 49 29 3D 2E 35 20 54 48 45 4E 20 IF L(I)=.5 THEN
007BE0: 32 33 36 30 0D 0A 31 34 35 30 20 49 46 20 4C 28 2360..1450 IF L(
007BF0: 49 29 3D 35 2B 33 2F 38 20 54 48 45 4E 20 32 33 I)=5+3/8 THEN 23
007C00: 31 36 0D 0A 33 33 30 20 52 45 41 44 20 59 28 49 16..330 READ Y(I
007C10: 29 0D 0A 33 34 30 20 4E 45 58 54 20 49 0D 0A 33 )..340 NEXT I..3
007C20: 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 37 36 50 FOR I=1 TO 76
007C30: 0D 0A 33 36 30 20 46 4F 52 20 4A 20 3D 20 31 20 ..360 FOR J = 1
007C40: 54 4F 20 34 0D 0A 33 37 30 20 52 45 41 44 20 4D TO 4..370 READ M
007C50: 28 49 2C 4A 29 0D 0A 33 38 30 20 4E 45 58 54 20 (I,J)..380 NEXT
007C60: 4A 0D 0A 33 39 30 20 4E 45 58 54 20 49 0D 0A 34 J..390 NEXT I..4
007C70: 30 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 00 FOR I = 1 TO
007C80: 36 34 0D 0A 34 31 30 20 4C 45 54 20 58 28 49 29 64..410 LET X(I)
007C90: 3D 30 0D 0A 34 32 30 20 4E 45 58 54 20 49 0D 0A =0..420 NEXT I..
007CA0: 34 33 30 20 4C 45 54 20 5A 3D 31 0D 0A 34 34 30 430 LET Z=1..440
007CB0: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
007CC0: 41 4E 54 20 54 4F 20 4D 4F 56 45 20 46 49 52 53 ANT TO MOVE FIRS
007CD0: 54 22 3B 0D 0A 34 35 30 20 49 4E 50 55 54 20 53 T";..450 INPUT S
007CE0: 24 0D 0A 34 36 30 20 49 46 20 4C 45 46 54 24 28 $..460 IF LEFT$(
007CF0: 53 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E 20 36 S$,1)="N" THEN 6
007D00: 33 30 0D 0A 34 37 30 20 49 46 20 4C 45 46 54 24 30..470 IF LEFT$
007D10: 28 53 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 (S$,1)="Y" THEN
007D20: 35 30 30 0D 0A 34 38 30 20 50 52 49 4E 54 20 22 500..480 PRINT "
007D30: 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 INCORRECT ANSWER
007D40: 2E 20 20 50 4C 45 41 53 45 20 54 59 50 45 20 27 . PLEASE TYPE '
007D50: 59 45 53 27 20 4F 52 20 27 4E 4F 27 2E 22 3B 0D YES' OR 'NO'.";.
007D60: 0A 34 39 30 20 47 4F 54 4F 20 34 35 30 0D 0A 35 .490 GOTO 450..5
007D70: 30 30 20 50 52 49 4E 54 20 22 20 22 0D 0A 35 31 00 PRINT " "..51
007D80: 30 20 50 52 49 4E 54 20 22 59 4F 55 52 20 4D 4F 0 PRINT "YOUR MO
007D90: 56 45 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 VE";..520 INPUT
007DA0: 4A 31 0D 0A 35 32 31 20 49 46 20 4A 31 3D 31 20 J1..521 IF J1=1
007DB0: 54 48 45 4E 20 32 37 37 30 0D 0A 35 32 32 20 49 THEN 2770..522 I
007DC0: 46 20 4A 31 3C 3E 30 20 54 48 45 4E 20 35 32 35 F J1<>0 THEN 525
007DD0: 0D 0A 35 32 33 20 47 4F 53 55 42 20 32 35 35 30 ..523 GOSUB 2550
007DE0: 0D 0A 35 32 34 20 47 4F 54 4F 20 35 30 30 0D 0A ..524 GOTO 500..
007DF0: 35 32 35 20 49 46 20 4A 31 3C 31 31 31 20 54 48 525 IF J1<111 TH
007E00: 36 30 0D 0A 31 34 36 30 20 49 3D 49 2B 31 3A 20 60..1460 I=I+1:
007E10: 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 34 IF I<=76 THEN 14
007E20: 34 30 0D 0A 31 34 37 30 20 47 4F 53 55 42 20 32 40..1470 GOSUB 2
007E30: 35 30 30 0D 0A 31 34 38 30 20 47 4F 54 4F 20 31 500..1480 GOTO 1
007E40: 30 33 30 0D 0A 31 34 39 30 20 50 52 49 4E 54 20 030..1490 PRINT
007E50: 22 20 22 0D 0A 31 35 30 30 20 50 52 49 4E 54 20 " "..1500 PRINT
007E60: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 "DO YOU WANT TO
007E70: 54 52 59 20 41 4E 4F 54 48 45 52 20 47 41 4D 45 TRY ANOTHER GAME
007E80: 22 3B 0D 0A 31 35 31 30 20 49 4E 50 55 54 20 58 ";..1510 INPUT X
007E90: 24 0D 0A 31 35 32 30 20 49 46 20 4C 45 46 54 24 $..1520 IF LEFT$
007EA0: 28 58 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 (X$,1)="Y" THEN
007EB0: 34 30 30 0D 0A 31 35 33 30 20 49 46 20 4C 45 46 400..1530 IF LEF
007EC0: 54 24 28 58 24 2C 31 29 3D 22 4E 22 20 54 48 45 T$(X$,1)="N" THE
007ED0: 4E 20 31 35 36 30 0D 0A 31 35 34 30 20 50 52 49 N 1560..1540 PRI
007EE0: 4E 54 20 22 49 4E 43 4F 52 52 45 43 54 20 41 4E NT "INCORRECT AN
007EF0: 53 57 45 52 2E 20 50 4C 45 41 53 45 20 54 59 50 SWER. PLEASE TYP
007F00: 45 20 27 59 45 53 27 20 4F 52 20 27 4E 4F 27 22 E 'YES' OR 'NO'"
007F10: 3B 0D 0A 31 35 35 30 20 47 4F 54 4F 20 31 35 31 ;..1550 GOTO 151
007F20: 30 0D 0A 31 35 36 30 20 53 54 4F 50 3A 52 55 4E 0..1560 STOP:RUN
007F30: 20 22 4D 45 4E 55 22 0D 0A 31 35 37 30 20 4C 45 "MENU"..1570 LE
007F40: 54 20 4B 31 3D 49 4E 54 28 28 4D 2D 31 29 2F 31 T K1=INT((M-1)/1
007F50: 36 29 2B 31 0D 0A 31 35 38 30 20 4C 45 54 20 4A 6)+1..1580 LET J
007F60: 32 3D 4D 2D 31 36 2A 28 4B 31 2D 31 29 0D 0A 31 2=M-16*(K1-1)..1
007F70: 35 39 30 20 4C 45 54 20 4B 32 3D 49 4E 54 28 28 590 LET K2=INT((
007F80: 4A 32 2D 31 29 2F 34 29 2B 31 0D 0A 31 36 30 30 J2-1)/4)+1..1600
007F90: 20 4C 45 54 20 4B 33 3D 4D 2D 28 4B 31 2D 31 29 LET K3=M-(K1-1)
007FA0: 2A 31 36 2D 28 4B 32 2D 31 29 2A 34 0D 0A 31 36 *16-(K2-1)*4..16
007FB0: 31 30 20 4C 45 54 20 4D 3D 4B 31 2A 31 30 30 2B 10 LET M=K1*100+
007FC0: 4B 32 2A 31 30 2B 4B 33 0D 0A 31 36 32 30 20 50 K2*10+K3..1620 P
007FD0: 52 49 4E 54 20 4D 3B 0D 0A 31 36 33 30 20 52 45 RINT M;..1630 RE
007FE0: 54 55 52 4E 0D 0A 31 36 34 30 20 46 4F 52 20 53 TURN..1640 FOR S
007FF0: 3D 31 20 54 4F 20 37 36 0D 0A 31 36 35 30 20 4C =1 TO 76..1650 L
008000: 45 4E 20 32 37 35 30 0D 0A 35 32 36 20 49 46 20 EN 2750..526 IF
008010: 4A 31 3E 34 34 34 20 54 48 45 4E 20 32 37 35 30 J1>444 THEN 2750
008020: 0D 0A 35 33 30 20 47 4F 53 55 42 20 32 35 30 30 ..530 GOSUB 2500
008030: 0D 0A 35 34 30 20 4C 45 54 20 4B 31 3D 49 4E 54 ..540 LET K1=INT
008040: 28 4A 31 2F 31 30 30 29 0D 0A 35 35 30 20 4C 45 (J1/100)..550 LE
008050: 54 20 4A 32 3D 28 4A 31 2D 4B 31 2A 31 30 30 29 T J2=(J1-K1*100)
008060: 0D 0A 35 36 30 20 4C 45 54 20 4B 32 3D 49 4E 54 ..560 LET K2=INT
008070: 28 4A 32 2F 31 30 29 0D 0A 35 37 30 20 4C 45 54 (J2/10)..570 LET
008080: 20 4B 33 3D 20 4A 31 20 2D 20 4B 31 2A 31 30 30 K3= J1 - K1*100
008090: 20 2D 4B 32 2A 31 30 0D 0A 35 38 30 20 4C 45 54 -K2*10..580 LET
0080A0: 20 4D 3D 31 36 2A 4B 31 2B 34 2A 4B 32 2B 4B 33 M=16*K1+4*K2+K3
0080B0: 2D 32 30 0D 0A 35 39 30 20 49 46 20 58 28 4D 29 -20..590 IF X(M)
0080C0: 3D 30 20 54 48 45 4E 20 36 32 30 0D 0A 36 30 30 =0 THEN 620..600
0080D0: 20 50 52 49 4E 54 20 22 54 48 41 54 20 53 51 55 PRINT "THAT SQU
0080E0: 41 52 45 20 49 53 20 55 53 45 44 2C 20 54 52 59 ARE IS USED, TRY
0080F0: 20 41 47 41 49 4E 2E 22 0D 0A 36 31 30 20 47 4F AGAIN."..610 GO
008100: 54 4F 20 35 30 30 0D 0A 36 32 30 20 4C 45 54 20 TO 500..620 LET
008110: 58 28 4D 29 3D 31 0D 0A 36 33 30 20 47 4F 53 55 X(M)=1..630 GOSU
008120: 42 20 31 36 34 30 0D 0A 36 34 30 20 4A 3D 31 0D B 1640..640 J=1.
008130: 0A 36 35 30 20 49 3D 31 0D 0A 36 36 30 20 49 46 .650 I=1..660 IF
008140: 20 4A 3D 31 20 54 48 45 4E 20 37 32 30 0D 0A 36 J=1 THEN 720..6
008150: 37 30 20 49 46 20 4A 3D 32 20 54 48 45 4E 20 37 70 IF J=2 THEN 7
008160: 39 30 0D 0A 36 38 30 20 49 46 20 4A 3D 33 20 54 90..680 IF J=3 T
008170: 48 45 4E 20 39 33 30 0D 0A 36 39 30 20 49 3D 49 HEN 930..690 I=I
008180: 2B 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 45 +1: IF I<=76 THE
008190: 4E 20 36 36 30 0D 0A 37 30 30 20 4A 3D 4A 2B 31 N 660..700 J=J+1
0081A0: 3A 20 49 46 20 4A 3C 3D 33 20 54 48 45 4E 20 36 : IF J<=3 THEN 6
0081B0: 35 30 0D 0A 37 31 30 20 47 4F 54 4F 20 31 33 30 50..710 GOTO 130
0081C0: 30 0D 0A 37 32 30 20 49 46 20 4C 28 49 29 3C 3E 0..720 IF L(I)<>
0081D0: 34 20 54 48 45 4E 20 36 39 30 0D 0A 37 33 30 20 4 THEN 690..730
0081E0: 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4E 20 41 PRINT "YOU WIN A
0081F0: 53 20 46 4F 4C 4C 4F 57 53 22 3B 0D 0A 37 34 30 S FOLLOWS";..740
008200: 45 54 20 4A 31 20 3D 20 4D 28 53 2C 31 29 0D 0A ET J1 = M(S,1)..
008210: 31 36 36 30 20 4C 45 54 20 4A 32 3D 4D 28 53 2C 1660 LET J2=M(S,
008220: 32 29 0D 0A 31 36 37 30 20 4C 45 54 20 4A 33 3D 2)..1670 LET J3=
008230: 4D 28 53 2C 33 29 0D 0A 31 36 38 30 20 4C 45 54 M(S,3)..1680 LET
008240: 20 4A 34 3D 4D 28 53 2C 34 29 0D 0A 31 36 39 30 J4=M(S,4)..1690
008250: 20 4C 45 54 20 4C 28 53 29 3D 58 28 4A 31 29 2B LET L(S)=X(J1)+
008260: 58 28 4A 32 29 2B 58 28 4A 33 29 2B 58 28 4A 34 X(J2)+X(J3)+X(J4
008270: 29 0D 0A 31 37 30 30 20 4E 45 58 54 20 53 0D 0A )..1700 NEXT S..
008280: 31 37 31 30 20 52 45 54 55 52 4E 0D 0A 31 37 32 1710 RETURN..172
008290: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 36 34 0D 0 FOR I=1 TO 64.
0082A0: 0A 31 37 33 30 20 49 46 20 58 28 49 29 3C 3E 30 .1730 IF X(I)<>0
0082B0: 20 54 48 45 4E 20 31 38 30 30 0D 0A 31 37 34 30 THEN 1800..1740
0082C0: 20 4C 45 54 20 58 28 49 29 3D 35 0D 0A 31 37 35 LET X(I)=5..175
0082D0: 30 20 4C 45 54 20 4D 3D 49 0D 0A 31 37 36 30 20 0 LET M=I..1760
0082E0: 50 52 49 4E 54 20 22 4D 41 43 48 49 4E 45 20 4C PRINT "MACHINE L
0082F0: 49 4B 45 53 22 3B 0D 0A 31 37 37 30 20 47 4F 53 IKES";..1770 GOS
008300: 55 42 20 31 35 37 30 0D 0A 31 37 38 30 20 50 52 UB 1570..1780 PR
008310: 49 4E 54 20 22 20 22 0D 0A 31 37 39 30 20 47 4F INT " "..1790 GO
008320: 54 4F 20 35 30 30 0D 0A 31 38 30 30 20 4E 45 58 TO 500..1800 NEX
008330: 54 20 49 0D 0A 31 38 31 30 20 50 52 49 4E 54 20 T I..1810 PRINT
008340: 22 54 48 45 20 47 41 4D 45 20 49 53 20 41 20 44 "THE GAME IS A D
008350: 52 41 57 2E 22 0D 0A 31 38 32 30 20 47 4F 54 4F RAW."..1820 GOTO
008360: 20 31 34 39 30 0D 0A 31 38 33 30 20 46 4F 52 20 1490..1830 FOR
008370: 4B 3D 31 20 54 4F 20 31 38 0D 0A 31 38 34 30 20 K=1 TO 18..1840
008380: 4C 45 54 20 50 3D 30 0D 0A 31 38 35 30 20 46 4F LET P=0..1850 FO
008390: 52 20 49 3D 34 2A 4B 2D 33 20 54 4F 20 34 2A 4B R I=4*K-3 TO 4*K
0083A0: 0D 0A 31 38 36 30 20 46 4F 52 20 4A 3D 31 20 54 ..1860 FOR J=1 T
0083B0: 4F 20 34 0D 0A 31 38 37 30 20 4C 45 54 20 50 3D O 4..1870 LET P=
0083C0: 50 2B 58 28 4D 28 49 2C 4A 29 29 0D 0A 31 38 38 P+X(M(I,J))..188
0083D0: 30 20 4E 45 58 54 20 4A 0D 0A 31 38 39 30 20 4E 0 NEXT J..1890 N
0083E0: 45 58 54 20 49 0D 0A 31 39 30 30 20 49 46 20 50 EXT I..1900 IF P
0083F0: 3C 34 20 54 48 45 4E 20 31 39 34 30 0D 0A 31 39 <4 THEN 1940..19
008400: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 37 FOR J=1 TO 4..7
008410: 35 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A 29 0D 50 LET M=M(I,J).
008420: 0A 37 36 30 20 47 4F 53 55 42 20 31 35 37 30 0D .760 GOSUB 1570.
008430: 0A 37 37 30 20 4E 45 58 54 20 4A 0D 0A 37 38 30 .770 NEXT J..780
008440: 20 47 4F 54 4F 20 31 34 39 30 0D 0A 37 39 30 20 GOTO 1490..790
008450: 49 46 20 4C 28 49 29 3C 3E 31 35 20 54 48 45 4E IF L(I)<>15 THEN
008460: 20 36 39 30 0D 0A 38 30 30 20 46 4F 52 20 4A 3D 690..800 FOR J=
008470: 31 20 54 4F 20 34 0D 0A 38 31 30 20 4C 45 54 20 1 TO 4..810 LET
008480: 4D 3D 4D 28 49 2C 4A 29 0D 0A 38 32 30 20 49 46 M=M(I,J)..820 IF
008490: 20 58 28 4D 29 3C 3E 30 20 54 48 45 4E 20 38 36 X(M)<>0 THEN 86
0084A0: 30 0D 0A 38 33 30 20 4C 45 54 20 58 28 4D 29 3D 0..830 LET X(M)=
0084B0: 35 0D 0A 38 34 30 20 50 52 49 4E 54 20 22 4D 41 5..840 PRINT "MA
0084C0: 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B CHINE MOVES TO";
0084D0: 0D 0A 38 35 30 20 47 4F 53 55 42 20 31 35 37 30 ..850 GOSUB 1570
0084E0: 0D 0A 38 36 30 20 4E 45 58 54 20 4A 0D 0A 38 37 ..860 NEXT J..87
0084F0: 30 20 50 52 49 4E 54 20 22 2C 20 41 4E 44 20 57 0 PRINT ", AND W
008500: 49 4E 53 20 41 53 20 46 4F 4C 4C 4F 57 53 22 0D INS AS FOLLOWS".
008510: 0A 38 38 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 .880 FOR J=1 TO
008520: 34 0D 0A 38 39 30 20 4C 45 54 20 4D 3D 4D 28 49 4..890 LET M=M(I
008530: 2C 4A 29 0D 0A 39 30 30 20 47 4F 53 55 42 20 31 ,J)..900 GOSUB 1
008540: 35 37 30 0D 0A 39 31 30 20 4E 45 58 54 20 4A 0D 570..910 NEXT J.
008550: 0A 39 32 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A .920 GOTO 1490..
008560: 39 33 30 20 49 46 20 4C 28 49 29 3C 3E 33 20 54 930 IF L(I)<>3 T
008570: 48 45 4E 20 36 39 30 0D 0A 39 34 30 20 50 52 49 HEN 690..940 PRI
008580: 4E 54 20 22 4E 49 43 45 20 54 52 59 2E 20 4D 41 NT "NICE TRY. MA
008590: 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B CHINE MOVES TO";
0085A0: 0D 0A 39 35 30 20 46 4F 52 20 4A 3D 31 20 54 4F ..950 FOR J=1 TO
0085B0: 20 34 20 0D 0A 39 36 30 20 4C 45 54 20 4D 3D 4D 4 ..960 LET M=M
0085C0: 28 49 2C 4A 29 0D 0A 39 37 30 20 49 46 20 58 28 (I,J)..970 IF X(
0085D0: 4D 29 3C 3E 30 20 54 48 45 4E 20 31 30 31 30 0D M)<>0 THEN 1010.
0085E0: 0A 39 38 30 20 4C 45 54 20 58 28 4D 29 3D 35 0D .980 LET X(M)=5.
0085F0: 0A 39 39 30 20 47 4F 53 55 42 20 31 35 37 30 0D .990 GOSUB 1570.
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 00 00 02 09 52 E5 07 00 C1 02 00 00 00 02 ......R.........
008620: 07 00 C6 02 00 00 00 02 07 00 C2 02 00 00 00 02 ................
008630: 07 00 C7 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008640: 07 00 C8 02 00 00 00 02 07 00 C4 02 00 00 00 02 ................
008650: 07 00 C9 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 31 30 20 49 46 20 50 3C 35 20 54 48 45 4E 20 31 10 IF P<5 THEN 1
008710: 39 37 30 0D 0A 31 39 32 30 20 49 46 20 50 3C 39 970..1920 IF P<9
008720: 20 54 48 45 4E 20 31 39 34 30 0D 0A 31 39 33 30 THEN 1940..1930
008730: 20 49 46 20 50 3C 31 30 20 54 48 45 4E 20 31 39 IF P<10 THEN 19
008740: 37 30 0D 0A 31 39 34 30 20 4E 45 58 54 20 4B 0D 70..1940 NEXT K.
008750: 0A 31 39 35 30 20 47 4F 53 55 42 20 32 35 30 30 .1950 GOSUB 2500
008760: 0D 0A 31 39 36 30 20 47 4F 54 4F 20 31 32 30 30 ..1960 GOTO 1200
008770: 0D 0A 31 39 37 30 20 4C 45 54 20 53 3D 31 2F 38 ..1970 LET S=1/8
008780: 0D 0A 31 39 38 30 20 46 4F 52 20 49 3D 34 2A 4B ..1980 FOR I=4*K
008790: 2D 33 20 54 4F 20 34 2A 4B 0D 0A 31 39 39 30 20 -3 TO 4*K..1990
0087A0: 47 4F 54 4F 20 32 33 37 30 0D 0A 32 30 30 30 20 GOTO 2370..2000
0087B0: 4E 45 58 54 20 49 0D 0A 32 30 31 30 20 4C 45 54 NEXT I..2010 LET
0087C0: 20 53 3D 30 0D 0A 32 30 32 30 20 47 4F 54 4F 20 S=0..2020 GOTO
0087D0: 31 39 38 30 0D 0A 32 30 33 30 20 44 41 54 41 20 1980..2030 DATA
0087E0: 31 2C 34 39 2C 35 32 2C 34 2C 31 33 2C 36 31 2C 1,49,52,4,13,61,
0087F0: 36 34 2C 31 36 2C 32 32 2C 33 39 2C 32 33 2C 33 64,16,22,39,23,3
008800: 38 2C 32 36 2C 34 32 2C 32 37 2C 34 33 0D 0A 32 8,26,42,27,43..2
008810: 30 34 30 20 44 41 54 41 20 31 2C 32 2C 33 2C 34 040 DATA 1,2,3,4
008820: 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 2C 31 31 ,5,6,7,8,9,10,11
008830: 2C 31 32 2C 31 33 2C 31 34 2C 31 35 2C 31 36 2C ,12,13,14,15,16,
008840: 31 37 2C 31 38 2C 31 39 2C 32 30 0D 0A 32 30 35 17,18,19,20..205
008850: 30 20 44 41 54 41 20 32 31 2C 32 32 2C 32 33 2C 0 DATA 21,22,23,
008860: 32 34 2C 32 35 2C 32 36 2C 32 37 2C 32 38 2C 32 24,25,26,27,28,2
008870: 39 2C 33 30 2C 33 31 2C 33 32 2C 33 33 2C 33 34 9,30,31,32,33,34
008880: 2C 33 35 2C 33 36 2C 33 37 2C 33 38 0D 0A 32 30 ,35,36,37,38..20
008890: 36 30 20 44 41 54 41 20 33 39 2C 34 30 2C 34 31 60 DATA 39,40,41
0088A0: 2C 34 32 2C 34 33 2C 34 34 2C 34 35 2C 34 36 2C ,42,43,44,45,46,
0088B0: 34 37 2C 34 38 2C 34 39 2C 35 30 2C 35 31 2C 35 47,48,49,50,51,5
0088C0: 32 2C 35 33 2C 35 34 2C 35 35 2C 35 36 0D 0A 32 2,53,54,55,56..2
0088D0: 30 37 30 20 44 41 54 41 20 35 37 2C 35 38 2C 35 070 DATA 57,58,5
0088E0: 39 2C 36 30 2C 36 31 2C 36 32 2C 36 33 2C 36 34 9,60,61,62,63,64
0088F0: 0D 0A 32 30 38 30 20 44 41 54 41 20 31 2C 31 37 ..2080 DATA 1,17
008900: 45 4D 20 50 52 49 4E 54 20 43 48 52 24 28 31 32 EM PRINT CHR$(12
008910: 29 0D 0A 32 37 34 30 20 52 45 54 55 52 4E 0D 0A )..2740 RETURN..
008920: 32 37 35 30 20 50 52 49 4E 54 22 49 4E 43 4F 52 2750 PRINT"INCOR
008930: 52 45 43 54 20 4D 4F 56 45 2C 20 52 45 54 59 50 RECT MOVE, RETYP
008940: 45 20 49 54 2D 2D 22 3B 0D 0A 32 37 36 30 20 47 E IT--";..2760 G
008950: 4F 54 4F 20 35 32 30 0D 0A 32 37 37 30 20 45 4E OTO 520..2770 EN
008960: 44 0D 0A 1A 46 43 31 3E 3D 31 41 4E 44 43 31 3C D...FC1>=1ANDC1<
008970: 39 54 48 45 4E 34 38 35 30 0D 0A 34 37 39 30 20 9THEN4850..4790
008980: 50 52 49 4E 54 22 45 4E 53 49 47 4E 20 43 48 45 PRINT"ENSIGN CHE
008990: 4B 4F 56 20 52 45 50 4F 52 54 53 2C 20 20 27 49 KOV REPORTS, 'I
0089A0: 4E 43 4F 52 52 45 43 54 20 43 4F 55 52 53 45 20 NCORRECT COURSE
0089B0: 44 41 54 41 2C 20 53 49 52 21 27 22 0D 0A 34 38 DATA, SIR!'"..48
0089C0: 30 30 20 47 4F 54 4F 31 39 39 30 0D 0A 34 38 35 00 GOTO1990..485
0089D0: 30 20 58 31 3D 43 28 43 31 2C 31 29 2B 28 43 28 0 X1=C(C1,1)+(C(
0089E0: 43 31 2B 31 2C 31 29 2D 43 28 43 31 2C 31 29 29 C1+1,1)-C(C1,1))
0089F0: 2A 28 43 31 2D 49 4E 54 28 43 31 29 29 3A 45 3D *(C1-INT(C1)):E=
008A00: 45 2D 32 3A 50 3D 50 2D 31 0D 0A 34 38 36 30 20 E-2:P=P-1..4860
008A10: 58 32 3D 43 28 43 31 2C 32 29 2B 28 43 28 43 31 X2=C(C1,2)+(C(C1
008A20: 2B 31 2C 32 29 2D 43 28 43 31 2C 32 29 29 2A 28 +1,2)-C(C1,2))*(
008A30: 43 31 2D 49 4E 54 28 43 31 29 29 3A 58 3D 53 31 C1-INT(C1)):X=S1
008A40: 3A 59 3D 53 32 0D 0A 34 39 31 30 20 50 52 49 4E :Y=S2..4910 PRIN
008A50: 54 22 54 4F 52 50 45 44 4F 20 54 52 41 43 4B 3A T"TORPEDO TRACK:
008A60: 22 0D 0A 34 39 32 30 20 58 3D 58 2B 58 31 3A 59 "..4920 X=X+X1:Y
008A70: 3D 59 2B 58 32 3A 58 33 3D 49 4E 54 28 58 2B 2E =Y+X2:X3=INT(X+.
008A80: 35 29 3A 59 33 3D 49 4E 54 28 59 2B 2E 35 29 0D 5):Y3=INT(Y+.5).
008A90: 0A 34 39 36 30 20 49 46 58 33 3C 31 4F 52 58 33 .4960 IFX3<1ORX3
008AA0: 3E 38 4F 52 59 33 3C 31 4F 52 59 33 3E 38 54 48 >8ORY3<1ORY3>8TH
008AB0: 45 4E 35 34 39 30 0D 0A 35 30 30 30 20 50 52 49 EN5490..5000 PRI
008AC0: 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 20 20 NT"
008AD0: 20 20 22 3B 58 33 3B 22 2C 22 3B 59 33 3A 41 24 ";X3;",";Y3:A$
008AE0: 3D 22 20 20 20 22 3A 5A 31 3D 58 3A 5A 32 3D 59 =" ":Z1=X:Z2=Y
008AF0: 3A 47 4F 53 55 42 38 38 33 30 0D 0A 35 30 35 30 :GOSUB8830..5050
008B00: 2C 33 33 2C 34 39 2C 35 2C 32 31 2C 33 37 2C 35 ,33,49,5,21,37,5
008B10: 33 2C 39 2C 32 35 2C 34 31 2C 35 37 2C 31 33 2C 3,9,25,41,57,13,
008B20: 32 39 2C 34 35 2C 36 31 0D 0A 32 30 39 30 20 44 29,45,61..2090 D
008B30: 41 54 41 20 32 2C 31 38 2C 33 34 2C 35 30 2C 36 ATA 2,18,34,50,6
008B40: 2C 32 32 2C 33 38 2C 35 34 2C 31 30 2C 32 36 2C ,22,38,54,10,26,
008B50: 34 32 2C 35 38 2C 31 34 2C 33 30 2C 34 36 2C 36 42,58,14,30,46,6
008B60: 32 0D 0A 32 31 30 30 20 44 41 54 41 20 33 2C 31 2..2100 DATA 3,1
008B70: 39 2C 33 35 2C 35 31 2C 37 2C 32 33 2C 33 39 2C 9,35,51,7,23,39,
008B80: 35 35 2C 31 31 2C 32 37 2C 34 33 2C 35 39 2C 31 55,11,27,43,59,1
008B90: 35 2C 33 31 2C 34 37 2C 36 33 0D 0A 32 31 31 30 5,31,47,63..2110
008BA0: 20 44 41 54 41 20 34 2C 32 30 2C 33 36 2C 35 32 DATA 4,20,36,52
008BB0: 2C 38 2C 32 34 2C 34 30 2C 35 36 2C 31 32 2C 32 ,8,24,40,56,12,2
008BC0: 38 2C 34 34 2C 36 30 2C 31 36 2C 33 32 2C 34 38 8,44,60,16,32,48
008BD0: 2C 36 34 0D 0A 32 31 32 30 20 44 41 54 41 20 31 ,64..2120 DATA 1
008BE0: 2C 35 2C 39 2C 31 33 2C 31 37 2C 32 31 2C 32 35 ,5,9,13,17,21,25
008BF0: 2C 32 39 2C 33 33 2C 33 37 2C 34 31 2C 34 35 2C ,29,33,37,41,45,
008C00: 34 39 2C 35 33 2C 35 37 2C 36 31 0D 0A 32 31 33 49,53,57,61..213
008C10: 30 20 44 41 54 41 20 32 2C 36 2C 31 30 2C 31 34 0 DATA 2,6,10,14
008C20: 2C 31 38 2C 32 32 2C 32 36 2C 33 30 2C 33 34 2C ,18,22,26,30,34,
008C30: 33 38 2C 34 32 2C 34 36 2C 35 30 2C 35 34 2C 35 38,42,46,50,54,5
008C40: 38 2C 36 32 0D 0A 32 31 34 30 20 44 41 54 41 20 8,62..2140 DATA
008C50: 33 2C 37 2C 31 31 2C 31 35 2C 31 39 2C 32 33 2C 3,7,11,15,19,23,
008C60: 32 37 2C 33 31 2C 33 35 2C 33 39 2C 34 33 2C 34 27,31,35,39,43,4
008C70: 37 2C 35 31 2C 35 35 2C 35 39 2C 36 33 0D 0A 32 7,51,55,59,63..2
008C80: 31 35 30 20 44 41 54 41 20 34 2C 38 2C 31 32 2C 150 DATA 4,8,12,
008C90: 31 36 2C 32 30 2C 32 34 2C 32 38 2C 33 32 2C 33 16,20,24,28,32,3
008CA0: 36 2C 34 30 2C 34 34 2C 34 38 2C 35 32 2C 35 36 6,40,44,48,52,56
008CB0: 2C 36 30 2C 36 34 0D 0A 32 31 36 30 20 44 41 54 ,60,64..2160 DAT
008CC0: 41 20 31 2C 36 2C 31 31 2C 31 36 2C 31 37 2C 32 A 1,6,11,16,17,2
008CD0: 32 2C 32 37 2C 33 32 2C 33 33 2C 33 38 2C 34 33 2,27,32,33,38,43
008CE0: 2C 34 38 2C 34 39 2C 35 34 2C 35 39 2C 36 34 0D ,48,49,54,59,64.
008CF0: 0A 32 31 37 30 20 44 41 54 41 20 31 33 2C 31 30 .2170 DATA 13,10
008D00: 20 49 46 5A 33 3C 3E 30 54 48 45 4E 34 39 32 30 IFZ3<>0THEN4920
008D10: 0D 0A 35 30 36 30 20 41 24 3D 22 2B 4B 2B 22 3A ..5060 A$="+K+":
008D20: 5A 31 3D 58 3A 5A 32 3D 59 3A 47 4F 53 55 42 38 Z1=X:Z2=Y:GOSUB8
008D30: 38 33 30 3A 49 46 5A 33 3D 30 54 48 45 4E 35 32 830:IFZ3=0THEN52
008D40: 31 30 0D 0A 35 31 31 30 20 50 52 49 4E 54 22 2A 10..5110 PRINT"*
008D50: 2A 2A 20 4B 4C 49 4E 47 4F 4E 20 44 45 53 54 52 ** KLINGON DESTR
008D60: 4F 59 45 44 20 2A 2A 2A 22 3A 4B 33 3D 4B 33 2D OYED ***":K3=K3-
008D70: 31 3A 4B 39 3D 4B 39 2D 31 3A 49 46 4B 39 3C 3D 1:K9=K9-1:IFK9<=
008D80: 30 54 48 45 4E 36 33 37 30 0D 0A 35 31 35 30 20 0THEN6370..5150
008D90: 46 4F 52 49 3D 31 54 4F 33 3A 49 46 58 33 3D 4B FORI=1TO3:IFX3=K
008DA0: 28 49 2C 31 29 41 4E 44 59 33 3D 4B 28 49 2C 32 (I,1)ANDY3=K(I,2
008DB0: 29 54 48 45 4E 35 31 39 30 0D 0A 35 31 38 30 20 )THEN5190..5180
008DC0: 4E 45 58 54 49 3A 49 3D 33 0D 0A 35 31 39 30 20 NEXTI:I=3..5190
008DD0: 4B 28 49 2C 33 29 3D 30 3A 47 4F 54 4F 35 34 33 K(I,3)=0:GOTO543
008DE0: 30 0D 0A 35 32 31 30 20 41 24 3D 22 20 2A 20 22 0..5210 A$=" * "
008DF0: 3A 5A 31 3D 58 3A 5A 32 3D 59 3A 47 4F 53 55 42 :Z1=X:Z2=Y:GOSUB
008E00: 38 38 33 30 3A 49 46 5A 33 3D 30 54 48 45 4E 35 8830:IFZ3=0THEN5
008E10: 32 38 30 0D 0A 35 32 36 30 20 50 52 49 4E 54 22 280..5260 PRINT"
008E20: 53 54 41 52 20 41 54 22 3B 58 33 3B 22 2C 22 3B STAR AT";X3;",";
008E30: 59 33 3B 22 41 42 53 4F 52 42 45 44 20 54 4F 52 Y3;"ABSORBED TOR
008E40: 50 45 44 4F 20 45 4E 45 52 47 59 2E 22 3A 47 4F PEDO ENERGY.":GO
008E50: 53 55 42 36 30 30 30 3A 47 4F 54 4F 31 39 39 30 SUB6000:GOTO1990
008E60: 0D 0A 35 32 38 30 20 41 24 3D 22 3E 21 3C 22 3A ..5280 A$=">!<":
008E70: 5A 31 3D 58 3A 5A 32 3D 59 3A 47 4F 53 55 42 38 Z1=X:Z2=Y:GOSUB8
008E80: 38 33 30 3A 49 46 5A 33 3D 30 54 48 45 4E 34 37 830:IFZ3=0THEN47
008E90: 36 30 0D 0A 35 33 33 30 20 50 52 49 4E 54 22 2A 60..5330 PRINT"*
008EA0: 2A 2A 20 53 54 41 52 42 41 53 45 20 44 45 53 54 ** STARBASE DEST
008EB0: 52 4F 59 45 44 20 2A 2A 2A 22 3A 42 33 3D 42 33 ROYED ***":B3=B3
008EC0: 2D 31 3A 42 39 3D 42 39 2D 31 0D 0A 35 33 36 30 -1:B9=B9-1..5360
008ED0: 20 49 46 42 39 3E 30 4F 52 4B 39 3E 54 2D 54 30 IFB9>0ORK9>T-T0
008EE0: 2D 54 39 54 48 45 4E 35 34 30 30 0D 0A 35 33 37 -T9THEN5400..537
008EF0: 30 20 50 52 49 4E 54 22 54 48 41 54 20 44 4F 45 0 PRINT"THAT DOE
008F00: 2C 37 2C 34 2C 32 39 2C 32 36 2C 32 33 2C 32 30 ,7,4,29,26,23,20
008F10: 2C 34 35 2C 34 32 2C 33 39 2C 33 36 2C 36 31 2C ,45,42,39,36,61,
008F20: 35 38 2C 35 35 2C 35 32 0D 0A 32 31 38 30 20 44 58,55,52..2180 D
008F30: 41 54 41 20 31 2C 32 31 2C 34 31 2C 36 31 2C 32 ATA 1,21,41,61,2
008F40: 2C 32 32 2C 34 32 2C 36 32 2C 33 2C 32 33 2C 34 ,22,42,62,3,23,4
008F50: 33 2C 36 33 2C 34 2C 32 34 2C 34 34 2C 36 34 0D 3,63,4,24,44,64.
008F60: 0A 32 31 39 30 20 44 41 54 41 20 34 39 2C 33 37 .2190 DATA 49,37
008F70: 2C 32 35 2C 31 33 2C 35 30 2C 33 38 2C 32 36 2C ,25,13,50,38,26,
008F80: 31 34 2C 35 31 2C 33 39 2C 32 37 2C 31 35 2C 35 14,51,39,27,15,5
008F90: 32 2C 34 30 2C 32 38 2C 31 36 0D 0A 32 32 30 30 2,40,28,16..2200
008FA0: 20 44 41 54 41 20 31 2C 31 38 2C 33 35 2C 35 32 DATA 1,18,35,52
008FB0: 2C 35 2C 32 32 2C 33 39 2C 35 36 2C 39 2C 32 36 ,5,22,39,56,9,26
008FC0: 2C 34 33 2C 36 30 2C 31 33 2C 33 30 2C 34 37 2C ,43,60,13,30,47,
008FD0: 36 34 0D 0A 32 32 31 30 20 44 41 54 41 20 34 39 64..2210 DATA 49
008FE0: 2C 33 34 2C 31 39 2C 34 2C 35 33 2C 33 38 2C 32 ,34,19,4,53,38,2
008FF0: 33 2C 38 2C 35 37 2C 34 32 2C 32 37 2C 31 32 2C 3,8,57,42,27,12,
009000: 36 31 2C 34 36 2C 33 31 2C 31 36 0D 0A 32 32 32 61,46,31,16..222
009010: 30 20 44 41 54 41 20 31 2C 32 32 2C 34 33 2C 36 0 DATA 1,22,43,6
009020: 34 2C 31 36 2C 32 37 2C 33 38 2C 34 39 2C 34 2C 4,16,27,38,49,4,
009030: 32 33 2C 34 32 2C 36 31 2C 31 33 2C 32 36 2C 33 23,42,61,13,26,3
009040: 39 2C 35 32 0D 0A 32 32 33 30 20 46 4F 52 20 4A 9,52..2230 FOR J
009050: 3D 31 20 54 4F 20 34 0D 0A 32 32 34 30 20 49 46 =1 TO 4..2240 IF
009060: 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 31 2F 38 20 X(M(I,J))<>1/8
009070: 54 48 45 4E 20 32 33 33 30 0D 0A 32 32 35 30 20 THEN 2330..2250
009080: 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 35 0D LET X(M(I,J))=5.
009090: 0A 32 32 36 30 20 49 46 20 4C 28 49 29 3C 35 20 .2260 IF L(I)<5
0090A0: 54 48 45 4E 20 32 32 39 30 0D 0A 32 32 37 30 20 THEN 2290..2270
0090B0: 50 52 49 4E 54 20 22 4C 45 54 27 53 20 53 45 45 PRINT "LET'S SEE
0090C0: 20 59 4F 55 20 47 45 54 20 4F 55 54 20 4F 46 20 YOU GET OUT OF
0090D0: 54 48 49 53 3A 20 20 4D 41 43 48 49 4E 45 20 4D THIS: MACHINE M
0090E0: 4F 56 45 53 20 54 4F 22 3B 0D 0A 32 32 38 30 20 OVES TO";..2280
0090F0: 47 4F 54 4F 20 32 33 30 30 0D 0A 32 32 39 30 20 GOTO 2300..2290
009100: 31 30 20 70 72 69 6E 74 20 22 49 20 61 6D 20 74 10 print "I am t
009110: 65 73 74 20 31 22 0D 0A 32 30 20 65 6E 64 0D 0A est 1"..20 end..
009120: 1A 45 4C 49 45 56 45 44 20 4F 46 20 43 4F 4D 4D .ELIEVED OF COMM
009130: 41 4E 44 22 0D 0A 35 33 38 30 20 50 52 49 4E 54 AND"..5380 PRINT
009140: 22 41 4E 44 20 53 45 4E 54 45 4E 43 45 44 20 54 "AND SENTENCED T
009150: 4F 20 39 39 20 53 54 41 52 44 41 54 45 53 20 41 O 99 STARDATES A
009160: 54 20 48 41 52 44 20 4C 41 42 4F 52 20 4F 4E 20 T HARD LABOR ON
009170: 43 59 47 4E 55 53 20 31 32 21 21 22 0D 0A 35 33 CYGNUS 12!!"..53
009180: 39 30 20 47 4F 54 4F 20 36 32 37 30 0D 0A 35 34 90 GOTO 6270..54
009190: 30 30 20 50 52 49 4E 54 22 53 54 41 52 46 4C 45 00 PRINT"STARFLE
0091A0: 45 54 20 43 4F 4D 4D 41 4E 44 20 52 45 56 49 45 ET COMMAND REVIE
0091B0: 57 49 4E 47 20 59 4F 55 52 20 52 45 43 4F 52 44 WING YOUR RECORD
0091C0: 20 54 4F 20 43 4F 4E 53 49 44 45 52 22 0D 0A 35 TO CONSIDER"..5
0091D0: 34 31 30 20 50 52 49 4E 54 22 43 4F 55 52 54 20 410 PRINT"COURT
0091E0: 4D 41 52 54 49 41 4C 21 22 3A 44 30 3D 30 0D 0A MARTIAL!":D0=0..
0091F0: 35 34 33 30 20 5A 31 3D 58 3A 5A 32 3D 59 3A 41 5430 Z1=X:Z2=Y:A
009200: 24 3D 22 20 20 20 22 3A 47 4F 53 55 42 38 36 37 $=" ":GOSUB867
009210: 30 0D 0A 35 34 37 30 20 47 28 51 31 2C 51 32 29 0..5470 G(Q1,Q2)
009220: 3D 4B 33 2A 31 30 30 2B 42 33 2A 31 30 2B 53 33 =K3*100+B3*10+S3
009230: 3A 5A 28 51 31 2C 51 32 29 3D 47 28 51 31 2C 51 :Z(Q1,Q2)=G(Q1,Q
009240: 32 29 3A 47 4F 53 55 42 36 30 30 30 3A 47 4F 54 2):GOSUB6000:GOT
009250: 4F 31 39 39 30 0D 0A 35 34 39 30 20 50 52 49 4E O1990..5490 PRIN
009260: 54 22 54 4F 52 50 45 44 4F 20 4D 49 53 53 45 44 T"TORPEDO MISSED
009270: 22 3A 47 4F 53 55 42 36 30 30 30 3A 47 4F 54 4F ":GOSUB6000:GOTO
009280: 31 39 39 30 0D 0A 35 35 32 30 20 52 45 4D 20 53 1990..5520 REM S
009290: 48 49 45 4C 44 20 43 4F 4E 54 52 4F 4C 0D 0A 35 HIELD CONTROL..5
0092A0: 35 33 30 20 49 46 44 28 37 29 3C 30 54 48 45 4E 530 IFD(7)<0THEN
0092B0: 50 52 49 4E 54 22 53 48 49 45 4C 44 20 43 4F 4E PRINT"SHIELD CON
0092C0: 54 52 4F 4C 20 49 4E 4F 50 45 52 41 42 4C 45 22 TROL INOPERABLE"
0092D0: 3A 47 4F 54 4F 31 39 39 30 0D 0A 35 35 36 30 20 :GOTO1990..5560
0092E0: 50 52 49 4E 54 22 45 4E 45 52 47 59 20 41 56 41 PRINT"ENERGY AVA
0092F0: 49 4C 41 42 4C 45 20 3D 22 3B 45 2B 53 3B 3A 49 ILABLE =";E+S;:I
009300: 50 52 49 4E 54 20 22 59 4F 55 20 46 4F 58 2E 20 PRINT "YOU FOX.
009310: 20 4A 55 53 54 20 49 4E 20 54 48 45 20 4E 49 43 JUST IN THE NIC
009320: 4B 20 4F 46 20 54 49 4D 45 2C 20 4D 41 43 48 49 K OF TIME, MACHI
009330: 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D 0A 32 NE MOVES TO";..2
009340: 33 30 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A 29 300 LET M=M(I,J)
009350: 0D 0A 32 33 31 30 20 47 4F 53 55 42 20 31 35 37 ..2310 GOSUB 157
009360: 30 0D 0A 32 33 32 30 20 47 4F 54 4F 20 35 30 30 0..2320 GOTO 500
009370: 0D 0A 32 33 33 30 20 4E 45 58 54 20 4A 0D 0A 32 ..2330 NEXT J..2
009380: 33 34 30 20 50 52 49 4E 54 20 22 4D 41 43 48 49 340 PRINT "MACHI
009390: 4E 45 20 43 4F 4E 43 45 44 45 53 20 54 48 49 53 NE CONCEDES THIS
0093A0: 20 47 41 4D 45 2E 22 0D 0A 32 33 35 30 20 47 4F GAME."..2350 GO
0093B0: 54 4F 20 31 34 39 30 0D 0A 32 33 36 30 20 4C 45 TO 1490..2360 LE
0093C0: 54 20 53 3D 31 2F 38 0D 0A 32 33 37 30 20 49 46 T S=1/8..2370 IF
0093D0: 20 49 2D 49 4E 54 28 49 2F 34 29 2A 34 3E 31 20 I-INT(I/4)*4>1
0093E0: 54 48 45 4E 20 32 34 30 30 0D 0A 32 33 38 30 20 THEN 2400..2380
0093F0: 4C 45 54 20 41 3D 31 0D 0A 32 33 39 30 20 47 4F LET A=1..2390 GO
009400: 54 4F 20 32 34 31 30 0D 0A 32 34 30 30 20 4C 45 TO 2410..2400 LE
009410: 54 20 41 3D 32 0D 0A 32 34 31 30 20 46 4F 52 20 T A=2..2410 FOR
009420: 4A 3D 41 20 54 4F 20 35 2D 41 20 53 54 45 50 20 J=A TO 5-A STEP
009430: 35 2D 32 2A 41 0D 0A 32 34 32 30 20 49 46 20 58 5-2*A..2420 IF X
009440: 28 4D 28 49 2C 4A 29 29 3D 53 20 54 48 45 4E 20 (M(I,J))=S THEN
009450: 32 34 35 30 0D 0A 32 34 33 30 20 4E 45 58 54 20 2450..2430 NEXT
009460: 4A 0D 0A 32 34 34 30 20 47 4F 54 4F 20 32 30 30 J..2440 GOTO 200
009470: 30 0D 0A 32 34 35 30 20 4C 45 54 20 58 28 4D 28 0..2450 LET X(M(
009480: 49 2C 4A 29 29 3D 35 0D 0A 32 34 36 30 20 4C 45 I,J))=5..2460 LE
009490: 54 20 4D 3D 4D 28 49 2C 4A 29 0D 0A 32 34 37 30 T M=M(I,J)..2470
0094A0: 20 50 52 49 4E 54 20 22 4D 41 43 48 49 4E 45 20 PRINT "MACHINE
0094B0: 54 41 4B 45 53 22 3B 0D 0A 32 34 38 30 20 47 4F TAKES";..2480 GO
0094C0: 53 55 42 20 31 35 37 30 0D 0A 32 34 39 30 20 47 SUB 1570..2490 G
0094D0: 4F 54 4F 20 35 30 30 0D 0A 32 35 30 30 20 46 4F OTO 500..2500 FO
0094E0: 52 20 49 3D 31 20 54 4F 20 36 34 0D 0A 32 35 31 R I=1 TO 64..251
0094F0: 30 20 49 46 20 58 28 49 29 3C 3E 31 2F 38 20 54 0 IF X(I)<>1/8 T
009500: 4E 50 55 54 22 4E 55 4D 42 45 52 20 4F 46 20 55 NPUT"NUMBER OF U
009510: 4E 49 54 53 20 54 4F 20 53 48 49 45 4C 44 53 22 NITS TO SHIELDS"
009520: 3B 58 0D 0A 35 35 38 30 20 49 46 58 3C 30 4F 52 ;X..5580 IFX<0OR
009530: 53 3D 58 54 48 45 4E 50 52 49 4E 54 22 3C 53 48 S=XTHENPRINT"<SH
009540: 49 45 4C 44 53 20 55 4E 43 48 41 4E 47 45 44 3E IELDS UNCHANGED>
009550: 22 3A 47 4F 54 4F 31 39 39 30 0D 0A 35 35 39 30 ":GOTO1990..5590
009560: 20 49 46 58 3C 3D 45 2B 53 54 48 45 4E 35 36 33 IFX<=E+STHEN563
009570: 30 0D 0A 35 36 30 30 20 50 52 49 4E 54 22 53 48 0..5600 PRINT"SH
009580: 49 45 4C 44 20 43 4F 4E 54 52 4F 4C 20 52 45 50 IELD CONTROL REP
009590: 4F 52 54 53 20 20 27 54 48 49 53 20 49 53 20 4E ORTS 'THIS IS N
0095A0: 4F 54 20 54 48 45 20 46 45 44 45 52 41 54 49 4F OT THE FEDERATIO
0095B0: 4E 20 54 52 45 41 53 55 52 59 2E 27 22 0D 0A 35 N TREASURY.'"..5
0095C0: 36 31 30 20 50 52 49 4E 54 22 3C 53 48 49 45 4C 610 PRINT"<SHIEL
0095D0: 44 53 20 55 4E 43 48 41 4E 47 45 44 3E 22 3A 47 DS UNCHANGED>":G
0095E0: 4F 54 4F 31 39 39 30 0D 0A 35 36 33 30 20 45 3D OTO1990..5630 E=
0095F0: 45 2B 53 2D 58 3A 53 3D 58 3A 50 52 49 4E 54 22 E+S-X:S=X:PRINT"
009600: 44 45 46 4C 45 43 54 4F 52 20 43 4F 4E 54 52 4F DEFLECTOR CONTRO
009610: 4C 20 52 4F 4F 4D 20 52 45 50 4F 52 54 3A 22 0D L ROOM REPORT:".
009620: 0A 35 36 36 30 20 50 52 49 4E 54 22 20 20 27 53 .5660 PRINT" 'S
009630: 48 49 45 4C 44 53 20 4E 4F 57 20 41 54 22 3B 49 HIELDS NOW AT";I
009640: 4E 54 28 53 29 3B 22 55 4E 49 54 53 20 50 45 52 NT(S);"UNITS PER
009650: 20 59 4F 55 52 20 43 4F 4D 4D 41 4E 44 2E 27 22 YOUR COMMAND.'"
009660: 3A 47 4F 54 4F 31 39 39 30 0D 0A 35 36 38 30 20 :GOTO1990..5680
009670: 52 45 4D 20 44 41 4D 41 47 45 20 43 4F 4E 54 52 REM DAMAGE CONTR
009680: 4F 4C 0D 0A 35 36 39 30 20 49 46 44 28 36 29 3E OL..5690 IFD(6)>
009690: 3D 30 54 48 45 4E 35 39 31 30 0D 0A 35 37 30 30 =0THEN5910..5700
0096A0: 20 50 52 49 4E 54 22 44 41 4D 41 47 45 20 43 4F PRINT"DAMAGE CO
0096B0: 4E 54 52 4F 4C 20 52 45 50 4F 52 54 20 4E 4F 54 NTROL REPORT NOT
0096C0: 20 41 56 41 49 4C 41 42 4C 45 22 3A 49 46 44 30 AVAILABLE":IFD0
0096D0: 3D 30 54 48 45 4E 31 39 39 30 0D 0A 35 37 32 30 =0THEN1990..5720
0096E0: 20 44 33 3D 30 3A 46 4F 52 49 3D 31 54 4F 38 3A D3=0:FORI=1TO8:
0096F0: 49 46 44 28 49 29 3C 30 54 48 45 4E 44 33 3D 44 IFD(I)<0THEND3=D
009700: 48 45 4E 20 32 35 33 30 0D 0A 32 35 32 30 20 4C HEN 2530..2520 L
009710: 45 54 20 58 28 49 29 3D 30 0D 0A 32 35 33 30 20 ET X(I)=0..2530
009720: 4E 45 58 54 20 49 0D 0A 32 35 34 30 20 52 45 54 NEXT I..2540 RET
009730: 55 52 4E 0D 0A 32 35 35 30 20 46 4F 52 20 58 58 URN..2550 FOR XX
009740: 3D 31 20 54 4F 20 39 3A 50 52 49 4E 54 3A 4E 45 =1 TO 9:PRINT:NE
009750: 58 54 3A 46 4F 52 20 49 3D 31 20 54 4F 20 34 0D XT:FOR I=1 TO 4.
009760: 0A 32 35 36 30 20 46 4F 52 20 4A 3D 31 20 54 4F .2560 FOR J=1 TO
009770: 20 34 0D 0A 32 35 36 32 20 46 4F 52 20 49 31 3D 4..2562 FOR I1=
009780: 31 20 54 4F 20 4A 0D 0A 32 35 36 34 20 50 52 49 1 TO J..2564 PRI
009790: 4E 54 22 20 20 20 22 3B 0D 0A 32 35 36 36 20 4E NT" ";..2566 N
0097A0: 45 58 54 20 49 31 0D 0A 32 35 37 30 20 46 4F 52 EXT I1..2570 FOR
0097B0: 20 4B 3D 31 20 54 4F 20 34 0D 0A 32 36 30 30 20 K=1 TO 4..2600
0097C0: 4C 45 54 20 51 3D 31 36 2A 49 2B 34 2A 4A 2B 4B LET Q=16*I+4*J+K
0097D0: 2D 32 30 0D 0A 32 36 31 30 20 49 46 20 58 28 51 -20..2610 IF X(Q
0097E0: 29 3C 3E 4F 20 54 48 45 4E 20 32 36 33 30 0D 0A )<>O THEN 2630..
0097F0: 32 36 32 30 20 50 52 49 4E 54 22 28 20 29 20 20 2620 PRINT"( )
009800: 20 20 20 20 22 3B 0D 0A 32 36 33 30 20 49 46 20 ";..2630 IF
009810: 58 28 51 29 3C 3E 35 20 54 48 45 4E 20 32 36 35 X(Q)<>5 THEN 265
009820: 30 0D 0A 32 36 34 30 20 50 52 49 4E 54 22 28 4D 0..2640 PRINT"(M
009830: 29 20 20 20 20 20 20 22 3B 0D 0A 32 36 35 30 20 ) ";..2650
009840: 49 46 20 58 28 51 29 3C 3E 31 20 54 48 45 4E 20 IF X(Q)<>1 THEN
009850: 32 36 36 30 0D 0A 32 36 35 35 20 50 52 49 4E 54 2660..2655 PRINT
009860: 22 28 59 29 20 20 20 20 20 20 22 3B 0D 0A 32 36 "(Y) ";..26
009870: 36 30 20 49 46 20 58 28 51 29 3C 3E 31 2F 38 20 60 IF X(Q)<>1/8
009880: 54 48 45 4E 20 32 36 37 30 0D 0A 32 36 36 35 20 THEN 2670..2665
009890: 50 52 49 4E 54 22 28 20 29 20 20 20 20 20 20 22 PRINT"( ) "
0098A0: 3B 0D 0A 32 36 37 30 20 4E 45 58 54 20 4B 0D 0A ;..2670 NEXT K..
0098B0: 32 36 38 30 20 50 52 49 4E 54 0D 0A 32 36 39 30 2680 PRINT..2690
0098C0: 20 50 52 49 4E 54 0D 0A 32 37 30 30 20 4E 45 58 PRINT..2700 NEX
0098D0: 54 20 4A 0D 0A 32 37 31 30 20 50 52 49 4E 54 0D T J..2710 PRINT.
0098E0: 0A 32 37 32 30 20 50 52 49 4E 54 0D 0A 32 37 33 .2720 PRINT..273
0098F0: 30 20 4E 45 58 54 20 49 0D 0A 32 37 33 35 20 52 0 NEXT I..2735 R
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 00 00 02 09 52 E5 08 00 C1 02 00 00 00 02 ......R.........
009920: 08 00 C6 02 00 00 00 02 08 00 C2 02 00 00 00 02 ................
009930: 08 00 C7 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009940: 08 00 C8 02 00 00 00 02 08 00 C4 02 00 00 00 02 ................
009950: 08 00 C9 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
009A10: 22 54 49 43 2D 54 41 43 2D 54 4F 45 22 0D 0A 34 "TIC-TAC-TOE"..4
009A20: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
009A30: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
009A40: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
009A50: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 NEW JERSEY"..6 P
009A60: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
009A70: 0D 0A 38 20 50 52 49 4E 54 20 22 54 48 45 20 42 ..8 PRINT "THE B
009A80: 4F 41 52 44 20 49 53 20 4E 55 4D 42 45 52 45 44 OARD IS NUMBERED
009A90: 3A 22 0D 0A 31 30 20 50 52 49 4E 54 20 22 20 31 :"..10 PRINT " 1
009AA0: 20 20 32 20 20 33 22 0D 0A 31 32 20 50 52 49 4E 2 3"..12 PRIN
009AB0: 54 20 22 20 34 20 20 35 20 20 36 22 0D 0A 31 34 T " 4 5 6"..14
009AC0: 20 50 52 49 4E 54 20 22 20 37 20 20 38 20 20 39 PRINT " 7 8 9
009AD0: 22 0D 0A 31 36 20 50 52 49 4E 54 3A 50 52 49 4E "..16 PRINT:PRIN
009AE0: 54 3A 50 52 49 4E 54 0D 0A 32 30 20 44 49 4D 20 T:PRINT..20 DIM
009AF0: 53 28 39 29 0D 0A 35 30 20 49 4E 50 55 54 22 44 S(9)..50 INPUT"D
009B00: 4F 20 59 4F 55 20 57 41 4E 54 20 27 58 27 20 4F O YOU WANT 'X' O
009B10: 52 20 27 4F 27 22 3B 43 24 0D 0A 35 35 20 49 46 R 'O'";C$..55 IF
009B20: 20 43 24 3D 22 58 22 54 48 45 4E 20 34 37 35 0D C$="X"THEN 475.
009B30: 0A 36 30 20 50 24 3D 22 4F 22 3A 51 24 3D 22 58 .60 P$="O":Q$="X
009B40: 22 0D 0A 31 30 30 20 47 3D 2D 31 3A 48 3D 31 3A "..100 G=-1:H=1:
009B50: 49 46 20 53 28 35 29 3C 3E 30 20 54 48 45 4E 20 IF S(5)<>0 THEN
009B60: 31 30 33 0D 0A 31 30 32 20 53 28 35 29 3D 2D 31 103..102 S(5)=-1
009B70: 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 30 33 20 49 :GOTO 195..103 I
009B80: 46 20 53 28 35 29 3C 3E 31 20 54 48 45 4E 20 31 F S(5)<>1 THEN 1
009B90: 30 36 0D 0A 31 30 34 20 49 46 20 53 28 31 29 3C 06..104 IF S(1)<
009BA0: 3E 30 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 35 >0 THEN 110..105
009BB0: 20 53 28 31 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 S(1)=-1:GOTO 19
009BC0: 35 0D 0A 31 30 36 20 49 46 20 53 28 32 29 3D 31 5..106 IF S(2)=1
009BD0: 20 41 4E 44 20 53 28 31 29 3D 30 20 54 48 45 4E AND S(1)=0 THEN
009BE0: 20 31 38 31 0D 0A 31 30 37 20 49 46 20 53 28 34 181..107 IF S(4
009BF0: 29 3D 31 20 41 4E 44 20 53 28 31 29 3D 30 20 54 )=1 AND S(1)=0 T
009C00: 2B 31 29 54 48 45 4E 20 31 31 31 35 0D 0A 31 31 +1)THEN 1115..11
009C10: 30 35 20 49 46 20 53 28 49 29 3C 3E 53 28 49 2B 05 IF S(I)<>S(I+
009C20: 32 29 54 48 45 4E 20 31 31 31 35 0D 0A 31 31 31 2)THEN 1115..111
009C30: 30 20 49 46 20 53 28 49 29 3D 2D 31 20 54 48 45 0 IF S(I)=-1 THE
009C40: 4E 20 31 33 35 30 0D 0A 31 31 31 32 20 49 46 20 N 1350..1112 IF
009C50: 53 28 49 29 3D 31 20 54 48 45 4E 20 31 32 30 30 S(I)=1 THEN 1200
009C60: 0D 0A 31 31 31 35 20 4E 45 58 54 20 49 3A 46 4F ..1115 NEXT I:FO
009C70: 52 20 49 3D 31 20 54 4F 20 33 3A 49 46 20 53 28 R I=1 TO 3:IF S(
009C80: 49 29 3C 3E 53 28 49 2B 33 29 54 48 45 4E 20 31 I)<>S(I+3)THEN 1
009C90: 31 35 30 0D 0A 31 31 33 30 20 49 46 20 53 28 49 150..1130 IF S(I
009CA0: 29 3C 3E 53 28 49 2B 36 29 54 48 45 4E 20 31 31 )<>S(I+6)THEN 11
009CB0: 35 30 0D 0A 31 31 33 35 20 49 46 20 53 28 49 29 50..1135 IF S(I)
009CC0: 3D 2D 31 20 54 48 45 4E 20 31 33 35 30 0D 0A 31 =-1 THEN 1350..1
009CD0: 31 33 37 20 49 46 20 53 28 49 29 3D 31 20 54 48 137 IF S(I)=1 TH
009CE0: 45 4E 20 31 32 30 30 0D 0A 31 31 35 30 20 4E 45 EN 1200..1150 NE
009CF0: 58 54 20 49 3A 46 4F 52 20 49 3D 31 20 54 4F 20 XT I:FOR I=1 TO
009D00: 39 3A 49 46 20 53 28 49 29 3D 30 20 54 48 45 4E 9:IF S(I)=0 THEN
009D10: 20 31 31 35 35 0D 0A 31 31 35 32 20 4E 45 58 54 1155..1152 NEXT
009D20: 20 49 3A 47 4F 54 4F 20 31 34 30 30 0D 0A 31 31 I:GOTO 1400..11
009D30: 35 35 20 49 46 20 53 28 35 29 3C 3E 47 20 54 48 55 IF S(5)<>G TH
009D40: 45 4E 20 31 31 37 30 0D 0A 31 31 36 30 20 49 46 EN 1170..1160 IF
009D50: 20 53 28 31 29 3D 47 20 41 4E 44 20 53 28 39 29 S(1)=G AND S(9)
009D60: 3D 47 20 54 48 45 4E 20 31 31 38 30 0D 0A 31 31 =G THEN 1180..11
009D70: 36 35 20 49 46 20 53 28 33 29 3D 47 20 41 4E 44 65 IF S(3)=G AND
009D80: 20 53 28 37 29 3D 47 20 54 48 45 4E 20 31 31 38 S(7)=G THEN 118
009D90: 30 0D 0A 31 31 37 30 20 52 45 54 55 52 4E 0D 0A 0..1170 RETURN..
009DA0: 31 31 38 30 20 49 46 20 47 3D 2D 31 20 54 48 45 1180 IF G=-1 THE
009DB0: 4E 20 31 33 35 30 0D 0A 31 32 30 30 20 50 52 49 N 1350..1200 PRI
009DC0: 4E 54 22 59 4F 55 20 42 45 41 54 20 4D 45 21 21 NT"YOU BEAT ME!!
009DD0: 20 47 4F 4F 44 20 47 41 4D 45 2E 22 3A 47 4F 54 GOOD GAME.":GOT
009DE0: 4F 20 32 30 30 30 0D 0A 31 33 35 30 20 50 52 49 O 2000..1350 PRI
009DF0: 4E 54 22 49 20 57 49 4E 2C 20 54 55 52 4B 45 59 NT"I WIN, TURKEY
009E00: 48 45 4E 20 31 38 31 0D 0A 31 30 38 20 49 46 20 HEN 181..108 IF
009E10: 53 28 36 29 3D 31 20 41 4E 44 20 53 28 39 29 3D S(6)=1 AND S(9)=
009E20: 30 20 54 48 45 4E 20 31 38 39 0D 0A 31 30 39 20 0 THEN 189..109
009E30: 49 46 20 53 28 38 29 3D 31 20 41 4E 44 20 53 28 IF S(8)=1 AND S(
009E40: 39 29 3D 30 20 54 48 45 4E 20 31 38 39 0D 0A 31 9)=0 THEN 189..1
009E50: 31 30 20 49 46 20 47 3D 31 20 54 48 45 4E 20 31 10 IF G=1 THEN 1
009E60: 31 32 0D 0A 31 31 31 20 47 4F 54 4F 20 31 31 38 12..111 GOTO 118
009E70: 0D 0A 31 31 32 20 4A 3D 33 2A 49 4E 54 28 28 4D ..112 J=3*INT((M
009E80: 2D 31 29 2F 33 29 2B 31 0D 0A 31 31 33 20 49 46 -1)/3)+1..113 IF
009E90: 20 33 2A 49 4E 54 28 28 4D 2D 31 29 2F 33 29 2B 3*INT((M-1)/3)+
009EA0: 31 3D 4D 20 54 48 45 4E 20 4B 3D 31 0D 0A 31 31 1=M THEN K=1..11
009EB0: 34 20 49 46 20 33 2A 49 4E 54 28 28 4D 2D 31 29 4 IF 3*INT((M-1)
009EC0: 2F 33 29 2B 32 3D 4D 20 54 48 45 4E 20 4B 3D 32 /3)+2=M THEN K=2
009ED0: 0D 0A 31 31 35 20 49 46 20 33 2A 49 4E 54 28 28 ..115 IF 3*INT((
009EE0: 4D 2D 31 29 2F 33 29 2B 33 3D 4D 20 54 48 45 4E M-1)/3)+3=M THEN
009EF0: 20 4B 3D 33 0D 0A 31 31 36 20 47 4F 54 4F 20 31 K=3..116 GOTO 1
009F00: 32 30 0D 0A 31 31 38 20 46 4F 52 20 4A 3D 31 20 20..118 FOR J=1
009F10: 54 4F 20 37 20 53 54 45 50 20 33 3A 46 4F 52 20 TO 7 STEP 3:FOR
009F20: 4B 3D 31 20 54 4F 20 33 0D 0A 31 32 30 20 49 46 K=1 TO 3..120 IF
009F30: 20 53 28 4A 29 3C 3E 47 20 54 48 45 4E 20 31 33 S(J)<>G THEN 13
009F40: 30 0D 0A 31 32 32 20 49 46 20 53 28 4A 2B 32 29 0..122 IF S(J+2)
009F50: 3C 3E 47 20 54 48 45 4E 20 31 33 35 0D 0A 31 32 <>G THEN 135..12
009F60: 36 20 49 46 20 53 28 4A 2B 31 29 3C 3E 30 20 54 6 IF S(J+1)<>0 T
009F70: 48 45 4E 20 31 35 30 0D 0A 31 32 38 20 53 28 4A HEN 150..128 S(J
009F80: 2B 31 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 35 0D +1)=-1:GOTO 195.
009F90: 0A 31 33 30 20 49 46 20 53 28 4A 29 3D 48 20 54 .130 IF S(J)=H T
009FA0: 48 45 4E 20 31 35 30 0D 0A 31 33 31 20 49 46 20 HEN 150..131 IF
009FB0: 53 28 4A 2B 32 29 3C 3E 47 20 54 48 45 4E 20 31 S(J+2)<>G THEN 1
009FC0: 35 30 0D 0A 31 33 32 20 49 46 20 53 28 4A 2B 31 50..132 IF S(J+1
009FD0: 29 3C 3E 47 20 54 48 45 4E 20 31 35 30 0D 0A 31 )<>G THEN 150..1
009FE0: 33 33 20 53 28 4A 29 3D 2D 31 3A 47 4F 54 4F 20 33 S(J)=-1:GOTO
009FF0: 31 39 35 0D 0A 31 33 35 20 49 46 20 53 28 4A 2B 195..135 IF S(J+
00A000: 21 21 21 22 3A 47 4F 54 4F 20 32 30 30 30 0D 0A !!!":GOTO 2000..
00A010: 31 34 30 30 20 50 52 49 4E 54 22 49 54 27 53 20 1400 PRINT"IT'S
00A020: 41 20 44 52 41 57 2E 20 54 48 41 4E 4B 20 59 4F A DRAW. THANK YO
00A030: 55 2E 22 0D 0A 32 30 30 30 20 45 4E 44 0D 0A 1A U."..2000 END...
00A040: 3D 31 3A 4F 4E 41 2B 31 47 4F 54 4F 37 35 34 30 =1:ONA+1GOTO7540
00A050: 2C 37 39 30 30 2C 38 30 37 30 2C 38 35 30 30 2C ,7900,8070,8500,
00A060: 38 31 35 30 2C 37 34 30 30 0D 0A 37 33 36 30 20 8150,7400..7360
00A070: 50 52 49 4E 54 22 46 55 4E 43 54 49 4F 4E 53 20 PRINT"FUNCTIONS
00A080: 41 56 41 49 4C 41 42 4C 45 20 46 52 4F 4D 20 4C AVAILABLE FROM L
00A090: 49 42 52 41 52 59 2D 43 4F 4D 50 55 54 45 52 3A IBRARY-COMPUTER:
00A0A0: 22 0D 0A 37 33 37 30 20 50 52 49 4E 54 22 20 20 "..7370 PRINT"
00A0B0: 20 30 20 3D 20 43 55 4D 55 4C 41 54 49 56 45 20 0 = CUMULATIVE
00A0C0: 47 41 4C 41 43 54 49 43 20 52 45 43 4F 52 44 22 GALACTIC RECORD"
00A0D0: 0D 0A 37 33 37 32 20 50 52 49 4E 54 22 20 20 20 ..7372 PRINT"
00A0E0: 31 20 3D 20 53 54 41 54 55 53 20 52 45 50 4F 52 1 = STATUS REPOR
00A0F0: 54 22 0D 0A 37 33 37 34 20 50 52 49 4E 54 22 20 T"..7374 PRINT"
00A100: 20 20 32 20 3D 20 50 48 4F 54 4F 4E 20 54 4F 52 2 = PHOTON TOR
00A110: 50 45 44 4F 20 44 41 54 41 22 0D 0A 37 33 37 36 PEDO DATA"..7376
00A120: 20 50 52 49 4E 54 22 20 20 20 33 20 3D 20 53 54 PRINT" 3 = ST
00A130: 41 52 42 41 53 45 20 4E 41 56 20 44 41 54 41 22 ARBASE NAV DATA"
00A140: 0D 0A 37 33 37 38 20 50 52 49 4E 54 22 20 20 20 ..7378 PRINT"
00A150: 34 20 3D 20 44 49 52 45 43 54 49 4F 4E 2F 44 49 4 = DIRECTION/DI
00A160: 53 54 41 4E 43 45 20 43 41 4C 43 55 4C 41 54 4F STANCE CALCULATO
00A170: 52 22 0D 0A 37 33 38 30 20 50 52 49 4E 54 22 20 R"..7380 PRINT"
00A180: 20 20 35 20 3D 20 47 41 4C 41 58 59 20 27 52 45 5 = GALAXY 'RE
00A190: 47 49 4F 4E 20 4E 41 4D 45 27 20 4D 41 50 22 3A GION NAME' MAP":
00A1A0: 50 52 49 4E 54 3A 47 4F 54 4F 37 33 32 30 0D 0A PRINT:GOTO7320..
00A1B0: 37 33 39 30 20 52 45 4D 20 53 45 54 55 50 20 54 7390 REM SETUP T
00A1C0: 4F 20 43 48 41 4E 47 45 20 43 55 4D 20 47 41 4C O CHANGE CUM GAL
00A1D0: 20 52 45 43 4F 52 44 20 54 4F 20 47 41 4C 41 58 RECORD TO GALAX
00A1E0: 59 20 4D 41 50 0D 0A 37 34 30 30 20 48 38 3D 30 Y MAP..7400 H8=0
00A1F0: 3A 47 35 3D 31 3A 50 52 49 4E 54 22 20 20 20 20 :G5=1:PRINT"
00A200: 32 29 3C 3E 30 20 54 48 45 4E 20 31 35 30 0D 0A 2)<>0 THEN 150..
00A210: 31 33 36 20 49 46 20 53 28 4A 2B 31 29 3C 3E 47 136 IF S(J+1)<>G
00A220: 20 54 48 45 4E 20 31 35 30 0D 0A 31 33 38 20 53 THEN 150..138 S
00A230: 28 4A 2B 32 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 (J+2)=-1:GOTO 19
00A240: 35 0D 0A 31 35 30 20 49 46 20 53 28 4B 29 3C 3E 5..150 IF S(K)<>
00A250: 47 20 54 48 45 4E 20 31 36 30 0D 0A 31 35 32 20 G THEN 160..152
00A260: 49 46 20 53 28 4B 2B 36 29 3C 3E 47 20 54 48 45 IF S(K+6)<>G THE
00A270: 4E 20 31 36 35 0D 0A 31 35 36 20 49 46 20 53 28 N 165..156 IF S(
00A280: 4B 2B 33 29 3C 3E 30 20 54 48 45 4E 20 31 37 30 K+3)<>0 THEN 170
00A290: 0D 0A 31 35 38 20 53 28 4B 2B 33 29 3D 2D 31 3A ..158 S(K+3)=-1:
00A2A0: 47 4F 54 4F 20 31 39 35 0D 0A 31 36 30 20 49 46 GOTO 195..160 IF
00A2B0: 20 53 28 4B 29 3D 48 20 54 48 45 4E 20 31 37 30 S(K)=H THEN 170
00A2C0: 0D 0A 31 36 31 20 49 46 20 53 28 4B 2B 36 29 3C ..161 IF S(K+6)<
00A2D0: 3E 47 20 54 48 45 4E 20 31 37 30 0D 0A 31 36 32 >G THEN 170..162
00A2E0: 20 49 46 20 53 28 4B 2B 33 29 3C 3E 47 20 54 48 IF S(K+3)<>G TH
00A2F0: 45 4E 20 31 37 30 0D 0A 31 36 33 20 53 28 4B 29 EN 170..163 S(K)
00A300: 3D 2D 31 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 36 =-1:GOTO 195..16
00A310: 35 20 49 46 20 53 28 4B 2B 36 29 3C 3E 30 20 54 5 IF S(K+6)<>0 T
00A320: 48 45 4E 20 31 37 30 0D 0A 31 36 36 20 49 46 20 HEN 170..166 IF
00A330: 53 28 4B 2B 33 29 3C 3E 47 20 54 48 45 4E 20 31 S(K+3)<>G THEN 1
00A340: 37 30 0D 0A 31 36 38 20 53 28 4B 2B 36 29 3D 2D 70..168 S(K+6)=-
00A350: 31 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 37 30 20 1:GOTO 195..170
00A360: 47 4F 54 4F 20 34 35 30 0D 0A 31 37 31 20 49 46 GOTO 450..171 IF
00A370: 20 53 28 33 29 3D 47 20 41 4E 44 20 53 28 37 29 S(3)=G AND S(7)
00A380: 3D 30 20 54 48 45 4E 20 31 38 37 0D 0A 31 37 32 =0 THEN 187..172
00A390: 20 49 46 20 53 28 39 29 3D 47 20 41 4E 44 20 53 IF S(9)=G AND S
00A3A0: 28 31 29 3D 30 20 54 48 45 4E 20 31 38 31 0D 0A (1)=0 THEN 181..
00A3B0: 31 37 33 20 49 46 20 53 28 37 29 3D 47 20 41 4E 173 IF S(7)=G AN
00A3C0: 44 20 53 28 33 29 3D 30 20 54 48 45 4E 20 31 38 D S(3)=0 THEN 18
00A3D0: 33 0D 0A 31 37 34 20 49 46 20 53 28 39 29 3D 30 3..174 IF S(9)=0
00A3E0: 20 41 4E 44 20 53 28 31 29 3D 47 20 54 48 45 4E AND S(1)=G THEN
00A3F0: 20 31 38 39 0D 0A 31 37 35 20 49 46 20 47 3D 2D 189..175 IF G=-
00A400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A410: 20 20 20 20 54 48 45 20 47 41 4C 41 58 59 22 3A THE GALAXY":
00A420: 47 4F 54 4F 37 35 35 30 0D 0A 37 35 33 30 20 52 GOTO7550..7530 R
00A430: 45 4D 20 43 55 4D 20 47 41 4C 41 43 54 49 43 20 EM CUM GALACTIC
00A440: 52 45 43 4F 52 44 0D 0A 37 35 34 30 20 52 45 4D RECORD..7540 REM
00A450: 20 49 4E 50 55 54 22 44 4F 20 59 4F 55 20 57 41 INPUT"DO YOU WA
00A460: 4E 54 20 41 20 48 41 52 44 43 4F 50 59 3F 20 49 NT A HARDCOPY? I
00A470: 53 20 54 48 45 20 54 54 59 20 4F 4E 20 28 59 2F S THE TTY ON (Y/
00A480: 4E 29 22 3B 41 24 0D 0A 37 35 34 32 20 52 45 4D N)";A$..7542 REM
00A490: 20 49 46 41 24 3D 22 59 22 54 48 45 4E 50 4F 4B IFA$="Y"THENPOK
00A4A0: 45 31 32 32 39 2C 32 3A 50 4F 4B 45 31 32 33 37 E1229,2:POKE1237
00A4B0: 2C 33 3A 4E 55 4C 4C 31 0D 0A 37 35 34 33 20 50 ,3:NULL1..7543 P
00A4C0: 52 49 4E 54 3A 50 52 49 4E 54 22 20 20 20 20 20 RINT:PRINT"
00A4D0: 20 20 20 22 3B 0D 0A 37 35 34 34 20 50 52 49 4E ";..7544 PRIN
00A4E0: 54 22 43 4F 4D 50 55 54 45 52 20 52 45 43 4F 52 T"COMPUTER RECOR
00A4F0: 44 20 4F 46 20 47 41 4C 41 58 59 20 46 4F 52 20 D OF GALAXY FOR
00A500: 51 55 41 44 52 41 4E 54 22 3B 51 31 3B 22 2C 22 QUADRANT";Q1;","
00A510: 3B 51 32 0D 0A 37 35 34 36 20 50 52 49 4E 54 0D ;Q2..7546 PRINT.
00A520: 0A 37 35 35 30 20 50 52 49 4E 54 22 20 20 20 20 .7550 PRINT"
00A530: 20 20 20 31 20 20 20 20 20 32 20 20 20 20 20 33 1 2 3
00A540: 20 20 20 20 20 34 20 20 20 20 20 35 20 20 20 20 4 5
00A550: 20 36 20 20 20 20 20 37 20 20 20 20 20 38 22 0D 6 7 8".
00A560: 0A 37 35 36 30 20 4F 31 24 3D 22 20 20 20 20 20 .7560 O1$="
00A570: 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D ----- ----- ----
00A580: 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D - ----- ----- --
00A590: 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 22 --- ----- -----"
00A5A0: 0D 0A 37 35 37 30 20 50 52 49 4E 54 4F 31 24 3A ..7570 PRINTO1$:
00A5B0: 46 4F 52 49 3D 31 54 4F 38 3A 50 52 49 4E 54 49 FORI=1TO8:PRINTI
00A5C0: 3B 3A 49 46 48 38 3D 30 54 48 45 4E 37 37 34 30 ;:IFH8=0THEN7740
00A5D0: 0D 0A 37 36 33 30 20 46 4F 52 4A 3D 31 54 4F 38 ..7630 FORJ=1TO8
00A5E0: 3A 50 52 49 4E 54 22 20 20 20 22 3B 3A 49 46 5A :PRINT" ";:IFZ
00A5F0: 28 49 2C 4A 29 3D 30 54 48 45 4E 50 52 49 4E 54 (I,J)=0THENPRINT
00A600: 31 20 54 48 45 4E 20 47 3D 31 3A 48 3D 2D 31 3A 1 THEN G=1:H=-1:
00A610: 47 4F 54 4F 20 31 31 30 0D 0A 31 37 36 20 49 46 GOTO 110..176 IF
00A620: 20 53 28 39 29 3D 31 20 41 4E 44 20 53 28 33 29 S(9)=1 AND S(3)
00A630: 3D 30 20 54 48 45 4E 20 31 38 32 0D 0A 31 37 37 =0 THEN 182..177
00A640: 20 46 4F 52 20 49 3D 32 20 54 4F 20 39 3A 49 46 FOR I=2 TO 9:IF
00A650: 20 53 28 49 29 3C 3E 30 20 54 48 45 4E 20 31 37 S(I)<>0 THEN 17
00A660: 39 0D 0A 31 37 38 20 53 28 49 29 3D 2D 31 3A 47 9..178 S(I)=-1:G
00A670: 4F 54 4F 20 31 39 35 0D 0A 31 37 39 20 4E 45 58 OTO 195..179 NEX
00A680: 54 20 49 0D 0A 31 38 31 20 53 28 31 29 3D 2D 31 T I..181 S(1)=-1
00A690: 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 38 32 20 49 :GOTO 195..182 I
00A6A0: 46 20 53 28 31 29 3D 31 20 54 48 45 4E 20 31 37 F S(1)=1 THEN 17
00A6B0: 37 0D 0A 31 38 33 20 53 28 33 29 3D 2D 31 3A 47 7..183 S(3)=-1:G
00A6C0: 4F 54 4F 20 31 39 35 0D 0A 31 38 37 20 53 28 37 OTO 195..187 S(7
00A6D0: 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 )=-1:GOTO 195..1
00A6E0: 38 39 20 53 28 39 29 3D 2D 31 0D 0A 31 39 35 20 89 S(9)=-1..195
00A6F0: 50 52 49 4E 54 3A 50 52 49 4E 54 22 54 48 45 20 PRINT:PRINT"THE
00A700: 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 54 COMPUTER MOVES T
00A710: 4F 2E 2E 2E 22 0D 0A 32 30 32 20 47 4F 53 55 42 O..."..202 GOSUB
00A720: 20 31 30 30 30 0D 0A 32 30 35 20 47 4F 54 4F 20 1000..205 GOTO
00A730: 35 30 30 0D 0A 34 35 30 20 49 46 20 47 3D 31 20 500..450 IF G=1
00A740: 54 48 45 4E 20 34 36 35 0D 0A 34 35 35 20 49 46 THEN 465..455 IF
00A750: 20 4A 3D 37 20 41 4E 44 20 4B 3D 33 20 54 48 45 J=7 AND K=3 THE
00A760: 4E 20 34 36 35 0D 0A 34 36 30 20 4E 45 58 54 20 N 465..460 NEXT
00A770: 4B 2C 4A 0D 0A 34 36 35 20 49 46 20 53 28 35 29 K,J..465 IF S(5)
00A780: 3D 47 20 54 48 45 4E 20 31 37 31 0D 0A 34 36 37 =G THEN 171..467
00A790: 20 47 4F 54 4F 20 31 37 35 0D 0A 34 37 35 20 50 GOTO 175..475 P
00A7A0: 24 3D 22 58 22 3A 51 24 3D 22 4F 22 0D 0A 35 30 $="X":Q$="O"..50
00A7B0: 30 20 50 52 49 4E 54 3A 49 4E 50 55 54 22 57 48 0 PRINT:INPUT"WH
00A7C0: 45 52 45 20 44 4F 20 59 4F 55 20 4D 4F 56 45 22 ERE DO YOU MOVE"
00A7D0: 3B 4D 0D 0A 35 30 32 20 49 46 20 4D 3D 30 20 54 ;M..502 IF M=0 T
00A7E0: 48 45 4E 20 50 52 49 4E 54 22 54 48 41 4E 4B 53 HEN PRINT"THANKS
00A7F0: 20 46 4F 52 20 54 48 45 20 47 41 4D 45 2E 22 3A FOR THE GAME.":
00A800: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
00A810: 3B 22 54 4F 57 45 52 53 22 0D 0A 32 30 20 50 52 ;"TOWERS"..20 PR
00A820: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
00A830: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
00A840: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
00A850: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
00A860: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
00A870: 39 30 20 50 52 49 4E 54 0D 0A 31 30 30 20 52 45 90 PRINT..100 RE
00A880: 4D 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 0D M*** INITIALIZE.
00A890: 0A 31 31 30 20 44 49 4D 20 54 28 37 2C 33 29 0D .110 DIM T(7,3).
00A8A0: 0A 31 32 30 20 45 3D 30 0D 0A 31 33 30 20 46 4F .120 E=0..130 FO
00A8B0: 52 20 44 3D 31 20 54 4F 20 37 0D 0A 31 34 30 20 R D=1 TO 7..140
00A8C0: 46 4F 52 20 4E 3D 31 20 54 4F 20 33 0D 0A 31 35 FOR N=1 TO 3..15
00A8D0: 30 20 54 28 44 2C 4E 29 3D 30 0D 0A 31 36 30 20 0 T(D,N)=0..160
00A8E0: 4E 45 58 54 20 4E 0D 0A 31 37 30 20 4E 45 58 54 NEXT N..170 NEXT
00A8F0: 20 44 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 54 D..180 PRINT "T
00A900: 4F 57 45 52 53 20 4F 46 20 48 41 4E 4F 49 20 50 OWERS OF HANOI P
00A910: 55 5A 5A 4C 45 2E 22 3A 20 50 52 49 4E 54 0D 0A UZZLE.": PRINT..
00A920: 32 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4D 200 PRINT "YOU M
00A930: 55 53 54 20 54 52 41 4E 53 46 45 52 20 54 48 45 UST TRANSFER THE
00A940: 20 44 49 53 4B 53 20 46 52 4F 4D 20 54 48 45 20 DISKS FROM THE
00A950: 4C 45 46 54 20 54 4F 20 54 48 45 20 52 49 47 48 LEFT TO THE RIGH
00A960: 54 22 0D 0A 32 30 35 20 50 52 49 4E 54 20 22 54 T"..205 PRINT "T
00A970: 4F 57 45 52 2C 20 4F 4E 45 20 41 54 20 41 20 54 OWER, ONE AT A T
00A980: 49 4D 45 2C 20 4E 45 56 45 52 20 50 55 54 54 49 IME, NEVER PUTTI
00A990: 4E 47 20 41 20 4C 41 52 47 45 52 20 44 49 53 4B NG A LARGER DISK
00A9A0: 20 4F 4E 20 41 22 0D 0A 32 31 30 20 50 52 49 4E ON A"..210 PRIN
00A9B0: 54 20 22 53 4D 41 4C 4C 45 52 20 44 49 53 4B 2E T "SMALLER DISK.
00A9C0: 22 3A 20 50 52 49 4E 54 0D 0A 32 31 35 20 49 4E ": PRINT..215 IN
00A9D0: 50 55 54 20 22 48 4F 57 20 4D 41 4E 59 20 44 49 PUT "HOW MANY DI
00A9E0: 53 4B 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 SKS DO YOU WANT
00A9F0: 54 4F 20 4D 4F 56 45 20 28 37 20 49 53 20 4D 41 TO MOVE (7 IS MA
00AA00: 47 4F 54 4F 20 32 30 30 30 0D 0A 35 30 33 20 49 GOTO 2000..503 I
00AA10: 46 20 4D 3E 39 20 54 48 45 4E 20 35 30 36 0D 0A F M>9 THEN 506..
00AA20: 35 30 35 20 49 46 20 53 28 4D 29 3D 30 20 54 48 505 IF S(M)=0 TH
00AA30: 45 4E 20 35 31 30 0D 0A 35 30 36 20 50 52 49 4E EN 510..506 PRIN
00AA40: 54 22 54 48 41 54 20 53 51 55 41 52 45 20 49 53 T"THAT SQUARE IS
00AA50: 20 4F 43 43 55 50 49 45 44 2E 22 3A 50 52 49 4E OCCUPIED.":PRIN
00AA60: 54 3A 50 52 49 4E 54 3A 47 4F 54 4F 20 35 30 30 T:PRINT:GOTO 500
00AA70: 0D 0A 35 31 30 20 47 3D 31 3A 53 28 4D 29 3D 31 ..510 G=1:S(M)=1
00AA80: 0D 0A 35 32 30 20 47 4F 53 55 42 20 31 30 30 30 ..520 GOSUB 1000
00AA90: 0D 0A 35 33 30 20 47 4F 54 4F 20 31 30 30 0D 0A ..530 GOTO 100..
00AAA0: 31 30 30 30 20 50 52 49 4E 54 3A 46 4F 52 20 49 1000 PRINT:FOR I
00AAB0: 3D 31 20 54 4F 20 39 3A 50 52 49 4E 54 22 20 22 =1 TO 9:PRINT" "
00AAC0: 3B 3A 49 46 20 53 28 49 29 3C 3E 2D 31 20 54 48 ;:IF S(I)<>-1 TH
00AAD0: 45 4E 20 31 30 31 34 0D 0A 31 30 31 32 20 50 52 EN 1014..1012 PR
00AAE0: 49 4E 54 20 51 24 22 20 22 3B 3A 47 4F 54 4F 20 INT Q$" ";:GOTO
00AAF0: 31 30 32 30 0D 0A 31 30 31 34 20 49 46 20 53 28 1020..1014 IF S(
00AB00: 49 29 3C 3E 30 20 54 48 45 4E 20 31 30 31 38 0D I)<>0 THEN 1018.
00AB10: 0A 31 30 31 36 20 50 52 49 4E 54 22 20 20 22 3B .1016 PRINT" ";
00AB20: 3A 47 4F 54 4F 20 31 30 32 30 0D 0A 31 30 31 38 :GOTO 1020..1018
00AB30: 20 50 52 49 4E 54 20 50 24 22 20 22 3B 0D 0A 31 PRINT P$" ";..1
00AB40: 30 32 30 20 49 46 20 49 3C 3E 33 20 41 4E 44 20 020 IF I<>3 AND
00AB50: 49 3C 3E 36 20 54 48 45 4E 20 31 30 35 30 0D 0A I<>6 THEN 1050..
00AB60: 31 30 33 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 1030 PRINT:PRINT
00AB70: 22 2D 2D 2D 2B 2D 2D 2D 2B 2D 2D 2D 22 0D 0A 31 "---+---+---"..1
00AB80: 30 34 30 20 47 4F 54 4F 20 31 30 38 30 0D 0A 31 040 GOTO 1080..1
00AB90: 30 35 30 20 49 46 20 49 3D 39 20 54 48 45 4E 20 050 IF I=9 THEN
00ABA0: 31 30 38 30 0D 0A 31 30 36 30 20 50 52 49 4E 54 1080..1060 PRINT
00ABB0: 22 21 22 3B 0D 0A 31 30 38 30 20 4E 45 58 54 20 "!";..1080 NEXT
00ABC0: 49 3A 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 I:PRINT:PRINT:PR
00ABD0: 49 4E 54 0D 0A 31 30 39 35 20 46 4F 52 20 49 3D INT..1095 FOR I=
00ABE0: 31 20 54 4F 20 37 20 53 54 45 50 20 33 0D 0A 31 1 TO 7 STEP 3..1
00ABF0: 31 30 30 20 49 46 20 53 28 49 29 3C 3E 53 28 49 100 IF S(I)<>S(I
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 00 00 02 09 52 E5 09 00 C1 02 00 00 00 02 ......R.........
00AC20: 09 00 C6 02 00 00 00 02 09 00 C2 02 00 00 00 02 ................
00AC30: 09 00 C7 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC40: 09 00 C8 02 00 00 00 02 09 00 C4 02 00 00 00 02 ................
00AC50: 09 00 C9 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 58 29 22 3B 53 0D 0A 32 32 30 20 50 52 49 4E 54 X)";S..220 PRINT
00AD10: 0D 0A 32 33 30 20 4D 3D 30 0D 0A 32 34 30 20 46 ..230 M=0..240 F
00AD20: 4F 52 20 51 3D 31 20 54 4F 20 37 0D 0A 32 35 30 OR Q=1 TO 7..250
00AD30: 20 49 46 20 51 3D 53 20 54 48 45 4E 20 33 35 30 IF Q=S THEN 350
00AD40: 0D 0A 32 36 30 20 4E 45 58 54 20 51 0D 0A 32 37 ..260 NEXT Q..27
00AD50: 30 20 45 3D 45 2B 31 0D 0A 32 38 30 20 49 46 20 0 E=E+1..280 IF
00AD60: 45 3E 32 20 54 48 45 4E 20 33 31 30 0D 0A 32 39 E>2 THEN 310..29
00AD70: 30 20 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 0 PRINT "SORRY,
00AD80: 42 55 54 20 49 20 43 41 4E 27 54 20 44 4F 20 54 BUT I CAN'T DO T
00AD90: 48 41 54 20 4A 4F 42 20 46 4F 52 20 59 4F 55 2E HAT JOB FOR YOU.
00ADA0: 22 3A 20 47 4F 54 4F 20 32 31 35 0D 0A 33 31 30 ": GOTO 215..310
00ADB0: 20 50 52 49 4E 54 20 22 41 4C 4C 20 52 49 47 48 PRINT "ALL RIGH
00ADC0: 54 2C 20 57 49 53 45 20 47 55 59 2C 20 49 46 20 T, WISE GUY, IF
00ADD0: 59 4F 55 20 43 41 4E 27 54 20 50 4C 41 59 20 54 YOU CAN'T PLAY T
00ADE0: 48 45 20 47 41 4D 45 20 52 49 47 48 54 2C 20 49 HE GAME RIGHT, I
00ADF0: 27 4C 4C 22 0D 0A 33 32 30 20 50 52 49 4E 54 20 'LL"..320 PRINT
00AE00: 22 4A 55 53 54 20 54 41 4B 45 20 4D 59 20 50 55 "JUST TAKE MY PU
00AE10: 5A 5A 4C 45 20 41 4E 44 20 47 4F 20 48 4F 4D 45 ZZLE AND GO HOME
00AE20: 2E 20 20 53 4F 20 4C 4F 4E 47 2E 22 3A 20 53 54 . SO LONG.": ST
00AE30: 4F 50 0D 0A 33 34 30 20 52 45 4D 20 2A 2A 2A 20 OP..340 REM ***
00AE40: 53 54 4F 52 45 20 44 49 53 4B 53 20 46 52 4F 4D STORE DISKS FROM
00AE50: 20 53 4D 41 4C 4C 45 53 54 20 54 4F 20 4C 41 52 SMALLEST TO LAR
00AE60: 47 45 53 54 0D 0A 33 35 30 20 50 52 49 4E 54 20 GEST..350 PRINT
00AE70: 22 49 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D "IN THIS PROGRAM
00AE80: 2C 20 57 45 20 53 48 41 4C 4C 20 52 45 46 45 52 , WE SHALL REFER
00AE90: 20 54 4F 20 44 49 53 4B 53 20 42 59 20 4E 55 4D TO DISKS BY NUM
00AEA0: 45 52 49 43 41 4C 20 43 4F 44 45 2E 22 0D 0A 33 ERICAL CODE."..3
00AEB0: 35 35 20 50 52 49 4E 54 20 22 33 20 57 49 4C 4C 55 PRINT "3 WILL
00AEC0: 20 52 45 50 52 45 53 45 4E 54 20 54 48 45 20 53 REPRESENT THE S
00AED0: 4D 41 4C 4C 45 53 54 20 44 49 53 4B 2C 20 35 20 MALLEST DISK, 5
00AEE0: 54 48 45 20 4E 45 58 54 20 53 49 5A 45 2C 22 0D THE NEXT SIZE,".
00AEF0: 0A 33 36 30 20 50 52 49 4E 54 20 22 37 20 54 48 .360 PRINT "7 TH
00AF00: 54 28 56 2C 57 29 3A 20 54 28 56 2C 57 29 3D 30 T(V,W): T(V,W)=0
00AF10: 0D 0A 39 39 35 20 52 45 4D 20 2A 2A 2A 20 50 52 ..995 REM *** PR
00AF20: 49 4E 54 20 4F 55 54 20 43 55 52 52 45 4E 54 20 INT OUT CURRENT
00AF30: 53 54 41 54 55 53 0D 0A 31 30 30 30 20 47 4F 53 STATUS..1000 GOS
00AF40: 55 42 20 31 32 33 30 0D 0A 31 30 31 38 20 52 45 UB 1230..1018 RE
00AF50: 4D 20 2A 2A 2A 20 43 48 45 43 4B 20 49 46 20 44 M *** CHECK IF D
00AF60: 4F 4E 45 0D 0A 31 30 32 30 20 4D 3D 4D 2B 31 0D ONE..1020 M=M+1.
00AF70: 0A 31 30 33 30 20 46 4F 52 20 52 3D 31 20 54 4F .1030 FOR R=1 TO
00AF80: 20 37 3A 20 46 4F 52 20 43 3D 31 20 54 4F 20 32 7: FOR C=1 TO 2
00AF90: 0D 0A 31 30 35 30 20 49 46 20 54 28 52 2C 43 29 ..1050 IF T(R,C)
00AFA0: 3C 3E 30 20 54 48 45 4E 20 31 30 39 30 0D 0A 31 <>0 THEN 1090..1
00AFB0: 30 36 30 20 4E 45 58 54 20 43 3A 20 4E 45 58 54 060 NEXT C: NEXT
00AFC0: 20 52 0D 0A 31 30 38 30 20 47 4F 54 4F 20 31 31 R..1080 GOTO 11
00AFD0: 32 30 0D 0A 31 30 39 30 20 49 46 20 4D 3C 3D 31 20..1090 IF M<=1
00AFE0: 32 38 20 54 48 45 4E 20 34 38 30 0D 0A 31 31 30 28 THEN 480..110
00AFF0: 30 20 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 0 PRINT "SORRY,
00B000: 42 55 54 20 49 20 48 41 56 45 20 4F 52 44 45 52 BUT I HAVE ORDER
00B010: 53 20 54 4F 20 53 54 4F 50 20 49 46 20 59 4F 55 S TO STOP IF YOU
00B020: 20 4D 41 4B 45 20 4D 4F 52 45 20 54 48 41 4E 22 MAKE MORE THAN"
00B030: 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 22 31 32 ..1110 PRINT "12
00B040: 38 20 4D 4F 56 45 53 2E 22 3A 20 53 54 4F 50 0D 8 MOVES.": STOP.
00B050: 0A 31 31 32 30 20 49 46 20 4D 3C 3E 32 5E 53 2D .1120 IF M<>2^S-
00B060: 31 20 54 48 45 4E 20 31 31 34 30 0D 0A 31 31 33 1 THEN 1140..113
00B070: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 43 0 PRINT:PRINT "C
00B080: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 21 21 ONGRATULATIONS!!
00B090: 22 3A 50 52 49 4E 54 0D 0A 31 31 34 30 20 50 52 ":PRINT..1140 PR
00B0A0: 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 50 45 INT "YOU HAVE PE
00B0B0: 52 46 4F 52 4D 45 44 20 54 48 45 20 54 41 53 4B RFORMED THE TASK
00B0C0: 20 49 4E 22 3B 4D 3B 22 4D 4F 56 45 53 2E 22 0D IN";M;"MOVES.".
00B0D0: 0A 31 31 35 30 20 50 52 49 4E 54 3A 20 50 52 49 .1150 PRINT: PRI
00B0E0: 4E 54 20 22 54 52 59 20 41 47 41 49 4E 20 28 59 NT "TRY AGAIN (Y
00B0F0: 45 53 20 4F 52 20 4E 4F 29 22 3B 3A 20 49 4E 50 ES OR NO)";: INP
00B100: 45 20 4E 45 58 54 2C 20 41 4E 44 20 53 4F 20 4F E NEXT, AND SO O
00B110: 4E 2C 20 55 50 20 54 4F 20 31 35 2E 20 20 49 46 N, UP TO 15. IF
00B120: 20 59 4F 55 20 44 4F 20 54 48 45 20 50 55 5A 5A YOU DO THE PUZZ
00B130: 4C 45 20 57 49 54 48 22 0D 0A 33 36 35 20 50 52 LE WITH"..365 PR
00B140: 49 4E 54 20 22 32 20 44 49 53 4B 53 2C 20 54 48 INT "2 DISKS, TH
00B150: 45 49 52 20 43 4F 44 45 20 4E 41 4D 45 53 20 57 EIR CODE NAMES W
00B160: 4F 55 4C 44 20 42 45 20 31 33 20 41 4E 44 20 31 OULD BE 13 AND 1
00B170: 35 2E 20 20 57 49 54 48 20 33 20 44 49 53 4B 53 5. WITH 3 DISKS
00B180: 22 0D 0A 33 37 30 20 50 52 49 4E 54 20 22 54 48 "..370 PRINT "TH
00B190: 45 20 43 4F 44 45 20 4E 41 4D 45 53 20 57 4F 55 E CODE NAMES WOU
00B1A0: 4C 44 20 42 45 20 31 31 2C 20 31 33 20 41 4E 44 LD BE 11, 13 AND
00B1B0: 20 31 35 2C 20 45 54 43 2E 20 20 54 48 45 20 4E 15, ETC. THE N
00B1C0: 45 45 44 4C 45 53 22 0D 0A 33 37 35 20 50 52 49 EEDLES"..375 PRI
00B1D0: 4E 54 20 22 41 52 45 20 4E 55 4D 42 45 52 45 44 NT "ARE NUMBERED
00B1E0: 20 46 52 4F 4D 20 4C 45 46 54 20 54 4F 20 52 49 FROM LEFT TO RI
00B1F0: 47 48 54 2C 20 31 20 54 4F 20 33 2E 20 20 57 45 GHT, 1 TO 3. WE
00B200: 20 57 49 4C 4C 22 0D 0A 33 38 30 20 50 52 49 4E WILL"..380 PRIN
00B210: 54 20 22 53 54 41 52 54 20 57 49 54 48 20 54 48 T "START WITH TH
00B220: 45 20 44 49 53 4B 53 20 4F 4E 20 4E 45 45 44 4C E DISKS ON NEEDL
00B230: 45 20 31 2C 20 41 4E 44 20 41 54 54 45 4D 50 54 E 1, AND ATTEMPT
00B240: 20 54 4F 20 4D 4F 56 45 20 54 48 45 4D 22 0D 0A TO MOVE THEM"..
00B250: 33 38 35 20 50 52 49 4E 54 20 22 54 4F 20 4E 45 385 PRINT "TO NE
00B260: 45 44 4C 45 20 33 2E 22 0D 0A 33 39 30 20 50 52 EDLE 3."..390 PR
00B270: 49 4E 54 3A 20 50 52 49 4E 54 20 22 47 4F 4F 44 INT: PRINT "GOOD
00B280: 20 4C 55 43 4B 21 22 3A 20 50 52 49 4E 54 0D 0A LUCK!": PRINT..
00B290: 34 30 30 20 59 3D 37 3A 20 44 3D 31 35 0D 0A 34 400 Y=7: D=15..4
00B2A0: 32 30 20 46 4F 52 20 58 3D 53 20 54 4F 20 31 20 20 FOR X=S TO 1
00B2B0: 53 54 45 50 20 2D 31 0D 0A 34 33 30 20 54 28 59 STEP -1..430 T(Y
00B2C0: 2C 31 29 3D 44 3A 20 44 3D 44 2D 32 3A 20 59 3D ,1)=D: D=D-2: Y=
00B2D0: 59 2D 31 0D 0A 34 36 30 20 4E 45 58 54 20 58 0D Y-1..460 NEXT X.
00B2E0: 0A 34 37 30 20 47 4F 53 55 42 20 31 32 33 30 0D .470 GOSUB 1230.
00B2F0: 0A 34 38 30 20 50 52 49 4E 54 20 22 57 48 49 43 .480 PRINT "WHIC
00B300: 55 54 20 41 24 0D 0A 31 31 36 30 20 49 46 20 41 UT A$..1160 IF A
00B310: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 33 39 30 $="NO" THEN 1390
00B320: 0D 0A 31 31 37 30 20 49 46 20 41 24 3D 22 59 45 ..1170 IF A$="YE
00B330: 53 22 20 54 48 45 4E 20 39 30 0D 0A 31 31 38 30 S" THEN 90..1180
00B340: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 27 PRINT: PRINT "'
00B350: 59 45 53 27 20 4F 52 20 27 4E 4F 27 20 50 4C 45 YES' OR 'NO' PLE
00B360: 41 53 45 22 3B 3A 20 49 4E 50 55 54 20 41 24 3A ASE";: INPUT A$:
00B370: 20 47 4F 54 4F 20 31 31 36 30 0D 0A 31 32 33 30 GOTO 1160..1230
00B380: 20 52 45 4D 20 2A 2A 2A 20 50 52 49 4E 54 20 53 REM *** PRINT S
00B390: 55 42 52 4F 55 54 49 4E 45 0D 0A 31 32 34 30 20 UBROUTINE..1240
00B3A0: 46 4F 52 20 4B 3D 31 20 54 4F 20 37 0D 0A 31 32 FOR K=1 TO 7..12
00B3B0: 35 30 20 5A 3D 31 30 0D 0A 31 32 36 30 20 46 4F 50 Z=10..1260 FO
00B3C0: 52 20 4A 3D 31 20 54 4F 20 33 0D 0A 31 32 37 30 R J=1 TO 3..1270
00B3D0: 20 49 46 20 54 28 4B 2C 4A 29 3D 30 20 54 48 45 IF T(K,J)=0 THE
00B3E0: 4E 20 31 33 33 30 0D 0A 31 32 38 30 20 50 52 49 N 1330..1280 PRI
00B3F0: 4E 54 20 54 41 42 28 5A 2D 49 4E 54 28 54 28 4B NT TAB(Z-INT(T(K
00B400: 2C 4A 29 2F 32 29 29 3B 0D 0A 31 32 39 30 20 46 ,J)/2));..1290 F
00B410: 4F 52 20 56 3D 31 20 54 4F 20 54 28 4B 2C 4A 29 OR V=1 TO T(K,J)
00B420: 0D 0A 31 33 30 30 20 50 52 49 4E 54 20 22 2A 22 ..1300 PRINT "*"
00B430: 3B 0D 0A 31 33 31 30 20 4E 45 58 54 20 56 0D 0A ;..1310 NEXT V..
00B440: 31 33 32 30 20 47 4F 54 4F 20 31 33 34 30 0D 0A 1320 GOTO 1340..
00B450: 31 33 33 30 20 50 52 49 4E 54 20 54 41 42 28 5A 1330 PRINT TAB(Z
00B460: 29 3B 22 2A 22 3B 0D 0A 31 33 34 30 20 5A 3D 5A );"*";..1340 Z=Z
00B470: 2B 32 31 0D 0A 31 33 35 30 20 4E 45 58 54 20 4A +21..1350 NEXT J
00B480: 0D 0A 31 33 36 30 20 50 52 49 4E 54 0D 0A 31 33 ..1360 PRINT..13
00B490: 37 30 20 4E 45 58 54 20 4B 0D 0A 31 33 38 30 20 70 NEXT K..1380
00B4A0: 52 45 54 55 52 4E 0D 0A 31 33 39 30 20 50 52 49 RETURN..1390 PRI
00B4B0: 4E 54 3A 20 50 52 49 4E 54 20 22 54 48 41 4E 4B NT: PRINT "THANK
00B4C0: 53 20 46 4F 52 20 54 48 45 20 47 41 4D 45 21 22 S FOR THE GAME!"
00B4D0: 3A 20 50 52 49 4E 54 3A 20 45 4E 44 0D 0A 1A E5 : PRINT: END....
00B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00B500: 48 20 44 49 53 4B 20 57 4F 55 4C 44 20 59 4F 55 H DISK WOULD YOU
00B510: 20 4C 49 4B 45 20 54 4F 20 4D 4F 56 45 22 3B 3A LIKE TO MOVE";:
00B520: 45 3D 30 0D 0A 35 30 30 20 49 4E 50 55 54 20 44 E=0..500 INPUT D
00B530: 0D 0A 35 31 30 20 49 46 20 28 44 2D 33 29 2A 28 ..510 IF (D-3)*(
00B540: 44 2D 35 29 2A 28 44 2D 37 29 2A 28 44 2D 39 29 D-5)*(D-7)*(D-9)
00B550: 2A 28 44 2D 31 31 29 2A 28 44 2D 31 33 29 2A 28 *(D-11)*(D-13)*(
00B560: 44 2D 31 35 29 3D 30 20 54 48 45 4E 20 35 38 30 D-15)=0 THEN 580
00B570: 0D 0A 35 32 30 20 50 52 49 4E 54 20 22 49 4C 4C ..520 PRINT "ILL
00B580: 45 47 41 4C 20 45 4E 54 52 59 2E 2E 2E 20 59 4F EGAL ENTRY... YO
00B590: 55 20 4D 41 59 20 4F 4E 4C 59 20 54 59 50 45 20 U MAY ONLY TYPE
00B5A0: 33 2C 35 2C 37 2C 39 2C 31 31 2C 31 33 2C 20 4F 3,5,7,9,11,13, O
00B5B0: 52 20 31 35 2E 22 0D 0A 35 33 30 20 45 3D 45 2B R 15."..530 E=E+
00B5C0: 31 3A 20 49 46 20 45 3E 31 20 54 48 45 4E 20 35 1: IF E>1 THEN 5
00B5D0: 36 30 0D 0A 35 35 30 20 47 4F 54 4F 20 35 30 30 60..550 GOTO 500
00B5E0: 0D 0A 35 36 30 20 50 52 49 4E 54 20 22 53 54 4F ..560 PRINT "STO
00B5F0: 50 20 57 41 53 54 49 4E 47 20 4D 59 20 54 49 4D P WASTING MY TIM
00B600: 45 2E 20 20 47 4F 20 42 4F 54 48 45 52 20 53 4F E. GO BOTHER SO
00B610: 4D 45 4F 4E 45 20 45 4C 53 45 2E 22 3A 20 53 54 MEONE ELSE.": ST
00B620: 4F 50 0D 0A 35 38 30 20 52 45 4D 20 2A 2A 2A 20 OP..580 REM ***
00B630: 43 48 45 43 4B 20 49 46 20 52 45 51 55 45 53 54 CHECK IF REQUEST
00B640: 45 44 20 44 49 53 4B 20 49 53 20 42 45 4C 4F 57 ED DISK IS BELOW
00B650: 20 41 4E 4F 54 48 45 52 0D 0A 35 39 30 20 46 4F ANOTHER..590 FO
00B660: 52 20 52 3D 31 20 54 4F 20 37 0D 0A 36 30 30 20 R R=1 TO 7..600
00B670: 46 4F 52 20 43 3D 31 20 54 4F 20 33 0D 0A 36 31 FOR C=1 TO 3..61
00B680: 30 20 49 46 20 54 28 52 2C 43 29 3D 44 20 54 48 0 IF T(R,C)=D TH
00B690: 45 4E 20 36 34 30 0D 0A 36 32 30 20 4E 45 58 54 EN 640..620 NEXT
00B6A0: 20 43 3A 20 4E 45 58 54 20 52 0D 0A 36 34 30 20 C: NEXT R..640
00B6B0: 46 4F 52 20 51 3D 52 20 54 4F 20 31 20 53 54 45 FOR Q=R TO 1 STE
00B6C0: 50 20 2D 31 0D 0A 36 34 35 20 49 46 20 54 28 51 P -1..645 IF T(Q
00B6D0: 2C 43 29 3D 30 20 54 48 45 4E 20 36 36 30 0D 0A ,C)=0 THEN 660..
00B6E0: 36 35 30 20 49 46 20 54 28 51 2C 43 29 3C 44 20 650 IF T(Q,C)<D
00B6F0: 54 48 45 4E 20 36 38 30 0D 0A 36 36 30 20 4E 45 THEN 680..660 NE
00B700: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
00B710: 22 53 59 4E 4F 4E 59 4D 22 0D 0A 34 20 50 52 49 "SYNONYM"..4 PRI
00B720: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
00B730: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
00B740: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
00B750: 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 JERSEY"..6 PRINT
00B760: 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A : PRINT: PRINT..
00B770: 31 30 20 44 49 4D 20 52 24 28 35 29 2C 57 24 28 10 DIM R$(5),W$(
00B780: 31 30 29 2C 4C 28 33 30 29 2C 52 28 33 30 29 0D 10),L(30),R(30).
00B790: 0A 32 30 20 52 24 28 31 29 3D 22 52 49 47 48 54 .20 R$(1)="RIGHT
00B7A0: 22 3A 20 52 24 28 32 29 3D 22 43 4F 52 52 45 43 ": R$(2)="CORREC
00B7B0: 54 22 3A 20 52 24 28 33 29 3D 22 46 49 4E 45 22 T": R$(3)="FINE"
00B7C0: 3A 20 52 24 28 34 29 3D 22 47 4F 4F 44 21 22 0D : R$(4)="GOOD!".
00B7D0: 0A 33 30 20 52 24 28 35 29 3D 22 43 48 45 43 4B .30 R$(5)="CHECK
00B7E0: 22 0D 0A 37 30 20 43 3D 30 0D 0A 39 30 20 50 52 "..70 C=0..90 PR
00B7F0: 49 4E 54 20 22 41 20 53 59 4E 4F 4E 59 4D 20 4F INT "A SYNONYM O
00B800: 46 20 41 20 57 4F 52 44 20 4D 45 41 4E 53 20 41 F A WORD MEANS A
00B810: 4E 4F 54 48 45 52 20 57 4F 52 44 20 49 4E 20 54 NOTHER WORD IN T
00B820: 48 45 20 45 4E 47 4C 49 53 48 22 0D 0A 31 30 30 HE ENGLISH"..100
00B830: 20 50 52 49 4E 54 20 22 4C 41 4E 47 55 41 47 45 PRINT "LANGUAGE
00B840: 20 57 48 49 43 48 20 48 41 53 20 54 48 45 20 53 WHICH HAS THE S
00B850: 41 4D 45 20 4F 52 20 56 45 52 59 20 4E 45 41 52 AME OR VERY NEAR
00B860: 4C 59 20 54 48 45 20 53 41 4D 45 22 3B 0D 0A 31 LY THE SAME";..1
00B870: 31 30 20 50 52 49 4E 54 20 22 20 4D 45 41 4E 49 10 PRINT " MEANI
00B880: 4E 47 2E 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 NG."..130 PRINT
00B890: 22 49 20 43 48 4F 4F 53 45 20 41 20 57 4F 52 44 "I CHOOSE A WORD
00B8A0: 20 2D 2D 20 59 4F 55 20 54 59 50 45 20 41 20 53 -- YOU TYPE A S
00B8B0: 59 4E 4F 4E 59 4D 2E 22 0D 0A 31 34 30 20 50 52 YNONYM."..140 PR
00B8C0: 49 4E 54 20 22 49 46 20 59 4F 55 20 43 41 4E 27 INT "IF YOU CAN'
00B8D0: 54 20 54 48 49 4E 4B 20 4F 46 20 41 20 53 59 4E T THINK OF A SYN
00B8E0: 4F 4E 59 4D 2C 20 54 59 50 45 20 54 48 45 20 57 ONYM, TYPE THE W
00B8F0: 4F 52 44 20 27 48 45 4C 50 27 22 0D 0A 31 34 35 ORD 'HELP'"..145
00B900: 58 54 20 51 0D 0A 36 37 30 20 47 4F 54 4F 20 37 XT Q..670 GOTO 7
00B910: 30 30 0D 0A 36 38 30 20 50 52 49 4E 54 20 22 54 00..680 PRINT "T
00B920: 48 41 54 20 44 49 53 4B 20 49 53 20 42 45 4C 4F HAT DISK IS BELO
00B930: 57 20 41 4E 4F 54 48 45 52 20 4F 4E 45 2E 20 20 W ANOTHER ONE.
00B940: 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 43 48 4F MAKE ANOTHER CHO
00B950: 49 43 45 2E 22 0D 0A 36 39 30 20 47 4F 54 4F 20 ICE."..690 GOTO
00B960: 34 38 30 0D 0A 37 30 30 20 45 3D 30 0D 0A 37 30 480..700 E=0..70
00B970: 35 20 49 4E 50 55 54 20 22 50 4C 41 43 45 20 44 5 INPUT "PLACE D
00B980: 49 53 4B 20 4F 4E 20 57 48 49 43 48 20 4E 45 45 ISK ON WHICH NEE
00B990: 44 4C 45 22 3B 4E 0D 0A 37 33 30 20 49 46 20 28 DLE";N..730 IF (
00B9A0: 4E 2D 31 29 2A 28 4E 2D 32 29 2A 28 4E 2D 33 29 N-1)*(N-2)*(N-3)
00B9B0: 3D 30 20 54 48 45 4E 20 38 30 30 0D 0A 37 33 35 =0 THEN 800..735
00B9C0: 20 45 3D 45 2B 31 0D 0A 37 34 30 20 49 46 20 45 E=E+1..740 IF E
00B9D0: 3E 31 20 54 48 45 4E 20 37 38 30 0D 0A 37 35 30 >1 THEN 780..750
00B9E0: 20 50 52 49 4E 54 20 22 49 27 4C 4C 20 41 53 53 PRINT "I'LL ASS
00B9F0: 55 4D 45 20 59 4F 55 20 48 49 54 20 54 48 45 20 UME YOU HIT THE
00BA00: 57 52 4F 4E 47 20 4B 45 59 20 54 48 49 53 20 54 WRONG KEY THIS T
00BA10: 49 4D 45 2E 20 20 42 55 54 20 57 41 54 43 48 20 IME. BUT WATCH
00BA20: 49 54 2C 22 0D 0A 37 36 30 20 50 52 49 4E 54 20 IT,"..760 PRINT
00BA30: 22 49 20 4F 4E 4C 59 20 41 4C 4C 4F 57 20 4F 4E "I ONLY ALLOW ON
00BA40: 45 20 4D 49 53 54 41 4B 45 2E 22 3A 20 47 4F 54 E MISTAKE.": GOT
00BA50: 4F 20 37 30 35 0D 0A 37 38 30 20 50 52 49 4E 54 O 705..780 PRINT
00BA60: 20 22 49 20 54 52 49 45 44 20 54 4F 20 57 41 52 "I TRIED TO WAR
00BA70: 4E 20 59 4F 55 2C 20 42 55 54 20 59 4F 55 20 57 N YOU, BUT YOU W
00BA80: 4F 55 4C 44 4E 27 54 20 4C 49 53 54 45 4E 2E 22 OULDN'T LISTEN."
00BA90: 0D 0A 37 39 30 20 50 52 49 4E 54 20 22 42 59 45 ..790 PRINT "BYE
00BAA0: 20 42 59 45 2C 20 42 49 47 20 53 48 4F 54 2E 22 BYE, BIG SHOT."
00BAB0: 3A 53 54 4F 50 0D 0A 38 30 30 20 46 4F 52 20 52 :STOP..800 FOR R
00BAC0: 3D 31 20 54 4F 20 37 0D 0A 38 31 30 20 49 46 20 =1 TO 7..810 IF
00BAD0: 54 28 52 2C 4E 29 3C 3E 30 20 54 48 45 4E 20 38 T(R,N)<>0 THEN 8
00BAE0: 34 30 0D 0A 38 32 30 20 4E 45 58 54 20 52 0D 0A 40..820 NEXT R..
00BAF0: 38 33 30 20 47 4F 54 4F 20 38 38 30 0D 0A 38 33 830 GOTO 880..83
00BB00: 20 50 52 49 4E 54 20 22 41 4E 44 20 49 20 57 49 PRINT "AND I WI
00BB10: 4C 4C 20 54 45 4C 4C 20 59 4F 55 20 41 20 53 59 LL TELL YOU A SY
00BB20: 4E 4F 4E 59 4D 2E 22 3A 20 50 52 49 4E 54 0D 0A NONYM.": PRINT..
00BB30: 31 35 30 20 52 45 53 54 4F 52 45 3A 20 43 3D 43 150 RESTORE: C=C
00BB40: 2B 31 3A 20 52 45 41 44 20 4E 0D 0A 31 36 30 20 +1: READ N..160
00BB50: 49 46 20 43 3E 4E 20 54 48 45 4E 20 34 32 30 0D IF C>N THEN 420.
00BB60: 0A 31 37 30 20 4E 31 3D 49 4E 54 28 52 4E 44 28 .170 N1=INT(RND(
00BB70: 31 29 2A 4E 2B 31 29 0D 0A 31 37 34 20 49 46 20 1)*N+1)..174 IF
00BB80: 52 28 4E 31 29 3D 31 20 54 48 45 4E 20 31 37 30 R(N1)=1 THEN 170
00BB90: 0D 0A 31 37 36 20 52 28 4E 31 29 3D 31 0D 0A 31 ..176 R(N1)=1..1
00BBA0: 38 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 31 80 FOR I=1 TO N1
00BBB0: 0D 0A 31 39 30 20 52 45 41 44 20 4E 32 0D 0A 32 ..190 READ N2..2
00BBC0: 30 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 4E 32 00 FOR J=1 TO N2
00BBD0: 0D 0A 32 31 30 20 52 45 41 44 20 57 24 28 4A 29 ..210 READ W$(J)
00BBE0: 0D 0A 32 32 30 20 4E 45 58 54 20 4A 0D 0A 32 33 ..220 NEXT J..23
00BBF0: 30 20 4E 45 58 54 20 49 0D 0A 32 33 32 20 46 4F 0 NEXT I..232 FO
00BC00: 52 20 4A 3D 31 20 54 4F 20 4E 32 3A 20 4C 28 4A R J=1 TO N2: L(J
00BC10: 29 3D 4A 3A 20 4E 45 58 54 20 4A 0D 0A 32 33 35 )=J: NEXT J..235
00BC20: 20 4C 28 30 29 3D 4E 32 3A 20 47 3D 31 3A 20 50 L(0)=N2: G=1: P
00BC30: 52 49 4E 54 0D 0A 32 33 37 20 4C 28 47 29 3D 4C RINT..237 L(G)=L
00BC40: 28 4C 28 30 29 29 3A 20 4C 28 30 29 3D 4E 32 2D (L(0)): L(0)=N2-
00BC50: 31 3A 20 50 52 49 4E 54 0D 0A 32 34 30 20 50 52 1: PRINT..240 PR
00BC60: 49 4E 54 20 22 20 20 20 20 20 57 48 41 54 20 49 INT " WHAT I
00BC70: 53 20 41 20 53 59 4E 4F 4E 59 4D 20 4F 46 20 22 S A SYNONYM OF "
00BC80: 3B 57 24 28 47 29 3B 3A 20 49 4E 50 55 54 20 41 ;W$(G);: INPUT A
00BC90: 24 0D 0A 32 35 30 20 49 46 20 41 24 3D 22 48 45 $..250 IF A$="HE
00BCA0: 4C 50 22 20 54 48 45 4E 20 33 34 30 0D 0A 32 36 LP" THEN 340..26
00BCB0: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 32 0D 0 FOR K=1 TO N2.
00BCC0: 0A 32 37 30 20 49 46 20 47 3D 4B 20 54 48 45 4E .270 IF G=K THEN
00BCD0: 20 32 39 30 0D 0A 32 38 30 20 49 46 20 41 24 3D 290..280 IF A$=
00BCE0: 57 24 28 4B 29 20 54 48 45 4E 20 33 32 30 0D 0A W$(K) THEN 320..
00BCF0: 32 39 30 20 4E 45 58 54 20 4B 0D 0A 33 30 30 20 290 NEXT K..300
00BD00: 35 20 52 45 4D 20 2A 2A 2A 20 43 48 45 43 4B 20 5 REM *** CHECK
00BD10: 49 46 20 44 49 53 4B 20 54 4F 20 42 45 20 50 4C IF DISK TO BE PL
00BD20: 41 43 45 44 20 4F 4E 20 41 20 4C 41 52 47 45 52 ACED ON A LARGER
00BD30: 20 4F 4E 45 0D 0A 38 34 30 20 49 46 20 44 3C 54 ONE..840 IF D<T
00BD40: 28 52 2C 4E 29 20 54 48 45 4E 20 38 38 30 0D 0A (R,N) THEN 880..
00BD50: 38 35 30 20 50 52 49 4E 54 20 22 59 4F 55 20 43 850 PRINT "YOU C
00BD60: 41 4E 27 54 20 50 4C 41 43 45 20 41 20 4C 41 52 AN'T PLACE A LAR
00BD70: 47 45 52 20 44 49 53 4B 20 4F 4E 20 54 4F 50 20 GER DISK ON TOP
00BD80: 4F 46 20 41 20 53 4D 41 4C 4C 45 52 20 4F 4E 45 OF A SMALLER ONE
00BD90: 2C 22 0D 0A 38 36 30 20 50 52 49 4E 54 20 22 49 ,"..860 PRINT "I
00BDA0: 54 20 4D 49 47 48 54 20 43 52 55 53 48 20 49 54 T MIGHT CRUSH IT
00BDB0: 21 22 3A 20 50 52 49 4E 54 20 22 4E 4F 57 20 54 !": PRINT "NOW T
00BDC0: 48 45 4E 2C 20 22 3B 3A 47 4F 54 4F 20 34 38 30 HEN, ";:GOTO 480
00BDD0: 0D 0A 38 37 35 20 52 45 4D 20 2A 2A 2A 20 4D 4F ..875 REM *** MO
00BDE0: 56 45 20 52 45 4C 4F 43 41 54 45 44 20 44 49 53 VE RELOCATED DIS
00BDF0: 4B 0D 0A 38 38 30 20 46 4F 52 20 56 3D 31 20 54 K..880 FOR V=1 T
00BE00: 4F 20 37 3A 20 46 4F 52 20 57 3D 31 20 54 4F 20 O 7: FOR W=1 TO
00BE10: 33 0D 0A 39 30 30 20 49 46 20 54 28 56 2C 57 29 3..900 IF T(V,W)
00BE20: 3D 44 20 54 48 45 4E 20 39 33 30 0D 0A 39 31 30 =D THEN 930..910
00BE30: 20 4E 45 58 54 20 57 3A 20 4E 45 58 54 20 56 0D NEXT W: NEXT V.
00BE40: 0A 39 32 35 20 52 45 4D 20 2A 2A 2A 20 4C 4F 43 .925 REM *** LOC
00BE50: 41 54 45 20 45 4D 50 54 59 20 53 50 41 43 45 20 ATE EMPTY SPACE
00BE60: 4F 4E 20 4E 45 45 44 4C 45 20 4E 0D 0A 39 33 30 ON NEEDLE N..930
00BE70: 20 46 4F 52 20 55 3D 31 20 54 4F 20 37 0D 0A 39 FOR U=1 TO 7..9
00BE80: 34 30 20 49 46 20 54 28 55 2C 4E 29 3C 3E 30 20 40 IF T(U,N)<>0
00BE90: 54 48 45 4E 20 39 37 30 0D 0A 39 35 30 20 4E 45 THEN 970..950 NE
00BEA0: 58 54 20 55 0D 0A 39 36 30 20 55 3D 37 3A 20 47 XT U..960 U=7: G
00BEB0: 4F 54 4F 20 39 38 30 0D 0A 39 36 35 20 52 45 4D OTO 980..965 REM
00BEC0: 20 2A 2A 2A 20 4D 4F 56 45 20 44 49 53 4B 20 41 *** MOVE DISK A
00BED0: 4E 44 20 53 45 54 20 4F 4C 44 20 4C 4F 43 41 54 ND SET OLD LOCAT
00BEE0: 49 4F 4E 20 54 4F 20 30 0D 0A 39 37 30 20 55 3D ION TO 0..970 U=
00BEF0: 55 2D 31 0D 0A 39 38 30 20 54 28 55 2C 4E 29 3D U-1..980 T(U,N)=
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 00 00 02 09 52 E5 0A 00 C1 02 00 00 00 02 ......R.........
00BF20: 0A 00 C6 02 00 00 00 02 0A 00 C2 02 00 00 00 02 ................
00BF30: 0A 00 C7 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF40: 0A 00 C8 02 00 00 00 02 0A 00 C4 02 00 00 00 02 ................
00BF50: 0A 00 C9 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 50 52 49 4E 54 20 22 20 20 20 20 20 54 52 59 20 PRINT " TRY
00C010: 41 47 41 49 4E 2E 22 3A 20 47 4F 54 4F 20 32 34 AGAIN.": GOTO 24
00C020: 30 0D 0A 33 32 30 20 50 52 49 4E 54 20 52 24 28 0..320 PRINT R$(
00C030: 49 4E 54 28 52 4E 44 28 31 29 2A 35 2B 31 29 29 INT(RND(1)*5+1))
00C040: 3A 20 47 4F 54 4F 20 31 35 30 0D 0A 33 34 30 20 : GOTO 150..340
00C050: 47 31 3D 49 4E 54 28 52 4E 44 28 31 29 2A 4C 28 G1=INT(RND(1)*L(
00C060: 30 29 2B 31 29 0D 0A 33 36 30 20 50 52 49 4E 54 0)+1)..360 PRINT
00C070: 20 22 2A 2A 2A 2A 20 41 20 53 59 4E 4F 4E 59 4D "**** A SYNONYM
00C080: 20 4F 46 20 22 3B 57 24 28 47 29 3B 22 20 49 53 OF ";W$(G);" IS
00C090: 20 22 3B 57 24 28 4C 28 47 31 29 29 3B 22 2E 22 ";W$(L(G1));"."
00C0A0: 3A 20 50 52 49 4E 54 0D 0A 33 37 30 20 4C 28 47 : PRINT..370 L(G
00C0B0: 31 29 3D 4C 28 4C 28 30 29 29 3A 20 4C 28 30 29 1)=L(L(0)): L(0)
00C0C0: 3D 4C 28 30 29 2D 31 3A 20 47 4F 54 4F 20 32 34 =L(0)-1: GOTO 24
00C0D0: 30 0D 0A 34 32 30 20 50 52 49 4E 54 3A 20 50 52 0..420 PRINT: PR
00C0E0: 49 4E 54 20 22 53 59 4E 4F 4E 59 4D 20 44 52 49 INT "SYNONYM DRI
00C0F0: 4C 4C 20 43 4F 4D 50 4C 45 54 45 44 2E 22 3A 20 LL COMPLETED.":
00C100: 47 4F 54 4F 20 39 39 39 0D 0A 35 30 30 20 44 41 GOTO 999..500 DA
00C110: 54 41 20 31 30 0D 0A 35 31 30 20 44 41 54 41 20 TA 10..510 DATA
00C120: 35 2C 22 46 49 52 53 54 22 2C 22 53 54 41 52 54 5,"FIRST","START
00C130: 22 2C 22 42 45 47 49 4E 4E 49 4E 47 22 2C 22 4F ","BEGINNING","O
00C140: 4E 53 45 54 22 2C 22 49 4E 49 54 49 41 4C 22 0D NSET","INITIAL".
00C150: 0A 35 32 30 20 44 41 54 41 20 35 2C 22 53 49 4D .520 DATA 5,"SIM
00C160: 49 4C 41 52 22 2C 22 41 4C 49 4B 45 22 2C 22 53 ILAR","ALIKE","S
00C170: 41 4D 45 22 2C 22 4C 49 4B 45 22 2C 22 52 45 53 AME","LIKE","RES
00C180: 45 4D 42 4C 49 4E 47 22 0D 0A 35 33 30 20 44 41 EMBLING"..530 DA
00C190: 54 41 20 35 2C 22 4D 4F 44 45 4C 22 2C 22 50 41 TA 5,"MODEL","PA
00C1A0: 54 54 45 52 4E 22 2C 22 50 52 4F 54 4F 54 59 50 TTERN","PROTOTYP
00C1B0: 45 22 2C 22 53 54 41 4E 44 41 52 44 22 2C 22 43 E","STANDARD","C
00C1C0: 52 49 54 45 52 49 4F 4E 22 0D 0A 35 34 30 20 44 RITERION"..540 D
00C1D0: 41 54 41 20 35 2C 22 53 4D 41 4C 4C 22 2C 22 49 ATA 5,"SMALL","I
00C1E0: 4E 53 49 47 4E 49 46 49 43 41 4E 54 22 2C 22 4C NSIGNIFICANT","L
00C1F0: 49 54 54 4C 45 22 2C 22 54 49 4E 59 22 2C 22 4D ITTLE","TINY","M
00C200: 45 41 53 55 52 59 2E 22 0D 0A 32 38 20 50 52 49 EASURY."..28 PRI
00C210: 4E 54 20 22 54 48 45 20 4D 4F 4E 45 59 20 53 59 NT "THE MONEY SY
00C220: 53 54 45 4D 20 49 53 20 52 41 4C 4C 4F 44 53 2C STEM IS RALLODS,
00C230: 20 41 4E 44 20 45 41 43 48 20 50 45 52 53 4F 4E AND EACH PERSON
00C240: 20 4E 45 45 44 53 20 31 30 30 22 0D 0A 33 30 20 NEEDS 100"..30
00C250: 50 52 49 4E 54 20 22 52 41 4C 4C 4F 44 53 20 50 PRINT "RALLODS P
00C260: 45 52 20 59 45 41 52 20 54 4F 20 53 55 52 56 49 ER YEAR TO SURVI
00C270: 56 45 2E 20 59 4F 55 52 20 43 4F 55 4E 54 52 59 VE. YOUR COUNTRY
00C280: 27 53 20 49 4E 43 4F 4D 45 20 43 4F 4D 45 53 22 'S INCOME COMES"
00C290: 0D 0A 33 32 20 50 52 49 4E 54 20 22 46 52 4F 4D ..32 PRINT "FROM
00C2A0: 20 46 41 52 4D 20 50 52 4F 44 55 43 45 20 41 4E FARM PRODUCE AN
00C2B0: 44 20 54 4F 55 52 49 53 54 53 20 56 49 53 49 54 D TOURISTS VISIT
00C2C0: 49 4E 47 20 59 4F 55 52 20 4D 41 47 4E 49 46 49 ING YOUR MAGNIFI
00C2D0: 43 45 4E 54 22 0D 0A 33 34 20 50 52 49 4E 54 20 CENT"..34 PRINT
00C2E0: 22 46 4F 52 45 53 54 53 2C 20 48 55 4E 54 49 4E "FORESTS, HUNTIN
00C2F0: 47 2C 20 46 49 53 48 49 4E 47 2C 20 45 54 43 2E G, FISHING, ETC.
00C300: 20 48 41 4C 46 20 59 4F 55 52 20 4C 41 4E 44 20 HALF YOUR LAND
00C310: 49 53 20 46 41 52 4D 20 4C 41 4E 44 22 0D 0A 33 IS FARM LAND"..3
00C320: 36 20 50 52 49 4E 54 20 22 57 48 49 43 48 20 41 6 PRINT "WHICH A
00C330: 4C 53 4F 20 48 41 53 20 41 4E 20 45 58 43 45 4C LSO HAS AN EXCEL
00C340: 4C 45 4E 54 20 4D 49 4E 45 52 41 4C 20 43 4F 4E LENT MINERAL CON
00C350: 54 45 4E 54 20 41 4E 44 20 4D 41 59 20 42 45 20 TENT AND MAY BE
00C360: 53 4F 4C 44 22 0D 0A 33 38 20 50 52 49 4E 54 20 SOLD"..38 PRINT
00C370: 22 54 4F 20 46 4F 52 45 49 47 4E 20 49 4E 44 55 "TO FOREIGN INDU
00C380: 53 54 52 59 20 28 53 54 52 49 50 20 4D 49 4E 49 STRY (STRIP MINI
00C390: 4E 47 29 20 57 48 4F 20 49 4D 50 4F 52 54 20 41 NG) WHO IMPORT A
00C3A0: 4E 44 20 53 55 50 50 4F 52 54 22 0D 0A 34 30 20 ND SUPPORT"..40
00C3B0: 50 52 49 4E 54 20 22 54 48 45 49 52 20 4F 57 4E PRINT "THEIR OWN
00C3C0: 20 57 4F 52 4B 45 52 53 2E 20 43 52 4F 50 53 20 WORKERS. CROPS
00C3D0: 43 4F 53 54 20 42 45 54 57 45 45 4E 20 31 30 20 COST BETWEEN 10
00C3E0: 41 4E 44 20 31 35 20 52 41 4C 4C 4F 44 53 20 50 AND 15 RALLODS P
00C3F0: 45 52 22 0D 0A 34 32 20 50 52 49 4E 54 20 22 53 ER"..42 PRINT "S
00C400: 49 4E 55 54 45 22 0D 0A 35 35 30 20 44 41 54 41 INUTE"..550 DATA
00C410: 20 36 2C 22 53 54 4F 50 22 2C 22 48 41 4C 54 22 6,"STOP","HALT"
00C420: 2C 22 53 54 41 59 22 2C 22 41 52 52 45 53 54 22 ,"STAY","ARREST"
00C430: 2C 22 43 48 45 43 4B 22 2C 22 53 54 41 4E 44 53 ,"CHECK","STANDS
00C440: 54 49 4C 4C 22 0D 0A 35 36 30 20 44 41 54 41 20 TILL"..560 DATA
00C450: 36 2C 22 48 4F 55 53 45 22 2C 22 44 57 45 4C 4C 6,"HOUSE","DWELL
00C460: 49 4E 47 22 2C 22 52 45 53 49 44 45 4E 43 45 22 ING","RESIDENCE"
00C470: 2C 22 44 4F 4D 49 43 49 4C 45 22 2C 22 4C 4F 44 ,"DOMICILE","LOD
00C480: 47 49 4E 47 22 0D 0A 35 36 35 20 44 41 54 41 20 GING"..565 DATA
00C490: 22 48 41 42 49 54 41 54 49 4F 4E 22 0D 0A 35 37 "HABITATION"..57
00C4A0: 30 20 44 41 54 41 20 37 2C 22 50 49 54 22 2C 22 0 DATA 7,"PIT","
00C4B0: 48 4F 4C 45 22 2C 22 48 4F 4C 4C 4F 57 22 2C 22 HOLE","HOLLOW","
00C4C0: 57 45 4C 4C 22 2C 22 47 55 4C 46 22 2C 22 43 48 WELL","GULF","CH
00C4D0: 41 53 4D 22 2C 22 41 42 59 53 53 22 0D 0A 35 38 ASM","ABYSS"..58
00C4E0: 30 20 44 41 54 41 20 37 2C 22 50 55 53 48 22 2C 0 DATA 7,"PUSH",
00C4F0: 22 53 48 4F 56 45 22 2C 22 54 48 52 55 53 54 22 "SHOVE","THRUST"
00C500: 2C 22 50 52 4F 44 22 2C 22 50 4F 4B 45 22 2C 22 ,"PROD","POKE","
00C510: 42 55 54 54 22 2C 22 50 52 45 53 53 22 0D 0A 35 BUTT","PRESS"..5
00C520: 39 30 20 44 41 54 41 20 36 2C 22 52 45 44 22 2C 90 DATA 6,"RED",
00C530: 22 52 4F 55 47 45 22 2C 22 53 43 41 52 4C 45 54 "ROUGE","SCARLET
00C540: 22 2C 22 43 52 49 4D 53 4F 4E 22 2C 22 46 4C 41 ","CRIMSON","FLA
00C550: 4D 45 22 2C 22 52 55 42 59 22 0D 0A 36 30 30 20 ME","RUBY"..600
00C560: 44 41 54 41 20 37 2C 22 50 41 49 4E 22 2C 22 53 DATA 7,"PAIN","S
00C570: 55 46 46 45 52 49 4E 47 22 2C 22 48 55 52 54 22 UFFERING","HURT"
00C580: 2C 22 4D 49 53 45 52 59 22 2C 22 44 49 53 54 52 ,"MISERY","DISTR
00C590: 45 53 53 22 2C 22 41 43 48 45 22 0D 0A 36 30 35 ESS","ACHE"..605
00C5A0: 20 44 41 54 41 20 22 44 49 53 43 4F 4D 46 4F 52 DATA "DISCOMFOR
00C5B0: 54 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 T"..999 END.....
00C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C600: 51 55 41 52 45 20 4D 49 4C 45 20 54 4F 20 50 4C QUARE MILE TO PL
00C610: 41 4E 54 2E 22 0D 0A 34 34 20 50 52 49 4E 54 20 ANT."..44 PRINT
00C620: 22 59 4F 55 52 20 47 4F 41 4C 20 49 53 20 54 4F "YOUR GOAL IS TO
00C630: 20 43 4F 4D 50 4C 45 54 45 20 59 4F 55 52 22 3B COMPLETE YOUR";
00C640: 4E 35 3B 22 59 45 41 52 20 54 45 52 4D 20 4F 46 N5;"YEAR TERM OF
00C650: 20 4F 46 46 49 43 45 2E 22 0D 0A 34 36 20 50 52 OFFICE."..46 PR
00C660: 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 22 INT "GOOD LUCK!"
00C670: 0D 0A 34 37 20 50 52 49 4E 54 0D 0A 35 30 20 41 ..47 PRINT..50 A
00C680: 3D 49 4E 54 28 36 30 30 30 30 2B 28 31 30 30 30 =INT(60000+(1000
00C690: 2A 52 4E 44 28 31 29 29 2D 28 31 30 30 30 2A 52 *RND(1))-(1000*R
00C6A0: 4E 44 28 31 29 29 29 0D 0A 35 35 20 42 3D 49 4E ND(1)))..55 B=IN
00C6B0: 54 28 35 30 30 2B 28 31 30 2A 52 4E 44 28 31 29 T(500+(10*RND(1)
00C6C0: 29 2D 28 31 30 2A 52 4E 44 28 31 29 29 29 0D 0A )-(10*RND(1)))..
00C6D0: 36 35 20 44 3D 32 30 30 30 0D 0A 31 30 30 20 57 65 D=2000..100 W
00C6E0: 3D 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 2B 39 =INT(10*RND(1)+9
00C6F0: 35 29 0D 0A 31 30 32 20 50 52 49 4E 54 0D 0A 31 5)..102 PRINT..1
00C700: 30 35 20 50 52 49 4E 54 20 22 59 4F 55 20 4E 4F 05 PRINT "YOU NO
00C710: 57 20 48 41 56 45 20 22 3B 41 3B 22 20 52 41 4C W HAVE ";A;" RAL
00C720: 4C 4F 44 53 20 49 4E 20 54 48 45 20 54 52 45 41 LODS IN THE TREA
00C730: 53 55 52 59 2E 22 0D 0A 31 31 30 20 50 52 49 4E SURY."..110 PRIN
00C740: 54 20 49 4E 54 28 42 29 3B 3A 50 52 49 4E 54 20 T INT(B);:PRINT
00C750: 22 43 4F 55 4E 54 52 59 4D 45 4E 2C 20 22 3B 0D "COUNTRYMEN, ";.
00C760: 0A 31 31 35 20 56 39 3D 49 4E 54 28 28 28 52 4E .115 V9=INT(((RN
00C770: 44 28 31 29 2F 32 29 2A 31 30 2B 31 30 29 29 0D D(1)/2)*10+10)).
00C780: 0A 31 32 30 20 49 46 20 43 3D 30 20 54 48 45 4E .120 IF C=0 THEN
00C790: 20 31 34 30 0D 0A 31 33 30 20 50 52 49 4E 54 20 140..130 PRINT
00C7A0: 49 4E 54 28 43 29 3B 22 46 4F 52 45 49 47 4E 20 INT(C);"FOREIGN
00C7B0: 57 4F 52 4B 45 52 53 2C 20 22 3B 0D 0A 31 34 30 WORKERS, ";..140
00C7C0: 20 50 52 49 4E 54 20 22 41 4E 44 22 3B 49 4E 54 PRINT "AND";INT
00C7D0: 28 44 29 3B 22 53 51 2E 20 4D 49 4C 45 53 20 4F (D);"SQ. MILES O
00C7E0: 46 20 4C 41 4E 44 2E 22 0D 0A 31 35 30 20 50 52 F LAND."..150 PR
00C7F0: 49 4E 54 20 22 54 48 49 53 20 59 45 41 52 20 49 INT "THIS YEAR I
00C800: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
00C810: 3B 22 4B 49 4E 45 4D 41 22 0D 0A 32 30 20 50 52 ;"KINEMA"..20 PR
00C820: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
00C830: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
00C840: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
00C850: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
00C860: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
00C870: 0D 0A 31 30 30 20 50 52 49 4E 54 0D 0A 31 30 35 ..100 PRINT..105
00C880: 20 50 52 49 4E 54 0D 0A 31 30 36 20 51 3D 30 0D PRINT..106 Q=0.
00C890: 0A 31 31 30 20 56 3D 35 2B 49 4E 54 28 33 35 2A .110 V=5+INT(35*
00C8A0: 52 4E 44 28 31 29 29 0D 0A 31 31 31 20 50 52 49 RND(1))..111 PRI
00C8B0: 4E 54 20 22 41 20 42 41 4C 4C 20 49 53 20 54 48 NT "A BALL IS TH
00C8C0: 52 4F 57 4E 20 55 50 57 41 52 44 53 20 41 54 22 ROWN UPWARDS AT"
00C8D0: 3B 56 3B 22 4D 45 54 45 52 53 20 50 45 52 20 53 ;V;"METERS PER S
00C8E0: 45 43 4F 4E 44 2E 22 0D 0A 31 31 32 20 50 52 49 ECOND."..112 PRI
00C8F0: 4E 54 0D 0A 31 31 35 20 41 3D 2E 30 35 2A 56 5E NT..115 A=.05*V^
00C900: 32 0D 0A 31 31 36 20 50 52 49 4E 54 20 22 48 4F 2..116 PRINT "HO
00C910: 57 20 48 49 47 48 20 57 49 4C 4C 20 49 54 20 47 W HIGH WILL IT G
00C920: 4F 20 28 49 4E 20 4D 45 54 45 52 53 29 22 3B 0D O (IN METERS)";.
00C930: 0A 31 31 37 20 47 4F 53 55 42 20 35 30 30 0D 0A .117 GOSUB 500..
00C940: 31 32 30 20 41 3D 56 2F 35 0D 0A 31 32 32 20 50 120 A=V/5..122 P
00C950: 52 49 4E 54 20 22 48 4F 57 20 4C 4F 4E 47 20 55 RINT "HOW LONG U
00C960: 4E 54 49 4C 20 49 54 20 52 45 54 55 52 4E 53 20 NTIL IT RETURNS
00C970: 28 49 4E 20 53 45 43 4F 4E 44 53 29 22 3B 0D 0A (IN SECONDS)";..
00C980: 31 32 34 20 47 4F 53 55 42 20 35 30 30 0D 0A 31 124 GOSUB 500..1
00C990: 33 30 20 54 3D 31 2B 49 4E 54 28 32 2A 56 2A 52 30 T=1+INT(2*V*R
00C9A0: 4E 44 28 31 29 29 2F 31 30 0D 0A 31 33 32 20 41 ND(1))/10..132 A
00C9B0: 3D 56 2D 31 30 2A 54 0D 0A 31 33 34 20 50 52 49 =V-10*T..134 PRI
00C9C0: 4E 54 20 22 57 48 41 54 20 57 49 4C 4C 20 49 54 NT "WHAT WILL IT
00C9D0: 53 20 56 45 4C 4F 43 49 54 59 20 42 45 20 41 46 S VELOCITY BE AF
00C9E0: 54 45 52 22 3B 54 3B 22 53 45 43 4F 4E 44 53 22 TER";T;"SECONDS"
00C9F0: 3B 0D 0A 31 33 36 20 47 4F 53 55 42 20 35 30 30 ;..136 GOSUB 500
00CA00: 4E 44 55 53 54 52 59 20 57 49 4C 4C 20 42 55 59 NDUSTRY WILL BUY
00CA10: 20 4C 41 4E 44 20 46 4F 52 22 3B 57 3B 0D 0A 31 LAND FOR";W;..1
00CA20: 35 32 20 50 52 49 4E 54 20 22 52 41 4C 4C 4F 44 52 PRINT "RALLOD
00CA30: 53 20 50 45 52 20 53 51 55 41 52 45 20 4D 49 4C S PER SQUARE MIL
00CA40: 45 2E 22 0D 0A 31 35 35 20 50 52 49 4E 54 20 22 E."..155 PRINT "
00CA50: 4C 41 4E 44 20 43 55 52 52 45 4E 54 4C 59 20 43 LAND CURRENTLY C
00CA60: 4F 53 54 53 22 3B 56 39 3B 22 52 41 4C 4C 4F 44 OSTS";V9;"RALLOD
00CA70: 53 20 50 45 52 20 53 51 55 41 52 45 20 4D 49 4C S PER SQUARE MIL
00CA80: 45 20 54 4F 20 50 4C 41 4E 54 2E 22 0D 0A 31 36 E TO PLANT."..16
00CA90: 32 20 50 52 49 4E 54 0D 0A 32 30 30 20 50 52 49 2 PRINT..200 PRI
00CAA0: 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 53 51 55 NT "HOW MANY SQU
00CAB0: 41 52 45 20 4D 49 4C 45 53 20 44 4F 20 59 4F 55 ARE MILES DO YOU
00CAC0: 20 57 49 53 48 20 54 4F 20 53 45 4C 4C 20 54 4F WISH TO SELL TO
00CAD0: 20 49 4E 44 55 53 54 52 59 22 3B 0D 0A 32 31 30 INDUSTRY";..210
00CAE0: 20 49 4E 50 55 54 20 48 0D 0A 32 31 35 20 49 46 INPUT H..215 IF
00CAF0: 20 48 3C 30 20 54 48 45 4E 20 32 30 30 0D 0A 32 H<0 THEN 200..2
00CB00: 32 30 20 49 46 20 48 3C 3D 44 2D 31 30 30 30 20 20 IF H<=D-1000
00CB10: 54 48 45 4E 20 33 30 30 0D 0A 32 33 30 20 50 52 THEN 300..230 PR
00CB20: 49 4E 54 20 22 2A 2A 2A 20 20 54 48 49 4E 4B 20 INT "*** THINK
00CB30: 41 47 41 49 4E 2E 20 59 4F 55 20 4F 4E 4C 59 20 AGAIN. YOU ONLY
00CB40: 48 41 56 45 22 3B 44 2D 31 30 30 30 3B 22 53 51 HAVE";D-1000;"SQ
00CB50: 55 41 52 45 20 4D 49 4C 45 53 20 4F 46 20 46 41 UARE MILES OF FA
00CB60: 52 4D 20 4C 41 4E 44 2E 22 0D 0A 32 34 30 20 49 RM LAND."..240 I
00CB70: 46 20 58 3C 3E 30 20 54 48 45 4E 20 32 30 30 0D F X<>0 THEN 200.
00CB80: 0A 32 35 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .250 PRINT:PRINT
00CB90: 20 22 28 46 4F 52 45 49 47 4E 20 49 4E 44 55 53 "(FOREIGN INDUS
00CBA0: 54 52 59 20 57 49 4C 4C 20 4F 4E 4C 59 20 42 55 TRY WILL ONLY BU
00CBB0: 59 20 46 41 52 4D 20 4C 41 4E 44 20 42 45 43 41 Y FARM LAND BECA
00CBC0: 55 53 45 22 0D 0A 32 36 30 20 50 52 49 4E 54 20 USE"..260 PRINT
00CBD0: 22 46 4F 52 45 53 54 20 4C 41 4E 44 20 49 53 20 "FOREST LAND IS
00CBE0: 55 4E 45 43 4F 4E 4F 4D 49 43 41 4C 20 54 4F 20 UNECONOMICAL TO
00CBF0: 53 54 52 49 50 20 4D 49 4E 45 20 44 55 45 20 54 STRIP MINE DUE T
00CC00: 0D 0A 31 34 30 20 50 52 49 4E 54 0D 0A 31 35 30 ..140 PRINT..150
00CC10: 20 50 52 49 4E 54 20 51 3B 22 52 49 47 48 54 20 PRINT Q;"RIGHT
00CC20: 4F 55 54 20 4F 46 20 33 2E 22 3B 0D 0A 31 36 30 OUT OF 3.";..160
00CC30: 20 49 46 20 51 3C 32 20 54 48 45 4E 20 31 30 30 IF Q<2 THEN 100
00CC40: 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 20 20 4E ..170 PRINT " N
00CC50: 4F 54 20 42 41 44 2E 22 0D 0A 31 38 30 20 47 4F OT BAD."..180 GO
00CC60: 54 4F 20 31 30 30 0D 0A 35 30 30 20 49 4E 50 55 TO 100..500 INPU
00CC70: 54 20 47 0D 0A 35 30 32 20 49 46 20 41 42 53 28 T G..502 IF ABS(
00CC80: 28 47 2D 41 29 2F 41 29 3C 2E 31 35 20 54 48 45 (G-A)/A)<.15 THE
00CC90: 4E 20 35 31 30 0D 0A 35 30 34 20 50 52 49 4E 54 N 510..504 PRINT
00CCA0: 20 22 4E 4F 54 20 45 56 45 4E 20 43 4C 4F 53 45 "NOT EVEN CLOSE
00CCB0: 2E 2E 2E 2E 22 0D 0A 35 30 36 20 47 4F 54 4F 20 ...."..506 GOTO
00CCC0: 35 31 32 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 512..510 PRINT "
00CCD0: 43 4C 4F 53 45 20 45 4E 4F 55 47 48 2E 22 0D 0A CLOSE ENOUGH."..
00CCE0: 35 31 31 20 51 3D 51 2B 31 0D 0A 35 31 32 20 50 511 Q=Q+1..512 P
00CCF0: 52 49 4E 54 20 22 43 4F 52 52 45 43 54 20 41 4E RINT "CORRECT AN
00CD00: 53 57 45 52 20 49 53 20 22 3B 41 0D 0A 35 32 30 SWER IS ";A..520
00CD10: 20 50 52 49 4E 54 0D 0A 35 33 30 20 52 45 54 55 PRINT..530 RETU
00CD20: 52 4E 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 RN..999 END.....
00CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CE00: 4F 20 54 52 45 45 53 2C 22 0D 0A 32 37 30 20 50 O TREES,"..270 P
00CE10: 52 49 4E 54 20 22 54 48 49 43 4B 45 52 20 54 4F RINT "THICKER TO
00CE20: 50 20 53 4F 49 4C 2C 20 45 54 43 2E 29 22 0D 0A P SOIL, ETC.)"..
00CE30: 32 38 30 20 58 3D 31 0D 0A 32 39 39 20 47 4F 54 280 X=1..299 GOT
00CE40: 4F 20 32 30 30 0D 0A 33 30 30 20 44 3D 49 4E 54 O 200..300 D=INT
00CE50: 28 44 2D 48 29 0D 0A 33 31 30 20 41 3D 49 4E 54 (D-H)..310 A=INT
00CE60: 28 41 2B 28 48 2A 57 29 29 0D 0A 33 32 30 20 50 (A+(H*W))..320 P
00CE70: 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 52 RINT "HOW MANY R
00CE80: 41 4C 4C 4F 44 53 20 57 49 4C 4C 20 59 4F 55 20 ALLODS WILL YOU
00CE90: 44 49 53 54 52 49 42 55 54 45 20 41 4D 4F 4E 47 DISTRIBUTE AMONG
00CEA0: 20 59 4F 55 52 20 43 4F 55 4E 54 52 59 4D 45 4E YOUR COUNTRYMEN
00CEB0: 22 3B 0D 0A 33 34 30 20 49 4E 50 55 54 20 49 0D ";..340 INPUT I.
00CEC0: 0A 33 34 32 20 49 46 20 49 3C 30 20 54 48 45 4E .342 IF I<0 THEN
00CED0: 20 33 32 30 0D 0A 33 35 30 20 49 46 20 49 3C 41 320..350 IF I<A
00CEE0: 20 54 48 45 4E 20 34 30 30 0D 0A 33 36 30 20 49 THEN 400..360 I
00CEF0: 46 20 49 3D 41 20 54 48 45 4E 20 33 38 30 0D 0A F I=A THEN 380..
00CF00: 33 37 30 20 50 52 49 4E 54 20 22 20 20 20 54 48 370 PRINT " TH
00CF10: 49 4E 4B 20 41 47 41 49 4E 2E 20 59 4F 55 27 56 INK AGAIN. YOU'V
00CF20: 45 20 4F 4E 4C 59 22 3B 41 3B 22 20 52 41 4C 4C E ONLY";A;" RALL
00CF30: 4F 44 53 20 49 4E 20 54 48 45 20 54 52 45 41 53 ODS IN THE TREAS
00CF40: 55 52 59 22 0D 0A 33 37 35 20 47 4F 54 4F 20 33 URY"..375 GOTO 3
00CF50: 32 30 0D 0A 33 38 30 20 4A 3D 30 0D 0A 33 39 30 20..380 J=0..390
00CF60: 20 4B 3D 30 0D 0A 33 39 35 20 41 3D 30 0D 0A 33 K=0..395 A=0..3
00CF70: 39 39 20 47 4F 54 4F 20 31 30 30 30 0D 0A 34 30 99 GOTO 1000..40
00CF80: 30 20 41 3D 49 4E 54 28 41 2D 49 29 0D 0A 34 31 0 A=INT(A-I)..41
00CF90: 30 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 0 PRINT "HOW MAN
00CFA0: 59 20 53 51 55 41 52 45 20 4D 49 4C 45 53 20 44 Y SQUARE MILES D
00CFB0: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 4C O YOU WISH TO PL
00CFC0: 41 4E 54 22 3B 0D 0A 34 32 30 20 49 4E 50 55 54 ANT";..420 INPUT
00CFD0: 20 4A 0D 0A 34 32 31 20 49 46 20 4A 3C 30 20 54 J..421 IF J<0 T
00CFE0: 48 45 4E 20 34 31 30 0D 0A 34 32 32 20 49 46 20 HEN 410..422 IF
00CFF0: 4A 3C 3D 42 2A 32 20 54 48 45 4E 20 34 32 36 0D J<=B*2 THEN 426.
00D000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 1 PRINT TAB(34);
00D010: 22 4B 49 4E 47 22 0D 0A 32 20 50 52 49 4E 54 20 "KING"..2 PRINT
00D020: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
00D030: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
00D040: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
00D050: 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 52 SEY"..3 PRINT:PR
00D060: 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 52 49 INT:PRINT..4 PRI
00D070: 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 NT "DO YOU WANT
00D080: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A INSTRUCTIONS";..
00D090: 35 20 49 4E 50 55 54 20 5A 24 0D 0A 36 20 4E 35 5 INPUT Z$..6 N5
00D0A0: 3D 38 0D 0A 31 30 20 49 46 20 4C 45 46 54 24 28 =8..10 IF LEFT$(
00D0B0: 5A 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E 20 34 Z$,1)="N" THEN 4
00D0C0: 37 0D 0A 31 31 20 49 46 20 5A 24 3D 22 41 47 41 7..11 IF Z$="AGA
00D0D0: 49 4E 22 20 54 48 45 4E 20 31 39 36 30 0D 0A 31 IN" THEN 1960..1
00D0E0: 32 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 2 PRINT:PRINT:PR
00D0F0: 49 4E 54 0D 0A 32 30 20 50 52 49 4E 54 20 22 43 INT..20 PRINT "C
00D100: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 21 20 ONGRATULATIONS!
00D110: 59 4F 55 27 56 45 20 4A 55 53 54 20 42 45 45 4E YOU'VE JUST BEEN
00D120: 20 45 4C 45 43 54 45 44 20 50 52 45 4D 49 45 52 ELECTED PREMIER
00D130: 20 4F 46 20 53 45 54 41 54 53 22 0D 0A 32 32 20 OF SETATS"..22
00D140: 50 52 49 4E 54 20 22 44 45 54 49 4E 55 2C 20 41 PRINT "DETINU, A
00D150: 20 53 4D 41 4C 4C 20 43 4F 4D 4D 55 4E 49 53 54 SMALL COMMUNIST
00D160: 20 49 53 4C 41 4E 44 20 33 30 20 42 59 20 37 30 ISLAND 30 BY 70
00D170: 20 4D 49 4C 45 53 20 4C 4F 4E 47 2E 20 59 4F 55 MILES LONG. YOU
00D180: 52 22 0D 0A 32 34 20 50 52 49 4E 54 20 22 4A 4F R"..24 PRINT "JO
00D190: 42 20 49 53 20 54 4F 20 44 45 43 49 44 45 20 55 B IS TO DECIDE U
00D1A0: 50 4F 4E 20 54 48 45 20 43 4F 4E 54 52 59 27 53 PON THE CONTRY'S
00D1B0: 20 42 55 44 47 45 54 20 41 4E 44 20 44 49 53 54 BUDGET AND DIST
00D1C0: 52 49 42 55 54 45 22 0D 0A 32 36 20 50 52 49 4E RIBUTE"..26 PRIN
00D1D0: 54 20 22 4D 4F 4E 45 59 20 54 4F 20 59 4F 55 52 T "MONEY TO YOUR
00D1E0: 20 43 4F 55 4E 54 52 59 4D 45 4E 20 46 52 4F 4D COUNTRYMEN FROM
00D1F0: 20 54 48 45 20 43 4F 4D 4D 55 4E 41 4C 20 54 52 THE COMMUNAL TR
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 00 00 02 09 52 E5 0B 00 C1 02 00 00 00 02 ......R.........
00D220: 0B 00 C6 02 00 00 00 02 0B 00 C2 02 00 00 00 02 ................
00D230: 0B 00 C7 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D240: 0B 00 C8 02 00 00 00 02 0B 00 C4 02 00 00 00 02 ................
00D250: 0B 00 C9 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 0A 34 32 33 20 50 52 49 4E 54 20 22 20 20 20 53 .423 PRINT " S
00D310: 4F 52 52 59 2C 20 42 55 54 20 45 41 43 48 20 43 ORRY, BUT EACH C
00D320: 4F 55 4E 54 52 59 4D 41 4E 20 43 41 4E 20 4F 4E OUNTRYMAN CAN ON
00D330: 4C 59 20 50 4C 41 4E 54 20 32 20 53 51 2E 20 4D LY PLANT 2 SQ. M
00D340: 49 4C 45 53 2E 22 0D 0A 34 32 34 20 47 4F 54 4F ILES."..424 GOTO
00D350: 20 34 31 30 0D 0A 34 32 36 20 49 46 20 4A 3C 3D 410..426 IF J<=
00D360: 44 2D 31 30 30 30 20 54 48 45 4E 20 34 33 30 0D D-1000 THEN 430.
00D370: 0A 34 32 37 20 50 52 49 4E 54 20 22 20 20 20 53 .427 PRINT " S
00D380: 4F 52 52 59 2C 20 42 55 54 20 59 4F 55 27 56 45 ORRY, BUT YOU'VE
00D390: 20 4F 4E 4C 59 22 3B 44 2D 31 30 30 30 3B 22 53 ONLY";D-1000;"S
00D3A0: 51 2E 20 4D 49 4C 45 53 20 4F 46 20 46 41 52 4D Q. MILES OF FARM
00D3B0: 20 4C 41 4E 44 2E 22 0D 0A 34 32 38 20 47 4F 54 LAND."..428 GOT
00D3C0: 4F 20 34 31 30 0D 0A 34 33 30 20 55 31 3D 49 4E O 410..430 U1=IN
00D3D0: 54 28 4A 2A 56 39 29 0D 0A 34 33 35 20 49 46 20 T(J*V9)..435 IF
00D3E0: 55 31 3C 41 20 54 48 45 4E 20 35 30 30 0D 0A 34 U1<A THEN 500..4
00D3F0: 34 30 20 49 46 20 55 31 3D 41 20 54 48 45 4E 20 40 IF U1=A THEN
00D400: 34 39 30 0D 0A 34 35 30 20 50 52 49 4E 54 20 22 490..450 PRINT "
00D410: 20 20 20 54 48 49 4E 4B 20 41 47 41 49 4E 2E 20 THINK AGAIN.
00D420: 59 4F 55 27 56 45 20 4F 4E 4C 59 22 3B 41 3B 22 YOU'VE ONLY";A;"
00D430: 20 52 41 4C 4C 4F 44 53 20 4C 45 46 54 20 49 4E RALLODS LEFT IN
00D440: 20 54 48 45 20 54 52 45 41 53 55 52 59 2E 22 0D THE TREASURY.".
00D450: 0A 34 36 30 20 47 4F 54 4F 20 34 31 30 0D 0A 34 .460 GOTO 410..4
00D460: 39 30 20 4B 3D 30 0D 0A 34 39 35 20 41 3D 30 0D 90 K=0..495 A=0.
00D470: 0A 34 39 39 20 47 4F 54 4F 20 31 30 30 30 0D 0A .499 GOTO 1000..
00D480: 35 30 30 20 41 3D 41 2D 55 31 0D 0A 35 31 30 20 500 A=A-U1..510
00D490: 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 PRINT "HOW MANY
00D4A0: 52 41 4C 4C 4F 44 53 20 44 4F 20 59 4F 55 20 57 RALLODS DO YOU W
00D4B0: 49 53 48 20 54 4F 20 53 50 45 4E 44 20 4F 4E 20 ISH TO SPEND ON
00D4C0: 50 4F 4C 4C 55 54 49 4F 4E 20 43 4F 4E 54 52 4F POLLUTION CONTRO
00D4D0: 4C 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 4B L";..520 INPUT K
00D4E0: 0D 0A 35 32 32 20 49 46 20 4B 3C 30 20 54 48 45 ..522 IF K<0 THE
00D4F0: 4E 20 35 31 30 0D 0A 35 33 30 20 49 46 20 4B 3C N 510..530 IF K<
00D500: 44 20 57 41 54 45 52 20 50 4F 4C 4C 55 54 49 4F D WATER POLLUTIO
00D510: 4E 20 46 52 4F 4D 20 46 4F 52 45 49 47 4E 20 49 N FROM FOREIGN I
00D520: 4E 44 55 53 54 52 59 2E 29 22 0D 0A 31 33 37 30 NDUSTRY.)"..1370
00D530: 20 51 3D 49 4E 54 28 28 4A 2D 55 32 29 2A 28 57 Q=INT((J-U2)*(W
00D540: 2F 32 29 29 0D 0A 31 33 38 30 20 50 52 49 4E 54 /2))..1380 PRINT
00D550: 20 22 4D 41 4B 49 4E 47 22 3B 49 4E 54 28 51 29 "MAKING";INT(Q)
00D560: 3B 22 52 41 4C 4C 4F 44 53 2E 22 0D 0A 31 33 39 ;"RALLODS."..139
00D570: 30 20 41 3D 49 4E 54 28 41 2B 51 29 0D 0A 31 34 0 A=INT(A+Q)..14
00D580: 30 30 20 56 31 3D 49 4E 54 28 28 28 42 2D 50 31 00 V1=INT(((B-P1
00D590: 29 2A 32 32 29 2B 28 52 4E 44 28 31 29 2A 35 30 )*22)+(RND(1)*50
00D5A0: 30 29 29 0D 0A 31 34 30 35 20 56 32 3D 49 4E 54 0))..1405 V2=INT
00D5B0: 28 28 32 30 30 30 2D 44 29 2A 31 35 29 0D 0A 31 ((2000-D)*15)..1
00D5C0: 34 31 30 20 50 52 49 4E 54 20 22 20 59 4F 55 20 410 PRINT " YOU
00D5D0: 4D 41 44 45 22 3B 41 42 53 28 49 4E 54 28 56 31 MADE";ABS(INT(V1
00D5E0: 2D 56 32 29 29 3B 22 52 41 4C 4C 4F 44 53 20 46 -V2));"RALLODS F
00D5F0: 52 4F 4D 20 54 4F 55 52 49 53 54 20 54 52 41 44 ROM TOURIST TRAD
00D600: 45 2E 22 0D 0A 31 34 32 30 20 49 46 20 56 32 3D E."..1420 IF V2=
00D610: 30 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 34 32 0 THEN 1450..142
00D620: 35 20 49 46 20 56 31 2D 56 32 3E 3D 56 33 20 54 5 IF V1-V2>=V3 T
00D630: 48 45 4E 20 31 34 35 30 0D 0A 31 34 33 30 20 50 HEN 1450..1430 P
00D640: 52 49 4E 54 20 22 20 20 20 44 45 43 52 45 41 53 RINT " DECREAS
00D650: 45 20 42 45 43 41 55 53 45 20 22 3B 0D 0A 31 34 E BECAUSE ";..14
00D660: 33 35 20 47 31 3D 31 30 2A 52 4E 44 28 31 29 0D 35 G1=10*RND(1).
00D670: 0A 31 34 34 30 20 49 46 20 47 31 3C 3D 32 20 54 .1440 IF G1<=2 T
00D680: 48 45 4E 20 31 34 36 30 0D 0A 31 34 34 32 20 49 HEN 1460..1442 I
00D690: 46 20 47 31 3C 3D 34 20 54 48 45 4E 20 31 34 36 F G1<=4 THEN 146
00D6A0: 35 0D 0A 31 34 34 34 20 49 46 20 47 31 3C 3D 36 5..1444 IF G1<=6
00D6B0: 20 54 48 45 4E 20 31 34 37 30 0D 0A 31 34 34 36 THEN 1470..1446
00D6C0: 20 49 46 20 47 31 3C 3D 38 20 54 48 45 4E 20 31 IF G1<=8 THEN 1
00D6D0: 34 37 35 0D 0A 31 34 34 38 20 49 46 20 47 31 3C 475..1448 IF G1<
00D6E0: 3D 31 30 20 54 48 45 4E 20 31 34 38 30 0D 0A 31 =10 THEN 1480..1
00D6F0: 34 35 30 20 56 33 3D 49 4E 54 28 41 2B 56 33 29 450 V3=INT(A+V3)
00D700: 3D 41 20 54 48 45 4E 20 31 30 30 30 0D 0A 35 34 =A THEN 1000..54
00D710: 30 20 50 52 49 4E 54 20 22 20 20 20 54 48 49 4E 0 PRINT " THIN
00D720: 4B 20 41 47 41 49 4E 2E 20 59 4F 55 20 4F 4E 4C K AGAIN. YOU ONL
00D730: 59 20 48 41 56 45 20 22 3B 41 3B 22 20 52 41 4C Y HAVE ";A;" RAL
00D740: 4C 4F 44 53 20 52 45 4D 41 49 4E 49 4E 47 2E 22 LODS REMAINING."
00D750: 0D 0A 35 35 30 20 47 4F 54 4F 20 35 31 30 0D 0A ..550 GOTO 510..
00D760: 36 30 30 20 49 46 20 48 3C 3E 30 20 54 48 45 4E 600 IF H<>0 THEN
00D770: 20 31 30 30 32 0D 0A 36 30 32 20 49 46 20 49 3C 1002..602 IF I<
00D780: 3E 30 20 54 48 45 4E 20 31 30 30 32 0D 0A 36 30 >0 THEN 1002..60
00D790: 34 20 49 46 20 4A 3C 3E 30 20 54 48 45 4E 20 31 4 IF J<>0 THEN 1
00D7A0: 30 30 32 0D 0A 36 30 36 20 49 46 20 4B 3C 3E 30 002..606 IF K<>0
00D7B0: 20 54 48 45 4E 20 31 30 30 32 0D 0A 36 30 39 20 THEN 1002..609
00D7C0: 50 52 49 4E 54 0D 0A 36 31 32 20 50 52 49 4E 54 PRINT..612 PRINT
00D7D0: 20 22 47 4F 4F 44 42 59 45 2E 22 0D 0A 36 31 34 "GOODBYE."..614
00D7E0: 20 50 52 49 4E 54 20 22 28 49 46 20 59 4F 55 20 PRINT "(IF YOU
00D7F0: 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 WISH TO CONTINUE
00D800: 20 54 48 49 53 20 47 41 4D 45 20 41 54 20 41 20 THIS GAME AT A
00D810: 4C 41 54 45 52 20 44 41 54 45 2C 20 41 4E 53 57 LATER DATE, ANSW
00D820: 45 52 22 0D 0A 36 31 36 20 50 52 49 4E 54 20 22 ER"..616 PRINT "
00D830: 27 41 47 41 49 4E 27 20 57 48 45 4E 20 41 53 4B 'AGAIN' WHEN ASK
00D840: 45 44 20 49 46 20 59 4F 55 20 57 41 4E 54 20 49 ED IF YOU WANT I
00D850: 4E 53 54 52 55 43 54 49 4F 4E 53 20 41 54 20 54 NSTRUCTIONS AT T
00D860: 48 45 20 53 54 41 52 54 22 0D 0A 36 31 37 20 50 HE START"..617 P
00D870: 52 49 4E 54 20 22 4F 46 20 54 48 45 20 47 41 4D RINT "OF THE GAM
00D880: 45 29 2E 22 0D 0A 36 31 38 20 53 54 4F 50 0D 0A E)."..618 STOP..
00D890: 31 30 30 30 20 47 4F 54 4F 20 36 30 30 0D 0A 31 1000 GOTO 600..1
00D8A0: 30 30 32 20 50 52 49 4E 54 0D 0A 31 30 30 33 20 002 PRINT..1003
00D8B0: 50 52 49 4E 54 0D 0A 31 30 31 30 20 41 3D 49 4E PRINT..1010 A=IN
00D8C0: 54 28 41 2D 4B 29 0D 0A 31 30 32 30 20 41 34 3D T(A-K)..1020 A4=
00D8D0: 41 0D 0A 31 31 30 30 20 49 46 20 49 4E 54 28 49 A..1100 IF INT(I
00D8E0: 2F 31 30 30 2D 42 29 3E 3D 30 20 54 48 45 4E 20 /100-B)>=0 THEN
00D8F0: 31 31 32 30 0D 0A 31 31 30 35 20 49 46 20 49 2F 1120..1105 IF I/
00D900: 0D 0A 31 34 35 31 20 41 3D 49 4E 54 28 41 2B 56 ..1451 A=INT(A+V
00D910: 33 29 0D 0A 31 34 35 32 20 47 4F 54 4F 20 31 35 3)..1452 GOTO 15
00D920: 30 30 0D 0A 31 34 36 30 20 50 52 49 4E 54 20 22 00..1460 PRINT "
00D930: 46 49 53 48 20 50 4F 50 55 4C 41 54 49 4F 4E 20 FISH POPULATION
00D940: 48 41 53 20 44 57 49 4E 44 4C 45 44 20 44 55 45 HAS DWINDLED DUE
00D950: 20 54 4F 20 57 41 54 45 52 20 50 4F 4C 4C 55 54 TO WATER POLLUT
00D960: 49 4F 4E 2E 22 0D 0A 31 34 36 32 20 47 4F 54 4F ION."..1462 GOTO
00D970: 20 31 34 35 30 0D 0A 31 34 36 35 20 50 52 49 4E 1450..1465 PRIN
00D980: 54 20 22 41 49 52 20 50 4F 4C 4C 55 54 49 4F 4E T "AIR POLLUTION
00D990: 20 49 53 20 4B 49 4C 4C 49 4E 47 20 47 41 4D 45 IS KILLING GAME
00D9A0: 20 42 49 52 44 20 50 4F 50 55 4C 41 54 49 4F 4E BIRD POPULATION
00D9B0: 2E 22 0D 0A 31 34 36 37 20 47 4F 54 4F 20 31 34 ."..1467 GOTO 14
00D9C0: 35 30 0D 0A 31 34 37 30 20 50 52 49 4E 54 20 22 50..1470 PRINT "
00D9D0: 4D 49 4E 45 52 41 4C 20 42 41 54 48 53 20 41 52 MINERAL BATHS AR
00D9E0: 45 20 42 45 49 4E 47 20 52 55 49 4E 45 44 20 42 E BEING RUINED B
00D9F0: 59 20 57 41 54 45 52 20 50 4F 4C 4C 55 54 49 4F Y WATER POLLUTIO
00DA00: 4E 2E 22 0D 0A 31 34 37 32 20 47 4F 54 4F 20 31 N."..1472 GOTO 1
00DA10: 34 35 30 0D 0A 31 34 37 35 20 50 52 49 4E 54 20 450..1475 PRINT
00DA20: 22 55 4E 50 4C 45 41 53 41 4E 54 20 53 4D 4F 47 "UNPLEASANT SMOG
00DA30: 20 49 53 20 44 49 53 43 4F 55 52 41 47 49 4E 47 IS DISCOURAGING
00DA40: 20 53 55 4E 20 42 41 54 48 45 52 53 2E 22 0D 0A SUN BATHERS."..
00DA50: 31 34 37 37 20 47 4F 54 4F 20 31 34 35 30 0D 0A 1477 GOTO 1450..
00DA60: 31 34 38 30 20 50 52 49 4E 54 20 22 48 4F 54 45 1480 PRINT "HOTE
00DA70: 4C 53 20 41 52 45 20 4C 4F 4F 4B 49 4E 47 20 53 LS ARE LOOKING S
00DA80: 48 41 42 42 59 20 44 55 45 20 54 4F 20 53 4D 4F HABBY DUE TO SMO
00DA90: 47 20 47 52 49 54 2E 22 0D 0A 31 34 38 32 20 47 G GRIT."..1482 G
00DAA0: 4F 54 4F 20 31 34 35 30 0D 0A 31 35 30 30 20 49 OTO 1450..1500 I
00DAB0: 46 20 42 35 3E 32 30 30 20 54 48 45 4E 20 31 36 F B5>200 THEN 16
00DAC0: 30 30 0D 0A 31 35 30 35 20 49 46 20 42 3C 33 34 00..1505 IF B<34
00DAD0: 33 20 54 48 45 4E 20 31 37 30 30 0D 0A 31 35 31 3 THEN 1700..151
00DAE0: 30 20 49 46 20 28 41 34 2F 31 30 30 29 3E 35 20 0 IF (A4/100)>5
00DAF0: 54 48 45 4E 20 31 38 30 30 0D 0A 31 35 31 35 20 THEN 1800..1515
00DB00: 31 30 30 3C 35 30 20 54 48 45 4E 20 31 37 30 30 100<50 THEN 1700
00DB10: 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 49 4E 54 ..1110 PRINT INT
00DB20: 28 42 2D 28 49 2F 31 30 30 29 29 3B 22 43 4F 55 (B-(I/100));"COU
00DB30: 4E 54 52 59 4D 45 4E 20 44 49 45 44 20 4F 46 20 NTRYMEN DIED OF
00DB40: 53 54 41 52 56 41 54 49 4F 4E 22 0D 0A 31 31 32 STARVATION"..112
00DB50: 30 20 46 31 3D 49 4E 54 28 52 4E 44 28 31 29 2A 0 F1=INT(RND(1)*
00DB60: 28 32 30 30 30 2D 44 29 29 0D 0A 31 31 32 32 20 (2000-D))..1122
00DB70: 49 46 20 4B 3C 32 35 20 54 48 45 4E 20 31 31 33 IF K<25 THEN 113
00DB80: 30 0D 0A 31 31 32 35 20 46 31 3D 49 4E 54 28 46 0..1125 F1=INT(F
00DB90: 31 2F 28 4B 2F 32 35 29 29 0D 0A 31 31 33 30 20 1/(K/25))..1130
00DBA0: 49 46 20 46 31 3C 3D 30 20 54 48 45 4E 20 31 31 IF F1<=0 THEN 11
00DBB0: 35 30 0D 0A 31 31 34 30 20 50 52 49 4E 54 20 46 50..1140 PRINT F
00DBC0: 31 3B 22 43 4F 55 4E 54 52 59 4D 45 4E 20 44 49 1;"COUNTRYMEN DI
00DBD0: 45 44 20 4F 46 20 43 41 52 42 4F 4E 2D 4D 4F 4E ED OF CARBON-MON
00DBE0: 4F 58 49 44 45 20 41 4E 44 20 44 55 53 54 20 49 OXIDE AND DUST I
00DBF0: 4E 48 41 4C 41 54 49 4F 4E 22 0D 0A 31 31 35 30 NHALATION"..1150
00DC00: 20 49 46 20 49 4E 54 28 28 49 2F 31 30 30 29 2D IF INT((I/100)-
00DC10: 42 29 3C 30 20 54 48 45 4E 20 31 31 37 30 0D 0A B)<0 THEN 1170..
00DC20: 31 31 36 30 20 49 46 20 46 31 3E 30 20 54 48 45 1160 IF F1>0 THE
00DC30: 4E 20 31 31 38 30 0D 0A 31 31 36 35 20 47 4F 54 N 1180..1165 GOT
00DC40: 4F 20 31 32 30 30 0D 0A 31 31 37 30 20 50 52 49 O 1200..1170 PRI
00DC50: 4E 54 20 22 20 20 20 59 4F 55 20 57 45 52 45 20 NT " YOU WERE
00DC60: 46 4F 52 43 45 44 20 54 4F 20 53 50 45 4E 44 22 FORCED TO SPEND"
00DC70: 3B 49 4E 54 28 28 46 31 2B 28 42 2D 28 49 2F 31 ;INT((F1+(B-(I/1
00DC80: 30 30 29 29 29 2A 39 29 3B 0D 0A 31 31 37 32 20 00)))*9);..1172
00DC90: 50 52 49 4E 54 20 22 52 41 4C 4C 4F 44 53 20 4F PRINT "RALLODS O
00DCA0: 4E 20 46 55 4E 45 52 41 4C 20 45 58 50 45 4E 53 N FUNERAL EXPENS
00DCB0: 45 53 22 0D 0A 31 31 37 34 20 42 35 3D 49 4E 54 ES"..1174 B5=INT
00DCC0: 28 46 31 2B 28 42 2D 28 49 2F 31 30 30 29 29 29 (F1+(B-(I/100)))
00DCD0: 0D 0A 31 31 37 35 20 41 3D 49 4E 54 28 41 2D 28 ..1175 A=INT(A-(
00DCE0: 28 46 31 2B 28 42 2D 28 49 2F 31 30 30 29 29 29 (F1+(B-(I/100)))
00DCF0: 2A 39 29 29 0D 0A 31 31 37 36 20 47 4F 54 4F 20 *9))..1176 GOTO
00DD00: 49 46 20 43 3E 42 20 54 48 45 4E 20 31 35 35 30 IF C>B THEN 1550
00DD10: 0D 0A 31 35 32 30 20 49 46 20 4E 35 2D 31 3D 58 ..1520 IF N5-1=X
00DD20: 35 20 54 48 45 4E 20 31 39 30 30 0D 0A 31 35 34 5 THEN 1900..154
00DD30: 35 20 47 4F 54 4F 20 32 30 30 30 0D 0A 31 35 35 5 GOTO 2000..155
00DD40: 30 20 50 52 49 4E 54 0D 0A 31 35 35 32 20 50 52 0 PRINT..1552 PR
00DD50: 49 4E 54 0D 0A 31 35 36 30 20 50 52 49 4E 54 20 INT..1560 PRINT
00DD60: 22 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 46 "THE NUMBER OF F
00DD70: 4F 52 45 49 47 4E 20 57 4F 52 4B 45 52 53 20 48 OREIGN WORKERS H
00DD80: 41 53 20 45 58 43 45 45 44 45 44 20 54 48 45 20 AS EXCEEDED THE
00DD90: 4E 55 4D 42 45 52 22 0D 0A 31 35 36 32 20 50 52 NUMBER"..1562 PR
00DDA0: 49 4E 54 20 22 4F 46 20 43 4F 55 4E 54 52 59 4D INT "OF COUNTRYM
00DDB0: 45 4E 2E 20 41 53 20 41 20 4D 49 4E 4F 52 49 54 EN. AS A MINORIT
00DDC0: 59 2C 20 54 48 45 59 20 48 41 56 45 20 52 45 56 Y, THEY HAVE REV
00DDD0: 4F 4C 54 45 44 20 41 4E 44 22 0D 0A 31 35 36 34 OLTED AND"..1564
00DDE0: 20 50 52 49 4E 54 20 22 54 41 4B 45 4E 20 4F 56 PRINT "TAKEN OV
00DDF0: 45 52 20 54 48 45 20 43 4F 55 4E 54 52 59 2E 22 ER THE COUNTRY."
00DE00: 0D 0A 31 35 37 30 20 49 46 20 52 4E 44 28 31 29 ..1570 IF RND(1)
00DE10: 3C 3D 2E 35 20 54 48 45 4E 20 31 35 38 30 0D 0A <=.5 THEN 1580..
00DE20: 31 35 37 34 20 50 52 49 4E 54 20 22 59 4F 55 20 1574 PRINT "YOU
00DE30: 48 41 56 45 20 42 45 45 4E 20 54 48 52 4F 57 4E HAVE BEEN THROWN
00DE40: 20 4F 55 54 20 4F 46 20 4F 46 46 49 43 45 20 41 OUT OF OFFICE A
00DE50: 4E 44 20 41 52 45 20 4E 4F 57 22 0D 0A 31 35 37 ND ARE NOW"..157
00DE60: 36 20 50 52 49 4E 54 20 22 52 45 53 49 44 49 4E 6 PRINT "RESIDIN
00DE70: 47 20 49 4E 20 50 52 49 53 4F 4E 2E 22 0D 0A 31 G IN PRISON."..1
00DE80: 35 37 38 20 47 4F 54 4F 20 31 35 39 30 0D 0A 31 578 GOTO 1590..1
00DE90: 35 38 30 20 50 52 49 4E 54 20 22 59 4F 55 20 48 580 PRINT "YOU H
00DEA0: 41 56 45 20 42 45 45 4E 20 41 53 53 41 53 53 49 AVE BEEN ASSASSI
00DEB0: 4E 41 54 45 44 2E 22 0D 0A 31 35 39 30 20 50 52 NATED."..1590 PR
00DEC0: 49 4E 54 0D 0A 31 35 39 32 20 50 52 49 4E 54 0D INT..1592 PRINT.
00DED0: 0A 31 35 39 36 20 53 54 4F 50 0D 0A 31 36 30 30 .1596 STOP..1600
00DEE0: 20 50 52 49 4E 54 0D 0A 31 36 30 32 20 50 52 49 PRINT..1602 PRI
00DEF0: 4E 54 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 42 NT..1610 PRINT B
00DF00: 31 31 38 35 0D 0A 31 31 38 30 20 50 52 49 4E 54 1185..1180 PRINT
00DF10: 20 22 20 20 20 59 4F 55 20 57 45 52 45 20 46 4F " YOU WERE FO
00DF20: 52 43 45 44 20 54 4F 20 53 50 45 4E 44 20 22 3B RCED TO SPEND ";
00DF30: 49 4E 54 28 46 31 2A 39 29 3B 22 52 41 4C 4C 4F INT(F1*9);"RALLO
00DF40: 44 53 20 4F 4E 20 22 3B 0D 0A 31 31 38 31 20 50 DS ON ";..1181 P
00DF50: 52 49 4E 54 20 22 46 55 4E 45 52 41 4C 20 45 58 RINT "FUNERAL EX
00DF60: 50 45 4E 53 45 53 2E 22 0D 0A 31 31 38 32 20 42 PENSES."..1182 B
00DF70: 35 3D 46 31 0D 0A 31 31 38 33 20 41 3D 49 4E 54 5=F1..1183 A=INT
00DF80: 28 41 2D 28 46 31 2A 39 29 29 0D 0A 31 31 38 35 (A-(F1*9))..1185
00DF90: 20 49 46 20 41 3E 3D 30 20 54 48 45 4E 20 31 31 IF A>=0 THEN 11
00DFA0: 39 34 0D 0A 31 31 38 37 20 50 52 49 4E 54 20 22 94..1187 PRINT "
00DFB0: 20 20 20 49 4E 53 55 46 46 49 43 49 45 4E 54 20 INSUFFICIENT
00DFC0: 52 45 53 45 52 56 45 53 20 54 4F 20 43 4F 56 45 RESERVES TO COVE
00DFD0: 52 20 43 4F 53 54 20 2D 20 4C 41 4E 44 20 57 41 R COST - LAND WA
00DFE0: 53 20 53 4F 4C 44 22 0D 0A 31 31 38 39 20 44 3D S SOLD"..1189 D=
00DFF0: 49 4E 54 28 44 2B 28 41 2F 57 29 29 0D 0A 31 31 INT(D+(A/W))..11
00E000: 39 30 20 41 3D 30 0D 0A 31 31 39 34 20 42 3D 49 90 A=0..1194 B=I
00E010: 4E 54 28 42 2D 42 35 29 0D 0A 31 32 30 30 20 49 NT(B-B5)..1200 I
00E020: 46 20 48 3D 30 20 54 48 45 4E 20 31 32 35 30 0D F H=0 THEN 1250.
00E030: 0A 31 32 32 30 20 43 31 3D 49 4E 54 28 48 2B 28 .1220 C1=INT(H+(
00E040: 52 4E 44 28 31 29 2A 31 30 29 2D 28 52 4E 44 28 RND(1)*10)-(RND(
00E050: 31 29 2A 32 30 29 29 0D 0A 31 32 32 34 20 49 46 1)*20))..1224 IF
00E060: 20 43 3E 30 20 54 48 45 4E 20 31 32 33 30 0D 0A C>0 THEN 1230..
00E070: 31 32 32 36 20 43 31 3D 43 31 2B 32 30 0D 0A 31 1226 C1=C1+20..1
00E080: 32 33 30 20 50 52 49 4E 54 20 43 31 3B 22 57 4F 230 PRINT C1;"WO
00E090: 52 4B 45 52 53 20 43 41 4D 45 20 54 4F 20 54 48 RKERS CAME TO TH
00E0A0: 45 20 43 4F 55 4E 54 52 59 20 41 4E 44 22 3B 0D E COUNTRY AND";.
00E0B0: 0A 31 32 35 30 20 50 31 3D 49 4E 54 28 28 28 49 .1250 P1=INT(((I
00E0C0: 2F 31 30 30 2D 42 29 2F 31 30 29 2B 28 4B 2F 32 /100-B)/10)+(K/2
00E0D0: 35 29 2D 28 28 32 30 30 30 2D 44 29 2F 35 30 29 5)-((2000-D)/50)
00E0E0: 2D 28 46 31 2F 32 29 29 0D 0A 31 32 35 35 20 50 -(F1/2))..1255 P
00E0F0: 52 49 4E 54 20 41 42 53 28 50 31 29 3B 22 43 4F RINT ABS(P1);"CO
00E100: 35 3B 22 43 4F 55 4E 54 52 59 4D 45 4E 20 44 49 5;"COUNTRYMEN DI
00E110: 45 44 20 49 4E 20 4F 4E 45 20 59 45 41 52 21 21 ED IN ONE YEAR!!
00E120: 21 21 21 22 0D 0A 31 36 31 35 20 50 52 49 4E 54 !!!"..1615 PRINT
00E130: 20 22 44 55 45 20 54 4F 20 54 48 49 53 20 45 58 "DUE TO THIS EX
00E140: 54 52 45 4D 45 20 4D 49 53 4D 41 4E 41 47 45 4D TREME MISMANAGEM
00E150: 45 4E 54 2C 20 59 4F 55 20 48 41 56 45 20 4E 4F ENT, YOU HAVE NO
00E160: 54 20 4F 4E 4C 59 22 0D 0A 31 36 32 30 20 50 52 T ONLY"..1620 PR
00E170: 49 4E 54 20 22 42 45 45 4E 20 49 4D 50 45 41 43 INT "BEEN IMPEAC
00E180: 48 45 44 20 41 4E 44 20 54 48 52 4F 57 4E 20 4F HED AND THROWN O
00E190: 55 54 20 4F 46 20 4F 46 46 49 43 45 2C 20 42 55 UT OF OFFICE, BU
00E1A0: 54 20 59 4F 55 22 0D 0A 31 36 32 32 20 4D 36 3D T YOU"..1622 M6=
00E1B0: 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 29 0D 0A INT(RND(1)*10)..
00E1C0: 31 36 32 35 20 49 46 20 4D 36 3C 3D 33 20 54 48 1625 IF M6<=3 TH
00E1D0: 45 4E 20 31 36 37 30 0D 0A 31 36 33 30 20 49 46 EN 1670..1630 IF
00E1E0: 20 4D 36 3C 3D 36 20 54 48 45 4E 20 31 36 38 30 M6<=6 THEN 1680
00E1F0: 0D 0A 31 36 33 35 20 49 46 20 4D 36 3C 3D 31 30 ..1635 IF M6<=10
00E200: 20 54 48 45 4E 20 31 36 39 30 0D 0A 31 36 37 30 THEN 1690..1670
00E210: 20 50 52 49 4E 54 20 22 41 4C 53 4F 20 48 41 44 PRINT "ALSO HAD
00E220: 20 59 4F 55 52 20 4C 45 46 54 20 45 59 45 20 47 YOUR LEFT EYE G
00E230: 4F 55 47 45 44 20 4F 55 54 21 22 0D 0A 31 36 37 OUGED OUT!"..167
00E240: 32 20 47 4F 54 4F 20 31 35 39 30 0D 0A 31 36 38 2 GOTO 1590..168
00E250: 30 20 50 52 49 4E 54 20 22 48 41 56 45 20 41 4C 0 PRINT "HAVE AL
00E260: 53 4F 20 47 41 49 4E 45 44 20 41 20 56 45 52 59 SO GAINED A VERY
00E270: 20 42 41 44 20 52 45 50 55 54 41 54 49 4F 4E 2E BAD REPUTATION.
00E280: 22 0D 0A 31 36 38 32 20 47 4F 54 4F 20 31 35 39 "..1682 GOTO 159
00E290: 30 0D 0A 31 36 39 30 20 50 52 49 4E 54 20 22 48 0..1690 PRINT "H
00E2A0: 41 56 45 20 41 4C 53 4F 20 42 45 45 4E 20 44 45 AVE ALSO BEEN DE
00E2B0: 43 4C 41 52 45 44 20 4E 41 54 49 4F 4E 41 4C 20 CLARED NATIONAL
00E2C0: 46 49 4E 4B 2E 22 0D 0A 31 36 39 32 20 47 4F 54 FINK."..1692 GOT
00E2D0: 4F 20 31 35 39 30 0D 0A 31 37 30 30 20 50 52 49 O 1590..1700 PRI
00E2E0: 4E 54 0D 0A 31 37 30 32 20 50 52 49 4E 54 0D 0A NT..1702 PRINT..
00E2F0: 31 37 31 30 20 50 52 49 4E 54 20 22 4F 56 45 52 1710 PRINT "OVER
00E300: 55 4E 54 52 59 4D 45 4E 20 22 3B 0D 0A 31 32 36 UNTRYMEN ";..126
00E310: 30 20 49 46 20 50 31 3C 30 20 54 48 45 4E 20 31 0 IF P1<0 THEN 1
00E320: 32 37 35 0D 0A 31 32 36 35 20 50 52 49 4E 54 20 275..1265 PRINT
00E330: 22 43 41 4D 45 20 54 4F 22 3B 0D 0A 31 32 37 30 "CAME TO";..1270
00E340: 20 47 4F 54 4F 20 31 32 38 30 0D 0A 31 32 37 35 GOTO 1280..1275
00E350: 20 50 52 49 4E 54 20 22 4C 45 46 54 22 3B 0D 0A PRINT "LEFT";..
00E360: 31 32 38 30 20 50 52 49 4E 54 20 22 20 54 48 45 1280 PRINT " THE
00E370: 20 49 53 4C 41 4E 44 2E 22 0D 0A 31 32 39 30 20 ISLAND."..1290
00E380: 42 3D 49 4E 54 28 42 2B 50 31 29 0D 0A 31 32 39 B=INT(B+P1)..129
00E390: 32 20 43 3D 49 4E 54 28 43 2B 43 31 29 0D 0A 31 2 C=INT(C+C1)..1
00E3A0: 33 30 35 20 55 32 3D 49 4E 54 28 28 28 32 30 30 305 U2=INT(((200
00E3B0: 30 2D 44 29 2A 28 28 52 4E 44 28 31 29 2B 31 2E 0-D)*((RND(1)+1.
00E3C0: 35 29 2F 32 29 29 29 0D 0A 31 33 31 30 20 49 46 5)/2)))..1310 IF
00E3D0: 20 43 3D 30 20 54 48 45 4E 20 31 33 32 34 0D 0A C=0 THEN 1324..
00E3E0: 31 33 32 30 20 50 52 49 4E 54 20 22 4F 46 20 22 1320 PRINT "OF "
00E3F0: 3B 49 4E 54 28 4A 29 3B 22 53 51 2E 20 4D 49 4C ;INT(J);"SQ. MIL
00E400: 45 53 20 50 4C 41 4E 54 45 44 2C 22 3B 0D 0A 31 ES PLANTED,";..1
00E410: 33 32 34 20 49 46 20 4A 3E 55 32 20 54 48 45 4E 324 IF J>U2 THEN
00E420: 20 31 33 33 30 0D 0A 31 33 32 36 20 55 32 3D 4A 1330..1326 U2=J
00E430: 0D 0A 31 33 33 30 20 50 52 49 4E 54 20 22 20 59 ..1330 PRINT " Y
00E440: 4F 55 20 48 41 52 56 45 53 54 45 44 20 22 3B 49 OU HARVESTED ";I
00E450: 4E 54 28 4A 2D 55 32 29 3B 22 53 51 2E 20 4D 49 NT(J-U2);"SQ. MI
00E460: 4C 45 53 20 4F 46 20 43 52 4F 50 53 2E 22 0D 0A LES OF CROPS."..
00E470: 31 33 34 30 20 49 46 20 55 32 3D 30 20 54 48 45 1340 IF U2=0 THE
00E480: 4E 20 31 33 37 30 0D 0A 31 33 34 34 20 49 46 20 N 1370..1344 IF
00E490: 54 31 3E 3D 32 20 54 48 45 4E 20 31 33 37 30 0D T1>=2 THEN 1370.
00E4A0: 0A 31 33 35 30 20 50 52 49 4E 54 20 22 20 20 20 .1350 PRINT "
00E4B0: 28 44 55 45 20 54 4F 20 22 3B 0D 0A 31 33 35 35 (DUE TO ";..1355
00E4C0: 20 49 46 20 54 31 3D 30 20 54 48 45 4E 20 31 33 IF T1=0 THEN 13
00E4D0: 36 35 0D 0A 31 33 36 30 20 50 52 49 4E 54 20 22 65..1360 PRINT "
00E4E0: 49 4E 43 52 45 41 53 45 44 20 22 3B 0D 0A 31 33 INCREASED ";..13
00E4F0: 36 35 20 50 52 49 4E 54 20 22 41 49 52 20 41 4E 65 PRINT "AIR AN
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 00 00 02 09 52 E5 0C 00 C1 02 00 00 00 02 ......R.........
00E520: 0C 00 C6 02 00 00 00 02 0C 00 C2 02 00 00 00 02 ................
00E530: 0C 00 C7 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E540: 0C 00 C8 02 00 00 00 02 0C 00 C4 02 00 00 00 02 ................
00E550: 0C 00 C9 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 20 4F 4E 45 20 54 48 49 52 44 20 4F 46 20 54 48 ONE THIRD OF TH
00E610: 45 20 50 4F 50 55 4C 54 41 54 49 4F 4E 20 48 41 E POPULTATION HA
00E620: 53 20 44 49 45 44 20 53 49 4E 43 45 20 59 4F 55 S DIED SINCE YOU
00E630: 22 0D 0A 31 37 31 35 20 50 52 49 4E 54 20 22 57 "..1715 PRINT "W
00E640: 45 52 45 20 45 4C 45 43 54 45 44 20 54 4F 20 4F ERE ELECTED TO O
00E650: 46 46 49 43 45 2E 20 54 48 45 20 50 45 4F 50 4C FFICE. THE PEOPL
00E660: 45 20 28 52 45 4D 41 49 4E 49 4E 47 29 22 0D 0A E (REMAINING)"..
00E670: 31 37 32 30 20 50 52 49 4E 54 20 22 48 41 54 45 1720 PRINT "HATE
00E680: 20 59 4F 55 52 20 47 55 54 53 2E 22 0D 0A 31 37 YOUR GUTS."..17
00E690: 33 30 20 47 4F 54 4F 20 31 35 37 30 0D 0A 31 38 30 GOTO 1570..18
00E6A0: 30 30 20 49 46 20 42 35 2D 46 31 3C 32 20 54 48 00 IF B5-F1<2 TH
00E6B0: 45 4E 20 31 35 31 35 0D 0A 31 38 30 37 20 50 52 EN 1515..1807 PR
00E6C0: 49 4E 54 0D 0A 31 38 31 35 20 50 52 49 4E 54 20 INT..1815 PRINT
00E6D0: 22 4D 4F 4E 45 59 20 57 41 53 20 4C 45 46 54 20 "MONEY WAS LEFT
00E6E0: 4F 56 45 52 20 49 4E 20 54 48 45 20 54 52 45 41 OVER IN THE TREA
00E6F0: 53 55 52 59 20 57 48 49 43 48 20 59 4F 55 20 44 SURY WHICH YOU D
00E700: 49 44 22 0D 0A 31 38 32 30 20 50 52 49 4E 54 20 ID"..1820 PRINT
00E710: 22 4E 4F 54 20 53 50 45 4E 44 2E 20 41 53 20 41 "NOT SPEND. AS A
00E720: 20 52 45 53 55 4C 54 2C 20 53 4F 4D 45 20 4F 46 RESULT, SOME OF
00E730: 20 59 4F 55 52 20 43 4F 55 4E 54 52 59 4D 45 4E YOUR COUNTRYMEN
00E740: 20 44 49 45 44 22 0D 0A 31 38 32 35 20 50 52 49 DIED"..1825 PRI
00E750: 4E 54 20 22 4F 46 20 53 54 41 52 56 41 54 49 4F NT "OF STARVATIO
00E760: 4E 2E 20 54 48 45 20 50 55 42 4C 49 43 20 49 53 N. THE PUBLIC IS
00E770: 20 45 4E 52 41 47 45 44 20 41 4E 44 20 59 4F 55 ENRAGED AND YOU
00E780: 20 48 41 56 45 22 0D 0A 31 38 33 30 20 50 52 49 HAVE"..1830 PRI
00E790: 4E 54 20 22 42 45 45 4E 20 46 4F 52 43 45 44 20 NT "BEEN FORCED
00E7A0: 54 4F 20 45 49 54 48 45 52 20 52 45 53 49 47 4E TO EITHER RESIGN
00E7B0: 20 4F 52 20 43 4F 4D 4D 49 54 20 53 55 49 43 49 OR COMMIT SUICI
00E7C0: 44 45 2E 22 0D 0A 31 38 33 35 20 50 52 49 4E 54 DE."..1835 PRINT
00E7D0: 20 22 54 48 45 20 43 48 4F 49 43 45 20 49 53 20 "THE CHOICE IS
00E7E0: 59 4F 55 52 53 2E 22 0D 0A 31 38 34 30 20 50 52 YOURS."..1840 PR
00E7F0: 49 4E 54 20 22 49 46 20 59 4F 55 20 43 48 4F 4F INT "IF YOU CHOO
00E800: 31 33 35 20 49 46 20 5A 24 3D 22 59 45 53 22 20 135 IF Z$="YES"
00E810: 54 48 45 4E 20 31 31 35 30 0D 0A 31 34 30 20 50 THEN 1150..140 P
00E820: 52 49 4E 54 0D 0A 31 34 35 20 50 52 49 4E 54 20 RINT..145 PRINT
00E830: 22 4C 55 4E 41 52 20 4C 41 4E 44 49 4E 47 20 53 "LUNAR LANDING S
00E840: 49 4D 55 4C 41 54 49 4F 4E 22 0D 0A 31 35 30 20 IMULATION"..150
00E850: 50 52 49 4E 54 0D 0A 31 35 35 20 50 52 49 4E 54 PRINT..155 PRINT
00E860: 20 22 48 41 56 45 20 59 4F 55 20 46 4C 4F 57 4E "HAVE YOU FLOWN
00E870: 20 41 4E 20 41 50 4F 4C 4C 4F 2F 4C 45 4D 20 4D AN APOLLO/LEM M
00E880: 49 53 53 49 4F 4E 20 42 45 46 4F 52 45 22 3B 0D ISSION BEFORE";.
00E890: 0A 31 36 30 20 50 52 49 4E 54 20 22 20 28 59 45 .160 PRINT " (YE
00E8A0: 53 20 4F 52 20 4E 4F 29 22 3B 0D 0A 31 36 35 20 S OR NO)";..165
00E8B0: 49 4E 50 55 54 20 51 24 0D 0A 31 37 30 20 49 46 INPUT Q$..170 IF
00E8C0: 20 51 24 3D 22 59 45 53 22 20 54 48 45 4E 20 31 Q$="YES" THEN 1
00E8D0: 39 30 0D 0A 31 37 35 20 49 46 20 51 24 3D 22 4E 90..175 IF Q$="N
00E8E0: 4F 22 20 54 48 45 4E 20 32 30 35 0D 0A 31 38 30 O" THEN 205..180
00E8F0: 20 50 52 49 4E 54 20 22 4A 55 53 54 20 41 4E 53 PRINT "JUST ANS
00E900: 57 45 52 20 54 48 45 20 51 55 45 53 54 49 4F 4E WER THE QUESTION
00E910: 2C 20 50 4C 45 41 53 45 2C 20 22 3B 0D 0A 31 38 , PLEASE, ";..18
00E920: 35 20 47 4F 54 4F 20 31 36 30 0D 0A 31 39 30 20 5 GOTO 160..190
00E930: 50 52 49 4E 54 0D 0A 31 39 35 20 50 52 49 4E 54 PRINT..195 PRINT
00E940: 20 22 49 4E 50 55 54 20 4D 45 41 53 55 52 45 4D "INPUT MEASUREM
00E950: 45 4E 54 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 ENT OPTION NUMBE
00E960: 52 22 3B 0D 0A 32 30 30 20 47 4F 54 4F 20 32 32 R";..200 GOTO 22
00E970: 35 0D 0A 32 30 35 20 50 52 49 4E 54 0D 0A 32 31 5..205 PRINT..21
00E980: 30 20 50 52 49 4E 54 20 22 57 48 49 43 48 20 53 0 PRINT "WHICH S
00E990: 59 53 54 45 4D 20 4F 46 20 4D 45 41 53 55 52 45 YSTEM OF MEASURE
00E9A0: 4D 45 4E 54 20 44 4F 20 59 4F 55 20 50 52 45 46 MENT DO YOU PREF
00E9B0: 45 52 3F 22 0D 0A 32 31 35 20 50 52 49 4E 54 20 ER?"..215 PRINT
00E9C0: 22 20 31 3D 4D 45 54 52 49 43 20 20 20 20 20 30 " 1=METRIC 0
00E9D0: 3D 45 4E 47 4C 49 53 48 22 0D 0A 32 32 30 20 50 =ENGLISH"..220 P
00E9E0: 52 49 4E 54 20 22 45 4E 54 45 52 20 54 48 45 20 RINT "ENTER THE
00E9F0: 41 50 50 52 4F 50 52 49 41 54 45 20 4E 55 4D 42 APPROPRIATE NUMB
00EA00: 53 45 20 54 48 45 20 4C 41 54 54 45 52 2C 20 50 SE THE LATTER, P
00EA10: 4C 45 41 53 45 20 54 55 52 4E 20 4F 46 46 20 59 LEASE TURN OFF Y
00EA20: 4F 55 52 20 43 4F 4D 50 55 54 45 52 22 0D 0A 31 OUR COMPUTER"..1
00EA30: 38 34 35 20 50 52 49 4E 54 20 22 42 45 46 4F 52 845 PRINT "BEFOR
00EA40: 45 20 50 52 4F 43 45 45 44 49 4E 47 2E 22 0D 0A E PROCEEDING."..
00EA50: 31 38 35 30 20 47 4F 54 4F 20 31 35 39 30 0D 0A 1850 GOTO 1590..
00EA60: 31 39 30 30 20 50 52 49 4E 54 0D 0A 31 39 30 32 1900 PRINT..1902
00EA70: 20 50 52 49 4E 54 0D 0A 31 39 32 30 20 50 52 49 PRINT..1920 PRI
00EA80: 4E 54 20 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 NT "CONGRATULATI
00EA90: 4F 4E 53 21 21 21 21 21 21 21 21 21 21 21 21 21 ONS!!!!!!!!!!!!!
00EAA0: 21 21 21 21 21 22 0D 0A 31 39 32 35 20 50 52 49 !!!!!"..1925 PRI
00EAB0: 4E 54 20 22 59 4F 55 20 48 41 56 45 20 53 55 43 NT "YOU HAVE SUC
00EAC0: 43 45 53 46 55 4C 4C 59 20 43 4F 4D 50 4C 45 54 CESFULLY COMPLET
00EAD0: 45 44 20 59 4F 55 52 22 3B 4E 35 3B 22 59 45 41 ED YOUR";N5;"YEA
00EAE0: 52 20 54 45 52 4D 22 0D 0A 31 39 33 30 20 50 52 R TERM"..1930 PR
00EAF0: 49 4E 54 20 22 4F 46 20 4F 46 46 49 43 45 2E 20 INT "OF OFFICE.
00EB00: 59 4F 55 20 57 45 52 45 2C 20 4F 46 20 43 4F 55 YOU WERE, OF COU
00EB10: 52 53 45 2C 20 45 58 54 52 45 4D 45 4C 59 20 4C RSE, EXTREMELY L
00EB20: 55 43 4B 59 2C 20 42 55 54 22 0D 0A 31 39 33 35 UCKY, BUT"..1935
00EB30: 20 50 52 49 4E 54 20 22 4E 45 56 45 52 54 48 45 PRINT "NEVERTHE
00EB40: 4C 45 53 53 2C 20 49 54 27 53 20 51 55 49 54 45 LESS, IT'S QUITE
00EB50: 20 41 4E 20 41 43 48 49 45 56 45 4D 45 4E 54 2E AN ACHIEVEMENT.
00EB60: 20 47 4F 4F 44 42 59 45 20 41 4E 44 20 47 4F 4F GOODBYE AND GOO
00EB70: 44 22 0D 0A 31 39 34 30 20 50 52 49 4E 54 20 22 D"..1940 PRINT "
00EB80: 4C 55 43 4B 20 2D 20 59 4F 55 27 4C 4C 20 50 52 LUCK - YOU'LL PR
00EB90: 4F 42 41 42 4C 59 20 4E 45 45 44 20 49 54 20 49 OBABLY NEED IT I
00EBA0: 46 20 59 4F 55 27 52 45 20 54 48 45 20 54 59 50 F YOU'RE THE TYP
00EBB0: 45 20 54 48 41 54 22 0D 0A 31 39 34 35 20 50 52 E THAT"..1945 PR
00EBC0: 49 4E 54 20 22 50 4C 41 59 53 20 54 48 49 53 20 INT "PLAYS THIS
00EBD0: 47 41 4D 45 2E 22 0D 0A 31 39 35 30 20 47 4F 54 GAME."..1950 GOT
00EBE0: 4F 20 31 35 39 30 0D 0A 31 39 36 30 20 50 52 49 O 1590..1960 PRI
00EBF0: 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 59 45 41 NT "HOW MANY YEA
00EC00: 45 52 22 3B 0D 0A 32 32 35 20 49 4E 50 55 54 20 ER";..225 INPUT
00EC10: 4B 0D 0A 32 33 30 20 50 52 49 4E 54 0D 0A 32 33 K..230 PRINT..23
00EC20: 35 20 49 46 20 4B 3D 30 20 54 48 45 4E 20 32 38 5 IF K=0 THEN 28
00EC30: 30 0D 0A 32 34 30 20 49 46 20 4B 3D 31 20 54 48 0..240 IF K=1 TH
00EC40: 45 4E 20 32 35 30 0D 0A 32 34 35 20 47 4F 54 4F EN 250..245 GOTO
00EC50: 20 32 32 30 0D 0A 32 35 30 20 5A 3D 31 38 35 32 220..250 Z=1852
00EC60: 2E 38 0D 0A 32 35 35 20 4D 24 3D 22 4D 45 54 45 .8..255 M$="METE
00EC70: 52 53 22 0D 0A 32 36 30 20 47 33 3D 33 2E 36 0D RS"..260 G3=3.6.
00EC80: 0A 32 36 35 20 4E 24 3D 22 20 4B 49 4C 4F 4D 45 .265 N$=" KILOME
00EC90: 54 45 52 53 22 0D 0A 32 37 30 20 47 35 3D 31 30 TERS"..270 G5=10
00ECA0: 30 30 0D 0A 32 37 35 20 47 4F 54 4F 20 33 30 35 00..275 GOTO 305
00ECB0: 0D 0A 32 38 30 20 5A 3D 36 30 38 30 0D 0A 32 38 ..280 Z=6080..28
00ECC0: 35 20 4D 24 3D 22 46 45 45 54 22 0D 0A 32 39 30 5 M$="FEET"..290
00ECD0: 20 47 33 3D 2E 35 39 32 0D 0A 32 39 35 20 4E 24 G3=.592..295 N$
00ECE0: 3D 22 4E 2E 4D 49 4C 45 53 22 0D 0A 33 30 30 20 ="N.MILES"..300
00ECF0: 47 35 3D 5A 0D 0A 33 30 35 20 49 46 20 42 31 3D G5=Z..305 IF B1=
00ED00: 33 20 54 48 45 4E 20 36 37 30 0D 0A 33 31 30 20 3 THEN 670..310
00ED10: 49 46 20 51 24 3D 22 59 45 53 22 20 54 48 45 4E IF Q$="YES" THEN
00ED20: 20 34 38 35 0D 0A 33 31 35 20 50 52 49 4E 54 0D 485..315 PRINT.
00ED30: 0A 33 32 30 20 50 52 49 4E 54 20 22 20 20 59 4F .320 PRINT " YO
00ED40: 55 20 41 52 45 20 4F 4E 20 41 20 4C 55 4E 41 52 U ARE ON A LUNAR
00ED50: 20 4C 41 4E 44 49 4E 47 20 4D 49 53 53 49 4F 4E LANDING MISSION
00ED60: 2E 20 20 41 53 20 54 48 45 20 50 49 4C 4F 54 20 . AS THE PILOT
00ED70: 4F 46 22 0D 0A 33 32 35 20 50 52 49 4E 54 20 22 OF"..325 PRINT "
00ED80: 54 48 45 20 4C 55 4E 41 52 20 45 58 43 55 52 53 THE LUNAR EXCURS
00ED90: 49 4F 4E 20 4D 4F 44 55 4C 45 2C 20 59 4F 55 20 ION MODULE, YOU
00EDA0: 57 49 4C 4C 20 42 45 20 45 58 50 45 43 54 45 44 WILL BE EXPECTED
00EDB0: 20 54 4F 22 0D 0A 33 33 30 20 50 52 49 4E 54 20 TO"..330 PRINT
00EDC0: 22 47 49 56 45 20 43 45 52 54 41 49 4E 20 43 4F "GIVE CERTAIN CO
00EDD0: 4D 4D 41 4E 44 53 20 54 4F 20 54 48 45 20 4D 4F MMANDS TO THE MO
00EDE0: 44 55 4C 45 20 4E 41 56 49 47 41 54 49 4F 4E 20 DULE NAVIGATION
00EDF0: 53 59 53 54 45 4D 2E 22 0D 0A 33 33 35 20 50 52 SYSTEM."..335 PR
00EE00: 52 53 20 48 41 44 20 59 4F 55 20 42 45 45 4E 20 RS HAD YOU BEEN
00EE10: 49 4E 20 4F 46 46 49 43 45 20 57 48 45 4E 20 49 IN OFFICE WHEN I
00EE20: 4E 54 45 52 52 55 50 54 45 44 22 3B 0D 0A 31 39 NTERRUPTED";..19
00EE30: 36 31 20 49 4E 50 55 54 20 58 35 0D 0A 31 39 36 61 INPUT X5..196
00EE40: 32 20 49 46 20 58 35 3C 30 20 54 48 45 4E 20 31 2 IF X5<0 THEN 1
00EE50: 35 39 30 0D 0A 31 39 36 33 20 49 46 20 58 35 3C 590..1963 IF X5<
00EE60: 38 20 54 48 45 4E 20 31 39 36 39 0D 0A 31 39 36 8 THEN 1969..196
00EE70: 35 20 50 52 49 4E 54 20 22 20 20 20 43 4F 4D 45 5 PRINT " COME
00EE80: 20 4F 4E 2C 20 59 4F 55 52 20 54 45 52 4D 20 49 ON, YOUR TERM I
00EE90: 4E 20 4F 46 46 49 43 45 20 49 53 20 4F 4E 4C 59 N OFFICE IS ONLY
00EEA0: 22 3B 4E 35 3B 22 59 45 41 52 53 2E 22 0D 0A 31 ";N5;"YEARS."..1
00EEB0: 39 36 37 20 47 4F 54 4F 20 31 39 36 30 0D 0A 31 967 GOTO 1960..1
00EEC0: 39 36 39 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 969 PRINT "HOW M
00EED0: 55 43 48 20 44 49 44 20 59 4F 55 20 48 41 56 45 UCH DID YOU HAVE
00EEE0: 20 49 4E 20 54 48 45 20 54 52 45 41 53 55 52 59 IN THE TREASURY
00EEF0: 22 3B 0D 0A 31 39 37 30 20 49 4E 50 55 54 20 41 ";..1970 INPUT A
00EF00: 0D 0A 31 39 37 31 20 49 46 20 41 3C 30 20 54 48 ..1971 IF A<0 TH
00EF10: 45 4E 20 31 35 39 30 0D 0A 31 39 37 35 20 50 52 EN 1590..1975 PR
00EF20: 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 43 4F INT "HOW MANY CO
00EF30: 55 4E 54 52 59 4D 45 4E 22 3B 20 20 20 20 0D 0A UNTRYMEN"; ..
00EF40: 31 39 37 36 20 49 4E 50 55 54 20 42 0D 0A 31 39 1976 INPUT B..19
00EF50: 37 37 20 49 46 20 42 3C 30 20 54 48 45 4E 20 31 77 IF B<0 THEN 1
00EF60: 35 39 30 0D 0A 31 39 38 30 20 50 52 49 4E 54 20 590..1980 PRINT
00EF70: 22 48 4F 57 20 4D 41 4E 59 20 57 4F 52 4B 45 52 "HOW MANY WORKER
00EF80: 53 22 3B 0D 0A 31 39 38 31 20 49 4E 50 55 54 20 S";..1981 INPUT
00EF90: 43 0D 0A 31 39 38 32 20 49 46 20 43 3C 30 20 54 C..1982 IF C<0 T
00EFA0: 48 45 4E 20 31 35 39 30 0D 0A 31 39 39 30 20 50 HEN 1590..1990 P
00EFB0: 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 53 RINT "HOW MANY S
00EFC0: 51 55 41 52 45 20 4D 49 4C 45 53 20 4F 46 20 4C QUARE MILES OF L
00EFD0: 41 4E 44 22 3B 0D 0A 31 39 39 31 20 49 4E 50 55 AND";..1991 INPU
00EFE0: 54 20 44 0D 0A 31 39 39 32 20 49 46 20 44 3C 30 T D..1992 IF D<0
00EFF0: 20 54 48 45 4E 20 31 35 39 30 0D 0A 31 39 39 33 THEN 1590..1993
00F000: 49 4E 54 20 22 54 48 45 20 4F 4E 2D 42 4F 41 52 INT "THE ON-BOAR
00F010: 44 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 D COMPUTER WILL
00F020: 47 49 56 45 20 41 20 52 55 4E 4E 49 4E 47 20 41 GIVE A RUNNING A
00F030: 43 43 4F 55 4E 54 22 0D 0A 33 34 30 20 50 52 49 CCOUNT"..340 PRI
00F040: 4E 54 20 22 4F 46 20 49 4E 46 4F 52 4D 41 54 49 NT "OF INFORMATI
00F050: 4F 4E 20 4E 45 45 44 45 44 20 54 4F 20 4E 41 56 ON NEEDED TO NAV
00F060: 49 47 41 54 45 20 54 48 45 20 53 48 49 50 2E 22 IGATE THE SHIP."
00F070: 0D 0A 33 34 35 20 50 52 49 4E 54 0D 0A 33 35 30 ..345 PRINT..350
00F080: 20 50 52 49 4E 54 0D 0A 33 35 35 20 50 52 49 4E PRINT..355 PRIN
00F090: 54 20 22 54 48 45 20 41 54 54 49 54 55 44 45 20 T "THE ATTITUDE
00F0A0: 41 4E 47 4C 45 20 43 41 4C 4C 45 44 20 46 4F 52 ANGLE CALLED FOR
00F0B0: 20 49 53 20 44 45 53 43 52 49 42 45 44 20 41 53 IS DESCRIBED AS
00F0C0: 20 46 4F 4C 4C 4F 57 53 2E 22 0D 0A 33 36 30 20 FOLLOWS."..360
00F0D0: 50 52 49 4E 54 20 22 2B 20 4F 52 20 2D 31 38 30 PRINT "+ OR -180
00F0E0: 20 44 45 47 52 45 45 53 20 49 53 20 44 49 52 45 DEGREES IS DIRE
00F0F0: 43 54 4C 59 20 41 57 41 59 20 46 52 4F 4D 20 54 CTLY AWAY FROM T
00F100: 48 45 20 4D 4F 4F 4E 22 0D 0A 33 36 35 20 50 52 HE MOON"..365 PR
00F110: 49 4E 54 20 22 2D 39 30 20 44 45 47 52 45 45 53 INT "-90 DEGREES
00F120: 20 49 53 20 4F 4E 20 41 20 54 41 4E 47 45 4E 54 IS ON A TANGENT
00F130: 20 49 4E 20 54 48 45 20 44 49 52 45 43 54 49 4F IN THE DIRECTIO
00F140: 4E 20 4F 46 20 4F 52 42 49 54 22 0D 0A 33 37 30 N OF ORBIT"..370
00F150: 20 50 52 49 4E 54 20 22 2B 39 30 20 44 45 47 52 PRINT "+90 DEGR
00F160: 45 45 53 20 49 53 20 4F 4E 20 41 20 54 41 4E 47 EES IS ON A TANG
00F170: 45 4E 54 20 46 52 4F 4D 20 54 48 45 20 44 49 52 ENT FROM THE DIR
00F180: 45 43 54 49 4F 4E 20 4F 46 20 4F 52 42 49 54 22 ECTION OF ORBIT"
00F190: 0D 0A 33 37 35 20 50 52 49 4E 54 20 22 30 20 28 ..375 PRINT "0 (
00F1A0: 5A 45 52 4F 29 20 44 45 47 52 45 45 53 20 49 53 ZERO) DEGREES IS
00F1B0: 20 44 49 52 45 43 54 4C 59 20 54 4F 57 41 52 44 DIRECTLY TOWARD
00F1C0: 20 54 48 45 20 4D 4F 4F 4E 22 0D 0A 33 38 30 20 THE MOON"..380
00F1D0: 50 52 49 4E 54 0D 0A 33 38 35 20 50 52 49 4E 54 PRINT..385 PRINT
00F1E0: 20 54 41 42 28 33 30 29 3B 22 2D 31 38 30 7C 2B TAB(30);"-180|+
00F1F0: 31 38 30 22 0D 0A 33 39 30 20 50 52 49 4E 54 20 180"..390 PRINT
00F200: 20 49 46 20 44 3E 32 30 30 30 20 54 48 45 4E 20 IF D>2000 THEN
00F210: 31 39 39 36 0D 0A 31 39 39 34 20 49 46 20 44 3E 1996..1994 IF D>
00F220: 31 30 30 30 20 54 48 45 4E 20 31 30 30 0D 0A 31 1000 THEN 100..1
00F230: 39 39 36 20 50 52 49 4E 54 20 22 20 20 20 43 4F 996 PRINT " CO
00F240: 4D 45 20 4F 4E 2C 20 59 4F 55 20 53 54 41 52 54 ME ON, YOU START
00F250: 45 44 20 57 49 54 48 20 31 30 30 30 20 53 51 2E ED WITH 1000 SQ.
00F260: 20 4D 49 4C 45 53 20 4F 46 20 46 41 52 4D 20 4C MILES OF FARM L
00F270: 41 4E 44 22 0D 0A 31 39 39 37 20 50 52 49 4E 54 AND"..1997 PRINT
00F280: 20 22 20 20 20 41 4E 44 20 31 30 2C 30 30 30 20 " AND 10,000
00F290: 53 51 2E 20 4D 49 4C 45 53 20 4F 46 20 46 4F 52 SQ. MILES OF FOR
00F2A0: 45 53 54 20 4C 41 4E 44 2E 22 0D 0A 31 39 39 38 EST LAND."..1998
00F2B0: 20 47 4F 54 4F 20 31 39 39 30 0D 0A 32 30 30 30 GOTO 1990..2000
00F2C0: 20 58 35 3D 58 35 2B 31 0D 0A 32 30 32 30 20 42 X5=X5+1..2020 B
00F2D0: 35 3D 30 0D 0A 32 30 34 30 20 47 4F 54 4F 20 31 5=0..2040 GOTO 1
00F2E0: 30 30 0D 0A 32 30 34 36 20 45 4E 44 0D 0A 1A E5 00..2046 END....
00F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F400: 54 41 42 28 33 34 29 3B 22 5E 22 0D 0A 33 39 35 TAB(34);"^"..395
00F410: 20 50 52 49 4E 54 20 54 41 42 28 32 37 29 3B 22 PRINT TAB(27);"
00F420: 2D 39 30 20 3C 20 2D 2B 2D 20 3E 20 2B 39 30 22 -90 < -+- > +90"
00F430: 0D 0A 34 30 30 20 50 52 49 4E 54 20 54 41 42 28 ..400 PRINT TAB(
00F440: 33 34 29 3B 22 21 22 0D 0A 34 30 35 20 50 52 49 34);"!"..405 PRI
00F450: 4E 54 20 54 41 42 28 33 34 29 3B 22 30 22 0D 0A NT TAB(34);"0"..
00F460: 34 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 31 410 PRINT TAB(21
00F470: 29 3B 22 3C 3C 3C 3C 20 44 49 52 45 43 54 49 4F );"<<<< DIRECTIO
00F480: 4E 20 4F 46 20 4F 52 42 49 54 20 3C 3C 3C 3C 22 N OF ORBIT <<<<"
00F490: 0D 0A 34 31 35 20 50 52 49 4E 54 0D 0A 34 32 30 ..415 PRINT..420
00F4A0: 20 50 52 49 4E 54 20 54 41 42 28 32 30 29 3B 22 PRINT TAB(20);"
00F4B0: 2D 2D 2D 2D 2D 2D 20 53 55 52 46 41 43 45 20 4F ------ SURFACE O
00F4C0: 46 20 4D 4F 4F 4E 20 2D 2D 2D 2D 2D 2D 22 0D 0A F MOON ------"..
00F4D0: 34 32 35 20 50 52 49 4E 54 0D 0A 34 33 30 20 50 425 PRINT..430 P
00F4E0: 52 49 4E 54 0D 0A 34 33 35 20 50 52 49 4E 54 20 RINT..435 PRINT
00F4F0: 22 41 4C 4C 20 41 4E 47 4C 45 53 20 42 45 54 57 "ALL ANGLES BETW
00F500: 45 45 4E 20 2D 31 38 30 20 41 4E 44 20 2B 31 38 EEN -180 AND +18
00F510: 30 20 44 45 47 52 45 45 53 20 41 52 45 20 41 43 0 DEGREES ARE AC
00F520: 43 45 50 54 45 44 2E 22 0D 0A 34 34 30 20 50 52 CEPTED."..440 PR
00F530: 49 4E 54 0D 0A 34 34 35 20 50 52 49 4E 54 20 22 INT..445 PRINT "
00F540: 31 20 46 55 45 4C 20 55 4E 49 54 20 3D 20 31 20 1 FUEL UNIT = 1
00F550: 53 45 43 2E 20 41 54 20 4D 41 58 20 54 48 52 55 SEC. AT MAX THRU
00F560: 53 54 22 0D 0A 34 35 30 20 50 52 49 4E 54 20 22 ST"..450 PRINT "
00F570: 41 4E 59 20 44 49 53 43 52 45 50 41 4E 43 49 45 ANY DISCREPANCIE
00F580: 53 20 41 52 45 20 41 43 43 4F 55 4E 54 45 44 20 S ARE ACCOUNTED
00F590: 46 4F 52 20 49 4E 20 54 48 45 20 55 53 45 20 4F FOR IN THE USE O
00F5A0: 46 20 46 55 45 4C 22 0D 0A 34 35 35 20 50 52 49 F FUEL"..455 PRI
00F5B0: 4E 54 20 22 46 4F 52 20 41 4E 20 41 54 54 49 54 NT "FOR AN ATTIT
00F5C0: 55 44 45 20 43 48 41 4E 47 45 2E 22 0D 0A 34 36 UDE CHANGE."..46
00F5D0: 30 20 50 52 49 4E 54 20 22 41 56 41 49 4C 41 42 0 PRINT "AVAILAB
00F5E0: 4C 45 20 45 4E 47 49 4E 45 20 50 4F 57 45 52 3A LE ENGINE POWER:
00F5F0: 20 30 20 28 5A 45 52 4F 29 20 41 4E 44 20 41 4E 0 (ZERO) AND AN
00F600: 32 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 2 PRINT TAB(34);
00F610: 22 4C 45 4D 22 0D 0A 34 20 50 52 49 4E 54 20 54 "LEM"..4 PRINT T
00F620: 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 45 AB(15);"CREATIVE
00F630: 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 52 COMPUTING MORR
00F640: 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 53 ISTOWN, NEW JERS
00F650: 45 59 22 0D 0A 37 20 52 45 4D 20 52 4F 43 4B 54 EY"..7 REM ROCKT
00F660: 32 20 49 53 20 41 4E 20 49 4E 54 45 52 41 43 54 2 IS AN INTERACT
00F670: 49 56 45 20 47 41 4D 45 20 54 48 41 54 20 53 49 IVE GAME THAT SI
00F680: 4D 55 4C 41 54 45 53 20 41 20 4C 55 4E 41 52 0D MULATES A LUNAR.
00F690: 0A 38 20 52 45 4D 20 4C 41 4E 44 49 4E 47 20 49 .8 REM LANDING I
00F6A0: 53 20 53 49 4D 49 4C 41 52 20 54 4F 20 54 48 41 S SIMILAR TO THA
00F6B0: 54 20 4F 46 20 54 48 45 20 41 50 4F 4C 4C 4F 20 T OF THE APOLLO
00F6C0: 50 52 4F 47 52 41 4D 2E 0D 0A 39 20 52 45 4D 20 PROGRAM...9 REM
00F6D0: 54 48 45 52 45 20 49 53 20 41 42 53 4F 4C 55 54 THERE IS ABSOLUT
00F6E0: 45 4C 59 20 4E 4F 20 43 48 41 4E 43 45 20 49 4E ELY NO CHANCE IN
00F6F0: 56 4F 4C 56 45 44 0D 0A 31 30 20 5A 24 3D 22 47 VOLVED..10 Z$="G
00F700: 4F 22 0D 0A 31 35 20 42 31 3D 31 0D 0A 32 30 20 O"..15 B1=1..20
00F710: 4D 3D 31 37 2E 39 35 0D 0A 32 35 20 46 31 3D 35 M=17.95..25 F1=5
00F720: 2E 32 35 0D 0A 33 30 20 4E 3D 37 2E 35 0D 0A 33 .25..30 N=7.5..3
00F730: 35 20 52 30 3D 39 32 36 0D 0A 34 30 20 56 30 3D 5 R0=926..40 V0=
00F740: 31 2E 32 39 0D 0A 34 35 20 54 3D 30 0D 0A 35 30 1.29..45 T=0..50
00F750: 20 48 30 3D 36 30 0D 0A 35 35 20 52 3D 52 30 2B H0=60..55 R=R0+
00F760: 48 30 0D 0A 36 30 20 41 3D 2D 33 2E 34 32 35 0D H0..60 A=-3.425.
00F770: 0A 36 35 20 52 31 3D 30 0D 0A 37 30 20 41 31 3D .65 R1=0..70 A1=
00F780: 38 2E 38 34 33 36 31 45 2D 30 34 0D 0A 37 35 20 8.84361E-04..75
00F790: 52 33 3D 30 0D 0A 38 30 20 41 33 3D 30 0D 0A 38 R3=0..80 A3=0..8
00F7A0: 35 20 4D 31 3D 37 2E 34 35 0D 0A 39 30 20 4D 30 5 M1=7.45..90 M0
00F7B0: 3D 4D 31 0D 0A 39 35 20 42 3D 37 35 30 0D 0A 31 =M1..95 B=750..1
00F7C0: 30 30 20 54 31 3D 30 0D 0A 31 30 35 20 46 3D 30 00 T1=0..105 F=0
00F7D0: 0D 0A 31 31 30 20 50 3D 30 0D 0A 31 31 35 20 4E ..110 P=0..115 N
00F7E0: 3D 31 0D 0A 31 32 30 20 4D 32 3D 30 0D 0A 31 32 =1..120 M2=0..12
00F7F0: 35 20 53 3D 30 0D 0A 31 33 30 20 43 3D 30 0D 0A 5 S=0..130 C=0..
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 00 00 02 09 52 E5 0D 00 C1 02 00 00 00 02 ......R.........
00F820: 0D 00 C6 02 00 00 00 02 0D 00 C2 02 00 00 00 02 ................
00F830: 0D 00 C7 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F840: 0D 00 C8 02 00 00 00 02 0D 00 C4 02 00 00 00 02 ................
00F850: 0D 00 C9 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 59 20 56 41 4C 55 45 20 42 45 54 57 45 45 4E 22 Y VALUE BETWEEN"
00F910: 0D 0A 34 36 35 20 50 52 49 4E 54 20 22 31 30 20 ..465 PRINT "10
00F920: 41 4E 44 20 31 30 30 20 50 45 52 43 45 4E 54 2E AND 100 PERCENT.
00F930: 22 0D 0A 34 37 30 20 50 52 49 4E 54 0D 0A 34 37 "..470 PRINT..47
00F940: 35 20 50 52 49 4E 54 22 4E 45 47 41 54 49 56 45 5 PRINT"NEGATIVE
00F950: 20 54 48 52 55 53 54 20 4F 52 20 54 49 4D 45 20 THRUST OR TIME
00F960: 49 53 20 50 52 4F 48 49 42 49 54 45 44 2E 22 0D IS PROHIBITED.".
00F970: 0A 34 38 30 20 50 52 49 4E 54 0D 0A 34 38 35 20 .480 PRINT..485
00F980: 50 52 49 4E 54 0D 0A 34 39 30 20 50 52 49 4E 54 PRINT..490 PRINT
00F990: 20 22 49 4E 50 55 54 3A 20 54 49 4D 45 20 49 4E "INPUT: TIME IN
00F9A0: 54 45 52 56 41 4C 20 49 4E 20 53 45 43 4F 4E 44 TERVAL IN SECOND
00F9B0: 53 20 2D 2D 2D 2D 2D 2D 20 28 54 29 22 0D 0A 34 S ------ (T)"..4
00F9C0: 39 35 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 95 PRINT "
00F9D0: 20 50 45 52 43 45 4E 54 41 47 45 20 4F 46 20 54 PERCENTAGE OF T
00F9E0: 48 52 55 53 54 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D HRUST ----------
00F9F0: 20 28 50 29 22 0D 0A 35 30 30 20 50 52 49 4E 54 (P)"..500 PRINT
00FA00: 20 22 20 20 20 20 20 20 20 41 54 54 49 54 55 44 " ATTITUD
00FA10: 45 20 41 4E 47 4C 45 20 49 4E 20 44 45 47 52 45 E ANGLE IN DEGRE
00FA20: 45 53 20 2D 2D 2D 2D 2D 20 28 41 29 22 0D 0A 35 ES ----- (A)"..5
00FA30: 30 35 20 50 52 49 4E 54 0D 0A 35 31 30 20 49 46 05 PRINT..510 IF
00FA40: 20 51 24 3D 22 59 45 53 22 20 54 48 45 4E 20 35 Q$="YES" THEN 5
00FA50: 33 35 0D 0A 35 31 35 20 50 52 49 4E 54 20 22 46 35..515 PRINT "F
00FA60: 4F 52 20 45 58 41 4D 50 4C 45 3A 22 0D 0A 35 32 OR EXAMPLE:"..52
00FA70: 30 20 50 52 49 4E 54 20 22 54 2C 50 2C 41 3F 20 0 PRINT "T,P,A?
00FA80: 31 30 2C 36 35 2C 2D 36 30 22 0D 0A 35 32 35 20 10,65,-60"..525
00FA90: 50 52 49 4E 54 20 22 54 4F 20 41 42 4F 52 54 20 PRINT "TO ABORT
00FAA0: 54 48 45 20 4D 49 53 53 49 4F 4E 20 41 54 20 41 THE MISSION AT A
00FAB0: 4E 59 20 54 49 4D 45 2C 20 45 4E 54 45 52 20 30 NY TIME, ENTER 0
00FAC0: 2C 30 2C 30 22 0D 0A 35 33 30 20 50 52 49 4E 54 ,0,0"..530 PRINT
00FAD0: 0D 0A 35 33 35 20 50 52 49 4E 54 20 22 4F 55 54 ..535 PRINT "OUT
00FAE0: 50 55 54 3A 20 54 4F 54 41 4C 20 54 49 4D 45 20 PUT: TOTAL TIME
00FAF0: 49 4E 20 45 4C 41 50 53 45 44 20 53 45 43 4F 4E IN ELAPSED SECON
00FB00: 39 30 20 47 4F 54 4F 20 35 37 35 0D 0A 39 39 35 90 GOTO 575..995
00FB10: 20 50 52 49 4E 54 0D 0A 31 30 30 30 20 50 52 49 PRINT..1000 PRI
00FB20: 4E 54 20 22 54 52 41 4E 51 55 49 4C 49 54 59 20 NT "TRANQUILITY
00FB30: 42 41 53 45 20 48 45 52 45 20 2D 2D 20 54 48 45 BASE HERE -- THE
00FB40: 20 45 41 47 4C 45 20 48 41 53 20 4C 41 4E 44 45 EAGLE HAS LANDE
00FB50: 44 2E 22 0D 0A 31 30 30 35 20 50 52 49 4E 54 20 D."..1005 PRINT
00FB60: 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 "CONGRATULATIONS
00FB70: 20 2D 2D 20 54 48 45 52 45 20 57 41 53 20 4E 4F -- THERE WAS NO
00FB80: 20 53 50 41 43 45 43 52 41 46 54 20 44 41 4D 41 SPACECRAFT DAMA
00FB90: 47 45 2E 22 0D 0A 31 30 31 30 20 50 52 49 4E 54 GE."..1010 PRINT
00FBA0: 20 22 59 4F 55 20 4D 41 59 20 4E 4F 57 20 50 52 "YOU MAY NOW PR
00FBB0: 4F 43 45 45 44 20 57 49 54 48 20 53 55 52 46 41 OCEED WITH SURFA
00FBC0: 43 45 20 45 58 50 4C 4F 52 41 54 49 4F 4E 2E 22 CE EXPLORATION."
00FBD0: 0D 0A 31 30 31 35 20 47 4F 54 4F 20 31 31 30 30 ..1015 GOTO 1100
00FBE0: 0D 0A 31 30 32 30 20 50 52 49 4E 54 0D 0A 31 30 ..1020 PRINT..10
00FBF0: 32 35 20 50 52 49 4E 54 20 22 43 52 41 53 48 20 25 PRINT "CRASH
00FC00: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
00FC10: 22 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 22 59 "..1030 PRINT "Y
00FC20: 4F 55 52 20 49 4D 50 41 43 54 20 43 52 45 41 54 OUR IMPACT CREAT
00FC30: 45 44 20 41 20 43 52 41 54 45 52 22 3B 41 42 53 ED A CRATER";ABS
00FC40: 28 48 29 3B 4D 24 3B 22 20 44 45 45 50 2E 22 0D (H);M$;" DEEP.".
00FC50: 0A 31 30 33 35 20 58 31 3D 53 51 52 28 44 31 2A .1035 X1=SQR(D1*
00FC60: 44 31 2B 48 31 2A 48 31 29 2A 47 33 0D 0A 31 30 D1+H1*H1)*G3..10
00FC70: 34 30 20 50 52 49 4E 54 20 22 41 54 20 43 4F 4E 40 PRINT "AT CON
00FC80: 54 41 43 54 20 59 4F 55 20 57 45 52 45 20 54 52 TACT YOU WERE TR
00FC90: 41 56 45 4C 49 4E 47 22 3B 58 31 3B 4E 24 3B 22 AVELING";X1;N$;"
00FCA0: 2F 48 52 22 0D 0A 31 30 34 35 20 47 4F 54 4F 20 /HR"..1045 GOTO
00FCB0: 31 31 30 30 0D 0A 31 30 35 30 20 50 52 49 4E 54 1100..1050 PRINT
00FCC0: 0D 0A 31 30 35 35 20 50 52 49 4E 54 20 22 59 4F ..1055 PRINT "YO
00FCD0: 55 20 48 41 56 45 20 42 45 45 4E 20 4C 4F 53 54 U HAVE BEEN LOST
00FCE0: 20 49 4E 20 53 50 41 43 45 20 57 49 54 48 20 4E IN SPACE WITH N
00FCF0: 4F 20 48 4F 50 45 20 4F 46 20 52 45 43 4F 56 45 O HOPE OF RECOVE
00FD00: 44 53 22 0D 0A 35 34 30 20 50 52 49 4E 54 20 22 DS"..540 PRINT "
00FD10: 20 20 20 20 20 20 20 20 48 45 49 47 48 54 20 49 HEIGHT I
00FD20: 4E 20 22 3B 4D 24 0D 0A 35 34 35 20 50 52 49 4E N ";M$..545 PRIN
00FD30: 54 20 22 20 20 20 20 20 20 20 20 44 49 53 54 41 T " DISTA
00FD40: 4E 43 45 20 46 52 4F 4D 20 4C 41 4E 44 49 4E 47 NCE FROM LANDING
00FD50: 20 53 49 54 45 20 49 4E 20 22 3B 4D 24 0D 0A 35 SITE IN ";M$..5
00FD60: 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 50 PRINT "
00FD70: 20 20 56 45 52 54 49 43 41 4C 20 56 45 4C 4F 43 VERTICAL VELOC
00FD80: 49 54 59 20 49 4E 20 22 3B 4D 24 3B 22 2F 53 45 ITY IN ";M$;"/SE
00FD90: 43 4F 4E 44 22 0D 0A 35 35 35 20 50 52 49 4E 54 COND"..555 PRINT
00FDA0: 20 22 20 20 20 20 20 20 20 20 48 4F 52 49 5A 4F " HORIZO
00FDB0: 4E 54 41 4C 20 56 45 4C 4F 43 49 54 59 20 49 4E NTAL VELOCITY IN
00FDC0: 20 22 3B 4D 24 3B 22 2F 53 45 43 4F 4E 44 22 0D ";M$;"/SECOND".
00FDD0: 0A 35 36 30 20 50 52 49 4E 54 20 22 20 20 20 20 .560 PRINT "
00FDE0: 20 20 20 20 46 55 45 4C 20 55 4E 49 54 53 20 52 FUEL UNITS R
00FDF0: 45 4D 41 49 4E 49 4E 47 22 0D 0A 35 36 35 20 50 EMAINING"..565 P
00FE00: 52 49 4E 54 0D 0A 35 37 30 20 47 4F 54 4F 20 36 RINT..570 GOTO 6
00FE10: 37 30 0D 0A 35 37 35 20 50 52 49 4E 54 0D 0A 35 70..575 PRINT..5
00FE20: 38 30 20 50 52 49 4E 54 20 22 54 2C 50 2C 41 22 80 PRINT "T,P,A"
00FE30: 3B 0D 0A 35 38 35 20 49 4E 50 55 54 20 54 31 2C ;..585 INPUT T1,
00FE40: 46 2C 50 0D 0A 35 39 30 20 46 3D 46 2F 31 30 30 F,P..590 F=F/100
00FE50: 0D 0A 35 39 35 20 49 46 20 54 31 3C 30 20 54 48 ..595 IF T1<0 TH
00FE60: 45 4E 20 39 30 35 0D 0A 36 30 30 20 49 46 20 54 EN 905..600 IF T
00FE70: 31 3D 30 20 54 48 45 4E 20 31 30 39 30 0D 0A 36 1=0 THEN 1090..6
00FE80: 30 35 20 49 46 20 41 42 53 28 46 2D 2E 30 35 29 05 IF ABS(F-.05)
00FE90: 3E 31 20 54 48 45 4E 20 39 34 35 0D 0A 36 31 30 >1 THEN 945..610
00FEA0: 20 49 46 20 41 42 53 28 46 2D 2E 30 35 29 3C 2E IF ABS(F-.05)<.
00FEB0: 30 35 20 54 48 45 4E 20 39 34 35 0D 0A 36 31 35 05 THEN 945..615
00FEC0: 20 49 46 20 41 42 53 28 50 29 3E 31 38 30 20 54 IF ABS(P)>180 T
00FED0: 48 45 4E 20 39 32 35 0D 0A 36 32 30 20 4E 3D 32 HEN 925..620 N=2
00FEE0: 30 0D 0A 36 32 35 20 49 46 20 54 31 3C 34 30 30 0..625 IF T1<400
00FEF0: 20 54 48 45 4E 20 36 33 35 0D 0A 36 33 30 20 4E THEN 635..630 N
00FF00: 52 59 2E 22 0D 0A 31 30 36 30 20 47 4F 54 4F 20 RY."..1060 GOTO
00FF10: 31 31 30 30 0D 0A 31 30 36 35 20 50 52 49 4E 54 1100..1065 PRINT
00FF20: 20 22 59 4F 55 20 41 52 45 20 44 4F 57 4E 20 53 "YOU ARE DOWN S
00FF30: 41 46 45 4C 59 20 2D 20 22 0D 0A 31 30 37 35 20 AFELY - "..1075
00FF40: 50 52 49 4E 54 0D 0A 31 30 38 30 20 50 52 49 4E PRINT..1080 PRIN
00FF50: 54 20 22 42 55 54 20 4D 49 53 53 45 44 20 54 48 T "BUT MISSED TH
00FF60: 45 20 4C 41 4E 44 49 4E 47 20 53 49 54 45 20 42 E LANDING SITE B
00FF70: 59 22 3B 41 42 53 28 44 2F 47 35 29 3B 4E 24 3B Y";ABS(D/G5);N$;
00FF80: 22 2E 22 0D 0A 31 30 38 35 20 47 4F 54 4F 20 31 "."..1085 GOTO 1
00FF90: 31 30 30 0D 0A 31 30 39 30 20 50 52 49 4E 54 0D 100..1090 PRINT.
00FFA0: 0A 31 30 39 35 20 50 52 49 4E 54 20 22 4D 49 53 .1095 PRINT "MIS
00FFB0: 53 49 4F 4E 20 41 42 45 4E 44 45 44 22 0D 0A 31 SION ABENDED"..1
00FFC0: 31 30 30 20 50 52 49 4E 54 20 0D 0A 31 31 30 35 100 PRINT ..1105
00FFD0: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
00FFE0: 41 4E 54 20 54 4F 20 54 52 59 20 49 54 20 41 47 ANT TO TRY IT AG
00FFF0: 41 49 4E 20 28 59 45 53 2F 4E 4F 29 3F 22 0D 0A AIN (YES/NO)?"..
010000: 31 31 31 30 20 49 4E 50 55 54 20 5A 24 0D 0A 31 1110 INPUT Z$..1
010010: 31 31 35 20 49 46 20 5A 24 3D 22 59 45 53 22 20 115 IF Z$="YES"
010020: 54 48 45 4E 20 32 30 0D 0A 31 31 32 30 20 49 46 THEN 20..1120 IF
010030: 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 31 Z$="NO" THEN 11
010040: 33 30 0D 0A 31 31 32 35 20 47 4F 54 4F 20 31 31 30..1125 GOTO 11
010050: 30 35 0D 0A 31 31 33 30 20 50 52 49 4E 54 0D 0A 05..1130 PRINT..
010060: 31 31 33 35 20 50 52 49 4E 54 20 22 54 4F 4F 20 1135 PRINT "TOO
010070: 42 41 44 2C 20 54 48 45 20 53 50 41 43 45 20 50 BAD, THE SPACE P
010080: 52 4F 47 52 41 4D 20 48 41 54 45 53 20 54 4F 20 ROGRAM HATES TO
010090: 4C 4F 53 45 20 45 58 50 45 52 49 45 4E 43 45 44 LOSE EXPERIENCED
0100A0: 22 0D 0A 31 31 34 30 20 50 52 49 4E 54 20 22 41 "..1140 PRINT "A
0100B0: 53 54 52 4F 4E 41 55 54 53 2E 22 0D 0A 31 31 34 STRONAUTS."..114
0100C0: 35 20 53 54 4F 50 0D 0A 31 31 35 30 20 50 52 49 5 STOP..1150 PRI
0100D0: 4E 54 0D 0A 31 31 35 35 20 50 52 49 4E 54 20 22 NT..1155 PRINT "
0100E0: 4F 4B 2C 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 OK, DO YOU WANT
0100F0: 54 48 45 20 43 4F 4D 50 4C 45 54 45 20 49 4E 53 THE COMPLETE INS
010100: 3D 54 31 2F 32 30 0D 0A 36 33 35 20 54 31 3D 54 =T1/20..635 T1=T
010110: 31 2F 4E 0D 0A 36 34 30 20 50 3D 50 2A 33 2E 31 1/N..640 P=P*3.1
010120: 34 31 35 39 2F 31 38 30 0D 0A 36 34 35 20 53 3D 4159/180..645 S=
010130: 53 49 4E 28 50 29 0D 0A 36 35 30 20 43 3D 43 4F SIN(P)..650 C=CO
010140: 53 28 50 29 0D 0A 36 35 35 20 4D 32 3D 4D 30 2A S(P)..655 M2=M0*
010150: 54 31 2A 46 2F 42 0D 0A 36 36 30 20 52 33 3D 2D T1*F/B..660 R3=-
010160: 2E 35 2A 52 30 2A 28 28 56 30 2F 52 29 5E 32 29 .5*R0*((V0/R)^2)
010170: 2B 52 2A 41 31 2A 41 31 0D 0A 36 36 35 20 41 33 +R*A1*A1..665 A3
010180: 3D 2D 32 2A 52 31 2A 41 31 2F 52 0D 0A 36 37 30 =-2*R1*A1/R..670
010190: 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 36 FOR I=1 TO N..6
0101A0: 37 35 20 49 46 20 4D 31 3D 30 20 54 48 45 4E 20 75 IF M1=0 THEN
0101B0: 37 31 35 0D 0A 36 38 30 20 4D 31 3D 4D 31 2D 4D 715..680 M1=M1-M
0101C0: 32 0D 0A 36 38 35 20 49 46 20 4D 31 3E 30 20 54 2..685 IF M1>0 T
0101D0: 48 45 4E 20 37 32 35 0D 0A 36 39 30 20 46 3D 46 HEN 725..690 F=F
0101E0: 2A 28 31 2B 4D 31 2F 4D 32 29 0D 0A 36 39 35 20 *(1+M1/M2)..695
0101F0: 4D 32 3D 4D 31 2B 4D 32 0D 0A 37 30 30 20 50 52 M2=M1+M2..700 PR
010200: 49 4E 54 20 22 59 4F 55 20 41 52 45 20 4F 55 54 INT "YOU ARE OUT
010210: 20 4F 46 20 46 55 45 4C 2E 22 0D 0A 37 30 35 20 OF FUEL."..705
010220: 4D 31 3D 30 0D 0A 37 31 30 20 47 4F 54 4F 20 37 M1=0..710 GOTO 7
010230: 32 35 0D 0A 37 31 35 20 46 3D 30 0D 0A 37 32 30 25..715 F=0..720
010240: 20 4D 32 3D 30 0D 0A 37 32 35 20 4D 3D 4D 2D 2E M2=0..725 M=M-.
010250: 35 2A 4D 32 0D 0A 37 33 30 20 52 34 3D 52 33 0D 5*M2..730 R4=R3.
010260: 0A 37 33 35 20 52 33 3D 2D 2E 35 2A 52 30 2A 28 .735 R3=-.5*R0*(
010270: 28 56 30 2F 52 29 5E 32 29 2B 52 2A 41 31 2A 41 (V0/R)^2)+R*A1*A
010280: 31 0D 0A 37 34 30 20 52 32 3D 28 33 2A 52 33 2D 1..740 R2=(3*R3-
010290: 52 34 29 2F 32 2B 2E 30 30 35 32 36 2A 46 31 2A R4)/2+.00526*F1*
0102A0: 46 2A 43 2F 4D 0D 0A 37 34 35 20 41 34 3D 41 33 F*C/M..745 A4=A3
0102B0: 0D 0A 37 35 30 20 41 33 3D 2D 32 2A 52 31 2A 41 ..750 A3=-2*R1*A
0102C0: 31 2F 52 0D 0A 37 35 35 20 41 32 3D 28 33 2A 41 1/R..755 A2=(3*A
0102D0: 33 2D 41 34 29 2F 32 2B 2E 30 30 35 36 2A 46 31 3-A4)/2+.0056*F1
0102E0: 2A 46 2A 53 2F 28 4D 2A 52 29 0D 0A 37 36 30 20 *F*S/(M*R)..760
0102F0: 58 3D 52 31 2A 54 31 2B 2E 35 2A 52 32 2A 54 31 X=R1*T1+.5*R2*T1
010300: 54 52 55 43 54 49 4F 4E 53 20 4F 52 20 54 48 45 TRUCTIONS OR THE
010310: 20 49 4E 50 55 54 20 2D 22 0D 0A 31 31 36 30 20 INPUT -"..1160
010320: 50 52 49 4E 54 20 22 4F 55 54 50 55 54 20 53 54 PRINT "OUTPUT ST
010330: 41 54 45 4D 45 4E 54 53 3F 22 0D 0A 31 31 36 35 ATEMENTS?"..1165
010340: 20 50 52 49 4E 54 20 22 31 3D 43 4F 4D 50 4C 45 PRINT "1=COMPLE
010350: 54 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 TE INSTRUCTIONS"
010360: 0D 0A 31 31 37 30 20 50 52 49 4E 54 20 22 32 3D ..1170 PRINT "2=
010370: 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 54 41 INPUT-OUTPUT STA
010380: 54 45 4D 45 4E 54 53 22 0D 0A 31 31 37 35 20 50 TEMENTS"..1175 P
010390: 52 49 4E 54 20 22 33 3D 4E 45 49 54 48 45 52 22 RINT "3=NEITHER"
0103A0: 0D 0A 31 31 38 30 20 49 4E 50 55 54 20 42 31 0D ..1180 INPUT B1.
0103B0: 0A 31 31 38 35 20 51 24 3D 22 4E 4F 22 0D 0A 31 .1185 Q$="NO"..1
0103C0: 31 39 30 20 49 46 20 42 31 3D 31 20 54 48 45 4E 190 IF B1=1 THEN
0103D0: 20 32 30 35 0D 0A 31 31 39 35 20 51 24 3D 22 59 205..1195 Q$="Y
0103E0: 45 53 22 0D 0A 31 32 30 30 20 49 46 20 42 31 3D ES"..1200 IF B1=
0103F0: 32 20 54 48 45 4E 20 31 39 30 0D 0A 31 32 30 35 2 THEN 190..1205
010400: 20 49 46 20 42 31 3D 33 20 54 48 45 4E 20 31 39 IF B1=3 THEN 19
010410: 30 0D 0A 31 32 31 30 20 47 4F 54 4F 20 31 31 36 0..1210 GOTO 116
010420: 35 0D 0A 31 32 31 35 20 45 4E 44 0D 0A 1A E5 E5 5..1215 END.....
010430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010500: 2A 54 31 0D 0A 37 36 35 20 52 3D 52 2B 58 0D 0A *T1..765 R=R+X..
010510: 37 37 30 20 48 30 3D 48 30 2B 58 0D 0A 37 37 35 770 H0=H0+X..775
010520: 20 52 31 3D 52 31 2B 52 32 2A 54 31 0D 0A 37 38 R1=R1+R2*T1..78
010530: 30 20 41 3D 41 2B 41 31 2A 54 31 2B 2E 35 2A 41 0 A=A+A1*T1+.5*A
010540: 32 2A 54 31 2A 54 31 0D 0A 37 38 35 20 41 31 3D 2*T1*T1..785 A1=
010550: 41 31 2B 41 32 2A 54 31 0D 0A 37 39 30 20 4D 3D A1+A2*T1..790 M=
010560: 4D 2D 2E 35 2A 4D 32 0D 0A 37 39 35 20 54 3D 54 M-.5*M2..795 T=T
010570: 2B 54 31 0D 0A 38 30 30 20 49 46 20 48 30 3C 33 +T1..800 IF H0<3
010580: 2E 32 38 37 38 32 38 45 2D 30 34 20 54 48 45 4E .287828E-04 THEN
010590: 20 38 31 30 0D 0A 38 30 35 20 4E 45 58 54 20 49 810..805 NEXT I
0105A0: 0D 0A 38 31 30 20 48 3D 48 30 2A 5A 0D 0A 38 31 ..810 H=H0*Z..81
0105B0: 35 20 48 31 3D 52 31 2A 5A 0D 0A 38 32 30 20 44 5 H1=R1*Z..820 D
0105C0: 3D 52 30 2A 41 2A 5A 0D 0A 38 32 35 20 44 31 3D =R0*A*Z..825 D1=
0105D0: 52 2A 41 31 2A 5A 0D 0A 38 33 30 20 54 32 3D 4D R*A1*Z..830 T2=M
0105E0: 31 2A 42 2F 4D 30 0D 0A 38 33 35 20 50 52 49 4E 1*B/M0..835 PRIN
0105F0: 54 20 22 20 22 3B 54 3B 54 41 42 28 31 30 29 3B T " ";T;TAB(10);
010600: 48 3B 54 41 42 28 32 33 29 3B 44 3B 0D 0A 38 34 H;TAB(23);D;..84
010610: 30 20 50 52 49 4E 54 20 54 41 42 28 33 37 29 3B 0 PRINT TAB(37);
010620: 48 31 3B 54 41 42 28 34 39 29 3B 44 31 3B 54 41 H1;TAB(49);D1;TA
010630: 42 28 36 30 29 3B 54 32 0D 0A 38 34 35 20 49 46 B(60);T2..845 IF
010640: 20 48 30 3C 33 2E 32 38 37 38 32 38 45 2D 30 34 H0<3.287828E-04
010650: 20 54 48 45 4E 20 38 38 30 0D 0A 38 35 30 20 49 THEN 880..850 I
010660: 46 20 52 30 2A 41 3E 31 36 34 2E 34 37 34 20 54 F R0*A>164.474 T
010670: 48 45 4E 20 31 30 35 30 0D 0A 38 35 35 20 49 46 HEN 1050..855 IF
010680: 20 4D 31 3E 30 20 54 48 45 4E 20 35 38 30 0D 0A M1>0 THEN 580..
010690: 38 36 30 20 54 31 3D 32 30 0D 0A 38 36 35 20 46 860 T1=20..865 F
0106A0: 3D 30 0D 0A 38 37 30 20 50 3D 30 0D 0A 38 37 35 =0..870 P=0..875
0106B0: 20 47 4F 54 4F 20 36 32 30 0D 0A 38 38 30 20 49 GOTO 620..880 I
0106C0: 46 20 52 31 3C 2D 38 2E 32 31 39 35 37 45 2D 30 F R1<-8.21957E-0
0106D0: 34 20 54 48 45 4E 20 31 30 32 30 0D 0A 38 38 35 4 THEN 1020..885
0106E0: 20 49 46 20 41 42 53 28 52 2A 41 31 29 3E 34 2E IF ABS(R*A1)>4.
0106F0: 39 33 31 37 34 45 2D 30 34 20 54 48 45 4E 20 31 93174E-04 THEN 1
010700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010900: 30 32 30 0D 0A 38 39 30 20 49 46 20 48 30 3C 2D 020..890 IF H0<-
010910: 33 2E 32 38 37 38 32 38 45 2D 30 34 20 54 48 45 3.287828E-04 THE
010920: 4E 20 31 30 32 30 0D 0A 38 39 35 20 49 46 20 41 N 1020..895 IF A
010930: 42 53 28 44 29 3E 31 30 2A 5A 20 54 48 45 4E 20 BS(D)>10*Z THEN
010940: 31 30 36 35 0D 0A 39 30 30 20 47 4F 54 4F 20 39 1065..900 GOTO 9
010950: 39 35 0D 0A 39 30 35 20 50 52 49 4E 54 0D 0A 39 95..905 PRINT..9
010960: 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 53 10 PRINT "THIS S
010970: 50 41 43 45 43 52 41 46 54 20 49 53 20 4E 4F 54 PACECRAFT IS NOT
010980: 20 41 42 4C 45 20 54 4F 20 56 49 4F 4C 41 54 45 ABLE TO VIOLATE
010990: 20 54 48 45 20 53 50 41 43 45 2D 22 3B 0D 0A 39 THE SPACE-";..9
0109A0: 31 35 20 50 52 49 4E 54 20 22 54 49 4D 45 20 43 15 PRINT "TIME C
0109B0: 4F 4E 54 49 4E 55 55 4D 2E 22 0D 0A 39 32 30 20 ONTINUUM."..920
0109C0: 47 4F 54 4F 20 35 37 35 0D 0A 39 32 35 20 50 52 GOTO 575..925 PR
0109D0: 49 4E 54 0D 0A 39 33 30 20 50 52 49 4E 54 20 22 INT..930 PRINT "
0109E0: 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 IF YOU WANT TO S
0109F0: 50 49 4E 20 41 52 4F 55 4E 44 2C 20 47 4F 20 4F PIN AROUND, GO O
010A00: 55 54 53 49 44 45 20 54 48 45 20 4D 4F 44 55 4C UTSIDE THE MODUL
010A10: 45 22 0D 0A 39 33 35 20 50 52 49 4E 54 20 22 46 E"..935 PRINT "F
010A20: 4F 52 20 41 4E 20 45 2E 56 2E 41 2E 22 0D 0A 39 OR AN E.V.A."..9
010A30: 34 30 20 47 4F 54 4F 20 35 37 35 0D 0A 39 34 35 40 GOTO 575..945
010A40: 20 50 52 49 4E 54 0D 0A 39 35 30 20 50 52 49 4E PRINT..950 PRIN
010A50: 54 20 22 49 4D 50 4F 53 53 49 42 4C 45 20 54 48 T "IMPOSSIBLE TH
010A60: 52 55 53 54 20 56 41 4C 55 45 20 22 3B 0D 0A 39 RUST VALUE ";..9
010A70: 35 35 20 49 46 20 46 3C 30 20 54 48 45 4E 20 39 55 IF F<0 THEN 9
010A80: 38 35 0D 0A 39 36 30 20 49 46 20 46 2D 2E 30 35 85..960 IF F-.05
010A90: 3C 2E 30 35 20 54 48 45 4E 20 39 37 35 0D 0A 39 <.05 THEN 975..9
010AA0: 36 35 20 50 52 49 4E 54 20 22 54 4F 4F 20 4C 41 65 PRINT "TOO LA
010AB0: 52 47 45 22 0D 0A 39 37 30 20 47 4F 54 4F 20 35 RGE"..970 GOTO 5
010AC0: 37 35 0D 0A 39 37 35 20 50 52 49 4E 54 20 22 54 75..975 PRINT "T
010AD0: 4F 4F 20 53 4D 41 4C 4C 22 0D 0A 39 38 30 20 47 OO SMALL"..980 G
010AE0: 4F 54 4F 20 35 37 35 0D 0A 39 38 35 20 50 52 49 OTO 575..985 PRI
010AF0: 4E 54 20 22 4E 45 47 41 54 49 56 45 22 0D 0A 39 NT "NEGATIVE"..9
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 00 00 02 09 52 E5 0E 00 C1 02 00 00 00 02 ......R.........
010B20: 0E 00 C6 02 00 00 00 02 0E 00 C2 02 00 00 00 02 ................
010B30: 0E 00 C7 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B40: 0E 00 C8 02 00 00 00 02 0E 00 C4 02 00 00 00 02 ................
010B50: 0E 00 C9 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
010C10: 3B 22 4C 45 54 54 45 52 22 0D 0A 32 30 20 50 52 ;"LETTER"..20 PR
010C20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
010C30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
010C40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
010C50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
010C60: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
010C70: 31 30 30 20 50 52 49 4E 54 20 22 4C 45 54 54 45 100 PRINT "LETTE
010C80: 52 20 47 55 45 53 53 49 4E 47 20 47 41 4D 45 22 R GUESSING GAME"
010C90: 3A 20 50 52 49 4E 54 0D 0A 32 31 30 20 50 52 49 : PRINT..210 PRI
010CA0: 4E 54 20 22 49 27 4C 4C 20 54 48 49 4E 4B 20 4F NT "I'LL THINK O
010CB0: 46 20 41 20 4C 45 54 54 45 52 20 4F 46 20 54 48 F A LETTER OF TH
010CC0: 45 20 41 4C 50 48 41 42 45 54 2C 20 41 20 54 4F E ALPHABET, A TO
010CD0: 20 5A 2E 22 0D 0A 32 32 30 20 50 52 49 4E 54 20 Z."..220 PRINT
010CE0: 22 54 52 59 20 54 4F 20 47 55 45 53 53 20 4D 59 "TRY TO GUESS MY
010CF0: 20 4C 45 54 54 45 52 20 41 4E 44 20 49 27 4C 4C LETTER AND I'LL
010D00: 20 47 49 56 45 20 59 4F 55 20 43 4C 55 45 53 22 GIVE YOU CLUES"
010D10: 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 41 53 20 ..230 PRINT "AS
010D20: 54 4F 20 48 4F 57 20 43 4C 4F 53 45 20 59 4F 55 TO HOW CLOSE YOU
010D30: 27 52 45 20 47 45 54 54 49 4E 47 20 54 4F 20 4D 'RE GETTING TO M
010D40: 59 20 4C 45 54 54 45 52 2E 22 0D 0A 33 31 30 20 Y LETTER."..310
010D50: 4C 3D 36 35 2B 49 4E 54 28 52 4E 44 28 31 29 2A L=65+INT(RND(1)*
010D60: 32 36 29 0D 0A 33 32 30 20 47 3D 30 0D 0A 33 34 26)..320 G=0..34
010D70: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 0 PRINT: PRINT "
010D80: 4F 2E 4B 2E 2C 20 49 20 48 41 56 45 20 41 20 4C O.K., I HAVE A L
010D90: 45 54 54 45 52 2E 20 20 53 54 41 52 54 20 47 55 ETTER. START GU
010DA0: 45 53 53 49 4E 47 2E 22 0D 0A 34 31 30 20 50 52 ESSING."..410 PR
010DB0: 49 4E 54 3A 20 50 52 49 4E 54 20 22 57 48 41 54 INT: PRINT "WHAT
010DC0: 20 49 53 20 59 4F 55 52 20 47 55 45 53 53 22 3B IS YOUR GUESS";
010DD0: 0D 0A 34 32 30 20 47 3D 47 2B 31 0D 0A 34 33 30 ..420 G=G+1..430
010DE0: 20 49 4E 50 55 54 20 41 24 3A 20 41 3D 41 53 43 INPUT A$: A=ASC
010DF0: 28 41 24 29 3A 20 50 52 49 4E 54 0D 0A 34 34 30 (A$): PRINT..440
010E00: 28 58 2C 59 29 3D 33 3A 50 3D 50 2B 31 0D 0A 36 (X,Y)=3:P=P+1..6
010E10: 32 30 20 4E 45 58 54 20 59 0D 0A 36 33 30 20 4E 20 NEXT Y..630 N
010E20: 45 58 54 20 58 0D 0A 36 33 35 20 58 31 3D 58 31 EXT X..635 X1=X1
010E30: 2D 31 3A 59 31 3D 59 31 2D 31 3A 58 32 3D 58 32 -1:Y1=Y1-1:X2=X2
010E40: 2B 31 3A 59 32 3D 59 32 2B 31 0D 0A 36 34 30 20 +1:Y2=Y2+1..640
010E50: 47 4F 54 4F 20 32 31 30 0D 0A 36 35 30 20 45 4E GOTO 210..650 EN
010E60: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
010E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011000: 20 49 46 20 41 3D 4C 20 54 48 45 4E 20 35 30 30 IF A=L THEN 500
011010: 0D 0A 34 35 30 20 49 46 20 41 3E 4C 20 54 48 45 ..450 IF A>L THE
011020: 4E 20 34 38 30 0D 0A 34 36 30 20 50 52 49 4E 54 N 480..460 PRINT
011030: 20 22 54 4F 4F 20 4C 4F 57 2E 20 20 54 52 59 20 "TOO LOW. TRY
011040: 41 20 48 49 47 48 45 52 20 4C 45 54 54 45 52 2E A HIGHER LETTER.
011050: 22 3A 20 47 4F 54 4F 20 34 31 30 0D 0A 34 38 30 ": GOTO 410..480
011060: 20 50 52 49 4E 54 20 22 54 4F 4F 20 48 49 47 48 PRINT "TOO HIGH
011070: 2E 20 20 54 52 59 20 41 20 4C 4F 57 45 52 20 4C . TRY A LOWER L
011080: 45 54 54 45 52 2E 22 3A 20 47 4F 54 4F 20 34 31 ETTER.": GOTO 41
011090: 30 0D 0A 35 30 30 20 50 52 49 4E 54 3A 20 50 52 0..500 PRINT: PR
0110A0: 49 4E 54 20 22 59 4F 55 20 47 4F 54 20 49 54 20 INT "YOU GOT IT
0110B0: 49 4E 22 3B 47 3B 22 47 55 45 53 53 45 53 21 21 IN";G;"GUESSES!!
0110C0: 22 0D 0A 35 30 34 20 49 46 20 47 3C 3D 35 20 54 "..504 IF G<=5 T
0110D0: 48 45 4E 20 35 30 38 0D 0A 35 30 36 20 50 52 49 HEN 508..506 PRI
0110E0: 4E 54 20 22 42 55 54 20 49 54 20 53 48 4F 55 4C NT "BUT IT SHOUL
0110F0: 44 4E 27 54 20 54 41 4B 45 20 4D 4F 52 45 20 54 DN'T TAKE MORE T
011100: 48 41 4E 20 35 20 47 55 45 53 53 45 53 21 22 3A HAN 5 GUESSES!":
011110: 20 47 4F 54 4F 20 35 31 35 0D 0A 35 30 38 20 50 GOTO 515..508 P
011120: 52 49 4E 54 20 22 47 4F 4F 44 20 4A 4F 42 20 21 RINT "GOOD JOB !
011130: 21 21 21 21 22 0D 0A 35 31 30 20 46 4F 52 20 4E !!!!"..510 FOR N
011140: 3D 31 20 54 4F 20 31 35 3A 20 50 52 49 4E 54 20 =1 TO 15: PRINT
011150: 43 48 52 24 28 37 29 3B 3A 20 4E 45 58 54 20 4E CHR$(7);: NEXT N
011160: 0D 0A 35 31 35 20 50 52 49 4E 54 0D 0A 35 32 30 ..515 PRINT..520
011170: 20 50 52 49 4E 54 20 22 4C 45 54 27 53 20 50 4C PRINT "LET'S PL
011180: 41 4E 20 41 47 41 49 4E 2E 2E 2E 2E 2E 22 0D 0A AN AGAIN....."..
011190: 35 33 30 20 47 4F 54 4F 20 33 31 30 0D 0A 39 39 530 GOTO 310..99
0111A0: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
0111B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011200: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
011210: 22 4C 49 46 45 32 22 0D 0A 34 20 50 52 49 4E 54 "LIFE2"..4 PRINT
011220: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
011230: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
011240: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
011250: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 RSEY"..6 PRINT:
011260: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 37 20 PRINT: PRINT..7
011270: 44 49 4D 20 4E 28 36 2C 36 29 2C 4B 28 31 38 29 DIM N(6,6),K(18)
011280: 2C 41 28 31 36 29 2C 58 28 32 29 2C 59 28 32 29 ,A(16),X(2),Y(2)
011290: 0D 0A 38 20 44 41 54 41 20 33 2C 31 30 32 2C 31 ..8 DATA 3,102,1
0112A0: 30 33 2C 31 32 30 2C 31 33 30 2C 31 32 31 2C 31 03,120,130,121,1
0112B0: 31 32 2C 31 31 31 2C 31 32 0D 0A 39 20 44 41 54 12,111,12..9 DAT
0112C0: 41 20 32 31 2C 33 30 2C 31 30 32 30 2C 31 30 33 A 21,30,1020,103
0112D0: 30 2C 31 30 31 31 2C 31 30 32 31 2C 31 30 30 33 0,1011,1021,1003
0112E0: 2C 31 30 30 32 2C 31 30 31 32 0D 0A 31 30 20 46 ,1002,1012..10 F
0112F0: 4F 52 20 4D 3D 31 20 54 4F 20 31 38 3A 20 52 45 OR M=1 TO 18: RE
011300: 41 44 20 4B 28 4D 29 3A 20 4E 45 58 54 20 4D 0D AD K(M): NEXT M.
011310: 0A 31 33 20 44 41 54 41 20 2D 31 2C 30 2C 31 2C .13 DATA -1,0,1,
011320: 30 2C 30 2C 2D 31 2C 30 2C 31 2C 2D 31 2C 2D 31 0,0,-1,0,1,-1,-1
011330: 2C 31 2C 2D 31 2C 2D 31 2C 31 2C 31 2C 31 0D 0A ,1,-1,-1,1,1,1..
011340: 31 34 20 46 4F 52 20 4F 31 3D 20 31 20 54 4F 20 14 FOR O1= 1 TO
011350: 31 36 3A 20 52 45 41 44 20 41 28 4F 31 29 3A 20 16: READ A(O1):
011360: 4E 45 58 54 20 4F 31 0D 0A 32 30 20 47 4F 54 4F NEXT O1..20 GOTO
011370: 20 35 30 30 0D 0A 35 30 20 46 4F 52 20 4A 3D 31 500..50 FOR J=1
011380: 20 54 4F 20 35 0D 0A 35 31 20 46 4F 52 20 4B 3D TO 5..51 FOR K=
011390: 31 20 54 4F 20 35 0D 0A 35 35 20 49 46 20 4E 28 1 TO 5..55 IF N(
0113A0: 4A 2C 4B 29 3E 39 39 20 54 48 45 4E 20 47 4F 53 J,K)>99 THEN GOS
0113B0: 55 42 20 32 30 30 0D 0A 36 30 20 4E 45 58 54 20 UB 200..60 NEXT
0113C0: 4B 0D 0A 36 35 20 4E 45 58 54 20 4A 0D 0A 39 30 K..65 NEXT J..90
0113D0: 20 4B 3D 30 3A 20 4D 32 3D 30 3A 20 4D 33 3D 30 K=0: M2=0: M3=0
0113E0: 0D 0A 39 39 20 46 4F 52 20 4A 3D 30 20 54 4F 20 ..99 FOR J=0 TO
0113F0: 36 3A 20 50 52 49 4E 54 0D 0A 31 30 30 20 46 4F 6: PRINT..100 FO
011400: 32 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 2 PRINT TAB(34);
011410: 22 4C 49 46 45 22 0D 0A 34 20 50 52 49 4E 54 20 "LIFE"..4 PRINT
011420: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
011430: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
011440: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
011450: 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 50 SEY"..6 PRINT: P
011460: 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 38 20 50 RINT: PRINT..8 P
011470: 52 49 4E 54 20 22 45 4E 54 45 52 20 59 4F 55 52 RINT "ENTER YOUR
011480: 20 50 41 54 54 45 52 4E 3A 22 0D 0A 39 20 58 31 PATTERN:"..9 X1
011490: 3D 31 3A 20 59 31 3D 31 3A 20 58 32 3D 32 34 3A =1: Y1=1: X2=24:
0114A0: 20 59 32 3D 37 30 0D 0A 31 30 20 44 49 4D 20 41 Y2=70..10 DIM A
0114B0: 28 32 34 2C 37 30 29 2C 42 24 28 32 34 29 0D 0A (24,70),B$(24)..
0114C0: 32 30 20 43 3D 31 0D 0A 33 30 20 49 4E 50 55 54 20 C=1..30 INPUT
0114D0: 20 42 24 28 43 29 0D 0A 34 30 20 49 46 20 42 24 B$(C)..40 IF B$
0114E0: 28 43 29 3D 22 44 4F 4E 45 22 20 54 48 45 4E 20 (C)="DONE" THEN
0114F0: 42 24 28 43 29 3D 22 22 3A 20 47 4F 54 4F 20 38 B$(C)="": GOTO 8
011500: 30 0D 0A 35 30 20 49 46 20 4C 45 46 54 24 28 42 0..50 IF LEFT$(B
011510: 24 28 43 29 2C 31 29 3D 22 2E 22 20 54 48 45 4E $(C),1)="." THEN
011520: 20 42 24 28 43 29 3D 22 20 22 2B 52 49 47 48 54 B$(C)=" "+RIGHT
011530: 24 28 42 24 28 43 29 2C 4C 45 4E 28 42 24 28 43 $(B$(C),LEN(B$(C
011540: 29 29 2D 31 29 0D 0A 36 30 20 43 3D 43 2B 31 0D ))-1)..60 C=C+1.
011550: 0A 37 30 20 47 4F 54 4F 20 33 30 0D 0A 38 30 20 .70 GOTO 30..80
011560: 43 3D 43 2D 31 3A 20 4C 3D 30 0D 0A 39 30 20 46 C=C-1: L=0..90 F
011570: 4F 52 20 58 3D 31 20 54 4F 20 43 2D 31 0D 0A 31 OR X=1 TO C-1..1
011580: 30 30 20 49 46 20 4C 45 4E 28 42 24 28 58 29 29 00 IF LEN(B$(X))
011590: 3E 4C 20 54 48 45 4E 20 4C 3D 4C 45 4E 28 42 24 >L THEN L=LEN(B$
0115A0: 28 58 29 29 0D 0A 31 31 30 20 4E 45 58 54 20 58 (X))..110 NEXT X
0115B0: 0D 0A 31 32 30 20 58 31 3D 31 31 2D 43 2F 32 0D ..120 X1=11-C/2.
0115C0: 0A 31 33 30 20 59 31 3D 33 33 2D 4C 2F 32 0D 0A .130 Y1=33-L/2..
0115D0: 31 34 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 43 140 FOR X=1 TO C
0115E0: 0D 0A 31 35 30 20 46 4F 52 20 59 3D 31 20 54 4F ..150 FOR Y=1 TO
0115F0: 20 4C 45 4E 28 42 24 28 58 29 29 0D 0A 31 36 30 LEN(B$(X))..160
011600: 52 20 4B 3D 30 20 54 4F 20 36 0D 0A 31 30 31 20 R K=0 TO 6..101
011610: 49 46 20 4A 3C 3E 30 20 54 48 45 4E 20 49 46 20 IF J<>0 THEN IF
011620: 4A 3C 3E 36 20 54 48 45 4E 20 31 30 35 0D 0A 31 J<>6 THEN 105..1
011630: 30 32 20 49 46 20 4B 3D 36 20 54 48 45 4E 20 50 02 IF K=6 THEN P
011640: 52 49 4E 54 20 30 3B 3A 20 47 4F 54 4F 20 31 32 RINT 0;: GOTO 12
011650: 35 0D 0A 31 30 33 20 50 52 49 4E 54 20 4B 3B 3A 5..103 PRINT K;:
011660: 20 47 4F 54 4F 20 31 32 30 0D 0A 31 30 35 20 49 GOTO 120..105 I
011670: 46 20 4B 3C 3E 30 20 54 48 45 4E 20 49 46 20 4B F K<>0 THEN IF K
011680: 3C 3E 36 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 <>6 THEN 110..10
011690: 36 20 49 46 20 4A 3D 36 20 54 48 45 4E 20 50 52 6 IF J=6 THEN PR
0116A0: 49 4E 54 20 30 3A 20 47 4F 54 4F 20 31 32 36 0D INT 0: GOTO 126.
0116B0: 0A 31 30 37 20 50 52 49 4E 54 20 4A 3B 3A 20 47 .107 PRINT J;: G
0116C0: 4F 54 4F 20 31 32 30 0D 0A 31 31 30 20 47 4F 53 OTO 120..110 GOS
0116D0: 55 42 20 33 30 30 0D 0A 31 32 30 20 4E 45 58 54 UB 300..120 NEXT
0116E0: 20 4B 0D 0A 31 32 35 20 4E 45 58 54 20 4A 0D 0A K..125 NEXT J..
0116F0: 31 32 36 20 52 45 54 55 52 4E 0D 0A 32 30 30 20 126 RETURN..200
011700: 42 3D 31 3A 20 49 46 20 4E 28 4A 2C 4B 29 3E 39 B=1: IF N(J,K)>9
011710: 39 39 20 54 48 45 4E 20 42 3D 31 30 0D 0A 32 32 99 THEN B=10..22
011720: 30 20 46 4F 52 20 4F 31 3D 20 31 20 54 4F 20 31 0 FOR O1= 1 TO 1
011730: 35 20 53 54 45 50 20 32 0D 0A 32 33 30 20 4E 28 5 STEP 2..230 N(
011740: 4A 2B 41 28 4F 31 29 2C 4B 2B 41 28 4F 31 2B 31 J+A(O1),K+A(O1+1
011750: 29 29 3D 4E 28 4A 2B 41 28 4F 31 29 2C 4B 2B 41 ))=N(J+A(O1),K+A
011760: 28 4F 31 2B 31 29 29 2B 42 0D 0A 32 33 31 20 4E (O1+1))+B..231 N
011770: 45 58 54 20 4F 31 0D 0A 32 33 39 20 52 45 54 55 EXT O1..239 RETU
011780: 52 4E 0D 0A 33 30 30 20 49 46 20 4E 28 4A 2C 4B RN..300 IF N(J,K
011790: 29 3C 33 20 54 48 45 4E 20 33 39 39 0D 0A 33 30 )<3 THEN 399..30
0117A0: 35 20 46 4F 52 20 4F 31 3D 31 20 54 4F 20 31 38 5 FOR O1=1 TO 18
0117B0: 0D 0A 33 31 30 20 49 46 20 4E 28 4A 2C 4B 29 3D ..310 IF N(J,K)=
0117C0: 4B 28 4F 31 29 20 54 48 45 4E 20 33 35 30 0D 0A K(O1) THEN 350..
0117D0: 33 31 35 20 4E 45 58 54 20 4F 31 0D 0A 33 32 30 315 NEXT O1..320
0117E0: 20 47 4F 54 4F 20 33 39 39 0D 0A 33 35 30 20 49 GOTO 399..350 I
0117F0: 46 20 4F 31 3E 39 20 54 48 45 4E 20 33 36 30 0D F O1>9 THEN 360.
011800: 20 49 46 20 4D 49 44 24 28 42 24 28 58 29 2C 59 IF MID$(B$(X),Y
011810: 2C 31 29 3C 3E 22 20 22 20 54 48 45 4E 20 41 28 ,1)<>" " THEN A(
011820: 58 31 2B 58 2C 59 31 2B 59 29 3D 31 3A 50 3D 50 X1+X,Y1+Y)=1:P=P
011830: 2B 31 0D 0A 31 37 30 20 4E 45 58 54 20 59 0D 0A +1..170 NEXT Y..
011840: 31 38 30 20 4E 45 58 54 20 58 0D 0A 32 30 30 20 180 NEXT X..200
011850: 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E PRINT:PRINT:PRIN
011860: 54 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 47 45 T..210 PRINT "GE
011870: 4E 45 52 41 54 49 4F 4E 3A 22 3B 47 2C 22 50 4F NERATION:";G,"PO
011880: 50 55 4C 41 54 49 4F 4E 3A 22 3B 50 3B 3A 20 49 PULATION:";P;: I
011890: 46 20 49 39 20 54 48 45 4E 20 50 52 49 4E 54 20 F I9 THEN PRINT
0118A0: 22 49 4E 56 41 4C 49 44 21 22 3B 0D 0A 32 31 35 "INVALID!";..215
0118B0: 20 58 33 3D 32 34 3A 59 33 3D 37 30 3A 58 34 3D X3=24:Y3=70:X4=
0118C0: 31 3A 20 59 34 3D 31 3A 20 50 3D 30 0D 0A 32 32 1: Y4=1: P=0..22
0118D0: 30 20 47 3D 47 2B 31 0D 0A 32 32 35 20 46 4F 52 0 G=G+1..225 FOR
0118E0: 20 58 3D 31 20 54 4F 20 58 31 2D 31 3A 20 50 52 X=1 TO X1-1: PR
0118F0: 49 4E 54 3A 20 4E 45 58 54 20 58 0D 0A 32 33 30 INT: NEXT X..230
011900: 20 46 4F 52 20 58 3D 58 31 20 54 4F 20 58 32 0D FOR X=X1 TO X2.
011910: 0A 32 34 30 20 50 52 49 4E 54 0D 0A 32 35 30 20 .240 PRINT..250
011920: 46 4F 52 20 59 3D 59 31 20 54 4F 20 59 32 0D 0A FOR Y=Y1 TO Y2..
011930: 32 35 33 20 49 46 20 41 28 58 2C 59 29 3D 32 20 253 IF A(X,Y)=2
011940: 54 48 45 4E 20 41 28 58 2C 59 29 3D 30 3A 47 4F THEN A(X,Y)=0:GO
011950: 54 4F 20 32 37 30 0D 0A 32 35 36 20 49 46 20 41 TO 270..256 IF A
011960: 28 58 2C 59 29 3D 33 20 54 48 45 4E 20 41 28 58 (X,Y)=3 THEN A(X
011970: 2C 59 29 3D 31 3A 47 4F 54 4F 20 32 36 31 0D 0A ,Y)=1:GOTO 261..
011980: 32 36 30 20 49 46 20 41 28 58 2C 59 29 3C 3E 31 260 IF A(X,Y)<>1
011990: 20 54 48 45 4E 20 32 37 30 0D 0A 32 36 31 20 50 THEN 270..261 P
0119A0: 52 49 4E 54 20 54 41 42 28 59 29 3B 22 2A 22 3B RINT TAB(Y);"*";
0119B0: 0D 0A 32 36 32 20 49 46 20 58 3C 58 33 20 54 48 ..262 IF X<X3 TH
0119C0: 45 4E 20 58 33 3D 58 0D 0A 32 36 34 20 49 46 20 EN X3=X..264 IF
0119D0: 58 3E 58 34 20 54 48 45 4E 20 58 34 3D 58 0D 0A X>X4 THEN X4=X..
0119E0: 32 36 36 20 49 46 20 59 3C 59 33 20 54 48 45 4E 266 IF Y<Y3 THEN
0119F0: 20 59 33 3D 59 0D 0A 32 36 38 20 49 46 20 59 3E Y3=Y..268 IF Y>
011A00: 0A 33 35 31 20 4E 28 4A 2C 4B 29 3D 31 30 30 3A .351 N(J,K)=100:
011A10: 20 4D 32 3D 4D 32 2B 31 3A 20 50 52 49 4E 54 20 M2=M2+1: PRINT
011A20: 22 20 2A 20 22 3B 0D 0A 33 35 35 20 52 45 54 55 " * ";..355 RETU
011A30: 52 4E 0D 0A 33 36 30 20 4E 28 4A 2C 4B 29 3D 31 RN..360 N(J,K)=1
011A40: 30 30 30 3A 20 4D 33 3D 4D 33 2B 31 3A 20 50 52 000: M3=M3+1: PR
011A50: 49 4E 54 20 22 20 23 20 22 3B 0D 0A 33 36 35 20 INT " # ";..365
011A60: 52 45 54 55 52 4E 0D 0A 33 39 39 20 4E 28 4A 2C RETURN..399 N(J,
011A70: 4B 29 3D 30 3A 20 50 52 49 4E 54 20 22 20 20 20 K)=0: PRINT "
011A80: 22 3B 3A 20 52 45 54 55 52 4E 0D 0A 35 30 30 20 ";: RETURN..500
011A90: 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 55 PRINT TAB(10);"U
011AA0: 2E 42 2E 20 4C 49 46 45 20 47 41 4D 45 22 0D 0A .B. LIFE GAME"..
011AB0: 35 30 35 20 4D 32 3D 30 3A 20 4D 33 3D 30 0D 0A 505 M2=0: M3=0..
011AC0: 35 31 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 35 510 FOR J=1 TO 5
011AD0: 0D 0A 35 31 31 20 46 4F 52 20 4B 3D 31 20 54 4F ..511 FOR K=1 TO
011AE0: 20 35 0D 0A 35 31 35 20 4E 28 4A 2C 4B 29 3D 30 5..515 N(J,K)=0
011AF0: 0D 0A 35 31 36 20 4E 45 58 54 20 4B 0D 0A 35 31 ..516 NEXT K..51
011B00: 37 20 4E 45 58 54 20 4A 0D 0A 35 31 39 20 46 4F 7 NEXT J..519 FO
011B10: 52 20 42 3D 31 20 54 4F 20 32 3A 20 50 31 3D 33 R B=1 TO 2: P1=3
011B20: 3A 20 49 46 20 42 3D 32 20 54 48 45 4E 20 50 31 : IF B=2 THEN P1
011B30: 3D 33 30 0D 0A 35 32 30 20 50 52 49 4E 54 3A 50 =30..520 PRINT:P
011B40: 52 49 4E 54 20 22 50 4C 41 59 45 52 22 3B 42 3B RINT "PLAYER";B;
011B50: 22 20 2D 20 33 20 4C 49 56 45 20 50 49 45 43 45 " - 3 LIVE PIECE
011B60: 53 2E 22 0D 0A 35 33 35 20 46 4F 52 20 4B 31 3D S."..535 FOR K1=
011B70: 31 20 54 4F 20 33 3A 20 47 4F 53 55 42 20 37 30 1 TO 3: GOSUB 70
011B80: 30 0D 0A 35 34 30 20 4E 28 58 28 42 29 2C 59 28 0..540 N(X(B),Y(
011B90: 42 29 29 3D 50 31 3A 20 4E 45 58 54 20 4B 31 0D B))=P1: NEXT K1.
011BA0: 0A 35 34 32 20 4E 45 58 54 20 42 0D 0A 35 35 39 .542 NEXT B..559
011BB0: 20 47 4F 53 55 42 20 39 30 0D 0A 35 36 30 20 50 GOSUB 90..560 P
011BC0: 52 49 4E 54 3A 20 47 4F 53 55 42 20 35 30 0D 0A RINT: GOSUB 50..
011BD0: 35 37 30 20 49 46 20 4D 32 3D 30 20 54 48 45 4E 570 IF M2=0 THEN
011BE0: 20 49 46 20 4D 33 3D 30 20 54 48 45 4E 20 35 37 IF M3=0 THEN 57
011BF0: 34 0D 0A 35 37 31 20 49 46 20 4D 33 3D 30 20 54 4..571 IF M3=0 T
011C00: 59 34 20 54 48 45 4E 20 59 34 3D 59 0D 0A 32 37 Y4 THEN Y4=Y..27
011C10: 30 20 4E 45 58 54 20 59 0D 0A 32 39 30 20 4E 45 0 NEXT Y..290 NE
011C20: 58 54 20 58 0D 0A 32 39 35 20 46 4F 52 20 58 3D XT X..295 FOR X=
011C30: 58 32 2B 31 20 54 4F 20 32 34 3A 20 50 52 49 4E X2+1 TO 24: PRIN
011C40: 54 3A 20 4E 45 58 54 20 58 0D 0A 32 39 39 20 58 T: NEXT X..299 X
011C50: 31 3D 58 33 3A 20 58 32 3D 58 34 3A 20 59 31 3D 1=X3: X2=X4: Y1=
011C60: 59 33 3A 20 59 32 3D 59 34 0D 0A 33 30 31 20 49 Y3: Y2=Y4..301 I
011C70: 46 20 58 31 3C 33 20 54 48 45 4E 20 58 31 3D 33 F X1<3 THEN X1=3
011C80: 3A 49 39 3D 2D 31 0D 0A 33 30 33 20 49 46 20 58 :I9=-1..303 IF X
011C90: 32 3E 32 32 20 54 48 45 4E 20 58 32 3D 32 32 3A 2>22 THEN X2=22:
011CA0: 49 39 3D 2D 31 0D 0A 33 30 35 20 49 46 20 59 31 I9=-1..305 IF Y1
011CB0: 3C 33 20 54 48 45 4E 20 59 31 3D 33 3A 49 39 3D <3 THEN Y1=3:I9=
011CC0: 2D 31 0D 0A 33 30 37 20 49 46 20 59 32 3E 36 38 -1..307 IF Y2>68
011CD0: 20 54 48 45 4E 20 59 32 3D 36 38 3A 49 39 3D 2D THEN Y2=68:I9=-
011CE0: 31 0D 0A 33 30 39 20 50 3D 30 0D 0A 35 30 30 20 1..309 P=0..500
011CF0: 46 4F 52 20 58 3D 58 31 2D 31 20 54 4F 20 58 32 FOR X=X1-1 TO X2
011D00: 2B 31 0D 0A 35 31 30 20 46 4F 52 20 59 3D 59 31 +1..510 FOR Y=Y1
011D10: 2D 31 20 54 4F 20 59 32 2B 31 0D 0A 35 32 30 20 -1 TO Y2+1..520
011D20: 43 3D 30 0D 0A 35 33 30 20 46 4F 52 20 49 3D 58 C=0..530 FOR I=X
011D30: 2D 31 20 54 4F 20 58 2B 31 0D 0A 35 34 30 20 46 -1 TO X+1..540 F
011D40: 4F 52 20 4A 3D 59 2D 31 20 54 4F 20 59 2B 31 0D OR J=Y-1 TO Y+1.
011D50: 0A 35 35 30 20 49 46 20 41 28 49 2C 4A 29 3D 31 .550 IF A(I,J)=1
011D60: 20 4F 52 20 41 28 49 2C 4A 29 3D 32 20 54 48 45 OR A(I,J)=2 THE
011D70: 4E 20 43 3D 43 2B 31 0D 0A 35 36 30 20 4E 45 58 N C=C+1..560 NEX
011D80: 54 20 4A 0D 0A 35 37 30 20 4E 45 58 54 20 49 0D T J..570 NEXT I.
011D90: 0A 35 38 30 20 49 46 20 41 28 58 2C 59 29 3D 30 .580 IF A(X,Y)=0
011DA0: 20 54 48 45 4E 20 36 31 30 0D 0A 35 39 30 20 49 THEN 610..590 I
011DB0: 46 20 43 3C 33 20 4F 52 20 43 3E 34 20 54 48 45 F C<3 OR C>4 THE
011DC0: 4E 20 41 28 58 2C 59 29 3D 32 3A 20 47 4F 54 4F N A(X,Y)=2: GOTO
011DD0: 20 36 30 30 0D 0A 35 39 35 20 50 3D 50 2B 31 0D 600..595 P=P+1.
011DE0: 0A 36 30 30 20 47 4F 54 4F 20 36 32 30 0D 0A 36 .600 GOTO 620..6
011DF0: 31 30 20 49 46 20 43 3D 33 20 54 48 45 4E 20 41 10 IF C=3 THEN A
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 00 00 02 09 52 E5 0F 00 C1 02 00 00 00 02 ......R.........
011E20: 0F 00 C6 02 00 00 00 02 0F 00 C2 02 00 00 00 02 ................
011E30: 0F 00 C7 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E40: 0F 00 C8 02 00 00 00 02 0F 00 C4 02 00 00 00 02 ................
011E50: 0F 00 C9 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 48 45 4E 20 42 3D 31 3A 20 47 4F 54 4F 20 35 37 HEN B=1: GOTO 57
011F10: 35 0D 0A 35 37 32 20 49 46 20 4D 32 3D 30 20 54 5..572 IF M2=0 T
011F20: 48 45 4E 20 42 3D 32 3A 20 47 4F 54 4F 20 35 37 HEN B=2: GOTO 57
011F30: 35 0D 0A 35 37 33 20 47 4F 54 4F 20 35 38 30 0D 5..573 GOTO 580.
011F40: 0A 35 37 34 20 50 52 49 4E 54 3A 20 50 52 49 4E .574 PRINT: PRIN
011F50: 54 20 22 41 20 44 52 41 57 22 3A 47 4F 54 4F 20 T "A DRAW":GOTO
011F60: 38 30 30 0D 0A 35 37 35 20 50 52 49 4E 54 3A 20 800..575 PRINT:
011F70: 50 52 49 4E 54 20 22 50 4C 41 59 45 52 22 3B 42 PRINT "PLAYER";B
011F80: 3B 22 49 53 20 54 48 45 20 57 49 4E 4E 45 52 22 ;"IS THE WINNER"
011F90: 3A 47 4F 54 4F 20 38 30 30 0D 0A 35 38 30 20 46 :GOTO 800..580 F
011FA0: 4F 52 20 42 3D 31 20 54 4F 20 32 3A 20 50 52 49 OR B=1 TO 2: PRI
011FB0: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
011FC0: 20 22 50 4C 41 59 45 52 22 3B 42 3B 3A 20 47 4F "PLAYER";B;: GO
011FD0: 53 55 42 20 37 30 30 0D 0A 35 38 31 20 49 46 20 SUB 700..581 IF
011FE0: 42 3D 39 39 20 54 48 45 4E 20 35 36 30 0D 0A 35 B=99 THEN 560..5
011FF0: 38 32 20 4E 45 58 54 20 42 0D 0A 35 38 36 20 4E 82 NEXT B..586 N
012000: 28 58 28 31 29 2C 59 28 31 29 29 3D 31 30 30 3A (X(1),Y(1))=100:
012010: 20 4E 28 58 28 32 29 2C 59 28 32 29 29 3D 31 30 N(X(2),Y(2))=10
012020: 30 30 0D 0A 35 39 36 20 47 4F 54 4F 20 35 36 30 00..596 GOTO 560
012030: 0D 0A 37 30 30 20 50 52 49 4E 54 20 22 58 2C 59 ..700 PRINT "X,Y
012040: 22 3A 50 52 49 4E 54 22 58 58 58 58 58 58 22 3B ":PRINT"XXXXXX";
012050: 43 48 52 24 28 31 33 29 3B 22 24 24 24 24 24 24 CHR$(13);"$$$$$$
012060: 22 3B 43 48 52 24 28 31 33 29 3B 22 26 26 26 26 ";CHR$(13);"&&&&
012070: 26 26 22 3B 0D 0A 37 30 31 20 50 52 49 4E 54 20 &&";..701 PRINT
012080: 43 48 52 24 28 31 33 29 3B 3A 20 49 4E 50 55 54 CHR$(13);: INPUT
012090: 20 59 28 42 29 2C 58 28 42 29 0D 0A 37 30 35 20 Y(B),X(B)..705
0120A0: 49 46 20 58 28 42 29 3C 3D 35 20 54 48 45 4E 20 IF X(B)<=5 THEN
0120B0: 49 46 20 58 28 42 29 3E 30 20 54 48 45 4E 20 37 IF X(B)>0 THEN 7
0120C0: 30 38 0D 0A 37 30 36 20 47 4F 54 4F 20 37 35 30 08..706 GOTO 750
0120D0: 0D 0A 37 30 38 20 49 46 20 59 28 42 29 3C 3D 35 ..708 IF Y(B)<=5
0120E0: 20 54 48 45 4E 20 49 46 20 59 28 42 29 3E 30 20 THEN IF Y(B)>0
0120F0: 54 48 45 4E 20 37 31 35 0D 0A 37 31 30 20 47 4F THEN 715..710 GO
012100: 4B 53 2C 2E 2E 2E 54 4F 54 4F 20 57 41 53 20 48 KS,...TOTO WAS H
012110: 49 53 20 4E 41 4D 45 2E 22 3A 20 47 4F 54 4F 20 IS NAME.": GOTO
012120: 37 30 0D 0A 36 36 20 50 52 49 4E 54 20 22 59 45 70..66 PRINT "YE
012130: 41 21 20 20 59 4F 55 27 52 45 20 41 20 52 45 41 A! YOU'RE A REA
012140: 4C 20 4C 49 54 45 52 41 54 55 52 45 20 47 49 41 L LITERATURE GIA
012150: 4E 54 2E 22 0D 0A 36 37 20 52 3D 52 2B 31 0D 0A NT."..67 R=R+1..
012160: 37 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 70 PRINT:PRINT..
012170: 37 31 20 50 52 49 4E 54 20 22 57 48 4F 20 57 41 71 PRINT "WHO WA
012180: 53 20 54 48 45 20 46 41 49 52 20 4D 41 49 44 45 S THE FAIR MAIDE
012190: 4E 20 57 48 4F 20 41 54 45 20 54 48 45 20 50 4F N WHO ATE THE PO
0121A0: 49 53 4F 4E 20 41 50 50 4C 45 22 0D 0A 37 32 20 ISON APPLE"..72
0121B0: 50 52 49 4E 54 20 22 31 29 53 4C 45 45 50 49 4E PRINT "1)SLEEPIN
0121C0: 47 20 42 45 41 55 54 59 2C 20 32 29 43 49 4E 44 G BEAUTY, 2)CIND
0121D0: 45 52 45 4C 4C 41 2C 20 33 29 53 4E 4F 57 20 57 ERELLA, 3)SNOW W
0121E0: 48 49 54 45 2C 20 34 29 57 45 4E 44 59 22 3B 0D HITE, 4)WENDY";.
0121F0: 0A 37 33 20 49 4E 50 55 54 20 41 3A 20 49 46 20 .73 INPUT A: IF
012200: 41 3D 33 20 54 48 45 4E 20 37 36 0D 0A 37 34 20 A=3 THEN 76..74
012210: 50 52 49 4E 54 20 22 4F 48 2C 20 43 4F 4D 45 20 PRINT "OH, COME
012220: 4F 4E 20 4E 4F 57 2E 2E 2E 49 54 20 57 41 53 20 ON NOW...IT WAS
012230: 53 4E 4F 57 20 57 48 49 54 45 2E 22 0D 0A 37 35 SNOW WHITE."..75
012240: 20 47 4F 54 4F 20 38 30 0D 0A 37 36 20 50 52 49 GOTO 80..76 PRI
012250: 4E 54 20 22 47 4F 4F 44 20 4D 45 4D 4F 52 59 21 NT "GOOD MEMORY!
012260: 22 0D 0A 37 37 20 52 3D 52 2B 31 0D 0A 38 30 20 "..77 R=R+1..80
012270: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 38 35 20 PRINT:PRINT..85
012280: 49 46 20 52 3D 34 20 54 48 45 4E 20 31 30 30 0D IF R=4 THEN 100.
012290: 0A 39 30 20 49 46 20 52 3C 32 20 54 48 45 4E 20 .90 IF R<2 THEN
0122A0: 32 30 30 0D 0A 39 32 20 50 52 49 4E 54 20 22 4E 200..92 PRINT "N
0122B0: 4F 54 20 42 41 44 2C 20 42 55 54 20 59 4F 55 20 OT BAD, BUT YOU
0122C0: 4D 49 47 48 54 20 53 50 45 4E 44 20 41 20 4C 49 MIGHT SPEND A LI
0122D0: 54 54 4C 45 20 4D 4F 52 45 20 54 49 4D 45 22 0D TTLE MORE TIME".
0122E0: 0A 39 34 20 50 52 49 4E 54 20 22 52 45 41 44 49 .94 PRINT "READI
0122F0: 4E 47 20 54 48 45 20 4E 55 52 53 45 52 59 20 47 NG THE NURSERY G
012300: 54 4F 20 37 35 30 0D 0A 37 31 35 20 49 46 20 4E TO 750..715 IF N
012310: 28 58 28 42 29 2C 59 28 42 29 29 3C 3E 30 20 54 (X(B),Y(B))<>0 T
012320: 48 45 4E 20 37 35 30 0D 0A 37 32 30 20 49 46 20 HEN 750..720 IF
012330: 42 3D 31 20 54 48 45 4E 20 52 45 54 55 52 4E 0D B=1 THEN RETURN.
012340: 0A 37 32 35 20 49 46 20 58 28 31 29 3D 58 28 32 .725 IF X(1)=X(2
012350: 29 20 54 48 45 4E 20 49 46 20 59 28 31 29 3D 59 ) THEN IF Y(1)=Y
012360: 28 32 29 20 54 48 45 4E 20 37 34 30 0D 0A 37 33 (2) THEN 740..73
012370: 30 20 52 45 54 55 52 4E 0D 0A 37 34 30 20 50 52 0 RETURN..740 PR
012380: 49 4E 54 20 22 53 41 4D 45 20 43 4F 4F 52 44 2E INT "SAME COORD.
012390: 20 20 53 45 54 20 54 4F 20 30 22 0D 0A 37 34 31 SET TO 0"..741
0123A0: 20 4E 28 58 28 42 29 2B 31 2C 59 28 42 29 2B 31 N(X(B)+1,Y(B)+1
0123B0: 29 3D 30 3A 20 42 3D 39 39 3A 20 52 45 54 55 52 )=0: B=99: RETUR
0123C0: 4E 0D 0A 37 35 30 20 50 52 49 4E 54 20 22 49 4C N..750 PRINT "IL
0123D0: 4C 45 47 41 4C 20 43 4F 4F 52 44 53 2E 20 52 45 LEGAL COORDS. RE
0123E0: 54 59 50 45 22 3A 20 47 4F 54 4F 20 37 30 30 0D TYPE": GOTO 700.
0123F0: 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 .999 END........
012400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0124A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0124B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0124C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0124D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0124E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0124F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012500: 52 45 41 54 53 2E 22 0D 0A 39 36 20 53 54 4F 50 REATS."..96 STOP
012510: 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 57 4F 57 ..100 PRINT "WOW
012520: 21 20 20 54 48 41 54 27 53 20 53 55 50 45 52 21 ! THAT'S SUPER!
012530: 20 20 59 4F 55 20 52 45 41 4C 4C 59 20 4B 4E 4F YOU REALLY KNO
012540: 57 20 59 4F 55 52 20 4E 55 52 53 45 52 59 22 0D W YOUR NURSERY".
012550: 0A 31 31 30 20 50 52 49 4E 54 20 22 59 4F 55 52 .110 PRINT "YOUR
012560: 20 4E 45 58 54 20 51 55 49 5A 20 57 49 4C 4C 20 NEXT QUIZ WILL
012570: 42 45 20 4F 4E 20 32 4E 44 20 43 45 4E 54 55 52 BE ON 2ND CENTUR
012580: 59 20 43 48 49 4E 45 53 45 22 0D 0A 31 32 30 20 Y CHINESE"..120
012590: 50 52 49 4E 54 20 22 4C 49 54 45 52 41 54 55 52 PRINT "LITERATUR
0125A0: 45 20 28 48 41 2C 20 48 41 2C 20 48 41 29 22 0D E (HA, HA, HA)".
0125B0: 0A 31 33 30 20 53 54 4F 50 0D 0A 32 30 30 20 50 .130 STOP..200 P
0125C0: 52 49 4E 54 20 22 55 47 48 2E 20 20 54 48 41 54 RINT "UGH. THAT
0125D0: 20 57 41 53 20 44 45 46 49 4E 49 54 45 4C 59 20 WAS DEFINITELY
0125E0: 4E 4F 54 20 54 4F 4F 20 53 57 49 46 54 2E 20 20 NOT TOO SWIFT.
0125F0: 42 41 43 4B 20 54 4F 22 0D 0A 32 30 35 20 50 52 BACK TO"..205 PR
012600: 49 4E 54 20 22 4E 55 52 53 45 52 59 20 53 43 48 INT "NURSERY SCH
012610: 4F 4F 4C 20 46 4F 52 20 59 4F 55 2C 20 4D 59 20 OOL FOR YOU, MY
012620: 46 52 49 45 4E 44 2E 22 0D 0A 39 39 39 20 45 4E FRIEND."..999 EN
012630: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
012640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0126A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0126B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0126C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0126D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0126E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0126F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0127A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0127B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0127C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0127D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0127E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0127F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0128A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0128B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0128C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0128D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0128E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0128F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012900: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
012910: 22 4C 4F 56 45 22 0D 0A 34 20 50 52 49 4E 54 20 "LOVE"..4 PRINT
012920: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
012930: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
012940: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
012950: 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 50 SEY"..6 PRINT: P
012960: 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 32 30 20 RINT: PRINT..20
012970: 50 52 49 4E 54 20 22 41 20 54 52 49 42 55 54 45 PRINT "A TRIBUTE
012980: 20 54 4F 20 54 48 45 20 47 52 45 41 54 20 41 4D TO THE GREAT AM
012990: 45 52 49 43 41 4E 20 41 52 54 49 53 54 2C 20 52 ERICAN ARTIST, R
0129A0: 4F 42 45 52 54 20 49 4E 44 49 41 4E 41 2E 22 0D OBERT INDIANA.".
0129B0: 0A 33 30 20 50 52 49 4E 54 20 22 48 49 53 20 47 .30 PRINT "HIS G
0129C0: 52 45 41 54 45 53 54 20 57 4F 52 4B 20 57 49 4C REATEST WORK WIL
0129D0: 4C 20 42 45 20 52 45 50 52 4F 44 55 43 45 44 20 L BE REPRODUCED
0129E0: 57 49 54 48 20 41 20 4D 45 53 53 41 47 45 20 4F WITH A MESSAGE O
0129F0: 46 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 59 4F F"..40 PRINT "YO
012A00: 55 52 20 43 48 4F 49 43 45 20 55 50 20 54 4F 20 UR CHOICE UP TO
012A10: 36 30 20 43 48 41 52 41 43 54 45 52 53 2E 20 20 60 CHARACTERS.
012A20: 49 46 20 59 4F 55 20 43 41 4E 27 54 20 54 48 49 IF YOU CAN'T THI
012A30: 4E 4B 20 4F 46 22 0D 0A 35 30 20 50 52 49 4E 54 NK OF"..50 PRINT
012A40: 20 22 41 20 4D 45 53 53 41 47 45 2C 20 53 49 4D "A MESSAGE, SIM
012A50: 50 4C 45 20 54 59 50 45 20 54 48 45 20 57 4F 52 PLE TYPE THE WOR
012A60: 44 20 27 4C 4F 56 45 27 22 3A 20 50 52 49 4E 54 D 'LOVE'": PRINT
012A70: 0D 0A 36 30 20 49 4E 50 55 54 20 22 59 4F 55 52 ..60 INPUT "YOUR
012A80: 20 4D 45 53 53 41 47 45 2C 20 50 4C 45 41 53 45 MESSAGE, PLEASE
012A90: 22 3B 41 24 3A 20 4C 3D 4C 45 4E 28 41 24 29 0D ";A$: L=LEN(A$).
012AA0: 0A 37 30 20 44 49 4D 20 54 24 28 31 32 30 29 3A .70 DIM T$(120):
012AB0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 3A 20 FOR I=1 TO 10:
012AC0: 50 52 49 4E 54 3A 20 4E 45 58 54 20 49 0D 0A 31 PRINT: NEXT I..1
012AD0: 30 30 20 46 4F 52 20 4A 3D 30 20 54 4F 20 49 4E 00 FOR J=0 TO IN
012AE0: 54 28 36 30 2F 4C 29 0D 0A 31 31 30 20 46 4F 52 T(60/L)..110 FOR
012AF0: 20 49 3D 31 20 54 4F 20 4C 0D 0A 31 32 30 20 54 I=1 TO L..120 T
012B00: 31 20 50 52 49 4E 54 20 54 41 42 28 32 35 29 3B 1 PRINT TAB(25);
012B10: 22 4C 49 54 45 52 41 54 55 52 45 20 51 55 49 5A "LITERATURE QUIZ
012B20: 22 0D 0A 32 20 50 52 49 4E 54 20 54 41 42 28 31 "..2 PRINT TAB(1
012B30: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
012B40: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
012B50: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
012B60: 0A 33 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 .3 PRINT:PRINT:P
012B70: 52 49 4E 54 0D 0A 35 20 52 3D 30 0D 0A 31 30 20 RINT..5 R=0..10
012B80: 50 52 49 4E 54 20 22 54 45 53 54 20 59 4F 55 52 PRINT "TEST YOUR
012B90: 20 4B 4E 4F 57 4C 45 44 47 45 20 4F 46 20 43 48 KNOWLEDGE OF CH
012BA0: 49 4C 44 52 45 4E 27 53 20 4C 49 54 45 52 41 54 ILDREN'S LITERAT
012BB0: 55 52 45 2E 22 0D 0A 31 32 20 50 52 49 4E 54 3A URE."..12 PRINT:
012BC0: 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 PRINT "THIS IS
012BD0: 41 20 4D 55 4C 54 49 50 4C 45 2D 43 48 4F 49 43 A MULTIPLE-CHOIC
012BE0: 45 20 51 55 49 5A 2E 22 0D 0A 31 33 20 50 52 49 E QUIZ."..13 PRI
012BF0: 4E 54 20 22 54 59 50 45 20 41 20 31 2C 20 32 2C NT "TYPE A 1, 2,
012C00: 20 33 2C 20 4F 52 20 34 20 41 46 54 45 52 20 54 3, OR 4 AFTER T
012C10: 48 45 20 51 55 45 53 54 49 4F 4E 20 4D 41 52 4B HE QUESTION MARK
012C20: 2E 22 0D 0A 31 35 20 50 52 49 4E 54 3A 20 50 52 ."..15 PRINT: PR
012C30: 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 22 INT "GOOD LUCK!"
012C40: 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A : PRINT: PRINT..
012C50: 34 30 20 50 52 49 4E 54 20 22 49 4E 20 50 49 4E 40 PRINT "IN PIN
012C60: 4F 43 43 48 49 4F 2C 20 57 48 41 54 20 57 41 53 OCCHIO, WHAT WAS
012C70: 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 THE NAME OF THE
012C80: 20 43 41 54 22 0D 0A 34 32 20 50 52 49 4E 54 20 CAT"..42 PRINT
012C90: 22 31 29 54 49 47 47 45 52 2C 20 32 29 43 49 43 "1)TIGGER, 2)CIC
012CA0: 45 52 4F 2C 20 33 29 46 49 47 41 52 4F 2C 20 34 ERO, 3)FIGARO, 4
012CB0: 29 47 55 49 50 45 54 54 4F 22 3B 0D 0A 34 33 20 )GUIPETTO";..43
012CC0: 49 4E 50 55 54 20 41 3A 20 49 46 20 41 3D 33 20 INPUT A: IF A=3
012CD0: 54 48 45 4E 20 34 36 0D 0A 34 34 20 50 52 49 4E THEN 46..44 PRIN
012CE0: 54 20 22 53 4F 52 52 59 2E 2E 2E 46 49 47 41 52 T "SORRY...FIGAR
012CF0: 4F 20 57 41 53 20 48 49 53 20 4E 41 4D 45 2E 22 O WAS HIS NAME."
012D00: 24 28 4A 2A 4C 2B 49 29 3D 4D 49 44 24 28 41 24 $(J*L+I)=MID$(A$
012D10: 2C 49 2C 31 29 0D 0A 31 33 30 20 4E 45 58 54 20 ,I,1)..130 NEXT
012D20: 49 3A 20 4E 45 58 54 20 4A 0D 0A 31 34 30 20 43 I: NEXT J..140 C
012D30: 3D 30 0D 0A 32 30 30 20 41 31 3D 31 3A 20 50 3D =0..200 A1=1: P=
012D40: 31 3A 20 43 3D 43 2B 31 3A 20 49 46 20 43 3D 33 1: C=C+1: IF C=3
012D50: 37 20 54 48 45 4E 20 39 39 39 0D 0A 32 30 35 20 7 THEN 999..205
012D60: 50 52 49 4E 54 0D 0A 32 31 30 20 52 45 41 44 20 PRINT..210 READ
012D70: 41 3A 20 41 31 3D 41 31 2B 41 3A 20 49 46 20 50 A: A1=A1+A: IF P
012D80: 3D 31 20 54 48 45 4E 20 33 30 30 0D 0A 32 34 30 =1 THEN 300..240
012D90: 20 46 4F 52 20 49 3D 31 20 54 4F 20 41 3A 20 50 FOR I=1 TO A: P
012DA0: 52 49 4E 54 20 22 20 22 3B 3A 20 4E 45 58 54 20 RINT " ";: NEXT
012DB0: 49 3A 20 50 3D 31 3A 20 47 4F 54 4F 20 34 30 30 I: P=1: GOTO 400
012DC0: 0D 0A 33 30 30 20 46 4F 52 20 49 3D 41 31 2D 41 ..300 FOR I=A1-A
012DD0: 20 54 4F 20 41 31 2D 31 3A 20 50 52 49 4E 54 20 TO A1-1: PRINT
012DE0: 54 24 28 49 29 3B 3A 20 4E 45 58 54 20 49 3A 20 T$(I);: NEXT I:
012DF0: 50 3D 30 0D 0A 34 30 30 20 49 46 20 41 31 3E 36 P=0..400 IF A1>6
012E00: 30 20 54 48 45 4E 20 32 30 30 0D 0A 34 31 30 20 0 THEN 200..410
012E10: 47 4F 54 4F 20 32 31 30 0D 0A 36 30 30 20 44 41 GOTO 210..600 DA
012E20: 54 41 20 36 30 2C 31 2C 31 32 2C 32 36 2C 39 2C TA 60,1,12,26,9,
012E30: 31 32 2C 33 2C 38 2C 32 34 2C 31 37 2C 38 2C 34 12,3,8,24,17,8,4
012E40: 2C 36 2C 32 33 2C 32 31 2C 36 2C 34 2C 36 2C 32 ,6,23,21,6,4,6,2
012E50: 32 2C 31 32 2C 35 2C 36 2C 35 0D 0A 36 31 30 20 2,12,5,6,5..610
012E60: 44 41 54 41 20 34 2C 36 2C 32 31 2C 31 31 2C 38 DATA 4,6,21,11,8
012E70: 2C 36 2C 34 2C 34 2C 36 2C 32 31 2C 31 30 2C 31 ,6,4,4,6,21,10,1
012E80: 30 2C 35 2C 34 2C 34 2C 36 2C 32 31 2C 39 2C 31 0,5,4,4,6,21,9,1
012E90: 31 2C 35 2C 34 0D 0A 36 32 30 20 44 41 54 41 20 1,5,4..620 DATA
012EA0: 34 2C 36 2C 32 31 2C 38 2C 31 31 2C 36 2C 34 2C 4,6,21,8,11,6,4,
012EB0: 34 2C 36 2C 32 31 2C 37 2C 31 31 2C 37 2C 34 2C 4,6,21,7,11,7,4,
012EC0: 34 2C 36 2C 32 31 2C 36 2C 31 31 2C 38 2C 34 0D 4,6,21,6,11,8,4.
012ED0: 0A 36 33 30 20 44 41 54 41 20 34 2C 36 2C 31 39 .630 DATA 4,6,19
012EE0: 2C 31 2C 31 2C 35 2C 31 31 2C 39 2C 34 2C 34 2C ,1,1,5,11,9,4,4,
012EF0: 36 2C 31 39 2C 31 2C 31 2C 35 2C 31 30 2C 31 30 6,19,1,1,5,10,10
012F00: 3A 20 47 4F 54 4F 20 35 30 0D 0A 34 36 20 50 52 : GOTO 50..46 PR
012F10: 49 4E 54 20 22 56 45 52 59 20 47 4F 4F 44 21 20 INT "VERY GOOD!
012F20: 20 48 45 52 45 27 53 20 41 4E 4F 54 48 45 52 2E HERE'S ANOTHER.
012F30: 22 0D 0A 34 37 20 52 3D 52 2B 31 0D 0A 35 30 20 "..47 R=R+1..50
012F40: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 35 31 PRINT: PRINT..51
012F50: 20 50 52 49 4E 54 20 22 46 52 4F 4D 20 57 48 4F PRINT "FROM WHO
012F60: 53 45 20 47 41 52 44 45 4E 20 44 49 44 20 42 55 SE GARDEN DID BU
012F70: 47 53 20 42 55 4E 4E 59 20 53 54 45 41 4C 20 54 GS BUNNY STEAL T
012F80: 48 45 20 43 41 52 52 4F 54 53 3F 22 0D 0A 35 32 HE CARROTS?"..52
012F90: 20 50 52 49 4E 54 20 22 31 29 4D 52 2E 20 4E 49 PRINT "1)MR. NI
012FA0: 58 4F 4E 27 53 2C 20 32 29 45 4C 4D 45 52 20 46 XON'S, 2)ELMER F
012FB0: 55 44 44 27 53 2C 20 33 29 43 4C 45 4D 20 4A 55 UDD'S, 3)CLEM JU
012FC0: 44 44 27 53 2C 20 34 29 53 54 52 4F 4D 42 4F 4C DD'S, 4)STROMBOL
012FD0: 49 27 53 22 3B 0D 0A 35 33 20 49 4E 50 55 54 20 I'S";..53 INPUT
012FE0: 41 3A 20 49 46 20 41 3D 32 20 54 48 45 4E 20 35 A: IF A=2 THEN 5
012FF0: 36 0D 0A 35 34 20 50 52 49 4E 54 20 22 54 4F 4F 6..54 PRINT "TOO
013000: 20 42 41 44 2E 2E 2E 49 54 20 57 41 53 20 45 4C BAD...IT WAS EL
013010: 4D 45 52 20 46 55 44 44 27 53 20 47 41 52 44 45 MER FUDD'S GARDE
013020: 4E 2E 22 3A 20 47 4F 54 4F 20 36 30 0D 0A 35 36 N.": GOTO 60..56
013030: 20 50 52 49 4E 54 20 22 50 52 45 54 54 59 20 47 PRINT "PRETTY G
013040: 4F 4F 44 21 22 0D 0A 35 37 20 52 3D 52 2B 31 0D OOD!"..57 R=R+1.
013050: 0A 36 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 .60 PRINT: PRINT
013060: 0D 0A 36 31 20 50 52 49 4E 54 20 22 49 4E 20 54 ..61 PRINT "IN T
013070: 48 45 20 57 49 5A 41 52 44 20 4F 46 20 4F 53 2C HE WIZARD OF OS,
013080: 20 44 4F 52 4F 54 48 59 27 53 20 44 4F 47 20 57 DOROTHY'S DOG W
013090: 41 53 20 4E 41 4D 45 44 22 0D 0A 36 32 20 50 52 AS NAMED"..62 PR
0130A0: 49 4E 54 20 22 31 29 43 49 43 45 52 4F 2C 20 32 INT "1)CICERO, 2
0130B0: 29 54 52 49 58 49 41 2C 20 33 29 4B 49 4E 47 2C )TRIXIA, 3)KING,
0130C0: 20 34 29 54 4F 54 4F 22 3B 0D 0A 36 33 20 49 4E 4)TOTO";..63 IN
0130D0: 50 55 54 20 41 3A 20 49 46 20 41 3D 34 20 54 48 PUT A: IF A=4 TH
0130E0: 45 4E 20 36 36 0D 0A 36 34 20 50 52 49 4E 54 20 EN 66..64 PRINT
0130F0: 22 42 41 43 4B 20 54 4F 20 54 48 45 20 42 4F 4F "BACK TO THE BOO
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 00 00 02 09 52 E5 10 00 C1 02 00 00 00 02 ......R.........
013120: 10 00 C6 02 00 00 00 02 10 00 C2 02 00 00 00 02 ................
013130: 10 00 C7 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013140: 10 00 C8 02 00 00 00 02 10 00 C4 02 00 00 00 02 ................
013150: 10 00 C9 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 2C 34 2C 34 2C 36 2C 31 38 2C 32 2C 31 2C 36 2C ,4,4,6,18,2,1,6,
013210: 38 2C 31 31 2C 34 0D 0A 36 34 30 20 44 41 54 41 8,11,4..640 DATA
013220: 20 34 2C 36 2C 31 37 2C 33 2C 31 2C 37 2C 35 2C 4,6,17,3,1,7,5,
013230: 31 33 2C 34 2C 34 2C 36 2C 31 35 2C 35 2C 32 2C 13,4,4,6,15,5,2,
013240: 32 33 2C 35 2C 31 2C 32 39 2C 35 2C 31 37 2C 38 23,5,1,29,5,17,8
013250: 0D 0A 36 35 30 20 44 41 54 41 20 31 2C 32 39 2C ..650 DATA 1,29,
013260: 39 2C 39 2C 31 32 2C 31 2C 31 33 2C 35 2C 34 30 9,9,12,1,13,5,40
013270: 2C 31 2C 31 2C 31 33 2C 35 2C 34 30 2C 31 2C 34 ,1,1,13,5,40,1,4
013280: 2C 36 2C 31 33 2C 33 2C 31 30 2C 36 2C 31 32 2C ,6,13,3,10,6,12,
013290: 35 2C 31 0D 0A 36 36 30 20 44 41 54 41 20 35 2C 5,1..660 DATA 5,
0132A0: 36 2C 31 31 2C 33 2C 31 31 2C 36 2C 31 34 2C 33 6,11,3,11,6,14,3
0132B0: 2C 31 2C 35 2C 36 2C 31 31 2C 33 2C 31 31 2C 36 ,1,5,6,11,3,11,6
0132C0: 2C 31 35 2C 32 2C 31 0D 0A 36 37 30 20 44 41 54 ,15,2,1..670 DAT
0132D0: 41 20 36 2C 36 2C 39 2C 33 2C 31 32 2C 36 2C 31 A 6,6,9,3,12,6,1
0132E0: 36 2C 31 2C 31 2C 36 2C 36 2C 39 2C 33 2C 31 32 6,1,1,6,6,9,3,12
0132F0: 2C 36 2C 37 2C 31 2C 31 30 0D 0A 36 38 30 20 44 ,6,7,1,10..680 D
013300: 41 54 41 20 37 2C 36 2C 37 2C 33 2C 31 33 2C 36 ATA 7,6,7,3,13,6
013310: 2C 36 2C 32 2C 31 30 2C 37 2C 36 2C 37 2C 33 2C ,6,2,10,7,6,7,3,
013320: 31 33 2C 31 34 2C 31 30 2C 38 2C 36 2C 35 2C 33 13,14,10,8,6,5,3
013330: 2C 31 34 2C 36 2C 36 2C 32 2C 31 30 0D 0A 36 39 ,14,6,6,2,10..69
013340: 30 20 44 41 54 41 20 38 2C 36 2C 35 2C 33 2C 31 0 DATA 8,6,5,3,1
013350: 34 2C 36 2C 37 2C 31 2C 31 30 2C 39 2C 36 2C 33 4,6,7,1,10,9,6,3
013360: 2C 33 2C 31 35 2C 36 2C 31 36 2C 31 2C 31 0D 0A ,3,15,6,16,1,1..
013370: 37 30 30 20 44 41 54 41 20 39 2C 36 2C 33 2C 33 700 DATA 9,6,3,3
013380: 2C 31 35 2C 36 2C 31 35 2C 32 2C 31 2C 31 30 2C ,15,6,15,2,1,10,
013390: 36 2C 31 2C 33 2C 31 36 2C 36 2C 31 34 2C 33 2C 6,1,3,16,6,14,3,
0133A0: 31 2C 31 30 2C 31 30 2C 31 36 2C 36 2C 31 32 2C 1,10,10,16,6,12,
0133B0: 35 2C 31 0D 0A 37 31 30 20 44 41 54 41 20 31 31 5,1..710 DATA 11
0133C0: 2C 38 2C 31 33 2C 32 37 2C 31 2C 31 31 2C 38 2C ,8,13,27,1,11,8,
0133D0: 31 33 2C 32 37 2C 31 2C 36 30 0D 0A 39 39 39 20 13,27,1,60..999
0133E0: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 3A 20 50 FOR I=1 TO 10: P
0133F0: 52 49 4E 54 3A 20 4E 45 58 54 20 49 3A 20 45 4E RINT: NEXT I: EN
013400: 54 20 22 49 4E 20 46 41 43 54 2C 20 59 4F 55 20 T "IN FACT, YOU
013410: 42 4C 41 53 54 45 44 20 41 20 4E 45 57 20 4C 55 BLASTED A NEW LU
013420: 4E 41 52 20 43 52 41 54 45 52 22 3B 57 2A 2E 32 NAR CRATER";W*.2
013430: 32 37 3B 22 46 45 45 54 20 44 45 45 50 21 22 0D 27;"FEET DEEP!".
013440: 0A 33 32 30 20 47 4F 54 4F 20 34 34 30 0D 0A 33 .320 GOTO 440..3
013450: 33 30 20 4C 3D 4C 2B 53 3A 20 54 3D 54 2D 53 3A 30 L=L+S: T=T-S:
013460: 20 4D 3D 4D 2D 53 2A 4B 3A 20 41 3D 49 3A 20 56 M=M-S*K: A=I: V
013470: 3D 4A 3A 20 52 45 54 55 52 4E 0D 0A 33 34 30 20 =J: RETURN..340
013480: 49 46 20 53 3C 35 45 2D 30 33 20 54 48 45 4E 20 IF S<5E-03 THEN
013490: 32 36 30 0D 0A 33 35 30 20 44 3D 56 2B 53 51 52 260..350 D=V+SQR
0134A0: 28 56 2A 56 2B 32 2A 41 2A 28 47 2D 5A 2A 4B 2F (V*V+2*A*(G-Z*K/
0134B0: 4D 29 29 3A 53 3D 32 2A 41 2F 44 0D 0A 33 36 30 M)):S=2*A/D..360
0134C0: 20 47 4F 53 55 42 20 34 32 30 3A 20 47 4F 53 55 GOSUB 420: GOSU
0134D0: 42 20 33 33 30 3A 20 47 4F 54 4F 20 33 34 30 0D B 330: GOTO 340.
0134E0: 0A 33 37 30 20 57 3D 28 31 2D 4D 2A 47 2F 28 5A .370 W=(1-M*G/(Z
0134F0: 2A 4B 29 29 2F 32 3A 20 53 3D 4D 2A 56 2F 28 5A *K))/2: S=M*V/(Z
013500: 2A 4B 2A 28 57 2B 53 51 52 28 57 2A 57 2B 56 2F *K*(W+SQR(W*W+V/
013510: 5A 29 29 29 2B 2E 30 35 3A 47 4F 53 55 42 20 34 Z)))+.05:GOSUB 4
013520: 32 30 0D 0A 33 38 30 20 49 46 20 49 3C 3D 30 20 20..380 IF I<=0
013530: 54 48 45 4E 20 33 34 30 0D 0A 33 39 30 20 47 4F THEN 340..390 GO
013540: 53 55 42 20 33 33 30 3A 20 49 46 20 4A 3E 30 20 SUB 330: IF J>0
013550: 54 48 45 4E 20 31 36 30 0D 0A 34 30 30 20 49 46 THEN 160..400 IF
013560: 20 56 3E 30 20 54 48 45 4E 20 33 37 30 0D 0A 34 V>0 THEN 370..4
013570: 31 30 20 47 4F 54 4F 20 31 36 30 0D 0A 34 32 30 10 GOTO 160..420
013580: 20 51 3D 53 2A 4B 2F 4D 3A 20 4A 3D 56 2B 47 2A Q=S*K/M: J=V+G*
013590: 53 2B 5A 2A 28 2D 51 2D 51 2A 51 2F 32 2D 51 5E S+Z*(-Q-Q*Q/2-Q^
0135A0: 33 2F 33 2D 51 5E 34 2F 34 2D 51 5E 35 2F 35 29 3/3-Q^4/4-Q^5/5)
0135B0: 0D 0A 34 33 30 20 49 3D 41 2D 47 2A 53 2A 53 2F ..430 I=A-G*S*S/
0135C0: 32 2D 56 2A 53 2B 5A 2A 53 2A 28 51 2F 32 2B 51 2-V*S+Z*S*(Q/2+Q
0135D0: 5E 32 2F 36 2B 51 5E 33 2F 31 32 2B 51 5E 34 2F ^2/6+Q^3/12+Q^4/
0135E0: 32 30 2B 51 5E 35 2F 33 30 29 3A 52 45 54 55 52 20+Q^5/30):RETUR
0135F0: 4E 0D 0A 34 34 30 20 50 52 49 4E 54 3A 50 52 49 N..440 PRINT:PRI
013600: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
013610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0136A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0136B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0136C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0136D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0136E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0136F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0137A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0137B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0137C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0137D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0137E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0137F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013800: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 NT:PRINT:PRINT "
013810: 54 52 59 20 41 47 41 49 4E 3F 3F 22 3A 20 47 4F TRY AGAIN??": GO
013820: 54 4F 20 37 30 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 TO 70...........
013830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0138A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0138B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0138C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0138D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0138E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0138F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0139A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0139B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0139C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0139D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0139E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0139F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013A00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
013A10: 3B 22 4C 55 4E 41 52 22 0D 0A 32 30 20 50 52 49 ;"LUNAR"..20 PRI
013A20: 4E 54 20 54 41 42 28 6C 35 29 3B 22 43 52 45 41 NT TAB(l5);"CREA
013A30: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 4D TIVE COMPUTING M
013A40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
013A50: 45 52 53 45 59 22 20 0D 0A 32 35 20 50 52 49 4E ERSEY" ..25 PRIN
013A60: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 33 T:PRINT:PRINT..3
013A70: 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 0 PRINT "THIS IS
013A80: 20 41 20 43 4F 4D 50 55 54 45 52 20 53 49 4D 55 A COMPUTER SIMU
013A90: 4C 41 54 49 4F 4E 20 4F 46 20 41 4E 20 41 50 4F LATION OF AN APO
013AA0: 4C 4C 4F 20 4C 55 4E 41 52 22 20 0D 0A 34 30 20 LLO LUNAR" ..40
013AB0: 50 52 49 4E 54 20 22 4C 41 4E 44 49 4E 47 20 43 PRINT "LANDING C
013AC0: 41 50 53 55 4C 45 2E 22 3A 20 50 52 49 4E 54 3A APSULE.": PRINT:
013AD0: 20 50 52 49 4E 54 0D 0A 35 30 20 50 52 49 4E 54 PRINT..50 PRINT
013AE0: 20 22 54 48 45 20 4F 4E 2D 42 4F 41 52 44 20 43 "THE ON-BOARD C
013AF0: 4F 4D 50 55 54 45 52 20 48 41 53 20 46 41 49 4C OMPUTER HAS FAIL
013B00: 45 44 20 28 49 54 20 57 41 53 20 4D 41 44 45 20 ED (IT WAS MADE
013B10: 42 59 22 20 0D 0A 36 30 20 50 52 49 4E 54 20 22 BY" ..60 PRINT "
013B20: 58 45 52 4F 58 29 20 53 4F 20 59 4F 55 20 48 41 XEROX) SO YOU HA
013B30: 56 45 20 54 4F 20 4C 41 4E 44 20 54 48 45 20 43 VE TO LAND THE C
013B40: 41 50 53 55 4C 45 20 4D 41 4E 55 41 4C 4C 59 2E APSULE MANUALLY.
013B50: 22 0D 0A 37 30 20 50 52 49 4E 54 3A 20 50 52 49 "..70 PRINT: PRI
013B60: 4E 54 20 22 53 45 54 20 42 55 52 4E 20 52 41 54 NT "SET BURN RAT
013B70: 45 20 4F 46 20 52 45 54 52 4F 20 52 4F 43 4B 45 E OF RETRO ROCKE
013B80: 54 53 20 54 4F 20 41 4E 59 20 56 41 4C 55 45 20 TS TO ANY VALUE
013B90: 42 45 54 57 45 45 4E 22 20 0D 0A 38 30 20 50 52 BETWEEN" ..80 PR
013BA0: 49 4E 54 20 22 30 20 28 46 52 45 45 20 46 41 4C INT "0 (FREE FAL
013BB0: 4C 29 20 41 4E 44 20 32 30 30 20 28 4D 41 58 49 L) AND 200 (MAXI
013BC0: 4D 55 4D 20 42 55 52 4E 29 20 50 4F 55 4E 44 53 MUM BURN) POUNDS
013BD0: 20 50 45 52 20 53 45 43 4F 4E 44 2E 22 20 0D 0A PER SECOND." ..
013BE0: 39 30 20 50 52 49 4E 54 20 22 53 45 54 20 4E 45 90 PRINT "SET NE
013BF0: 57 20 42 55 52 4E 20 52 41 54 45 20 45 56 45 52 W BURN RATE EVER
013C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E00: 59 20 31 30 20 53 45 43 4F 4E 44 53 2E 22 3A 20 Y 10 SECONDS.":
013E10: 50 52 49 4E 54 20 0D 0A 31 30 30 20 50 52 49 4E PRINT ..100 PRIN
013E20: 54 20 22 43 41 50 53 55 4C 45 20 57 45 49 47 48 T "CAPSULE WEIGH
013E30: 54 20 33 32 2C 35 30 30 20 4C 42 53 3B 20 46 55 T 32,500 LBS; FU
013E40: 45 4C 20 57 45 49 47 48 54 20 31 36 2C 35 30 30 EL WEIGHT 16,500
013E50: 20 4C 42 53 2E 22 0D 0A 31 31 30 20 50 52 49 4E LBS."..110 PRIN
013E60: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A T: PRINT: PRINT:
013E70: 20 50 52 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 PRINT "GOOD LUC
013E80: 4B 22 0D 0A 31 32 30 20 4C 3D 30 0D 0A 31 33 30 K"..120 L=0..130
013E90: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 53 PRINT: PRINT "S
013EA0: 45 43 22 2C 22 4D 49 20 2B 20 46 54 22 2C 22 4D EC","MI + FT","M
013EB0: 50 48 22 2C 22 4C 42 20 46 55 45 4C 22 2C 22 42 PH","LB FUEL","B
013EC0: 55 52 4E 20 52 41 54 45 22 3A 50 52 49 4E 54 20 URN RATE":PRINT
013ED0: 0D 0A 31 34 30 20 41 3D 31 32 30 3A 56 3D 31 3A ..140 A=120:V=1:
013EE0: 4D 3D 33 33 30 30 30 3A 4E 3D 31 36 35 30 30 3A M=33000:N=16500:
013EF0: 47 3D 31 45 2D 30 33 3A 5A 3D 31 2E 38 0D 0A 31 G=1E-03:Z=1.8..1
013F00: 35 30 20 50 52 49 4E 54 20 4C 2C 49 4E 54 28 41 50 PRINT L,INT(A
013F10: 29 3B 49 4E 54 28 35 32 38 30 2A 28 41 2D 49 4E );INT(5280*(A-IN
013F20: 54 28 41 29 29 29 2C 33 36 30 30 2A 56 2C 4D 2D T(A))),3600*V,M-
013F30: 4E 2C 3A 49 4E 50 55 54 20 4B 3A 54 3D 31 30 20 N,:INPUT K:T=10
013F40: 0D 0A 31 36 30 20 49 46 20 4D 2D 4E 3C 31 45 2D ..160 IF M-N<1E-
013F50: 30 33 20 54 48 45 4E 20 32 34 30 0D 0A 31 37 30 03 THEN 240..170
013F60: 20 49 46 20 54 3C 31 45 2D 30 33 20 54 48 45 4E IF T<1E-03 THEN
013F70: 20 31 35 30 0D 0A 31 38 30 20 53 3D 54 3A 20 49 150..180 S=T: I
013F80: 46 20 4D 3E 3D 4E 2B 53 2A 4B 20 54 48 45 4E 20 F M>=N+S*K THEN
013F90: 32 30 30 0D 0A 31 39 30 20 53 3D 28 4D 2D 4E 29 200..190 S=(M-N)
013FA0: 2F 4B 0D 0A 32 30 30 20 47 4F 53 55 42 20 34 32 /K..200 GOSUB 42
013FB0: 30 3A 20 49 46 20 49 3C 3D 4F 20 54 48 45 4E 20 0: IF I<=O THEN
013FC0: 33 34 30 0D 0A 32 31 30 20 49 46 20 56 3C 3D 30 340..210 IF V<=0
013FD0: 20 54 48 45 4E 20 32 33 30 0D 0A 32 32 30 20 49 THEN 230..220 I
013FE0: 46 20 4A 3C 30 20 54 48 45 4E 20 33 37 30 0D 0A F J<0 THEN 370..
013FF0: 32 33 30 20 47 4F 53 55 42 20 33 33 30 3A 20 47 230 GOSUB 330: G
014000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
014010: 22 4D 41 53 54 45 52 4D 49 4E 44 22 0D 0A 34 20 "MASTERMIND"..4
014020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
014030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
014040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
014050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 EW JERSEY"..6 PR
014060: 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E INT: PRINT: PRIN
014070: 54 0D 0A 31 30 20 52 45 4D 0D 0A 32 30 20 52 45 T..10 REM..20 RE
014080: 4D 20 20 20 20 20 4D 41 53 54 45 52 4D 49 4E 44 M MASTERMIND
014090: 20 49 49 0D 0A 33 30 20 52 45 4D 20 20 20 20 20 II..30 REM
0140A0: 53 54 45 56 45 20 4E 4F 52 54 48 0D 0A 34 30 20 STEVE NORTH..40
0140B0: 52 45 4D 20 20 20 20 20 43 52 45 41 54 49 56 45 REM CREATIVE
0140C0: 20 43 4F 4D 50 55 54 49 4E 47 0D 0A 35 30 20 52 COMPUTING..50 R
0140D0: 45 4D 20 20 20 20 20 50 4F 20 42 4F 58 20 37 38 EM PO BOX 78
0140E0: 39 2D 4D 20 4D 4F 52 52 49 53 54 4F 57 4E 20 4E 9-M MORRISTOWN N
0140F0: 45 57 20 4A 45 52 53 45 59 20 30 37 39 36 30 0D EW JERSEY 07960.
014100: 0A 36 30 20 52 45 4D 0D 0A 37 30 20 52 45 4D 0D .60 REM..70 REM.
014110: 0A 38 30 20 49 4E 50 55 54 20 22 4E 55 4D 42 45 .80 INPUT "NUMBE
014120: 52 20 4F 46 20 43 4F 4C 4F 52 53 22 3B 43 39 0D R OF COLORS";C9.
014130: 0A 39 30 20 49 46 20 43 39 3E 38 20 54 48 45 4E .90 IF C9>8 THEN
014140: 20 50 52 49 4E 54 20 22 4E 4F 20 4D 4F 52 45 20 PRINT "NO MORE
014150: 54 48 41 4E 20 38 2C 20 50 4C 45 41 53 45 21 22 THAN 8, PLEASE!"
014160: 3A 47 4F 54 4F 20 38 30 0D 0A 31 30 30 20 49 4E :GOTO 80..100 IN
014170: 50 55 54 20 22 4E 55 4D 42 45 52 20 4F 46 20 50 PUT "NUMBER OF P
014180: 4F 53 49 54 49 4F 4E 53 22 3B 50 39 0D 0A 31 31 OSITIONS";P9..11
014190: 30 20 49 4E 50 55 54 20 22 4E 55 4D 42 45 52 20 0 INPUT "NUMBER
0141A0: 4F 46 20 52 4F 55 4E 44 53 22 3B 52 39 0D 0A 31 OF ROUNDS";R9..1
0141B0: 32 30 20 50 3D 43 39 5E 50 39 0D 0A 31 33 30 20 20 P=C9^P9..130
0141C0: 50 52 49 4E 54 20 22 54 4F 54 41 4C 20 50 4F 53 PRINT "TOTAL POS
0141D0: 53 49 42 49 4C 49 54 49 45 53 20 3D 22 3B 50 0D SIBILITIES =";P.
0141E0: 0A 31 34 30 20 48 3D 30 3A 43 3D 30 0D 0A 31 35 .140 H=0:C=0..15
0141F0: 30 20 44 49 4D 20 51 28 50 39 29 2C 53 28 31 30 0 DIM Q(P9),S(10
014200: 4F 54 4F 20 31 36 30 0D 0A 32 34 30 20 50 52 49 OTO 160..240 PRI
014210: 4E 54 20 22 46 55 45 4C 20 4F 55 54 20 41 54 22 NT "FUEL OUT AT"
014220: 3B 4C 3B 22 53 45 43 4F 4E 44 53 22 3A 53 3D 28 ;L;"SECONDS":S=(
014230: 2D 56 2B 53 51 52 28 56 2A 56 2B 32 2A 41 2A 47 -V+SQR(V*V+2*A*G
014240: 29 29 2F 47 0D 0A 32 35 30 20 56 3D 56 2B 47 2A ))/G..250 V=V+G*
014250: 53 3A 20 4C 3D 4C 2B 53 0D 0A 32 36 30 20 57 3D S: L=L+S..260 W=
014260: 33 36 30 30 2A 56 3A 20 50 52 49 4E 54 20 22 4F 3600*V: PRINT "O
014270: 4E 20 4D 4F 4F 4E 20 41 54 22 3B 4C 3B 22 53 45 N MOON AT";L;"SE
014280: 43 4F 4E 44 53 20 2D 20 49 4D 50 41 43 54 20 56 CONDS - IMPACT V
014290: 45 4C 4F 43 49 54 59 22 3B 57 3B 22 4D 50 48 22 ELOCITY";W;"MPH"
0142A0: 20 0D 0A 32 37 34 20 49 46 20 57 3C 3D 31 2E 32 ..274 IF W<=1.2
0142B0: 20 54 48 45 4E 20 50 52 49 4E 54 20 22 50 45 52 THEN PRINT "PER
0142C0: 46 45 43 54 20 4C 41 4E 44 49 4E 47 21 22 3A 20 FECT LANDING!":
0142D0: 47 4F 54 4F 20 34 34 30 20 0D 0A 32 38 30 20 49 GOTO 440 ..280 I
0142E0: 46 20 57 3C 3D 31 30 20 54 48 45 4E 20 50 52 49 F W<=10 THEN PRI
0142F0: 4E 54 20 22 47 4F 4F 44 20 4C 41 4E 44 49 4E 47 NT "GOOD LANDING
014300: 20 28 43 4F 55 4C 44 20 52 45 20 42 45 54 54 45 (COULD RE BETTE
014310: 52 29 22 3A 47 4F 54 4F 20 34 34 30 20 0D 0A 32 R)":GOTO 440 ..2
014320: 38 32 20 49 46 20 57 3E 36 30 20 54 48 45 4E 20 82 IF W>60 THEN
014330: 33 30 30 0D 0A 32 38 34 20 50 52 49 4E 54 20 22 300..284 PRINT "
014340: 43 52 41 46 54 20 44 41 4D 41 47 45 2E 2E 2E 20 CRAFT DAMAGE...
014350: 59 4F 55 27 52 45 20 53 54 52 41 4E 44 45 44 20 YOU'RE STRANDED
014360: 48 45 52 45 20 55 4E 54 49 4C 20 41 20 52 45 53 HERE UNTIL A RES
014370: 43 55 45 22 20 0D 0A 32 38 36 20 50 52 49 4E 54 CUE" ..286 PRINT
014380: 20 22 50 41 52 54 59 20 41 52 52 49 56 45 53 2E "PARTY ARRIVES.
014390: 20 48 4F 50 45 20 59 4F 55 20 48 41 56 45 20 45 HOPE YOU HAVE E
0143A0: 4E 4F 55 47 48 20 4F 58 59 47 45 4E 21 22 20 0D NOUGH OXYGEN!" .
0143B0: 0A 32 38 38 20 47 4F 54 4F 20 34 34 30 0D 0A 33 .288 GOTO 440..3
0143C0: 30 30 20 50 52 49 4E 54 20 22 53 4F 52 52 59 20 00 PRINT "SORRY
0143D0: 54 48 45 52 45 20 4E 45 52 45 20 4E 4F 20 53 55 THERE NERE NO SU
0143E0: 52 56 49 56 4F 52 53 2E 20 59 4F 55 20 42 4C 4F RVIVORS. YOU BLO
0143F0: 57 20 49 54 21 22 0D 0A 33 31 30 20 50 52 49 4E W IT!"..310 PRIN
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 00 00 02 09 52 E5 11 00 C1 02 00 00 00 02 ......R.........
014420: 11 00 C6 02 00 00 00 02 11 00 C2 02 00 00 00 02 ................
014430: 11 00 C7 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014440: 11 00 C8 02 00 00 00 02 11 00 C4 02 00 00 00 02 ................
014450: 11 00 C9 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 2C 32 29 2C 53 24 28 31 30 29 2C 41 24 28 50 39 ,2),S$(10),A$(P9
014510: 29 2C 47 24 28 50 39 29 2C 49 28 50 29 2C 48 24 ),G$(P9),I(P),H$
014520: 28 50 39 29 0D 0A 31 36 30 20 4C 24 3D 22 42 57 (P9)..160 L$="BW
014530: 52 47 4F 59 50 54 22 0D 0A 31 37 30 20 50 52 49 RGOYPT"..170 PRI
014540: 4E 54 0D 0A 31 38 30 20 50 52 49 4E 54 0D 0A 31 NT..180 PRINT..1
014550: 39 30 20 50 52 49 4E 54 20 22 43 4F 4C 4F 52 20 90 PRINT "COLOR
014560: 20 20 20 20 4C 45 54 54 45 52 22 0D 0A 32 30 30 LETTER"..200
014570: 20 50 52 49 4E 54 20 22 3D 3D 3D 3D 3D 20 20 20 PRINT "=====
014580: 20 20 3D 3D 3D 3D 3D 3D 22 0D 0A 32 31 30 20 46 ======"..210 F
014590: 4F 52 20 58 3D 31 20 54 4F 20 43 39 0D 0A 32 32 OR X=1 TO C9..22
0145A0: 30 20 52 45 41 44 20 58 24 0D 0A 32 33 30 20 50 0 READ X$..230 P
0145B0: 52 49 4E 54 20 58 24 3B 54 41 42 28 31 33 29 3B RINT X$;TAB(13);
0145C0: 4D 49 44 24 28 4C 24 2C 58 2C 31 29 0D 0A 32 34 MID$(L$,X,1)..24
0145D0: 30 20 4E 45 58 54 20 58 0D 0A 32 35 30 20 50 52 0 NEXT X..250 PR
0145E0: 49 4E 54 0D 0A 32 36 30 20 46 4F 52 20 52 3D 31 INT..260 FOR R=1
0145F0: 20 54 4F 20 52 39 0D 0A 32 37 30 20 50 52 49 4E TO R9..270 PRIN
014600: 54 20 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 52 T ..280 PRINT "R
014610: 4F 55 4E 44 20 4E 55 4D 42 45 52 22 3B 52 3B 22 OUND NUMBER";R;"
014620: 2D 2D 2D 2D 22 0D 0A 32 39 30 20 50 52 49 4E 54 ----"..290 PRINT
014630: 0D 0A 33 30 30 20 50 52 49 4E 54 20 22 47 55 45 ..300 PRINT "GUE
014640: 53 53 20 4D 59 20 43 4F 4D 42 49 4E 41 54 49 4F SS MY COMBINATIO
014650: 4E 2E 22 3A 50 52 49 4E 54 0D 0A 33 31 30 20 52 N.":PRINT..310 R
014660: 45 4D 20 20 20 20 20 47 45 54 20 41 20 43 4F 4D EM GET A COM
014670: 42 49 4E 41 54 49 4F 4E 0D 0A 33 32 30 20 41 3D BINATION..320 A=
014680: 49 4E 54 28 50 2A 52 4E 44 28 31 29 2B 31 29 0D INT(P*RND(1)+1).
014690: 0A 33 33 30 20 47 4F 53 55 42 20 33 30 30 30 0D .330 GOSUB 3000.
0146A0: 0A 33 34 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 .340 FOR X=1 TO
0146B0: 41 0D 0A 33 35 30 20 47 4F 53 55 42 20 33 35 30 A..350 GOSUB 350
0146C0: 30 0D 0A 33 36 30 20 4E 45 58 54 20 58 0D 0A 33 0..360 NEXT X..3
0146D0: 37 30 20 46 4F 52 20 4D 3D 31 20 54 4F 20 31 30 70 FOR M=1 TO 10
0146E0: 0D 0A 33 38 30 20 50 52 49 4E 54 20 22 4D 4F 56 ..380 PRINT "MOV
0146F0: 45 20 23 20 22 3B 4D 3B 22 20 47 55 45 53 53 20 E # ";M;" GUESS
014700: 20 44 41 59 2E 22 0D 0A 31 31 31 30 20 47 4F 54 DAY."..1110 GOT
014710: 4F 20 31 31 33 30 0D 0A 31 31 32 30 20 50 52 49 O 1130..1120 PRI
014720: 4E 54 20 22 49 20 47 4F 54 20 49 54 20 49 4E 20 NT "I GOT IT IN
014730: 22 3B 4D 3B 22 20 4D 4F 56 45 53 21 22 0D 0A 31 ";M;" MOVES!"..1
014740: 31 33 30 20 43 3D 43 2B 4D 0D 0A 31 31 34 30 20 130 C=C+M..1140
014750: 47 4F 53 55 42 20 35 30 30 30 0D 0A 31 31 35 30 GOSUB 5000..1150
014760: 20 4E 45 58 54 20 52 0D 0A 31 31 36 30 20 50 52 NEXT R..1160 PR
014770: 49 4E 54 20 22 47 41 4D 45 20 4F 56 45 52 22 0D INT "GAME OVER".
014780: 0A 31 31 37 30 20 50 52 49 4E 54 20 22 46 49 4E .1170 PRINT "FIN
014790: 41 4C 20 53 43 4F 52 45 3A 22 0D 0A 31 31 38 30 AL SCORE:"..1180
0147A0: 20 47 4F 53 55 42 20 35 30 34 30 0D 0A 31 31 39 GOSUB 5040..119
0147B0: 30 20 53 54 4F 50 0D 0A 32 30 30 30 20 52 45 4D 0 STOP..2000 REM
0147C0: 0D 0A 32 30 31 30 20 52 45 4D 20 20 20 20 20 42 ..2010 REM B
0147D0: 4F 41 52 44 20 50 52 49 4E 54 4F 55 54 20 52 4F OARD PRINTOUT RO
0147E0: 55 54 49 4E 45 0D 0A 32 30 32 30 20 52 45 4D 0D UTINE..2020 REM.
0147F0: 0A 32 30 32 35 20 50 52 49 4E 54 0D 0A 32 30 33 .2025 PRINT..203
014800: 30 20 50 52 49 4E 54 20 22 42 4F 41 52 44 22 0D 0 PRINT "BOARD".
014810: 0A 32 30 34 30 20 50 52 49 4E 54 20 22 4D 4F 56 .2040 PRINT "MOV
014820: 45 20 20 20 20 20 47 55 45 53 53 20 20 20 20 20 E GUESS
014830: 20 20 20 20 20 42 4C 41 43 4B 20 20 20 20 20 57 BLACK W
014840: 48 49 54 45 22 0D 0A 32 30 35 30 20 46 4F 52 20 HITE"..2050 FOR
014850: 5A 3D 31 20 54 4F 20 4D 2D 31 0D 0A 32 30 36 30 Z=1 TO M-1..2060
014860: 20 50 52 49 4E 54 20 5A 3B 54 41 42 28 39 29 3B PRINT Z;TAB(9);
014870: 53 24 28 5A 29 3B 54 41 42 28 32 35 29 3B 53 28 S$(Z);TAB(25);S(
014880: 5A 2C 31 29 3B 54 41 42 28 33 35 29 3B 53 28 5A Z,1);TAB(35);S(Z
014890: 2C 32 29 0D 0A 32 30 37 30 20 4E 45 58 54 20 5A ,2)..2070 NEXT Z
0148A0: 0D 0A 32 30 37 35 20 50 52 49 4E 54 0D 0A 32 30 ..2075 PRINT..20
0148B0: 38 30 20 47 4F 54 4F 20 33 38 30 0D 0A 32 35 30 80 GOTO 380..250
0148C0: 30 20 52 45 4D 0D 0A 32 35 31 30 20 52 45 4D 20 0 REM..2510 REM
0148D0: 20 20 20 20 51 55 49 54 20 52 4F 55 54 49 4E 45 QUIT ROUTINE
0148E0: 0D 0A 32 35 32 30 20 52 45 4D 0D 0A 32 35 33 30 ..2520 REM..2530
0148F0: 20 50 52 49 4E 54 20 22 51 55 49 54 54 45 52 21 PRINT "QUITTER!
014900: 22 3B 3A 49 4E 50 55 54 20 58 24 0D 0A 33 39 30 ";:INPUT X$..390
014910: 20 49 46 20 58 24 3D 22 42 4F 41 52 44 22 20 54 IF X$="BOARD" T
014920: 48 45 4E 20 32 30 30 30 0D 0A 34 30 30 20 49 46 HEN 2000..400 IF
014930: 20 58 24 3D 22 51 55 49 54 22 20 54 48 45 4E 20 X$="QUIT" THEN
014940: 32 35 30 30 0D 0A 34 31 30 20 49 46 20 4C 45 4E 2500..410 IF LEN
014950: 28 58 24 29 3C 3E 50 39 20 54 48 45 4E 20 50 52 (X$)<>P9 THEN PR
014960: 49 4E 54 20 22 42 41 44 20 4E 55 4D 42 45 52 20 INT "BAD NUMBER
014970: 4F 46 20 50 4F 53 49 54 49 4F 4E 53 2E 22 3A 47 OF POSITIONS.":G
014980: 4F 54 4F 20 33 38 30 0D 0A 34 32 30 20 52 45 4D OTO 380..420 REM
014990: 20 20 20 20 20 55 4E 50 41 43 4B 20 58 24 20 49 UNPACK X$ I
0149A0: 4E 54 4F 20 47 24 28 31 2D 50 39 29 0D 0A 34 33 NTO G$(1-P9)..43
0149B0: 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 50 39 0D 0 FOR X=1 TO P9.
0149C0: 0A 34 34 30 20 46 4F 52 20 59 3D 31 20 54 4F 20 .440 FOR Y=1 TO
0149D0: 43 39 0D 0A 34 35 30 20 49 46 20 4D 49 44 24 28 C9..450 IF MID$(
0149E0: 58 24 2C 58 2C 31 29 3D 4D 49 44 24 28 4C 24 2C X$,X,1)=MID$(L$,
0149F0: 59 2C 31 29 20 54 48 45 4E 20 34 38 30 0D 0A 34 Y,1) THEN 480..4
014A00: 36 30 20 4E 45 58 54 20 59 0D 0A 34 37 30 20 50 60 NEXT Y..470 P
014A10: 52 49 4E 54 20 22 27 22 3B 20 4D 49 44 24 28 58 RINT "'"; MID$(X
014A20: 24 2C 58 2C 31 29 3B 20 22 27 20 49 53 20 55 4E $,X,1); "' IS UN
014A30: 52 45 43 4F 47 4E 49 5A 45 44 2E 22 3A 47 4F 54 RECOGNIZED.":GOT
014A40: 4F 20 33 38 30 0D 0A 34 38 30 20 47 24 28 58 29 O 380..480 G$(X)
014A50: 3D 4D 49 44 24 28 58 24 2C 58 2C 31 29 0D 0A 34 =MID$(X$,X,1)..4
014A60: 39 30 20 4E 45 58 54 20 58 0D 0A 35 30 30 20 52 90 NEXT X..500 R
014A70: 45 4D 20 20 20 20 20 4E 4F 57 20 57 45 20 43 4F EM NOW WE CO
014A80: 4E 56 45 52 54 20 51 28 31 2D 50 39 29 20 49 4E NVERT Q(1-P9) IN
014A90: 54 4F 20 41 24 28 31 2D 50 39 29 20 5B 41 43 54 TO A$(1-P9) [ACT
014AA0: 55 41 4C 20 47 55 45 53 53 5D 0D 0A 35 31 30 20 UAL GUESS]..510
014AB0: 47 4F 53 55 42 20 34 30 30 30 0D 0A 35 32 30 20 GOSUB 4000..520
014AC0: 52 45 4D 20 20 20 20 20 41 4E 44 20 47 45 54 20 REM AND GET
014AD0: 4E 55 4D 42 45 52 20 4F 46 20 42 4C 41 43 4B 53 NUMBER OF BLACKS
014AE0: 20 41 4E 44 20 57 48 49 54 45 53 0D 0A 35 33 30 AND WHITES..530
014AF0: 20 47 4F 53 55 42 20 34 35 30 30 0D 0A 35 34 30 GOSUB 4500..540
014B00: 20 20 4D 59 20 43 4F 4D 42 49 4E 41 54 49 4F 4E MY COMBINATION
014B10: 20 57 41 53 3A 20 22 3B 0D 0A 32 35 33 35 20 47 WAS: ";..2535 G
014B20: 4F 53 55 42 20 34 30 30 30 0D 0A 32 35 34 30 20 OSUB 4000..2540
014B30: 46 4F 52 20 58 3D 31 20 54 4F 20 50 39 0D 0A 32 FOR X=1 TO P9..2
014B40: 35 35 30 20 50 52 49 4E 54 20 41 24 28 58 29 3B 550 PRINT A$(X);
014B50: 0D 0A 32 35 36 30 20 4E 45 58 54 20 58 0D 0A 32 ..2560 NEXT X..2
014B60: 35 36 35 20 50 52 49 4E 54 0D 0A 32 35 37 30 20 565 PRINT..2570
014B70: 50 52 49 4E 54 20 22 47 4F 4F 44 20 42 59 45 22 PRINT "GOOD BYE"
014B80: 0D 0A 32 35 38 30 20 53 54 4F 50 0D 0A 33 30 30 ..2580 STOP..300
014B90: 30 20 52 45 4D 0D 0A 33 30 31 30 20 52 45 4D 20 0 REM..3010 REM
014BA0: 20 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 51 INITIALIZE Q
014BB0: 28 31 2D 50 39 29 20 54 4F 20 5A 45 52 4F 53 0D (1-P9) TO ZEROS.
014BC0: 0A 33 30 32 30 20 52 45 4D 0D 0A 33 30 33 30 20 .3020 REM..3030
014BD0: 46 4F 52 20 53 3D 31 20 54 4F 20 50 39 0D 0A 33 FOR S=1 TO P9..3
014BE0: 30 34 30 20 51 28 53 29 3D 30 0D 0A 33 30 35 30 040 Q(S)=0..3050
014BF0: 20 4E 45 58 54 20 53 0D 0A 33 30 36 30 20 52 45 NEXT S..3060 RE
014C00: 54 55 52 4E 0D 0A 33 35 30 30 20 52 45 4D 0D 0A TURN..3500 REM..
014C10: 33 35 31 30 20 52 45 4D 20 20 20 20 20 49 4E 43 3510 REM INC
014C20: 52 45 4D 45 4E 54 20 51 28 31 2D 50 39 29 0D 0A REMENT Q(1-P9)..
014C30: 33 35 32 30 20 52 45 4D 0D 0A 33 35 32 32 20 49 3520 REM..3522 I
014C40: 46 20 51 28 31 29 3E 30 20 54 48 45 4E 20 33 35 F Q(1)>0 THEN 35
014C50: 33 30 0D 0A 33 35 32 34 20 52 45 4D 20 20 49 46 30..3524 REM IF
014C60: 20 5A 45 52 4F 2C 20 54 48 49 53 20 49 53 20 4F ZERO, THIS IS O
014C70: 55 52 20 46 49 52 53 54 20 49 4E 43 52 45 4D 45 UR FIRST INCREME
014C80: 4E 54 3A 20 4D 41 4B 45 20 41 4C 4C 20 4F 4E 45 NT: MAKE ALL ONE
014C90: 53 0D 0A 33 35 32 36 20 46 4F 52 20 53 3D 31 20 S..3526 FOR S=1
014CA0: 54 4F 20 50 39 0D 0A 33 35 32 37 20 51 28 53 29 TO P9..3527 Q(S)
014CB0: 3D 31 0D 0A 33 35 32 38 20 4E 45 58 54 20 53 0D =1..3528 NEXT S.
014CC0: 0A 33 35 32 39 20 52 45 54 55 52 4E 0D 0A 33 35 .3529 RETURN..35
014CD0: 33 30 20 51 3D 31 0D 0A 33 35 34 30 20 51 28 51 30 Q=1..3540 Q(Q
014CE0: 29 3D 51 28 51 29 2B 31 0D 0A 33 35 35 30 20 49 )=Q(Q)+1..3550 I
014CF0: 46 20 51 28 51 29 3C 3D 43 39 20 54 48 45 4E 20 F Q(Q)<=C9 THEN
014D00: 20 49 46 20 42 3D 50 39 20 54 48 45 4E 20 36 33 IF B=P9 THEN 63
014D10: 30 0D 0A 35 35 30 20 52 45 4D 20 20 20 20 20 54 0..550 REM T
014D20: 45 4C 4C 20 48 55 4D 41 4E 20 52 45 53 55 4C 54 ELL HUMAN RESULT
014D30: 53 0D 0A 35 36 30 20 50 52 49 4E 54 20 22 59 4F S..560 PRINT "YO
014D40: 55 20 48 41 56 45 20 22 3B 42 3B 22 20 42 4C 41 U HAVE ";B;" BLA
014D50: 43 4B 53 20 41 4E 44 20 22 3B 57 3B 22 20 57 48 CKS AND ";W;" WH
014D60: 49 54 45 53 2E 22 0D 0A 35 37 30 20 52 45 4D 20 ITES."..570 REM
014D70: 20 20 20 20 53 41 56 45 20 41 4C 4C 20 54 48 49 SAVE ALL THI
014D80: 53 20 53 54 55 46 46 20 46 4F 52 20 42 4F 41 52 S STUFF FOR BOAR
014D90: 44 20 50 52 49 4E 54 4F 55 54 20 4C 41 54 45 52 D PRINTOUT LATER
014DA0: 0D 0A 35 38 30 20 53 24 28 4D 29 3D 58 24 0D 0A ..580 S$(M)=X$..
014DB0: 35 39 30 20 53 28 4D 2C 31 29 3D 42 0D 0A 36 30 590 S(M,1)=B..60
014DC0: 30 20 53 28 4D 2C 32 29 3D 57 0D 0A 36 31 30 20 0 S(M,2)=W..610
014DD0: 4E 45 58 54 20 4D 0D 0A 36 32 30 20 50 52 49 4E NEXT M..620 PRIN
014DE0: 54 20 22 59 4F 55 20 52 41 4E 20 4F 55 54 20 4F T "YOU RAN OUT O
014DF0: 46 20 4D 4F 56 45 53 21 20 20 54 48 41 54 27 53 F MOVES! THAT'S
014E00: 20 41 4C 4C 20 59 4F 55 20 47 45 54 21 22 3A 47 ALL YOU GET!":G
014E10: 4F 54 4F 20 36 34 30 0D 0A 36 32 32 20 47 4F 53 OTO 640..622 GOS
014E20: 55 42 20 34 30 30 30 0D 0A 36 32 33 20 50 52 49 UB 4000..623 PRI
014E30: 4E 54 20 22 54 48 45 20 41 43 54 55 41 4C 20 43 NT "THE ACTUAL C
014E40: 4F 4D 42 49 4E 41 54 49 4F 4E 20 57 41 53 3A 20 OMBINATION WAS:
014E50: 22 3B 0D 0A 36 32 34 20 46 4F 52 20 58 3D 31 20 ";..624 FOR X=1
014E60: 54 4F 20 50 39 0D 0A 36 32 35 20 50 52 49 4E 54 TO P9..625 PRINT
014E70: 20 41 24 28 58 29 3B 0D 0A 36 32 36 20 4E 45 58 A$(X);..626 NEX
014E80: 54 20 58 0D 0A 36 32 37 20 50 52 49 4E 54 0D 0A T X..627 PRINT..
014E90: 36 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 47 630 PRINT "YOU G
014EA0: 55 45 53 53 45 44 20 49 54 20 49 4E 20 22 3B 4D UESSED IT IN ";M
014EB0: 3B 22 20 4D 4F 56 45 53 21 22 0D 0A 36 34 30 20 ;" MOVES!"..640
014EC0: 48 3D 48 2B 4D 0D 0A 36 35 30 20 47 4F 53 55 42 H=H+M..650 GOSUB
014ED0: 20 35 30 30 30 0D 0A 36 36 30 20 52 45 4D 0D 0A 5000..660 REM..
014EE0: 36 37 30 20 52 45 4D 20 20 20 20 20 4E 4F 57 20 670 REM NOW
014EF0: 43 4F 4D 50 55 54 45 52 20 47 55 45 53 53 45 53 COMPUTER GUESSES
014F00: 52 45 54 55 52 4E 0D 0A 33 35 36 30 20 51 28 51 RETURN..3560 Q(Q
014F10: 29 3D 31 0D 0A 33 35 37 30 20 51 3D 51 2B 31 0D )=1..3570 Q=Q+1.
014F20: 0A 33 35 38 30 20 47 4F 54 4F 20 33 35 34 30 0D .3580 GOTO 3540.
014F30: 0A 34 30 30 30 20 52 45 4D 0D 0A 34 30 31 30 20 .4000 REM..4010
014F40: 52 45 4D 20 20 20 20 20 43 4F 4E 56 45 52 54 20 REM CONVERT
014F50: 51 28 31 2D 50 39 29 20 54 4F 20 41 24 28 31 2D Q(1-P9) TO A$(1-
014F60: 50 39 29 0D 0A 34 30 32 30 20 52 45 4D 0D 0A 34 P9)..4020 REM..4
014F70: 30 33 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 50 030 FOR S=1 TO P
014F80: 39 0D 0A 34 30 34 30 20 41 24 28 53 29 3D 4D 49 9..4040 A$(S)=MI
014F90: 44 24 28 4C 24 2C 51 28 53 29 2C 31 29 0D 0A 34 D$(L$,Q(S),1)..4
014FA0: 30 35 30 20 4E 45 58 54 20 53 0D 0A 34 30 36 30 050 NEXT S..4060
014FB0: 20 52 45 54 55 52 4E 0D 0A 34 35 30 30 20 52 45 RETURN..4500 RE
014FC0: 4D 0D 0A 34 35 31 30 20 52 45 4D 20 20 20 20 20 M..4510 REM
014FD0: 47 45 54 20 4E 55 4D 42 45 52 20 4F 46 20 42 4C GET NUMBER OF BL
014FE0: 41 43 4B 53 20 28 42 29 20 41 4E 44 20 57 48 49 ACKS (B) AND WHI
014FF0: 54 45 53 20 28 57 29 0D 0A 34 35 32 30 20 52 45 TES (W)..4520 RE
015000: 4D 20 20 20 20 20 4D 41 53 48 45 53 20 47 24 20 M MASHES G$
015010: 41 4E 44 20 41 24 20 49 4E 20 54 48 45 20 50 52 AND A$ IN THE PR
015020: 4F 43 45 53 53 0D 0A 34 35 33 30 20 52 45 4D 0D OCESS..4530 REM.
015030: 0A 34 35 34 30 20 42 3D 30 3A 57 3D 30 3A 46 3D .4540 B=0:W=0:F=
015040: 30 0D 0A 34 35 35 30 20 46 4F 52 20 53 3D 31 20 0..4550 FOR S=1
015050: 54 4F 20 50 39 0D 0A 34 35 36 30 20 49 46 20 47 TO P9..4560 IF G
015060: 24 28 53 29 3C 3E 41 24 28 53 29 20 54 48 45 4E $(S)<>A$(S) THEN
015070: 20 34 36 32 30 0D 0A 34 35 37 30 20 42 3D 42 2B 4620..4570 B=B+
015080: 31 0D 0A 34 35 38 30 20 47 24 28 53 29 3D 43 48 1..4580 G$(S)=CH
015090: 52 24 28 46 29 0D 0A 34 35 39 30 20 41 24 28 53 R$(F)..4590 A$(S
0150A0: 29 3D 43 48 52 24 28 46 2B 31 29 0D 0A 34 36 30 )=CHR$(F+1)..460
0150B0: 30 20 46 3D 46 2B 32 0D 0A 34 36 31 30 20 47 4F 0 F=F+2..4610 GO
0150C0: 54 4F 20 34 36 36 30 0D 0A 34 36 32 30 20 46 4F TO 4660..4620 FO
0150D0: 52 20 54 3D 31 20 54 4F 20 50 39 0D 0A 34 36 33 R T=1 TO P9..463
0150E0: 30 20 49 46 20 47 24 28 53 29 3C 3E 41 24 28 54 0 IF G$(S)<>A$(T
0150F0: 29 20 54 48 45 4E 20 34 36 35 30 0D 0A 34 36 34 ) THEN 4650..464
015100: 0D 0A 36 38 30 20 52 45 4D 0D 0A 36 39 30 20 46 ..680 REM..690 F
015110: 4F 52 20 58 3D 31 20 54 4F 20 50 0D 0A 37 30 30 OR X=1 TO P..700
015120: 20 49 28 58 29 3D 31 0D 0A 37 31 30 20 4E 45 58 I(X)=1..710 NEX
015130: 54 20 58 0D 0A 37 32 30 20 50 52 49 4E 54 20 22 T X..720 PRINT "
015140: 4E 4F 57 20 49 20 47 55 45 53 53 2E 20 20 54 48 NOW I GUESS. TH
015150: 49 4E 4B 20 4F 46 20 41 20 43 4F 4D 42 49 4E 41 INK OF A COMBINA
015160: 54 49 4F 4E 2E 22 0D 0A 37 33 30 20 49 4E 50 55 TION."..730 INPU
015170: 54 20 22 48 49 54 20 52 45 54 55 52 4E 20 57 48 T "HIT RETURN WH
015180: 45 4E 20 52 45 41 44 59 3A 22 3B 58 24 0D 0A 37 EN READY:";X$..7
015190: 34 30 20 46 4F 52 20 4D 3D 31 20 54 4F 20 31 30 40 FOR M=1 TO 10
0151A0: 0D 0A 37 35 30 20 47 4F 53 55 42 20 33 30 30 30 ..750 GOSUB 3000
0151B0: 0D 0A 37 36 30 20 52 45 4D 20 20 20 20 20 46 49 ..760 REM FI
0151C0: 4E 44 20 41 20 47 55 45 53 53 0D 0A 37 37 30 20 ND A GUESS..770
0151D0: 47 3D 49 4E 54 28 50 2A 52 4E 44 28 31 29 2B 31 G=INT(P*RND(1)+1
0151E0: 29 0D 0A 37 38 30 20 49 46 20 49 28 47 29 3D 31 )..780 IF I(G)=1
0151F0: 20 54 48 45 4E 20 38 39 30 0D 0A 37 39 30 20 46 THEN 890..790 F
015200: 4F 52 20 58 3D 47 20 54 4F 20 50 0D 0A 38 30 30 OR X=G TO P..800
015210: 20 49 46 20 49 28 58 29 3D 31 20 54 48 45 4E 20 IF I(X)=1 THEN
015220: 38 38 30 0D 0A 38 31 30 20 4E 45 58 54 20 58 0D 880..810 NEXT X.
015230: 0A 38 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 .820 FOR X=1 TO
015240: 47 0D 0A 38 33 30 20 49 46 20 49 28 58 29 3D 31 G..830 IF I(X)=1
015250: 20 54 48 45 4E 20 38 38 30 0D 0A 38 34 30 20 4E THEN 880..840 N
015260: 45 58 54 20 58 0D 0A 38 35 30 20 50 52 49 4E 54 EXT X..850 PRINT
015270: 20 22 59 4F 55 20 48 41 56 45 20 47 49 56 45 4E "YOU HAVE GIVEN
015280: 20 4D 45 20 49 4E 43 4F 4E 53 49 53 54 45 4E 54 ME INCONSISTENT
015290: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 2E 22 0D 0A INFORMATION."..
0152A0: 38 36 30 20 50 52 49 4E 54 20 22 54 52 59 20 41 860 PRINT "TRY A
0152B0: 47 41 49 4E 2C 20 41 4E 44 20 54 48 49 53 20 54 GAIN, AND THIS T
0152C0: 49 4D 45 20 50 4C 45 41 53 45 20 42 45 20 4D 4F IME PLEASE BE MO
0152D0: 52 45 20 43 41 52 45 46 55 4C 2E 22 0D 0A 38 37 RE CAREFUL."..87
0152E0: 30 20 47 4F 54 4F 20 36 36 30 0D 0A 38 38 30 20 0 GOTO 660..880
0152F0: 47 3D 58 0D 0A 38 39 30 20 52 45 4D 20 20 20 20 G=X..890 REM
015300: 30 20 49 46 20 47 24 28 54 29 3D 41 24 28 54 29 0 IF G$(T)=A$(T)
015310: 20 54 48 45 4E 20 34 36 35 30 0D 0A 34 36 34 35 THEN 4650..4645
015320: 20 57 3D 57 2B 31 3A 41 24 28 54 29 3D 43 48 52 W=W+1:A$(T)=CHR
015330: 24 28 46 29 3A 47 24 28 53 29 3D 43 48 52 24 28 $(F):G$(S)=CHR$(
015340: 46 2B 31 29 3A 46 3D 46 2B 32 3A 47 4F 54 4F 20 F+1):F=F+2:GOTO
015350: 34 36 36 30 0D 0A 34 36 35 30 20 4E 45 58 54 20 4660..4650 NEXT
015360: 54 0D 0A 34 36 36 30 20 4E 45 58 54 20 53 0D 0A T..4660 NEXT S..
015370: 34 36 37 30 20 52 45 54 55 52 4E 0D 0A 35 30 30 4670 RETURN..500
015380: 30 20 52 45 4D 0D 0A 35 30 31 30 20 52 45 4D 20 0 REM..5010 REM
015390: 20 20 20 20 50 52 49 4E 54 20 53 43 4F 52 45 0D PRINT SCORE.
0153A0: 0A 35 30 32 30 20 52 45 4D 0D 0A 35 30 33 30 20 .5020 REM..5030
0153B0: 50 52 49 4E 54 20 22 53 43 4F 52 45 3A 22 0D 0A PRINT "SCORE:"..
0153C0: 35 30 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 5040 PRINT "
0153D0: 20 43 4F 4D 50 55 54 45 52 20 22 3B 43 0D 0A 35 COMPUTER ";C..5
0153E0: 30 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 050 PRINT "
0153F0: 48 55 4D 41 4E 20 20 20 20 22 3B 48 0D 0A 35 30 HUMAN ";H..50
015400: 36 30 20 50 52 49 4E 54 0D 0A 35 30 37 30 20 52 60 PRINT..5070 R
015410: 45 54 55 52 4E 0D 0A 35 35 30 30 20 52 45 4D 0D ETURN..5500 REM.
015420: 0A 35 35 31 30 20 52 45 4D 20 20 20 20 20 43 4F .5510 REM CO
015430: 4E 56 45 52 54 20 51 28 31 2D 50 39 29 20 49 4E NVERT Q(1-P9) IN
015440: 54 4F 20 47 24 28 31 2D 50 39 29 0D 0A 35 35 32 TO G$(1-P9)..552
015450: 30 20 52 45 4D 0D 0A 35 35 33 30 20 46 4F 52 20 0 REM..5530 FOR
015460: 53 3D 31 20 54 4F 20 50 39 0D 0A 35 35 34 30 20 S=1 TO P9..5540
015470: 47 24 28 53 29 3D 4D 49 44 24 28 4C 24 2C 51 28 G$(S)=MID$(L$,Q(
015480: 53 29 2C 31 29 0D 0A 35 35 35 30 20 4E 45 58 54 S),1)..5550 NEXT
015490: 20 53 0D 0A 35 35 36 30 20 52 45 54 55 52 4E 0D S..5560 RETURN.
0154A0: 0A 36 30 30 30 20 52 45 4D 0D 0A 36 30 31 30 20 .6000 REM..6010
0154B0: 52 45 4D 20 20 20 20 20 43 4F 4E 56 45 52 54 20 REM CONVERT
0154C0: 51 28 31 2D 50 39 29 20 54 4F 20 48 24 28 31 2D Q(1-P9) TO H$(1-
0154D0: 50 39 29 0D 0A 36 30 32 30 20 52 45 4D 0D 0A 36 P9)..6020 REM..6
0154E0: 30 33 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 50 030 FOR S=1 TO P
0154F0: 39 0D 0A 36 30 34 30 20 48 24 28 53 29 3D 4D 49 9..6040 H$(S)=MI
015500: 20 4E 4F 57 20 57 45 20 43 4F 4E 56 45 52 54 20 NOW WE CONVERT
015510: 47 55 45 53 53 20 23 47 20 49 4E 54 4F 20 47 24 GUESS #G INTO G$
015520: 0D 0A 39 30 30 20 46 4F 52 20 58 3D 31 20 54 4F ..900 FOR X=1 TO
015530: 20 47 0D 0A 39 31 30 20 47 4F 53 55 42 20 33 35 G..910 GOSUB 35
015540: 30 30 0D 0A 39 32 30 20 4E 45 58 54 20 58 0D 0A 00..920 NEXT X..
015550: 39 33 30 20 47 4F 53 55 42 20 36 30 30 30 0D 0A 930 GOSUB 6000..
015560: 39 34 30 20 50 52 49 4E 54 20 22 4D 59 20 47 55 940 PRINT "MY GU
015570: 45 53 53 20 49 53 3A 20 22 3B 0D 0A 39 35 30 20 ESS IS: ";..950
015580: 46 4F 52 20 58 3D 31 20 54 4F 20 50 39 0D 0A 39 FOR X=1 TO P9..9
015590: 36 30 20 50 52 49 4E 54 20 48 24 28 58 29 3B 0D 60 PRINT H$(X);.
0155A0: 0A 39 37 30 20 4E 45 58 54 20 58 0D 0A 39 38 30 .970 NEXT X..980
0155B0: 20 49 4E 50 55 54 20 22 20 20 42 4C 41 43 4B 53 INPUT " BLACKS
0155C0: 2C 20 57 48 49 54 45 53 20 22 3B 42 31 2C 57 31 , WHITES ";B1,W1
0155D0: 0D 0A 39 39 30 20 49 46 20 42 31 3D 50 39 20 54 ..990 IF B1=P9 T
0155E0: 48 45 4E 20 31 31 32 30 0D 0A 31 30 30 30 20 47 HEN 1120..1000 G
0155F0: 4F 53 55 42 20 33 30 30 30 0D 0A 31 30 31 30 20 OSUB 3000..1010
015600: 46 4F 52 20 58 3D 31 20 54 4F 20 50 0D 0A 31 30 FOR X=1 TO P..10
015610: 32 30 20 47 4F 53 55 42 20 33 35 30 30 0D 0A 31 20 GOSUB 3500..1
015620: 30 33 30 20 49 46 20 49 28 58 29 3D 30 20 54 48 030 IF I(X)=0 TH
015630: 45 4E 20 31 30 37 30 0D 0A 31 30 33 35 20 47 4F EN 1070..1035 GO
015640: 53 55 42 20 36 35 30 30 0D 0A 31 30 34 30 20 47 SUB 6500..1040 G
015650: 4F 53 55 42 20 34 30 30 30 0D 0A 31 30 35 30 20 OSUB 4000..1050
015660: 47 4F 53 55 42 20 34 35 30 30 0D 0A 31 30 36 30 GOSUB 4500..1060
015670: 20 49 46 20 42 31 3C 3E 42 20 4F 52 20 57 31 3C IF B1<>B OR W1<
015680: 3E 57 20 54 48 45 4E 20 49 28 58 29 3D 30 0D 0A >W THEN I(X)=0..
015690: 31 30 37 30 20 4E 45 58 54 20 58 0D 0A 31 30 38 1070 NEXT X..108
0156A0: 30 20 4E 45 58 54 20 4D 0D 0A 31 30 39 30 20 50 0 NEXT M..1090 P
0156B0: 52 49 4E 54 20 22 49 20 55 53 45 44 20 55 50 20 RINT "I USED UP
0156C0: 41 4C 4C 20 4D 59 20 4D 4F 56 45 53 21 22 0D 0A ALL MY MOVES!"..
0156D0: 31 31 30 30 20 50 52 49 4E 54 20 22 49 20 47 55 1100 PRINT "I GU
0156E0: 45 53 53 20 4D 59 20 43 50 55 20 49 53 20 4A 55 ESS MY CPU IS JU
0156F0: 53 54 20 48 41 56 49 4E 47 20 41 4E 20 4F 46 46 ST HAVING AN OFF
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 00 00 02 09 52 E5 12 00 C1 02 00 00 00 02 ......R.........
015720: 12 00 C6 02 00 00 00 02 12 00 C2 02 00 00 00 02 ................
015730: 12 00 C7 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015740: 12 00 C8 02 00 00 00 02 12 00 C4 02 00 00 00 02 ................
015750: 12 00 C9 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 44 24 28 4C 24 2C 51 28 53 29 2C 31 29 0D 0A 36 D$(L$,Q(S),1)..6
015810: 30 35 30 20 4E 45 58 54 20 53 0D 0A 36 30 36 30 050 NEXT S..6060
015820: 20 52 45 54 55 52 4E 0D 0A 36 35 30 30 20 52 45 RETURN..6500 RE
015830: 4D 0D 0A 36 35 31 30 20 52 45 4D 20 20 20 20 20 M..6510 REM
015840: 43 4F 50 59 20 48 24 20 49 4E 54 4F 20 47 24 0D COPY H$ INTO G$.
015850: 0A 36 35 32 30 20 52 45 4D 0D 0A 36 35 33 30 20 .6520 REM..6530
015860: 46 4F 52 20 53 3D 31 20 54 4F 20 50 39 0D 0A 36 FOR S=1 TO P9..6
015870: 35 34 30 20 47 24 28 53 29 3D 48 24 28 53 29 0D 540 G$(S)=H$(S).
015880: 0A 36 35 35 30 20 4E 45 58 54 20 53 0D 0A 36 35 .6550 NEXT S..65
015890: 36 30 20 52 45 54 55 52 4E 0D 0A 38 30 30 30 20 60 RETURN..8000
0158A0: 52 45 4D 20 20 20 20 20 50 52 4F 47 52 41 4D 20 REM PROGRAM
0158B0: 44 41 54 41 20 46 4F 52 20 43 4F 4C 4F 52 20 4E DATA FOR COLOR N
0158C0: 41 4D 45 53 0D 0A 38 30 31 30 20 44 41 54 41 20 AMES..8010 DATA
0158D0: 42 4C 41 43 4B 2C 57 48 49 54 45 2C 52 45 44 2C BLACK,WHITE,RED,
0158E0: 47 52 45 45 4E 2C 4F 52 41 4E 47 45 2C 59 45 4C GREEN,ORANGE,YEL
0158F0: 4C 4F 57 2C 50 55 52 50 4C 45 2C 54 41 4E 0D 0A LOW,PURPLE,TAN..
015900: 39 39 39 38 20 52 45 4D 20 20 20 2E 2E 2E 57 45 9998 REM ...WE
015910: 27 52 45 20 53 4F 52 52 59 20 42 55 54 20 49 54 'RE SORRY BUT IT
015920: 27 53 20 54 49 4D 45 20 54 4F 20 47 4F 2E 2E 2E 'S TIME TO GO...
015930: 0D 0A 39 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 ..9999 END......
015940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0159A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0159B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0159C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0159D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0159E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0159F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015E00: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
015E10: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
015E20: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
015E30: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
015E40: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
015E50: 0D 0A 21 20 20 20 20 20 20 20 20 20 20 20 20 20 ..!
015E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015EA0: 20 21 0D 0A 21 20 4D 49 4E 45 20 20 20 20 20 20 !..! MINE
015EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015EF0: 20 20 20 21 0D 0A 21 20 20 20 20 20 20 20 20 20 !..!
015F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015F40: 20 20 20 20 20 21 0D 0A 21 20 4D 69 6E 65 20 69 !..! Mine i
015F50: 73 20 74 68 65 20 63 6C 61 73 73 69 63 20 67 61 s the classic ga
015F60: 6D 65 20 77 68 65 72 65 20 61 20 66 69 65 6C 64 me where a field
015F70: 20 6F 66 20 68 69 64 64 65 6E 20 6D 69 6E 65 73 of hidden mines
015F80: 20 69 73 20 70 72 65 73 65 6E 74 65 64 2C 20 61 is presented, a
015F90: 6E 64 20 74 68 65 20 21 0D 0A 21 20 75 73 65 72 nd the !..! user
015FA0: 20 74 72 69 65 73 20 74 6F 20 66 69 6E 64 20 74 tries to find t
015FB0: 68 65 20 6D 69 6E 65 73 20 62 61 73 65 64 20 6F he mines based o
015FC0: 6E 20 6D 69 6E 65 20 63 6F 75 6E 74 73 20 69 6E n mine counts in
015FD0: 20 61 64 6A 61 63 65 6E 74 20 73 71 75 61 72 65 adjacent square
015FE0: 73 2E 20 20 20 20 20 20 20 21 0D 0A 21 20 20 20 s. !..!
015FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 10 PRINT TAB(31)
016010: 3B 22 4D 41 54 48 20 44 49 43 45 22 0D 0A 32 30 ;"MATH DICE"..20
016020: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
016030: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
016040: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
016050: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 NEW JERSEY"..30
016060: 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E PRINT:PRINT:PRIN
016070: 54 0D 0A 34 30 20 50 52 49 4E 54 20 22 54 48 49 T..40 PRINT "THI
016080: 53 20 50 52 4F 47 52 41 4D 20 47 45 4E 45 52 41 S PROGRAM GENERA
016090: 54 45 53 20 53 55 43 43 45 53 49 56 45 20 50 49 TES SUCCESIVE PI
0160A0: 43 54 55 52 45 53 20 4F 46 20 54 57 4F 20 44 49 CTURES OF TWO DI
0160B0: 43 45 2E 22 0D 0A 35 30 20 50 52 49 4E 54 20 22 CE."..50 PRINT "
0160C0: 57 48 45 4E 20 54 57 4F 20 44 49 43 45 20 41 4E WHEN TWO DICE AN
0160D0: 44 20 41 4E 20 45 51 55 41 4C 20 53 49 47 4E 20 D AN EQUAL SIGN
0160E0: 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 20 51 55 FOLLOWED BY A QU
0160F0: 45 53 54 49 4F 4E 22 0D 0A 36 30 20 50 52 49 4E ESTION"..60 PRIN
016100: 54 20 22 4D 41 52 4B 20 48 41 56 45 20 42 45 45 T "MARK HAVE BEE
016110: 4E 20 50 52 49 4E 54 45 44 2C 20 54 59 50 45 20 N PRINTED, TYPE
016120: 59 4F 55 52 20 41 4E 53 57 45 52 20 41 4E 44 20 YOUR ANSWER AND
016130: 54 48 45 20 52 45 54 55 52 4E 20 4B 45 59 2E 22 THE RETURN KEY."
016140: 0D 0A 37 30 20 50 52 49 4E 54 20 22 54 4F 20 43 ..70 PRINT "TO C
016150: 4F 4E 43 4C 55 44 45 20 54 48 45 20 4C 45 53 53 ONCLUDE THE LESS
016160: 4F 4E 2C 20 54 59 50 45 20 43 4F 4E 54 52 4F 4C ON, TYPE CONTROL
016170: 2D 43 20 41 53 20 59 4F 55 52 20 41 4E 53 57 45 -C AS YOUR ANSWE
016180: 52 2E 22 0D 0A 38 30 20 50 52 49 4E 54 0D 0A 39 R."..80 PRINT..9
016190: 30 20 50 52 49 4E 54 0D 0A 31 30 30 20 4E 3D 4E 0 PRINT..100 N=N
0161A0: 2B 31 0D 0A 31 31 30 20 44 3D 49 4E 54 28 36 2A +1..110 D=INT(6*
0161B0: 52 4E 44 28 31 29 2B 31 29 0D 0A 31 32 30 20 50 RND(1)+1)..120 P
0161C0: 52 49 4E 54 22 20 2D 2D 2D 2D 2D 20 22 0D 0A 31 RINT" ----- "..1
0161D0: 33 30 20 49 46 20 44 3D 31 20 54 48 45 4E 20 32 30 IF D=1 THEN 2
0161E0: 30 30 0D 0A 31 34 30 20 49 46 20 44 3D 32 20 54 00..140 IF D=2 T
0161F0: 48 45 4E 20 31 38 30 0D 0A 31 35 30 20 49 46 20 HEN 180..150 IF
016200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016230: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 21 20 !..!
016240: 44 65 72 69 76 65 64 20 66 72 6F 6D 20 74 68 65 Derived from the
016250: 20 50 61 73 63 61 6C 20 76 65 72 73 69 6F 6E 2E Pascal version.
016260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016280: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
016290: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0162A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0162B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0162C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0162D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
0162E0: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
0162F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016300: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016310: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016320: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016330: 21 21 0D 0A 0D 0A 21 20 68 65 6C 70 65 72 20 64 !!....! helper d
016340: 65 66 69 6E 65 73 0D 0A 0D 0A 66 61 6C 73 65 25 efines....false%
016350: 20 3D 20 30 0D 0A 74 72 75 65 25 20 3D 20 2D 31 = 0..true% = -1
016360: 0D 0A 0D 0A 21 20 63 6F 6C 6F 72 73 0D 0A 0D 0A ....! colors....
016370: 62 6C 61 63 6B 25 20 20 20 3D 20 30 0D 0A 77 68 black% = 0..wh
016380: 69 74 65 25 20 20 20 3D 20 31 0D 0A 72 65 64 25 ite% = 1..red%
016390: 20 20 20 20 20 3D 20 32 0D 0A 67 72 65 65 6E 25 = 2..green%
0163A0: 20 20 20 3D 20 33 0D 0A 62 6C 75 65 25 20 20 20 = 3..blue%
0163B0: 20 3D 20 34 0D 0A 63 79 61 6E 25 20 20 20 20 3D = 4..cyan% =
0163C0: 20 35 0D 0A 79 65 6C 6C 6F 77 25 20 20 3D 20 36 5..yellow% = 6
0163D0: 0D 0A 6D 61 67 65 6E 74 61 25 20 3D 20 37 0D 0A ..magenta% = 7..
0163E0: 0D 0A 21 20 65 76 65 6E 74 73 0D 0A 0D 0A 65 74 ..! events....et
0163F0: 63 68 61 72 25 20 20 20 20 3D 20 30 20 20 21 20 char% = 0 !
016400: 44 3D 33 20 54 48 45 4E 20 31 38 30 0D 0A 31 36 D=3 THEN 180..16
016410: 30 20 50 52 49 4E 54 20 22 49 20 2A 20 2A 20 49 0 PRINT "I * * I
016420: 22 0D 0A 31 37 30 20 47 4F 54 4F 20 32 31 30 0D "..170 GOTO 210.
016430: 0A 31 38 30 20 50 52 49 4E 54 20 22 49 20 2A 20 .180 PRINT "I *
016440: 20 20 49 22 0D 0A 31 39 30 20 47 4F 54 4F 20 32 I"..190 GOTO 2
016450: 31 30 0D 0A 32 30 30 20 50 52 49 4E 54 20 22 49 10..200 PRINT "I
016460: 20 20 20 20 20 49 22 0D 0A 32 31 30 20 49 46 20 I"..210 IF
016470: 44 3D 32 20 54 48 45 4E 20 32 36 30 0D 0A 32 32 D=2 THEN 260..22
016480: 30 20 49 46 20 44 3D 34 20 54 48 45 4E 20 32 36 0 IF D=4 THEN 26
016490: 30 0D 0A 32 33 30 20 49 46 20 44 3D 36 20 54 48 0..230 IF D=6 TH
0164A0: 45 4E 20 32 37 30 0D 0A 32 34 30 20 50 52 49 4E EN 270..240 PRIN
0164B0: 54 20 22 49 20 20 2A 20 20 49 22 0D 0A 32 35 30 T "I * I"..250
0164C0: 20 47 4F 54 4F 20 32 38 30 0D 0A 32 36 30 20 50 GOTO 280..260 P
0164D0: 52 49 4E 54 20 22 49 20 20 20 20 20 49 22 0D 0A RINT "I I"..
0164E0: 32 36 35 20 47 4F 54 4F 20 32 38 30 0D 0A 32 37 265 GOTO 280..27
0164F0: 30 20 50 52 49 4E 54 20 22 49 20 2A 20 2A 20 49 0 PRINT "I * * I
016500: 22 0D 0A 32 38 30 20 49 46 20 44 3D 31 20 54 48 "..280 IF D=1 TH
016510: 45 4E 20 33 35 30 0D 0A 32 39 30 20 49 46 20 44 EN 350..290 IF D
016520: 3D 32 20 54 48 45 4E 20 33 33 30 0D 0A 33 30 30 =2 THEN 330..300
016530: 20 49 46 20 44 3D 33 20 54 48 45 4E 20 33 33 30 IF D=3 THEN 330
016540: 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 49 20 2A ..310 PRINT "I *
016550: 20 2A 20 49 22 0D 0A 33 32 30 20 47 4F 54 4F 20 * I"..320 GOTO
016560: 33 36 30 0D 0A 33 33 30 20 50 52 49 4E 54 20 22 360..330 PRINT "
016570: 49 20 20 20 2A 20 49 22 0D 0A 33 34 30 20 47 4F I * I"..340 GO
016580: 54 4F 20 33 36 30 0D 0A 33 35 30 20 50 52 49 4E TO 360..350 PRIN
016590: 54 20 22 49 20 20 20 20 20 49 22 0D 0A 33 36 30 T "I I"..360
0165A0: 20 50 52 49 4E 54 20 22 20 2D 2D 2D 2D 2D 20 22 PRINT " ----- "
0165B0: 0D 0A 33 37 30 20 50 52 49 4E 54 0D 0A 33 37 35 ..370 PRINT..375
0165C0: 20 49 46 20 4E 3D 32 20 54 48 45 4E 20 35 30 30 IF N=2 THEN 500
0165D0: 0D 0A 33 38 30 20 50 52 49 4E 54 20 22 20 20 20 ..380 PRINT "
0165E0: 2B 22 0D 0A 33 38 31 20 50 52 49 4E 54 0D 0A 34 +"..381 PRINT..4
0165F0: 30 30 20 41 3D 44 0D 0A 34 31 30 20 47 4F 54 4F 00 A=D..410 GOTO
016600: 41 4E 53 49 20 63 68 61 72 61 63 74 65 72 20 72 ANSI character r
016610: 65 74 75 72 6E 65 64 0D 0A 65 74 75 70 25 20 20 eturned..etup%
016620: 20 20 20 20 3D 20 31 20 20 21 20 63 75 72 73 6F = 1 ! curso
016630: 72 20 75 70 20 6F 6E 65 20 6C 69 6E 65 0D 0A 65 r up one line..e
016640: 74 64 6F 77 6E 25 20 20 20 20 3D 20 32 20 20 21 tdown% = 2 !
016650: 20 64 6F 77 6E 20 6F 6E 65 20 6C 69 6E 65 0D 0A down one line..
016660: 65 74 6C 65 66 74 25 20 20 20 20 3D 20 33 20 20 etleft% = 3
016670: 21 20 6C 65 66 74 20 6F 6E 65 20 63 68 61 72 61 ! left one chara
016680: 63 74 65 72 0D 0A 65 74 72 69 67 68 74 25 20 20 cter..etright%
016690: 20 3D 20 34 20 20 21 20 72 69 67 68 74 20 6F 6E = 4 ! right on
0166A0: 65 20 63 68 61 72 61 63 74 65 72 0D 0A 65 74 6C e character..etl
0166B0: 65 66 74 77 25 20 20 20 3D 20 35 20 20 21 20 6C eftw% = 5 ! l
0166C0: 65 66 74 20 6F 6E 65 20 77 6F 72 64 0D 0A 65 74 eft one word..et
0166D0: 72 69 67 68 74 77 25 20 20 3D 20 36 20 20 21 20 rightw% = 6 !
0166E0: 72 69 67 68 74 20 6F 6E 65 20 77 6F 72 64 0D 0A right one word..
0166F0: 65 74 68 6F 6D 65 25 20 20 20 20 3D 20 37 20 20 ethome% = 7
016700: 21 20 68 6F 6D 65 20 6F 66 20 64 6F 63 75 6D 65 ! home of docume
016710: 6E 74 0D 0A 65 74 68 6F 6D 65 73 25 20 20 20 3D nt..ethomes% =
016720: 20 38 20 20 21 20 68 6F 6D 65 20 6F 66 20 73 63 8 ! home of sc
016730: 72 65 65 6E 0D 0A 65 74 68 6F 6D 65 6C 25 20 20 reen..ethomel%
016740: 20 3D 20 39 20 20 21 20 68 6F 6D 65 20 6F 66 20 = 9 ! home of
016750: 6C 69 6E 65 0D 0A 65 74 65 6E 64 25 20 20 20 20 line..etend%
016760: 20 3D 20 31 30 20 21 20 65 6E 64 20 6F 66 20 64 = 10 ! end of d
016770: 6F 63 75 6D 65 6E 74 0D 0A 65 74 65 6E 64 73 25 ocument..etends%
016780: 20 20 20 20 3D 20 31 31 20 21 20 65 6E 64 20 6F = 11 ! end o
016790: 66 20 73 63 72 65 65 6E 0D 0A 65 74 65 6E 64 6C f screen..etendl
0167A0: 25 20 20 20 20 3D 20 31 32 20 21 20 65 6E 64 20 % = 12 ! end
0167B0: 6F 66 20 6C 69 6E 65 0D 0A 65 74 73 63 72 6C 25 of line..etscrl%
0167C0: 20 20 20 20 3D 20 31 33 20 21 20 73 63 72 6F 6C = 13 ! scrol
0167D0: 6C 20 6C 65 66 74 20 6F 6E 65 20 63 68 61 72 61 l left one chara
0167E0: 63 74 65 72 0D 0A 65 74 73 63 72 72 25 20 20 20 cter..etscrr%
0167F0: 20 3D 20 31 34 20 21 20 73 63 72 6F 6C 6C 20 72 = 14 ! scroll r
016800: 20 31 30 30 0D 0A 35 30 30 20 54 3D 44 2B 41 0D 100..500 T=D+A.
016810: 0A 35 31 30 20 50 52 49 4E 54 20 22 20 20 20 20 .510 PRINT "
016820: 20 20 3D 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 =";..520 INPUT
016830: 20 54 31 0D 0A 35 33 30 20 49 46 20 54 31 3D 54 T1..530 IF T1=T
016840: 20 54 48 45 4E 20 35 39 30 0D 0A 35 34 30 20 50 THEN 590..540 P
016850: 52 49 4E 54 20 22 4E 4F 2C 20 43 4F 55 4E 54 20 RINT "NO, COUNT
016860: 54 48 45 20 53 50 4F 54 53 20 41 4E 44 20 47 49 THE SPOTS AND GI
016870: 56 45 20 41 4E 4F 54 48 45 52 20 41 4E 53 57 45 VE ANOTHER ANSWE
016880: 52 2E 22 0D 0A 35 34 31 20 50 52 49 4E 54 20 22 R."..541 PRINT "
016890: 20 20 20 20 20 20 3D 22 3B 0D 0A 35 35 30 20 49 =";..550 I
0168A0: 4E 50 55 54 20 54 32 0D 0A 35 36 30 20 49 46 20 NPUT T2..560 IF
0168B0: 54 32 3D 54 20 54 48 45 4E 20 35 39 30 0D 0A 35 T2=T THEN 590..5
0168C0: 37 30 20 50 52 49 4E 54 20 22 4E 4F 2C 20 54 48 70 PRINT "NO, TH
0168D0: 45 20 41 4E 53 57 45 52 20 49 53 22 3B 54 0D 0A E ANSWER IS";T..
0168E0: 35 38 30 20 47 4F 54 4F 20 36 30 30 0D 0A 35 39 580 GOTO 600..59
0168F0: 30 20 50 52 49 4E 54 20 22 52 49 47 48 54 21 22 0 PRINT "RIGHT!"
016900: 0D 0A 36 30 30 20 50 52 49 4E 54 0D 0A 36 30 31 ..600 PRINT..601
016910: 20 50 52 49 4E 54 20 22 54 48 45 20 44 49 43 45 PRINT "THE DICE
016920: 20 52 4F 4C 4C 20 41 47 41 49 4E 2E 2E 2E 22 0D ROLL AGAIN...".
016930: 0A 36 31 30 20 50 52 49 4E 54 0D 0A 36 31 35 20 .610 PRINT..615
016940: 4E 3D 30 0D 0A 36 32 30 20 47 4F 54 4F 20 31 30 N=0..620 GOTO 10
016950: 30 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 0..999 END......
016960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0169A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0169B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0169C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0169D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0169E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0169F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 00 00 02 09 52 E5 13 00 C1 02 00 00 00 02 ......R.........
016A20: 13 00 C6 02 00 00 00 02 13 00 C2 02 00 00 00 02 ................
016A30: 13 00 C7 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A40: 13 00 C8 02 00 00 00 02 13 00 C4 02 00 00 00 02 ................
016A50: 13 00 C9 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 69 67 68 74 20 6F 6E 65 20 63 68 61 72 61 63 74 ight one charact
016B10: 65 72 0D 0A 65 74 73 63 72 75 25 20 20 20 20 3D er..etscru% =
016B20: 20 31 35 20 21 20 73 63 72 6F 6C 6C 20 75 70 20 15 ! scroll up
016B30: 6F 6E 65 20 6C 69 6E 65 0D 0A 65 74 73 63 72 64 one line..etscrd
016B40: 25 20 20 20 20 3D 20 31 36 20 21 20 73 63 72 6F % = 16 ! scro
016B50: 6C 6C 20 64 6F 77 6E 20 6F 6E 65 20 6C 69 6E 65 ll down one line
016B60: 0D 0A 65 74 70 61 67 64 25 20 20 20 20 3D 20 31 ..etpagd% = 1
016B70: 37 20 21 20 70 61 67 65 20 64 6F 77 6E 0D 0A 65 7 ! page down..e
016B80: 74 70 61 67 75 25 20 20 20 20 3D 20 31 38 20 21 tpagu% = 18 !
016B90: 20 70 61 67 65 20 75 70 0D 0A 65 74 74 61 62 25 page up..ettab%
016BA0: 20 20 20 20 20 3D 20 31 39 20 21 20 74 61 62 0D = 19 ! tab.
016BB0: 0A 65 74 65 6E 74 65 72 25 20 20 20 3D 20 32 30 .etenter% = 20
016BC0: 20 21 20 65 6E 74 65 72 20 6C 69 6E 65 0D 0A 65 ! enter line..e
016BD0: 74 69 6E 73 65 72 74 25 20 20 3D 20 32 31 20 21 tinsert% = 21 !
016BE0: 20 69 6E 73 65 72 74 20 62 6C 6F 63 6B 0D 0A 65 insert block..e
016BF0: 74 69 6E 73 65 72 74 6C 25 20 3D 20 32 32 20 21 tinsertl% = 22 !
016C00: 20 69 6E 73 65 72 74 20 6C 69 6E 65 0D 0A 65 74 insert line..et
016C10: 69 6E 73 65 72 74 74 25 20 3D 20 32 33 20 21 20 insertt% = 23 !
016C20: 69 6E 73 65 72 74 20 74 6F 67 67 6C 65 0D 0A 65 insert toggle..e
016C30: 74 64 65 6C 25 20 20 20 20 20 3D 20 32 34 20 21 tdel% = 24 !
016C40: 20 64 65 6C 65 74 65 20 62 6C 6F 63 6B 0D 0A 65 delete block..e
016C50: 74 64 65 6C 6C 25 20 20 20 20 3D 20 32 35 20 21 tdell% = 25 !
016C60: 20 64 65 6C 65 74 65 20 6C 69 6E 65 0D 0A 65 74 delete line..et
016C70: 64 65 6C 63 66 25 20 20 20 3D 20 32 36 20 21 20 delcf% = 26 !
016C80: 64 65 6C 65 74 65 20 63 68 61 72 61 63 74 65 72 delete character
016C90: 20 66 6F 72 77 61 72 64 0D 0A 65 74 64 65 6C 63 forward..etdelc
016CA0: 62 25 20 20 20 3D 20 32 37 20 21 20 64 65 6C 65 b% = 27 ! dele
016CB0: 74 65 20 63 68 61 72 61 63 74 65 72 20 62 61 63 te character bac
016CC0: 6B 77 61 72 64 0D 0A 65 74 63 6F 70 79 25 20 20 kward..etcopy%
016CD0: 20 20 3D 20 32 38 20 21 20 63 6F 70 79 20 62 6C = 28 ! copy bl
016CE0: 6F 63 6B 0D 0A 65 74 63 6F 70 79 6C 25 20 20 20 ock..etcopyl%
016CF0: 3D 20 32 39 20 21 20 63 6F 70 79 20 6C 69 6E 65 = 29 ! copy line
016D00: 21 20 69 6E 64 65 78 20 66 6F 72 20 6D 6F 76 65 ! index for move
016D10: 20 61 72 72 61 79 20 7D 0D 0A 20 0D 0A 6D 69 6E array }.. ..min
016D20: 65 73 25 20 3D 20 30 20 21 20 63 6C 65 61 72 20 es% = 0 ! clear
016D30: 6D 69 6E 65 20 63 6F 75 6E 74 0D 0A 66 6F 72 20 mine count..for
016D40: 69 25 20 3D 20 31 20 74 6F 20 38 20 21 20 70 72 i% = 1 to 8 ! pr
016D50: 6F 63 65 73 73 20 70 6F 69 6E 74 73 20 6F 66 20 ocess points of
016D60: 74 68 65 20 63 6F 6D 70 61 73 73 0D 0A 0D 0A 20 the compass....
016D70: 20 20 78 6E 25 20 3D 20 78 25 2B 78 6F 66 66 25 xn% = x%+xoff%
016D80: 28 69 25 29 20 21 20 66 69 6E 64 20 6E 65 69 67 (i%) ! find neig
016D90: 68 62 6F 72 20 6C 6F 63 61 74 69 6F 6E 73 0D 0A hbor locations..
016DA0: 20 20 20 79 6E 25 20 3D 20 79 25 2B 79 6F 66 66 yn% = y%+yoff
016DB0: 25 28 69 25 29 0D 0A 20 20 20 69 66 20 78 6E 25 %(i%).. if xn%
016DC0: 20 3E 3D 20 31 20 61 6E 64 20 78 6E 25 20 3C 3D >= 1 and xn% <=
016DD0: 20 6D 61 78 78 73 25 20 61 6E 64 20 79 6E 25 20 maxxs% and yn%
016DE0: 3E 3D 20 31 20 61 6E 64 20 79 6E 25 20 3C 3D 20 >= 1 and yn% <=
016DF0: 6D 61 78 79 73 25 20 74 68 65 6E 0D 0A 0D 0A 20 maxys% then....
016E00: 20 20 20 20 20 21 20 76 61 6C 69 64 20 6C 6F 63 ! valid loc
016E10: 61 74 69 6F 6E 0D 0A 20 20 20 20 20 20 69 66 20 ation.. if
016E20: 6D 69 6E 65 25 28 78 6E 25 2C 20 79 6E 25 29 20 mine%(xn%, yn%)
016E30: 74 68 65 6E 20 6D 69 6E 65 73 25 20 3D 20 6D 69 then mines% = mi
016E40: 6E 65 73 25 2B 31 20 21 20 63 6F 75 6E 74 20 6D nes%+1 ! count m
016E50: 69 6E 65 73 0D 0A 0D 0A 20 20 20 65 6E 64 69 66 ines.... endif
016E60: 0D 0A 0D 0A 6E 65 78 74 20 69 25 0D 0A 0D 0A 65 ....next i%....e
016E70: 6E 64 66 75 6E 63 20 6D 69 6E 65 73 25 20 21 20 ndfunc mines% !
016E80: 72 65 74 75 72 6E 20 74 68 65 20 6E 75 6D 62 65 return the numbe
016E90: 72 20 6F 66 20 6D 69 6E 65 73 0D 0A 0D 0A 21 21 r of mines....!!
016EA0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016EB0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016EC0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016ED0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
016EE0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 0D 0A !!!!!!!!!!!!!!..
016EF0: 21 20 0D 0A 21 20 53 65 74 20 61 64 6A 61 63 65 ! ..! Set adjace
016F00: 0D 0A 65 74 63 61 6E 25 20 20 20 20 20 3D 20 33 ..etcan% = 3
016F10: 30 20 21 20 63 61 6E 63 65 6C 20 63 75 72 72 65 0 ! cancel curre
016F20: 6E 74 20 6F 70 65 72 61 74 69 6F 6E 0D 0A 65 74 nt operation..et
016F30: 73 74 6F 70 25 20 20 20 20 3D 20 33 31 20 21 20 stop% = 31 !
016F40: 73 74 6F 70 20 63 75 72 72 65 6E 74 20 6F 70 65 stop current ope
016F50: 72 61 74 69 6F 6E 0D 0A 65 74 63 6F 6E 74 25 20 ration..etcont%
016F60: 20 20 20 3D 20 33 32 20 21 20 63 6F 6E 74 69 6E = 32 ! contin
016F70: 75 65 20 63 75 72 72 65 6E 74 20 6F 70 65 72 61 ue current opera
016F80: 74 69 6F 6E 0D 0A 65 74 70 72 69 6E 74 25 20 20 tion..etprint%
016F90: 20 3D 20 33 33 20 21 20 70 72 69 6E 74 20 64 6F = 33 ! print do
016FA0: 63 75 6D 65 6E 74 0D 0A 65 74 70 72 69 6E 74 62 cument..etprintb
016FB0: 25 20 20 3D 20 33 34 20 21 20 70 72 69 6E 74 20 % = 34 ! print
016FC0: 62 6C 6F 63 6B 0D 0A 65 74 70 72 69 6E 74 73 25 block..etprints%
016FD0: 20 20 3D 20 33 35 20 21 20 70 72 69 6E 74 20 73 = 35 ! print s
016FE0: 63 72 65 65 6E 0D 0A 65 74 66 75 6E 25 20 20 20 creen..etfun%
016FF0: 20 20 3D 20 33 36 20 21 20 66 75 6E 63 74 69 6F = 36 ! functio
017000: 6E 20 6B 65 79 0D 0A 65 74 6D 65 6E 75 25 20 20 n key..etmenu%
017010: 20 20 3D 20 34 36 20 21 20 64 69 73 70 6C 61 79 = 46 ! display
017020: 20 6D 65 6E 75 0D 0A 65 74 6D 6F 75 62 61 25 20 menu..etmouba%
017030: 20 20 3D 20 34 37 20 21 20 6D 6F 75 73 65 20 62 = 47 ! mouse b
017040: 75 74 74 6F 6E 20 61 73 73 65 72 74 69 6F 6E 0D utton assertion.
017050: 0A 65 74 6D 6F 75 62 64 25 20 20 20 3D 20 35 31 .etmoubd% = 51
017060: 20 21 20 6D 6F 75 73 65 20 62 75 74 74 6F 6E 20 ! mouse button
017070: 64 65 61 73 73 65 72 74 69 6F 6E 0D 0A 65 74 6D deassertion..etm
017080: 6F 75 6D 6F 76 25 20 20 3D 20 35 35 20 21 20 6D oumov% = 55 ! m
017090: 6F 75 73 65 20 6D 6F 76 65 0D 0A 65 74 74 69 6D ouse move..ettim
0170A0: 25 20 20 20 20 20 3D 20 35 36 20 21 20 74 69 6D % = 56 ! tim
0170B0: 65 72 20 6D 61 74 75 72 65 73 0D 0A 65 74 6A 6F er matures..etjo
0170C0: 79 62 61 25 20 20 20 3D 20 35 37 20 21 20 6A 6F yba% = 57 ! jo
0170D0: 79 73 74 69 63 6B 20 62 75 74 74 6F 6E 20 61 73 ystick button as
0170E0: 73 65 72 74 69 6F 6E 0D 0A 65 74 6A 6F 79 62 64 sertion..etjoybd
0170F0: 25 20 20 20 3D 20 35 38 20 21 20 6A 6F 79 73 74 % = 58 ! joyst
017100: 6E 74 20 73 71 75 61 72 65 73 20 76 69 73 61 62 nt squares visab
017110: 6C 65 0D 0A 21 0D 0A 21 20 53 65 74 73 20 61 6C le..!..! Sets al
017120: 6C 20 6F 66 20 74 68 65 20 76 61 6C 69 64 20 61 l of the valid a
017130: 64 6A 61 63 65 6E 74 20 73 71 75 61 72 65 73 20 djacent squares
017140: 76 69 73 61 62 6C 65 2E 20 49 66 20 61 6E 79 20 visable. If any
017150: 6F 66 20 74 68 6F 73 65 20 73 71 75 61 72 65 73 of those squares
017160: 20 61 72 65 0D 0A 21 20 6E 6F 74 20 61 64 6A 61 are..! not adja
017170: 63 65 6E 74 20 74 6F 20 61 20 6D 69 6E 65 2C 20 cent to a mine,
017180: 74 68 65 6E 20 74 68 65 20 6E 65 69 67 68 62 6F then the neighbo
017190: 72 73 20 6F 66 20 74 68 61 74 20 73 71 75 61 72 rs of that squar
0171A0: 65 20 61 72 65 20 73 65 74 20 76 69 73 61 62 6C e are set visabl
0171B0: 65 2C 20 65 74 63 2E 0D 0A 21 20 28 72 65 63 75 e, etc...! (recu
0171C0: 72 73 69 76 65 6C 79 29 2E 0D 0A 21 20 54 68 69 rsively)...! Thi
0171D0: 73 20 69 73 20 64 6F 6E 65 20 74 6F 20 22 72 69 s is done to "ri
0171E0: 70 22 20 67 72 69 64 73 20 6F 66 20 6F 62 76 69 p" grids of obvi
0171F0: 6F 75 73 6C 79 20 65 6D 70 74 79 20 6E 65 69 67 ously empty neig
017200: 68 62 6F 72 73 20 6F 66 66 20 74 68 65 20 62 6F hbors off the bo
017210: 61 72 64 2E 0D 0A 21 20 0D 0A 21 21 21 21 21 21 ard...! ..!!!!!!
017220: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017230: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017240: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017250: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017260: 21 21 21 21 21 21 21 21 21 21 0D 0A 0D 0A 70 72 !!!!!!!!!!....pr
017270: 6F 63 65 64 75 72 65 20 76 69 73 61 64 6A 28 78 ocedure visadj(x
017280: 25 2C 20 79 25 29 0D 0A 0D 0A 64 69 6D 20 78 6E %, y%)....dim xn
017290: 25 2C 20 79 6E 25 20 21 20 6E 65 69 67 68 62 6F %, yn% ! neighbo
0172A0: 72 20 63 6F 6F 72 64 69 6E 61 74 65 73 0D 0A 64 r coordinates..d
0172B0: 69 6D 20 69 25 20 20 20 20 20 20 20 21 20 69 6E im i% ! in
0172C0: 64 65 78 20 66 6F 72 20 6D 6F 76 65 20 61 72 72 dex for move arr
0172D0: 61 79 0D 0A 20 0D 0A 66 6F 72 20 69 25 20 3D 20 ay.. ..for i% =
0172E0: 31 20 74 6F 20 38 20 21 20 70 72 6F 63 65 73 73 1 to 8 ! process
0172F0: 20 70 6F 69 6E 74 73 20 6F 66 20 74 68 65 20 63 points of the c
017300: 69 63 6B 20 62 75 74 74 6F 6E 20 64 65 61 73 73 ick button deass
017310: 65 72 74 69 6F 6E 0D 0A 65 74 6A 6F 79 6D 6F 76 ertion..etjoymov
017320: 25 20 20 3D 20 35 39 20 21 20 6A 6F 79 73 74 69 % = 59 ! joysti
017330: 63 6B 20 6D 6F 76 65 0D 0A 65 74 74 65 72 6D 25 ck move..etterm%
017340: 20 20 20 20 3D 20 36 30 20 21 20 74 65 72 6D 69 = 60 ! termi
017350: 6E 61 74 65 20 70 72 6F 67 72 61 6D 0D 0A 0D 0A nate program....
017360: 21 20 70 72 6F 67 72 61 6D 20 64 65 66 69 6E 65 ! program define
017370: 73 0D 0A 0D 0A 6D 61 78 78 73 25 20 20 20 3D 20 s....maxxs% =
017380: 38 20 21 20 73 69 7A 65 20 6F 66 20 67 72 69 64 8 ! size of grid
017390: 0D 0A 6D 61 78 79 73 25 20 20 20 3D 20 38 0D 0A ..maxys% = 8..
0173A0: 6D 61 78 6D 69 6E 65 25 20 3D 20 31 30 20 21 20 maxmine% = 10 !
0173B0: 6E 75 6D 62 65 72 20 6F 66 20 6D 69 6E 65 73 20 number of mines
0173C0: 74 6F 20 70 6C 61 63 65 0D 0A 0D 0A 64 69 6D 20 to place....dim
0173D0: 6D 69 6E 65 25 28 6D 61 78 78 73 25 2C 20 6D 61 mine%(maxxs%, ma
0173E0: 78 79 73 25 29 20 21 20 6D 69 6E 65 20 65 78 69 xys%) ! mine exi
0173F0: 73 74 73 20 6D 61 70 0D 0A 64 69 6D 20 76 69 73 sts map..dim vis
017400: 25 28 6D 61 78 78 73 25 2C 20 6D 61 78 79 73 25 %(maxxs%, maxys%
017410: 29 20 20 21 20 73 71 75 61 72 65 20 69 73 20 75 ) ! square is u
017420: 6E 63 6F 76 65 72 65 64 20 6D 61 70 0D 0A 64 69 ncovered map..di
017430: 6D 20 66 6C 61 67 25 28 6D 61 78 78 73 25 2C 20 m flag%(maxxs%,
017440: 6D 61 78 79 73 25 29 20 21 20 73 71 75 61 72 65 maxys%) ! square
017450: 20 69 73 20 66 6C 61 67 67 65 64 20 6D 61 70 0D is flagged map.
017460: 0A 0D 0A 21 20 43 6F 6E 74 72 75 63 74 20 74 61 ...! Contruct ta
017470: 62 6C 65 20 74 6F 20 63 61 6C 63 75 6C 61 74 65 ble to calculate
017480: 20 61 64 6A 61 63 65 6E 74 20 73 71 75 61 72 65 adjacent square
017490: 73 0D 0A 0D 0A 64 69 6D 20 78 6F 66 66 25 28 38 s....dim xoff%(8
0174A0: 29 20 21 20 78 20 6F 66 66 73 65 74 20 74 61 62 ) ! x offset tab
0174B0: 6C 65 0D 0A 64 69 6D 20 79 6F 66 66 25 28 38 29 le..dim yoff%(8)
0174C0: 20 21 20 79 20 6F 66 66 73 65 74 20 74 61 62 6C ! y offset tabl
0174D0: 65 0D 0A 0D 0A 78 6F 66 66 25 28 31 29 20 3D 20 e....xoff%(1) =
0174E0: 20 30 3A 20 79 6F 66 66 25 28 31 29 20 3D 20 2D 0: yoff%(1) = -
0174F0: 31 20 21 20 75 70 0D 0A 78 6F 66 66 25 28 32 29 1 ! up..xoff%(2)
017500: 6F 6D 70 61 73 73 0D 0A 0D 0A 20 20 20 78 6E 25 ompass.... xn%
017510: 20 3D 20 78 25 2B 78 6F 66 66 25 28 69 25 29 20 = x%+xoff%(i%)
017520: 21 20 66 69 6E 64 20 6E 65 69 67 68 62 6F 72 20 ! find neighbor
017530: 6C 6F 63 61 74 69 6F 6E 73 0D 0A 20 20 20 79 6E locations.. yn
017540: 25 20 3D 20 79 25 2B 79 6F 66 66 25 28 69 25 29 % = y%+yoff%(i%)
017550: 0D 0A 20 20 20 69 66 20 78 6E 25 20 3E 3D 20 31 .. if xn% >= 1
017560: 20 61 6E 64 20 78 6E 25 20 3C 3D 20 6D 61 78 78 and xn% <= maxx
017570: 73 25 20 61 6E 64 20 79 6E 25 20 3E 3D 20 31 20 s% and yn% >= 1
017580: 61 6E 64 20 79 6E 25 20 3C 3D 20 6D 61 78 79 73 and yn% <= maxys
017590: 25 20 74 68 65 6E 0D 0A 0D 0A 20 20 20 20 20 20 % then....
0175A0: 69 66 20 6E 6F 74 20 76 69 73 25 28 78 6E 25 2C if not vis%(xn%,
0175B0: 20 79 6E 25 29 20 74 68 65 6E 20 21 20 6E 6F 74 yn%) then ! not
0175C0: 20 61 6C 72 65 61 64 79 20 76 69 73 61 62 6C 65 already visable
0175D0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 21 20 76 .... ! v
0175E0: 61 6C 69 64 20 6C 6F 63 61 74 69 6F 6E 0D 0A 20 alid location..
0175F0: 20 20 20 20 20 20 20 20 76 69 73 25 28 78 6E 25 vis%(xn%
017600: 2C 20 79 6E 25 29 20 3D 20 74 72 75 65 25 20 21 , yn%) = true% !
017610: 20 73 65 74 20 76 69 73 61 62 6C 65 0D 0A 20 20 set visable..
017620: 20 20 20 20 20 20 20 69 66 20 61 64 6A 61 63 65 if adjace
017630: 6E 74 25 28 78 6E 25 2C 20 79 6E 25 29 20 3D 20 nt%(xn%, yn%) =
017640: 30 20 74 68 65 6E 20 76 69 73 61 64 6A 28 78 6E 0 then visadj(xn
017650: 25 2C 20 79 6E 25 29 20 21 20 70 65 72 66 6F 72 %, yn%) ! perfor
017660: 6D 20 72 65 63 75 72 73 69 76 65 6C 79 0D 0A 0D m recursively...
017670: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D 0A . endif....
017680: 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 6E 65 78 74 endif....next
017690: 20 69 25 0D 0A 0D 0A 65 6E 64 70 72 6F 63 0D 0A i%....endproc..
0176A0: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
0176B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0176C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0176D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0176E0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0176F0: 21 21 0D 0A 21 20 0D 0A 21 20 44 69 73 70 6C 61 !!..! ..! Displa
017700: 20 3D 20 2B 31 3A 20 79 6F 66 66 25 28 32 29 20 = +1: yoff%(2)
017710: 3D 20 2D 31 20 21 20 75 70 70 65 72 20 72 69 67 = -1 ! upper rig
017720: 68 74 0D 0A 78 6F 66 66 25 28 33 29 20 3D 20 2B ht..xoff%(3) = +
017730: 31 3A 20 79 6F 66 66 25 28 33 29 20 3D 20 20 30 1: yoff%(3) = 0
017740: 20 21 20 72 69 67 68 74 0D 0A 78 6F 66 66 25 28 ! right..xoff%(
017750: 34 29 20 3D 20 2B 31 3A 20 79 6F 66 66 25 28 34 4) = +1: yoff%(4
017760: 29 20 3D 20 2B 31 20 21 20 6C 6F 77 65 72 20 72 ) = +1 ! lower r
017770: 69 67 68 74 0D 0A 78 6F 66 66 25 28 35 29 20 3D ight..xoff%(5) =
017780: 20 20 30 3A 20 79 6F 66 66 25 28 35 29 20 3D 20 0: yoff%(5) =
017790: 2B 31 20 21 20 64 6F 77 6E 0D 0A 78 6F 66 66 25 +1 ! down..xoff%
0177A0: 28 36 29 20 3D 20 2D 31 3A 20 79 6F 66 66 25 28 (6) = -1: yoff%(
0177B0: 36 29 20 3D 20 2B 31 20 21 20 6C 6F 77 65 72 20 6) = +1 ! lower
0177C0: 6C 65 66 74 0D 0A 78 6F 66 66 25 28 37 29 20 3D left..xoff%(7) =
0177D0: 20 2D 31 3A 20 79 6F 66 66 25 28 37 29 20 3D 20 -1: yoff%(7) =
0177E0: 20 30 20 21 20 6C 65 66 74 0D 0A 78 6F 66 66 25 0 ! left..xoff%
0177F0: 28 38 29 20 3D 20 2D 31 3A 20 79 6F 66 66 25 28 (8) = -1: yoff%(
017800: 38 29 20 3D 20 2D 31 20 21 20 75 70 70 65 72 20 8) = -1 ! upper
017810: 6C 65 66 74 0D 0A 0D 0A 21 20 64 65 63 6C 61 72 left....! declar
017820: 65 73 2C 20 6E 6F 74 20 72 65 71 75 69 72 65 64 es, not required
017830: 20 62 75 74 20 6E 69 63 65 0D 0A 0D 0A 64 69 6D but nice....dim
017840: 20 78 25 2C 20 79 25 20 20 20 20 21 20 75 73 65 x%, y% ! use
017850: 72 20 6D 6F 76 65 20 63 6F 6F 72 64 69 6E 61 74 r move coordinat
017860: 65 73 0D 0A 64 69 6D 20 64 6F 6E 65 25 20 20 20 es..dim done%
017870: 20 20 21 20 67 61 6D 65 20 6F 76 65 72 0D 0A 64 ! game over..d
017880: 69 6D 20 63 65 6E 74 65 72 78 25 20 20 21 20 63 im centerx% ! c
017890: 65 6E 74 65 72 20 6F 66 20 73 63 72 65 65 6E 20 enter of screen
0178A0: 70 6F 73 69 74 69 6F 6E 20 78 0D 0A 64 69 6D 20 position x..dim
0178B0: 63 65 6E 74 65 72 79 25 20 20 21 20 63 65 6E 74 centery% ! cent
0178C0: 65 72 20 6F 66 20 73 63 72 65 65 6E 20 70 6F 73 er of screen pos
0178D0: 69 74 69 6F 6E 20 79 0D 0A 64 69 6D 20 63 75 72 ition y..dim cur
0178E0: 73 6F 72 78 25 20 20 21 20 63 75 72 73 6F 72 20 sorx% ! cursor
0178F0: 6C 6F 63 61 74 69 6F 6E 20 78 0D 0A 64 69 6D 20 location x..dim
017900: 79 20 62 6F 61 72 64 0D 0A 21 20 0D 0A 21 20 44 y board..! ..! D
017910: 69 73 70 6C 61 79 73 20 74 68 65 20 70 6C 61 79 isplays the play
017920: 69 6E 67 20 62 6F 61 72 64 2E 0D 0A 21 20 0D 0A ing board...! ..
017930: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017940: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017950: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017960: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017970: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017980: 0D 0A 20 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 .. ..procedure d
017990: 69 73 70 6C 61 79 0D 0A 0D 0A 64 69 6D 20 78 25 isplay....dim x%
0179A0: 0D 0A 64 69 6D 20 79 25 0D 0A 64 69 6D 20 63 6E ..dim y%..dim cn
0179B0: 74 25 20 21 20 63 6F 75 6E 74 20 6F 66 20 61 64 t% ! count of ad
0179C0: 6A 61 63 65 6E 74 20 6D 69 6E 65 73 0D 0A 20 0D jacent mines.. .
0179D0: 0A 21 20 73 63 61 6E 20 73 63 72 65 65 6E 0D 0A .! scan screen..
0179E0: 62 63 6F 6C 6F 72 28 79 65 6C 6C 6F 77 25 29 20 bcolor(yellow%)
0179F0: 21 20 73 65 74 20 62 61 63 6B 67 72 6F 75 6E 64 ! set background
017A00: 20 63 6F 6C 6F 72 0D 0A 66 6F 72 20 79 25 20 3D color..for y% =
017A10: 20 31 20 74 6F 20 6D 61 78 79 73 25 0D 0A 0D 0A 1 to maxys%....
017A20: 20 20 20 66 6F 72 20 78 25 20 3D 20 31 20 74 6F for x% = 1 to
017A30: 20 6D 61 78 78 73 25 0D 0A 20 20 20 0D 0A 20 20 maxxs%.. ..
017A40: 20 20 20 20 63 75 72 73 6F 72 28 63 65 6E 74 65 cursor(cente
017A50: 72 78 25 2B 78 25 2D 31 2C 20 63 65 6E 74 65 72 rx%+x%-1, center
017A60: 79 25 2B 79 25 2D 31 29 20 21 20 73 65 74 20 73 y%+y%-1) ! set s
017A70: 74 61 72 74 20 6F 66 20 6E 65 78 74 20 6C 69 6E tart of next lin
017A80: 65 0D 0A 20 20 20 20 20 20 69 66 20 76 69 73 25 e.. if vis%
017A90: 28 78 25 2C 20 79 25 29 20 74 68 65 6E 0D 0A 0D (x%, y%) then...
017AA0: 0A 20 20 20 20 20 20 20 20 20 69 66 20 6D 69 6E . if min
017AB0: 65 25 28 78 25 2C 20 79 25 29 20 74 68 65 6E 20 e%(x%, y%) then
017AC0: 70 72 69 6E 74 20 22 2A 22 3B 20 65 6C 73 65 0D print "*"; else.
017AD0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 ... c
017AE0: 6E 74 25 20 3D 20 61 64 6A 61 63 65 6E 74 25 28 nt% = adjacent%(
017AF0: 78 25 2C 20 79 25 29 20 21 20 66 69 6E 64 20 61 x%, y%) ! find a
017B00: 63 75 72 73 6F 72 79 25 20 20 21 20 63 75 72 73 cursory% ! curs
017B10: 6F 72 20 6C 6F 63 61 74 69 6F 6E 20 79 0D 0A 64 or location y..d
017B20: 69 6D 20 62 61 64 67 75 65 73 73 25 20 21 20 62 im badguess% ! b
017B30: 61 64 20 67 75 65 73 73 20 64 69 73 70 6C 61 79 ad guess display
017B40: 20 66 6C 61 67 0D 0A 64 69 6D 20 6D 6F 75 73 65 flag..dim mouse
017B50: 78 25 20 20 20 21 20 6D 6F 75 73 65 20 70 6F 73 x% ! mouse pos
017B60: 69 74 69 6F 6E 20 78 0D 0A 64 69 6D 20 6D 6F 75 ition x..dim mou
017B70: 73 65 79 25 20 20 20 21 20 6D 6F 75 73 65 20 70 sey% ! mouse p
017B80: 6F 73 69 74 69 6F 6E 20 79 0D 0A 0D 0A 21 21 21 osition y....!!!
017B90: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017BA0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017BB0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017BC0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017BD0: 21 21 21 21 21 21 21 21 21 21 21 21 21 0D 0A 21 !!!!!!!!!!!!!..!
017BE0: 20 0D 0A 21 20 46 69 6E 64 20 61 64 6A 61 63 65 ..! Find adjace
017BF0: 6E 74 20 6D 69 6E 65 73 0D 0A 21 0D 0A 21 20 46 nt mines..!..! F
017C00: 69 6E 64 73 20 74 68 65 20 6E 75 6D 62 65 72 20 inds the number
017C10: 6F 66 20 6D 69 6E 65 73 20 61 64 6A 61 63 65 6E of mines adjacen
017C20: 74 20 74 6F 20 61 20 67 69 76 65 6E 20 73 71 75 t to a given squ
017C30: 61 72 65 2E 0D 0A 21 20 0D 0A 21 21 21 21 21 21 are...! ..!!!!!!
017C40: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017C50: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017C60: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017C70: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017C80: 21 21 21 21 21 21 21 21 21 21 0D 0A 0D 0A 66 75 !!!!!!!!!!....fu
017C90: 6E 63 74 69 6F 6E 20 61 64 6A 61 63 65 6E 74 25 nction adjacent%
017CA0: 28 78 25 2C 20 79 25 29 0D 0A 0D 0A 64 69 6D 20 (x%, y%)....dim
017CB0: 6D 69 6E 65 73 25 20 20 20 21 20 6E 75 6D 62 65 mines% ! numbe
017CC0: 72 20 6F 66 20 6D 69 6E 65 73 0D 0A 64 69 6D 20 r of mines..dim
017CD0: 78 6E 25 2C 20 79 6E 25 20 21 20 6E 65 69 67 68 xn%, yn% ! neigh
017CE0: 62 6F 72 20 63 6F 6F 72 64 69 6E 61 74 65 73 20 bor coordinates
017CF0: 7D 0D 0A 64 69 6D 20 69 25 20 20 20 20 20 20 20 }..dim i%
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 00 00 02 09 52 E5 14 00 C1 02 00 00 00 02 ......R.........
017D20: 14 00 C6 02 00 00 00 02 14 00 C2 02 00 00 00 02 ................
017D30: 14 00 C7 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D40: 14 00 C8 02 00 00 00 02 14 00 C4 02 00 00 00 02 ................
017D50: 14 00 C9 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 64 6A 61 63 65 6E 74 20 6D 69 6E 65 20 63 6F 75 djacent mine cou
017E10: 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nt..
017E20: 69 66 20 63 6E 74 25 20 3D 20 30 20 74 68 65 6E if cnt% = 0 then
017E30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
017E40: 20 70 72 69 6E 74 20 22 2E 22 20 21 20 6E 6F 20 print "." ! no
017E50: 61 64 6A 61 63 65 6E 74 0D 0A 20 20 20 20 20 20 adjacent..
017E60: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
017E70: 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74 print
017E80: 20 63 68 72 24 28 63 6E 74 25 2B 61 73 63 28 22 chr$(cnt%+asc("
017E90: 30 22 29 29 3B 20 21 20 70 6C 61 63 65 20 74 68 0")); ! place th
017EA0: 65 20 6E 75 6D 62 65 72 0D 0A 20 20 20 20 20 20 e number..
017EB0: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 20 endif....
017EC0: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D endif...
017ED0: 0A 20 20 20 20 20 20 65 6C 73 65 20 69 66 20 66 . else if f
017EE0: 6C 61 67 25 28 78 25 2C 20 79 25 29 20 74 68 65 lag%(x%, y%) the
017EF0: 6E 20 21 20 64 69 73 70 6C 61 79 20 66 6C 61 67 n ! display flag
017F00: 67 65 64 20 6C 6F 63 61 74 69 6F 6E 0D 0A 0D 0A ged location....
017F10: 20 20 20 20 20 20 20 20 20 69 66 20 62 61 64 67 if badg
017F20: 75 65 73 73 25 20 74 68 65 6E 20 70 72 69 6E 74 uess% then print
017F30: 20 22 58 22 3B 20 65 6C 73 65 20 70 72 69 6E 74 "X"; else print
017F40: 20 22 4D 22 3B 0D 0A 0D 0A 20 20 20 20 20 20 65 "M";.... e
017F50: 6C 73 65 20 70 72 69 6E 74 20 22 3D 22 3B 0D 0A lse print "=";..
017F60: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 20 endif....
017F70: 20 20 6E 65 78 74 20 78 25 0D 0A 0D 0A 6E 65 78 next x%....nex
017F80: 74 20 79 25 0D 0A 70 72 69 6E 74 0D 0A 0D 0A 65 t y%..print....e
017F90: 6E 64 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 ndproc....!!!!!!
017FA0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017FB0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017FC0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017FD0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
017FE0: 21 21 21 21 21 21 21 21 21 21 0D 0A 21 20 0D 0A !!!!!!!!!!..! ..
017FF0: 21 20 49 6E 69 74 61 6C 69 7A 65 20 62 6F 61 72 ! Initalize boar
018000: 20 64 72 61 77 20 62 6F 78 20 74 6F 70 0D 0A 63 draw box top..c
018010: 75 72 73 6F 72 28 73 78 25 2C 20 65 79 25 29 20 ursor(sx%, ey%)
018020: 21 20 70 6F 73 69 74 69 6F 6E 20 61 74 20 62 6F ! position at bo
018030: 78 20 6C 6F 77 65 72 20 6C 65 66 74 0D 0A 66 6F x lower left..fo
018040: 72 20 78 25 20 3D 20 73 78 25 20 74 6F 20 65 78 r x% = sx% to ex
018050: 25 3A 20 70 72 69 6E 74 20 63 24 3B 3A 20 6E 65 %: print c$;: ne
018060: 78 74 20 78 25 20 21 20 64 72 61 77 20 62 6F 78 xt x% ! draw box
018070: 20 62 6F 74 74 6F 6D 0D 0A 66 6F 72 20 79 25 20 bottom..for y%
018080: 3D 20 73 79 25 2B 31 20 74 6F 20 65 79 25 2D 31 = sy%+1 to ey%-1
018090: 20 21 20 64 72 61 77 20 62 6F 78 20 6C 65 66 74 ! draw box left
0180A0: 20 73 69 64 65 0D 0A 0D 0A 20 20 20 63 75 72 73 side.... curs
0180B0: 6F 72 28 73 78 25 2C 20 79 25 29 20 21 20 70 6C or(sx%, y%) ! pl
0180C0: 61 63 65 20 63 75 72 73 6F 72 0D 0A 20 20 20 70 ace cursor.. p
0180D0: 72 69 6E 74 20 63 24 3B 20 21 20 70 6C 61 63 65 rint c$; ! place
0180E0: 20 63 68 61 72 61 63 74 65 72 0D 0A 0D 0A 6E 65 character....ne
0180F0: 78 74 20 79 25 0D 0A 66 6F 72 20 79 25 20 3D 20 xt y%..for y% =
018100: 73 79 25 2B 31 20 74 6F 20 65 79 25 2D 31 20 21 sy%+1 to ey%-1 !
018110: 20 64 72 61 77 20 62 6F 78 20 6C 65 66 74 20 73 draw box left s
018120: 69 64 65 0D 0A 0D 0A 20 20 20 63 75 72 73 6F 72 ide.... cursor
018130: 28 65 78 25 2C 20 79 25 29 20 21 20 70 6C 61 63 (ex%, y%) ! plac
018140: 65 20 63 75 72 73 6F 72 0D 0A 20 20 20 70 72 69 e cursor.. pri
018150: 6E 74 20 63 24 3B 20 21 20 70 6C 61 63 65 20 63 nt c$; ! place c
018160: 68 61 72 61 63 74 65 72 0D 0A 0D 0A 6E 65 78 74 haracter....next
018170: 20 79 25 0D 0A 0D 0A 65 6E 64 70 72 6F 63 0D 0A y%....endproc..
018180: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
018190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0181A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0181B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0181C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0181D0: 21 21 0D 0A 21 0D 0A 21 20 43 68 65 63 6B 20 63 !!..!..! Check c
0181E0: 6F 6F 72 64 69 6E 61 74 65 73 20 6F 6E 20 62 6F oordinates on bo
0181F0: 61 72 64 0D 0A 21 0D 0A 21 20 43 68 65 63 6B 73 ard..!..! Checks
018200: 64 0D 0A 21 0D 0A 21 20 43 6C 65 61 72 73 20 61 d..!..! Clears a
018210: 6C 6C 20 62 6F 61 72 64 20 73 71 75 61 72 65 73 ll board squares
018220: 20 74 6F 20 6E 6F 20 6D 69 6E 65 73 2C 20 69 6E to no mines, in
018230: 76 69 73 69 62 6C 65 20 61 6E 64 20 6E 6F 74 20 visible and not
018240: 66 6C 61 67 67 65 64 2E 0D 0A 21 20 54 68 65 6E flagged...! Then
018250: 2C 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 , the specified
018260: 6E 75 6D 62 65 72 20 6F 66 20 6D 69 6E 65 73 20 number of mines
018270: 61 72 65 20 6C 61 79 65 64 20 6F 6E 20 74 68 65 are layed on the
018280: 20 62 6F 61 72 64 20 61 74 20 72 61 6E 64 6F 6D board at random
018290: 2E 0D 0A 21 20 0D 0A 21 21 21 21 21 21 21 21 21 ...! ..!!!!!!!!!
0182A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0182B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0182C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0182D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0182E0: 21 21 21 21 21 21 21 0D 0A 20 0D 0A 70 72 6F 63 !!!!!!!.. ..proc
0182F0: 65 64 75 72 65 20 63 6C 72 62 72 64 0D 0A 20 0D edure clrbrd.. .
018300: 0A 64 69 6D 20 78 25 0D 0A 64 69 6D 20 79 25 0D .dim x%..dim y%.
018310: 0A 64 69 6D 20 6E 25 0D 0A 20 0D 0A 66 6F 72 20 .dim n%.. ..for
018320: 78 25 20 3D 20 31 20 74 6F 20 6D 61 78 78 73 25 x% = 1 to maxxs%
018330: 20 21 20 63 6C 65 61 72 20 6D 69 6E 65 66 69 65 ! clear minefie
018340: 6C 64 0D 0A 0D 0A 20 20 20 66 6F 72 20 79 25 20 ld.... for y%
018350: 3D 20 31 20 74 6F 20 6D 61 78 79 73 25 0D 0A 0D = 1 to maxys%...
018360: 0A 20 20 20 20 20 20 6D 69 6E 65 25 28 78 25 2C . mine%(x%,
018370: 20 79 25 29 20 3D 20 66 61 6C 73 65 20 21 20 73 y%) = false ! s
018380: 65 74 20 6E 6F 20 6D 69 6E 65 0D 0A 20 20 20 20 et no mine..
018390: 20 20 76 69 73 25 28 78 25 2C 20 79 25 29 20 3D vis%(x%, y%) =
0183A0: 20 66 61 6C 73 65 20 21 20 73 65 74 20 6E 6F 74 false ! set not
0183B0: 20 76 69 73 69 62 6C 65 0D 0A 20 20 20 20 20 20 visible..
0183C0: 66 6C 61 67 25 28 78 25 2C 20 79 25 29 20 3D 20 flag%(x%, y%) =
0183D0: 66 61 6C 73 65 20 21 20 73 65 74 20 6E 6F 74 20 false ! set not
0183E0: 66 6C 61 67 67 65 64 0D 0A 0D 0A 20 20 20 6E 65 flagged.... ne
0183F0: 78 74 20 79 25 0D 0A 0D 0A 6E 65 78 74 20 78 25 xt y%....next x%
018400: 20 69 66 20 74 68 65 20 67 69 76 65 6E 20 78 2C if the given x,
018410: 20 79 20 63 6F 6F 72 64 69 6E 61 74 65 73 20 61 y coordinates a
018420: 72 65 20 69 6E 20 74 68 65 20 76 61 6C 69 64 20 re in the valid
018430: 70 6C 61 79 69 6E 67 20 61 72 65 61 2E 2E 0D 0A playing area....
018440: 21 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 !..!!!!!!!!!!!!!
018450: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018460: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018470: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018480: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018490: 21 21 21 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 !!!....function
0184A0: 69 6E 73 71 75 61 72 65 25 28 78 25 2C 20 79 25 insquare%(x%, y%
0184B0: 29 0D 0A 0D 0A 64 69 6D 20 69 6E 78 25 20 21 20 )....dim inx% !
0184C0: 69 6E 73 69 64 65 20 78 0D 0A 64 69 6D 20 69 6E inside x..dim in
0184D0: 79 25 20 21 20 69 6E 73 69 64 65 20 79 0D 0A 0D y% ! inside y...
0184E0: 0A 69 6E 78 25 20 3D 20 6D 6F 75 73 65 78 25 20 .inx% = mousex%
0184F0: 3E 3D 20 63 65 6E 74 65 72 78 25 20 61 6E 64 20 >= centerx% and
018500: 6D 6F 75 73 65 78 25 20 3C 3D 20 63 65 6E 74 65 mousex% <= cente
018510: 72 78 25 2B 6D 61 78 78 73 25 2D 31 20 21 20 66 rx%+maxxs%-1 ! f
018520: 69 6E 64 20 78 0D 0A 69 6E 79 25 20 3D 20 6D 6F ind x..iny% = mo
018530: 75 73 65 79 25 20 3E 3D 20 63 65 6E 74 65 72 79 usey% >= centery
018540: 25 20 61 6E 64 20 6D 6F 75 73 65 79 25 20 3C 3D % and mousey% <=
018550: 20 63 65 6E 74 65 72 79 25 2B 6D 61 78 79 73 25 centery%+maxys%
018560: 2D 31 20 21 20 66 69 6E 64 20 79 0D 0A 0D 0A 65 -1 ! find y....e
018570: 6E 64 66 75 6E 63 20 69 6E 78 25 20 61 6E 64 20 ndfunc inx% and
018580: 69 6E 79 25 0D 0A 0D 0A 21 21 21 21 21 21 21 21 iny%....!!!!!!!!
018590: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0185A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0185B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0185C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0185D0: 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 43 !!!!!!!!..!..! C
0185E0: 68 65 63 6B 20 72 65 70 6C 61 79 0D 0A 21 0D 0A heck replay..!..
0185F0: 21 20 41 73 6B 73 20 74 68 65 20 75 73 65 72 20 ! Asks the user
018600: 0D 0A 66 6F 72 20 6E 25 20 3D 20 31 20 74 6F 20 ..for n% = 1 to
018610: 6D 61 78 6D 69 6E 65 20 21 20 70 6C 61 63 65 20 maxmine ! place
018620: 6D 69 6E 65 0D 0A 0D 0A 20 20 20 72 65 70 65 61 mine.... repea
018630: 74 0D 0A 0D 0A 20 20 20 20 20 20 78 25 20 3D 20 t.... x% =
018640: 72 6E 64 28 30 29 2A 6D 61 78 78 73 25 0D 0A 20 rnd(0)*maxxs%..
018650: 20 20 20 20 20 79 25 20 3D 20 72 6E 64 28 30 29 y% = rnd(0)
018660: 2A 6D 61 78 79 73 25 0D 0A 0D 0A 20 20 20 75 6E *maxys%.... un
018670: 74 69 6C 20 6E 6F 74 20 6D 69 6E 65 25 28 78 25 til not mine%(x%
018680: 2C 20 79 25 29 20 21 20 6E 6F 20 6D 69 6E 65 20 , y%) ! no mine
018690: 65 78 69 73 74 73 20 61 74 20 73 71 75 61 72 65 exists at square
0186A0: 0D 0A 20 20 20 6D 69 6E 65 25 28 78 25 2C 20 79 .. mine%(x%, y
0186B0: 25 29 20 3D 20 74 72 75 65 20 21 20 70 6C 61 63 %) = true ! plac
0186C0: 65 20 6D 69 6E 65 0D 0A 0D 0A 6E 65 78 74 20 6E e mine....next n
0186D0: 25 0D 0A 0D 0A 65 6E 64 70 72 6F 63 0D 0A 0D 0A %....endproc....
0186E0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0186F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018700: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018710: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018720: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018730: 0D 0A 21 0D 0A 21 20 43 6C 65 61 72 20 6C 69 6E ..!..! Clear lin
018740: 65 0D 0A 21 0D 0A 21 20 43 6C 65 61 72 73 20 74 e..!..! Clears t
018750: 68 65 20 73 70 65 63 69 66 69 65 64 20 6C 69 6E he specified lin
018760: 65 20 74 6F 20 73 70 61 63 65 73 20 69 6E 20 74 e to spaces in t
018770: 68 65 20 73 70 65 63 69 66 69 65 64 20 63 6F 6C he specified col
018780: 6F 72 2E 0D 0A 21 0D 0A 21 21 21 21 21 21 21 21 or...!..!!!!!!!!
018790: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0187A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0187B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0187C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0187D0: 21 21 21 21 21 21 21 21 0D 0A 0D 0A 70 72 6F 63 !!!!!!!!....proc
0187E0: 65 64 75 72 65 20 63 6C 72 6C 69 6E 28 79 25 2C edure clrlin(y%,
0187F0: 20 63 6C 72 25 29 0D 0A 0D 0A 64 69 6D 20 69 25 clr%)....dim i%
018800: 69 66 20 61 20 72 65 70 6C 61 79 20 69 73 20 64 if a replay is d
018810: 65 73 69 72 65 64 2C 20 74 68 65 6E 20 65 69 74 esired, then eit
018820: 68 65 72 20 63 61 6E 63 65 6C 73 20 74 68 65 20 her cancels the
018830: 67 61 6D 65 2C 20 6F 72 0D 0A 21 20 73 65 74 73 game, or..! sets
018840: 20 75 70 20 61 20 6E 65 77 20 67 61 6D 65 20 61 up a new game a
018850: 73 20 72 65 71 75 65 73 74 65 64 2E 0D 0A 21 0D s requested...!.
018860: 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 .!!!!!!!!!!!!!!!
018870: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018880: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018890: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0188A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0188B0: 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 72 !....procedure r
0188C0: 65 70 6C 61 79 0D 0A 0D 0A 21 20 61 73 6B 20 75 eplay....! ask u
0188D0: 73 65 72 20 66 6F 72 20 72 65 70 6C 61 79 0D 0A ser for replay..
0188E0: 62 63 6F 6C 6F 72 28 63 79 61 6E 25 29 0D 0A 70 bcolor(cyan%)..p
0188F0: 72 74 6D 69 64 28 6D 61 78 79 25 2C 20 22 50 4C rtmid(maxy%, "PL
018900: 41 59 20 41 47 41 49 4E 20 28 59 2F 4E 29 20 3F AY AGAIN (Y/N) ?
018910: 22 29 0D 0A 72 65 70 65 61 74 20 21 20 77 61 69 ")..repeat ! wai
018920: 74 20 66 6F 72 20 72 65 73 70 6F 6E 73 65 0D 0A t for response..
018930: 0D 0A 20 20 20 21 20 77 61 69 74 20 74 69 6C 6C .. ! wait till
018940: 20 61 20 63 68 61 72 61 63 74 65 72 20 69 73 20 a character is
018950: 70 72 65 73 73 65 64 0D 0A 20 20 20 72 65 70 65 pressed.. repe
018960: 61 74 0D 0A 0D 0A 20 20 20 20 20 20 65 76 65 6E at.... even
018970: 74 28 6E 65 78 74 65 76 65 6E 74 29 0D 0A 0D 0A t(nextevent)....
018980: 20 20 20 75 6E 74 69 6C 20 6E 65 78 74 65 76 65 until nexteve
018990: 6E 74 2E 65 74 79 70 65 20 3D 20 65 74 63 68 61 nt.etype = etcha
0189A0: 72 25 20 6F 72 20 6E 65 78 74 65 76 65 6E 74 2E r% or nextevent.
0189B0: 65 74 79 70 65 20 3D 20 65 74 74 65 72 6D 25 0D etype = etterm%.
0189C0: 0A 20 20 20 69 66 20 6E 65 78 74 65 76 65 6E 74 . if nextevent
0189D0: 2E 65 74 79 70 65 20 3D 20 65 74 74 65 72 6D 25 .etype = etterm%
0189E0: 20 74 68 65 6E 20 64 6F 6E 65 25 20 3D 20 74 72 then done% = tr
0189F0: 75 65 25 20 21 20 66 6F 72 63 65 20 61 20 71 75 ue% ! force a qu
018A00: 0D 0A 0D 0A 63 75 72 73 6F 72 28 31 2C 20 79 25 ....cursor(1, y%
018A10: 29 20 21 20 70 6F 73 69 74 69 6F 6E 20 74 6F 20 ) ! position to
018A20: 73 70 65 63 69 66 69 65 64 20 6C 69 6E 65 0D 0A specified line..
018A30: 62 63 6F 6C 6F 72 28 63 6C 72 25 29 20 21 20 73 bcolor(clr%) ! s
018A40: 65 74 20 63 6F 6C 6F 72 0D 0A 66 6F 72 20 69 25 et color..for i%
018A50: 20 3D 20 31 20 74 6F 20 6D 61 78 78 25 20 64 6F = 1 to maxx% do
018A60: 20 70 72 69 6E 74 20 22 20 22 3B 20 21 20 63 6C print " "; ! cl
018A70: 65 61 72 20 6C 69 6E 65 0D 0A 0D 0A 65 6E 64 70 ear line....endp
018A80: 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 21 21 roc....!!!!!!!!!
018A90: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018AA0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018AB0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018AC0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018AD0: 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 50 72 !!!!!!!..!..! Pr
018AE0: 69 6E 74 20 63 65 6E 74 65 72 65 64 20 73 74 72 int centered str
018AF0: 69 6E 67 0D 0A 21 0D 0A 21 20 50 72 69 6E 74 73 ing..!..! Prints
018B00: 20 74 68 65 20 67 69 76 65 6E 20 73 74 72 69 6E the given strin
018B10: 67 20 63 65 6E 74 65 72 65 64 20 6F 6E 20 74 68 g centered on th
018B20: 65 20 67 69 76 65 6E 20 6C 69 6E 65 2E 0D 0A 21 e given line...!
018B30: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
018B40: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018B50: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018B60: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018B70: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018B80: 21 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 !!....procedure
018B90: 70 72 74 6D 69 64 28 79 25 2C 20 73 24 29 0D 0A prtmid(y%, s$)..
018BA0: 0D 0A 63 75 72 73 6F 72 28 6D 61 78 78 25 20 64 ..cursor(maxx% d
018BB0: 69 76 20 32 2D 6C 65 6E 28 73 24 29 20 64 69 76 iv 2-len(s$) div
018BC0: 20 32 2C 20 79 25 29 20 21 20 70 6F 73 69 74 69 2, y%) ! positi
018BD0: 6F 6E 20 74 6F 20 73 74 61 72 74 0D 0A 70 72 69 on to start..pri
018BE0: 6E 74 20 73 24 3B 20 21 20 6F 75 74 70 75 74 20 nt s$; ! output
018BF0: 74 68 65 20 73 74 72 69 6E 67 0D 0A 0D 0A 65 6E the string....en
018C00: 69 74 0D 0A 0D 0A 75 6E 74 69 6C 20 6C 63 61 73 it....until lcas
018C10: 65 28 6E 65 78 74 65 76 65 6E 74 2E 63 68 61 72 e(nextevent.char
018C20: 24 29 20 3D 20 22 79 22 20 6F 72 20 6C 63 61 73 $) = "y" or lcas
018C30: 65 28 6E 65 78 74 65 76 65 6E 74 2E 63 68 61 72 e(nextevent.char
018C40: 29 20 3D 20 22 6E 22 20 6F 72 20 64 6F 6E 65 25 ) = "n" or done%
018C50: 0D 0A 69 66 20 6C 63 61 73 65 28 6E 65 78 74 65 ..if lcase(nexte
018C60: 76 65 6E 74 2E 63 68 61 72 24 29 20 3D 20 22 6E vent.char$) = "n
018C70: 22 20 6F 72 20 64 6F 6E 65 25 20 74 68 65 6E 20 " or done% then
018C80: 64 6F 6E 65 25 20 3D 20 74 72 75 65 25 20 65 6C done% = true% el
018C90: 73 65 0D 0A 0D 0A 20 20 20 21 20 63 6C 65 61 72 se.... ! clear
018CA0: 20 6F 6C 64 20 6D 65 73 73 61 67 65 73 0D 0A 20 old messages..
018CB0: 20 20 63 6C 72 6C 69 6E 28 6D 61 78 79 25 2D 32 clrlin(maxy%-2
018CC0: 2C 20 63 79 61 6E 25 29 0D 0A 20 20 20 63 6C 72 , cyan%).. clr
018CD0: 6C 69 6E 28 6D 61 78 79 25 2C 20 63 79 61 6E 25 lin(maxy%, cyan%
018CE0: 29 0D 0A 20 20 20 21 20 73 74 61 72 74 20 6E 65 ).. ! start ne
018CF0: 77 20 67 61 6D 65 0D 0A 20 20 20 63 6C 72 62 72 w game.. clrbr
018D00: 64 20 21 20 73 65 74 20 75 70 20 62 6F 61 72 64 d ! set up board
018D10: 0D 0A 20 20 20 63 75 72 73 6F 72 78 25 20 3D 20 .. cursorx% =
018D20: 63 65 6E 74 65 72 78 25 20 21 20 73 65 74 20 69 centerx% ! set i
018D30: 6E 69 74 61 6C 20 63 75 72 73 6F 72 20 70 6F 73 nital cursor pos
018D40: 69 74 69 6F 6E 0D 0A 20 20 20 63 75 72 73 6F 72 ition.. cursor
018D50: 79 25 20 3D 20 63 65 6E 74 65 72 79 25 0D 0A 20 y% = centery%..
018D60: 20 20 62 61 64 67 75 65 73 73 25 20 3D 20 66 61 badguess% = fa
018D70: 6C 73 65 25 20 21 20 73 65 74 20 62 61 64 20 67 lse% ! set bad g
018D80: 75 65 73 73 65 73 20 69 6E 76 69 73 69 62 6C 65 uesses invisible
018D90: 0D 0A 0D 0A 65 6E 64 69 66 0D 0A 0D 0A 65 6E 64 ....endif....end
018DA0: 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 21 proc....!!!!!!!!
018DB0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018DC0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018DD0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018DE0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018DF0: 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 50 !!!!!!!!..!..! P
018E00: 64 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 dproc....!!!!!!!
018E10: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018E20: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018E30: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018E40: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018E50: 21 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 !!!!!!!!!..!..!
018E60: 44 72 61 77 20 63 68 61 72 61 63 74 65 72 20 62 Draw character b
018E70: 6F 78 0D 0A 21 0D 0A 21 20 44 72 61 77 73 20 61 ox..!..! Draws a
018E80: 20 62 6F 78 20 6F 66 20 74 68 65 20 67 69 76 65 box of the give
018E90: 6E 20 63 6F 6C 6F 72 20 61 6E 64 20 63 68 61 72 n color and char
018EA0: 61 63 74 65 72 20 74 6F 20 74 68 65 20 6C 6F 63 acter to the loc
018EB0: 61 74 69 6F 6E 2E 0D 0A 21 20 54 68 65 20 63 6F ation...! The co
018EC0: 6C 6F 72 73 20 61 72 65 20 6E 6F 74 20 73 61 76 lors are not sav
018ED0: 65 64 20 6F 72 20 72 65 73 74 6F 72 65 64 2E 0D ed or restored..
018EE0: 0A 21 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 .!..!!!!!!!!!!!!
018EF0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018F00: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018F10: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018F20: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
018F30: 21 21 21 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 !!!!....procedur
018F40: 65 20 74 62 6F 78 28 73 78 25 2C 20 73 79 25 2C e tbox(sx%, sy%,
018F50: 20 65 78 25 2C 20 65 79 25 2C 20 63 24 2C 20 62 ex%, ey%, c$, b
018F60: 63 6C 72 25 2C 20 66 63 6C 72 25 29 0D 0A 0D 0A clr%, fclr%)....
018F70: 64 69 6D 20 78 25 2C 20 79 25 20 21 20 63 6F 6F dim x%, y% ! coo
018F80: 72 64 69 6E 61 74 65 73 0D 0A 0D 0A 62 63 6F 6C rdinates....bcol
018F90: 6F 72 28 62 63 6C 72 25 29 0D 0A 66 63 6F 6C 6F or(bclr%)..fcolo
018FA0: 72 28 66 63 6C 72 25 29 0D 0A 63 75 72 73 6F 72 r(fclr%)..cursor
018FB0: 28 73 78 25 2C 20 73 79 25 29 20 21 20 70 6F 73 (sx%, sy%) ! pos
018FC0: 69 74 69 6F 6E 20 61 74 20 62 6F 78 20 74 6F 70 ition at box top
018FD0: 20 6C 65 66 74 0D 0A 66 6F 72 20 78 25 20 3D 20 left..for x% =
018FE0: 73 78 25 20 74 6F 20 65 78 25 3A 20 70 72 69 6E sx% to ex%: prin
018FF0: 74 20 63 24 3B 3A 20 6E 65 78 74 20 78 25 20 21 t c$;: next x% !
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 00 00 02 09 52 E5 15 00 C1 02 00 00 00 02 ......R.........
019020: 15 00 C6 02 00 00 00 02 15 00 C2 02 00 00 00 02 ................
019030: 15 00 C7 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019040: 15 00 C8 02 00 00 00 02 15 00 C4 02 00 00 00 02 ................
019050: 15 00 C9 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 72 6F 63 65 73 73 20 73 71 75 61 72 65 20 22 68 rocess square "h
019110: 69 74 22 0D 0A 21 0D 0A 21 20 50 72 6F 63 65 73 it"..!..! Proces
019120: 73 65 73 20 61 20 22 68 69 74 22 20 6F 6E 20 61 ses a "hit" on a
019130: 20 73 71 75 61 72 65 2C 20 77 68 69 63 68 20 6D square, which m
019140: 65 61 6E 73 20 72 65 76 65 61 6C 69 6E 67 20 74 eans revealing t
019150: 68 61 74 20 73 71 75 61 72 65 2C 20 61 6E 64 20 hat square, and
019160: 70 6F 73 73 69 62 6C 79 0D 0A 21 20 74 72 69 67 possibly..! trig
019170: 67 65 72 69 6E 67 20 61 20 6D 69 6E 65 2E 0D 0A gering a mine...
019180: 21 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 !..!!!!!!!!!!!!!
019190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0191A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0191B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0191C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0191D0: 21 21 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 !!!....procedure
0191E0: 20 68 69 74 28 78 25 2C 20 79 25 29 0D 0A 0D 0A hit(x%, y%)....
0191F0: 64 69 6D 20 78 69 25 2C 20 79 69 25 20 21 20 69 dim xi%, yi% ! i
019200: 6E 64 65 78 65 73 20 66 6F 72 20 62 6F 61 72 64 ndexes for board
019210: 0D 0A 64 69 6D 20 76 69 73 63 6E 74 25 20 21 20 ..dim viscnt% !
019220: 76 69 73 61 62 6C 65 20 73 71 75 61 72 65 73 20 visable squares
019230: 63 6F 75 6E 74 0D 0A 0D 0A 76 69 73 25 28 78 25 count....vis%(x%
019240: 2C 20 79 25 29 20 3D 20 74 72 75 65 25 20 21 20 , y%) = true% !
019250: 73 65 74 20 74 68 61 74 20 6C 6F 63 61 74 69 6F set that locatio
019260: 6E 20 76 69 73 61 62 6C 65 0D 0A 69 66 20 6D 69 n visable..if mi
019270: 6E 65 25 28 78 25 2C 20 79 25 29 20 74 68 65 6E ne%(x%, y%) then
019280: 20 21 20 6D 69 6E 65 20 66 6F 75 6E 64 0D 0A 0D ! mine found...
019290: 0A 20 20 20 21 20 6D 61 6B 65 20 61 6C 6C 20 6D . ! make all m
0192A0: 69 6E 65 73 20 76 69 73 61 62 6C 65 2C 20 61 6E ines visable, an
0192B0: 64 20 62 61 64 20 67 75 65 73 73 65 73 20 74 6F d bad guesses to
0192C0: 6F 2E 0D 0A 20 20 20 66 6F 72 20 79 69 25 20 3D o... for yi% =
0192D0: 20 31 20 74 6F 20 6D 61 78 79 73 25 0D 0A 0D 0A 1 to maxys%....
0192E0: 20 20 20 20 20 20 66 6F 72 20 78 69 20 3D 20 31 for xi = 1
0192F0: 20 74 6F 20 6D 61 78 78 73 25 0D 0A 0D 0A 20 20 to maxxs%....
019300: 65 78 74 20 65 76 65 6E 74 0D 0A 20 20 20 73 65 ext event.. se
019310: 6C 65 63 74 20 6E 65 78 74 65 76 65 6E 74 2E 65 lect nextevent.e
019320: 74 79 70 65 25 20 21 20 65 76 65 6E 74 0D 0A 0D type% ! event...
019330: 0A 20 20 20 20 20 20 63 61 73 65 20 65 74 74 61 . case etta
019340: 62 25 20 21 20 70 72 6F 63 65 73 73 20 66 6C 61 b% ! process fla
019350: 67 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 21 20 g.... !
019360: 72 65 76 65 72 73 65 20 66 6C 61 67 67 69 6E 67 reverse flagging
019370: 20 6F 6E 20 6C 6F 63 61 74 69 6F 6E 0D 0A 20 20 on location..
019380: 20 20 20 20 20 20 20 66 6C 61 67 28 78 25 2C 20 flag(x%,
019390: 79 25 29 20 3D 20 6E 6F 74 20 66 6C 61 67 28 78 y%) = not flag(x
0193A0: 25 2C 20 79 25 29 0D 0A 20 20 20 20 20 20 20 20 %, y%)..
0193B0: 20 64 69 73 70 6C 61 79 20 21 20 72 65 64 69 73 display ! redis
0193C0: 70 6C 61 79 20 62 6F 61 72 64 0D 0A 0D 0A 20 20 play board....
0193D0: 20 20 20 20 63 61 73 65 20 65 74 65 6E 74 65 72 case etenter
0193E0: 25 3A 20 68 69 74 28 78 25 2C 20 79 25 29 20 21 %: hit(x%, y%) !
0193F0: 20 70 72 6F 63 65 73 73 20 68 69 74 0D 0A 0D 0A process hit....
019400: 20 20 20 20 20 20 21 20 6D 6F 76 65 20 75 70 0D ! move up.
019410: 0A 20 20 20 20 20 20 63 61 73 65 20 65 74 75 70 . case etup
019420: 25 3A 20 69 66 20 63 75 72 73 6F 72 79 25 20 3E %: if cursory% >
019430: 20 63 65 6E 74 65 72 79 25 20 74 68 65 6E 20 63 centery% then c
019440: 75 72 73 6F 72 79 25 20 3D 20 63 75 72 73 6F 72 ursory% = cursor
019450: 79 25 2D 31 0D 0A 0D 0A 20 20 20 20 20 20 21 20 y%-1.... !
019460: 6D 6F 76 65 20 6C 65 66 74 0D 0A 20 20 20 20 20 move left..
019470: 20 63 61 73 65 20 65 74 6C 65 66 74 25 3A 20 69 case etleft%: i
019480: 66 20 63 75 72 73 6F 72 78 25 20 3E 20 63 65 6E f cursorx% > cen
019490: 74 65 72 78 25 20 74 68 65 6E 20 63 75 72 73 6F terx% then curso
0194A0: 72 78 25 20 3D 20 63 75 72 73 6F 72 78 25 2D 31 rx% = cursorx%-1
0194B0: 0D 0A 0D 0A 20 20 20 20 20 20 21 20 6D 6F 76 65 .... ! move
0194C0: 20 64 6F 77 6E 0D 0A 20 20 20 20 20 20 63 61 73 down.. cas
0194D0: 65 20 65 74 64 6F 77 6E 25 3A 20 69 66 20 63 75 e etdown%: if cu
0194E0: 72 73 6F 72 79 25 20 3C 20 63 65 6E 74 65 72 79 rsory% < centery
0194F0: 25 2B 6D 61 78 79 73 25 2D 31 20 74 68 65 6E 20 %+maxys%-1 then
019500: 20 20 20 20 20 20 20 69 66 20 6D 69 6E 65 25 28 if mine%(
019510: 78 69 25 2C 20 79 69 25 29 20 74 68 65 6E 20 76 xi%, yi%) then v
019520: 69 73 25 28 78 69 25 2C 20 79 69 25 29 20 3D 20 is%(xi%, yi%) =
019530: 74 72 75 65 25 0D 0A 0D 0A 20 20 20 20 20 20 6E true%.... n
019540: 65 78 74 20 78 69 25 0D 0A 0D 0A 20 20 20 6E 65 ext xi%.... ne
019550: 78 74 20 79 69 25 0D 0A 20 20 20 62 61 64 67 75 xt yi%.. badgu
019560: 65 73 73 25 20 3D 20 74 72 75 65 25 20 21 20 73 ess% = true% ! s
019570: 65 74 20 62 61 64 20 67 75 65 73 73 65 73 20 76 et bad guesses v
019580: 69 73 61 62 6C 65 0D 0A 20 20 20 64 69 73 70 6C isable.. displ
019590: 61 79 20 21 20 72 65 64 69 73 70 6C 61 79 20 62 ay ! redisplay b
0195A0: 6F 61 72 64 0D 0A 20 20 20 21 20 61 6E 6E 6F 75 oard.. ! annou
0195B0: 6E 63 65 20 74 68 61 74 20 74 6F 20 74 68 65 20 nce that to the
0195C0: 70 6C 61 79 65 72 0D 0A 20 20 20 62 63 6F 6C 6F player.. bcolo
0195D0: 72 28 72 65 64 25 29 0D 0A 20 20 20 70 72 74 6D r(red%).. prtm
0195E0: 69 64 28 6D 61 78 79 25 2D 32 2C 20 22 2A 2A 2A id(maxy%-2, "***
0195F0: 20 59 4F 55 20 48 49 54 20 41 20 4D 49 4E 45 20 YOU HIT A MINE
019600: 21 20 2A 2A 2A 22 29 0D 0A 20 20 20 72 65 70 6C ! ***").. repl
019610: 61 79 20 21 20 70 72 6F 63 65 73 73 20 72 65 70 ay ! process rep
019620: 6C 61 79 0D 0A 0D 0A 65 6C 73 65 20 21 20 76 61 lay....else ! va
019630: 6C 69 64 20 68 69 74 0D 0A 0D 0A 20 20 20 69 66 lid hit.... if
019640: 20 61 64 6A 61 63 65 6E 74 25 28 78 25 2C 20 79 adjacent%(x%, y
019650: 25 29 20 3D 20 30 20 74 68 65 6E 20 76 69 73 61 %) = 0 then visa
019660: 64 6A 28 78 25 2C 20 79 25 29 20 21 20 63 6C 65 dj(x%, y%) ! cle
019670: 61 6E 20 75 70 20 61 64 6A 61 63 65 6E 74 20 73 an up adjacent s
019680: 70 61 63 65 73 0D 0A 20 20 20 21 20 6E 6F 77 2C paces.. ! now,
019690: 20 74 68 65 20 70 6C 61 79 65 72 20 6D 61 79 20 the player may
0196A0: 68 61 76 65 20 77 6F 6E 2E 20 77 65 20 66 69 6E have won. we fin
0196B0: 64 20 74 68 69 73 20 6F 75 74 20 62 79 20 63 6F d this out by co
0196C0: 75 6E 74 69 6E 67 20 61 6C 6C 20 6F 66 20 74 68 unting all of th
0196D0: 65 0D 0A 20 20 20 21 20 76 69 73 61 62 6C 65 20 e.. ! visable
0196E0: 73 71 75 61 72 65 73 2C 20 61 6E 64 20 73 65 65 squares, and see
0196F0: 69 6E 67 20 69 66 20 74 68 65 20 6E 75 6D 62 65 ing if the numbe
019700: 63 75 72 73 6F 72 79 25 20 3D 20 63 75 72 73 6F cursory% = curso
019710: 72 79 25 2B 31 0D 0A 0D 0A 20 20 20 20 20 20 21 ry%+1.... !
019720: 20 6D 6F 76 65 20 72 69 67 68 74 0D 0A 20 20 20 move right..
019730: 20 20 20 63 61 73 65 20 65 74 72 69 67 68 74 25 case etright%
019740: 3A 20 69 66 20 63 75 72 73 6F 72 78 25 20 3C 20 : if cursorx% <
019750: 63 65 6E 74 65 72 78 25 2B 6D 61 78 78 73 25 2D centerx%+maxxs%-
019760: 31 20 74 68 65 6E 20 63 75 72 73 6F 72 78 25 20 1 then cursorx%
019770: 3D 20 63 75 72 73 6F 72 78 25 2B 31 0D 0A 0D 0A = cursorx%+1....
019780: 20 20 20 20 20 20 63 61 73 65 20 65 74 6D 6F 75 case etmou
019790: 6D 6F 76 25 20 21 20 6D 6F 75 73 65 20 6D 6F 76 mov% ! mouse mov
0197A0: 65 6D 65 6E 74 0D 0A 0D 0A 20 20 20 20 20 20 20 ement....
0197B0: 20 20 6D 6F 75 73 65 78 25 20 3D 20 6E 65 78 74 mousex% = next
0197C0: 65 76 65 6E 74 2E 6D 6F 75 70 78 25 20 21 20 73 event.moupx% ! s
0197D0: 65 74 20 6E 65 77 20 6D 6F 75 73 65 20 70 6F 73 et new mouse pos
0197E0: 69 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 ition..
0197F0: 6D 6F 75 73 65 79 25 20 3D 20 6E 65 78 74 65 76 mousey% = nextev
019800: 65 6E 74 2E 6D 6F 75 70 79 25 0D 0A 0D 0A 20 20 ent.moupy%....
019810: 20 20 20 20 63 61 73 65 20 65 74 6D 6F 75 62 61 case etmouba
019820: 20 21 20 6D 6F 75 73 65 20 62 75 74 74 6F 6E 20 ! mouse button
019830: 31 2C 20 68 69 74 0D 0A 0D 0A 20 20 20 20 20 20 1, hit....
019840: 20 20 20 69 66 20 6E 65 78 74 65 76 65 6E 74 2E if nextevent.
019850: 61 6D 6F 75 62 6E 25 20 3D 20 31 20 61 6E 64 20 amoubn% = 1 and
019860: 6F 6E 62 6F 61 72 64 25 28 6D 6F 75 73 65 78 25 onboard%(mousex%
019870: 2C 20 6D 6F 75 73 65 79 25 29 20 74 68 65 6E 0D , mousey%) then.
019880: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 21 ... !
019890: 20 6D 6F 75 73 65 20 70 6F 73 74 69 6F 6E 20 69 mouse postion i
0198A0: 6E 73 69 64 65 20 76 61 6C 69 64 20 73 71 75 61 nside valid squa
0198B0: 72 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 re..
0198C0: 63 75 72 73 6F 72 78 25 20 3D 20 6D 6F 75 73 65 cursorx% = mouse
0198D0: 78 25 20 21 20 73 65 74 20 63 75 72 72 65 6E 74 x% ! set current
0198E0: 20 70 6F 73 69 74 69 6F 6E 20 74 6F 20 74 68 61 position to tha
0198F0: 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 t.. c
019900: 72 20 6F 66 20 73 71 75 61 72 65 73 20 6C 65 66 r of squares lef
019910: 74 20 69 73 20 65 71 75 61 6C 0D 0A 20 20 20 21 t is equal.. !
019920: 20 74 6F 20 74 68 65 20 6E 75 6D 62 65 72 20 6F to the number o
019930: 66 20 6D 69 6E 65 73 0D 0A 20 20 20 76 69 73 63 f mines.. visc
019940: 6E 74 25 20 3D 20 30 0D 0A 20 20 20 66 6F 72 20 nt% = 0.. for
019950: 79 69 25 20 3D 20 31 20 74 6F 20 6D 61 78 79 73 yi% = 1 to maxys
019960: 25 0D 0A 0D 0A 20 20 20 20 20 20 66 6F 72 20 78 %.... for x
019970: 69 25 20 3D 20 31 20 74 6F 20 6D 61 78 78 73 25 i% = 1 to maxxs%
019980: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 .... if
019990: 76 69 73 25 28 78 69 25 2C 20 79 69 25 29 20 74 vis%(xi%, yi%) t
0199A0: 68 65 6E 20 76 69 73 63 6E 74 25 20 3D 20 76 69 hen viscnt% = vi
0199B0: 73 63 6E 74 25 2B 31 20 21 20 63 6F 75 6E 74 20 scnt%+1 ! count
0199C0: 76 69 73 69 62 6C 65 0D 0A 0D 0A 20 20 20 20 20 visible....
0199D0: 20 6E 65 78 74 20 78 69 25 0D 0A 0D 0A 20 20 20 next xi%....
0199E0: 6E 65 78 74 20 79 69 25 0D 0A 20 20 20 69 66 20 next yi%.. if
0199F0: 6D 61 78 78 73 25 2A 6D 61 78 79 73 25 2D 76 69 maxxs%*maxys%-vi
019A00: 73 63 6E 74 25 20 3D 20 6D 61 78 6D 69 6E 65 25 scnt% = maxmine%
019A10: 20 74 68 65 6E 20 21 20 70 6C 61 79 65 72 20 77 then ! player w
019A20: 69 6E 73 0D 0A 0D 0A 20 20 20 20 20 20 64 69 73 ins.... dis
019A30: 70 6C 61 79 20 21 20 72 65 64 69 73 70 6C 61 79 play ! redisplay
019A40: 20 62 6F 61 72 64 0D 0A 20 20 20 20 20 20 21 20 board.. !
019A50: 61 6E 6E 6F 75 6E 63 65 20 74 68 61 74 20 74 6F announce that to
019A60: 20 74 68 65 20 70 6C 61 79 65 72 0D 0A 20 20 20 the player..
019A70: 20 20 20 62 63 6F 6C 6F 72 28 72 65 64 25 29 0D bcolor(red%).
019A80: 0A 20 20 20 20 20 20 70 72 74 6D 69 64 28 6D 61 . prtmid(ma
019A90: 78 79 25 2D 32 2C 20 22 2A 2A 2A 20 59 4F 55 20 xy%-2, "*** YOU
019AA0: 57 49 4E 20 21 20 2A 2A 2A 22 29 0D 0A 20 20 20 WIN ! ***")..
019AB0: 20 20 20 72 65 70 6C 61 79 20 21 20 70 72 6F 63 replay ! proc
019AC0: 65 73 73 20 72 65 70 6C 61 79 0D 0A 0D 0A 20 20 ess replay....
019AD0: 20 65 6E 64 69 66 0D 0A 0D 0A 65 6E 64 69 66 0D endif....endif.
019AE0: 0A 64 69 73 70 6C 61 79 20 21 20 72 65 64 69 73 .display ! redis
019AF0: 70 6C 61 79 20 62 6F 61 72 64 0D 0A 0D 0A 65 6E play board....en
019B00: 75 72 73 6F 72 79 25 20 3D 20 6D 6F 75 73 65 79 ursory% = mousey
019B10: 25 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 78 %.. x
019B20: 25 20 3D 20 63 75 72 73 6F 72 78 25 2D 63 65 6E % = cursorx%-cen
019B30: 74 65 72 78 25 2B 31 20 21 20 73 65 74 20 6C 6F terx%+1 ! set lo
019B40: 63 61 74 69 6F 6E 20 6F 6E 20 62 6F 61 72 64 0D cation on board.
019B50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 79 25 20 . y%
019B60: 3D 20 63 75 72 73 6F 72 79 25 2D 63 65 6E 74 65 = cursory%-cente
019B70: 72 79 25 2B 31 0D 0A 20 20 20 20 20 20 20 20 20 ry%+1..
019B80: 20 20 20 68 69 74 28 78 25 2C 20 79 25 29 20 21 hit(x%, y%) !
019B90: 20 70 72 6F 63 65 73 73 20 68 69 74 0D 0A 0D 0A process hit....
019BA0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 69 66 else if
019BB0: 20 6E 65 78 74 65 76 65 6E 74 2E 61 6D 6F 75 62 nextevent.amoub
019BC0: 6E 25 20 3D 20 32 20 61 6E 64 20 6F 6E 62 6F 61 n% = 2 and onboa
019BD0: 72 64 25 28 6D 6F 75 73 65 78 25 2C 20 6D 6F 75 rd%(mousex%, mou
019BE0: 73 65 79 25 29 20 74 68 65 6E 0D 0A 0D 0A 20 20 sey%) then....
019BF0: 20 20 20 20 20 20 20 20 20 20 21 20 6D 6F 75 73 ! mous
019C00: 65 20 70 6F 73 74 69 6F 6E 20 69 6E 73 69 64 65 e postion inside
019C10: 20 76 61 6C 69 64 20 73 71 75 61 72 65 0D 0A 20 valid square..
019C20: 20 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6F curso
019C30: 72 78 25 20 3D 20 6D 6F 75 73 65 78 25 20 21 20 rx% = mousex% !
019C40: 73 65 74 20 63 75 72 72 65 6E 74 20 70 6F 73 69 set current posi
019C50: 74 69 6F 6E 20 74 6F 20 74 68 61 74 0D 0A 20 20 tion to that..
019C60: 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6F 72 cursor
019C70: 79 25 20 3D 20 6D 6F 75 73 65 79 25 0D 0A 20 20 y% = mousey%..
019C80: 20 20 20 20 20 20 20 20 20 20 78 25 20 3D 20 63 x% = c
019C90: 75 72 73 6F 72 78 25 2D 63 65 6E 74 65 72 78 25 ursorx%-centerx%
019CA0: 2B 31 20 21 20 73 65 74 20 6C 6F 63 61 74 69 6F +1 ! set locatio
019CB0: 6E 20 6F 6E 20 62 6F 61 72 64 0D 0A 20 20 20 20 n on board..
019CC0: 20 20 20 20 20 20 20 20 79 25 20 3D 20 63 75 72 y% = cur
019CD0: 73 6F 72 79 25 2D 63 65 6E 74 65 72 79 25 2B 31 sory%-centery%+1
019CE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 21 20 .. !
019CF0: 72 65 76 65 72 73 65 20 66 6C 61 67 67 69 6E 67 reverse flagging
019D00: 64 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 dproc....!!!!!!!
019D10: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019D20: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019D30: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019D40: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019D50: 21 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 !!!!!!!!!..!..!
019D60: 4D 61 69 6E 20 70 72 6F 63 65 73 73 0D 0A 21 0D Main process..!.
019D70: 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 .!!!!!!!!!!!!!!!
019D80: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019D90: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019DA0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019DB0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
019DC0: 21 0D 0A 0D 0A 61 75 74 6F 28 66 61 6C 73 65 25 !....auto(false%
019DD0: 29 20 21 20 74 75 72 6E 20 6F 66 66 20 73 63 72 ) ! turn off scr
019DE0: 6F 6C 6C 69 6E 67 0D 0A 62 63 6F 6C 6F 72 28 63 olling..bcolor(c
019DF0: 79 61 6E 25 29 20 21 20 63 6F 6C 6F 72 20 74 68 yan%) ! color th
019E00: 65 20 62 61 63 6B 67 72 6F 75 6E 64 0D 0A 63 6C e background..cl
019E10: 65 61 72 20 21 20 63 6C 65 61 72 20 74 6F 20 74 ear ! clear to t
019E20: 68 61 74 0D 0A 62 63 6F 6C 6F 72 28 6D 61 67 65 hat..bcolor(mage
019E30: 6E 74 61 25 29 0D 0A 70 72 74 6D 69 64 28 31 2C nta%)..prtmid(1,
019E40: 20 22 2A 2A 2A 2A 2A 2A 2A 20 4D 69 6E 65 20 67 "******* Mine g
019E50: 61 6D 65 20 31 2E 30 20 2A 2A 2A 2A 2A 2A 2A 2A ame 1.0 ********
019E60: 22 29 20 21 20 6F 75 74 70 75 74 20 74 69 74 6C ") ! output titl
019E70: 65 0D 0A 21 20 66 69 6E 64 20 63 65 6E 74 65 72 e..! find center
019E80: 20 62 6F 61 72 64 20 70 6F 73 69 74 69 6F 6E 0D board position.
019E90: 0A 63 65 6E 74 65 72 78 25 20 3D 20 6D 61 78 78 .centerx% = maxx
019EA0: 25 20 64 69 76 20 32 2D 6D 61 78 78 73 25 20 64 % div 2-maxxs% d
019EB0: 69 76 20 32 0D 0A 63 65 6E 74 65 72 79 25 20 3D iv 2..centery% =
019EC0: 20 6D 61 78 79 25 20 64 69 76 20 32 2D 6D 61 78 maxy% div 2-max
019ED0: 79 73 25 20 64 69 76 20 32 0D 0A 21 20 64 72 61 ys% div 2..! dra
019EE0: 77 20 61 20 62 6F 72 64 65 72 20 61 72 6F 75 6E w a border aroun
019EF0: 64 20 74 68 61 74 0D 0A 74 62 6F 78 28 63 65 6E d that..tbox(cen
019F00: 20 6F 6E 20 6C 6F 63 61 74 69 6F 6E 0D 0A 20 20 on location..
019F10: 20 20 20 20 20 20 20 20 20 20 66 6C 61 67 28 78 flag(x
019F20: 25 2C 20 79 25 29 20 3D 20 66 6C 61 67 28 78 25 %, y%) = flag(x%
019F30: 2C 20 79 25 29 0D 0A 20 20 20 20 20 20 20 20 20 , y%)..
019F40: 20 20 20 64 69 73 70 6C 61 79 20 21 20 72 65 64 display ! red
019F50: 69 73 70 6C 61 79 20 62 6F 61 72 64 0D 0A 0D 0A isplay board....
019F60: 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A endif..
019F70: 0D 0A 20 20 20 65 6E 64 73 65 6C 0D 0A 0D 0A 75 .. endsel....u
019F80: 6E 74 69 6C 20 64 6F 6E 65 25 20 6F 72 20 6E 65 ntil done% or ne
019F90: 78 74 65 76 65 6E 74 2E 65 74 79 70 65 25 20 3D xtevent.etype% =
019FA0: 20 65 74 74 65 72 6D 25 20 21 20 67 61 6D 65 20 etterm% ! game
019FB0: 63 6F 6D 70 6C 65 74 65 0D 0A 61 75 74 6F 28 74 complete..auto(t
019FC0: 72 75 65 25 29 20 21 20 74 75 72 6E 20 6F 66 66 rue%) ! turn off
019FD0: 20 73 63 72 6F 6C 6C 69 6E 67 0D 0A 62 63 6F 6C scrolling..bcol
019FE0: 6F 72 28 77 68 69 74 65 25 29 20 21 20 72 65 73 or(white%) ! res
019FF0: 74 6F 72 65 20 63 6F 6C 6F 72 73 0D 0A 66 63 6F tore colors..fco
01A000: 6C 6F 72 28 62 6C 61 63 6B 25 29 0D 0A 63 6C 65 lor(black%)..cle
01A010: 61 72 20 21 20 63 6C 65 61 72 20 73 63 72 65 65 ar ! clear scree
01A020: 6E 0D 0A 0D 0A 65 6E 64 1A E5 E5 E5 E5 E5 E5 E5 n....end........
01A030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A100: 74 65 72 78 25 2D 31 2C 20 63 65 6E 74 65 72 79 terx%-1, centery
01A110: 25 2D 31 2C 20 63 65 6E 74 65 72 78 25 2B 6D 61 %-1, centerx%+ma
01A120: 78 78 73 25 2C 20 63 65 6E 74 65 72 79 25 2B 6D xxs%, centery%+m
01A130: 61 78 79 73 25 2C 20 22 20 22 2C 20 62 6C 75 65 axys%, " ", blue
01A140: 25 2C 20 62 6C 61 63 6B 25 29 0D 0A 62 63 6F 6C %, black%)..bcol
01A150: 6F 72 28 77 68 69 74 65 25 29 20 21 20 72 65 73 or(white%) ! res
01A160: 74 6F 72 65 20 74 68 65 20 62 61 63 6B 67 72 6F tore the backgro
01A170: 75 6E 64 0D 0A 63 6C 72 62 72 64 20 21 20 73 65 und..clrbrd ! se
01A180: 74 20 75 70 20 62 6F 61 72 64 0D 0A 64 69 73 70 t up board..disp
01A190: 6C 61 79 20 21 20 20 64 69 73 70 6C 61 79 20 62 lay ! display b
01A1A0: 6F 61 72 64 20 7D 0D 0A 64 6F 6E 65 25 20 3D 20 oard }..done% =
01A1B0: 66 61 6C 73 65 25 20 21 20 73 65 74 20 67 61 6D false% ! set gam
01A1C0: 65 20 69 6E 20 70 72 6F 67 72 65 73 73 0D 0A 63 e in progress..c
01A1D0: 75 72 73 6F 72 78 25 20 3D 20 63 65 6E 74 65 72 ursorx% = center
01A1E0: 78 25 20 21 20 73 65 74 20 69 6E 69 74 61 6C 20 x% ! set inital
01A1F0: 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E 0D cursor position.
01A200: 0A 63 75 72 73 6F 72 79 25 20 3D 20 63 65 6E 74 .cursory% = cent
01A210: 65 72 79 25 0D 0A 62 61 64 67 75 65 73 73 25 20 ery%..badguess%
01A220: 3D 20 66 61 6C 73 65 25 20 21 20 73 65 74 20 62 = false% ! set b
01A230: 61 64 20 67 75 65 73 73 65 73 20 69 6E 76 69 73 ad guesses invis
01A240: 69 62 6C 65 0D 0A 72 65 70 65 61 74 20 21 20 65 ible..repeat ! e
01A250: 6E 74 65 72 20 75 73 65 72 20 6D 6F 76 65 73 0D nter user moves.
01A260: 0A 0D 0A 20 20 20 63 75 72 73 6F 72 28 63 75 72 ... cursor(cur
01A270: 73 6F 72 78 25 2C 20 63 75 72 73 6F 72 79 25 29 sorx%, cursory%)
01A280: 20 21 20 70 6C 61 63 65 20 63 75 72 73 6F 72 0D ! place cursor.
01A290: 0A 20 20 20 78 25 20 3D 20 63 75 72 73 6F 72 78 . x% = cursorx
01A2A0: 25 2D 63 65 6E 74 65 72 78 25 2B 31 20 21 20 73 %-centerx%+1 ! s
01A2B0: 65 74 20 6C 6F 63 61 74 69 6F 6E 20 6F 6E 20 62 et location on b
01A2C0: 6F 61 72 64 0D 0A 20 20 20 79 25 20 3D 20 63 75 oard.. y% = cu
01A2D0: 72 73 6F 72 79 2D 63 65 6E 74 65 72 79 2B 31 0D rsory-centery+1.
01A2E0: 0A 20 20 20 65 76 65 6E 74 28 6E 65 78 74 65 76 . event(nextev
01A2F0: 65 6E 74 29 20 21 20 67 65 74 20 74 68 65 20 6E ent) ! get the n
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 00 00 02 09 52 E5 16 00 C1 02 00 00 00 02 ......R.........
01A320: 16 00 C6 02 00 00 00 02 16 00 C2 02 00 00 00 02 ................
01A330: 16 00 C7 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A340: 16 00 C8 02 00 00 00 02 16 00 C4 02 00 00 00 02 ................
01A350: 16 00 C9 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
01A410: 22 4D 55 47 57 55 4D 50 22 0D 0A 32 20 50 52 49 "MUGWUMP"..2 PRI
01A420: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
01A430: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
01A440: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
01A450: 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 JERSEY"..3 PRINT
01A460: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 :PRINT:PRINT..4
01A470: 52 45 4D 20 20 20 20 20 43 4F 55 52 54 45 53 59 REM COURTESY
01A480: 20 50 45 4F 50 4C 45 27 53 20 43 4F 4D 50 55 54 PEOPLE'S COMPUT
01A490: 45 52 20 43 4F 4D 50 41 4E 59 0D 0A 31 30 20 44 ER COMPANY..10 D
01A4A0: 49 4D 20 50 28 34 2C 32 29 0D 0A 32 30 20 50 52 IM P(4,2)..20 PR
01A4B0: 49 4E 54 20 22 54 48 45 20 4F 42 4A 45 43 54 20 INT "THE OBJECT
01A4C0: 4F 46 20 54 48 49 53 20 47 41 4D 45 20 49 53 20 OF THIS GAME IS
01A4D0: 54 4F 20 46 49 4E 44 20 46 4F 55 52 20 4D 55 47 TO FIND FOUR MUG
01A4E0: 57 55 4D 50 53 22 0D 0A 33 30 20 50 52 49 4E 54 WUMPS"..30 PRINT
01A4F0: 20 22 48 49 44 44 45 4E 20 4F 4E 20 41 20 31 30 "HIDDEN ON A 10
01A500: 20 42 59 20 31 30 20 47 52 49 44 2E 20 20 48 4F BY 10 GRID. HO
01A510: 4D 45 42 41 53 45 20 49 53 20 50 4F 53 49 54 49 MEBASE IS POSITI
01A520: 4F 4E 20 30 2C 30 2E 22 0D 0A 34 30 20 50 52 49 ON 0,0."..40 PRI
01A530: 4E 54 20 22 41 4E 59 20 47 55 45 53 53 20 59 4F NT "ANY GUESS YO
01A540: 55 20 4D 41 4B 45 20 4D 55 53 54 20 42 45 20 54 U MAKE MUST BE T
01A550: 57 4F 20 4E 55 4D 42 45 52 53 20 57 49 54 48 20 WO NUMBERS WITH
01A560: 45 41 43 48 22 0D 0A 35 30 20 50 52 49 4E 54 20 EACH"..50 PRINT
01A570: 22 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 "NUMBER BETWEEN
01A580: 30 20 41 4E 44 20 39 2C 20 49 4E 43 4C 55 53 49 0 AND 9, INCLUSI
01A590: 56 45 2E 20 20 46 49 52 53 54 20 4E 55 4D 42 45 VE. FIRST NUMBE
01A5A0: 52 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 49 53 R"..60 PRINT "IS
01A5B0: 20 44 49 53 54 41 4E 43 45 20 54 4F 20 52 49 47 DISTANCE TO RIG
01A5C0: 48 54 20 4F 46 20 48 4F 4D 45 42 41 53 45 20 41 HT OF HOMEBASE A
01A5D0: 4E 44 20 53 45 43 4F 4E 44 20 4E 55 4D 42 45 52 ND SECOND NUMBER
01A5E0: 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 49 53 20 "..70 PRINT "IS
01A5F0: 44 49 53 54 41 4E 43 45 20 41 42 4F 56 45 20 48 DISTANCE ABOVE H
01A600: 30 20 50 52 49 4E 54 20 22 42 55 54 20 49 20 4A 0 PRINT "BUT I J
01A610: 55 53 54 20 4E 4F 54 49 43 45 44 20 59 4F 55 52 UST NOTICED YOUR
01A620: 20 4C 45 54 54 45 52 53 20 41 52 45 20 4F 55 54 LETTERS ARE OUT
01A630: 20 4F 46 20 4F 52 44 45 52 2E 22 0D 0A 39 30 20 OF ORDER."..90
01A640: 50 52 49 4E 54 20 22 4C 45 54 27 53 20 50 55 54 PRINT "LET'S PUT
01A650: 20 54 48 45 4D 20 49 4E 20 4F 52 44 45 52 20 4C THEM IN ORDER L
01A660: 49 4B 45 20 54 48 49 53 3A 20 22 3B 0D 0A 31 30 IKE THIS: ";..10
01A670: 30 20 46 4F 52 20 4A 3D 32 20 54 4F 20 4C 3A 20 0 FOR J=2 TO L:
01A680: 49 3D 4A 2D 31 3A 20 54 24 3D 42 24 28 4A 29 0D I=J-1: T$=B$(J).
01A690: 0A 31 31 30 20 49 46 20 54 24 3E 42 24 28 49 29 .110 IF T$>B$(I)
01A6A0: 20 54 48 45 4E 20 31 33 30 0D 0A 31 32 30 20 42 THEN 130..120 B
01A6B0: 24 28 49 2B 31 29 3D 42 24 28 49 29 3A 20 49 3D $(I+1)=B$(I): I=
01A6C0: 49 2D 31 3A 20 49 46 20 49 3E 30 20 54 48 45 4E I-1: IF I>0 THEN
01A6D0: 20 31 31 30 0D 0A 31 33 30 20 42 24 28 49 2B 31 110..130 B$(I+1
01A6E0: 29 3D 54 24 3A 20 4E 45 58 54 20 4A 0D 0A 31 34 )=T$: NEXT J..14
01A6F0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4C 3A 20 0 FOR I=1 TO L:
01A700: 50 52 49 4E 54 20 42 24 28 49 29 3B 3A 20 4E 45 PRINT B$(I);: NE
01A710: 58 54 20 49 3A 20 50 52 49 4E 54 3A 20 50 52 49 XT I: PRINT: PRI
01A720: 4E 54 0D 0A 31 35 30 20 50 52 49 4E 54 20 22 44 NT..150 PRINT "D
01A730: 4F 4E 27 54 20 59 4F 55 20 4C 49 4B 45 20 54 48 ON'T YOU LIKE TH
01A740: 41 54 20 42 45 54 54 45 52 22 3B 3A 20 49 4E 50 AT BETTER";: INP
01A750: 55 54 20 44 24 0D 0A 31 36 30 20 49 46 20 44 24 UT D$..160 IF D$
01A760: 3D 22 59 45 53 22 20 54 48 45 4E 20 31 38 30 0D ="YES" THEN 180.
01A770: 0A 31 37 30 20 50 52 49 4E 54 3A 20 50 52 49 4E .170 PRINT: PRIN
01A780: 54 20 22 49 27 4D 20 53 4F 52 52 59 20 59 4F 55 T "I'M SORRY YOU
01A790: 20 44 4F 4E 27 54 20 4C 49 4B 45 20 49 54 20 54 DON'T LIKE IT T
01A7A0: 48 41 54 20 57 41 59 2E 22 3A 20 47 4F 54 4F 20 HAT WAY.": GOTO
01A7B0: 32 30 30 0D 0A 31 38 30 20 50 52 49 4E 54 3A 20 200..180 PRINT:
01A7C0: 50 52 49 4E 54 20 22 49 20 4B 4E 45 57 20 59 4F PRINT "I KNEW YO
01A7D0: 55 27 44 20 41 47 52 45 45 21 21 22 0D 0A 32 30 U'D AGREE!!"..20
01A7E0: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 0 PRINT: PRINT "
01A7F0: 49 20 52 45 41 4C 4C 59 20 45 4E 4A 4F 59 45 44 I REALLY ENJOYED
01A800: 4F 4D 45 42 41 53 45 2E 22 0D 0A 38 30 20 50 52 OMEBASE."..80 PR
01A810: 49 4E 54 0D 0A 39 30 20 50 52 49 4E 54 20 22 59 INT..90 PRINT "Y
01A820: 4F 55 20 47 45 54 20 31 30 20 54 52 49 45 53 2E OU GET 10 TRIES.
01A830: 20 20 41 46 54 45 52 20 45 41 43 48 20 54 52 59 AFTER EACH TRY
01A840: 2C 20 49 20 57 49 4C 4C 20 54 45 4C 4C 22 0D 0A , I WILL TELL"..
01A850: 31 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 48 100 PRINT "YOU H
01A860: 4F 57 20 46 41 52 20 59 4F 55 20 41 52 45 20 46 OW FAR YOU ARE F
01A870: 52 4F 4D 20 45 41 43 48 20 4D 55 47 57 55 4D 50 ROM EACH MUGWUMP
01A880: 2E 22 0D 0A 31 31 30 20 50 52 49 4E 54 0D 0A 32 ."..110 PRINT..2
01A890: 34 30 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 32 40 GOSUB 1000..2
01A8A0: 35 30 20 54 3D 30 0D 0A 32 36 30 20 54 3D 54 2B 50 T=0..260 T=T+
01A8B0: 31 0D 0A 32 37 30 20 50 52 49 4E 54 0D 0A 32 37 1..270 PRINT..27
01A8C0: 35 20 50 52 49 4E 54 0D 0A 32 39 30 20 50 52 49 5 PRINT..290 PRI
01A8D0: 4E 54 20 22 54 55 52 4E 20 4E 4F 2E 22 3B 54 3B NT "TURN NO.";T;
01A8E0: 22 2D 2D 20 57 48 41 54 20 49 53 20 59 4F 55 52 "-- WHAT IS YOUR
01A8F0: 20 47 55 45 53 53 22 3B 0D 0A 33 30 30 20 49 4E GUESS";..300 IN
01A900: 50 55 54 20 4D 2C 4E 0D 0A 33 31 30 20 46 4F 52 PUT M,N..310 FOR
01A910: 20 49 3D 31 20 54 4F 20 34 0D 0A 33 32 30 20 49 I=1 TO 4..320 I
01A920: 46 20 50 28 49 2C 31 29 3D 2D 31 20 54 48 45 4E F P(I,1)=-1 THEN
01A930: 20 34 30 30 0D 0A 33 33 30 20 49 46 20 50 28 49 400..330 IF P(I
01A940: 2C 31 29 3C 3E 4D 20 54 48 45 4E 20 33 38 30 0D ,1)<>M THEN 380.
01A950: 0A 33 34 30 20 49 46 20 50 28 49 2C 32 29 3C 3E .340 IF P(I,2)<>
01A960: 4E 20 54 48 45 4E 20 33 38 30 0D 0A 33 35 30 20 N THEN 380..350
01A970: 50 28 49 2C 31 29 3D 2D 31 0D 0A 33 36 30 20 50 P(I,1)=-1..360 P
01A980: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 46 RINT "YOU HAVE F
01A990: 4F 55 4E 44 20 4D 55 47 57 55 4D 50 22 3B 49 0D OUND MUGWUMP";I.
01A9A0: 0A 33 37 30 20 47 4F 54 4F 20 34 30 30 0D 0A 33 .370 GOTO 400..3
01A9B0: 38 30 20 44 3D 53 51 52 28 28 50 28 49 2C 31 29 80 D=SQR((P(I,1)
01A9C0: 2D 4D 29 5E 32 2B 28 50 28 49 2C 32 29 2D 4E 29 -M)^2+(P(I,2)-N)
01A9D0: 5E 32 29 0D 0A 33 39 30 20 50 52 49 4E 54 20 22 ^2)..390 PRINT "
01A9E0: 59 4F 55 20 41 52 45 22 3B 28 49 4E 54 28 44 2A YOU ARE";(INT(D*
01A9F0: 31 30 29 29 2F 31 30 3B 22 55 4E 49 54 53 20 46 10))/10;"UNITS F
01AA00: 20 4D 45 45 54 49 4E 47 20 59 4F 55 20 22 3B 41 MEETING YOU ";A
01AA10: 24 3B 22 2E 22 0D 0A 32 31 30 20 50 52 49 4E 54 $;"."..210 PRINT
01AA20: 20 22 48 41 56 45 20 41 20 4E 49 43 45 20 44 41 "HAVE A NICE DA
01AA30: 59 21 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 Y!"..999 END....
01AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AC00: 52 4F 4D 20 4D 55 47 57 55 4D 50 22 3B 49 0D 0A ROM MUGWUMP";I..
01AC10: 34 30 30 20 4E 45 58 54 20 49 0D 0A 34 31 30 20 400 NEXT I..410
01AC20: 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 34 32 FOR J=1 TO 4..42
01AC30: 30 20 49 46 20 50 28 4A 2C 31 29 3C 3E 2D 31 20 0 IF P(J,1)<>-1
01AC40: 54 48 45 4E 20 34 37 30 0D 0A 34 33 30 20 4E 45 THEN 470..430 NE
01AC50: 58 54 20 4A 0D 0A 34 34 30 20 50 52 49 4E 54 0D XT J..440 PRINT.
01AC60: 0A 34 35 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .450 PRINT "YOU
01AC70: 47 4F 54 20 54 48 45 4D 20 41 4C 4C 20 49 4E 22 GOT THEM ALL IN"
01AC80: 3B 54 3B 22 54 55 52 4E 53 21 22 0D 0A 34 36 30 ;T;"TURNS!"..460
01AC90: 20 47 4F 54 4F 20 35 38 30 0D 0A 34 37 30 20 49 GOTO 580..470 I
01ACA0: 46 20 54 3C 31 30 20 54 48 45 4E 20 32 36 30 0D F T<10 THEN 260.
01ACB0: 0A 34 38 30 20 50 52 49 4E 54 0D 0A 34 39 30 20 .480 PRINT..490
01ACC0: 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 54 48 PRINT "SORRY, TH
01ACD0: 41 54 27 53 20 31 30 20 54 52 49 45 53 2E 20 20 AT'S 10 TRIES.
01ACE0: 48 45 52 45 20 49 53 20 57 48 45 52 45 20 54 48 HERE IS WHERE TH
01ACF0: 45 59 27 52 45 20 48 49 44 49 4E 47 3A 22 0D 0A EY'RE HIDING:"..
01AD00: 35 34 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 34 540 FOR I=1 TO 4
01AD10: 0D 0A 35 35 30 20 49 46 20 50 28 49 2C 31 29 3D ..550 IF P(I,1)=
01AD20: 2D 31 20 54 48 45 4E 20 35 37 30 0D 0A 35 36 30 -1 THEN 570..560
01AD30: 20 50 52 49 4E 54 20 22 4D 55 47 57 55 4D 50 22 PRINT "MUGWUMP"
01AD40: 3B 49 3B 22 49 53 20 41 54 20 28 22 3B 50 28 49 ;I;"IS AT (";P(I
01AD50: 2C 31 29 3B 22 2C 22 3B 50 28 49 2C 32 29 3B 22 ,1);",";P(I,2);"
01AD60: 29 22 0D 0A 35 37 30 20 4E 45 58 54 20 49 0D 0A )"..570 NEXT I..
01AD70: 35 38 30 20 50 52 49 4E 54 0D 0A 36 30 30 20 50 580 PRINT..600 P
01AD80: 52 49 4E 54 20 22 54 48 41 54 20 57 41 53 20 46 RINT "THAT WAS F
01AD90: 55 4E 21 20 4C 45 54 27 53 20 50 4C 41 59 20 41 UN! LET'S PLAY A
01ADA0: 47 41 49 4E 2E 2E 2E 2E 2E 2E 2E 22 0D 0A 36 31 GAIN......."..61
01ADB0: 30 20 50 52 49 4E 54 20 22 46 4F 55 52 20 4D 4F 0 PRINT "FOUR MO
01ADC0: 52 45 20 4D 55 47 57 55 4D 50 53 20 41 52 45 20 RE MUGWUMPS ARE
01ADD0: 4E 4F 57 20 49 4E 20 48 49 44 49 4E 47 2E 22 0D NOW IN HIDING.".
01ADE0: 0A 36 33 30 20 47 4F 54 4F 20 32 34 30 0D 0A 31 .630 GOTO 240..1
01ADF0: 30 30 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 32 000 FOR J=1 TO 2
01AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B000: 0D 0A 31 30 31 30 20 46 4F 52 20 49 3D 31 20 54 ..1010 FOR I=1 T
01B010: 4F 20 34 0D 0A 31 30 32 30 20 50 28 49 2C 4A 29 O 4..1020 P(I,J)
01B020: 3D 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 0D =INT(10*RND(1)).
01B030: 0A 31 30 33 30 20 4E 45 58 54 20 49 0D 0A 31 30 .1030 NEXT I..10
01B040: 34 30 20 4E 45 58 54 20 4A 0D 0A 31 30 35 30 20 40 NEXT J..1050
01B050: 52 45 54 55 52 4E 0D 0A 31 30 39 39 20 45 4E 44 RETURN..1099 END
01B060: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B200: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
01B210: 22 4E 49 43 4F 4D 41 22 0D 0A 34 20 50 52 49 4E "NICOMA"..4 PRIN
01B220: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
01B230: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
01B240: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
01B250: 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A ERSEY"..6 PRINT:
01B260: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 31 PRINT: PRINT..1
01B270: 30 20 50 52 49 4E 54 20 22 42 4F 4F 4D 45 52 41 0 PRINT "BOOMERA
01B280: 4E 47 20 50 55 5A 5A 4C 45 20 46 52 4F 4D 20 41 NG PUZZLE FROM A
01B290: 52 49 54 48 4D 45 54 49 43 41 20 4F 46 20 4E 49 RITHMETICA OF NI
01B2A0: 43 4F 4D 41 43 48 55 53 20 2D 2D 20 41 2E 44 2E COMACHUS -- A.D.
01B2B0: 20 39 30 21 22 0D 0A 32 30 20 50 52 49 4E 54 0D 90!"..20 PRINT.
01B2C0: 0A 33 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 .30 PRINT "PLEAS
01B2D0: 45 20 54 48 49 4E 4B 20 4F 46 20 41 20 4E 55 4D E THINK OF A NUM
01B2E0: 42 45 52 20 42 45 54 57 45 45 4E 20 31 20 41 4E BER BETWEEN 1 AN
01B2F0: 44 20 31 30 30 2E 22 0D 0A 34 30 20 50 52 49 4E D 100."..40 PRIN
01B300: 54 20 22 59 4F 55 52 20 4E 55 4D 42 45 52 20 44 T "YOUR NUMBER D
01B310: 49 56 49 44 45 44 20 42 59 20 33 20 48 41 53 20 IVIDED BY 3 HAS
01B320: 41 20 52 45 4D 41 49 4E 44 45 52 20 4F 46 22 3B A REMAINDER OF";
01B330: 0D 0A 34 35 20 49 4E 50 55 54 20 41 0D 0A 35 30 ..45 INPUT A..50
01B340: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 4E 55 4D PRINT "YOUR NUM
01B350: 42 45 52 20 44 49 56 49 44 45 44 20 42 59 20 35 BER DIVIDED BY 5
01B360: 20 48 41 53 20 41 20 52 45 4D 41 49 4E 44 45 52 HAS A REMAINDER
01B370: 20 4F 46 22 3B 0D 0A 35 35 20 49 4E 50 55 54 20 OF";..55 INPUT
01B380: 42 0D 0A 36 30 20 50 52 49 4E 54 20 22 59 4F 55 B..60 PRINT "YOU
01B390: 52 20 4E 55 4D 42 45 52 20 44 49 56 49 44 45 44 R NUMBER DIVIDED
01B3A0: 20 42 59 20 37 20 48 41 53 20 41 20 52 45 4D 41 BY 7 HAS A REMA
01B3B0: 49 4E 44 45 52 20 4F 46 22 3B 0D 0A 36 35 20 49 INDER OF";..65 I
01B3C0: 4E 50 55 54 20 43 0D 0A 37 30 20 50 52 49 4E 54 NPUT C..70 PRINT
01B3D0: 0D 0A 38 30 20 50 52 49 4E 54 20 22 4C 45 54 20 ..80 PRINT "LET
01B3E0: 4D 45 20 54 48 49 4E 4B 20 41 20 4D 4F 4D 45 4E ME THINK A MOMEN
01B3F0: 54 2E 2E 2E 22 0D 0A 38 35 20 50 52 49 4E 54 0D T..."..85 PRINT.
01B400: 31 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 1 PRINT TAB(34);
01B410: 22 4E 41 4D 45 22 0D 0A 32 20 50 52 49 4E 54 20 "NAME"..2 PRINT
01B420: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
01B430: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
01B440: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
01B450: 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 20 50 SEY"..3 PRINT: P
01B460: 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 35 20 44 RINT: PRINT..5 D
01B470: 49 4D 20 42 24 28 34 30 29 0D 0A 31 30 20 50 52 IM B$(40)..10 PR
01B480: 49 4E 54 20 22 48 45 4C 4C 4F 2E 22 3A 20 50 52 INT "HELLO.": PR
01B490: 49 4E 54 20 22 4D 59 20 4E 41 4D 45 20 49 53 20 INT "MY NAME IS
01B4A0: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 45 CREATIVE COMPUTE
01B4B0: 52 2E 22 0D 0A 32 30 20 50 52 49 4E 54 20 22 57 R."..20 PRINT "W
01B4C0: 48 41 54 27 53 20 59 4F 55 52 20 4E 41 4D 45 20 HAT'S YOUR NAME
01B4D0: 28 46 49 52 53 54 20 41 4E 44 20 4C 41 53 54 22 (FIRST AND LAST"
01B4E0: 3B 3A 20 49 4E 50 55 54 20 41 24 3A 20 4C 3D 4C ;: INPUT A$: L=L
01B4F0: 45 4E 28 41 24 29 0D 0A 33 30 20 50 52 49 4E 54 EN(A$)..30 PRINT
01B500: 3A 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 20 59 : PRINT "THANK Y
01B510: 4F 55 2C 20 22 3B 0D 0A 34 30 20 46 4F 52 20 49 OU, ";..40 FOR I
01B520: 3D 31 20 54 4F 20 4C 3A 20 42 24 28 49 29 3D 4D =1 TO L: B$(I)=M
01B530: 49 44 24 28 41 24 2C 49 2C 31 29 3A 20 4E 45 58 ID$(A$,I,1): NEX
01B540: 54 20 49 0D 0A 35 30 20 46 4F 52 20 49 3D 4C 20 T I..50 FOR I=L
01B550: 54 4F 20 31 20 53 54 45 50 20 2D 31 3A 20 50 52 TO 1 STEP -1: PR
01B560: 49 4E 54 20 42 24 28 49 29 3B 3A 20 4E 45 58 54 INT B$(I);: NEXT
01B570: 20 49 0D 0A 36 30 20 50 52 49 4E 54 20 22 2E 22 I..60 PRINT "."
01B580: 3A 20 50 52 49 4E 54 20 22 4F 4F 50 53 21 20 20 : PRINT "OOPS!
01B590: 49 20 47 55 45 53 53 20 49 20 47 4F 54 20 49 54 I GUESS I GOT IT
01B5A0: 20 42 41 43 4B 57 41 52 44 53 2E 20 20 41 20 53 BACKWARDS. A S
01B5B0: 4D 41 52 54 22 0D 0A 37 30 20 50 52 49 4E 54 20 MART"..70 PRINT
01B5C0: 22 43 4F 4D 50 55 54 45 52 20 4C 49 4B 45 20 4D "COMPUTER LIKE M
01B5D0: 45 20 53 48 4F 55 4C 44 4E 27 54 20 4D 41 4B 45 E SHOULDN'T MAKE
01B5E0: 20 41 20 4D 49 53 54 41 4B 45 20 4C 49 4B 45 20 A MISTAKE LIKE
01B5F0: 54 48 41 54 21 22 3A 20 50 52 49 4E 54 0D 0A 38 THAT!": PRINT..8
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 00 00 02 09 52 E5 17 00 C1 02 00 00 00 02 ......R.........
01B620: 17 00 C6 02 00 00 00 02 17 00 C2 02 00 00 00 02 ................
01B630: 17 00 C7 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B640: 17 00 C8 02 00 00 00 02 17 00 C4 02 00 00 00 02 ................
01B650: 17 00 C9 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 0A 39 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 .90 FOR I=1 TO 1
01B710: 35 30 30 3A 20 4E 45 58 54 20 49 0D 0A 31 30 30 500: NEXT I..100
01B720: 20 44 3D 37 30 2A 41 2B 32 31 2A 42 2B 31 35 2A D=70*A+21*B+15*
01B730: 43 0D 0A 31 31 30 20 49 46 20 44 3C 3D 31 30 35 C..110 IF D<=105
01B740: 20 54 48 45 4E 20 31 34 30 0D 0A 31 32 30 20 44 THEN 140..120 D
01B750: 3D 44 2D 31 30 35 0D 0A 31 33 30 20 47 4F 54 4F =D-105..130 GOTO
01B760: 20 31 31 30 0D 0A 31 34 30 20 50 52 49 4E 54 20 110..140 PRINT
01B770: 22 59 4F 55 52 20 4E 55 4D 42 45 52 20 57 41 53 "YOUR NUMBER WAS
01B780: 22 3B 44 3B 22 2C 20 52 49 47 48 54 22 3B 0D 0A ";D;", RIGHT";..
01B790: 31 36 30 20 49 4E 50 55 54 20 41 24 0D 0A 31 36 160 INPUT A$..16
01B7A0: 35 20 50 52 49 4E 54 0D 0A 31 37 30 20 49 46 20 5 PRINT..170 IF
01B7B0: 41 24 3D 22 59 45 53 22 20 54 48 45 4E 20 32 32 A$="YES" THEN 22
01B7C0: 30 0D 0A 31 38 30 20 49 46 20 41 24 3D 22 4E 4F 0..180 IF A$="NO
01B7D0: 22 20 54 48 45 4E 20 32 34 30 0D 0A 31 39 30 20 " THEN 240..190
01B7E0: 50 52 49 4E 54 20 22 45 48 3F 20 20 49 20 44 4F PRINT "EH? I DO
01B7F0: 4E 27 54 20 55 4E 44 45 52 53 54 41 4E 44 20 27 N'T UNDERSTAND '
01B800: 22 3B 41 24 3B 22 27 20 20 54 52 59 20 27 59 45 ";A$;"' TRY 'YE
01B810: 53 27 20 4F 52 20 27 4E 4F 27 2E 22 0D 0A 32 30 S' OR 'NO'."..20
01B820: 30 20 47 4F 54 4F 20 31 36 30 0D 0A 32 32 30 20 0 GOTO 160..220
01B830: 50 52 49 4E 54 20 22 48 4F 57 20 41 42 4F 55 54 PRINT "HOW ABOUT
01B840: 20 54 48 41 54 21 21 22 0D 0A 32 33 30 20 47 4F THAT!!"..230 GO
01B850: 54 4F 20 32 35 30 0D 0A 32 34 30 20 50 52 49 4E TO 250..240 PRIN
01B860: 54 20 22 49 20 46 45 45 4C 20 59 4F 55 52 20 41 T "I FEEL YOUR A
01B870: 52 49 54 48 4D 45 54 49 43 20 49 53 20 49 4E 20 RITHMETIC IS IN
01B880: 45 52 52 4F 52 2E 22 0D 0A 32 35 30 20 50 52 49 ERROR."..250 PRI
01B890: 4E 54 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 4C NT..260 PRINT "L
01B8A0: 45 54 27 53 20 54 52 59 20 41 4E 4F 54 48 45 52 ET'S TRY ANOTHER
01B8B0: 2E 22 0D 0A 32 37 30 20 47 4F 54 4F 20 32 30 0D ."..270 GOTO 20.
01B8C0: 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 .999 END........
01B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B900: 52 49 4E 54 20 22 4D 41 43 48 49 4E 45 20 4C 4F RINT "MACHINE LO
01B910: 53 45 53 22 0D 0A 38 31 30 20 47 4F 54 4F 20 31 SES"..810 GOTO 1
01B920: 36 34 30 0D 0A 38 32 30 20 50 52 49 4E 54 20 22 640..820 PRINT "
01B930: 4D 41 43 48 49 4E 45 20 57 49 4E 53 22 0D 0A 38 MACHINE WINS"..8
01B940: 33 30 20 47 4F 54 4F 20 31 36 34 30 0D 0A 38 34 30 GOTO 1640..84
01B950: 30 20 4C 45 54 20 43 3D 30 0D 0A 38 35 30 20 46 0 LET C=0..850 F
01B960: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 38 36 30 OR I=1 TO N..860
01B970: 20 49 46 20 41 28 49 29 3E 31 20 54 48 45 4E 20 IF A(I)>1 THEN
01B980: 39 34 30 0D 0A 38 37 30 20 49 46 20 41 28 49 29 940..870 IF A(I)
01B990: 3D 30 20 54 48 45 4E 20 38 39 30 0D 0A 38 38 30 =0 THEN 890..880
01B9A0: 20 4C 45 54 20 43 3D 43 2B 31 0D 0A 38 39 30 20 LET C=C+1..890
01B9B0: 4E 45 58 54 20 49 0D 0A 39 30 30 20 49 46 20 43 NEXT I..900 IF C
01B9C0: 2F 32 3C 3E 49 4E 54 28 43 2F 32 29 20 54 48 45 /2<>INT(C/2) THE
01B9D0: 4E 20 38 30 30 0D 0A 39 31 30 20 47 4F 54 4F 20 N 800..910 GOTO
01B9E0: 39 34 30 0D 0A 39 32 30 20 49 46 20 41 28 44 28 940..920 IF A(D(
01B9F0: 31 29 29 3D 31 20 54 48 45 4E 20 38 32 30 0D 0A 1))=1 THEN 820..
01BA00: 39 33 30 20 49 46 20 41 28 44 28 32 29 29 3D 31 930 IF A(D(2))=1
01BA10: 20 54 48 45 4E 20 38 32 30 0D 0A 39 34 30 20 46 THEN 820..940 F
01BA20: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 39 35 30 OR I=1 TO N..950
01BA30: 20 4C 45 54 20 45 3D 41 28 49 29 0D 0A 39 36 30 LET E=A(I)..960
01BA40: 20 46 4F 52 20 4A 3D 30 20 54 4F 20 31 30 0D 0A FOR J=0 TO 10..
01BA50: 39 37 30 20 4C 45 54 20 46 3D 45 2F 32 0D 0A 39 970 LET F=E/2..9
01BA60: 38 30 20 4C 45 54 20 42 28 49 2C 4A 29 3D 32 2A 80 LET B(I,J)=2*
01BA70: 28 46 2D 49 4E 54 28 46 29 29 0D 0A 39 39 30 20 (F-INT(F))..990
01BA80: 4C 45 54 20 45 3D 49 4E 54 28 46 29 0D 0A 31 30 LET E=INT(F)..10
01BA90: 30 30 20 4E 45 58 54 20 4A 0D 0A 31 30 31 30 20 00 NEXT J..1010
01BAA0: 4E 45 58 54 20 49 0D 0A 31 30 32 30 20 46 4F 52 NEXT I..1020 FOR
01BAB0: 20 4A 3D 31 30 20 54 4F 20 30 20 53 54 45 50 20 J=10 TO 0 STEP
01BAC0: 2D 31 0D 0A 31 30 33 30 20 4C 45 54 20 43 3D 30 -1..1030 LET C=0
01BAD0: 0D 0A 31 30 34 30 20 4C 45 54 20 48 3D 30 0D 0A ..1040 LET H=0..
01BAE0: 31 30 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 1050 FOR I=1 TO
01BAF0: 4E 0D 0A 31 30 36 30 20 49 46 20 42 28 49 2C 4A N..1060 IF B(I,J
01BB00: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 100 PRINT TAB(33
01BB10: 29 3B 22 4E 49 4D 22 0D 0A 31 31 30 20 50 52 49 );"NIM"..110 PRI
01BB20: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
01BB30: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
01BB40: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
01BB50: 4A 45 52 53 45 59 22 0D 0A 31 32 30 20 50 52 49 JERSEY"..120 PRI
01BB60: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
01BB70: 32 31 30 20 44 49 4D 20 41 28 31 30 30 29 2C 42 210 DIM A(100),B
01BB80: 28 31 30 30 2C 31 30 29 2C 44 28 32 29 0D 0A 32 (100,10),D(2)..2
01BB90: 32 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 20 PRINT "THIS I
01BBA0: 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 4E 49 S THE GAME OF NI
01BBB0: 4D 2E 22 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 M."..230 PRINT "
01BBC0: 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 DO YOU WANT INST
01BBD0: 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 34 30 20 RUCTIONS";..240
01BBE0: 49 4E 50 55 54 20 5A 24 0D 0A 32 35 30 20 49 46 INPUT Z$..250 IF
01BBF0: 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 34 34 Z$="NO" THEN 44
01BC00: 30 0D 0A 32 36 30 20 49 46 20 5A 24 3D 22 6E 6F 0..260 IF Z$="no
01BC10: 22 20 54 48 45 4E 20 34 34 30 0D 0A 32 37 30 20 " THEN 440..270
01BC20: 49 46 20 5A 24 3D 22 59 45 53 22 20 54 48 45 4E IF Z$="YES" THEN
01BC30: 20 33 31 30 0D 0A 32 38 30 20 49 46 20 5A 24 3D 310..280 IF Z$=
01BC40: 22 79 65 73 22 20 54 48 45 4E 20 33 31 30 0D 0A "yes" THEN 310..
01BC50: 32 39 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 290 PRINT "PLEAS
01BC60: 45 20 41 4E 53 57 45 52 20 59 45 53 20 4F 52 20 E ANSWER YES OR
01BC70: 4E 4F 22 0D 0A 33 30 30 20 47 4F 54 4F 20 32 34 NO"..300 GOTO 24
01BC80: 30 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 54 48 0..310 PRINT "TH
01BC90: 45 20 47 41 4D 45 20 49 53 20 50 4C 41 59 45 44 E GAME IS PLAYED
01BCA0: 20 57 49 54 48 20 41 20 4E 55 4D 42 45 52 20 4F WITH A NUMBER O
01BCB0: 46 20 50 49 4C 45 53 20 4F 46 20 4F 42 4A 45 43 F PILES OF OBJEC
01BCC0: 54 53 2E 22 0D 0A 33 32 30 20 50 52 49 4E 54 20 TS."..320 PRINT
01BCD0: 22 41 4E 59 20 4E 55 4D 42 45 52 20 4F 46 20 4F "ANY NUMBER OF O
01BCE0: 42 4A 45 43 54 53 20 41 52 45 20 52 45 4D 4F 56 BJECTS ARE REMOV
01BCF0: 45 44 20 46 52 4F 4D 20 4F 4E 45 20 50 49 4C 45 ED FROM ONE PILE
01BD00: 29 3D 30 20 54 48 45 4E 20 31 31 31 30 0D 0A 31 )=0 THEN 1110..1
01BD10: 30 37 30 20 4C 45 54 20 43 3D 43 2B 31 0D 0A 31 070 LET C=C+1..1
01BD20: 30 38 30 20 49 46 20 41 28 49 29 3C 3D 48 20 54 080 IF A(I)<=H T
01BD30: 48 45 4E 20 31 31 31 30 0D 0A 31 30 39 30 20 4C HEN 1110..1090 L
01BD40: 45 54 20 48 3D 41 28 49 29 0D 0A 31 31 30 30 20 ET H=A(I)..1100
01BD50: 4C 45 54 20 47 3D 49 0D 0A 31 31 31 30 20 4E 45 LET G=I..1110 NE
01BD60: 58 54 20 49 0D 0A 31 31 32 30 20 49 46 20 43 2F XT I..1120 IF C/
01BD70: 32 3C 3E 49 4E 54 28 43 2F 32 29 20 54 48 45 4E 2<>INT(C/2) THEN
01BD80: 20 31 31 39 30 0D 0A 31 31 33 30 20 4E 45 58 54 1190..1130 NEXT
01BD90: 20 4A 0D 0A 31 31 34 30 20 4C 45 54 20 45 3D 49 J..1140 LET E=I
01BDA0: 4E 54 28 4E 2A 52 4E 44 28 31 29 2B 31 29 0D 0A NT(N*RND(1)+1)..
01BDB0: 31 31 35 30 20 49 46 20 41 28 45 29 3D 30 20 54 1150 IF A(E)=0 T
01BDC0: 48 45 4E 20 31 31 34 30 0D 0A 31 31 36 30 20 4C HEN 1140..1160 L
01BDD0: 45 54 20 46 3D 49 4E 54 28 41 28 45 29 2A 52 4E ET F=INT(A(E)*RN
01BDE0: 44 28 31 29 2B 31 29 0D 0A 31 31 37 30 20 4C 45 D(1)+1)..1170 LE
01BDF0: 54 20 41 28 45 29 3D 41 28 45 29 2D 46 0D 0A 31 T A(E)=A(E)-F..1
01BE00: 31 38 30 20 47 4F 54 4F 20 31 33 38 30 0D 0A 31 180 GOTO 1380..1
01BE10: 31 39 30 20 4C 45 54 20 41 28 47 29 3D 30 0D 0A 190 LET A(G)=0..
01BE20: 31 32 30 30 20 46 4F 52 20 4A 3D 30 20 54 4F 20 1200 FOR J=0 TO
01BE30: 31 30 0D 0A 31 32 31 30 20 4C 45 54 20 42 28 47 10..1210 LET B(G
01BE40: 2C 4A 29 3D 30 0D 0A 31 32 32 30 20 4C 45 54 20 ,J)=0..1220 LET
01BE50: 43 3D 30 0D 0A 31 32 33 30 20 46 4F 52 20 49 3D C=0..1230 FOR I=
01BE60: 31 20 54 4F 20 4E 0D 0A 31 32 34 30 20 49 46 20 1 TO N..1240 IF
01BE70: 42 28 49 2C 4A 29 3D 30 20 54 48 45 4E 20 31 32 B(I,J)=0 THEN 12
01BE80: 36 30 0D 0A 31 32 35 30 20 4C 45 54 20 43 3D 43 60..1250 LET C=C
01BE90: 2B 31 0D 0A 31 32 36 30 20 4E 45 58 54 20 49 0D +1..1260 NEXT I.
01BEA0: 0A 31 32 37 30 20 4C 45 54 20 41 28 47 29 3D 41 .1270 LET A(G)=A
01BEB0: 28 47 29 2B 32 2A 28 43 2F 32 2D 49 4E 54 28 43 (G)+2*(C/2-INT(C
01BEC0: 2F 32 29 29 2A 32 5E 4A 0D 0A 31 32 38 30 20 4E /2))*2^J..1280 N
01BED0: 45 58 54 20 4A 0D 0A 31 32 39 30 20 49 46 20 57 EXT J..1290 IF W
01BEE0: 3D 31 20 54 48 45 4E 20 31 33 38 30 0D 0A 31 33 =1 THEN 1380..13
01BEF0: 30 30 20 4C 45 54 20 43 3D 30 0D 0A 31 33 31 30 00 LET C=0..1310
01BF00: 20 42 59 20 59 4F 55 20 41 4E 44 22 0D 0A 33 33 BY YOU AND"..33
01BF10: 30 20 50 52 49 4E 54 20 22 54 48 45 20 4D 41 43 0 PRINT "THE MAC
01BF20: 48 49 4E 45 20 41 4C 54 45 52 4E 41 54 45 4C 59 HINE ALTERNATELY
01BF30: 2E 20 20 4F 4E 20 59 4F 55 52 20 54 55 52 4E 2C . ON YOUR TURN,
01BF40: 20 59 4F 55 20 4D 41 59 20 54 41 4B 45 22 0D 0A YOU MAY TAKE"..
01BF50: 33 34 30 20 50 52 49 4E 54 20 22 41 4C 4C 20 54 340 PRINT "ALL T
01BF60: 48 45 20 4F 42 4A 45 43 54 53 20 54 48 41 54 20 HE OBJECTS THAT
01BF70: 52 45 4D 41 49 4E 20 49 4E 20 41 4E 59 20 50 49 REMAIN IN ANY PI
01BF80: 4C 45 2C 20 42 55 54 20 59 4F 55 20 4D 55 53 54 LE, BUT YOU MUST
01BF90: 22 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 54 41 "..350 PRINT "TA
01BFA0: 4B 45 20 41 54 20 4C 45 41 53 54 20 4F 4E 45 20 KE AT LEAST ONE
01BFB0: 4F 42 4A 45 43 54 2C 20 41 4E 44 20 59 4F 55 20 OBJECT, AND YOU
01BFC0: 4D 41 59 20 54 41 4B 45 20 4F 42 4A 45 43 54 53 MAY TAKE OBJECTS
01BFD0: 20 46 52 4F 4D 22 0D 0A 33 36 30 20 50 52 49 4E FROM"..360 PRIN
01BFE0: 54 20 22 4F 4E 4C 59 20 4F 4E 45 20 50 49 4C 45 T "ONLY ONE PILE
01BFF0: 20 4F 4E 20 41 20 53 49 4E 47 4C 45 20 54 55 52 ON A SINGLE TUR
01C000: 4E 2E 20 20 59 4F 55 20 4D 55 53 54 20 53 50 45 N. YOU MUST SPE
01C010: 43 49 46 59 20 57 48 45 54 48 45 52 22 0D 0A 33 CIFY WHETHER"..3
01C020: 37 30 20 50 52 49 4E 54 20 22 57 49 4E 4E 49 4E 70 PRINT "WINNIN
01C030: 47 20 49 53 20 44 45 46 49 4E 45 44 20 41 53 20 G IS DEFINED AS
01C040: 54 41 4B 49 4E 47 20 4F 52 20 4E 4F 54 20 54 41 TAKING OR NOT TA
01C050: 4B 49 4E 47 20 54 48 45 20 4C 41 53 54 20 4F 42 KING THE LAST OB
01C060: 4A 45 43 54 2C 22 0D 0A 33 38 30 20 50 52 49 4E JECT,"..380 PRIN
01C070: 54 20 22 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 T "THE NUMBER OF
01C080: 20 50 49 4C 45 53 20 49 4E 20 54 48 45 20 47 41 PILES IN THE GA
01C090: 4D 45 2C 20 41 4E 44 20 48 4F 57 20 4D 41 4E 59 ME, AND HOW MANY
01C0A0: 20 4F 42 4A 45 43 54 53 20 41 52 45 22 0D 0A 33 OBJECTS ARE"..3
01C0B0: 39 30 20 50 52 49 4E 54 20 22 4F 52 49 47 49 4E 90 PRINT "ORIGIN
01C0C0: 41 4C 4C 59 20 49 4E 20 45 41 43 48 20 50 49 4C ALLY IN EACH PIL
01C0D0: 45 2E 20 20 45 41 43 48 20 50 49 4C 45 20 4D 41 E. EACH PILE MA
01C0E0: 59 20 43 4F 4E 54 41 49 4E 20 41 22 0D 0A 34 30 Y CONTAIN A"..40
01C0F0: 30 20 50 52 49 4E 54 20 22 44 49 46 46 45 52 45 0 PRINT "DIFFERE
01C100: 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 31 FOR I=1 TO N..1
01C110: 33 32 30 20 49 46 20 41 28 49 29 3E 31 20 54 48 320 IF A(I)>1 TH
01C120: 45 4E 20 31 33 38 30 0D 0A 31 33 33 30 20 49 46 EN 1380..1330 IF
01C130: 20 41 28 49 29 3D 30 20 54 48 45 4E 20 31 33 35 A(I)=0 THEN 135
01C140: 30 0D 0A 31 33 34 30 20 4C 45 54 20 43 3D 43 2B 0..1340 LET C=C+
01C150: 31 0D 0A 31 33 35 30 20 4E 45 58 54 20 49 0D 0A 1..1350 NEXT I..
01C160: 31 33 36 30 20 49 46 20 43 2F 32 3C 3E 49 4E 54 1360 IF C/2<>INT
01C170: 28 43 2F 32 29 20 54 48 45 4E 20 31 33 38 30 0D (C/2) THEN 1380.
01C180: 0A 31 33 37 30 20 4C 45 54 20 41 28 47 29 3D 31 .1370 LET A(G)=1
01C190: 2D 41 28 47 29 0D 0A 31 33 38 30 20 50 52 49 4E -A(G)..1380 PRIN
01C1A0: 54 20 22 50 49 4C 45 20 20 53 49 5A 45 22 0D 0A T "PILE SIZE"..
01C1B0: 31 33 39 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 1390 FOR I=1 TO
01C1C0: 4E 0D 0A 31 34 30 30 20 50 52 49 4E 54 20 49 3B N..1400 PRINT I;
01C1D0: 41 28 49 29 0D 0A 31 34 31 30 20 4E 45 58 54 20 A(I)..1410 NEXT
01C1E0: 49 0D 0A 31 34 32 30 20 49 46 20 57 3D 32 20 54 I..1420 IF W=2 T
01C1F0: 48 45 4E 20 31 34 35 30 0D 0A 31 34 33 30 20 47 HEN 1450..1430 G
01C200: 4F 53 55 42 20 31 35 37 30 0D 0A 31 34 34 30 20 OSUB 1570..1440
01C210: 49 46 20 5A 3D 31 20 54 48 45 4E 20 38 32 30 0D IF Z=1 THEN 820.
01C220: 0A 31 34 35 30 20 50 52 49 4E 54 20 22 59 4F 55 .1450 PRINT "YOU
01C230: 52 20 4D 4F 56 45 20 2D 20 50 49 4C 45 2C 20 4E R MOVE - PILE, N
01C240: 55 4D 42 45 52 20 54 4F 20 42 45 20 52 45 4D 4F UMBER TO BE REMO
01C250: 56 45 44 22 3B 0D 0A 31 34 36 30 20 49 4E 50 55 VED";..1460 INPU
01C260: 54 20 58 2C 59 0D 0A 31 34 37 30 20 49 46 20 58 T X,Y..1470 IF X
01C270: 3E 4E 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 34 >N THEN 1450..14
01C280: 38 30 20 49 46 20 58 3C 31 20 54 48 45 4E 20 31 80 IF X<1 THEN 1
01C290: 34 35 30 0D 0A 31 34 39 30 20 49 46 20 58 3C 3E 450..1490 IF X<>
01C2A0: 49 4E 54 28 58 29 20 54 48 45 4E 20 31 34 35 30 INT(X) THEN 1450
01C2B0: 0D 0A 31 35 30 30 20 49 46 20 59 3E 41 28 58 29 ..1500 IF Y>A(X)
01C2C0: 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 35 31 30 THEN 1450..1510
01C2D0: 20 49 46 20 59 3C 31 20 54 48 45 4E 20 31 34 35 IF Y<1 THEN 145
01C2E0: 30 0D 0A 31 35 32 30 20 49 46 20 59 3C 3E 49 4E 0..1520 IF Y<>IN
01C2F0: 54 28 59 29 20 54 48 45 4E 20 31 34 35 30 0D 0A T(Y) THEN 1450..
01C300: 4E 54 20 4E 55 4D 42 45 52 20 4F 46 20 4F 42 4A NT NUMBER OF OBJ
01C310: 45 43 54 53 2E 22 0D 0A 34 31 30 20 50 52 49 4E ECTS."..410 PRIN
01C320: 54 20 22 54 48 45 20 4D 41 43 48 49 4E 45 20 57 T "THE MACHINE W
01C330: 49 4C 4C 20 53 48 4F 57 20 49 54 53 20 4D 4F 56 ILL SHOW ITS MOV
01C340: 45 20 42 59 20 4C 49 53 54 49 4E 47 20 45 41 43 E BY LISTING EAC
01C350: 48 20 50 49 4C 45 20 41 4E 44 20 54 48 45 22 0D H PILE AND THE".
01C360: 0A 34 32 30 20 50 52 49 4E 54 20 22 4E 55 4D 42 .420 PRINT "NUMB
01C370: 45 52 20 4F 46 20 4F 42 4A 45 43 54 53 20 52 45 ER OF OBJECTS RE
01C380: 4D 41 49 4E 49 4E 47 20 49 4E 20 54 48 45 20 50 MAINING IN THE P
01C390: 49 4C 45 53 20 41 46 54 45 52 20 20 45 41 43 48 ILES AFTER EACH
01C3A0: 20 4F 46 20 49 54 53 22 0D 0A 34 33 30 20 50 52 OF ITS"..430 PR
01C3B0: 49 4E 54 20 22 4D 4F 56 45 53 2E 22 0D 0A 34 34 INT "MOVES."..44
01C3C0: 30 20 50 52 49 4E 54 0D 0A 34 35 30 20 50 52 49 0 PRINT..450 PRI
01C3D0: 4E 54 20 22 45 4E 54 45 52 20 57 49 4E 20 4F 50 NT "ENTER WIN OP
01C3E0: 54 49 4F 4E 20 2D 20 31 20 54 4F 20 54 41 4B 45 TION - 1 TO TAKE
01C3F0: 20 4C 41 53 54 2C 20 32 20 54 4F 20 41 56 4F 49 LAST, 2 TO AVOI
01C400: 44 20 4C 41 53 54 22 3B 0D 0A 34 36 30 20 49 4E D LAST";..460 IN
01C410: 50 55 54 20 57 0D 0A 34 37 30 20 49 46 20 57 3D PUT W..470 IF W=
01C420: 31 20 54 48 45 4E 20 34 39 30 0D 0A 34 38 30 20 1 THEN 490..480
01C430: 49 46 20 57 3C 3E 32 20 54 48 45 4E 20 34 35 30 IF W<>2 THEN 450
01C440: 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 45 4E 54 ..490 PRINT "ENT
01C450: 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 50 49 4C ER NUMBER OF PIL
01C460: 45 53 22 3B 0D 0A 35 30 30 20 49 4E 50 55 54 20 ES";..500 INPUT
01C470: 4E 0D 0A 35 31 30 20 49 46 20 4E 3E 31 30 30 20 N..510 IF N>100
01C480: 54 48 45 4E 20 34 39 30 0D 0A 35 32 30 20 49 46 THEN 490..520 IF
01C490: 20 4E 3C 31 20 54 48 45 4E 20 34 39 30 0D 0A 35 N<1 THEN 490..5
01C4A0: 33 30 20 49 46 20 4E 3C 3E 49 4E 54 28 4E 29 20 30 IF N<>INT(N)
01C4B0: 54 48 45 4E 20 34 39 30 0D 0A 35 34 30 20 50 52 THEN 490..540 PR
01C4C0: 49 4E 54 20 22 45 4E 54 45 52 20 50 49 4C 45 20 INT "ENTER PILE
01C4D0: 53 49 5A 45 53 22 0D 0A 35 35 30 20 46 4F 52 20 SIZES"..550 FOR
01C4E0: 49 3D 31 20 54 4F 20 4E 0D 0A 35 36 30 20 50 52 I=1 TO N..560 PR
01C4F0: 49 4E 54 20 49 3B 0D 0A 35 37 30 20 49 4E 50 55 INT I;..570 INPU
01C500: 31 35 33 30 20 4C 45 54 20 41 28 58 29 3D 41 28 1530 LET A(X)=A(
01C510: 58 29 2D 59 0D 0A 31 35 34 30 20 47 4F 53 55 42 X)-Y..1540 GOSUB
01C520: 20 31 35 37 30 0D 0A 31 35 35 30 20 49 46 20 5A 1570..1550 IF Z
01C530: 3D 31 20 54 48 45 4E 20 38 30 30 0D 0A 31 35 36 =1 THEN 800..156
01C540: 30 20 47 4F 54 4F 20 37 30 30 0D 0A 31 35 37 30 0 GOTO 700..1570
01C550: 20 4C 45 54 20 5A 3D 30 0D 0A 31 35 38 30 20 46 LET Z=0..1580 F
01C560: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 31 35 39 OR I=1 TO N..159
01C570: 30 20 49 46 20 41 28 49 29 3D 30 20 54 48 45 4E 0 IF A(I)=0 THEN
01C580: 20 31 36 31 30 0D 0A 31 36 30 30 20 52 45 54 55 1610..1600 RETU
01C590: 52 4E 0D 0A 31 36 31 30 20 4E 45 58 54 20 49 0D RN..1610 NEXT I.
01C5A0: 0A 31 36 32 30 20 4C 45 54 20 5A 3D 31 0D 0A 31 .1620 LET Z=1..1
01C5B0: 36 33 30 20 52 45 54 55 52 4E 0D 0A 31 36 34 30 630 RETURN..1640
01C5C0: 20 50 52 49 4E 54 20 22 64 6F 20 79 6F 75 20 77 PRINT "do you w
01C5D0: 61 6E 74 20 74 6F 20 70 6C 61 79 20 61 6E 6F 74 ant to play anot
01C5E0: 68 65 72 20 67 61 6D 65 22 3B 0D 0A 31 36 35 30 her game";..1650
01C5F0: 20 49 4E 50 55 54 20 51 39 24 0D 0A 31 36 36 30 INPUT Q9$..1660
01C600: 20 49 46 20 51 39 24 3D 22 59 45 53 22 20 54 48 IF Q9$="YES" TH
01C610: 45 4E 20 31 37 32 30 0D 0A 31 36 37 30 20 49 46 EN 1720..1670 IF
01C620: 20 51 39 24 3D 22 79 65 73 22 20 54 48 45 4E 20 Q9$="yes" THEN
01C630: 31 37 32 30 0D 0A 31 36 38 30 20 49 46 20 51 39 1720..1680 IF Q9
01C640: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 37 33 30 $="NO" THEN 1730
01C650: 0D 0A 31 36 39 30 20 49 46 20 51 39 24 3D 22 6E ..1690 IF Q9$="n
01C660: 6F 22 20 54 48 45 4E 20 31 37 33 30 0D 0A 31 37 o" THEN 1730..17
01C670: 30 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 45 00 PRINT "PLEASE
01C680: 2E 20 20 59 45 53 20 4F 52 20 4E 4F 2E 22 0D 0A . YES OR NO."..
01C690: 31 37 31 30 20 47 4F 54 4F 20 31 36 35 30 20 0D 1710 GOTO 1650 .
01C6A0: 0A 31 37 32 30 20 47 4F 54 4F 20 34 34 30 0D 0A .1720 GOTO 440..
01C6B0: 31 37 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 1730 END........
01C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C700: 54 20 41 28 49 29 0D 0A 35 38 30 20 49 46 20 41 T A(I)..580 IF A
01C710: 28 49 29 3E 32 30 30 30 20 54 48 45 4E 20 35 36 (I)>2000 THEN 56
01C720: 30 0D 0A 35 39 30 20 49 46 20 41 28 49 29 3C 31 0..590 IF A(I)<1
01C730: 20 54 48 45 4E 20 35 36 30 0D 0A 36 30 30 20 49 THEN 560..600 I
01C740: 46 20 41 28 49 29 3C 3E 49 4E 54 28 41 28 49 29 F A(I)<>INT(A(I)
01C750: 29 20 54 48 45 4E 20 35 36 30 0D 0A 36 31 30 20 ) THEN 560..610
01C760: 4E 45 58 54 20 49 0D 0A 36 32 30 20 50 52 49 4E NEXT I..620 PRIN
01C770: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 T "DO YOU WANT T
01C780: 4F 20 4D 4F 56 45 20 46 49 52 53 54 22 3B 0D 0A O MOVE FIRST";..
01C790: 36 33 30 20 49 4E 50 55 54 20 51 39 24 0D 0A 36 630 INPUT Q9$..6
01C7A0: 34 30 20 49 46 20 51 39 24 3D 22 59 45 53 22 20 40 IF Q9$="YES"
01C7B0: 54 48 45 4E 20 31 34 35 30 0D 0A 36 35 30 20 49 THEN 1450..650 I
01C7C0: 46 20 51 39 24 3D 22 79 65 73 22 20 54 48 45 4E F Q9$="yes" THEN
01C7D0: 20 31 34 35 30 0D 0A 36 36 30 20 49 46 20 51 39 1450..660 IF Q9
01C7E0: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 37 30 30 0D $="NO" THEN 700.
01C7F0: 0A 36 37 30 20 49 46 20 51 39 24 3D 22 6E 6F 22 .670 IF Q9$="no"
01C800: 20 54 48 45 4E 20 37 30 30 0D 0A 36 38 30 20 50 THEN 700..680 P
01C810: 52 49 4E 54 20 22 50 4C 45 41 53 45 20 41 4E 53 RINT "PLEASE ANS
01C820: 57 45 52 20 59 45 53 20 4F 52 20 4E 4F 2E 22 0D WER YES OR NO.".
01C830: 0A 36 39 30 20 47 4F 54 4F 20 36 33 30 0D 0A 37 .690 GOTO 630..7
01C840: 30 30 20 49 46 20 57 3D 31 20 54 48 45 4E 20 39 00 IF W=1 THEN 9
01C850: 34 30 0D 0A 37 31 30 20 4C 45 54 20 43 3D 30 0D 40..710 LET C=0.
01C860: 0A 37 32 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .720 FOR I=1 TO
01C870: 4E 0D 0A 37 33 30 20 49 46 20 41 28 49 29 3D 30 N..730 IF A(I)=0
01C880: 20 54 48 45 4E 20 37 37 30 0D 0A 37 34 30 20 4C THEN 770..740 L
01C890: 45 54 20 43 3D 43 2B 31 0D 0A 37 35 30 20 49 46 ET C=C+1..750 IF
01C8A0: 20 43 3D 33 20 54 48 45 4E 20 38 34 30 0D 0A 37 C=3 THEN 840..7
01C8B0: 36 30 20 4C 45 54 20 44 28 43 29 3D 49 0D 0A 37 60 LET D(C)=I..7
01C8C0: 37 30 20 4E 45 58 54 20 49 0D 0A 37 38 30 20 49 70 NEXT I..780 I
01C8D0: 46 20 43 3D 32 20 54 48 45 4E 20 39 32 30 0D 0A F C=2 THEN 920..
01C8E0: 37 39 30 20 49 46 20 41 28 44 28 31 29 29 3E 31 790 IF A(D(1))>1
01C8F0: 20 54 48 45 4E 20 38 32 30 0D 0A 38 30 30 20 50 THEN 820..800 P
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 00 00 02 09 52 E5 18 00 C1 02 00 00 00 02 ......R.........
01C920: 18 00 C6 02 00 00 00 02 18 00 C2 02 00 00 00 02 ................
01C930: 18 00 C7 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C940: 18 00 C8 02 00 00 00 02 18 00 C4 02 00 00 00 02 ................
01C950: 18 00 C9 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
01CA10: 22 4E 55 4D 42 45 52 22 0D 0A 32 20 50 52 49 4E "NUMBER"..2 PRIN
01CA20: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
01CA30: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
01CA40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
01CA50: 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A ERSEY"..3 PRINT:
01CA60: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 PRINT:PRINT..4 P
01CA70: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 31 RINT "YOU HAVE 1
01CA80: 30 30 20 50 4F 49 4E 54 53 2E 20 20 42 59 20 47 00 POINTS. BY G
01CA90: 55 45 53 53 49 4E 47 20 4E 55 4D 42 45 52 53 20 UESSING NUMBERS
01CAA0: 46 52 4F 4D 20 31 20 54 4F 20 35 2C 20 59 4F 55 FROM 1 TO 5, YOU
01CAB0: 22 0D 0A 35 20 50 52 49 4E 54 20 22 43 41 4E 20 "..5 PRINT "CAN
01CAC0: 47 41 49 4E 20 4F 52 20 4C 4F 53 45 20 50 4F 49 GAIN OR LOSE POI
01CAD0: 4E 54 53 20 44 45 50 45 4E 44 49 4E 47 20 55 50 NTS DEPENDING UP
01CAE0: 4F 4E 20 48 4F 57 20 43 4C 4F 53 45 20 59 4F 55 ON HOW CLOSE YOU
01CAF0: 20 47 45 54 20 54 4F 22 0D 0A 36 20 50 52 49 4E GET TO"..6 PRIN
01CB00: 54 20 22 41 20 52 41 4E 44 4F 4D 20 4E 55 4D 42 T "A RANDOM NUMB
01CB10: 45 52 20 53 45 4C 45 43 54 45 44 20 42 59 20 54 ER SELECTED BY T
01CB20: 48 45 20 43 4F 4D 50 55 54 45 52 2E 22 3A 20 50 HE COMPUTER.": P
01CB30: 52 49 4E 54 0D 0A 37 20 50 52 49 4E 54 20 22 59 RINT..7 PRINT "Y
01CB40: 4F 55 20 4F 43 43 41 53 49 4F 4E 41 4C 4C 59 20 OU OCCASIONALLY
01CB50: 57 49 4C 4C 20 47 45 54 20 41 20 4A 41 43 4B 50 WILL GET A JACKP
01CB60: 4F 54 20 57 48 49 43 48 20 57 49 4C 4C 20 44 4F OT WHICH WILL DO
01CB70: 55 42 4C 45 28 21 29 22 0D 0A 38 20 50 52 49 4E UBLE(!)"..8 PRIN
01CB80: 54 20 22 59 4F 55 52 20 50 4F 49 4E 54 20 43 4F T "YOUR POINT CO
01CB90: 55 4E 54 2E 20 20 59 4F 55 20 57 49 4E 20 57 48 UNT. YOU WIN WH
01CBA0: 45 4E 20 59 4F 55 20 47 45 54 20 35 30 30 20 50 EN YOU GET 500 P
01CBB0: 4F 49 4E 54 53 2E 22 0D 0A 39 20 50 52 49 4E 54 OINTS."..9 PRINT
01CBC0: 3A 20 50 3D 31 30 30 0D 0A 31 30 20 44 45 46 20 : P=100..10 DEF
01CBD0: 46 4E 52 28 58 29 3D 49 4E 54 28 35 2A 52 4E 44 FNR(X)=INT(5*RND
01CBE0: 28 31 29 2B 31 29 0D 0A 31 32 20 49 4E 50 55 54 (1)+1)..12 INPUT
01CBF0: 20 22 47 55 45 53 53 20 41 20 4E 55 4D 42 45 52 "GUESS A NUMBER
01CC00: 30 20 54 48 45 4E 20 32 33 30 0D 0A 32 32 30 20 0 THEN 230..220
01CC10: 49 46 20 41 28 54 29 3D 31 20 54 48 45 4E 20 32 IF A(T)=1 THEN 2
01CC20: 33 30 0D 0A 32 32 35 20 47 4F 54 4F 20 32 35 30 30..225 GOTO 250
01CC30: 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 49 4C 4C ..230 PRINT "ILL
01CC40: 45 47 41 4C 20 4D 4F 56 45 2E 20 20 54 52 59 20 EGAL MOVE. TRY
01CC50: 41 47 41 49 4E 2E 2E 2E 22 0D 0A 32 34 30 20 47 AGAIN..."..240 G
01CC60: 4F 54 4F 20 31 30 30 0D 0A 32 34 35 20 52 45 4D OTO 100..245 REM
01CC70: 20 2A 2A 2A 20 55 50 44 41 54 45 20 42 4F 41 52 *** UPDATE BOAR
01CC80: 44 0D 0A 32 35 30 20 41 28 54 29 3D 31 0D 0A 32 D..250 A(T)=1..2
01CC90: 36 30 20 41 28 46 29 3D 30 0D 0A 32 37 30 20 41 60 A(F)=0..270 A
01CCA0: 28 28 54 2B 46 29 2F 32 29 3D 30 0D 0A 32 39 30 ((T+F)/2)=0..290
01CCB0: 20 4D 3D 4D 2B 31 0D 0A 33 31 30 20 52 45 4D 20 M=M+1..310 REM
01CCC0: 2A 2A 2A 20 50 52 49 4E 54 20 42 4F 41 52 44 0D *** PRINT BOARD.
01CCD0: 0A 33 34 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 .340 FOR J=1 TO
01CCE0: 35 37 20 53 54 45 50 20 38 0D 0A 33 35 30 20 46 57 STEP 8..350 F
01CCF0: 4F 52 20 49 3D 4A 20 54 4F 20 4A 2B 37 0D 0A 33 OR I=J TO J+7..3
01CD00: 36 30 20 50 52 49 4E 54 20 41 28 49 29 3B 0D 0A 60 PRINT A(I);..
01CD10: 33 37 30 20 4E 45 58 54 20 49 0D 0A 33 38 30 20 370 NEXT I..380
01CD20: 50 52 49 4E 54 0D 0A 33 39 30 20 4E 45 58 54 20 PRINT..390 NEXT
01CD30: 4A 0D 0A 34 30 30 20 50 52 49 4E 54 0D 0A 34 31 J..400 PRINT..41
01CD40: 30 20 47 4F 54 4F 20 31 30 30 0D 0A 34 39 30 20 0 GOTO 100..490
01CD50: 52 45 4D 20 2A 2A 2A 20 45 4E 44 20 47 41 4D 45 REM *** END GAME
01CD60: 20 53 55 4D 4D 41 52 59 0D 0A 35 30 30 20 53 3D SUMMARY..500 S=
01CD70: 30 0D 0A 35 31 30 20 46 4F 52 20 49 3D 31 20 54 0..510 FOR I=1 T
01CD80: 4F 20 36 34 0D 0A 35 32 30 20 53 3D 53 2B 41 28 O 64..520 S=S+A(
01CD90: 49 29 0D 0A 35 33 30 20 4E 45 58 54 20 49 0D 0A I)..530 NEXT I..
01CDA0: 35 34 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 540 PRINT:PRINT
01CDB0: 22 59 4F 55 20 4D 41 44 45 22 3B 4D 3B 22 4A 55 "YOU MADE";M;"JU
01CDC0: 4D 50 53 20 41 4E 44 20 48 41 44 22 3B 53 3B 22 MPS AND HAD";S;"
01CDD0: 50 49 45 43 45 53 22 0D 0A 35 35 30 20 50 52 49 PIECES"..550 PRI
01CDE0: 4E 54 20 22 52 45 4D 41 49 4E 49 4E 47 20 4F 4E NT "REMAINING ON
01CDF0: 20 54 48 45 20 42 4F 41 52 44 2E 22 0D 0A 35 36 THE BOARD."..56
01CE00: 20 46 52 4F 4D 20 31 20 54 4F 20 35 22 3B 47 0D FROM 1 TO 5";G.
01CE10: 0A 31 35 20 52 3D 46 4E 52 28 31 29 0D 0A 31 36 .15 R=FNR(1)..16
01CE20: 20 53 3D 46 4E 52 28 31 29 0D 0A 31 37 20 54 3D S=FNR(1)..17 T=
01CE30: 46 4E 52 28 31 29 0D 0A 31 38 20 55 3D 46 4E 52 FNR(1)..18 U=FNR
01CE40: 28 31 29 0D 0A 31 39 20 56 3D 46 4E 52 28 31 29 (1)..19 V=FNR(1)
01CE50: 0D 0A 32 30 20 49 46 20 47 3D 52 20 54 48 45 4E ..20 IF G=R THEN
01CE60: 20 33 30 0D 0A 32 31 20 49 46 20 47 3D 53 20 54 30..21 IF G=S T
01CE70: 48 45 4E 20 34 30 0D 0A 32 32 20 49 46 20 47 3D HEN 40..22 IF G=
01CE80: 54 20 54 48 45 4E 20 35 30 0D 0A 32 33 20 49 46 T THEN 50..23 IF
01CE90: 20 47 3D 55 20 54 48 45 4E 20 36 30 0D 0A 32 34 G=U THEN 60..24
01CEA0: 20 49 46 20 47 3D 56 20 54 48 45 4E 20 37 30 0D IF G=V THEN 70.
01CEB0: 0A 32 35 20 49 46 20 47 3E 35 20 54 48 45 4E 20 .25 IF G>5 THEN
01CEC0: 31 32 0D 0A 33 30 20 50 3D 50 2D 35 0D 0A 33 35 12..30 P=P-5..35
01CED0: 20 47 4F 54 4F 20 38 30 0D 0A 34 30 20 50 3D 50 GOTO 80..40 P=P
01CEE0: 2B 35 0D 0A 34 35 20 47 4F 54 4F 20 38 30 0D 0A +5..45 GOTO 80..
01CEF0: 35 30 20 50 3D 50 2B 50 0D 0A 35 33 20 50 52 49 50 P=P+P..53 PRI
01CF00: 4E 54 20 22 59 4F 55 20 48 49 54 20 54 48 45 20 NT "YOU HIT THE
01CF10: 4A 41 43 4B 50 4F 54 21 21 21 22 0D 0A 35 35 20 JACKPOT!!!"..55
01CF20: 47 4F 54 4F 20 38 30 0D 0A 36 30 20 50 3D 50 2B GOTO 80..60 P=P+
01CF30: 31 0D 0A 36 35 20 47 4F 54 4F 20 38 30 0D 0A 37 1..65 GOTO 80..7
01CF40: 30 20 50 3D 50 2D 28 50 2A 2E 35 29 0D 0A 38 30 0 P=P-(P*.5)..80
01CF50: 20 49 46 20 50 3E 35 30 30 20 54 48 45 4E 20 39 IF P>500 THEN 9
01CF60: 30 0D 0A 38 32 20 50 52 49 4E 54 20 22 59 4F 55 0..82 PRINT "YOU
01CF70: 20 48 41 56 45 22 3B 50 3B 22 50 4F 49 4E 54 53 HAVE";P;"POINTS
01CF80: 2E 22 3A 50 52 49 4E 54 0D 0A 38 35 20 47 4F 54 .":PRINT..85 GOT
01CF90: 4F 20 31 32 0D 0A 39 30 20 50 52 49 4E 54 20 22 O 12..90 PRINT "
01CFA0: 21 21 21 21 59 4F 55 20 57 49 4E 21 21 21 21 20 !!!!YOU WIN!!!!
01CFB0: 57 49 54 48 20 22 3B 50 3B 22 50 4F 49 4E 54 53 WITH ";P;"POINTS
01CFC0: 2E 22 0D 0A 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 ."..99 END......
01CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D000: 30 20 50 52 49 4E 54 0D 0A 35 36 32 20 49 4E 50 0 PRINT..562 INP
01D010: 55 54 20 22 54 52 59 20 41 47 41 49 4E 22 3B 41 UT "TRY AGAIN";A
01D020: 24 0D 0A 35 37 30 20 49 46 20 41 24 3D 22 59 45 $..570 IF A$="YE
01D030: 53 22 20 54 48 45 4E 20 37 30 0D 0A 35 37 35 20 S" THEN 70..575
01D040: 49 46 20 41 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF A$="NO" THEN
01D050: 36 30 30 0D 0A 35 38 30 20 50 52 49 4E 54 20 22 600..580 PRINT "
01D060: 50 4C 45 41 53 45 20 41 4E 53 57 45 52 20 27 59 PLEASE ANSWER 'Y
01D070: 45 53 27 20 4F 52 20 27 4E 4F 27 2E 22 0D 0A 35 ES' OR 'NO'."..5
01D080: 39 30 20 47 4F 54 4F 20 35 36 32 0D 0A 36 30 30 90 GOTO 562..600
01D090: 20 50 52 49 4E 54 0D 0A 36 31 30 20 50 52 49 4E PRINT..610 PRIN
01D0A0: 54 20 22 4F 2E 4B 2E 20 20 48 4F 50 45 20 59 4F T "O.K. HOPE YO
01D0B0: 55 20 48 41 44 20 46 55 4E 21 21 22 0D 0A 39 39 U HAD FUN!!"..99
01D0C0: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
01D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D200: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
01D210: 22 4F 4E 45 20 43 48 45 43 4B 22 0D 0A 34 20 50 "ONE CHECK"..4 P
01D220: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
01D230: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
01D240: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
01D250: 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 W JERSEY"..6 PRI
01D260: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
01D270: 0D 0A 38 20 44 49 4D 20 41 28 36 34 29 0D 0A 31 ..8 DIM A(64)..1
01D280: 30 20 50 52 49 4E 54 20 22 53 4F 4C 49 54 41 49 0 PRINT "SOLITAI
01D290: 52 45 20 43 48 45 43 4B 45 52 20 50 55 5A 5A 4C RE CHECKER PUZZL
01D2A0: 45 20 42 59 20 44 41 56 49 44 20 41 48 4C 22 0D E BY DAVID AHL".
01D2B0: 0A 31 35 20 50 52 49 4E 54 0D 0A 32 30 20 50 52 .15 PRINT..20 PR
01D2C0: 49 4E 54 20 22 34 38 20 43 48 45 43 4B 45 52 53 INT "48 CHECKERS
01D2D0: 20 41 52 45 20 50 4C 41 43 45 44 20 4F 4E 20 54 ARE PLACED ON T
01D2E0: 48 45 20 32 20 4F 55 54 53 49 44 45 20 53 50 41 HE 2 OUTSIDE SPA
01D2F0: 43 45 53 20 4F 46 20 41 22 0D 0A 32 35 20 50 52 CES OF A"..25 PR
01D300: 49 4E 54 20 22 53 54 41 4E 44 41 52 44 20 36 34 INT "STANDARD 64
01D310: 2D 53 51 55 41 52 45 20 43 48 45 43 4B 45 52 42 -SQUARE CHECKERB
01D320: 4F 41 52 44 2E 20 20 54 48 45 20 4F 42 4A 45 43 OARD. THE OBJEC
01D330: 54 20 49 53 20 54 4F 22 0D 0A 33 30 20 50 52 49 T IS TO"..30 PRI
01D340: 4E 54 20 22 52 45 4D 4F 56 45 20 41 53 20 4D 41 NT "REMOVE AS MA
01D350: 4E 59 20 43 48 45 43 4B 45 52 53 20 41 53 20 50 NY CHECKERS AS P
01D360: 4F 53 53 49 42 4C 45 20 42 59 20 44 49 41 47 4F OSSIBLE BY DIAGO
01D370: 4E 41 4C 20 4A 55 4D 50 53 22 0D 0A 33 35 20 50 NAL JUMPS"..35 P
01D380: 52 49 4E 54 20 22 28 41 53 20 49 4E 20 53 54 41 RINT "(AS IN STA
01D390: 4E 44 41 52 44 20 43 48 45 43 4B 45 52 53 29 2E NDARD CHECKERS).
01D3A0: 20 20 55 53 45 20 54 48 45 20 4E 55 4D 42 45 52 USE THE NUMBER
01D3B0: 45 44 20 42 4F 41 52 44 20 54 4F 22 0D 0A 34 30 ED BOARD TO"..40
01D3C0: 20 50 52 49 4E 54 20 22 49 4E 44 49 43 41 54 45 PRINT "INDICATE
01D3D0: 20 54 48 45 20 53 51 55 41 52 45 20 59 4F 55 20 THE SQUARE YOU
01D3E0: 57 49 53 48 20 54 4F 20 4A 55 4D 50 20 46 52 4F WISH TO JUMP FRO
01D3F0: 4D 20 41 4E 44 20 54 4F 2E 20 20 4F 4E 22 0D 0A M AND TO. ON"..
01D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D600: 34 35 20 50 52 49 4E 54 20 22 54 48 45 20 42 4F 45 PRINT "THE BO
01D610: 41 52 44 20 50 52 49 4E 54 45 44 20 4F 55 54 20 ARD PRINTED OUT
01D620: 4F 4E 20 45 41 43 48 20 54 55 52 4E 20 27 31 27 ON EACH TURN '1'
01D630: 20 49 4E 44 49 43 41 54 45 53 20 41 22 0D 0A 35 INDICATES A"..5
01D640: 30 20 50 52 49 4E 54 20 22 43 48 45 43 4B 45 52 0 PRINT "CHECKER
01D650: 20 41 4E 44 20 27 30 27 20 41 4E 20 45 4D 50 54 AND '0' AN EMPT
01D660: 59 20 53 51 55 41 52 45 2E 20 20 57 48 45 4E 20 Y SQUARE. WHEN
01D670: 59 4F 55 20 48 41 56 45 20 4E 4F 22 0D 0A 35 35 YOU HAVE NO"..55
01D680: 20 50 52 49 4E 54 20 22 50 4F 53 53 49 42 4C 45 PRINT "POSSIBLE
01D690: 20 4A 55 4D 50 53 20 52 45 4D 41 49 4E 49 4E 47 JUMPS REMAINING
01D6A0: 2C 20 49 4E 50 55 54 20 41 20 27 30 27 20 49 4E , INPUT A '0' IN
01D6B0: 20 52 45 53 50 4F 4E 53 45 20 54 4F 22 0D 0A 36 RESPONSE TO"..6
01D6C0: 30 20 50 52 49 4E 54 20 22 51 55 45 53 54 49 4F 0 PRINT "QUESTIO
01D6D0: 4E 20 27 4A 55 4D 50 20 46 52 4F 4D 20 3F 27 22 N 'JUMP FROM ?'"
01D6E0: 0D 0A 36 32 20 50 52 49 4E 54 0D 0A 36 33 20 50 ..62 PRINT..63 P
01D6F0: 52 49 4E 54 20 22 48 45 52 45 20 49 53 20 54 48 RINT "HERE IS TH
01D700: 45 20 4E 55 4D 45 52 49 43 41 4C 20 42 4F 41 52 E NUMERICAL BOAR
01D710: 44 3A 22 0D 0A 36 36 20 50 52 49 4E 54 0D 0A 37 D:"..66 PRINT..7
01D720: 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 35 37 20 0 FOR J=1 TO 57
01D730: 53 54 45 50 20 38 0D 0A 37 34 20 50 52 49 4E 54 STEP 8..74 PRINT
01D740: 20 4A 3B 54 41 42 28 34 29 3B 4A 2B 31 3B 54 41 J;TAB(4);J+1;TA
01D750: 42 28 38 29 3B 4A 2B 32 3B 54 41 42 28 31 32 29 B(8);J+2;TAB(12)
01D760: 3B 4A 2B 33 3B 54 41 42 28 31 36 29 3B 4A 2B 34 ;J+3;TAB(16);J+4
01D770: 3B 54 41 42 28 32 30 29 3B 4A 2B 35 3B 0D 0A 37 ;TAB(20);J+5;..7
01D780: 35 20 50 52 49 4E 54 20 54 41 42 28 32 34 29 3B 5 PRINT TAB(24);
01D790: 4A 2B 36 3B 54 41 42 28 32 38 29 3B 4A 2B 37 0D J+6;TAB(28);J+7.
01D7A0: 0A 37 36 20 4E 45 58 54 20 4A 0D 0A 37 37 20 50 .76 NEXT J..77 P
01D7B0: 52 49 4E 54 0D 0A 37 38 20 50 52 49 4E 54 20 22 RINT..78 PRINT "
01D7C0: 41 4E 44 20 48 45 52 45 20 49 53 20 54 48 45 20 AND HERE IS THE
01D7D0: 4F 50 45 4E 49 4E 47 20 50 4F 53 49 54 49 4F 4E OPENING POSITION
01D7E0: 20 4F 46 20 54 48 45 20 43 48 45 43 4B 45 52 53 OF THE CHECKERS
01D7F0: 2E 22 0D 0A 37 39 20 50 52 49 4E 54 0D 0A 38 30 ."..79 PRINT..80
01D800: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
01D810: 22 4F 52 42 49 54 22 0D 0A 34 20 50 52 49 4E 54 "ORBIT"..4 PRINT
01D820: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
01D830: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
01D840: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
01D850: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 50 RSEY"..6 PRINT:P
01D860: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 50 RINT:PRINT..10 P
01D870: 52 49 4E 54 20 22 53 4F 4D 45 57 48 45 52 45 20 RINT "SOMEWHERE
01D880: 41 42 4F 56 45 20 59 4F 55 52 20 50 4C 41 4E 45 ABOVE YOUR PLANE
01D890: 54 20 49 53 20 41 20 52 4F 4D 55 4C 41 4E 20 53 T IS A ROMULAN S
01D8A0: 48 49 50 2E 22 0D 0A 31 35 20 50 52 49 4E 54 0D HIP."..15 PRINT.
01D8B0: 0A 32 30 20 50 52 49 4E 54 20 22 54 48 45 20 53 .20 PRINT "THE S
01D8C0: 48 49 50 20 49 53 20 49 4E 20 41 20 43 4F 4E 53 HIP IS IN A CONS
01D8D0: 54 41 4E 54 20 50 4F 4C 41 52 20 4F 52 42 49 54 TANT POLAR ORBIT
01D8E0: 2E 20 20 49 54 53 22 0D 0A 32 35 20 50 52 49 4E . ITS"..25 PRIN
01D8F0: 54 20 22 44 49 53 54 41 4E 43 45 20 46 52 4F 4D T "DISTANCE FROM
01D900: 20 54 48 45 20 43 45 4E 54 45 52 20 4F 46 20 59 THE CENTER OF Y
01D910: 4F 55 52 20 50 4C 41 4E 45 54 20 49 53 20 46 52 OUR PLANET IS FR
01D920: 4F 4D 22 0D 0A 33 30 20 50 52 49 4E 54 20 22 31 OM"..30 PRINT "1
01D930: 30 2C 30 30 30 20 54 4F 20 33 30 2C 30 30 30 20 0,000 TO 30,000
01D940: 4D 49 4C 45 53 20 41 4E 44 20 41 54 20 49 54 53 MILES AND AT ITS
01D950: 20 50 52 45 53 45 4E 54 20 56 45 4C 4F 43 49 54 PRESENT VELOCIT
01D960: 59 20 43 41 4E 22 0D 0A 33 31 20 50 52 49 4E 54 Y CAN"..31 PRINT
01D970: 20 22 43 49 52 43 4C 45 20 59 4F 55 52 20 50 4C "CIRCLE YOUR PL
01D980: 41 4E 45 54 20 4F 4E 43 45 20 45 56 45 52 59 20 ANET ONCE EVERY
01D990: 31 32 20 54 4F 20 33 36 20 48 4F 55 52 53 2E 22 12 TO 36 HOURS."
01D9A0: 0D 0A 33 35 20 50 52 49 4E 54 0D 0A 34 30 20 50 ..35 PRINT..40 P
01D9B0: 52 49 4E 54 20 22 55 4E 46 4F 52 54 55 4E 41 54 RINT "UNFORTUNAT
01D9C0: 45 4C 59 2C 20 54 48 45 59 20 41 52 45 20 55 53 ELY, THEY ARE US
01D9D0: 49 4E 47 20 41 20 43 4C 4F 41 4B 49 4E 47 20 44 ING A CLOAKING D
01D9E0: 45 56 49 43 45 20 53 4F 22 0D 0A 34 35 20 50 52 EVICE SO"..45 PR
01D9F0: 49 4E 54 20 22 59 4F 55 20 41 52 45 20 55 4E 41 INT "YOU ARE UNA
01DA00: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 36 34 0D 0A FOR J=1 TO 64..
01DA10: 38 32 20 41 28 4A 29 3D 31 0D 0A 38 34 20 4E 45 82 A(J)=1..84 NE
01DA20: 58 54 20 4A 0D 0A 38 36 20 46 4F 52 20 4A 3D 31 XT J..86 FOR J=1
01DA30: 39 20 54 4F 20 34 33 20 53 54 45 50 20 38 0D 0A 9 TO 43 STEP 8..
01DA40: 38 38 20 46 4F 52 20 49 3D 4A 20 54 4F 20 4A 2B 88 FOR I=J TO J+
01DA50: 33 0D 0A 39 30 20 41 28 49 29 3D 30 0D 0A 39 32 3..90 A(I)=0..92
01DA60: 20 4E 45 58 54 20 49 0D 0A 39 34 20 4E 45 58 54 NEXT I..94 NEXT
01DA70: 20 4A 0D 0A 39 36 20 4D 3D 30 0D 0A 39 38 20 47 J..96 M=0..98 G
01DA80: 4F 54 4F 20 33 34 30 0D 0A 31 30 30 20 49 4E 50 OTO 340..100 INP
01DA90: 55 54 20 22 4A 55 4D 50 20 46 52 4F 4D 22 3B 46 UT "JUMP FROM";F
01DAA0: 0D 0A 31 30 35 20 49 46 20 46 3D 30 20 54 48 45 ..105 IF F=0 THE
01DAB0: 4E 20 35 30 30 0D 0A 31 31 30 20 49 4E 50 55 54 N 500..110 INPUT
01DAC0: 20 22 54 4F 22 3B 54 0D 0A 31 31 32 20 50 52 49 "TO";T..112 PRI
01DAD0: 4E 54 0D 0A 31 31 38 20 52 45 4D 20 2A 2A 2A 20 NT..118 REM ***
01DAE0: 43 48 45 43 4B 20 4C 45 47 41 4C 49 54 59 20 4F CHECK LEGALITY O
01DAF0: 46 20 4D 4F 56 45 0D 0A 31 32 30 20 46 31 3D 49 F MOVE..120 F1=I
01DB00: 4E 54 28 28 46 2D 31 29 2F 38 29 0D 0A 31 33 30 NT((F-1)/8)..130
01DB10: 20 46 32 3D 46 2D 38 2A 46 31 0D 0A 31 34 30 20 F2=F-8*F1..140
01DB20: 54 31 3D 49 4E 54 28 28 54 2D 31 29 2F 38 29 0D T1=INT((T-1)/8).
01DB30: 0A 31 35 30 20 54 32 3D 54 2D 38 2A 54 31 0D 0A .150 T2=T-8*T1..
01DB40: 31 36 30 20 49 46 20 46 31 3E 37 20 54 48 45 4E 160 IF F1>7 THEN
01DB50: 20 32 33 30 0D 0A 31 37 30 20 49 46 20 54 31 3E 230..170 IF T1>
01DB60: 37 20 54 48 45 4E 20 32 33 30 0D 0A 31 38 30 20 7 THEN 230..180
01DB70: 49 46 20 46 32 3E 38 20 54 48 45 4E 20 32 33 30 IF F2>8 THEN 230
01DB80: 0D 0A 31 39 30 20 49 46 20 54 32 3E 38 20 54 48 ..190 IF T2>8 TH
01DB90: 45 4E 20 32 33 30 0D 0A 32 30 30 20 49 46 20 41 EN 230..200 IF A
01DBA0: 42 53 28 46 31 2D 54 31 29 3C 3E 32 20 54 48 45 BS(F1-T1)<>2 THE
01DBB0: 4E 20 32 33 30 0D 0A 32 31 30 20 49 46 20 41 42 N 230..210 IF AB
01DBC0: 53 28 46 32 2D 54 32 29 3C 3E 32 20 54 48 45 4E S(F2-T2)<>2 THEN
01DBD0: 20 32 33 30 0D 0A 32 31 32 20 49 46 20 41 28 28 230..212 IF A((
01DBE0: 54 2B 46 29 2F 32 29 3D 30 20 54 48 45 4E 20 32 T+F)/2)=0 THEN 2
01DBF0: 33 30 0D 0A 32 31 35 20 49 46 20 41 28 46 29 3D 30..215 IF A(F)=
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 00 00 02 09 52 E5 19 00 C1 02 00 00 00 02 ......R.........
01DC20: 19 00 C6 02 00 00 00 02 19 00 C2 02 00 00 00 02 ................
01DC30: 19 00 C7 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC40: 19 00 C8 02 00 00 00 02 19 00 C4 02 00 00 00 02 ................
01DC50: 19 00 C9 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 42 4C 45 20 54 4F 20 53 45 45 20 54 48 45 4D 2C BLE TO SEE THEM,
01DD10: 20 42 55 54 20 57 49 54 48 20 41 20 53 50 45 43 BUT WITH A SPEC
01DD20: 49 41 4C 22 0D 0A 35 30 20 50 52 49 4E 54 20 22 IAL"..50 PRINT "
01DD30: 49 4E 53 54 52 55 4D 45 4E 54 20 59 4F 55 20 43 INSTRUMENT YOU C
01DD40: 41 4E 20 54 45 4C 4C 20 48 4F 57 20 4E 45 41 52 AN TELL HOW NEAR
01DD50: 20 54 48 45 49 52 20 53 48 49 50 20 59 4F 55 52 THEIR SHIP YOUR
01DD60: 22 0D 0A 35 35 20 50 52 49 4E 54 20 22 50 48 4F "..55 PRINT "PHO
01DD70: 54 4F 4E 20 42 4F 4D 42 20 45 58 50 4C 4F 44 45 TON BOMB EXPLODE
01DD80: 44 2E 20 20 59 4F 55 20 48 41 56 45 20 53 45 56 D. YOU HAVE SEV
01DD90: 45 4E 20 48 4F 55 52 53 20 55 4E 54 49 4C 20 54 EN HOURS UNTIL T
01DDA0: 48 45 59 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 HEY"..60 PRINT "
01DDB0: 48 41 56 45 20 42 55 49 4C 54 20 55 50 20 53 55 HAVE BUILT UP SU
01DDC0: 46 46 49 43 49 45 4E 54 20 50 4F 57 45 52 20 49 FFICIENT POWER I
01DDD0: 4E 20 4F 52 44 45 52 20 54 4F 20 45 53 43 41 50 N ORDER TO ESCAP
01DDE0: 45 22 0D 0A 36 35 20 50 52 49 4E 54 20 22 59 4F E"..65 PRINT "YO
01DDF0: 55 52 20 50 4C 41 4E 45 54 27 53 20 47 52 41 56 UR PLANET'S GRAV
01DE00: 49 54 59 2E 22 0D 0A 37 30 20 50 52 49 4E 54 0D ITY."..70 PRINT.
01DE10: 0A 37 35 20 50 52 49 4E 54 20 22 59 4F 55 52 20 .75 PRINT "YOUR
01DE20: 50 4C 41 4E 45 54 20 48 41 53 20 45 4E 4F 55 47 PLANET HAS ENOUG
01DE30: 48 20 50 4F 57 45 52 20 54 4F 20 46 49 52 45 20 H POWER TO FIRE
01DE40: 4F 4E 45 20 42 4F 4D 42 20 41 4E 20 48 4F 55 52 ONE BOMB AN HOUR
01DE50: 2E 22 0D 0A 38 30 20 50 52 49 4E 54 0D 0A 38 35 ."..80 PRINT..85
01DE60: 20 50 52 49 4E 54 20 22 41 54 20 54 48 45 20 42 PRINT "AT THE B
01DE70: 45 47 49 4E 4E 49 4E 47 20 4F 46 20 45 41 43 48 EGINNING OF EACH
01DE80: 20 48 4F 55 52 20 59 4F 55 20 57 49 4C 4C 20 42 HOUR YOU WILL B
01DE90: 45 20 41 53 4B 45 44 20 54 4F 20 47 49 56 45 20 E ASKED TO GIVE
01DEA0: 41 4E 22 0D 0A 39 30 20 50 52 49 4E 54 20 22 41 AN"..90 PRINT "A
01DEB0: 4E 47 4C 45 20 28 42 45 54 57 45 45 4E 20 30 20 NGLE (BETWEEN 0
01DEC0: 41 4E 44 20 33 36 30 29 20 41 4E 44 20 41 20 44 AND 360) AND A D
01DED0: 49 53 54 41 4E 43 45 20 49 4E 20 55 4E 49 54 53 ISTANCE IN UNITS
01DEE0: 20 4F 46 22 0D 0A 39 35 20 50 52 49 4E 54 20 22 OF"..95 PRINT "
01DEF0: 31 30 30 20 4D 49 4C 45 53 20 28 42 45 54 57 45 100 MILES (BETWE
01DF00: 20 53 45 4E 44 22 0D 0A 33 33 35 20 50 52 49 4E SEND"..335 PRIN
01DF10: 54 20 22 59 4F 55 52 20 50 48 4F 54 4F 4E 20 42 T "YOUR PHOTON B
01DF20: 4F 4D 42 22 3B 0D 0A 33 34 30 20 49 4E 50 55 54 OMB";..340 INPUT
01DF30: 20 41 31 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 A1..350 PRINT "
01DF40: 48 4F 57 20 46 41 52 20 4F 55 54 20 44 4F 20 59 HOW FAR OUT DO Y
01DF50: 4F 55 20 57 49 53 48 20 54 4F 20 44 45 54 4F 4E OU WISH TO DETON
01DF60: 41 54 45 20 49 54 22 3B 0D 0A 33 36 30 20 49 4E ATE IT";..360 IN
01DF70: 50 55 54 20 44 31 0D 0A 33 36 35 20 50 52 49 4E PUT D1..365 PRIN
01DF80: 54 0D 0A 33 36 36 20 50 52 49 4E 54 0D 0A 33 37 T..366 PRINT..37
01DF90: 30 20 41 3D 41 2B 52 0D 0A 33 38 30 20 49 46 20 0 A=A+R..380 IF
01DFA0: 41 3C 33 36 30 20 54 48 45 4E 20 34 30 30 0D 0A A<360 THEN 400..
01DFB0: 33 39 30 20 41 3D 41 2D 33 36 30 0D 0A 34 30 30 390 A=A-360..400
01DFC0: 20 54 3D 41 42 53 28 41 2D 41 31 29 0D 0A 34 31 T=ABS(A-A1)..41
01DFD0: 30 20 49 46 20 54 3C 31 38 30 20 54 48 45 4E 20 0 IF T<180 THEN
01DFE0: 34 33 30 0D 0A 34 32 30 20 54 3D 33 36 30 2D 54 430..420 T=360-T
01DFF0: 0D 0A 34 33 30 20 43 3D 53 51 52 28 44 2A 44 2B ..430 C=SQR(D*D+
01E000: 44 31 2A 44 31 2D 32 2A 44 2A 44 31 2A 43 4F 53 D1*D1-2*D*D1*COS
01E010: 28 54 2A 33 2E 31 34 31 35 39 2F 31 38 30 29 29 (T*3.14159/180))
01E020: 0D 0A 34 34 30 20 50 52 49 4E 54 20 22 59 4F 55 ..440 PRINT "YOU
01E030: 52 20 50 48 4F 54 4F 4E 20 42 4F 4D 42 20 45 58 R PHOTON BOMB EX
01E040: 50 4C 4F 44 45 44 22 3B 43 3B 22 2A 31 30 5E 32 PLODED";C;"*10^2
01E050: 20 4D 49 4C 45 53 20 46 52 4F 4D 20 54 48 45 22 MILES FROM THE"
01E060: 0D 0A 34 34 35 20 50 52 49 4E 54 20 22 52 4F 4D ..445 PRINT "ROM
01E070: 55 4C 41 4E 20 53 48 49 50 2E 22 0D 0A 34 35 30 ULAN SHIP."..450
01E080: 20 49 46 20 43 3C 3D 35 30 20 54 48 45 4E 20 34 IF C<=50 THEN 4
01E090: 37 30 0D 0A 34 36 30 20 47 4F 54 4F 20 33 31 30 70..460 GOTO 310
01E0A0: 0D 0A 34 37 30 20 50 52 49 4E 54 20 22 59 4F 55 ..470 PRINT "YOU
01E0B0: 20 48 41 56 45 20 53 55 43 43 45 53 46 55 4C 4C HAVE SUCCESFULL
01E0C0: 59 20 43 4F 4D 50 4C 45 54 45 44 20 59 4F 55 52 Y COMPLETED YOUR
01E0D0: 20 4D 49 53 53 49 4F 4E 2E 22 0D 0A 34 38 30 20 MISSION."..480
01E0E0: 47 4F 54 4F 20 35 30 30 0D 0A 34 39 30 20 50 52 GOTO 500..490 PR
01E0F0: 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 41 4C INT "YOU HAVE AL
01E100: 45 4E 20 31 30 30 20 41 4E 44 20 33 30 30 29 2C EN 100 AND 300),
01E110: 20 41 46 54 45 52 20 57 48 49 43 48 20 59 4F 55 AFTER WHICH YOU
01E120: 52 20 42 4F 4D 42 27 53 22 0D 0A 31 30 30 20 50 R BOMB'S"..100 P
01E130: 52 49 4E 54 20 22 44 49 53 54 41 4E 43 45 20 46 RINT "DISTANCE F
01E140: 52 4F 4D 20 54 48 45 20 45 4E 45 4D 59 20 53 48 ROM THE ENEMY SH
01E150: 49 50 20 57 49 4C 4C 20 42 45 20 47 49 56 45 4E IP WILL BE GIVEN
01E160: 2E 22 0D 0A 31 30 35 20 50 52 49 4E 54 0D 0A 31 ."..105 PRINT..1
01E170: 31 30 20 50 52 49 4E 54 20 22 41 4E 20 45 58 50 10 PRINT "AN EXP
01E180: 4C 4F 53 49 4F 4E 20 57 49 54 48 49 4E 20 35 2C LOSION WITHIN 5,
01E190: 30 30 30 20 4D 49 4C 45 53 20 4F 46 20 54 48 45 000 MILES OF THE
01E1A0: 20 52 4F 4D 55 4C 41 4E 20 53 48 49 50 22 0D 0A ROMULAN SHIP"..
01E1B0: 31 31 31 20 50 52 49 4E 54 20 22 57 49 4C 4C 20 111 PRINT "WILL
01E1C0: 44 45 53 54 52 4F 59 20 49 54 2E 22 0D 0A 31 31 DESTROY IT."..11
01E1D0: 34 20 50 52 49 4E 54 0D 0A 31 31 35 20 50 52 49 4 PRINT..115 PRI
01E1E0: 4E 54 20 22 42 45 4C 4F 57 20 49 53 20 41 20 44 NT "BELOW IS A D
01E1F0: 49 41 47 52 41 4D 20 54 4F 20 48 45 4C 50 20 59 IAGRAM TO HELP Y
01E200: 4F 55 20 56 49 53 55 41 4C 49 5A 45 20 59 4F 55 OU VISUALIZE YOU
01E210: 52 20 50 4C 49 47 48 54 2E 22 0D 0A 31 31 36 20 R PLIGHT."..116
01E220: 50 52 49 4E 54 0D 0A 31 31 37 20 50 52 49 4E 54 PRINT..117 PRINT
01E230: 0D 0A 31 36 38 20 50 52 49 4E 54 20 22 20 20 20 ..168 PRINT "
01E240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E250: 20 20 20 20 20 20 20 39 30 22 0D 0A 31 37 30 20 90"..170
01E260: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
01E270: 20 20 20 20 20 20 20 20 20 20 20 30 30 30 30 30 00000
01E280: 30 30 30 30 30 30 30 30 22 0D 0A 31 37 31 20 50 00000000"..171 P
01E290: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 RINT "
01E2A0: 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 30 000000000
01E2B0: 30 30 30 30 30 30 30 30 30 30 22 0D 0A 31 37 32 0000000000"..172
01E2C0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
01E2D0: 20 20 20 20 20 20 20 30 30 30 30 30 30 20 20 20 000000
01E2E0: 20 20 20 20 20 20 20 20 30 30 30 30 30 30 22 0D 000000".
01E2F0: 0A 31 37 33 20 50 52 49 4E 54 20 22 20 20 20 20 .173 PRINT "
01E300: 4C 4F 57 45 44 20 54 48 45 20 52 4F 4D 55 4C 41 LOWED THE ROMULA
01E310: 4E 53 20 54 4F 20 45 53 43 41 50 45 2E 22 0D 0A NS TO ESCAPE."..
01E320: 35 30 30 20 50 52 49 4E 54 20 22 41 4E 4F 54 48 500 PRINT "ANOTH
01E330: 45 52 20 52 4F 4D 55 4C 41 4E 20 53 48 49 50 20 ER ROMULAN SHIP
01E340: 48 41 53 20 47 4F 4E 45 20 49 4E 54 4F 20 4F 52 HAS GONE INTO OR
01E350: 42 49 54 2E 22 0D 0A 35 31 30 20 50 52 49 4E 54 BIT."..510 PRINT
01E360: 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F "DO YOU WISH TO
01E370: 20 54 52 59 20 54 4F 20 44 45 53 54 52 4F 59 20 TRY TO DESTROY
01E380: 49 54 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 IT";..520 INPUT
01E390: 43 24 0D 0A 35 33 30 20 49 46 20 43 24 3D 22 59 C$..530 IF C$="Y
01E3A0: 45 53 22 20 54 48 45 4E 20 32 37 30 0D 0A 35 34 ES" THEN 270..54
01E3B0: 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 20 42 59 0 PRINT "GOOD BY
01E3C0: 45 2E 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E."..999 END....
01E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E500: 20 20 20 20 20 20 20 20 20 30 30 30 30 30 20 20 00000
01E510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0
01E520: 30 30 30 30 22 0D 0A 31 37 34 20 50 52 49 4E 54 0000"..174 PRINT
01E530: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 30 30 " 00
01E540: 30 30 30 20 20 20 20 58 58 58 58 58 58 58 58 58 000 XXXXXXXXX
01E550: 58 58 20 20 20 20 30 30 30 30 30 22 0D 0A 31 37 XX 00000"..17
01E560: 35 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 5 PRINT "
01E570: 20 20 20 20 30 30 30 30 30 20 20 20 20 58 58 58 00000 XXX
01E580: 58 58 58 58 58 58 58 58 58 58 20 20 20 20 30 30 XXXXXXXXXX 00
01E590: 30 30 30 22 0D 0A 31 37 36 20 50 52 49 4E 54 20 000"..176 PRINT
01E5A0: 22 20 20 20 20 20 20 20 20 20 20 30 30 30 30 20 " 0000
01E5B0: 20 20 20 20 58 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXXX
01E5C0: 58 58 58 20 20 20 20 20 30 30 30 30 22 0D 0A 31 XXX 0000"..1
01E5D0: 37 37 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 77 PRINT "
01E5E0: 20 20 20 30 30 30 30 20 20 20 20 20 58 58 58 58 0000 XXXX
01E5F0: 58 58 58 58 58 58 58 58 58 58 58 58 58 20 20 20 XXXXXXXXXXXXX
01E600: 20 20 30 30 30 30 22 0D 0A 31 37 38 20 50 52 49 0000"..178 PRI
01E610: 4E 54 20 22 20 20 20 20 20 20 20 20 30 30 30 30 NT " 0000
01E620: 20 20 20 20 20 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXX
01E630: 58 58 58 58 58 58 58 58 20 20 20 20 20 30 30 30 XXXXXXXX 000
01E640: 30 22 0D 0A 31 37 39 20 50 52 49 4E 54 20 22 31 0"..179 PRINT "1
01E650: 38 30 3C 3D 3D 20 30 30 30 30 30 20 20 20 20 20 80<== 00000
01E660: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXXXXXXX
01E670: 58 58 58 20 20 20 20 20 30 30 30 30 30 20 3D 3D XXX 00000 ==
01E680: 3E 30 22 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 >0"..180 PRINT "
01E690: 20 20 20 20 20 20 20 20 30 30 30 30 20 20 20 20 0000
01E6A0: 20 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXXXXXX
01E6B0: 58 58 58 58 20 20 20 20 20 30 30 30 30 22 0D 0A XXXX 0000"..
01E6C0: 31 38 31 20 50 52 49 4E 54 20 22 20 20 20 20 20 181 PRINT "
01E6D0: 20 20 20 20 30 30 30 30 20 20 20 20 20 58 58 58 0000 XXX
01E6E0: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 20 20 XXXXXXXXXXXXXX
01E6F0: 20 20 20 30 30 30 30 22 0D 0A 31 38 32 20 50 52 0000"..182 PR
01E700: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
01E710: 22 50 49 5A 5A 41 22 0D 0A 31 30 20 50 52 49 4E "PIZZA"..10 PRIN
01E720: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
01E730: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
01E740: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
01E750: 45 52 53 45 59 22 0D 0A 31 35 20 50 52 49 4E 54 ERSEY"..15 PRINT
01E760: 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A : PRINT: PRINT..
01E770: 32 30 20 44 49 4D 20 53 24 28 31 36 29 2C 4D 24 20 DIM S$(16),M$
01E780: 28 34 29 0D 0A 33 30 20 50 52 49 4E 54 20 22 50 (4)..30 PRINT "P
01E790: 49 5A 5A 41 20 44 45 4C 49 56 45 52 59 20 47 41 IZZA DELIVERY GA
01E7A0: 4D 45 22 3A 20 50 52 49 4E 54 0D 0A 35 30 20 49 ME": PRINT..50 I
01E7B0: 4E 50 55 54 20 22 57 48 41 54 20 49 53 20 59 4F NPUT "WHAT IS YO
01E7C0: 55 52 20 46 49 52 53 54 20 4E 41 4D 45 22 3B 4E UR FIRST NAME";N
01E7D0: 24 3A 20 50 52 49 4E 54 0D 0A 38 30 20 50 52 49 $: PRINT..80 PRI
01E7E0: 4E 54 20 22 48 49 2C 20 22 3B 4E 24 3B 22 2E 20 NT "HI, ";N$;".
01E7F0: 20 49 4E 20 54 48 49 53 20 47 41 4D 45 20 59 4F IN THIS GAME YO
01E800: 55 20 41 52 45 20 54 4F 20 54 41 4B 45 20 4F 52 U ARE TO TAKE OR
01E810: 44 45 52 53 22 0D 0A 39 30 20 50 52 49 4E 54 20 DERS"..90 PRINT
01E820: 22 46 4F 52 20 50 49 5A 5A 41 53 2E 20 20 54 48 "FOR PIZZAS. TH
01E830: 45 4E 20 59 4F 55 20 41 52 45 20 54 4F 20 54 45 EN YOU ARE TO TE
01E840: 4C 4C 20 41 20 44 45 4C 49 56 45 52 59 20 42 4F LL A DELIVERY BO
01E850: 59 22 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 57 Y"..100 PRINT "W
01E860: 48 45 52 45 20 54 4F 20 44 45 4C 49 56 45 52 20 HERE TO DELIVER
01E870: 54 48 45 20 4F 52 44 45 52 45 44 20 50 49 5A 5A THE ORDERED PIZZ
01E880: 41 53 2E 22 3A 20 50 52 49 4E 54 3A 20 50 52 49 AS.": PRINT: PRI
01E890: 4E 54 0D 0A 31 34 30 20 46 4F 52 20 49 3D 31 20 NT..140 FOR I=1
01E8A0: 54 4F 20 31 36 0D 0A 31 35 30 20 52 45 41 44 20 TO 16..150 READ
01E8B0: 53 24 28 49 29 0D 0A 31 36 30 20 4E 45 58 54 20 S$(I)..160 NEXT
01E8C0: 49 0D 0A 31 37 30 20 46 4F 52 20 49 3D 31 20 54 I..170 FOR I=1 T
01E8D0: 4F 20 34 0D 0A 31 38 30 20 52 45 41 44 20 4D 24 O 4..180 READ M$
01E8E0: 28 49 29 0D 0A 31 39 30 20 4E 45 58 54 20 49 0D (I)..190 NEXT I.
01E8F0: 0A 32 30 30 20 44 41 54 41 20 22 41 22 2C 22 42 .200 DATA "A","B
01E900: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 30 INT " 0
01E910: 30 30 30 20 20 20 20 20 58 58 58 58 58 58 58 58 000 XXXXXXXX
01E920: 58 58 58 58 58 58 58 20 20 20 20 20 30 30 30 30 XXXXXXX 0000
01E930: 22 0D 0A 31 38 33 20 50 52 49 4E 54 20 22 20 20 "..183 PRINT "
01E940: 20 20 20 20 20 20 20 20 20 30 30 30 30 30 20 20 00000
01E950: 20 20 58 58 58 58 58 58 58 58 58 58 58 58 58 20 XXXXXXXXXXXXX
01E960: 20 20 20 30 30 30 30 30 22 0D 0A 31 38 34 20 50 00000"..184 P
01E970: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 RINT "
01E980: 20 20 30 30 30 30 30 20 20 20 20 58 58 58 58 58 00000 XXXXX
01E990: 58 58 58 58 58 58 20 20 20 20 30 30 30 30 30 22 XXXXXX 00000"
01E9A0: 0D 0A 31 38 35 20 50 52 49 4E 54 20 22 20 20 20 ..185 PRINT "
01E9B0: 20 20 20 20 20 20 20 20 20 20 30 30 30 30 30 20 00000
01E9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E9D0: 30 30 30 30 30 22 0D 0A 31 38 36 20 50 52 49 4E 00000"..186 PRIN
01E9E0: 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 T "
01E9F0: 20 20 30 30 30 30 30 30 20 20 20 20 20 20 20 20 000000
01EA00: 20 20 20 30 30 30 30 30 30 22 0D 0A 31 38 37 20 000000"..187
01EA10: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
01EA20: 20 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 00000000
01EA30: 30 30 30 30 30 30 30 30 30 30 30 22 0D 0A 31 38 00000000000"..18
01EA40: 38 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 8 PRINT "
01EA50: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 30 000
01EA60: 30 30 30 30 30 30 30 30 30 30 22 0D 0A 31 39 30 0000000000"..190
01EA70: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
01EA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01EA90: 20 32 37 30 22 0D 0A 31 39 32 20 50 52 49 4E 54 270"..192 PRINT
01EAA0: 0D 0A 31 39 35 20 50 52 49 4E 54 20 22 58 20 2D ..195 PRINT "X -
01EAB0: 20 59 4F 55 52 20 50 4C 41 4E 45 54 22 0D 0A 31 YOUR PLANET"..1
01EAC0: 39 36 20 50 52 49 4E 54 20 22 4F 20 2D 20 54 48 96 PRINT "O - TH
01EAD0: 45 20 4F 52 42 49 54 20 4F 46 20 54 48 45 20 52 E ORBIT OF THE R
01EAE0: 4F 4D 55 4C 41 4E 20 53 48 49 50 22 0D 0A 31 39 OMULAN SHIP"..19
01EAF0: 37 20 50 52 49 4E 54 0D 0A 31 39 38 20 50 52 49 7 PRINT..198 PRI
01EB00: 22 2C 22 43 22 2C 22 44 22 2C 22 45 22 2C 22 46 ","C","D","E","F
01EB10: 22 2C 22 47 22 2C 22 48 22 2C 22 49 22 2C 22 4A ","G","H","I","J
01EB20: 22 2C 22 4B 22 2C 22 4C 22 2C 22 4D 22 2C 22 4E ","K","L","M","N
01EB30: 22 2C 22 4F 22 0D 0A 32 31 30 20 44 41 54 41 20 ","O"..210 DATA
01EB40: 22 50 22 2C 22 31 22 2C 22 32 22 2C 22 33 22 2C "P","1","2","3",
01EB50: 22 34 22 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 "4"..230 PRINT "
01EB60: 4D 41 50 20 4F 46 20 54 48 45 20 43 49 54 59 20 MAP OF THE CITY
01EB70: 4F 46 20 48 59 41 54 54 53 56 49 4C 4C 45 22 3A OF HYATTSVILLE":
01EB80: 20 50 52 49 4E 54 0D 0A 32 35 30 20 50 52 49 4E PRINT..250 PRIN
01EB90: 54 20 22 20 2D 2D 2D 2D 2D 31 2D 2D 2D 2D 2D 32 T " -----1-----2
01EBA0: 2D 2D 2D 2D 2D 33 2D 2D 2D 2D 2D 34 2D 2D 2D 2D -----3-----4----
01EBB0: 2D 22 0D 0A 32 36 30 20 4B 3D 34 0D 0A 32 37 30 -"..260 K=4..270
01EBC0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 34 0D 0A 32 FOR I=1 TO 4..2
01EBD0: 38 30 20 50 52 49 4E 54 20 22 2D 22 3A 20 50 52 80 PRINT "-": PR
01EBE0: 49 4E 54 20 22 2D 22 3A 20 50 52 49 4E 54 22 2D INT "-": PRINT"-
01EBF0: 22 3A 20 50 52 49 4E 54 20 22 2D 22 0D 0A 33 32 ": PRINT "-"..32
01EC00: 30 20 50 52 49 4E 54 20 4D 24 28 4B 29 3B 0D 0A 0 PRINT M$(K);..
01EC10: 33 33 30 20 53 31 3D 31 36 2D 34 2A 49 2B 31 0D 330 S1=16-4*I+1.
01EC20: 0A 33 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 .340 PRINT "
01EC30: 20 22 3B 53 24 28 53 31 29 3B 22 20 20 20 20 20 ";S$(S1);"
01EC40: 22 3B 53 24 28 53 31 2B 31 29 3B 22 20 20 20 20 ";S$(S1+1);"
01EC50: 20 22 3B 53 24 28 53 31 2B 32 29 3B 22 20 20 20 ";S$(S1+2);"
01EC60: 20 20 22 3B 0D 0A 33 35 30 20 50 52 49 4E 54 20 ";..350 PRINT
01EC70: 53 24 28 53 31 2B 33 29 3B 22 20 20 20 20 20 22 S$(S1+3);" "
01EC80: 3B 4D 24 28 4B 29 0D 0A 33 38 30 20 4B 3D 4B 2D ;M$(K)..380 K=K-
01EC90: 31 0D 0A 33 39 30 20 4E 45 58 54 20 49 0D 0A 34 1..390 NEXT I..4
01ECA0: 30 30 20 50 52 49 4E 54 20 22 2D 22 3A 20 50 52 00 PRINT "-": PR
01ECB0: 49 4E 54 20 22 2D 22 3A 20 50 52 49 4E 54 20 22 INT "-": PRINT "
01ECC0: 2D 22 3A 20 50 52 49 4E 54 20 22 2D 22 0D 0A 34 -": PRINT "-"..4
01ECD0: 34 30 20 50 52 49 4E 54 20 22 20 2D 2D 2D 2D 2D 40 PRINT " -----
01ECE0: 31 2D 2D 2D 2D 2D 32 2D 2D 2D 2D 2D 33 2D 2D 2D 1-----2-----3---
01ECF0: 2D 2D 34 2D 2D 2D 2D 2D 22 3A 20 50 52 49 4E 54 --4-----": PRINT
01ED00: 4E 54 20 22 4F 4E 20 54 48 45 20 41 42 4F 56 45 NT "ON THE ABOVE
01ED10: 20 44 49 41 47 52 41 4D 2C 20 54 48 45 20 52 4F DIAGRAM, THE RO
01ED20: 4D 55 4C 41 4E 20 53 48 49 50 20 49 53 20 43 49 MULAN SHIP IS CI
01ED30: 52 43 4C 49 4E 47 22 0D 0A 31 39 39 20 50 52 49 RCLING"..199 PRI
01ED40: 4E 54 20 22 43 4F 55 4E 54 45 52 43 4C 4F 43 4B NT "COUNTERCLOCK
01ED50: 57 49 53 45 20 41 52 4F 55 4E 44 20 59 4F 55 52 WISE AROUND YOUR
01ED60: 20 50 4C 41 4E 45 54 2E 20 20 44 4F 4E 27 54 20 PLANET. DON'T
01ED70: 46 4F 52 47 45 54 20 54 48 41 54 22 0D 0A 32 30 FORGET THAT"..20
01ED80: 30 20 50 52 49 4E 54 20 22 57 49 54 48 4F 55 54 0 PRINT "WITHOUT
01ED90: 20 53 55 46 46 49 43 49 45 4E 54 20 50 4F 57 45 SUFFICIENT POWE
01EDA0: 52 20 54 48 45 20 52 4F 4D 55 4C 41 4E 20 53 48 R THE ROMULAN SH
01EDB0: 49 50 27 53 20 41 4C 54 49 54 55 44 45 22 0D 0A IP'S ALTITUDE"..
01EDC0: 32 31 30 20 50 52 49 4E 54 20 22 41 4E 44 20 4F 210 PRINT "AND O
01EDD0: 52 42 49 54 41 4C 20 52 41 54 45 20 57 49 4C 4C RBITAL RATE WILL
01EDE0: 20 52 45 4D 41 49 4E 20 43 4F 4E 53 54 41 4E 54 REMAIN CONSTANT
01EDF0: 2E 22 0D 0A 32 32 30 20 50 52 49 4E 54 20 0D 0A ."..220 PRINT ..
01EE00: 32 33 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 20 230 PRINT "GOOD
01EE10: 4C 55 43 4B 2E 20 20 54 48 45 20 46 45 44 45 52 LUCK. THE FEDER
01EE20: 41 54 49 4F 4E 20 49 53 20 43 4F 55 4E 54 49 4E ATION IS COUNTIN
01EE30: 47 20 4F 4E 20 59 4F 55 2E 22 0D 0A 32 37 30 20 G ON YOU."..270
01EE40: 41 3D 49 4E 54 28 33 36 30 2A 52 4E 44 28 31 29 A=INT(360*RND(1)
01EE50: 29 0D 0A 32 38 30 20 44 3D 49 4E 54 28 32 30 30 )..280 D=INT(200
01EE60: 2A 52 4E 44 28 31 29 2B 32 30 30 29 0D 0A 32 39 *RND(1)+200)..29
01EE70: 30 20 52 3D 49 4E 54 28 32 30 2A 52 4E 44 28 31 0 R=INT(20*RND(1
01EE80: 29 2B 31 30 29 0D 0A 33 30 30 20 48 3D 30 0D 0A )+10)..300 H=0..
01EE90: 33 31 30 20 49 46 20 48 3D 37 20 54 48 45 4E 20 310 IF H=7 THEN
01EEA0: 34 39 30 0D 0A 33 32 30 20 48 3D 48 2B 31 0D 0A 490..320 H=H+1..
01EEB0: 33 32 35 20 50 52 49 4E 54 0D 0A 33 32 36 20 50 325 PRINT..326 P
01EEC0: 52 49 4E 54 0D 0A 33 33 30 20 50 52 49 4E 54 20 RINT..330 PRINT
01EED0: 22 54 48 49 53 20 49 53 20 48 4F 55 52 22 3B 48 "THIS IS HOUR";H
01EEE0: 3B 22 2C 20 41 54 20 57 48 41 54 20 41 4E 47 4C ;", AT WHAT ANGL
01EEF0: 45 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F E DO YOU WISH TO
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 00 00 02 09 52 E5 1A 00 C1 02 00 00 00 02 ......R.........
01EF20: 1A 00 C6 02 00 00 00 02 1A 00 C2 02 00 00 00 02 ................
01EF30: 1A 00 C7 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF40: 1A 00 C8 02 00 00 00 02 1A 00 C4 02 00 00 00 02 ................
01EF50: 1A 00 C9 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 0D 0A 34 36 30 20 50 52 49 4E 54 20 22 54 48 45 ..460 PRINT "THE
01F010: 20 4F 55 54 50 55 54 20 49 53 20 41 20 4D 41 50 OUTPUT IS A MAP
01F020: 20 4F 46 20 54 48 45 20 48 4F 4D 45 53 20 57 48 OF THE HOMES WH
01F030: 45 52 45 22 0D 0A 34 37 30 20 50 52 49 4E 54 20 ERE"..470 PRINT
01F040: 22 59 4F 55 20 41 52 45 20 54 4F 20 53 45 4E 44 "YOU ARE TO SEND
01F050: 20 50 49 5A 5A 41 53 2E 22 3A 20 50 52 49 4E 54 PIZZAS.": PRINT
01F060: 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 59 4F 55 ..490 PRINT "YOU
01F070: 52 20 4A 4F 42 20 49 53 20 54 4F 20 47 49 56 45 R JOB IS TO GIVE
01F080: 20 41 20 54 52 55 43 4B 20 44 52 49 56 45 52 22 A TRUCK DRIVER"
01F090: 0D 0A 35 30 30 20 50 52 49 4E 54 20 22 54 48 45 ..500 PRINT "THE
01F0A0: 20 4C 4F 43 41 54 49 4F 4E 20 4F 52 20 43 4F 4F LOCATION OR COO
01F0B0: 52 44 49 4E 41 54 45 53 20 4F 46 20 54 48 45 22 RDINATES OF THE"
01F0C0: 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 48 4F 4D ..510 PRINT "HOM
01F0D0: 45 20 4F 52 44 45 52 49 4E 47 20 54 48 45 20 50 E ORDERING THE P
01F0E0: 49 5A 5A 41 2E 22 3A 20 50 52 49 4E 54 0D 0A 35 IZZA.": PRINT..5
01F0F0: 32 30 20 49 4E 50 55 54 20 22 44 4F 20 59 4F 55 20 INPUT "DO YOU
01F100: 20 4E 45 45 44 20 4D 4F 52 45 20 44 49 52 45 43 NEED MORE DIREC
01F110: 54 49 4F 4E 53 22 3B 41 24 0D 0A 35 33 30 20 49 TIONS";A$..530 I
01F120: 46 20 41 24 3D 22 59 45 53 22 20 54 48 45 4E 20 F A$="YES" THEN
01F130: 35 39 30 0D 0A 35 34 30 20 49 46 20 41 24 3D 22 590..540 IF A$="
01F140: 4E 4F 22 20 54 48 45 4E 20 37 35 30 0D 0A 35 35 NO" THEN 750..55
01F150: 30 20 50 52 49 4E 54 20 22 27 59 45 53 27 20 4F 0 PRINT "'YES' O
01F160: 52 20 27 4E 4F 27 20 50 4C 45 41 53 45 2C 20 4E R 'NO' PLEASE, N
01F170: 4F 57 20 54 48 45 4E 2C 22 3A 20 47 4F 54 4F 20 OW THEN,": GOTO
01F180: 35 32 30 0D 0A 35 39 30 20 50 52 49 4E 54 3A 20 520..590 PRINT:
01F190: 50 52 49 4E 54 20 22 53 4F 4D 45 42 4F 44 59 20 PRINT "SOMEBODY
01F1A0: 57 49 4C 4C 20 41 53 4B 20 46 4F 52 20 41 20 50 WILL ASK FOR A P
01F1B0: 49 5A 5A 41 20 54 4F 20 42 45 22 0D 0A 36 30 30 IZZA TO BE"..600
01F1C0: 20 50 52 49 4E 54 20 22 44 45 4C 49 56 45 52 45 PRINT "DELIVERE
01F1D0: 44 2E 20 20 54 48 45 4E 20 41 20 44 45 4C 49 56 D. THEN A DELIV
01F1E0: 45 52 59 20 42 4F 59 20 57 49 4C 4C 22 0D 0A 36 ERY BOY WILL"..6
01F1F0: 31 30 20 50 52 49 4E 54 20 22 41 53 4B 20 59 4F 10 PRINT "ASK YO
01F200: 32 31 30 0D 0A 31 31 35 20 50 52 49 4E 54 20 22 210..115 PRINT "
01F210: 42 55 52 4E 45 44 22 3B 3A 47 4F 54 4F 20 32 31 BURNED";:GOTO 21
01F220: 30 0D 0A 31 32 30 20 4F 4E 20 49 20 47 4F 54 4F 0..120 ON I GOTO
01F230: 20 31 32 31 2C 31 32 32 2C 31 32 33 2C 31 32 34 121,122,123,124
01F240: 2C 31 32 35 0D 0A 31 32 31 20 50 52 49 4E 54 20 ,125..121 PRINT
01F250: 22 41 4E 44 20 4D 59 20 53 4F 55 4C 22 3B 3A 47 "AND MY SOUL";:G
01F260: 4F 54 4F 20 32 31 30 0D 0A 31 32 32 20 50 52 49 OTO 210..122 PRI
01F270: 4E 54 20 22 44 41 52 4B 4E 45 53 53 20 54 48 45 NT "DARKNESS THE
01F280: 52 45 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 RE";:GOTO 210..1
01F290: 32 33 20 50 52 49 4E 54 20 22 53 48 41 4C 4C 20 23 PRINT "SHALL
01F2A0: 42 45 20 4C 49 46 54 45 44 22 3B 3A 47 4F 54 4F BE LIFTED";:GOTO
01F2B0: 20 32 31 30 0D 0A 31 32 34 20 50 52 49 4E 54 20 210..124 PRINT
01F2C0: 22 51 55 4F 54 48 20 54 48 45 20 52 41 56 45 4E "QUOTH THE RAVEN
01F2D0: 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 32 35 ";:GOTO 210..125
01F2E0: 20 49 46 20 55 3D 30 20 54 48 45 4E 20 32 31 30 IF U=0 THEN 210
01F2F0: 0D 0A 31 32 36 20 50 52 49 4E 54 20 22 53 49 47 ..126 PRINT "SIG
01F300: 4E 20 4F 46 20 50 41 52 54 49 4E 47 22 3B 3A 47 N OF PARTING";:G
01F310: 4F 54 4F 20 32 31 30 0D 0A 31 33 30 20 4F 4E 20 OTO 210..130 ON
01F320: 49 20 47 4F 54 4F 20 31 33 31 2C 31 33 32 2C 31 I GOTO 131,132,1
01F330: 33 33 2C 31 33 34 2C 31 33 35 0D 0A 31 33 31 20 33,134,135..131
01F340: 50 52 49 4E 54 20 22 4E 4F 54 48 49 4E 47 20 4D PRINT "NOTHING M
01F350: 4F 52 45 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A ORE";:GOTO 210..
01F360: 31 33 32 20 50 52 49 4E 54 20 22 59 45 54 20 41 132 PRINT "YET A
01F370: 47 41 49 4E 22 3B 3A 47 4F 54 4F 20 32 31 30 0D GAIN";:GOTO 210.
01F380: 0A 31 33 33 20 50 52 49 4E 54 20 22 53 4C 4F 57 .133 PRINT "SLOW
01F390: 4C 59 20 43 52 45 45 50 49 4E 47 22 3B 3A 47 4F LY CREEPING";:GO
01F3A0: 54 4F 20 32 31 30 0D 0A 31 33 34 20 50 52 49 4E TO 210..134 PRIN
01F3B0: 54 20 22 2E 2E 2E 45 56 45 52 4D 4F 52 45 22 3B T "...EVERMORE";
01F3C0: 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 33 35 20 50 :GOTO 210..135 P
01F3D0: 52 49 4E 54 20 22 4E 45 56 45 52 4D 4F 52 45 22 RINT "NEVERMORE"
01F3E0: 3B 0D 0A 32 31 30 20 49 46 20 55 3D 30 20 4F 52 ;..210 IF U=0 OR
01F3F0: 20 52 4E 44 28 31 29 3E 2E 31 39 20 54 48 45 4E RND(1)>.19 THEN
01F400: 55 20 46 4F 52 20 54 48 45 20 4C 4F 43 41 54 49 U FOR THE LOCATI
01F410: 4F 4E 2E 22 3A 50 52 49 4E 54 20 22 20 20 20 20 ON.":PRINT "
01F420: 20 45 58 41 4D 50 4C 45 3A 22 0D 0A 36 32 30 20 EXAMPLE:"..620
01F430: 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 4A PRINT "THIS IS J
01F440: 2E 20 20 50 4C 45 41 53 45 20 53 45 4E 44 20 41 . PLEASE SEND A
01F450: 20 50 49 5A 5A 41 2E 22 0D 0A 36 34 30 20 50 52 PIZZA."..640 PR
01F460: 49 4E 54 20 22 44 52 49 56 45 52 20 54 4F 20 22 INT "DRIVER TO "
01F470: 3B 4E 24 3B 22 2E 20 20 57 48 45 52 45 20 44 4F ;N$;". WHERE DO
01F480: 45 53 20 4A 20 4C 49 56 45 3F 22 0D 0A 36 35 30 ES J LIVE?"..650
01F490: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 41 4E 53 PRINT "YOUR ANS
01F4A0: 57 45 52 20 57 4F 55 4C 44 20 42 45 20 32 2C 33 WER WOULD BE 2,3
01F4B0: 22 3A 20 50 52 49 4E 54 0D 0A 36 36 30 20 49 4E ": PRINT..660 IN
01F4C0: 50 55 54 20 22 55 4E 44 45 52 53 54 41 4E 44 22 PUT "UNDERSTAND"
01F4D0: 3B 41 24 0D 0A 36 37 30 20 49 46 20 41 24 3D 22 ;A$..670 IF A$="
01F4E0: 59 45 53 22 20 54 48 45 4E 20 36 39 30 0D 0A 36 YES" THEN 690..6
01F4F0: 38 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 4A 80 PRINT "THIS J
01F500: 4F 42 20 49 53 20 44 45 46 49 4E 49 54 45 4C 59 OB IS DEFINITELY
01F510: 20 54 4F 4F 20 44 49 46 46 49 43 55 4C 54 20 46 TOO DIFFICULT F
01F520: 4F 52 20 59 4F 55 2E 20 54 48 41 4E 4B 53 20 41 OR YOU. THANKS A
01F530: 4E 59 57 41 59 22 0D 0A 36 38 35 20 47 4F 54 4F NYWAY"..685 GOTO
01F540: 20 39 39 39 0D 0A 36 39 30 20 50 52 49 4E 54 20 999..690 PRINT
01F550: 22 47 4F 4F 44 2E 20 20 59 4F 55 20 41 52 45 20 "GOOD. YOU ARE
01F560: 4E 4F 57 20 52 45 41 44 59 20 54 4F 20 53 54 41 NOW READY TO STA
01F570: 52 54 20 54 41 4B 49 4E 47 20 4F 52 44 45 52 53 RT TAKING ORDERS
01F580: 2E 22 3A 20 50 52 49 4E 54 0D 0A 37 30 30 20 50 .": PRINT..700 P
01F590: 52 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 RINT "GOOD LUCK!
01F5A0: 21 22 3A 20 50 52 49 4E 54 0D 0A 37 35 30 20 46 !": PRINT..750 F
01F5B0: 4F 52 20 49 3D 31 20 54 4F 20 35 0D 0A 37 36 30 OR I=1 TO 5..760
01F5C0: 20 53 3D 49 4E 54 28 52 4E 44 28 31 29 2A 31 36 S=INT(RND(1)*16
01F5D0: 2B 31 29 3A 20 50 52 49 4E 54 0D 0A 37 37 30 20 +1): PRINT..770
01F5E0: 50 52 49 4E 54 20 22 48 45 4C 4C 4F 20 22 3B 4E PRINT "HELLO ";N
01F5F0: 24 3B 22 27 53 20 50 49 5A 5A 41 2E 20 20 54 48 $;"'S PIZZA. TH
01F600: 20 32 31 32 0D 0A 32 31 31 20 50 52 49 4E 54 20 212..211 PRINT
01F610: 22 2C 22 3B 3A 55 3D 32 0D 0A 32 31 32 20 49 46 ",";:U=2..212 IF
01F620: 20 52 4E 44 28 31 29 3E 2E 36 35 20 54 48 45 4E RND(1)>.65 THEN
01F630: 20 32 31 34 0D 0A 32 31 33 20 50 52 49 4E 54 20 214..213 PRINT
01F640: 22 20 22 3B 3A 55 3D 55 2B 31 3A 47 4F 54 4F 20 " ";:U=U+1:GOTO
01F650: 32 31 35 0D 0A 32 31 34 20 50 52 49 4E 54 20 3A 215..214 PRINT :
01F660: 20 55 3D 30 0D 0A 32 31 35 20 49 3D 49 4E 54 28 U=0..215 I=INT(
01F670: 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 2F 32 INT(10*RND(1))/2
01F680: 29 2B 31 0D 0A 32 32 30 20 4A 3D 4A 2B 31 20 3A )+1..220 J=J+1 :
01F690: 20 4B 3D 4B 2B 31 0D 0A 32 33 30 20 49 46 20 55 K=K+1..230 IF U
01F6A0: 3E 30 20 4F 52 20 49 4E 54 28 4A 2F 32 29 3C 3E >0 OR INT(J/2)<>
01F6B0: 4A 2F 32 20 54 48 45 4E 20 32 34 30 0D 0A 32 33 J/2 THEN 240..23
01F6C0: 35 20 50 52 49 4E 54 20 22 20 20 20 20 20 22 3B 5 PRINT " ";
01F6D0: 0D 0A 32 34 30 20 4F 4E 20 4A 20 47 4F 54 4F 20 ..240 ON J GOTO
01F6E0: 39 30 2C 31 31 30 2C 31 32 30 2C 31 33 30 2C 32 90,110,120,130,2
01F6F0: 35 30 0D 0A 32 35 30 20 4A 3D 30 20 3A 20 50 52 50..250 J=0 : PR
01F700: 49 4E 54 20 3A 20 49 46 20 4B 3E 32 30 20 54 48 INT : IF K>20 TH
01F710: 45 4E 20 32 37 30 0D 0A 32 36 30 20 47 4F 54 4F EN 270..260 GOTO
01F720: 20 32 31 35 0D 0A 32 37 30 20 50 52 49 4E 54 20 215..270 PRINT
01F730: 3A 20 55 3D 30 20 3A 20 4B 3D 30 20 3A 20 47 4F : U=0 : K=0 : GO
01F740: 54 4F 20 31 31 30 0D 0A 39 39 39 20 45 4E 44 0D TO 110..999 END.
01F750: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F800: 49 53 20 49 53 20 22 3B 53 24 28 53 29 3B 22 2E IS IS ";S$(S);".
01F810: 22 3B 0D 0A 37 37 35 20 50 52 49 4E 54 20 22 20 ";..775 PRINT "
01F820: 20 50 4C 45 41 53 45 20 53 45 4E 44 20 41 20 50 PLEASE SEND A P
01F830: 49 5A 5A 41 2E 22 0D 0A 37 38 30 20 50 52 49 4E IZZA."..780 PRIN
01F840: 54 20 22 20 20 44 52 49 56 45 52 20 54 4F 20 22 T " DRIVER TO "
01F850: 3B 4E 24 3B 22 3A 20 20 57 48 45 52 45 20 44 4F ;N$;": WHERE DO
01F860: 45 53 20 22 3B 53 24 28 53 29 3B 22 20 4C 49 56 ES ";S$(S);" LIV
01F870: 45 22 3B 0D 0A 37 39 30 20 49 4E 50 55 54 20 41 E";..790 INPUT A
01F880: 28 31 29 2C 41 28 32 29 0D 0A 38 37 30 20 54 3D (1),A(2)..870 T=
01F890: 41 28 31 29 2B 28 41 28 32 29 2D 31 29 2A 34 0D A(1)+(A(2)-1)*4.
01F8A0: 0A 38 38 30 20 49 46 20 54 3D 53 20 54 48 45 4E .880 IF T=S THEN
01F8B0: 20 39 32 30 0D 0A 38 39 30 20 50 52 49 4E 54 20 920..890 PRINT
01F8C0: 22 54 48 49 53 20 49 53 20 22 3B 53 24 28 54 29 "THIS IS ";S$(T)
01F8D0: 3B 22 2E 20 20 49 20 44 49 44 20 4E 4F 54 20 4F ;". I DID NOT O
01F8E0: 52 44 45 52 20 41 20 50 49 5A 5A 41 2E 22 0D 0A RDER A PIZZA."..
01F8F0: 39 30 30 20 50 52 49 4E 54 20 22 49 20 4C 49 56 900 PRINT "I LIV
01F900: 45 20 41 54 20 22 3B 41 28 31 29 3B 22 2C 22 3B E AT ";A(1);",";
01F910: 41 28 32 29 0D 0A 39 31 30 20 47 4F 54 4F 20 37 A(2)..910 GOTO 7
01F920: 38 30 0D 0A 39 32 30 20 50 52 49 4E 54 20 22 48 80..920 PRINT "H
01F930: 45 4C 4C 4F 20 22 4E 24 3B 22 2E 20 20 54 48 49 ELLO "N$;". THI
01F940: 53 20 49 53 20 22 3B 53 24 28 53 29 3B 22 2C 20 S IS ";S$(S);",
01F950: 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 50 THANKS FOR THE P
01F960: 49 5A 5A 41 2E 22 0D 0A 39 33 30 20 4E 45 58 54 IZZA."..930 NEXT
01F970: 20 49 0D 0A 39 34 30 20 50 52 49 4E 54 3A 20 49 I..940 PRINT: I
01F980: 4E 50 55 54 20 22 44 4F 20 59 4F 55 20 57 41 4E NPUT "DO YOU WAN
01F990: 54 20 54 4F 20 44 45 4C 49 56 45 52 20 4D 4F 52 T TO DELIVER MOR
01F9A0: 45 20 50 49 5A 5A 41 53 22 3B 41 24 0D 0A 39 36 E PIZZAS";A$..96
01F9B0: 30 20 49 46 20 41 24 3D 22 59 45 53 22 20 54 48 0 IF A$="YES" TH
01F9C0: 45 4E 20 37 35 30 0D 0A 39 37 30 20 50 52 49 4E EN 750..970 PRIN
01F9D0: 54 3A 20 50 52 49 4E 54 20 22 4F 2E 4B 2E 20 22 T: PRINT "O.K. "
01F9E0: 3B 4E 24 3B 22 2C 20 53 45 45 20 59 4F 55 20 4C ;N$;", SEE YOU L
01F9F0: 41 54 45 52 21 22 3A 50 52 49 4E 54 0D 0A 39 39 ATER!":PRINT..99
01FA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC00: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
01FC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FE00: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
01FE10: 22 50 4F 4B 45 52 22 0D 0A 34 20 50 52 49 4E 54 "POKER"..4 PRINT
01FE20: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
01FE30: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
01FE40: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
01FE50: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 RSEY"..6 PRINT:
01FE60: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 31 30 PRINT: PRINT..10
01FE70: 20 44 49 4D 20 41 28 35 30 29 2C 42 28 31 35 29 DIM A(50),B(15)
01FE80: 0D 0A 32 30 20 44 45 46 20 46 4E 41 28 58 29 3D ..20 DEF FNA(X)=
01FE90: 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 0D 0A INT(10*RND(1))..
01FEA0: 33 30 20 44 45 46 20 46 4E 42 28 58 29 3D 58 2D 30 DEF FNB(X)=X-
01FEB0: 31 30 30 2A 49 4E 54 28 58 2F 31 30 30 29 0D 0A 100*INT(X/100)..
01FEC0: 34 30 20 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 40 PRINT "WELCOM
01FED0: 45 20 54 4F 20 54 48 45 20 43 41 53 49 4E 4F 2E E TO THE CASINO.
01FEE0: 20 20 57 45 20 45 41 43 48 20 48 41 56 45 20 24 WE EACH HAVE $
01FEF0: 32 30 30 2E 22 0D 0A 35 30 20 50 52 49 4E 54 20 200."..50 PRINT
01FF00: 22 49 20 57 49 4C 4C 20 4F 50 45 4E 20 54 48 45 "I WILL OPEN THE
01FF10: 20 42 45 54 54 49 4E 47 20 42 45 46 4F 52 45 20 BETTING BEFORE
01FF20: 54 48 45 20 44 52 41 57 3B 20 59 4F 55 20 4F 50 THE DRAW; YOU OP
01FF30: 45 4E 20 41 46 54 45 52 2E 22 0D 0A 36 30 20 50 EN AFTER."..60 P
01FF40: 52 49 4E 54 20 22 54 4F 20 46 4F 4C 44 20 42 45 RINT "TO FOLD BE
01FF50: 54 20 30 3B 20 54 4F 20 43 48 45 43 4B 20 42 45 T 0; TO CHECK BE
01FF60: 54 20 2E 35 2E 22 0D 0A 37 30 20 50 52 49 4E 54 T .5."..70 PRINT
01FF70: 20 22 45 4E 4F 55 47 48 20 54 41 4C 4B 20 2D 2D "ENOUGH TALK --
01FF80: 20 4C 45 54 27 53 20 47 45 54 20 44 4F 57 4E 20 LET'S GET DOWN
01FF90: 54 4F 20 42 55 53 49 4E 45 53 53 2E 22 0D 0A 38 TO BUSINESS."..8
01FFA0: 30 20 50 52 49 4E 54 0D 0A 39 30 20 4C 45 54 20 0 PRINT..90 LET
01FFB0: 4F 3D 31 0D 0A 31 30 30 20 4C 45 54 20 43 3D 32 O=1..100 LET C=2
01FFC0: 30 30 0D 0A 31 31 30 20 4C 45 54 20 53 3D 32 30 00..110 LET S=20
01FFD0: 30 0D 0A 31 32 30 20 4C 45 54 20 50 3D 30 0D 0A 0..120 LET P=0..
01FFE0: 31 33 30 20 52 45 4D 0D 0A 31 34 30 20 50 52 49 130 REM..140 PRI
01FFF0: 4E 54 0D 0A 31 35 30 20 49 46 20 43 3C 3D 35 20 NT..150 IF C<=5
020000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
020010: 3B 22 50 4F 45 54 52 59 22 0D 0A 32 30 20 50 52 ;"POETRY"..20 PR
020020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
020030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
020040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
020050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
020060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
020070: 39 30 20 4F 4E 20 49 20 47 4F 54 4F 20 31 30 30 90 ON I GOTO 100
020080: 2C 31 30 31 2C 31 30 32 2C 31 30 33 2C 31 30 34 ,101,102,103,104
020090: 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 4D 49 44 ..100 PRINT "MID
0200A0: 4E 49 47 48 54 20 44 52 45 41 52 59 22 3B 3A 47 NIGHT DREARY";:G
0200B0: 4F 54 4F 20 32 31 30 0D 0A 31 30 31 20 50 52 49 OTO 210..101 PRI
0200C0: 4E 54 20 22 46 49 45 52 59 20 45 59 45 53 22 3B NT "FIERY EYES";
0200D0: 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 30 32 20 50 :GOTO 210..102 P
0200E0: 52 49 4E 54 20 22 42 49 52 44 20 4F 52 20 46 49 RINT "BIRD OR FI
0200F0: 45 4E 44 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A END";:GOTO 210..
020100: 31 30 33 20 50 52 49 4E 54 20 22 54 48 49 4E 47 103 PRINT "THING
020110: 20 4F 46 20 45 56 49 4C 22 3B 3A 47 4F 54 4F 20 OF EVIL";:GOTO
020120: 32 31 30 0D 0A 31 30 34 20 50 52 49 4E 54 20 22 210..104 PRINT "
020130: 50 52 4F 50 48 45 54 22 3B 3A 47 4F 54 4F 20 32 PROPHET";:GOTO 2
020140: 31 30 0D 0A 31 31 30 20 4F 4E 20 49 20 47 4F 54 10..110 ON I GOT
020150: 4F 20 31 31 31 2C 31 31 32 2C 31 31 33 2C 31 31 O 111,112,113,11
020160: 34 2C 31 31 35 0D 0A 31 31 31 20 50 52 49 4E 54 4,115..111 PRINT
020170: 20 22 42 45 47 55 49 4C 49 4E 47 20 4D 45 22 3B "BEGUILING ME";
020180: 3A 55 3D 32 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 :U=2:GOTO 210..1
020190: 31 32 20 50 52 49 4E 54 20 22 54 48 52 49 4C 4C 12 PRINT "THRILL
0201A0: 45 44 20 4D 45 22 3B 3A 47 4F 54 4F 20 32 31 30 ED ME";:GOTO 210
0201B0: 0D 0A 31 31 33 20 50 52 49 4E 54 20 22 53 54 49 ..113 PRINT "STI
0201C0: 4C 4C 20 53 49 54 54 49 4E 47 2E 2E 2E 2E 22 3B LL SITTING....";
0201D0: 3A 47 4F 54 4F 20 32 31 32 0D 0A 31 31 34 20 50 :GOTO 212..114 P
0201E0: 52 49 4E 54 20 22 4E 45 56 45 52 20 46 4C 49 54 RINT "NEVER FLIT
0201F0: 54 49 4E 47 22 3B 3A 55 3D 32 3A 47 4F 54 4F 20 TING";:U=2:GOTO
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 00 00 02 09 52 E5 1B 00 C1 02 00 00 00 02 ......R.........
020220: 1B 00 C6 02 00 00 00 02 1B 00 C2 02 00 00 00 02 ................
020230: 1B 00 C7 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020240: 1B 00 C8 02 00 00 00 02 1B 00 C4 02 00 00 00 02 ................
020250: 1B 00 C9 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 54 48 45 4E 20 33 36 37 30 0D 0A 31 36 30 20 50 THEN 3670..160 P
020310: 52 49 4E 54 20 22 54 48 45 20 41 4E 54 45 20 49 RINT "THE ANTE I
020320: 53 20 24 35 2E 20 20 49 20 57 49 4C 4C 20 44 45 S $5. I WILL DE
020330: 41 4C 3A 22 0D 0A 31 37 30 20 50 52 49 4E 54 0D AL:"..170 PRINT.
020340: 0A 31 38 30 20 49 46 20 53 3E 35 20 54 48 45 4E .180 IF S>5 THEN
020350: 20 32 30 30 0D 0A 31 39 30 20 47 4F 53 55 42 20 200..190 GOSUB
020360: 33 38 33 30 0D 0A 32 30 30 20 4C 45 54 20 50 3D 3830..200 LET P=
020370: 50 2B 31 30 0D 0A 32 31 30 20 4C 45 54 20 53 3D P+10..210 LET S=
020380: 53 2D 35 0D 0A 32 32 30 20 4C 45 54 20 43 3D 43 S-5..220 LET C=C
020390: 2D 35 0D 0A 32 33 30 20 46 4F 52 20 5A 3D 31 20 -5..230 FOR Z=1
0203A0: 54 4F 20 31 30 0D 0A 32 34 30 20 47 4F 53 55 42 TO 10..240 GOSUB
0203B0: 20 31 37 34 30 0D 0A 32 35 30 20 4E 45 58 54 20 1740..250 NEXT
0203C0: 5A 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 59 4F Z..260 PRINT "YO
0203D0: 55 52 20 48 41 4E 44 3A 22 0D 0A 32 37 30 20 4E UR HAND:"..270 N
0203E0: 3D 31 0D 0A 32 38 30 20 47 4F 53 55 42 20 31 38 =1..280 GOSUB 18
0203F0: 35 30 0D 0A 32 39 30 20 4E 3D 36 0D 0A 33 30 30 50..290 N=6..300
020400: 20 49 3D 32 0D 0A 33 31 30 20 47 4F 53 55 42 20 I=2..310 GOSUB
020410: 32 31 37 30 0D 0A 33 32 30 20 50 52 49 4E 54 0D 2170..320 PRINT.
020420: 0A 33 33 30 20 49 46 20 49 3C 3E 36 20 54 48 45 .330 IF I<>6 THE
020430: 4E 20 34 37 30 0D 0A 33 34 30 20 49 46 20 46 4E N 470..340 IF FN
020440: 41 28 30 29 3C 3D 37 20 54 48 45 4E 20 33 37 30 A(0)<=7 THEN 370
020450: 0D 0A 33 35 30 20 4C 45 54 20 58 3D 31 31 31 30 ..350 LET X=1110
020460: 30 0D 0A 33 36 30 20 47 4F 54 4F 20 34 32 30 0D 0..360 GOTO 420.
020470: 0A 33 37 30 20 49 46 20 46 4E 41 28 30 29 3C 3D .370 IF FNA(0)<=
020480: 37 20 54 48 45 4E 20 34 30 30 0D 0A 33 38 30 20 7 THEN 400..380
020490: 4C 45 54 20 58 3D 31 31 31 31 30 0D 0A 33 39 30 LET X=11110..390
0204A0: 20 47 4F 54 4F 20 34 32 30 0D 0A 34 30 30 20 49 GOTO 420..400 I
0204B0: 46 20 46 4E 41 28 30 29 3E 3D 31 20 54 48 45 4E F FNA(0)>=1 THEN
0204C0: 20 34 35 30 0D 0A 34 31 30 20 58 3D 31 31 31 31 450..410 X=1111
0204D0: 31 0D 0A 34 32 30 20 49 3D 37 0D 0A 34 33 30 20 1..420 I=7..430
0204E0: 5A 3D 32 33 0D 0A 34 34 30 20 47 4F 54 4F 20 35 Z=23..440 GOTO 5
0204F0: 38 30 0D 0A 34 35 30 20 5A 3D 31 0D 0A 34 36 30 80..450 Z=1..460
020500: 48 41 56 45 20 22 3B 0D 0A 31 35 37 30 20 4B 3D HAVE ";..1570 K=
020510: 44 0D 0A 31 35 38 30 20 47 4F 53 55 42 20 33 36 D..1580 GOSUB 36
020520: 39 30 0D 0A 31 35 39 30 20 48 24 3D 4A 24 0D 0A 90..1590 H$=J$..
020530: 31 36 30 30 20 49 24 3D 4B 24 0D 0A 31 36 31 30 1600 I$=K$..1610
020540: 20 4B 3D 4D 0D 0A 31 36 32 30 20 50 52 49 4E 54 K=M..1620 PRINT
020550: 20 22 41 4E 44 20 49 20 48 41 56 45 20 22 3B 0D "AND I HAVE ";.
020560: 0A 31 36 33 30 20 47 4F 53 55 42 20 33 36 39 30 .1630 GOSUB 3690
020570: 0D 0A 31 36 34 30 20 49 46 20 42 3E 55 20 54 48 ..1640 IF B>U TH
020580: 45 4E 20 36 37 30 0D 0A 31 36 35 30 20 49 46 20 EN 670..1650 IF
020590: 55 3E 42 20 54 48 45 4E 20 37 38 30 0D 0A 31 36 U>B THEN 780..16
0205A0: 36 30 20 49 46 20 48 24 3D 22 41 20 46 4C 55 53 60 IF H$="A FLUS
0205B0: 22 20 54 48 45 4E 20 31 37 30 30 0D 0A 31 36 36 " THEN 1700..166
0205C0: 32 20 49 46 20 46 4E 42 28 4D 29 3C 46 4E 42 28 2 IF FNB(M)<FNB(
0205D0: 44 29 20 54 48 45 4E 20 37 38 30 0D 0A 31 36 36 D) THEN 780..166
0205E0: 34 20 49 46 20 46 4E 42 28 4D 29 3E 46 4E 42 28 4 IF FNB(M)>FNB(
0205F0: 44 29 20 54 48 45 4E 20 36 37 30 0D 0A 31 36 37 D) THEN 670..167
020600: 30 20 50 52 49 4E 54 20 22 54 48 45 20 48 41 4E 0 PRINT "THE HAN
020610: 44 20 49 53 20 44 52 41 57 4E 2E 22 0D 0A 31 36 D IS DRAWN."..16
020620: 38 30 20 50 52 49 4E 54 20 22 41 4C 4C 20 24 22 80 PRINT "ALL $"
020630: 50 22 52 45 4D 41 49 4E 53 20 49 4E 20 54 48 45 P"REMAINS IN THE
020640: 20 50 4F 54 2E 22 0D 0A 31 36 39 30 20 47 4F 54 POT."..1690 GOT
020650: 4F 20 31 34 30 0D 0A 31 37 30 30 20 49 46 20 46 O 140..1700 IF F
020660: 4E 42 28 4D 29 3E 46 4E 42 28 44 29 20 54 48 45 NB(M)>FNB(D) THE
020670: 4E 20 36 37 30 0D 0A 31 37 31 30 20 49 46 20 46 N 670..1710 IF F
020680: 4E 42 28 44 29 3E 46 4E 42 28 4D 29 20 54 48 45 NB(D)>FNB(M) THE
020690: 4E 20 37 38 30 0D 0A 31 37 32 30 20 47 4F 54 4F N 780..1720 GOTO
0206A0: 20 31 36 37 30 0D 0A 31 37 33 30 20 5A 3D 5A 2B 1670..1730 Z=Z+
0206B0: 31 0D 0A 31 37 34 30 20 41 28 5A 29 3D 31 30 30 1..1740 A(Z)=100
0206C0: 2A 49 4E 54 28 34 2A 52 4E 44 28 31 29 29 2B 49 *INT(4*RND(1))+I
0206D0: 4E 54 28 31 30 30 2A 52 4E 44 28 31 29 29 0D 0A NT(100*RND(1))..
0206E0: 31 37 35 30 20 49 46 20 49 4E 54 28 41 28 5A 29 1750 IF INT(A(Z)
0206F0: 2F 31 30 30 29 3E 33 20 54 48 45 4E 20 31 37 34 /100)>3 THEN 174
020700: 20 47 4F 54 4F 20 35 31 30 0D 0A 34 37 30 20 49 GOTO 510..470 I
020710: 46 20 55 3E 3D 31 33 20 54 48 45 4E 20 35 34 30 F U>=13 THEN 540
020720: 0D 0A 34 38 30 20 49 46 20 46 4E 41 28 30 29 3E ..480 IF FNA(0)>
020730: 3D 32 20 54 48 45 4E 20 35 30 30 0D 0A 34 39 30 =2 THEN 500..490
020740: 20 47 4F 54 4F 20 34 32 30 0D 0A 35 30 30 20 5A GOTO 420..500 Z
020750: 3D 30 0D 0A 35 31 30 20 4B 3D 30 0D 0A 35 32 30 =0..510 K=0..520
020760: 20 50 52 49 4E 54 20 22 49 20 43 48 45 43 4B 2E PRINT "I CHECK.
020770: 22 0D 0A 35 33 30 20 47 4F 54 4F 20 36 32 30 0D "..530 GOTO 620.
020780: 0A 35 34 30 20 49 46 20 55 3C 3D 31 36 20 54 48 .540 IF U<=16 TH
020790: 45 4E 20 35 37 30 0D 0A 35 35 30 20 5A 3D 32 0D EN 570..550 Z=2.
0207A0: 0A 35 36 30 20 49 46 20 46 4E 41 28 30 29 3E 3D .560 IF FNA(0)>=
0207B0: 31 20 54 48 45 4E 20 35 38 30 0D 0A 35 37 30 20 1 THEN 580..570
0207C0: 5A 3D 33 35 0D 0A 35 38 30 20 56 3D 5A 2B 46 4E Z=35..580 V=Z+FN
0207D0: 41 28 30 29 0D 0A 35 39 30 20 47 4F 53 55 42 20 A(0)..590 GOSUB
0207E0: 33 34 38 30 0D 0A 36 30 30 20 50 52 49 4E 54 20 3480..600 PRINT
0207F0: 22 49 27 4C 4C 20 4F 50 45 4E 20 57 49 54 48 20 "I'LL OPEN WITH
020800: 24 22 56 0D 0A 36 31 30 20 4B 3D 56 0D 0A 36 32 $"V..610 K=V..62
020810: 30 20 47 4F 53 55 42 20 33 30 35 30 0D 0A 36 33 0 GOSUB 3050..63
020820: 30 20 47 4F 53 55 42 20 36 35 30 0D 0A 36 34 30 0 GOSUB 650..640
020830: 20 47 4F 54 4F 20 38 32 30 0D 0A 36 35 30 20 49 GOTO 820..650 I
020840: 46 20 49 3C 3E 33 20 54 48 45 4E 20 37 36 30 0D F I<>3 THEN 760.
020850: 0A 36 36 30 20 50 52 49 4E 54 0D 0A 36 37 30 20 .660 PRINT..670
020860: 50 52 49 4E 54 20 22 49 20 57 49 4E 2E 22 0D 0A PRINT "I WIN."..
020870: 36 38 30 20 43 3D 43 2B 50 0D 0A 36 39 30 20 50 680 C=C+P..690 P
020880: 52 49 4E 54 20 22 4E 4F 57 20 49 20 48 41 56 45 RINT "NOW I HAVE
020890: 20 24 22 43 22 41 4E 44 20 59 4F 55 20 48 41 56 $"C"AND YOU HAV
0208A0: 45 20 24 22 53 0D 0A 37 30 30 20 50 52 49 4E 54 E $"S..700 PRINT
0208B0: 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F "DO YOU WISH TO
0208C0: 20 43 4F 4E 54 49 4E 55 45 22 3B 0D 0A 37 31 30 CONTINUE";..710
0208D0: 20 49 4E 50 55 54 20 48 24 0D 0A 37 32 30 20 49 INPUT H$..720 I
0208E0: 46 20 48 24 3D 22 59 45 53 22 20 54 48 45 4E 20 F H$="YES" THEN
0208F0: 31 32 30 0D 0A 37 33 30 20 49 46 20 48 24 3D 22 120..730 IF H$="
020900: 30 0D 0A 31 37 36 30 20 49 46 20 41 28 5A 29 2D 0..1760 IF A(Z)-
020910: 31 30 30 2A 49 4E 54 28 41 28 5A 29 2F 31 30 30 100*INT(A(Z)/100
020920: 29 3E 31 32 20 54 48 45 4E 20 31 37 34 30 0D 0A )>12 THEN 1740..
020930: 31 37 36 35 20 49 46 20 5A 3D 31 20 54 48 45 4E 1765 IF Z=1 THEN
020940: 20 31 38 34 30 0D 0A 31 37 37 30 20 46 4F 52 20 1840..1770 FOR
020950: 4B 3D 31 20 54 4F 20 5A 2D 31 0D 0A 31 37 38 30 K=1 TO Z-1..1780
020960: 20 49 46 20 41 28 5A 29 3D 41 28 4B 29 20 54 48 IF A(Z)=A(K) TH
020970: 45 4E 20 31 37 34 30 0D 0A 31 37 39 30 20 4E 45 EN 1740..1790 NE
020980: 58 54 20 4B 0D 0A 31 38 30 30 20 49 46 20 5A 3C XT K..1800 IF Z<
020990: 3D 31 30 20 54 48 45 4E 20 31 38 34 30 0D 0A 31 =10 THEN 1840..1
0209A0: 38 31 30 20 4E 3D 41 28 55 29 0D 0A 31 38 32 30 810 N=A(U)..1820
0209B0: 20 41 28 55 29 3D 41 28 5A 29 0D 0A 31 38 33 30 A(U)=A(Z)..1830
0209C0: 20 41 28 5A 29 3D 4E 0D 0A 31 38 34 30 20 52 45 A(Z)=N..1840 RE
0209D0: 54 55 52 4E 0D 0A 31 38 35 30 20 46 4F 52 20 5A TURN..1850 FOR Z
0209E0: 3D 4E 20 54 4F 20 4E 2B 34 0D 0A 31 38 36 30 20 =N TO N+4..1860
0209F0: 50 52 49 4E 54 20 5A 22 2D 2D 20 20 22 3B 0D 0A PRINT Z"-- ";..
020A00: 31 38 37 30 20 47 4F 53 55 42 20 31 39 35 30 0D 1870 GOSUB 1950.
020A10: 0A 31 38 38 30 20 50 52 49 4E 54 20 22 20 4F 46 .1880 PRINT " OF
020A20: 22 3B 0D 0A 31 38 39 30 20 47 4F 53 55 42 20 32 ";..1890 GOSUB 2
020A30: 30 37 30 0D 0A 31 39 30 30 20 49 46 20 5A 2F 32 070..1900 IF Z/2
020A40: 3C 3E 49 4E 54 28 5A 2F 32 29 20 54 48 45 4E 20 <>INT(Z/2) THEN
020A50: 31 39 32 30 0D 0A 31 39 31 30 20 50 52 49 4E 54 1920..1910 PRINT
020A60: 0D 0A 31 39 32 30 20 4E 45 58 54 20 5A 0D 0A 31 ..1920 NEXT Z..1
020A70: 39 33 30 20 50 52 49 4E 54 0D 0A 31 39 34 30 20 930 PRINT..1940
020A80: 52 45 54 55 52 4E 0D 0A 31 39 35 30 20 4B 3D 46 RETURN..1950 K=F
020A90: 4E 42 28 41 28 5A 29 29 0D 0A 31 39 36 30 20 49 NB(A(Z))..1960 I
020AA0: 46 20 4B 3C 3E 39 20 54 48 45 4E 20 31 39 38 30 F K<>9 THEN 1980
020AB0: 0D 0A 31 39 37 30 20 50 52 49 4E 54 20 22 4A 41 ..1970 PRINT "JA
020AC0: 43 4B 22 3B 0D 0A 31 39 38 30 20 49 46 20 4B 3C CK";..1980 IF K<
020AD0: 3E 31 30 20 54 48 45 4E 20 32 30 30 30 0D 0A 31 >10 THEN 2000..1
020AE0: 39 39 30 20 50 52 49 4E 54 20 22 51 55 45 45 4E 990 PRINT "QUEEN
020AF0: 22 3B 0D 0A 32 30 30 30 20 49 46 20 4B 3C 3E 31 ";..2000 IF K<>1
020B00: 4E 4F 22 20 54 48 45 4E 20 34 31 30 30 0D 0A 37 NO" THEN 4100..7
020B10: 34 30 20 50 52 49 4E 54 20 22 41 4E 53 57 45 52 40 PRINT "ANSWER
020B20: 20 59 45 53 20 4F 52 20 4E 4F 2C 20 50 4C 45 41 YES OR NO, PLEA
020B30: 53 45 2E 22 0D 0A 37 35 30 20 47 4F 54 4F 20 37 SE."..750 GOTO 7
020B40: 30 30 0D 0A 37 36 30 20 49 46 20 49 3C 3E 34 20 00..760 IF I<>4
020B50: 54 48 45 4E 20 38 31 30 0D 0A 37 37 30 20 50 52 THEN 810..770 PR
020B60: 49 4E 54 0D 0A 37 38 30 20 50 52 49 4E 54 20 22 INT..780 PRINT "
020B70: 59 4F 55 20 57 49 4E 2E 22 0D 0A 37 39 30 20 53 YOU WIN."..790 S
020B80: 3D 53 2B 50 0D 0A 38 30 30 20 47 4F 54 4F 20 36 =S+P..800 GOTO 6
020B90: 39 30 0D 0A 38 31 30 20 52 45 54 55 52 4E 0D 0A 90..810 RETURN..
020BA0: 38 32 30 20 50 52 49 4E 54 0D 0A 38 33 30 20 50 820 PRINT..830 P
020BB0: 52 49 4E 54 20 22 4E 4F 57 20 57 45 20 44 52 41 RINT "NOW WE DRA
020BC0: 57 20 2D 2D 20 48 4F 57 20 4D 41 4E 59 20 43 41 W -- HOW MANY CA
020BD0: 52 44 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 22 RDS DO YOU WANT"
020BE0: 3B 0D 0A 38 34 30 20 49 4E 50 55 54 20 54 0D 0A ;..840 INPUT T..
020BF0: 38 35 30 20 49 46 20 54 3D 30 20 54 48 45 4E 20 850 IF T=0 THEN
020C00: 39 38 30 0D 0A 38 36 30 20 5A 3D 31 30 0D 0A 38 980..860 Z=10..8
020C10: 37 30 20 49 46 20 54 3C 34 20 54 48 45 4E 20 39 70 IF T<4 THEN 9
020C20: 30 30 0D 0A 38 38 30 20 50 52 49 4E 54 20 22 59 00..880 PRINT "Y
020C30: 4F 55 20 43 41 4E 27 54 20 44 52 41 57 20 4D 4F OU CAN'T DRAW MO
020C40: 52 45 20 54 48 41 4E 20 54 48 52 45 45 20 43 41 RE THAN THREE CA
020C50: 52 44 53 2E 22 0D 0A 38 39 30 20 47 4F 54 4F 20 RDS."..890 GOTO
020C60: 38 34 30 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 840..900 PRINT "
020C70: 57 48 41 54 20 41 52 45 20 54 48 45 49 52 20 4E WHAT ARE THEIR N
020C80: 55 4D 42 45 52 53 3A 22 0D 0A 39 31 30 20 46 4F UMBERS:"..910 FO
020C90: 52 20 51 3D 31 20 54 4F 20 54 0D 0A 39 32 30 20 R Q=1 TO T..920
020CA0: 49 4E 50 55 54 20 55 0D 0A 39 33 30 20 47 4F 53 INPUT U..930 GOS
020CB0: 55 42 20 31 37 33 30 0D 0A 39 34 30 20 4E 45 58 UB 1730..940 NEX
020CC0: 54 20 51 0D 0A 39 35 30 20 50 52 49 4E 54 20 22 T Q..950 PRINT "
020CD0: 59 4F 55 52 20 4E 45 57 20 48 41 4E 44 3A 22 0D YOUR NEW HAND:".
020CE0: 0A 39 36 30 20 4E 3D 31 0D 0A 39 37 30 20 47 4F .960 N=1..970 GO
020CF0: 53 55 42 20 31 38 35 30 0D 0A 39 38 30 20 5A 3D SUB 1850..980 Z=
020D00: 31 20 54 48 45 4E 20 32 30 32 30 0D 0A 32 30 31 1 THEN 2020..201
020D10: 30 20 50 52 49 4E 54 20 22 4B 49 4E 47 22 3B 0D 0 PRINT "KING";.
020D20: 0A 32 30 32 30 20 49 46 20 4B 3C 3E 31 32 20 54 .2020 IF K<>12 T
020D30: 48 45 4E 20 32 30 34 30 0D 0A 32 30 33 30 20 50 HEN 2040..2030 P
020D40: 52 49 4E 54 20 22 41 43 45 22 3B 0D 0A 32 30 34 RINT "ACE";..204
020D50: 30 20 49 46 20 4B 3E 3D 39 20 54 48 45 4E 20 32 0 IF K>=9 THEN 2
020D60: 30 36 30 0D 0A 32 30 35 30 20 50 52 49 4E 54 20 060..2050 PRINT
020D70: 4B 2B 32 3B 0D 0A 32 30 36 30 20 52 45 54 55 52 K+2;..2060 RETUR
020D80: 4E 0D 0A 32 30 37 30 20 4B 3D 49 4E 54 28 41 28 N..2070 K=INT(A(
020D90: 5A 29 2F 31 30 30 29 0D 0A 32 30 38 30 20 49 46 Z)/100)..2080 IF
020DA0: 20 4B 3C 3E 30 20 54 48 45 4E 20 32 31 30 30 0D K<>0 THEN 2100.
020DB0: 0A 32 30 39 30 20 50 52 49 4E 54 20 22 20 43 4C .2090 PRINT " CL
020DC0: 55 42 53 22 2C 0D 0A 32 31 30 30 20 49 46 20 4B UBS",..2100 IF K
020DD0: 3C 3E 31 20 54 48 45 4E 20 32 31 32 30 0D 0A 32 <>1 THEN 2120..2
020DE0: 31 31 30 20 50 52 49 4E 54 20 22 20 44 49 41 4D 110 PRINT " DIAM
020DF0: 4F 4E 44 53 22 2C 0D 0A 32 31 32 30 20 49 46 20 ONDS",..2120 IF
020E00: 4B 3C 3E 32 20 54 48 45 4E 20 32 31 34 30 0D 0A K<>2 THEN 2140..
020E10: 32 31 33 30 20 50 52 49 4E 54 20 22 20 48 45 41 2130 PRINT " HEA
020E20: 52 54 53 22 2C 0D 0A 32 31 34 30 20 49 46 20 4B RTS",..2140 IF K
020E30: 3C 3E 33 20 54 48 45 4E 20 32 31 36 30 0D 0A 32 <>3 THEN 2160..2
020E40: 31 35 30 20 50 52 49 4E 54 20 22 20 53 50 41 44 150 PRINT " SPAD
020E50: 45 53 22 2C 0D 0A 32 31 36 30 20 52 45 54 55 52 ES",..2160 RETUR
020E60: 4E 0D 0A 32 31 37 30 20 55 3D 30 0D 0A 32 31 38 N..2170 U=0..218
020E70: 30 20 46 4F 52 20 5A 3D 4E 20 54 4F 20 4E 2B 34 0 FOR Z=N TO N+4
020E80: 0D 0A 32 31 39 30 20 42 28 5A 29 3D 46 4E 42 28 ..2190 B(Z)=FNB(
020E90: 41 28 5A 29 29 0D 0A 32 32 30 30 20 49 46 20 5A A(Z))..2200 IF Z
020EA0: 3D 4E 2B 34 20 54 48 45 4E 20 32 32 33 30 0D 0A =N+4 THEN 2230..
020EB0: 32 32 31 30 20 49 46 20 49 4E 54 28 41 28 5A 29 2210 IF INT(A(Z)
020EC0: 2F 31 30 30 29 3C 3E 49 4E 54 28 41 28 5A 2B 31 /100)<>INT(A(Z+1
020ED0: 29 2F 31 30 30 29 20 54 48 45 4E 20 32 32 33 30 )/100) THEN 2230
020EE0: 0D 0A 32 32 32 30 20 55 3D 55 2B 31 0D 0A 32 32 ..2220 U=U+1..22
020EF0: 33 30 20 4E 45 58 54 20 5A 0D 0A 32 32 34 30 20 30 NEXT Z..2240
020F00: 31 30 2B 54 0D 0A 39 39 30 20 46 4F 52 20 55 3D 10+T..990 FOR U=
020F10: 36 20 54 4F 20 31 30 0D 0A 31 30 30 30 20 49 46 6 TO 10..1000 IF
020F20: 20 49 4E 54 28 58 2F 31 30 5E 28 55 2D 36 29 29 INT(X/10^(U-6))
020F30: 3C 3E 31 30 2A 49 4E 54 28 58 2F 31 30 5E 28 55 <>10*INT(X/10^(U
020F40: 2D 35 29 29 20 54 48 45 4E 20 31 30 32 30 0D 0A -5)) THEN 1020..
020F50: 31 30 31 30 20 47 4F 53 55 42 20 31 37 33 30 0D 1010 GOSUB 1730.
020F60: 0A 31 30 32 30 20 4E 45 58 54 20 55 0D 0A 31 30 .1020 NEXT U..10
020F70: 33 30 20 50 52 49 4E 54 0D 0A 31 30 34 30 20 50 30 PRINT..1040 P
020F80: 52 49 4E 54 20 22 49 20 41 4D 20 54 41 4B 49 4E RINT "I AM TAKIN
020F90: 47 22 5A 2D 31 30 2D 54 22 43 41 52 44 22 3B 0D G"Z-10-T"CARD";.
020FA0: 0A 31 30 35 30 20 49 46 20 5A 3D 31 31 2B 54 20 .1050 IF Z=11+T
020FB0: 54 48 45 4E 20 31 30 39 30 0D 0A 31 30 36 30 20 THEN 1090..1060
020FC0: 50 52 49 4E 54 20 22 53 22 0D 0A 31 30 37 30 20 PRINT "S"..1070
020FD0: 50 52 49 4E 54 0D 0A 31 30 38 30 20 47 4F 54 4F PRINT..1080 GOTO
020FE0: 20 31 31 30 30 0D 0A 31 30 39 30 20 50 52 49 4E 1100..1090 PRIN
020FF0: 54 0D 0A 31 31 30 30 20 4E 3D 36 0D 0A 31 31 31 T..1100 N=6..111
021000: 30 20 56 3D 49 0D 0A 31 31 32 30 20 49 3D 31 0D 0 V=I..1120 I=1.
021010: 0A 31 31 33 30 20 47 4F 53 55 42 20 32 31 37 30 .1130 GOSUB 2170
021020: 0D 0A 31 31 34 30 20 42 3D 55 0D 0A 31 31 35 30 ..1140 B=U..1150
021030: 20 4D 3D 44 0D 0A 31 31 36 30 20 49 46 20 56 3C M=D..1160 IF V<
021040: 3E 37 20 54 48 45 4E 20 31 31 39 30 0D 0A 31 31 >7 THEN 1190..11
021050: 37 30 20 5A 3D 32 38 0D 0A 31 31 38 30 20 47 4F 70 Z=28..1180 GO
021060: 54 4F 20 31 33 33 30 0D 0A 31 31 39 30 20 49 46 TO 1330..1190 IF
021070: 20 49 3C 3E 36 20 54 48 45 4E 20 31 32 32 30 0D I<>6 THEN 1220.
021080: 0A 31 32 30 30 20 5A 3D 31 0D 0A 31 32 31 30 20 .1200 Z=1..1210
021090: 47 4F 54 4F 20 31 33 33 30 0D 0A 31 32 32 30 20 GOTO 1330..1220
0210A0: 49 46 20 55 3E 3D 31 33 20 54 48 45 4E 20 31 32 IF U>=13 THEN 12
0210B0: 37 30 0D 0A 31 32 33 30 20 5A 3D 32 0D 0A 31 32 70..1230 Z=2..12
0210C0: 34 30 20 49 46 20 46 4E 41 28 30 29 3C 3E 36 20 40 IF FNA(0)<>6
0210D0: 54 48 45 4E 20 31 32 36 30 0D 0A 31 32 35 30 20 THEN 1260..1250
0210E0: 5A 3D 31 39 0D 0A 31 32 36 30 20 47 4F 54 4F 20 Z=19..1260 GOTO
0210F0: 31 33 33 30 0D 0A 31 32 37 30 20 49 46 20 55 3E 1330..1270 IF U>
021100: 49 46 20 55 3C 3E 34 20 54 48 45 4E 20 32 33 31 IF U<>4 THEN 231
021110: 30 0D 0A 32 32 35 30 20 58 3D 31 31 31 31 31 0D 0..2250 X=11111.
021120: 0A 32 32 36 30 20 44 3D 41 28 4E 29 0D 0A 32 32 .2260 D=A(N)..22
021130: 37 30 20 48 24 3D 22 41 20 46 4C 55 53 22 0D 0A 70 H$="A FLUS"..
021140: 32 32 38 30 20 49 24 3D 22 48 20 49 4E 22 0D 0A 2280 I$="H IN"..
021150: 32 32 39 30 20 55 3D 31 35 0D 0A 32 33 30 30 20 2290 U=15..2300
021160: 52 45 54 55 52 4E 0D 0A 32 33 31 30 20 46 4F 52 RETURN..2310 FOR
021170: 20 5A 3D 4E 20 54 4F 20 4E 2B 33 0D 0A 32 33 32 Z=N TO N+3..232
021180: 30 20 46 4F 52 20 4B 3D 5A 2B 31 20 54 4F 20 4E 0 FOR K=Z+1 TO N
021190: 2B 34 0D 0A 32 33 33 30 20 49 46 20 42 28 5A 29 +4..2330 IF B(Z)
0211A0: 3C 3D 42 28 4B 29 20 54 48 45 4E 20 32 33 39 30 <=B(K) THEN 2390
0211B0: 0D 0A 32 33 34 30 20 58 3D 41 28 5A 29 0D 0A 32 ..2340 X=A(Z)..2
0211C0: 33 35 30 20 41 28 5A 29 3D 41 28 4B 29 0D 0A 32 350 A(Z)=A(K)..2
0211D0: 33 36 30 20 42 28 5A 29 3D 42 28 4B 29 0D 0A 32 360 B(Z)=B(K)..2
0211E0: 33 37 30 20 41 28 4B 29 3D 58 0D 0A 32 33 38 30 370 A(K)=X..2380
0211F0: 20 42 28 4B 29 3D 41 28 4B 29 2D 31 30 30 2A 49 B(K)=A(K)-100*I
021200: 4E 54 28 41 28 4B 29 2F 31 30 30 29 0D 0A 32 33 NT(A(K)/100)..23
021210: 39 30 20 4E 45 58 54 20 4B 0D 0A 32 34 30 30 20 90 NEXT K..2400
021220: 4E 45 58 54 20 5A 0D 0A 32 34 31 30 20 58 3D 30 NEXT Z..2410 X=0
021230: 0D 0A 32 34 32 30 20 46 4F 52 20 5A 3D 4E 20 54 ..2420 FOR Z=N T
021240: 4F 20 4E 2B 33 0D 0A 32 34 33 30 20 49 46 20 42 O N+3..2430 IF B
021250: 28 5A 29 3C 3E 42 28 5A 2B 31 29 20 54 48 45 4E (Z)<>B(Z+1) THEN
021260: 20 32 34 37 30 0D 0A 32 34 34 30 20 58 3D 58 2B 2470..2440 X=X+
021270: 31 31 2A 31 30 5E 28 5A 2D 4E 29 0D 0A 32 34 35 11*10^(Z-N)..245
021280: 30 20 44 3D 41 28 5A 29 0D 0A 32 34 36 30 20 47 0 D=A(Z)..2460 G
021290: 4F 53 55 42 20 32 37 36 30 0D 0A 32 34 37 30 20 OSUB 2760..2470
0212A0: 4E 45 58 54 20 5A 0D 0A 32 34 38 30 20 49 46 20 NEXT Z..2480 IF
0212B0: 58 3C 3E 30 20 54 48 45 4E 20 32 36 32 30 0D 0A X<>0 THEN 2620..
0212C0: 32 34 39 30 20 49 46 20 42 28 4E 29 2B 33 3C 3E 2490 IF B(N)+3<>
0212D0: 42 28 4E 2B 33 29 20 54 48 45 4E 20 32 35 32 30 B(N+3) THEN 2520
0212E0: 0D 0A 32 35 30 30 20 58 3D 31 31 31 31 0D 0A 32 ..2500 X=1111..2
0212F0: 35 31 30 20 55 3D 31 30 0D 0A 32 35 32 30 20 49 510 U=10..2520 I
021300: 3D 31 36 20 54 48 45 4E 20 31 33 32 30 0D 0A 31 =16 THEN 1320..1
021310: 32 38 30 20 5A 3D 31 39 0D 0A 31 32 39 30 20 49 280 Z=19..1290 I
021320: 46 20 46 4E 41 28 30 29 3C 3E 38 20 54 48 45 4E F FNA(0)<>8 THEN
021330: 20 31 33 31 30 0D 0A 31 33 30 30 20 5A 3D 31 31 1310..1300 Z=11
021340: 0D 0A 31 33 31 30 20 47 4F 54 4F 20 31 33 33 30 ..1310 GOTO 1330
021350: 0D 0A 31 33 32 30 20 5A 3D 32 0D 0A 31 33 33 30 ..1320 Z=2..1330
021360: 20 4B 3D 30 0D 0A 31 33 34 30 20 47 4F 53 55 42 K=0..1340 GOSUB
021370: 20 33 30 35 30 0D 0A 31 33 35 30 20 49 46 20 54 3050..1350 IF T
021380: 3C 3E 2E 35 20 54 48 45 4E 20 31 34 35 30 0D 0A <>.5 THEN 1450..
021390: 31 33 36 30 20 49 46 20 56 3D 37 20 54 48 45 4E 1360 IF V=7 THEN
0213A0: 20 31 34 30 30 0D 0A 31 33 37 30 20 49 46 20 49 1400..1370 IF I
0213B0: 3C 3E 36 20 54 48 45 4E 20 31 34 30 30 0D 0A 31 <>6 THEN 1400..1
0213C0: 33 38 30 20 50 52 49 4E 54 20 22 49 27 4C 4C 20 380 PRINT "I'LL
0213D0: 43 48 45 43 4B 22 0D 0A 31 33 39 30 20 47 4F 54 CHECK"..1390 GOT
0213E0: 4F 20 31 34 36 30 0D 0A 31 34 30 30 20 56 3D 5A O 1460..1400 V=Z
0213F0: 2B 46 4E 41 28 30 29 0D 0A 31 34 31 30 20 47 4F +FNA(0)..1410 GO
021400: 53 55 42 20 33 34 38 30 0D 0A 31 34 32 30 20 50 SUB 3480..1420 P
021410: 52 49 4E 54 20 22 49 27 4C 4C 20 42 45 54 20 24 RINT "I'LL BET $
021420: 22 56 0D 0A 31 34 33 30 20 4B 3D 56 0D 0A 31 34 "V..1430 K=V..14
021430: 34 30 20 47 4F 53 55 42 20 33 30 36 30 0D 0A 31 40 GOSUB 3060..1
021440: 34 35 30 20 47 4F 53 55 42 20 36 35 30 0D 0A 31 450 GOSUB 650..1
021450: 34 36 30 20 50 52 49 4E 54 0D 0A 31 34 37 30 20 460 PRINT..1470
021460: 50 52 49 4E 54 20 22 4E 4F 57 20 57 45 20 43 4F PRINT "NOW WE CO
021470: 4D 50 41 52 45 20 48 41 4E 44 53 3A 22 0D 0A 31 MPARE HANDS:"..1
021480: 34 38 30 20 4A 24 3D 48 24 0D 0A 31 34 39 30 20 480 J$=H$..1490
021490: 4B 24 3D 49 24 0D 0A 31 35 30 30 20 50 52 49 4E K$=I$..1500 PRIN
0214A0: 54 20 22 4D 59 20 48 41 4E 44 3A 22 0D 0A 31 35 T "MY HAND:"..15
0214B0: 31 30 20 4E 3D 36 0D 0A 31 35 32 30 20 47 4F 53 10 N=6..1520 GOS
0214C0: 55 42 20 31 38 35 30 0D 0A 31 35 33 30 20 4E 3D UB 1850..1530 N=
0214D0: 31 0D 0A 31 35 34 30 20 47 4F 53 55 42 20 32 31 1..1540 GOSUB 21
0214E0: 37 30 0D 0A 31 35 35 30 20 50 52 49 4E 54 0D 0A 70..1550 PRINT..
0214F0: 31 35 36 30 20 50 52 49 4E 54 20 22 59 4F 55 20 1560 PRINT "YOU
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 00 00 02 09 52 E5 1C 00 C1 02 00 00 00 02 ......R.........
021520: 1C 00 C6 02 00 00 00 02 1C 00 C2 02 00 00 00 02 ................
021530: 1C 00 C7 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021540: 1C 00 C8 02 00 00 00 02 1C 00 C4 02 00 00 00 02 ................
021550: 1C 00 C9 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 46 20 42 28 4E 2B 31 29 2B 33 3C 3E 42 28 4E 2B F B(N+1)+3<>B(N+
021610: 34 29 20 54 48 45 4E 20 32 36 32 30 0D 0A 32 35 4) THEN 2620..25
021620: 33 30 20 49 46 20 55 3C 3E 31 30 20 54 48 45 4E 30 IF U<>10 THEN
021630: 20 32 36 30 30 0D 0A 32 35 34 30 20 55 3D 31 34 2600..2540 U=14
021640: 0D 0A 32 35 35 30 20 48 24 3D 22 53 54 52 41 49 ..2550 H$="STRAI
021650: 47 22 0D 0A 32 35 36 30 20 49 24 3D 22 48 54 22 G"..2560 I$="HT"
021660: 0D 0A 32 35 37 30 20 58 3D 31 31 31 31 31 0D 0A ..2570 X=11111..
021670: 32 35 38 30 20 44 3D 41 28 4E 2B 34 29 0D 0A 32 2580 D=A(N+4)..2
021680: 35 39 30 20 52 45 54 55 52 4E 0D 0A 32 36 30 30 590 RETURN..2600
021690: 20 55 3D 31 30 0D 0A 32 36 31 30 20 58 3D 31 31 U=10..2610 X=11
0216A0: 31 31 30 0D 0A 32 36 32 30 20 49 46 20 55 3E 3D 110..2620 IF U>=
0216B0: 31 30 20 54 48 45 4E 20 32 36 39 30 0D 0A 32 36 10 THEN 2690..26
0216C0: 33 30 20 44 3D 41 28 4E 2B 34 29 0D 0A 32 36 34 30 D=A(N+4)..264
0216D0: 30 20 48 24 3D 22 53 43 48 4D 41 4C 22 0D 0A 32 0 H$="SCHMAL"..2
0216E0: 36 35 30 20 49 24 3D 22 54 5A 2C 20 22 0D 0A 32 650 I$="TZ, "..2
0216F0: 36 36 30 20 55 3D 39 0D 0A 32 36 37 30 20 58 3D 660 U=9..2670 X=
021700: 31 31 30 30 30 0D 0A 32 36 38 30 20 47 4F 54 4F 11000..2680 GOTO
021710: 20 32 37 34 30 0D 0A 32 36 39 30 20 49 46 20 55 2740..2690 IF U
021720: 3C 3E 31 30 20 54 48 45 4E 20 32 37 32 30 0D 0A <>10 THEN 2720..
021730: 32 37 30 30 20 49 46 20 49 3D 31 20 54 48 45 4E 2700 IF I=1 THEN
021740: 20 32 37 34 30 0D 0A 32 37 31 30 20 47 4F 54 4F 2740..2710 GOTO
021750: 20 32 37 35 30 0D 0A 32 37 32 30 20 49 46 20 55 2750..2720 IF U
021760: 3E 31 32 20 54 48 45 4E 20 32 37 35 30 0D 0A 32 >12 THEN 2750..2
021770: 37 33 30 20 49 46 20 46 4E 42 28 44 29 3E 36 20 730 IF FNB(D)>6
021780: 54 48 45 4E 20 32 37 35 30 0D 0A 32 37 34 30 20 THEN 2750..2740
021790: 49 3D 36 0D 0A 32 37 35 30 20 52 45 54 55 52 4E I=6..2750 RETURN
0217A0: 0D 0A 32 37 36 30 20 49 46 20 55 3E 3D 31 31 20 ..2760 IF U>=11
0217B0: 54 48 45 4E 20 32 38 31 30 0D 0A 32 37 37 30 20 THEN 2810..2770
0217C0: 55 3D 31 31 0D 0A 32 37 38 30 20 48 24 3D 22 41 U=11..2780 H$="A
0217D0: 20 50 41 49 52 22 0D 0A 32 37 39 30 20 49 24 3D PAIR"..2790 I$=
0217E0: 22 20 4F 46 20 22 0D 0A 32 38 30 30 20 52 45 54 " OF "..2800 RET
0217F0: 55 52 4E 0D 0A 32 38 31 30 20 49 46 20 55 3C 3E URN..2810 IF U<>
021800: 50 52 49 4E 54 20 22 27 53 22 0D 0A 33 38 32 30 PRINT "'S"..3820
021810: 20 52 45 54 55 52 4E 0D 0A 33 38 33 30 20 50 52 RETURN..3830 PR
021820: 49 4E 54 0D 0A 33 38 34 30 20 50 52 49 4E 54 20 INT..3840 PRINT
021830: 22 59 4F 55 20 43 41 4E 27 54 20 42 45 54 20 57 "YOU CAN'T BET W
021840: 49 54 48 20 57 48 41 54 20 59 4F 55 20 48 41 56 ITH WHAT YOU HAV
021850: 45 4E 27 54 20 47 4F 54 2E 22 0D 0A 33 38 35 30 EN'T GOT."..3850
021860: 20 49 46 20 4F 2F 32 3D 49 4E 54 28 4F 2F 32 29 IF O/2=INT(O/2)
021870: 20 54 48 45 4E 20 33 39 37 30 0D 0A 33 38 36 30 THEN 3970..3860
021880: 20 50 52 49 4E 54 20 22 57 4F 55 4C 44 20 59 4F PRINT "WOULD YO
021890: 55 20 4C 49 4B 45 20 54 4F 20 53 45 4C 4C 20 59 U LIKE TO SELL Y
0218A0: 4F 55 52 20 57 41 54 43 48 22 3B 0D 0A 33 38 37 OUR WATCH";..387
0218B0: 30 20 49 4E 50 55 54 20 4A 24 0D 0A 33 38 38 30 0 INPUT J$..3880
0218C0: 20 49 46 20 4C 45 46 54 24 28 4A 24 2C 31 29 3D IF LEFT$(J$,1)=
0218D0: 22 4E 22 20 54 48 45 4E 20 33 39 37 30 0D 0A 33 "N" THEN 3970..3
0218E0: 38 39 30 20 49 46 20 46 4E 41 28 30 29 3E 3D 37 890 IF FNA(0)>=7
0218F0: 20 54 48 45 4E 20 33 39 33 30 0D 0A 33 39 30 30 THEN 3930..3900
021900: 20 50 52 49 4E 54 20 22 49 27 4C 4C 20 47 49 56 PRINT "I'LL GIV
021910: 45 20 59 4F 55 20 24 37 35 20 46 4F 52 20 49 54 E YOU $75 FOR IT
021920: 2E 22 0D 0A 33 39 31 30 20 53 3D 53 2B 37 35 0D ."..3910 S=S+75.
021930: 0A 33 39 32 30 20 47 4F 54 4F 20 33 39 35 30 0D .3920 GOTO 3950.
021940: 0A 33 39 33 30 20 50 52 49 4E 54 20 22 54 48 41 .3930 PRINT "THA
021950: 54 27 53 20 41 20 50 52 45 54 54 59 20 43 52 55 T'S A PRETTY CRU
021960: 4D 4D 59 20 57 41 54 43 48 20 2D 20 49 27 4C 4C MMY WATCH - I'LL
021970: 20 47 49 56 45 20 59 4F 55 20 24 32 35 2E 22 0D GIVE YOU $25.".
021980: 0A 33 39 34 30 20 53 3D 53 2B 32 35 0D 0A 33 39 .3940 S=S+25..39
021990: 35 30 20 4F 3D 4F 2A 32 0D 0A 33 39 36 30 20 52 50 O=O*2..3960 R
0219A0: 45 54 55 52 4E 0D 0A 33 39 37 30 20 49 46 20 4F ETURN..3970 IF O
0219B0: 2F 33 3C 3E 49 4E 54 28 4F 2F 33 29 20 54 48 45 /3<>INT(O/3) THE
0219C0: 4E 20 34 30 39 30 0D 0A 33 39 38 30 20 50 52 49 N 4090..3980 PRI
0219D0: 4E 54 20 22 57 49 4C 4C 20 59 4F 55 20 50 41 52 NT "WILL YOU PAR
0219E0: 54 20 57 49 54 48 20 54 48 41 54 20 44 49 41 4D T WITH THAT DIAM
0219F0: 4F 4E 44 20 54 49 45 20 54 41 43 4B 22 3A 0D 0A OND TIE TACK":..
021A00: 31 31 20 54 48 45 4E 20 32 39 31 30 0D 0A 32 38 11 THEN 2910..28
021A10: 32 30 20 49 46 20 42 28 5A 29 3C 3E 42 28 5A 2D 20 IF B(Z)<>B(Z-
021A20: 31 29 20 54 48 45 4E 20 32 38 37 30 0D 0A 32 38 1) THEN 2870..28
021A30: 33 30 20 48 24 3D 22 54 48 52 45 45 22 0D 0A 32 30 H$="THREE"..2
021A40: 38 34 30 20 49 24 3D 22 20 22 0D 0A 32 38 35 30 840 I$=" "..2850
021A50: 20 55 3D 31 33 0D 0A 32 38 36 30 20 52 45 54 55 U=13..2860 RETU
021A60: 52 4E 0D 0A 32 38 37 30 20 48 24 3D 22 54 57 4F RN..2870 H$="TWO
021A70: 20 50 22 0D 0A 32 38 38 30 20 49 24 3D 22 41 49 P"..2880 I$="AI
021A80: 52 2C 20 22 0D 0A 32 38 39 30 20 55 3D 31 32 0D R, "..2890 U=12.
021A90: 0A 32 39 30 30 20 52 45 54 55 52 4E 0D 0A 32 39 .2900 RETURN..29
021AA0: 31 30 20 49 46 20 55 3E 31 32 20 54 48 45 4E 20 10 IF U>12 THEN
021AB0: 32 39 36 30 0D 0A 32 39 32 30 20 55 3D 31 36 0D 2960..2920 U=16.
021AC0: 0A 32 39 33 30 20 48 24 3D 22 46 55 4C 4C 20 48 .2930 H$="FULL H
021AD0: 22 0D 0A 32 39 34 30 20 49 24 3D 22 4F 55 53 45 "..2940 I$="OUSE
021AE0: 2C 20 22 0D 0A 32 39 35 30 20 52 45 54 55 52 4E , "..2950 RETURN
021AF0: 0D 0A 32 39 36 30 20 49 46 20 42 28 5A 29 3C 3E ..2960 IF B(Z)<>
021B00: 42 28 5A 2D 31 29 20 54 48 45 4E 20 33 30 31 30 B(Z-1) THEN 3010
021B10: 0D 0A 32 39 37 30 20 55 3D 31 37 0D 0A 32 39 38 ..2970 U=17..298
021B20: 30 20 48 24 3D 22 46 4F 55 52 22 0D 0A 32 39 39 0 H$="FOUR"..299
021B30: 30 20 49 24 3D 22 20 22 0D 0A 33 30 30 30 20 52 0 I$=" "..3000 R
021B40: 45 54 55 52 4E 0D 0A 33 30 31 30 20 55 3D 31 36 ETURN..3010 U=16
021B50: 0D 0A 33 30 32 30 20 48 24 3D 22 46 55 4C 4C 20 ..3020 H$="FULL
021B60: 48 22 0D 0A 33 30 33 30 20 49 24 3D 22 4F 55 53 H"..3030 I$="OUS
021B70: 45 2C 20 22 0D 0A 33 30 34 30 20 52 45 54 55 52 E, "..3040 RETUR
021B80: 4E 0D 0A 33 30 35 30 20 47 3D 30 0D 0A 33 30 36 N..3050 G=0..306
021B90: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 57 0 PRINT:PRINT "W
021BA0: 48 41 54 20 49 53 20 59 4F 55 52 20 42 45 54 22 HAT IS YOUR BET"
021BB0: 3B 0D 0A 33 30 37 30 20 49 4E 50 55 54 20 54 0D ;..3070 INPUT T.
021BC0: 0A 33 30 38 30 20 49 46 20 54 2D 49 4E 54 28 54 .3080 IF T-INT(T
021BD0: 29 3D 30 20 54 48 45 4E 20 33 31 34 30 0D 0A 33 )=0 THEN 3140..3
021BE0: 30 39 30 20 49 46 20 4B 3C 3E 30 20 54 48 45 4E 090 IF K<>0 THEN
021BF0: 20 33 31 32 30 0D 0A 33 31 30 30 20 49 46 20 47 3120..3100 IF G
021C00: 33 39 39 30 20 49 4E 50 55 54 20 4A 24 0D 0A 34 3990 INPUT J$..4
021C10: 30 30 30 20 49 46 20 4C 45 46 54 24 28 4A 24 2C 000 IF LEFT$(J$,
021C20: 31 29 3D 22 4E 22 20 54 48 45 4E 20 34 30 38 30 1)="N" THEN 4080
021C30: 0D 0A 34 30 31 30 20 49 46 20 46 4E 41 28 30 29 ..4010 IF FNA(0)
021C40: 3E 3D 36 20 54 48 45 4E 20 34 30 35 30 0D 0A 34 >=6 THEN 4050..4
021C50: 30 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 41 020 PRINT "YOU A
021C60: 52 45 20 4E 4F 57 20 24 31 30 30 20 52 49 43 48 RE NOW $100 RICH
021C70: 45 52 2E 22 0D 0A 34 30 33 30 20 53 3D 53 2B 31 ER."..4030 S=S+1
021C80: 30 30 0D 0A 34 30 34 30 20 47 4F 54 4F 20 34 30 00..4040 GOTO 40
021C90: 37 30 0D 0A 34 30 35 30 20 50 52 49 4E 54 20 22 70..4050 PRINT "
021CA0: 49 54 27 53 20 50 41 53 54 45 2E 20 20 24 32 35 IT'S PASTE. $25
021CB0: 2E 22 0D 0A 34 30 36 30 20 53 3D 53 2B 32 35 0D ."..4060 S=S+25.
021CC0: 0A 34 30 37 30 20 4F 3D 4F 2A 33 0D 0A 34 30 38 .4070 O=O*3..408
021CD0: 30 20 52 45 54 55 52 4E 0D 0A 34 30 39 30 20 50 0 RETURN..4090 P
021CE0: 52 49 4E 54 20 22 59 4F 55 52 20 57 41 44 20 49 RINT "YOUR WAD I
021CF0: 53 20 53 48 4F 54 2E 20 20 53 4F 20 4C 4F 4E 47 S SHOT. SO LONG
021D00: 2C 20 53 55 43 4B 45 52 21 22 0D 0A 34 31 30 30 , SUCKER!"..4100
021D10: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
021D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021E00: 3C 3E 30 20 54 48 45 4E 20 33 31 32 30 0D 0A 33 <>0 THEN 3120..3
021E10: 31 31 30 20 49 46 20 54 3D 2E 35 20 54 48 45 4E 110 IF T=.5 THEN
021E20: 20 33 34 31 30 0D 0A 33 31 32 30 20 50 52 49 4E 3410..3120 PRIN
021E30: 54 20 22 4E 4F 20 53 4D 41 4C 4C 20 43 48 41 4E T "NO SMALL CHAN
021E40: 47 45 2C 20 50 4C 45 41 53 45 2E 22 0D 0A 33 31 GE, PLEASE."..31
021E50: 33 30 20 47 4F 54 4F 20 33 30 36 30 0D 0A 33 31 30 GOTO 3060..31
021E60: 34 30 20 49 46 20 53 2D 47 2D 54 3E 3D 30 20 54 40 IF S-G-T>=0 T
021E70: 48 45 4E 20 33 31 37 30 0D 0A 33 31 35 30 20 47 HEN 3170..3150 G
021E80: 4F 53 55 42 20 33 38 33 30 0D 0A 33 31 36 30 20 OSUB 3830..3160
021E90: 47 4F 54 4F 20 33 30 36 30 0D 0A 33 31 37 30 20 GOTO 3060..3170
021EA0: 49 46 20 54 3C 3E 30 20 54 48 45 4E 20 33 32 30 IF T<>0 THEN 320
021EB0: 30 0D 0A 33 31 38 30 20 49 3D 33 0D 0A 33 31 39 0..3180 I=3..319
021EC0: 30 20 47 4F 54 4F 20 33 33 38 30 0D 0A 33 32 30 0 GOTO 3380..320
021ED0: 30 20 49 46 20 47 2B 54 3E 3D 4B 20 54 48 45 4E 0 IF G+T>=K THEN
021EE0: 20 33 32 33 30 0D 0A 33 32 31 30 20 50 52 49 4E 3230..3210 PRIN
021EF0: 54 20 22 49 46 20 59 4F 55 20 43 41 4E 27 54 20 T "IF YOU CAN'T
021F00: 53 45 45 20 4D 59 20 42 45 54 2C 20 54 48 45 4E SEE MY BET, THEN
021F10: 20 46 4F 4C 44 2E 22 0D 0A 33 32 32 30 20 47 4F FOLD."..3220 GO
021F20: 54 4F 20 33 30 36 30 0D 0A 33 32 33 30 20 47 3D TO 3060..3230 G=
021F30: 47 2B 54 0D 0A 33 32 34 30 20 49 46 20 47 3D 4B G+T..3240 IF G=K
021F40: 20 54 48 45 4E 20 33 33 38 30 0D 0A 33 32 35 30 THEN 3380..3250
021F50: 20 49 46 20 5A 3C 3E 31 20 54 48 45 4E 20 33 34 IF Z<>1 THEN 34
021F60: 32 30 0D 0A 33 32 36 30 20 49 46 20 47 3E 35 20 20..3260 IF G>5
021F70: 54 48 45 4E 20 33 33 30 30 0D 0A 33 32 37 30 20 THEN 3300..3270
021F80: 49 46 20 5A 3E 3D 32 20 54 48 45 4E 20 33 33 35 IF Z>=2 THEN 335
021F90: 30 0D 0A 33 32 38 30 20 56 3D 35 0D 0A 33 32 39 0..3280 V=5..329
021FA0: 30 20 47 4F 54 4F 20 33 34 32 30 0D 0A 33 33 30 0 GOTO 3420..330
021FB0: 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 33 33 0 IF Z=1 THEN 33
021FC0: 32 30 0D 0A 33 33 31 30 20 49 46 20 54 3C 3D 32 20..3310 IF T<=2
021FD0: 35 20 54 48 45 4E 20 33 33 35 30 0D 0A 33 33 32 5 THEN 3350..332
021FE0: 30 20 49 3D 34 0D 0A 33 33 33 30 20 50 52 49 4E 0 I=4..3330 PRIN
021FF0: 54 20 22 49 20 46 4F 4C 44 2E 22 0D 0A 33 33 34 T "I FOLD."..334
022000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0220F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0221F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022200: 30 20 52 45 54 55 52 4E 0D 0A 33 33 35 30 20 49 0 RETURN..3350 I
022210: 46 20 5A 3D 32 20 54 48 45 4E 20 33 34 33 30 0D F Z=2 THEN 3430.
022220: 0A 33 33 36 30 20 50 52 49 4E 54 20 22 49 27 4C .3360 PRINT "I'L
022230: 4C 20 53 45 45 20 59 4F 55 2E 22 0D 0A 33 33 37 L SEE YOU."..337
022240: 30 20 4B 3D 47 0D 0A 33 33 38 30 20 53 3D 53 2D 0 K=G..3380 S=S-
022250: 47 0D 0A 33 33 39 30 20 43 3D 43 2D 4B 0D 0A 33 G..3390 C=C-K..3
022260: 34 30 30 20 50 3D 50 2B 47 2B 4B 0D 0A 33 34 31 400 P=P+G+K..341
022270: 30 20 52 45 54 55 52 4E 0D 0A 33 34 32 30 20 49 0 RETURN..3420 I
022280: 46 20 47 3E 33 2A 5A 20 54 48 45 4E 20 33 33 35 F G>3*Z THEN 335
022290: 30 0D 0A 33 34 33 30 20 56 3D 47 2D 4B 2B 46 4E 0..3430 V=G-K+FN
0222A0: 41 28 30 29 0D 0A 33 34 34 30 20 47 4F 53 55 42 A(0)..3440 GOSUB
0222B0: 20 33 34 38 30 0D 0A 33 34 35 30 20 50 52 49 4E 3480..3450 PRIN
0222C0: 54 20 22 49 27 4C 4C 20 53 45 45 20 59 4F 55 2C T "I'LL SEE YOU,
0222D0: 20 41 4E 44 20 52 41 49 53 45 20 59 4F 55 22 56 AND RAISE YOU"V
0222E0: 0D 0A 33 34 36 30 20 4B 3D 47 2B 56 0D 0A 33 34 ..3460 K=G+V..34
0222F0: 37 30 20 47 4F 54 4F 20 33 30 36 30 0D 0A 33 34 70 GOTO 3060..34
022300: 38 30 20 49 46 20 43 2D 47 2D 56 3E 3D 30 20 54 80 IF C-G-V>=0 T
022310: 48 45 4E 20 33 36 36 30 0D 0A 33 34 39 30 20 49 HEN 3660..3490 I
022320: 46 20 47 3C 3E 30 20 54 48 45 4E 20 33 35 32 30 F G<>0 THEN 3520
022330: 0D 0A 33 35 30 30 20 56 3D 43 0D 0A 33 35 31 30 ..3500 V=C..3510
022340: 20 52 45 54 55 52 4E 0D 0A 33 35 32 30 20 49 46 RETURN..3520 IF
022350: 20 43 2D 47 3E 3D 30 20 54 48 45 4E 20 33 33 36 C-G>=0 THEN 336
022360: 30 0D 0A 33 35 33 30 20 49 46 20 28 4F 2F 32 29 0..3530 IF (O/2)
022370: 3C 3E 49 4E 54 28 4F 2F 32 29 20 54 48 45 4E 20 <>INT(O/2) THEN
022380: 33 36 30 30 0D 0A 33 35 34 30 20 50 52 49 4E 54 3600..3540 PRINT
022390: 20 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 "WOULD YOU LIKE
0223A0: 20 54 4F 20 42 55 59 20 42 41 43 4B 20 59 4F 55 TO BUY BACK YOU
0223B0: 52 20 57 41 54 43 48 20 46 4F 52 20 24 35 30 22 R WATCH FOR $50"
0223C0: 3B 0D 0A 33 35 35 30 20 49 4E 50 55 54 20 4A 24 ;..3550 INPUT J$
0223D0: 0D 0A 33 35 36 30 20 49 46 20 4C 45 46 54 24 28 ..3560 IF LEFT$(
0223E0: 4A 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E 20 33 J$,1)="N" THEN 3
0223F0: 36 30 30 0D 0A 33 35 37 30 20 43 3D 43 2B 35 30 600..3570 C=C+50
022400: 35 30 20 50 52 49 4E 54 20 43 48 52 24 28 32 36 50 PRINT CHR$(26
022410: 29 3A 52 45 4D 20 57 49 44 54 48 20 38 30 0D 0A ):REM WIDTH 80..
022420: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 100 PRINT TAB(33
022430: 29 3B 22 51 55 42 49 43 22 3A 50 52 49 4E 54 0D );"QUBIC":PRINT.
022440: 0A 31 31 30 20 50 52 49 4E 54 20 54 41 42 28 31 .110 PRINT TAB(1
022450: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
022460: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
022470: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
022480: 0A 31 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .120 PRINT:PRINT
022490: 3A 50 52 49 4E 54 0D 0A 32 31 30 20 50 52 49 4E :PRINT..210 PRIN
0224A0: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 T "DO YOU WANT I
0224B0: 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 NSTRUCTIONS";..2
0224C0: 32 30 20 49 4E 50 55 54 20 43 24 0D 0A 32 33 30 20 INPUT C$..230
0224D0: 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 3D IF LEFT$(C$,1)=
0224E0: 22 4E 22 20 54 48 45 4E 20 33 31 35 0D 0A 32 34 "N" THEN 315..24
0224F0: 30 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 0 IF LEFT$(C$,1)
022500: 3D 22 59 22 20 54 48 45 4E 20 32 36 35 0D 0A 32 ="Y" THEN 265..2
022510: 35 30 20 50 52 49 4E 54 20 22 49 4E 43 4F 52 52 50 PRINT "INCORR
022520: 45 43 54 20 41 4E 53 57 45 52 2E 20 20 50 4C 45 ECT ANSWER. PLE
022530: 41 53 45 20 54 59 50 45 20 27 59 45 53 27 20 4F ASE TYPE 'YES' O
022540: 52 20 27 4E 4F 27 22 3B 0D 0A 32 36 30 20 47 4F R 'NO'";..260 GO
022550: 54 4F 20 32 32 30 0D 0A 32 36 35 20 50 52 49 4E TO 220..265 PRIN
022560: 54 0D 0A 32 37 30 20 50 52 49 4E 54 20 22 54 48 T..270 PRINT "TH
022570: 45 20 47 41 4D 45 20 49 53 20 54 49 43 2D 54 41 E GAME IS TIC-TA
022580: 43 2D 54 4F 45 20 49 4E 20 41 20 34 20 58 20 34 C-TOE IN A 4 X 4
022590: 20 58 20 34 20 43 55 42 45 2E 22 0D 0A 32 38 30 X 4 CUBE."..280
0225A0: 20 50 52 49 4E 54 20 22 45 41 43 48 20 4D 4F 56 PRINT "EACH MOV
0225B0: 45 20 49 53 20 49 4E 44 49 43 41 54 45 44 20 42 E IS INDICATED B
0225C0: 59 20 41 20 33 20 44 49 47 49 54 20 4E 55 4D 42 Y A 3 DIGIT NUMB
0225D0: 45 52 2C 20 57 49 54 48 20 45 41 43 48 22 0D 0A ER, WITH EACH"..
0225E0: 32 39 30 20 50 52 49 4E 54 20 22 44 49 47 49 54 290 PRINT "DIGIT
0225F0: 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 34 BETWEEN 1 AND 4
022600: 0D 0A 33 35 38 30 20 4F 3D 4F 2F 32 0D 0A 33 35 ..3580 O=O/2..35
022610: 39 30 20 52 45 54 55 52 4E 0D 0A 33 36 30 30 20 90 RETURN..3600
022620: 49 46 20 4F 2F 33 3C 3E 49 4E 54 28 4F 2F 33 29 IF O/3<>INT(O/3)
022630: 20 54 48 45 4E 20 33 36 37 30 0D 0A 33 36 31 30 THEN 3670..3610
022640: 20 50 52 49 4E 54 20 22 57 4F 55 4C 44 20 59 4F PRINT "WOULD YO
022650: 55 20 4C 49 4B 45 20 54 4F 20 42 55 59 20 42 41 U LIKE TO BUY BA
022660: 43 4B 20 59 4F 55 52 20 54 49 45 20 54 41 43 4B CK YOUR TIE TACK
022670: 20 46 4F 52 20 24 35 30 22 3B 0D 0A 33 36 32 30 FOR $50";..3620
022680: 20 49 4E 50 55 54 20 4A 24 0D 0A 33 36 33 30 20 INPUT J$..3630
022690: 49 46 20 4C 45 46 54 24 28 4A 24 2C 31 29 3D 22 IF LEFT$(J$,1)="
0226A0: 4E 22 20 54 48 45 4E 20 33 36 37 30 0D 0A 33 36 N" THEN 3670..36
0226B0: 34 30 20 43 3D 43 2B 35 30 0D 0A 33 36 35 30 20 40 C=C+50..3650
0226C0: 4F 3D 4F 2F 33 0D 0A 33 36 36 30 20 52 45 54 55 O=O/3..3660 RETU
0226D0: 52 4E 0D 0A 33 36 37 30 20 50 52 49 4E 54 20 22 RN..3670 PRINT "
0226E0: 49 27 4D 20 42 55 53 54 45 44 2E 20 20 43 4F 4E I'M BUSTED. CON
0226F0: 47 52 41 54 55 4C 41 54 49 4F 4E 53 21 22 0D 0A GRATULATIONS!"..
022700: 33 36 38 30 20 53 54 4F 50 0D 0A 33 36 39 30 20 3680 STOP..3690
022710: 50 52 49 4E 54 20 48 24 3B 49 24 3B 0D 0A 33 37 PRINT H$;I$;..37
022720: 30 30 20 49 46 20 48 24 3C 3E 22 41 20 46 4C 55 00 IF H$<>"A FLU
022730: 53 22 20 54 48 45 4E 20 33 37 35 30 0D 0A 33 37 S" THEN 3750..37
022740: 31 30 20 4B 3D 49 4E 54 28 4B 2F 31 30 30 29 0D 10 K=INT(K/100).
022750: 0A 33 37 32 30 20 47 4F 53 55 42 20 32 30 38 30 .3720 GOSUB 2080
022760: 0D 0A 33 37 33 30 20 50 52 49 4E 54 0D 0A 33 37 ..3730 PRINT..37
022770: 34 30 20 52 45 54 55 52 4E 0D 0A 33 37 35 30 20 40 RETURN..3750
022780: 4B 3D 46 4E 42 28 4B 29 0D 0A 33 37 36 30 20 47 K=FNB(K)..3760 G
022790: 4F 53 55 42 20 31 39 36 30 0D 0A 33 37 37 30 20 OSUB 1960..3770
0227A0: 49 46 20 48 24 3D 22 53 43 48 4D 41 4C 22 20 54 IF H$="SCHMAL" T
0227B0: 48 45 4E 20 33 37 39 30 0D 0A 33 37 38 30 20 49 HEN 3790..3780 I
0227C0: 46 20 48 24 3C 3E 22 53 54 52 41 49 47 22 20 54 F H$<>"STRAIG" T
0227D0: 48 45 4E 20 33 38 31 30 0D 0A 33 37 39 30 20 50 HEN 3810..3790 P
0227E0: 52 49 4E 54 20 22 20 48 49 47 48 22 0D 0A 33 38 RINT " HIGH"..38
0227F0: 30 30 20 52 45 54 55 52 4E 0D 0A 33 38 31 30 20 00 RETURN..3810
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 00 00 02 09 52 E5 1D 00 C1 02 00 00 00 02 ......R.........
022820: 1D 00 C6 02 00 00 00 02 1D 00 C2 02 00 00 00 02 ................
022830: 1D 00 C7 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022840: 1D 00 C8 02 00 00 00 02 1D 00 C4 02 00 00 00 02 ................
022850: 1D 00 C9 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 20 49 4E 43 4C 55 53 49 56 45 2E 20 20 54 48 45 INCLUSIVE. THE
022910: 20 44 49 47 49 54 53 20 49 4E 44 49 43 41 54 45 DIGITS INDICATE
022920: 20 54 48 45 22 0D 0A 33 30 30 20 50 52 49 4E 54 THE"..300 PRINT
022930: 20 22 4C 45 56 45 4C 2C 20 52 4F 57 2C 20 41 4E "LEVEL, ROW, AN
022940: 44 20 43 4F 4C 55 4D 4E 2C 20 52 45 53 50 45 43 D COLUMN, RESPEC
022950: 54 49 56 45 4C 59 2C 20 4F 46 20 54 48 45 20 4F TIVELY, OF THE O
022960: 43 43 55 50 49 45 44 22 0D 0A 33 30 35 20 50 52 CCUPIED"..305 PR
022970: 49 4E 54 20 22 50 4C 41 43 45 2E 20 20 22 0D 0A INT "PLACE. "..
022980: 33 30 36 20 50 52 49 4E 54 0D 0A 33 30 37 20 50 306 PRINT..307 P
022990: 52 49 4E 54 20 22 54 4F 20 50 52 49 4E 54 20 54 RINT "TO PRINT T
0229A0: 48 45 20 50 4C 41 59 49 4E 47 20 42 4F 41 52 44 HE PLAYING BOARD
0229B0: 2C 20 54 59 50 45 20 30 20 28 5A 45 52 4F 29 20 , TYPE 0 (ZERO)
0229C0: 41 53 20 59 4F 55 52 20 4D 4F 56 45 2E 22 0D 0A AS YOUR MOVE."..
0229D0: 33 30 38 20 50 52 49 4E 54 20 22 54 48 45 20 50 308 PRINT "THE P
0229E0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E ROGRAM WILL PRIN
0229F0: 54 20 54 48 45 20 42 4F 41 52 44 20 57 49 54 48 T THE BOARD WITH
022A00: 20 59 4F 55 52 20 4D 4F 56 45 53 20 49 4E 44 49 YOUR MOVES INDI
022A10: 2D 22 0D 0A 33 30 39 20 50 52 49 4E 54 20 22 43 -"..309 PRINT "C
022A20: 41 54 45 44 20 57 49 54 48 20 41 20 28 59 29 2C ATED WITH A (Y),
022A30: 20 54 48 45 20 4D 41 43 48 49 4E 45 27 53 20 4D THE MACHINE'S M
022A40: 4F 56 45 53 20 57 49 54 48 20 41 4E 20 28 4D 29 OVES WITH AN (M)
022A50: 2C 20 41 4E 44 22 0D 0A 33 31 30 20 50 52 49 4E , AND"..310 PRIN
022A60: 54 20 22 55 4E 55 53 45 44 20 53 51 55 41 52 45 T "UNUSED SQUARE
022A70: 53 20 57 49 54 48 20 41 20 28 20 29 2E 20 20 4F S WITH A ( ). O
022A80: 55 54 50 55 54 20 49 53 20 4F 4E 20 50 41 50 45 UTPUT IS ON PAPE
022A90: 52 2E 22 0D 0A 33 31 31 20 50 52 49 4E 54 0D 0A R."..311 PRINT..
022AA0: 33 31 32 20 50 52 49 4E 54 20 22 54 4F 20 53 54 312 PRINT "TO ST
022AB0: 4F 50 20 54 48 45 20 50 52 4F 47 52 41 4D 20 52 OP THE PROGRAM R
022AC0: 55 4E 2C 20 54 59 50 45 20 31 20 41 53 20 59 4F UN, TYPE 1 AS YO
022AD0: 55 52 20 4D 4F 56 45 2E 22 0D 0A 33 31 33 20 50 UR MOVE."..313 P
022AE0: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 33 31 35 20 RINT:PRINT..315
022AF0: 44 49 4D 20 58 28 36 34 29 2C 4C 28 37 36 29 2C DIM X(64),L(76),
022B00: 20 58 28 59 28 5A 29 29 3D 30 20 54 48 45 4E 20 X(Y(Z))=0 THEN
022B10: 31 32 35 30 0D 0A 31 32 32 30 20 4C 45 54 20 5A 1250..1220 LET Z
022B20: 3D 5A 2B 31 0D 0A 31 32 33 30 20 49 46 20 5A 3C =Z+1..1230 IF Z<
022B30: 3E 31 37 20 54 48 45 4E 20 31 32 31 30 0D 0A 31 >17 THEN 1210..1
022B40: 32 34 30 20 47 4F 54 4F 20 31 37 32 30 0D 0A 31 240 GOTO 1720..1
022B50: 32 35 30 20 4C 45 54 20 4D 3D 59 28 5A 29 0D 0A 250 LET M=Y(Z)..
022B60: 31 32 36 30 20 4C 45 54 20 58 28 4D 29 3D 35 0D 1260 LET X(M)=5.
022B70: 0A 31 32 37 30 20 50 52 49 4E 54 20 22 4D 41 43 .1270 PRINT "MAC
022B80: 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D HINE MOVES TO";.
022B90: 0A 31 32 38 30 20 47 4F 53 55 42 20 31 35 37 30 .1280 GOSUB 1570
022BA0: 0D 0A 31 32 39 30 20 47 4F 54 4F 20 35 30 30 0D ..1290 GOTO 500.
022BB0: 0A 31 33 30 30 20 4C 45 54 20 58 3D 58 0D 0A 31 .1300 LET X=X..1
022BC0: 33 31 30 20 49 3D 31 0D 0A 31 33 32 30 20 4C 45 310 I=1..1320 LE
022BD0: 54 20 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 T L(I)=X(M(I,1))
022BE0: 2B 58 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 +X(M(I,2))+X(M(I
022BF0: 2C 33 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A ,3))+X(M(I,4))..
022C00: 31 33 33 30 20 4C 45 54 20 4C 3D 4C 28 49 29 0D 1330 LET L=L(I).
022C10: 0A 31 33 34 30 20 49 46 20 4C 3C 31 30 20 54 48 .1340 IF L<10 TH
022C20: 45 4E 20 31 34 31 30 0D 0A 31 33 35 30 20 49 46 EN 1410..1350 IF
022C30: 20 4C 3E 3D 31 31 20 54 48 45 4E 20 31 34 31 30 L>=11 THEN 1410
022C40: 0D 0A 31 33 36 30 20 49 46 20 4C 3E 31 30 20 54 ..1360 IF L>10 T
022C50: 48 45 4E 20 32 32 33 30 0D 0A 31 33 37 30 20 46 HEN 2230..1370 F
022C60: 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 31 33 38 OR J=1 TO 4..138
022C70: 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 0 IF X(M(I,J))<>
022C80: 30 20 54 48 45 4E 20 31 34 30 30 0D 0A 31 33 39 0 THEN 1400..139
022C90: 30 20 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 0 LET X(M(I,J))=
022CA0: 31 2F 38 0D 0A 31 34 30 30 20 4E 45 58 54 20 4A 1/8..1400 NEXT J
022CB0: 0D 0A 31 34 31 30 20 49 3D 49 2B 31 3A 20 49 46 ..1410 I=I+1: IF
022CC0: 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 33 32 30 I<=76 THEN 1320
022CD0: 0D 0A 31 34 32 30 20 47 4F 53 55 42 20 31 36 34 ..1420 GOSUB 164
022CE0: 30 0D 0A 31 34 33 30 20 49 3D 31 0D 0A 31 34 34 0..1430 I=1..144
022CF0: 30 20 49 46 20 4C 28 49 29 3D 2E 35 20 54 48 45 0 IF L(I)=.5 THE
022D00: 4D 28 37 36 2C 34 29 2C 59 28 31 36 29 0D 0A 33 M(76,4),Y(16)..3
022D10: 32 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 20 FOR I = 1 TO
022D20: 31 36 0D 0A 33 33 30 20 52 45 41 44 20 59 28 49 16..330 READ Y(I
022D30: 29 0D 0A 33 34 30 20 4E 45 58 54 20 49 0D 0A 33 )..340 NEXT I..3
022D40: 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 37 36 50 FOR I=1 TO 76
022D50: 0D 0A 33 36 30 20 46 4F 52 20 4A 20 3D 20 31 20 ..360 FOR J = 1
022D60: 54 4F 20 34 0D 0A 33 37 30 20 52 45 41 44 20 4D TO 4..370 READ M
022D70: 28 49 2C 4A 29 0D 0A 33 38 30 20 4E 45 58 54 20 (I,J)..380 NEXT
022D80: 4A 0D 0A 33 39 30 20 4E 45 58 54 20 49 0D 0A 34 J..390 NEXT I..4
022D90: 30 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 00 FOR I = 1 TO
022DA0: 36 34 0D 0A 34 31 30 20 4C 45 54 20 58 20 28 49 64..410 LET X (I
022DB0: 29 20 3D 30 0D 0A 34 32 30 20 4E 45 58 54 20 49 ) =0..420 NEXT I
022DC0: 0D 0A 34 33 30 20 4C 45 54 20 5A 3D 31 0D 0A 34 ..430 LET Z=1..4
022DD0: 34 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 40 PRINT "DO YOU
022DE0: 20 57 41 4E 54 20 54 4F 20 4D 4F 56 45 20 46 49 WANT TO MOVE FI
022DF0: 52 53 54 22 3B 0D 0A 34 35 30 20 49 4E 50 55 54 RST";..450 INPUT
022E00: 20 53 24 0D 0A 34 36 30 20 49 46 20 4C 45 46 54 S$..460 IF LEFT
022E10: 24 28 53 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E $(S$,1)="N" THEN
022E20: 20 36 33 30 0D 0A 34 37 30 20 49 46 20 4C 45 46 630..470 IF LEF
022E30: 54 24 28 53 24 2C 31 29 3D 22 59 22 20 54 48 45 T$(S$,1)="Y" THE
022E40: 4E 20 35 30 30 0D 0A 34 38 30 20 50 52 49 4E 54 N 500..480 PRINT
022E50: 20 22 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 "INCORRECT ANSW
022E60: 45 52 2E 20 20 50 4C 45 41 53 45 20 54 59 50 45 ER. PLEASE TYPE
022E70: 20 27 59 45 53 27 20 4F 52 20 27 4E 4F 27 2E 22 'YES' OR 'NO'."
022E80: 3B 0D 0A 34 39 30 20 47 4F 54 4F 20 34 35 30 0D ;..490 GOTO 450.
022E90: 0A 35 30 30 20 50 52 49 4E 54 20 22 20 22 0D 0A .500 PRINT " "..
022EA0: 35 31 30 20 50 52 49 4E 54 20 22 59 4F 55 52 20 510 PRINT "YOUR
022EB0: 4D 4F 56 45 22 3B 0D 0A 35 32 30 20 49 4E 50 55 MOVE";..520 INPU
022EC0: 54 20 4A 31 0D 0A 35 32 31 20 49 46 20 4A 31 3D T J1..521 IF J1=
022ED0: 31 20 54 48 45 4E 20 32 37 37 30 0D 0A 35 32 32 1 THEN 2770..522
022EE0: 20 49 46 20 4A 31 3C 3E 30 20 54 48 45 4E 20 35 IF J1<>0 THEN 5
022EF0: 32 35 0D 0A 35 32 33 20 47 4F 53 55 42 20 32 35 25..523 GOSUB 25
022F00: 4E 20 32 33 36 30 0D 0A 31 34 35 30 20 49 46 20 N 2360..1450 IF
022F10: 4C 28 49 29 3D 35 2B 33 2F 38 20 54 48 45 4E 20 L(I)=5+3/8 THEN
022F20: 32 33 36 30 0D 0A 31 34 36 30 20 49 3D 49 2B 31 2360..1460 I=I+1
022F30: 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 20 : IF I<=76 THEN
022F40: 31 34 34 30 0D 0A 31 34 37 30 20 47 4F 53 55 42 1440..1470 GOSUB
022F50: 20 32 35 30 30 0D 0A 31 34 38 30 20 47 4F 54 4F 2500..1480 GOTO
022F60: 20 31 30 33 30 0D 0A 31 34 39 30 20 50 52 49 4E 1030..1490 PRIN
022F70: 54 20 22 20 22 0D 0A 31 35 30 30 20 50 52 49 4E T " "..1500 PRIN
022F80: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 T "DO YOU WANT T
022F90: 4F 20 54 52 59 20 41 4E 4F 54 48 45 52 20 47 41 O TRY ANOTHER GA
022FA0: 4D 45 22 3B 0D 0A 31 35 31 30 20 49 4E 50 55 54 ME";..1510 INPUT
022FB0: 20 58 24 0D 0A 31 35 32 30 20 49 46 20 4C 45 46 X$..1520 IF LEF
022FC0: 54 24 28 58 24 2C 31 29 3D 22 59 22 20 54 48 45 T$(X$,1)="Y" THE
022FD0: 4E 20 34 30 30 0D 0A 31 35 33 30 20 49 46 20 4C N 400..1530 IF L
022FE0: 45 46 54 24 28 58 24 2C 31 29 3D 22 4E 22 20 54 EFT$(X$,1)="N" T
022FF0: 48 45 4E 20 31 35 36 30 0D 0A 31 35 34 30 20 50 HEN 1560..1540 P
023000: 52 49 4E 54 20 22 49 4E 43 4F 52 52 45 43 54 20 RINT "INCORRECT
023010: 41 4E 53 57 45 52 2E 20 50 4C 45 41 53 45 20 54 ANSWER. PLEASE T
023020: 59 50 45 20 27 59 45 53 27 20 4F 52 20 27 4E 4F YPE 'YES' OR 'NO
023030: 27 22 3B 0D 0A 31 35 35 30 20 47 4F 54 4F 20 31 '";..1550 GOTO 1
023040: 35 31 30 0D 0A 31 35 36 30 20 45 4E 44 0D 0A 31 510..1560 END..1
023050: 35 37 30 20 4C 45 54 20 4B 31 3D 49 4E 54 28 28 570 LET K1=INT((
023060: 4D 2D 31 29 2F 31 36 29 2B 31 0D 0A 31 35 38 30 M-1)/16)+1..1580
023070: 20 4C 45 54 20 4A 32 3D 4D 2D 31 36 2A 28 4B 31 LET J2=M-16*(K1
023080: 2D 31 29 0D 0A 31 35 39 30 20 4C 45 54 20 4B 32 -1)..1590 LET K2
023090: 3D 49 4E 54 28 28 4A 32 2D 31 29 2F 34 29 2B 31 =INT((J2-1)/4)+1
0230A0: 0D 0A 31 36 30 30 20 4C 45 54 20 4B 33 3D 4D 2D ..1600 LET K3=M-
0230B0: 28 4B 31 2D 31 29 2A 31 36 2D 28 4B 32 2D 31 29 (K1-1)*16-(K2-1)
0230C0: 2A 34 0D 0A 31 36 31 30 20 4C 45 54 20 4D 3D 4B *4..1610 LET M=K
0230D0: 31 2A 31 30 30 2B 4B 32 2A 31 30 2B 4B 33 0D 0A 1*100+K2*10+K3..
0230E0: 31 36 32 30 20 50 52 49 4E 54 20 4D 3B 0D 0A 31 1620 PRINT M;..1
0230F0: 36 33 30 20 52 45 54 55 52 4E 0D 0A 31 36 34 30 630 RETURN..1640
023100: 35 30 0D 0A 35 32 34 20 47 4F 54 4F 20 35 30 30 50..524 GOTO 500
023110: 0D 0A 35 32 35 20 49 46 20 4A 31 3C 31 31 31 20 ..525 IF J1<111
023120: 54 48 45 4E 20 32 37 35 30 0D 0A 35 32 36 20 49 THEN 2750..526 I
023130: 46 20 4A 31 3E 34 34 34 20 54 48 45 4E 20 32 37 F J1>444 THEN 27
023140: 35 30 0D 0A 35 33 30 20 47 4F 53 55 42 20 32 35 50..530 GOSUB 25
023150: 30 30 0D 0A 35 34 30 20 4C 45 54 20 4B 31 3D 49 00..540 LET K1=I
023160: 4E 54 28 4A 31 2F 31 30 30 29 0D 0A 35 35 30 20 NT(J1/100)..550
023170: 4C 45 54 20 4A 32 3D 28 4A 31 2D 4B 31 2A 31 30 LET J2=(J1-K1*10
023180: 30 29 0D 0A 35 36 30 20 4C 45 54 20 4B 32 3D 49 0)..560 LET K2=I
023190: 4E 54 28 4A 32 2F 31 30 29 0D 0A 35 37 30 20 4C NT(J2/10)..570 L
0231A0: 45 54 20 4B 33 3D 20 4A 31 20 2D 20 4B 31 2A 31 ET K3= J1 - K1*1
0231B0: 30 30 20 2D 4B 32 2A 31 30 0D 0A 35 38 30 20 4C 00 -K2*10..580 L
0231C0: 45 54 20 4D 3D 31 36 2A 4B 31 2B 34 2A 4B 32 2B ET M=16*K1+4*K2+
0231D0: 4B 33 2D 32 30 0D 0A 35 39 30 20 49 46 20 58 28 K3-20..590 IF X(
0231E0: 4D 29 3D 30 20 54 48 45 4E 20 36 32 30 0D 0A 36 M)=0 THEN 620..6
0231F0: 30 30 20 50 52 49 4E 54 20 22 54 48 41 54 20 53 00 PRINT "THAT S
023200: 51 55 41 52 45 20 49 53 20 55 53 45 44 2C 20 54 QUARE IS USED, T
023210: 52 59 20 41 47 41 49 4E 2E 22 0D 0A 36 31 30 20 RY AGAIN."..610
023220: 47 4F 54 4F 20 35 30 30 0D 0A 36 32 30 20 4C 45 GOTO 500..620 LE
023230: 54 20 58 28 4D 29 3D 31 0D 0A 36 33 30 20 47 4F T X(M)=1..630 GO
023240: 53 55 42 20 31 36 34 30 0D 0A 36 34 30 20 4A 3D SUB 1640..640 J=
023250: 31 0D 0A 36 35 30 20 49 3D 31 0D 0A 36 36 30 20 1..650 I=1..660
023260: 49 46 20 4A 3D 31 20 54 48 45 4E 20 37 32 30 0D IF J=1 THEN 720.
023270: 0A 36 37 30 20 49 46 20 4A 3D 32 20 54 48 45 4E .670 IF J=2 THEN
023280: 20 37 39 30 0D 0A 36 38 30 20 49 46 20 4A 3D 33 790..680 IF J=3
023290: 20 54 48 45 4E 20 39 33 30 0D 0A 36 39 30 20 49 THEN 930..690 I
0232A0: 3D 49 2B 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 =I+1: IF I<=76 T
0232B0: 48 45 4E 20 36 36 30 0D 0A 37 30 30 20 4A 3D 4A HEN 660..700 J=J
0232C0: 2B 31 3A 20 49 46 20 4A 3C 3D 33 20 54 48 45 4E +1: IF J<=3 THEN
0232D0: 20 36 35 30 0D 0A 37 31 30 20 47 4F 54 4F 20 31 650..710 GOTO 1
0232E0: 33 30 30 0D 0A 37 32 30 20 49 46 20 4C 28 49 29 300..720 IF L(I)
0232F0: 3C 3E 34 20 54 48 45 4E 20 36 39 30 0D 0A 37 33 <>4 THEN 690..73
023300: 20 46 4F 52 20 53 3D 31 20 54 4F 20 37 36 0D 0A FOR S=1 TO 76..
023310: 31 36 35 30 20 4C 45 54 20 4A 31 20 3D 20 4D 28 1650 LET J1 = M(
023320: 53 2C 31 29 0D 0A 31 36 36 30 20 4C 45 54 20 4A S,1)..1660 LET J
023330: 32 3D 4D 28 53 2C 32 29 0D 0A 31 36 37 30 20 4C 2=M(S,2)..1670 L
023340: 45 54 20 4A 33 3D 4D 28 53 2C 33 29 0D 0A 31 36 ET J3=M(S,3)..16
023350: 38 30 20 4C 45 54 20 4A 34 3D 4D 28 53 2C 34 29 80 LET J4=M(S,4)
023360: 0D 0A 31 36 39 30 20 4C 45 54 20 4C 28 53 29 3D ..1690 LET L(S)=
023370: 58 28 4A 31 29 2B 58 28 4A 32 29 2B 58 28 4A 33 X(J1)+X(J2)+X(J3
023380: 29 2B 58 28 4A 34 29 0D 0A 31 37 30 30 20 4E 45 )+X(J4)..1700 NE
023390: 58 54 20 53 0D 0A 31 37 31 30 20 52 45 54 55 52 XT S..1710 RETUR
0233A0: 4E 0D 0A 31 37 32 30 20 46 4F 52 20 49 3D 31 20 N..1720 FOR I=1
0233B0: 54 4F 20 36 34 0D 0A 31 37 33 30 20 49 46 20 58 TO 64..1730 IF X
0233C0: 28 49 29 3C 3E 30 20 54 48 45 4E 20 31 38 30 30 (I)<>0 THEN 1800
0233D0: 0D 0A 31 37 34 30 20 4C 45 54 20 58 28 49 29 3D ..1740 LET X(I)=
0233E0: 35 0D 0A 31 37 35 30 20 4C 45 54 20 4D 3D 49 0D 5..1750 LET M=I.
0233F0: 0A 31 37 36 30 20 50 52 49 4E 54 20 22 4D 41 43 .1760 PRINT "MAC
023400: 48 49 4E 45 20 4C 49 4B 45 53 22 3B 0D 0A 31 37 HINE LIKES";..17
023410: 37 30 20 47 4F 53 55 42 20 31 35 37 30 0D 0A 31 70 GOSUB 1570..1
023420: 37 38 30 20 50 52 49 4E 54 20 22 20 22 0D 0A 31 780 PRINT " "..1
023430: 37 39 30 20 47 4F 54 4F 20 35 30 30 0D 0A 31 38 790 GOTO 500..18
023440: 30 30 20 4E 45 58 54 20 49 0D 0A 31 38 31 30 20 00 NEXT I..1810
023450: 50 52 49 4E 54 20 22 54 48 45 20 47 41 4D 45 20 PRINT "THE GAME
023460: 49 53 20 41 20 44 52 41 57 2E 22 0D 0A 31 38 32 IS A DRAW."..182
023470: 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A 31 38 33 0 GOTO 1490..183
023480: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 31 38 0D 0 FOR K=1 TO 18.
023490: 0A 31 38 34 30 20 4C 45 54 20 50 3D 30 0D 0A 31 .1840 LET P=0..1
0234A0: 38 35 30 20 46 4F 52 20 49 3D 34 2A 4B 2D 33 20 850 FOR I=4*K-3
0234B0: 54 4F 20 34 2A 4B 0D 0A 31 38 36 30 20 46 4F 52 TO 4*K..1860 FOR
0234C0: 20 4A 3D 31 20 54 4F 20 34 0D 0A 31 38 37 30 20 J=1 TO 4..1870
0234D0: 4C 45 54 20 50 3D 50 2B 58 28 4D 28 49 2C 4A 29 LET P=P+X(M(I,J)
0234E0: 29 0D 0A 31 38 38 30 20 4E 45 58 54 20 4A 0D 0A )..1880 NEXT J..
0234F0: 31 38 39 30 20 4E 45 58 54 20 49 0D 0A 31 39 30 1890 NEXT I..190
023500: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4E 0 PRINT "YOU WIN
023510: 20 41 53 20 46 4F 4C 4C 4F 57 53 22 3B 0D 0A 37 AS FOLLOWS";..7
023520: 34 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 40 FOR J=1 TO 4.
023530: 0A 37 35 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A .750 LET M=M(I,J
023540: 29 0D 0A 37 36 30 20 47 4F 53 55 42 20 31 35 37 )..760 GOSUB 157
023550: 30 0D 0A 37 37 30 20 4E 45 58 54 20 4A 0D 0A 37 0..770 NEXT J..7
023560: 38 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A 37 39 80 GOTO 1490..79
023570: 30 20 49 46 20 4C 28 49 29 3C 3E 31 35 20 54 48 0 IF L(I)<>15 TH
023580: 45 4E 20 36 39 30 0D 0A 38 30 30 20 46 4F 52 20 EN 690..800 FOR
023590: 4A 3D 31 20 54 4F 20 34 0D 0A 38 31 30 20 4C 45 J=1 TO 4..810 LE
0235A0: 54 20 4D 3D 4D 28 49 2C 4A 29 0D 0A 38 32 30 20 T M=M(I,J)..820
0235B0: 49 46 20 58 28 4D 29 3C 3E 30 20 54 48 45 4E 20 IF X(M)<>0 THEN
0235C0: 38 36 30 0D 0A 38 33 30 20 4C 45 54 20 58 28 4D 860..830 LET X(M
0235D0: 29 3D 35 0D 0A 38 34 30 20 50 52 49 4E 54 20 22 )=5..840 PRINT "
0235E0: 4D 41 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F MACHINE MOVES TO
0235F0: 22 3B 0D 0A 38 35 30 20 47 4F 53 55 42 20 31 35 ";..850 GOSUB 15
023600: 37 30 0D 0A 38 36 30 20 4E 45 58 54 20 4A 0D 0A 70..860 NEXT J..
023610: 38 37 30 20 50 52 49 4E 54 20 22 2C 20 41 4E 44 870 PRINT ", AND
023620: 20 57 49 4E 53 20 41 53 20 46 4F 4C 4C 4F 57 53 WINS AS FOLLOWS
023630: 22 0D 0A 38 38 30 20 46 4F 52 20 4A 3D 31 20 54 "..880 FOR J=1 T
023640: 4F 20 34 0D 0A 38 39 30 20 4C 45 54 20 4D 3D 4D O 4..890 LET M=M
023650: 28 49 2C 4A 29 0D 0A 39 30 30 20 47 4F 53 55 42 (I,J)..900 GOSUB
023660: 20 31 35 37 30 0D 0A 39 31 30 20 4E 45 58 54 20 1570..910 NEXT
023670: 4A 0D 0A 39 32 30 20 47 4F 54 4F 20 31 34 39 30 J..920 GOTO 1490
023680: 0D 0A 39 33 30 20 49 46 20 4C 28 49 29 3C 3E 33 ..930 IF L(I)<>3
023690: 20 54 48 45 4E 20 36 39 30 0D 0A 39 34 30 20 50 THEN 690..940 P
0236A0: 52 49 4E 54 20 22 4E 49 43 45 20 54 52 59 2E 20 RINT "NICE TRY.
0236B0: 4D 41 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F MACHINE MOVES TO
0236C0: 22 3B 0D 0A 39 35 30 20 46 4F 52 20 4A 3D 31 20 ";..950 FOR J=1
0236D0: 54 4F 20 34 20 0D 0A 39 36 30 20 4C 45 54 20 4D TO 4 ..960 LET M
0236E0: 3D 4D 28 49 2C 4A 29 0D 0A 39 37 30 20 49 46 20 =M(I,J)..970 IF
0236F0: 58 28 4D 29 3C 3E 30 20 54 48 45 4E 20 31 30 31 X(M)<>0 THEN 101
023700: 30 20 49 46 20 50 3C 34 20 54 48 45 4E 20 31 39 0 IF P<4 THEN 19
023710: 34 30 0D 0A 31 39 31 30 20 49 46 20 50 3C 35 20 40..1910 IF P<5
023720: 54 48 45 4E 20 31 39 37 30 0D 0A 31 39 32 30 20 THEN 1970..1920
023730: 49 46 20 50 3C 39 20 54 48 45 4E 20 31 39 34 30 IF P<9 THEN 1940
023740: 0D 0A 31 39 33 30 20 49 46 20 50 3C 31 30 20 54 ..1930 IF P<10 T
023750: 48 45 4E 20 31 39 37 30 0D 0A 31 39 34 30 20 4E HEN 1970..1940 N
023760: 45 58 54 20 4B 0D 0A 31 39 35 30 20 47 4F 53 55 EXT K..1950 GOSU
023770: 42 20 32 35 30 30 0D 0A 31 39 36 30 20 47 4F 54 B 2500..1960 GOT
023780: 4F 20 31 32 30 30 0D 0A 31 39 37 30 20 4C 45 54 O 1200..1970 LET
023790: 20 53 3D 31 2F 38 0D 0A 31 39 38 30 20 46 4F 52 S=1/8..1980 FOR
0237A0: 20 49 3D 34 2A 4B 2D 33 20 54 4F 20 34 2A 4B 0D I=4*K-3 TO 4*K.
0237B0: 0A 31 39 39 30 20 47 4F 54 4F 20 32 33 37 30 0D .1990 GOTO 2370.
0237C0: 0A 32 30 30 30 20 4E 45 58 54 20 49 0D 0A 32 30 .2000 NEXT I..20
0237D0: 31 30 20 4C 45 54 20 53 3D 30 0D 0A 32 30 32 30 10 LET S=0..2020
0237E0: 20 47 4F 54 4F 20 31 39 38 30 0D 0A 32 30 33 30 GOTO 1980..2030
0237F0: 20 44 41 54 41 20 31 2C 34 39 2C 35 32 2C 34 2C DATA 1,49,52,4,
023800: 31 33 2C 36 31 2C 36 34 2C 31 36 2C 32 32 2C 33 13,61,64,16,22,3
023810: 39 2C 32 33 2C 33 38 2C 32 36 2C 34 32 2C 32 37 9,23,38,26,42,27
023820: 2C 34 33 0D 0A 32 30 34 30 20 44 41 54 41 20 31 ,43..2040 DATA 1
023830: 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 ,2,3,4,5,6,7,8,9
023840: 2C 31 30 2C 31 31 2C 31 32 2C 31 33 2C 31 34 2C ,10,11,12,13,14,
023850: 31 35 2C 31 36 2C 31 37 2C 31 38 2C 31 39 2C 32 15,16,17,18,19,2
023860: 30 0D 0A 32 30 35 30 20 44 41 54 41 20 32 31 2C 0..2050 DATA 21,
023870: 32 32 2C 32 33 2C 32 34 2C 32 35 2C 32 36 2C 32 22,23,24,25,26,2
023880: 37 2C 32 38 2C 32 39 2C 33 30 2C 33 31 2C 33 32 7,28,29,30,31,32
023890: 2C 33 33 2C 33 34 2C 33 35 2C 33 36 2C 33 37 2C ,33,34,35,36,37,
0238A0: 33 38 0D 0A 32 30 36 30 20 44 41 54 41 20 33 39 38..2060 DATA 39
0238B0: 2C 34 30 2C 34 31 2C 34 32 2C 34 33 2C 34 34 2C ,40,41,42,43,44,
0238C0: 34 35 2C 34 36 2C 34 37 2C 34 38 2C 34 39 2C 35 45,46,47,48,49,5
0238D0: 30 2C 35 31 2C 35 32 2C 35 33 2C 35 34 2C 35 35 0,51,52,53,54,55
0238E0: 2C 35 36 0D 0A 32 30 37 30 20 44 41 54 41 20 35 ,56..2070 DATA 5
0238F0: 37 2C 35 38 2C 35 39 2C 36 30 2C 36 31 2C 36 32 7,58,59,60,61,62
023900: 30 0D 0A 39 38 30 20 4C 45 54 20 58 28 4D 29 3D 0..980 LET X(M)=
023910: 35 0D 0A 39 39 30 20 47 4F 53 55 42 20 31 35 37 5..990 GOSUB 157
023920: 30 0D 0A 31 30 30 30 20 47 4F 54 4F 20 35 30 30 0..1000 GOTO 500
023930: 0D 0A 31 30 31 30 20 4E 45 58 54 20 4A 0D 0A 31 ..1010 NEXT J..1
023940: 30 32 30 20 47 4F 54 4F 20 31 33 30 30 0D 0A 31 020 GOTO 1300..1
023950: 30 33 30 20 49 3D 31 0D 0A 31 30 34 30 20 4C 45 030 I=1..1040 LE
023960: 54 20 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 T L(I)=X(M(I,1))
023970: 2B 58 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 +X(M(I,2))+X(M(I
023980: 2C 33 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A ,3))+X(M(I,4))..
023990: 31 30 35 30 20 4C 45 54 20 4C 20 3D 20 4C 28 49 1050 LET L = L(I
0239A0: 29 0D 0A 31 30 36 30 20 49 46 20 4C 20 3C 32 20 )..1060 IF L <2
0239B0: 54 48 45 4E 20 31 31 33 30 0D 0A 31 30 37 30 20 THEN 1130..1070
0239C0: 49 46 20 4C 3E 3D 33 20 54 48 45 4E 20 31 31 33 IF L>=3 THEN 113
0239D0: 30 0D 0A 31 30 38 30 20 49 46 20 4C 3E 32 20 54 0..1080 IF L>2 T
0239E0: 48 45 4E 20 32 32 33 30 0D 0A 31 30 39 30 20 46 HEN 2230..1090 F
0239F0: 4F 52 20 4A 20 3D 20 31 20 54 4F 20 34 0D 0A 31 OR J = 1 TO 4..1
023A00: 31 30 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 100 IF X(M(I,J))
023A10: 3C 3E 30 20 54 48 45 4E 20 31 31 32 30 0D 0A 31 <>0 THEN 1120..1
023A20: 31 31 30 20 4C 45 54 20 58 28 4D 28 49 2C 4A 29 110 LET X(M(I,J)
023A30: 29 3D 31 2F 38 0D 0A 31 31 32 30 20 4E 45 58 54 )=1/8..1120 NEXT
023A40: 20 4A 0D 0A 31 31 33 30 20 49 3D 49 2B 31 3A 20 J..1130 I=I+1:
023A50: 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 30 IF I<=76 THEN 10
023A60: 34 30 0D 0A 31 31 34 30 20 47 4F 53 55 42 20 31 40..1140 GOSUB 1
023A70: 36 34 30 0D 0A 31 31 35 30 20 49 3D 31 0D 0A 31 640..1150 I=1..1
023A80: 31 36 30 20 49 46 20 4C 28 49 29 3D 31 2F 32 20 160 IF L(I)=1/2
023A90: 54 48 45 4E 20 32 33 36 30 0D 0A 31 31 37 30 20 THEN 2360..1170
023AA0: 49 46 20 4C 28 49 29 3D 31 2B 33 2F 38 20 54 48 IF L(I)=1+3/8 TH
023AB0: 45 4E 20 32 33 36 30 0D 0A 31 31 38 30 20 49 3D EN 2360..1180 I=
023AC0: 49 2B 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 I+1: IF I<=76 TH
023AD0: 45 4E 20 31 31 36 30 0D 0A 31 31 39 30 20 47 4F EN 1160..1190 GO
023AE0: 54 4F 20 31 38 33 30 0D 0A 31 32 30 30 20 4C 45 TO 1830..1200 LE
023AF0: 54 20 5A 20 3D 20 31 0D 0A 31 32 31 30 20 49 46 T Z = 1..1210 IF
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 00 00 02 09 52 E5 1E 00 C1 02 00 00 00 02 ......R.........
023B20: 1E 00 C6 02 00 00 00 02 1E 00 C2 02 00 00 00 02 ................
023B30: 1E 00 C7 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B40: 1E 00 C8 02 00 00 00 02 1E 00 C4 02 00 00 00 02 ................
023B50: 1E 00 C9 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 2C 36 33 2C 36 34 0D 0A 32 30 38 30 20 44 41 54 ,63,64..2080 DAT
023C10: 41 20 31 2C 31 37 2C 33 33 2C 34 39 2C 35 2C 32 A 1,17,33,49,5,2
023C20: 31 2C 33 37 2C 35 33 2C 39 2C 32 35 2C 34 31 2C 1,37,53,9,25,41,
023C30: 35 37 2C 31 33 2C 32 39 2C 34 35 2C 36 31 0D 0A 57,13,29,45,61..
023C40: 32 30 39 30 20 44 41 54 41 20 32 2C 31 38 2C 33 2090 DATA 2,18,3
023C50: 34 2C 35 30 2C 36 2C 32 32 2C 33 38 2C 35 34 2C 4,50,6,22,38,54,
023C60: 31 30 2C 32 36 2C 34 32 2C 35 38 2C 31 34 2C 33 10,26,42,58,14,3
023C70: 30 2C 34 36 2C 36 32 0D 0A 32 31 30 30 20 44 41 0,46,62..2100 DA
023C80: 54 41 20 33 2C 31 39 2C 33 35 2C 35 31 2C 37 2C TA 3,19,35,51,7,
023C90: 32 33 2C 33 39 2C 35 35 2C 31 31 2C 32 37 2C 34 23,39,55,11,27,4
023CA0: 33 2C 35 39 2C 31 35 2C 33 31 2C 34 37 2C 36 33 3,59,15,31,47,63
023CB0: 0D 0A 32 31 31 30 20 44 41 54 41 20 34 2C 32 30 ..2110 DATA 4,20
023CC0: 2C 33 36 2C 35 32 2C 38 2C 32 34 2C 34 30 2C 35 ,36,52,8,24,40,5
023CD0: 36 2C 31 32 2C 32 38 2C 34 34 2C 36 30 2C 31 36 6,12,28,44,60,16
023CE0: 2C 33 32 2C 34 38 2C 36 34 0D 0A 32 31 32 30 20 ,32,48,64..2120
023CF0: 44 41 54 41 20 31 2C 35 2C 39 2C 31 33 2C 31 37 DATA 1,5,9,13,17
023D00: 2C 32 31 2C 32 35 2C 32 39 2C 33 33 2C 33 37 2C ,21,25,29,33,37,
023D10: 34 31 2C 34 35 2C 34 39 2C 35 33 2C 35 37 2C 36 41,45,49,53,57,6
023D20: 31 0D 0A 32 31 33 30 20 44 41 54 41 20 32 2C 36 1..2130 DATA 2,6
023D30: 2C 31 30 2C 31 34 2C 31 38 2C 32 32 2C 32 36 2C ,10,14,18,22,26,
023D40: 33 30 2C 33 34 2C 33 38 2C 34 32 2C 34 36 2C 35 30,34,38,42,46,5
023D50: 30 2C 35 34 2C 35 38 2C 36 32 0D 0A 32 31 34 30 0,54,58,62..2140
023D60: 20 44 41 54 41 20 33 2C 37 2C 31 31 2C 31 35 2C DATA 3,7,11,15,
023D70: 31 39 2C 32 33 2C 32 37 2C 33 31 2C 33 35 2C 33 19,23,27,31,35,3
023D80: 39 2C 34 33 2C 34 37 2C 35 31 2C 35 35 2C 35 39 9,43,47,51,55,59
023D90: 2C 36 33 0D 0A 32 31 35 30 20 44 41 54 41 20 34 ,63..2150 DATA 4
023DA0: 2C 38 2C 31 32 2C 31 36 2C 32 30 2C 32 34 2C 32 ,8,12,16,20,24,2
023DB0: 38 2C 33 32 2C 33 36 2C 34 30 2C 34 34 2C 34 38 8,32,36,40,44,48
023DC0: 2C 35 32 2C 35 36 2C 36 30 2C 36 34 0D 0A 32 31 ,52,56,60,64..21
023DD0: 36 30 20 44 41 54 41 20 31 2C 36 2C 31 31 2C 31 60 DATA 1,6,11,1
023DE0: 36 2C 31 37 2C 32 32 2C 32 37 2C 33 32 2C 33 33 6,17,22,27,32,33
023DF0: 2C 33 38 2C 34 33 2C 34 38 2C 34 39 2C 35 34 2C ,38,43,48,49,54,
023E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024000: 35 39 2C 36 34 0D 0A 32 31 37 30 20 44 41 54 41 59,64..2170 DATA
024010: 20 31 33 2C 31 30 2C 37 2C 34 2C 32 39 2C 32 36 13,10,7,4,29,26
024020: 2C 32 33 2C 32 30 2C 34 35 2C 34 32 2C 33 39 2C ,23,20,45,42,39,
024030: 33 36 2C 36 31 2C 35 38 2C 35 35 2C 35 32 0D 0A 36,61,58,55,52..
024040: 32 31 38 30 20 44 41 54 41 20 31 2C 32 31 2C 34 2180 DATA 1,21,4
024050: 31 2C 36 31 2C 32 2C 32 32 2C 34 32 2C 36 32 2C 1,61,2,22,42,62,
024060: 33 2C 32 33 2C 34 33 2C 36 33 2C 34 2C 32 34 2C 3,23,43,63,4,24,
024070: 34 34 2C 36 34 0D 0A 32 31 39 30 20 44 41 54 41 44,64..2190 DATA
024080: 20 34 39 2C 33 37 2C 32 35 2C 31 33 2C 35 30 2C 49,37,25,13,50,
024090: 33 38 2C 32 36 2C 31 34 2C 35 31 2C 33 39 2C 32 38,26,14,51,39,2
0240A0: 37 2C 31 35 2C 35 32 2C 34 30 2C 32 38 2C 31 36 7,15,52,40,28,16
0240B0: 0D 0A 32 32 30 30 20 44 41 54 41 20 31 2C 31 38 ..2200 DATA 1,18
0240C0: 2C 33 35 2C 35 32 2C 35 2C 32 32 2C 33 39 2C 35 ,35,52,5,22,39,5
0240D0: 36 2C 39 2C 32 36 2C 34 33 2C 36 30 2C 31 33 2C 6,9,26,43,60,13,
0240E0: 33 30 2C 34 37 2C 36 34 0D 0A 32 32 31 30 20 44 30,47,64..2210 D
0240F0: 41 54 41 20 34 39 2C 33 34 2C 31 39 2C 34 2C 35 ATA 49,34,19,4,5
024100: 33 2C 33 38 2C 32 33 2C 38 2C 35 37 2C 34 32 2C 3,38,23,8,57,42,
024110: 32 37 2C 31 32 2C 36 31 2C 34 36 2C 33 31 2C 31 27,12,61,46,31,1
024120: 36 0D 0A 32 32 32 30 20 44 41 54 41 20 31 2C 32 6..2220 DATA 1,2
024130: 32 2C 34 33 2C 36 34 2C 31 36 2C 32 37 2C 33 38 2,43,64,16,27,38
024140: 2C 34 39 2C 34 2C 32 33 2C 34 32 2C 36 31 2C 31 ,49,4,23,42,61,1
024150: 33 2C 32 36 2C 33 39 2C 35 32 0D 0A 32 32 33 30 3,26,39,52..2230
024160: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 32 FOR J=1 TO 4..2
024170: 32 34 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 240 IF X(M(I,J))
024180: 3C 3E 31 2F 38 20 54 48 45 4E 20 32 33 33 30 0D <>1/8 THEN 2330.
024190: 0A 32 32 35 30 20 4C 45 54 20 58 28 4D 28 49 2C .2250 LET X(M(I,
0241A0: 4A 29 29 3D 35 0D 0A 32 32 36 30 20 49 46 20 4C J))=5..2260 IF L
0241B0: 28 49 29 3C 35 20 54 48 45 4E 20 32 32 39 30 0D (I)<5 THEN 2290.
0241C0: 0A 32 32 37 30 20 50 52 49 4E 54 20 22 4C 45 54 .2270 PRINT "LET
0241D0: 27 53 20 53 45 45 20 59 4F 55 20 47 45 54 20 4F 'S SEE YOU GET O
0241E0: 55 54 20 4F 46 20 54 48 49 53 3A 20 20 4D 41 43 UT OF THIS: MAC
0241F0: 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D HINE MOVES TO";.
024200: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
024210: 22 51 55 45 45 4E 22 0D 0A 32 20 50 52 49 4E 54 "QUEEN"..2 PRINT
024220: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
024230: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
024240: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
024250: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 RSEY"..3 PRINT:P
024260: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 44 RINT:PRINT..10 D
024270: 49 4D 20 53 28 36 34 29 0D 0A 31 31 20 46 4F 52 IM S(64)..11 FOR
024280: 20 49 3D 31 20 54 4F 20 36 34 0D 0A 31 32 20 52 I=1 TO 64..12 R
024290: 45 41 44 20 53 28 49 29 0D 0A 31 33 20 4E 45 58 EAD S(I)..13 NEX
0242A0: 54 20 49 0D 0A 31 34 20 44 41 54 41 20 20 38 31 T I..14 DATA 81
0242B0: 2C 20 20 37 31 2C 20 20 36 31 2C 20 20 35 31 2C , 71, 61, 51,
0242C0: 20 20 34 31 2C 20 20 33 31 2C 20 20 32 31 2C 20 41, 31, 21,
0242D0: 20 31 31 0D 0A 31 35 20 44 41 54 41 20 20 39 32 11..15 DATA 92
0242E0: 2C 20 20 38 32 2C 20 20 37 32 2C 20 20 36 32 2C , 82, 72, 62,
0242F0: 20 20 35 32 2C 20 20 34 32 2C 20 20 33 32 2C 20 52, 42, 32,
024300: 20 32 32 0D 0A 31 36 20 44 41 54 41 20 31 30 33 22..16 DATA 103
024310: 2C 20 20 39 33 2C 20 20 38 33 2C 20 20 37 33 2C , 93, 83, 73,
024320: 20 20 36 33 2C 20 20 35 33 2C 20 20 34 33 2C 20 63, 53, 43,
024330: 20 33 33 0D 0A 31 37 20 44 41 54 41 20 31 31 34 33..17 DATA 114
024340: 2C 20 31 30 34 2C 20 20 39 34 2C 20 20 38 34 2C , 104, 94, 84,
024350: 20 20 37 34 2C 20 20 36 34 2C 20 20 35 34 2C 20 74, 64, 54,
024360: 20 34 34 0D 0A 31 38 20 44 41 54 41 20 31 32 35 44..18 DATA 125
024370: 2C 20 31 31 35 2C 20 31 30 35 2C 20 20 39 35 2C , 115, 105, 95,
024380: 20 20 38 35 2C 20 20 37 35 2C 20 20 36 35 2C 20 85, 75, 65,
024390: 20 35 35 0D 0A 31 39 20 44 41 54 41 20 31 33 36 55..19 DATA 136
0243A0: 2C 20 31 32 36 2C 20 31 31 36 2C 20 31 30 36 2C , 126, 116, 106,
0243B0: 20 20 39 36 2C 20 20 38 36 2C 20 20 37 36 2C 20 96, 86, 76,
0243C0: 20 36 36 0D 0A 32 30 20 44 41 54 41 20 31 34 37 66..20 DATA 147
0243D0: 2C 20 31 33 37 2C 20 31 32 37 2C 20 31 31 37 2C , 137, 127, 117,
0243E0: 20 31 30 37 2C 20 20 39 37 2C 20 20 38 37 2C 20 107, 97, 87,
0243F0: 20 37 37 0D 0A 32 31 20 44 41 54 41 20 31 35 38 77..21 DATA 158
024400: 0A 32 32 38 30 20 47 4F 54 4F 20 32 33 30 30 0D .2280 GOTO 2300.
024410: 0A 32 32 39 30 20 50 52 49 4E 54 20 22 59 4F 55 .2290 PRINT "YOU
024420: 20 46 4F 58 2E 20 20 4A 55 53 54 20 49 4E 20 54 FOX. JUST IN T
024430: 48 45 20 4E 49 43 4B 20 4F 46 20 54 49 4D 45 2C HE NICK OF TIME,
024440: 20 4D 41 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 MACHINE MOVES T
024450: 4F 22 3B 0D 0A 32 33 30 30 20 4C 45 54 20 4D 3D O";..2300 LET M=
024460: 4D 28 49 2C 4A 29 0D 0A 32 33 31 30 20 47 4F 53 M(I,J)..2310 GOS
024470: 55 42 20 31 35 37 30 0D 0A 32 33 32 30 20 47 4F UB 1570..2320 GO
024480: 54 4F 20 35 30 30 0D 0A 32 33 33 30 20 4E 45 58 TO 500..2330 NEX
024490: 54 20 4A 0D 0A 32 33 34 30 20 50 52 49 4E 54 20 T J..2340 PRINT
0244A0: 22 4D 41 43 48 49 4E 45 20 43 4F 4E 43 45 44 45 "MACHINE CONCEDE
0244B0: 53 20 54 48 49 53 20 47 41 4D 45 2E 22 0D 0A 32 S THIS GAME."..2
0244C0: 33 35 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A 32 350 GOTO 1490..2
0244D0: 33 36 30 20 4C 45 54 20 53 3D 31 2F 38 0D 0A 32 360 LET S=1/8..2
0244E0: 33 37 30 20 49 46 20 49 2D 49 4E 54 28 49 2F 34 370 IF I-INT(I/4
0244F0: 29 2A 34 3E 31 20 54 48 45 4E 20 32 34 30 30 0D )*4>1 THEN 2400.
024500: 0A 32 33 38 30 20 4C 45 54 20 41 3D 31 0D 0A 32 .2380 LET A=1..2
024510: 33 39 30 20 47 4F 54 4F 20 32 34 31 30 0D 0A 32 390 GOTO 2410..2
024520: 34 30 30 20 4C 45 54 20 41 3D 32 0D 0A 32 34 31 400 LET A=2..241
024530: 30 20 46 4F 52 20 4A 3D 41 20 54 4F 20 35 2D 41 0 FOR J=A TO 5-A
024540: 20 53 54 45 50 20 35 2D 32 2A 41 0D 0A 32 34 32 STEP 5-2*A..242
024550: 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 3D 53 0 IF X(M(I,J))=S
024560: 20 54 48 45 4E 20 32 34 35 30 0D 0A 32 34 33 30 THEN 2450..2430
024570: 20 4E 45 58 54 20 4A 0D 0A 32 34 34 30 20 47 4F NEXT J..2440 GO
024580: 54 4F 20 32 30 30 30 0D 0A 32 34 35 30 20 4C 45 TO 2000..2450 LE
024590: 54 20 58 28 4D 28 49 2C 4A 29 29 3D 35 0D 0A 32 T X(M(I,J))=5..2
0245A0: 34 36 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A 29 460 LET M=M(I,J)
0245B0: 0D 0A 32 34 37 30 20 50 52 49 4E 54 20 22 4D 41 ..2470 PRINT "MA
0245C0: 43 48 49 4E 45 20 54 41 4B 45 53 22 3B 0D 0A 32 CHINE TAKES";..2
0245D0: 34 38 30 20 47 4F 53 55 42 20 31 35 37 30 0D 0A 480 GOSUB 1570..
0245E0: 32 34 39 30 20 47 4F 54 4F 20 35 30 30 0D 0A 32 2490 GOTO 500..2
0245F0: 35 30 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 36 500 FOR I=1 TO 6
024600: 2C 20 31 34 38 2C 20 31 33 38 2C 20 31 32 38 2C , 148, 138, 128,
024610: 20 31 31 38 2C 20 31 30 38 2C 20 20 39 38 2C 20 118, 108, 98,
024620: 20 38 38 0D 0A 32 32 20 49 4E 50 55 54 20 22 44 88..22 INPUT "D
024630: 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 52 O YOU WANT INSTR
024640: 55 43 54 49 4F 4E 53 22 3B 57 24 0D 0A 32 33 20 UCTIONS";W$..23
024650: 49 46 20 57 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF W$="NO" THEN
024660: 33 30 0D 0A 32 34 20 49 46 20 57 24 3D 22 59 45 30..24 IF W$="YE
024670: 53 22 20 54 48 45 4E 20 32 38 0D 0A 32 35 20 50 S" THEN 28..25 P
024680: 52 49 4E 54 20 22 50 4C 45 41 53 45 20 41 4E 53 RINT "PLEASE ANS
024690: 57 45 52 20 27 59 45 53 27 20 4F 52 20 27 4E 4F WER 'YES' OR 'NO
0246A0: 27 2E 22 0D 0A 32 36 20 47 4F 54 4F 20 32 32 0D '."..26 GOTO 22.
0246B0: 0A 32 38 20 47 4F 53 55 42 20 35 30 30 30 0D 0A .28 GOSUB 5000..
0246C0: 32 39 20 47 4F 54 4F 20 31 30 30 0D 0A 33 30 20 29 GOTO 100..30
0246D0: 47 4F 53 55 42 20 35 31 36 30 0D 0A 39 30 20 52 GOSUB 5160..90 R
0246E0: 45 4D 20 20 20 20 20 45 52 52 4F 52 20 43 48 45 EM ERROR CHE
0246F0: 43 4B 53 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 CKS..100 PRINT "
024700: 57 48 45 52 45 20 57 4F 55 4C 44 20 59 4F 55 20 WHERE WOULD YOU
024710: 4C 49 4B 45 20 54 4F 20 53 54 41 52 54 22 3B 0D LIKE TO START";.
024720: 0A 31 31 30 20 49 4E 50 55 54 20 4D 31 0D 0A 31 .110 INPUT M1..1
024730: 31 35 20 49 46 20 4D 31 3D 30 20 54 48 45 4E 20 15 IF M1=0 THEN
024740: 32 33 32 0D 0A 31 32 30 20 54 31 3D 49 4E 54 28 232..120 T1=INT(
024750: 4D 31 2F 31 30 29 0D 0A 31 33 30 20 55 31 3D 4D M1/10)..130 U1=M
024760: 31 2D 31 30 2A 54 31 0D 0A 31 34 30 20 49 46 20 1-10*T1..140 IF
024770: 55 31 3D 31 20 54 48 45 4E 20 32 30 30 0D 0A 31 U1=1 THEN 200..1
024780: 35 30 20 49 46 20 55 31 3D 54 31 20 54 48 45 4E 50 IF U1=T1 THEN
024790: 20 32 30 30 0D 0A 31 36 30 20 50 52 49 4E 54 20 200..160 PRINT
0247A0: 22 50 4C 45 41 53 45 20 52 45 41 44 20 54 48 45 "PLEASE READ THE
0247B0: 20 44 49 52 45 43 54 49 4F 4E 53 20 41 47 41 49 DIRECTIONS AGAI
0247C0: 4E 2E 22 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 N."..170 PRINT "
0247D0: 59 4F 55 20 48 41 56 45 20 42 45 47 55 4E 20 49 YOU HAVE BEGUN I
0247E0: 4C 4C 45 47 41 4C 4C 59 2E 22 0D 0A 31 37 35 20 LLEGALLY."..175
0247F0: 50 52 49 4E 54 0D 0A 31 38 30 20 47 4F 54 4F 20 PRINT..180 GOTO
024800: 34 0D 0A 32 35 31 30 20 49 46 20 58 28 49 29 3C 4..2510 IF X(I)<
024810: 3E 31 2F 38 20 54 48 45 4E 20 32 35 33 30 0D 0A >1/8 THEN 2530..
024820: 32 35 32 30 20 4C 45 54 20 58 28 49 29 3D 30 0D 2520 LET X(I)=0.
024830: 0A 32 35 33 30 20 4E 45 58 54 20 49 0D 0A 32 35 .2530 NEXT I..25
024840: 34 30 20 52 45 54 55 52 4E 0D 0A 32 35 35 30 20 40 RETURN..2550
024850: 46 4F 52 20 58 58 3D 31 20 54 4F 20 39 3A 50 52 FOR XX=1 TO 9:PR
024860: 49 4E 54 3A 4E 45 58 54 3A 46 4F 52 20 49 3D 31 INT:NEXT:FOR I=1
024870: 20 54 4F 20 34 0D 0A 32 35 36 30 20 46 4F 52 20 TO 4..2560 FOR
024880: 4A 3D 31 20 54 4F 20 34 0D 0A 32 35 36 32 20 46 J=1 TO 4..2562 F
024890: 4F 52 20 49 31 3D 31 20 54 4F 20 4A 0D 0A 32 35 OR I1=1 TO J..25
0248A0: 36 34 20 50 52 49 4E 54 22 20 20 20 22 3B 0D 0A 64 PRINT" ";..
0248B0: 32 35 36 36 20 4E 45 58 54 20 49 31 0D 0A 32 35 2566 NEXT I1..25
0248C0: 37 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 34 0D 70 FOR K=1 TO 4.
0248D0: 0A 32 36 30 30 20 4C 45 54 20 51 3D 31 36 2A 49 .2600 LET Q=16*I
0248E0: 2B 34 2A 4A 2B 4B 2D 32 30 0D 0A 32 36 31 30 20 +4*J+K-20..2610
0248F0: 49 46 20 58 28 51 29 3C 3E 4F 20 54 48 45 4E 20 IF X(Q)<>O THEN
024900: 32 36 33 30 0D 0A 32 36 32 30 20 50 52 49 4E 54 2630..2620 PRINT
024910: 22 28 20 29 20 20 20 20 20 20 22 3B 0D 0A 32 36 "( ) ";..26
024920: 33 30 20 49 46 20 58 28 51 29 3C 3E 35 20 54 48 30 IF X(Q)<>5 TH
024930: 45 4E 20 32 36 35 30 0D 0A 32 36 34 30 20 50 52 EN 2650..2640 PR
024940: 49 4E 54 22 28 4D 29 20 20 20 20 20 20 22 3B 0D INT"(M) ";.
024950: 0A 32 36 35 30 20 49 46 20 58 28 51 29 3C 3E 31 .2650 IF X(Q)<>1
024960: 20 54 48 45 4E 20 32 36 36 30 0D 0A 32 36 35 35 THEN 2660..2655
024970: 20 50 52 49 4E 54 22 28 59 29 20 20 20 20 20 20 PRINT"(Y)
024980: 22 3B 0D 0A 32 36 36 30 20 49 46 20 58 28 51 29 ";..2660 IF X(Q)
024990: 3C 3E 31 2F 38 20 54 48 45 4E 20 32 36 37 30 0D <>1/8 THEN 2670.
0249A0: 0A 32 36 36 35 20 50 52 49 4E 54 22 28 20 29 20 .2665 PRINT"( )
0249B0: 20 20 20 20 20 22 3B 0D 0A 32 36 37 30 20 4E 45 ";..2670 NE
0249C0: 58 54 20 4B 0D 0A 32 36 38 30 20 50 52 49 4E 54 XT K..2680 PRINT
0249D0: 0D 0A 32 36 39 30 20 50 52 49 4E 54 0D 0A 32 37 ..2690 PRINT..27
0249E0: 30 30 20 4E 45 58 54 20 4A 0D 0A 32 37 31 30 20 00 NEXT J..2710
0249F0: 50 52 49 4E 54 0D 0A 32 37 32 30 20 50 52 49 4E PRINT..2720 PRIN
024A00: 31 30 30 0D 0A 32 30 30 20 47 4F 53 55 42 20 32 100..200 GOSUB 2
024A10: 30 30 30 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 000..210 PRINT "
024A20: 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 54 COMPUTER MOVES T
024A30: 4F 20 53 51 55 41 52 45 22 3B 4D 0D 0A 32 31 35 O SQUARE";M..215
024A40: 20 49 46 20 4D 3D 31 35 38 20 54 48 45 4E 20 33 IF M=158 THEN 3
024A50: 34 30 30 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 400..220 PRINT "
024A60: 57 48 41 54 20 49 53 20 59 4F 55 52 20 4D 4F 56 WHAT IS YOUR MOV
024A70: 45 22 3B 0D 0A 32 33 30 20 49 4E 50 55 54 20 4D E";..230 INPUT M
024A80: 31 0D 0A 32 33 31 20 49 46 20 4D 31 3C 3E 30 20 1..231 IF M1<>0
024A90: 54 48 45 4E 20 32 33 39 0D 0A 32 33 32 20 50 52 THEN 239..232 PR
024AA0: 49 4E 54 0D 0A 32 33 33 20 50 52 49 4E 54 20 22 INT..233 PRINT "
024AB0: 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 20 49 20 IT LOOKS LIKE I
024AC0: 48 41 56 45 20 57 4F 4E 20 42 59 20 46 4F 52 46 HAVE WON BY FORF
024AD0: 45 49 54 2E 22 0D 0A 32 33 34 20 50 52 49 4E 54 EIT."..234 PRINT
024AE0: 0D 0A 32 33 35 20 47 4F 54 4F 20 34 30 30 30 0D ..235 GOTO 4000.
024AF0: 0A 32 33 39 20 49 46 20 4D 31 3C 3D 4D 20 54 48 .239 IF M1<=M TH
024B00: 45 4E 20 33 32 30 30 0D 0A 32 34 30 20 54 31 3D EN 3200..240 T1=
024B10: 49 4E 54 28 4D 31 2F 31 30 29 0D 0A 32 35 30 20 INT(M1/10)..250
024B20: 55 31 3D 4D 31 2D 31 30 2A 54 31 0D 0A 32 36 30 U1=M1-10*T1..260
024B30: 20 50 3D 55 31 2D 55 0D 0A 32 37 30 20 49 46 20 P=U1-U..270 IF
024B40: 50 3C 3E 30 20 54 48 45 4E 20 33 30 30 0D 0A 32 P<>0 THEN 300..2
024B50: 38 30 20 4C 3D 54 31 2D 54 0D 0A 32 39 30 20 49 80 L=T1-T..290 I
024B60: 46 20 4C 3C 3D 30 20 54 48 45 4E 20 33 32 30 30 F L<=0 THEN 3200
024B70: 0D 0A 32 39 35 20 47 4F 54 4F 20 32 30 30 0D 0A ..295 GOTO 200..
024B80: 33 30 30 20 49 46 20 54 31 2D 54 20 3C 3E 50 20 300 IF T1-T <>P
024B90: 54 48 45 4E 20 33 32 30 0D 0A 33 31 30 20 47 4F THEN 320..310 GO
024BA0: 54 4F 20 32 30 30 0D 0A 33 32 30 20 49 46 20 54 TO 200..320 IF T
024BB0: 31 2D 54 20 3C 3E 32 2A 50 20 54 48 45 4E 20 33 1-T <>2*P THEN 3
024BC0: 32 30 30 0D 0A 33 33 30 20 47 4F 54 4F 20 32 30 200..330 GOTO 20
024BD0: 30 0D 0A 31 39 39 30 20 52 45 4D 20 20 20 20 20 0..1990 REM
024BE0: 4C 4F 43 41 54 45 20 4D 4F 56 45 20 46 4F 52 20 LOCATE MOVE FOR
024BF0: 43 4F 4D 50 55 54 45 52 0D 0A 32 30 30 30 20 49 COMPUTER..2000 I
024C00: 54 0D 0A 32 37 33 30 20 4E 45 58 54 20 49 0D 0A T..2730 NEXT I..
024C10: 32 37 33 35 20 52 45 4D 20 50 52 49 4E 54 20 43 2735 REM PRINT C
024C20: 48 52 24 28 31 32 29 0D 0A 32 37 34 30 20 52 45 HR$(12)..2740 RE
024C30: 54 55 52 4E 0D 0A 32 37 35 30 20 50 52 49 4E 54 TURN..2750 PRINT
024C40: 22 49 4E 43 4F 52 52 45 43 54 20 4D 4F 56 45 2C "INCORRECT MOVE,
024C50: 20 52 45 54 59 50 45 20 49 54 2D 2D 22 3B 0D 0A RETYPE IT--";..
024C60: 32 37 36 30 20 47 4F 54 4F 20 35 32 30 0D 0A 32 2760 GOTO 520..2
024C70: 37 37 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 770 END.........
024C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 00 00 02 09 52 E5 1F 00 C1 02 00 00 00 02 ......R.........
024E20: 1F 00 C6 02 00 00 00 02 1F 00 C2 02 00 00 00 02 ................
024E30: 1F 00 C7 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E40: 1F 00 C8 02 00 00 00 02 1F 00 C4 02 00 00 00 02 ................
024E50: 1F 00 C9 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 46 20 4D 31 3D 34 31 20 54 48 45 4E 20 32 31 38 F M1=41 THEN 218
024F10: 30 0D 0A 32 30 31 30 20 49 46 20 4D 31 3D 34 34 0..2010 IF M1=44
024F20: 20 54 48 45 4E 20 32 31 38 30 0D 0A 32 30 32 30 THEN 2180..2020
024F30: 20 49 46 20 4D 31 3D 37 33 20 54 48 45 4E 20 32 IF M1=73 THEN 2
024F40: 31 38 30 0D 0A 32 30 33 30 20 49 46 20 4D 31 3D 180..2030 IF M1=
024F50: 37 35 20 54 48 45 4E 20 32 31 38 30 0D 0A 32 30 75 THEN 2180..20
024F60: 34 30 20 49 46 20 4D 31 3D 31 32 36 20 54 48 45 40 IF M1=126 THE
024F70: 4E 20 32 31 38 30 0D 0A 32 30 35 30 20 49 46 20 N 2180..2050 IF
024F80: 4D 31 3D 31 32 37 20 54 48 45 4E 20 32 31 38 30 M1=127 THEN 2180
024F90: 0D 0A 32 30 36 30 20 49 46 20 4D 31 3D 31 35 38 ..2060 IF M1=158
024FA0: 20 54 48 45 4E 20 33 33 30 30 0D 0A 32 30 36 35 THEN 3300..2065
024FB0: 20 43 3D 30 0D 0A 32 30 37 30 20 46 4F 52 20 4B C=0..2070 FOR K
024FC0: 3D 37 20 54 4F 20 31 20 53 54 45 50 20 2D 31 0D =7 TO 1 STEP -1.
024FD0: 0A 32 30 38 30 20 55 3D 55 31 0D 0A 32 30 39 30 .2080 U=U1..2090
024FE0: 20 54 3D 54 31 2B 4B 0D 0A 32 31 30 30 20 47 4F T=T1+K..2100 GO
024FF0: 53 55 42 20 33 35 30 30 0D 0A 32 31 30 35 20 49 SUB 3500..2105 I
025000: 46 20 43 3D 31 20 54 48 45 4E 20 32 31 36 30 0D F C=1 THEN 2160.
025010: 0A 32 31 31 30 20 55 3D 55 2B 4B 0D 0A 32 31 32 .2110 U=U+K..212
025020: 30 20 47 4F 53 55 42 20 33 35 30 30 0D 0A 32 31 0 GOSUB 3500..21
025030: 32 35 20 49 46 20 43 3D 31 20 54 48 45 4E 20 32 25 IF C=1 THEN 2
025040: 31 36 30 0D 0A 32 31 33 30 20 54 3D 54 2B 4B 0D 160..2130 T=T+K.
025050: 0A 32 31 34 30 20 47 4F 53 55 42 20 33 35 30 30 .2140 GOSUB 3500
025060: 0D 0A 32 31 34 35 20 49 46 20 43 3D 31 20 54 48 ..2145 IF C=1 TH
025070: 45 4E 20 32 31 36 30 0D 0A 32 31 35 30 20 4E 45 EN 2160..2150 NE
025080: 58 54 20 4B 0D 0A 32 31 35 35 20 47 4F 54 4F 20 XT K..2155 GOTO
025090: 32 31 38 30 0D 0A 32 31 36 30 20 43 3D 30 0D 0A 2180..2160 C=0..
0250A0: 32 31 37 30 20 52 45 54 55 52 4E 0D 0A 32 31 38 2170 RETURN..218
0250B0: 30 20 47 4F 53 55 42 20 33 30 30 30 0D 0A 32 31 0 GOSUB 3000..21
0250C0: 39 30 20 52 45 54 55 52 4E 0D 0A 32 39 39 30 20 90 RETURN..2990
0250D0: 52 45 4D 20 20 20 20 20 52 41 4E 44 4F 4D 20 4D REM RANDOM M
0250E0: 4F 56 45 0D 0A 33 30 30 30 20 5A 3D 52 4E 44 28 OVE..3000 Z=RND(
0250F0: 31 29 0D 0A 33 30 31 30 20 49 46 20 5A 3E 2E 36 1)..3010 IF Z>.6
025100: 30 20 46 4F 52 20 41 3D 30 20 54 4F 20 37 0D 0A 0 FOR A=0 TO 7..
025110: 35 31 38 30 20 46 4F 52 20 42 3D 31 20 54 4F 20 5180 FOR B=1 TO
025120: 38 0D 0A 35 31 38 35 20 49 3D 38 2A 41 2B 42 0D 8..5185 I=8*A+B.
025130: 0A 35 31 39 30 20 50 52 49 4E 54 20 53 28 49 29 .5190 PRINT S(I)
025140: 3B 0D 0A 35 32 30 30 20 4E 45 58 54 20 42 0D 0A ;..5200 NEXT B..
025150: 35 32 31 30 20 50 52 49 4E 54 0D 0A 35 32 32 30 5210 PRINT..5220
025160: 20 50 52 49 4E 54 0D 0A 35 32 33 30 20 50 52 49 PRINT..5230 PRI
025170: 4E 54 0D 0A 35 32 34 30 20 4E 45 58 54 20 41 0D NT..5240 NEXT A.
025180: 0A 35 32 35 30 20 50 52 49 4E 54 0D 0A 35 32 36 .5250 PRINT..526
025190: 30 20 52 45 54 55 52 4E 0D 0A 39 39 39 39 20 45 0 RETURN..9999 E
0251A0: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
0251B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025300: 20 54 48 45 4E 20 33 31 31 30 0D 0A 33 30 32 30 THEN 3110..3020
025310: 20 49 46 20 5A 3E 2E 33 20 54 48 45 4E 20 33 30 IF Z>.3 THEN 30
025320: 37 30 0D 0A 33 30 33 30 20 55 3D 55 31 0D 0A 33 70..3030 U=U1..3
025330: 30 34 30 20 54 3D 54 31 2B 31 0D 0A 33 30 35 30 040 T=T1+1..3050
025340: 20 4D 3D 31 30 2A 54 2B 55 0D 0A 33 30 36 30 20 M=10*T+U..3060
025350: 52 45 54 55 52 4E 0D 0A 33 30 37 30 20 55 3D 55 RETURN..3070 U=U
025360: 31 2B 31 0D 0A 33 30 38 30 20 54 3D 54 31 2B 32 1+1..3080 T=T1+2
025370: 0D 0A 33 30 39 30 20 4D 3D 31 30 2A 54 2B 55 0D ..3090 M=10*T+U.
025380: 0A 33 31 30 30 20 52 45 54 55 52 4E 0D 0A 33 31 .3100 RETURN..31
025390: 31 30 20 55 3D 55 31 2B 31 0D 0A 33 31 32 30 20 10 U=U1+1..3120
0253A0: 54 3D 54 31 2B 31 0D 0A 33 31 33 30 20 4D 3D 31 T=T1+1..3130 M=1
0253B0: 30 2A 54 2B 55 0D 0A 33 31 34 30 20 52 45 54 55 0*T+U..3140 RETU
0253C0: 52 4E 0D 0A 33 31 39 30 20 52 45 4D 20 20 20 20 RN..3190 REM
0253D0: 20 49 4C 4C 45 47 41 4C 20 4D 4F 56 45 20 4D 45 ILLEGAL MOVE ME
0253E0: 53 53 41 47 45 0D 0A 33 32 30 30 20 50 52 49 4E SSAGE..3200 PRIN
0253F0: 54 0D 0A 33 32 31 30 20 50 52 49 4E 54 20 22 59 T..3210 PRINT "Y
025400: 20 4F 20 55 20 20 20 43 20 48 20 45 20 41 20 54 O U C H E A T
025410: 20 2E 20 2E 20 2E 20 20 54 52 59 20 41 47 41 49 . . . TRY AGAI
025420: 4E 22 3B 0D 0A 33 32 32 30 20 47 4F 54 4F 20 32 N";..3220 GOTO 2
025430: 33 30 0D 0A 33 32 39 30 20 52 45 4D 20 20 20 20 30..3290 REM
025440: 20 50 4C 41 59 45 52 20 57 49 4E 53 0D 0A 33 33 PLAYER WINS..33
025450: 30 30 20 50 52 49 4E 54 0D 0A 33 33 31 30 20 50 00 PRINT..3310 P
025460: 52 49 4E 54 20 22 43 20 4F 20 4E 20 47 20 52 20 RINT "C O N G R
025470: 41 20 54 20 55 20 4C 20 41 20 54 20 49 20 4F 20 A T U L A T I O
025480: 4E 20 53 20 2E 20 2E 20 2E 22 0D 0A 33 33 32 30 N S . . ."..3320
025490: 20 50 52 49 4E 54 20 0D 0A 33 33 33 30 20 50 52 PRINT ..3330 PR
0254A0: 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 57 4F INT "YOU HAVE WO
0254B0: 4E 2D 2D 56 45 52 59 20 57 45 4C 4C 20 50 4C 41 N--VERY WELL PLA
0254C0: 59 45 44 2E 22 0D 0A 33 33 34 30 20 50 52 49 4E YED."..3340 PRIN
0254D0: 54 20 22 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 T "IT LOOKS LIKE
0254E0: 20 49 20 48 41 56 45 20 4D 45 54 20 4D 59 20 4D I HAVE MET MY M
0254F0: 41 54 43 48 2E 22 0D 0A 33 33 35 30 20 50 52 49 ATCH."..3350 PRI
025500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025700: 4E 54 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 50 NT "THANKS FOR P
025710: 4C 41 59 49 4E 47 2D 2D 2D 49 20 43 41 4E 27 54 LAYING---I CAN'T
025720: 20 57 49 4E 20 41 4C 4C 20 54 48 45 20 54 49 4D WIN ALL THE TIM
025730: 45 2E 22 0D 0A 33 33 36 30 20 50 52 49 4E 54 0D E."..3360 PRINT.
025740: 0A 33 33 37 30 20 47 4F 54 4F 20 34 30 30 30 0D .3370 GOTO 4000.
025750: 0A 33 33 39 30 20 52 45 4D 20 20 20 20 20 43 4F .3390 REM CO
025760: 4D 50 55 54 45 52 20 57 49 4E 53 0D 0A 33 34 30 MPUTER WINS..340
025770: 30 20 50 52 49 4E 54 0D 0A 33 34 31 30 20 50 52 0 PRINT..3410 PR
025780: 49 4E 54 20 22 4E 49 43 45 20 54 52 59 2C 20 42 INT "NICE TRY, B
025790: 55 54 20 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 UT IT LOOKS LIKE
0257A0: 20 49 20 48 41 56 45 20 57 4F 4E 2E 22 0D 0A 33 I HAVE WON."..3
0257B0: 34 32 30 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 420 PRINT "THANK
0257C0: 53 20 46 4F 52 20 50 4C 41 59 49 4E 47 2E 22 0D S FOR PLAYING.".
0257D0: 0A 33 34 33 30 20 50 52 49 4E 54 0D 0A 33 34 34 .3430 PRINT..344
0257E0: 30 20 47 4F 54 4F 20 34 30 30 30 0D 0A 33 34 39 0 GOTO 4000..349
0257F0: 30 20 52 45 4D 20 20 20 20 20 54 45 53 54 20 46 0 REM TEST F
025800: 4F 52 20 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 OR COMPUTER MOVE
025810: 0D 0A 33 35 30 30 20 4D 3D 31 30 2A 54 2B 55 0D ..3500 M=10*T+U.
025820: 0A 33 35 31 30 20 49 46 20 4D 3D 31 35 38 20 54 .3510 IF M=158 T
025830: 48 45 4E 20 33 35 37 30 0D 0A 33 35 32 30 20 49 HEN 3570..3520 I
025840: 46 20 4D 3D 31 32 37 20 54 48 45 4E 20 33 35 37 F M=127 THEN 357
025850: 30 0D 0A 33 35 33 30 20 49 46 20 4D 3D 31 32 36 0..3530 IF M=126
025860: 20 54 48 45 4E 20 33 35 37 30 0D 0A 33 35 34 30 THEN 3570..3540
025870: 20 49 46 20 4D 3D 37 35 20 54 48 45 4E 20 33 35 IF M=75 THEN 35
025880: 37 30 0D 0A 33 35 35 30 20 49 46 20 4D 3D 37 33 70..3550 IF M=73
025890: 20 54 48 45 4E 20 33 35 37 30 0D 0A 33 35 36 30 THEN 3570..3560
0258A0: 20 52 45 54 55 52 4E 0D 0A 33 35 37 30 20 43 3D RETURN..3570 C=
0258B0: 31 0D 0A 33 35 38 30 20 47 4F 54 4F 20 33 35 36 1..3580 GOTO 356
0258C0: 30 0D 0A 33 39 39 30 20 52 45 4D 20 20 20 20 20 0..3990 REM
0258D0: 41 4E 4F 54 48 45 52 20 47 41 4D 45 3F 3F 3F 0D ANOTHER GAME???.
0258E0: 0A 34 30 30 30 20 50 52 49 4E 54 20 22 41 4E 59 .4000 PRINT "ANY
0258F0: 4F 4E 45 20 45 4C 53 45 20 43 41 52 45 20 54 4F ONE ELSE CARE TO
025900: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
025910: 3B 22 52 45 56 45 52 53 45 22 0D 0A 32 30 20 50 ;"REVERSE"..20 P
025920: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
025930: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
025940: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
025950: 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 W JERSEY"..30 PR
025960: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
025970: 0A 31 30 30 20 50 52 49 4E 54 20 22 52 45 56 45 .100 PRINT "REVE
025980: 52 53 45 20 2D 2D 20 41 20 47 41 4D 45 20 4F 46 RSE -- A GAME OF
025990: 20 53 4B 49 4C 4C 22 3A 20 50 52 49 4E 54 0D 0A SKILL": PRINT..
0259A0: 31 33 30 20 44 49 4D 20 41 28 32 30 29 0D 0A 31 130 DIM A(20)..1
0259B0: 34 30 20 52 45 4D 20 2A 2A 2A 20 4E 3D 4E 55 4D 40 REM *** N=NUM
0259C0: 42 45 52 20 4F 46 20 4E 55 4D 42 45 52 53 0D 0A BER OF NUMBERS..
0259D0: 31 35 30 20 4E 3D 39 0D 0A 31 36 30 20 50 52 49 150 N=9..160 PRI
0259E0: 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 NT "DO YOU WANT
0259F0: 54 48 45 20 52 55 4C 45 53 22 3B 0D 0A 31 37 30 THE RULES";..170
025A00: 20 49 4E 50 55 54 20 41 24 0D 0A 31 38 30 20 49 INPUT A$..180 I
025A10: 46 20 41 24 3D 22 4E 4F 22 20 54 48 45 4E 20 32 F A$="NO" THEN 2
025A20: 31 30 0D 0A 31 39 30 20 47 4F 53 55 42 20 37 31 10..190 GOSUB 71
025A30: 30 0D 0A 32 30 30 20 52 45 4D 20 2A 2A 2A 20 4D 0..200 REM *** M
025A40: 41 4B 45 20 41 20 52 41 4E 44 4F 4D 20 4C 49 53 AKE A RANDOM LIS
025A50: 54 20 41 28 31 29 20 54 4F 20 41 28 4E 29 0D 0A T A(1) TO A(N)..
025A60: 32 31 30 20 41 28 31 29 3D 49 4E 54 28 28 4E 2D 210 A(1)=INT((N-
025A70: 31 29 2A 52 4E 44 28 31 29 2B 32 29 0D 0A 32 32 1)*RND(1)+2)..22
025A80: 30 20 46 4F 52 20 4B 3D 32 20 54 4F 20 4E 0D 0A 0 FOR K=2 TO N..
025A90: 32 33 30 20 41 28 4B 29 3D 49 4E 54 28 4E 2A 52 230 A(K)=INT(N*R
025AA0: 4E 44 28 31 29 2B 31 29 0D 0A 32 34 30 20 46 4F ND(1)+1)..240 FO
025AB0: 52 20 4A 3D 31 20 54 4F 20 4B 2D 31 0D 0A 32 35 R J=1 TO K-1..25
025AC0: 30 20 49 46 20 41 28 4B 29 3D 41 28 4A 29 20 54 0 IF A(K)=A(J) T
025AD0: 48 45 4E 20 32 33 30 0D 0A 32 36 30 20 4E 45 58 HEN 230..260 NEX
025AE0: 54 20 4A 3A 4E 45 58 54 20 4B 0D 0A 32 38 30 20 T J:NEXT K..280
025AF0: 52 45 4D 20 2A 2A 2A 20 50 52 49 4E 54 20 4F 52 REM *** PRINT OR
025B00: 20 54 52 59 22 3B 0D 0A 34 30 31 30 20 49 4E 50 TRY";..4010 INP
025B10: 55 54 20 51 24 0D 0A 34 30 32 30 20 50 52 49 4E UT Q$..4020 PRIN
025B20: 54 0D 0A 34 30 33 30 20 49 46 20 51 24 3D 22 59 T..4030 IF Q$="Y
025B30: 45 53 22 20 54 48 45 4E 20 33 30 20 0D 0A 34 30 ES" THEN 30 ..40
025B40: 34 30 20 49 46 20 51 24 3D 22 4E 4F 22 20 54 48 40 IF Q$="NO" TH
025B50: 45 4E 20 34 30 35 30 0D 0A 34 30 34 32 20 50 52 EN 4050..4042 PR
025B60: 49 4E 54 20 22 50 4C 45 41 53 45 20 41 4E 53 57 INT "PLEASE ANSW
025B70: 45 52 20 27 59 45 53 27 20 4F 52 20 27 4E 4F 27 ER 'YES' OR 'NO'
025B80: 2E 22 0D 0A 34 30 34 35 20 47 4F 54 4F 20 34 30 ."..4045 GOTO 40
025B90: 30 30 0D 0A 34 30 35 30 20 50 52 49 4E 54 3A 50 00..4050 PRINT:P
025BA0: 52 49 4E 54 20 22 4F 4B 20 2D 2D 2D 20 54 48 41 RINT "OK --- THA
025BB0: 4E 4B 53 20 41 47 41 49 4E 2E 22 0D 0A 34 30 36 NKS AGAIN."..406
025BC0: 30 20 53 54 4F 50 0D 0A 34 39 39 30 20 52 45 4D 0 STOP..4990 REM
025BD0: 20 20 20 20 20 44 49 52 45 43 54 49 4F 4E 53 0D DIRECTIONS.
025BE0: 0A 35 30 30 30 20 50 52 49 4E 54 20 22 57 45 20 .5000 PRINT "WE
025BF0: 41 52 45 20 47 4F 49 4E 47 20 54 4F 20 50 4C 41 ARE GOING TO PLA
025C00: 59 20 41 20 47 41 4D 45 20 42 41 53 45 44 20 4F Y A GAME BASED O
025C10: 4E 20 4F 4E 45 20 4F 46 20 54 48 45 20 43 48 45 N ONE OF THE CHE
025C20: 53 53 22 0D 0A 35 30 31 30 20 50 52 49 4E 54 20 SS"..5010 PRINT
025C30: 22 4D 4F 56 45 53 2E 20 20 4F 55 52 20 51 55 45 "MOVES. OUR QUE
025C40: 45 4E 20 57 49 4C 4C 20 42 45 20 41 42 4C 45 20 EN WILL BE ABLE
025C50: 54 4F 20 4D 4F 56 45 20 4F 4E 4C 59 20 54 4F 20 TO MOVE ONLY TO
025C60: 54 48 45 20 4C 45 46 54 2C 22 0D 0A 35 30 32 30 THE LEFT,"..5020
025C70: 20 50 52 49 4E 54 20 22 44 4F 57 4E 2C 20 4F 52 PRINT "DOWN, OR
025C80: 20 44 49 41 47 4F 4E 41 4C 4C 59 20 44 4F 57 4E DIAGONALLY DOWN
025C90: 20 41 4E 44 20 54 4F 20 54 48 45 20 4C 45 46 54 AND TO THE LEFT
025CA0: 2E 22 0D 0A 35 30 33 30 20 50 52 49 4E 54 0D 0A ."..5030 PRINT..
025CB0: 35 30 34 30 20 50 52 49 4E 54 20 22 54 48 45 20 5040 PRINT "THE
025CC0: 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 OBJECT OF THE GA
025CD0: 4D 45 20 49 53 20 54 4F 20 50 4C 41 43 45 20 54 ME IS TO PLACE T
025CE0: 48 45 20 51 55 45 45 4E 20 49 4E 20 54 48 45 20 HE QUEEN IN THE
025CF0: 4C 4F 57 45 52 22 0D 0A 35 30 35 30 20 50 52 49 LOWER"..5050 PRI
025D00: 49 47 49 4E 41 4C 20 4C 49 53 54 20 41 4E 44 20 IGINAL LIST AND
025D10: 53 54 41 52 54 20 47 41 4D 45 0D 0A 32 39 30 20 START GAME..290
025D20: 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 48 45 PRINT: PRINT "HE
025D30: 52 45 20 57 45 20 47 4F 20 2E 2E 2E 20 54 48 45 RE WE GO ... THE
025D40: 20 4C 49 53 54 20 49 53 3A 22 0D 0A 33 31 30 20 LIST IS:"..310
025D50: 54 3D 30 0D 0A 33 32 30 20 47 4F 53 55 42 20 36 T=0..320 GOSUB 6
025D60: 31 30 0D 0A 33 33 30 20 50 52 49 4E 54 20 22 48 10..330 PRINT "H
025D70: 4F 57 20 4D 41 4E 59 20 53 48 41 4C 4C 20 49 20 OW MANY SHALL I
025D80: 52 45 56 45 52 53 45 22 3B 0D 0A 33 34 30 20 49 REVERSE";..340 I
025D90: 4E 50 55 54 20 52 0D 0A 33 35 30 20 49 46 20 52 NPUT R..350 IF R
025DA0: 3D 30 20 54 48 45 4E 20 35 32 30 0D 0A 33 36 30 =0 THEN 520..360
025DB0: 20 49 46 20 52 3C 3D 4E 20 54 48 45 4E 20 33 39 IF R<=N THEN 39
025DC0: 30 0D 0A 33 37 30 20 50 52 49 4E 54 20 22 4F 4F 0..370 PRINT "OO
025DD0: 50 53 21 20 54 4F 4F 20 4D 41 4E 59 21 20 49 20 PS! TOO MANY! I
025DE0: 43 41 4E 20 52 45 56 45 52 53 45 20 41 54 20 4D CAN REVERSE AT M
025DF0: 4F 53 54 22 3B 4E 3A 47 4F 54 4F 20 33 33 30 0D OST";N:GOTO 330.
025E00: 0A 33 39 30 20 54 3D 54 2B 31 0D 0A 34 30 30 20 .390 T=T+1..400
025E10: 52 45 4D 20 2A 2A 2A 20 52 45 56 45 52 53 45 20 REM *** REVERSE
025E20: 52 20 4E 55 4D 42 45 52 53 20 41 4E 44 20 50 52 R NUMBERS AND PR
025E30: 49 4E 54 20 4E 45 57 20 4C 49 53 54 0D 0A 34 31 INT NEW LIST..41
025E40: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 49 4E 54 0 FOR K=1 TO INT
025E50: 28 52 2F 32 29 0D 0A 34 32 30 20 5A 3D 41 28 4B (R/2)..420 Z=A(K
025E60: 29 0D 0A 34 33 30 20 41 28 4B 29 3D 41 28 52 2D )..430 A(K)=A(R-
025E70: 4B 2B 31 29 0D 0A 34 34 30 20 41 28 52 2D 4B 2B K+1)..440 A(R-K+
025E80: 31 29 3D 5A 0D 0A 34 35 30 20 4E 45 58 54 20 4B 1)=Z..450 NEXT K
025E90: 0D 0A 34 36 30 20 47 4F 53 55 42 20 36 31 30 0D ..460 GOSUB 610.
025EA0: 0A 34 37 30 20 52 45 4D 20 2A 2A 2A 20 43 48 45 .470 REM *** CHE
025EB0: 43 4B 20 46 4F 52 20 41 20 57 49 4E 0D 0A 34 38 CK FOR A WIN..48
025EC0: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 0 FOR K=1 TO N..
025ED0: 34 39 30 20 49 46 20 41 28 4B 29 3C 3E 4B 20 54 490 IF A(K)<>K T
025EE0: 48 45 4E 20 33 33 30 0D 0A 35 30 30 20 4E 45 58 HEN 330..500 NEX
025EF0: 54 20 4B 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 T K..510 PRINT "
025F00: 4E 54 20 22 4C 45 46 54 20 48 41 4E 44 20 53 51 NT "LEFT HAND SQ
025F10: 55 41 52 45 20 42 59 20 41 4C 54 45 52 4E 41 54 UARE BY ALTERNAT
025F20: 49 4E 47 20 4D 4F 56 45 53 20 42 45 54 57 45 45 ING MOVES BETWEE
025F30: 4E 20 59 4F 55 20 41 4E 44 20 54 48 45 22 0D 0A N YOU AND THE"..
025F40: 35 30 36 30 20 50 52 49 4E 54 20 22 43 4F 4D 50 5060 PRINT "COMP
025F50: 55 54 45 52 2E 20 20 54 48 45 20 46 49 52 53 54 UTER. THE FIRST
025F60: 20 4F 4E 45 20 54 4F 20 50 4C 41 43 45 20 54 48 ONE TO PLACE TH
025F70: 45 20 51 55 45 45 4E 20 54 48 45 52 45 20 57 49 E QUEEN THERE WI
025F80: 4E 53 2E 22 0D 0A 35 30 37 30 20 50 52 49 4E 54 NS."..5070 PRINT
025F90: 0D 0A 35 30 38 30 20 50 52 49 4E 54 20 22 59 4F ..5080 PRINT "YO
025FA0: 55 20 47 4F 20 46 49 52 53 54 20 41 4E 44 20 50 U GO FIRST AND P
025FB0: 4C 41 43 45 20 54 48 45 20 51 55 45 45 4E 20 49 LACE THE QUEEN I
025FC0: 4E 20 41 4E 59 20 4F 4E 45 20 4F 46 20 54 48 45 N ANY ONE OF THE
025FD0: 20 53 51 55 41 52 45 53 22 0D 0A 35 30 39 30 20 SQUARES"..5090
025FE0: 50 52 49 4E 54 20 22 4F 4E 20 54 48 45 20 54 4F PRINT "ON THE TO
025FF0: 50 20 52 4F 57 20 4F 52 20 52 49 47 48 54 20 48 P ROW OR RIGHT H
026000: 41 4E 44 20 43 4F 4C 55 4D 4E 2E 22 0D 0A 35 31 AND COLUMN."..51
026010: 30 30 20 50 52 49 4E 54 20 22 54 48 41 54 20 57 00 PRINT "THAT W
026020: 49 4C 4C 20 42 45 20 59 4F 55 52 20 46 49 52 53 ILL BE YOUR FIRS
026030: 54 20 4D 4F 56 45 2E 22 0D 0A 35 31 31 30 20 50 T MOVE."..5110 P
026040: 52 49 4E 54 20 22 57 45 20 41 4C 54 45 52 4E 41 RINT "WE ALTERNA
026050: 54 45 20 4D 4F 56 45 53 2E 22 0D 0A 35 31 32 30 TE MOVES."..5120
026060: 20 50 52 49 4E 54 20 22 59 4F 55 20 4D 41 59 20 PRINT "YOU MAY
026070: 46 4F 52 46 45 49 54 20 42 59 20 54 59 50 49 4E FORFEIT BY TYPIN
026080: 47 20 27 30 27 20 41 53 20 59 4F 55 52 20 4D 4F G '0' AS YOUR MO
026090: 56 45 2E 22 0D 0A 35 31 33 30 20 50 52 49 4E 54 VE."..5130 PRINT
0260A0: 20 22 42 45 20 53 55 52 45 20 54 4F 20 50 52 45 "BE SURE TO PRE
0260B0: 53 53 20 54 48 45 20 52 45 54 55 52 4E 20 4B 45 SS THE RETURN KE
0260C0: 59 20 41 46 54 45 52 20 45 41 43 48 20 52 45 53 Y AFTER EACH RES
0260D0: 50 4F 4E 53 45 2E 22 0D 0A 35 31 34 30 20 50 52 PONSE."..5140 PR
0260E0: 49 4E 54 0D 0A 35 31 35 30 20 50 52 49 4E 54 0D INT..5150 PRINT.
0260F0: 0A 35 31 36 30 20 50 52 49 4E 54 0D 0A 35 31 37 .5160 PRINT..517
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 00 00 02 09 52 E5 20 00 C1 02 00 00 00 02 .....R. .......
026120: 20 00 C6 02 00 00 00 02 20 00 C2 02 00 00 00 02 ....... .......
026130: 20 00 C7 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026140: 20 00 C8 02 00 00 00 02 20 00 C4 02 00 00 00 02 ....... .......
026150: 20 00 C9 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 59 4F 55 20 57 4F 4E 20 49 54 20 49 4E 22 3B 54 YOU WON IT IN";T
026210: 3B 22 4D 4F 56 45 53 21 21 21 22 3A 50 52 49 4E ;"MOVES!!!":PRIN
026220: 54 0D 0A 35 32 30 20 50 52 49 4E 54 0D 0A 35 33 T..520 PRINT..53
026230: 30 20 50 52 49 4E 54 20 22 54 52 59 20 41 47 41 0 PRINT "TRY AGA
026240: 49 4E 20 28 59 45 53 20 4F 52 20 4E 4F 29 22 3B IN (YES OR NO)";
026250: 0D 0A 35 34 30 20 49 4E 50 55 54 20 41 24 0D 0A ..540 INPUT A$..
026260: 35 35 30 20 49 46 20 41 24 3D 22 59 45 53 22 20 550 IF A$="YES"
026270: 54 48 45 4E 20 32 31 30 0D 0A 35 36 30 20 50 52 THEN 210..560 PR
026280: 49 4E 54 3A 20 50 52 49 4E 54 20 22 4F 2E 4B 2E INT: PRINT "O.K.
026290: 20 48 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 HOPE YOU HAD FU
0262A0: 4E 21 21 22 3A 47 4F 54 4F 20 39 39 39 0D 0A 36 N!!":GOTO 999..6
0262B0: 30 30 20 52 45 4D 20 2A 2A 2A 20 53 55 42 52 4F 00 REM *** SUBRO
0262C0: 55 54 49 4E 45 20 54 4F 20 50 52 49 4E 54 20 4C UTINE TO PRINT L
0262D0: 49 53 54 0D 0A 36 31 30 20 50 52 49 4E 54 3A 46 IST..610 PRINT:F
0262E0: 4F 52 20 4B 3D 31 20 54 4F 20 4E 3A 50 52 49 4E OR K=1 TO N:PRIN
0262F0: 54 20 41 28 4B 29 3B 3A 4E 45 58 54 20 4B 0D 0A T A(K);:NEXT K..
026300: 36 35 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 650 PRINT:PRINT:
026310: 52 45 54 55 52 4E 0D 0A 37 30 30 20 52 45 4D 20 RETURN..700 REM
026320: 2A 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 20 54 *** SUBROUTINE T
026330: 4F 20 50 52 49 4E 54 20 54 48 45 20 52 55 4C 45 O PRINT THE RULE
026340: 53 0D 0A 37 31 30 20 50 52 49 4E 54 3A 50 52 49 S..710 PRINT:PRI
026350: 4E 54 20 22 54 48 49 53 20 49 53 20 54 48 45 20 NT "THIS IS THE
026360: 47 41 4D 45 20 4F 46 20 27 52 45 56 45 52 53 45 GAME OF 'REVERSE
026370: 27 2E 20 20 54 4F 20 57 49 4E 2C 20 41 4C 4C 20 '. TO WIN, ALL
026380: 59 4F 55 20 48 41 56 45 22 0D 0A 37 32 30 20 50 YOU HAVE"..720 P
026390: 52 49 4E 54 20 22 54 4F 20 44 4F 20 49 53 20 41 RINT "TO DO IS A
0263A0: 52 52 41 4E 47 45 20 41 20 4C 49 53 54 20 4F 46 RRANGE A LIST OF
0263B0: 20 4E 55 4D 42 45 52 53 20 28 31 20 54 48 52 4F NUMBERS (1 THRO
0263C0: 55 47 48 22 3B 4E 3B 22 29 22 0D 0A 37 33 30 20 UGH";N;")"..730
0263D0: 50 52 49 4E 54 20 22 49 4E 20 4E 55 4D 45 52 49 PRINT "IN NUMERI
0263E0: 43 41 4C 20 4F 52 44 45 52 20 46 52 4F 4D 20 4C CAL ORDER FROM L
0263F0: 45 46 54 20 54 4F 20 52 49 47 48 54 2E 20 20 54 EFT TO RIGHT. T
026400: 20 4F 20 4F 20 44 20 20 4C 20 55 20 43 20 4B 20 O O D L U C K
026410: 21 20 21 20 21 22 0D 0A 34 32 30 20 50 52 49 4E ! ! !"..420 PRIN
026420: 54 3A 50 52 49 4E 54 0D 0A 34 33 30 20 50 52 49 T:PRINT..430 PRI
026430: 4E 54 22 53 45 43 20 20 46 45 45 54 20 20 20 20 NT"SEC FEET
026440: 20 20 53 50 45 45 44 20 20 20 20 20 46 55 45 4C SPEED FUEL
026450: 20 20 20 20 20 50 4C 4F 54 20 4F 46 20 44 49 53 PLOT OF DIS
026460: 54 41 4E 43 45 22 0D 0A 34 35 30 20 50 52 49 4E TANCE"..450 PRIN
026470: 54 0D 0A 34 35 35 20 54 3D 30 3A 48 3D 31 30 30 T..455 T=0:H=100
026480: 30 3A 56 3D 35 30 3A 46 3D 31 35 30 0D 0A 34 39 0:V=50:F=150..49
026490: 30 20 50 52 49 4E 54 20 54 3B 54 41 42 28 36 29 0 PRINT T;TAB(6)
0264A0: 3B 48 3B 54 41 42 28 31 36 29 3B 56 3B 54 41 42 ;H;TAB(16);V;TAB
0264B0: 28 32 36 29 3B 46 3B 54 41 42 28 33 35 29 3B 22 (26);F;TAB(35);"
0264C0: 49 22 3B 54 41 42 28 48 2F 31 35 29 3B 22 2A 22 I";TAB(H/15);"*"
0264D0: 0D 0A 35 30 30 20 49 4E 50 55 54 20 42 0D 0A 35 ..500 INPUT B..5
0264E0: 31 30 20 49 46 20 42 3C 30 20 54 48 45 4E 20 36 10 IF B<0 THEN 6
0264F0: 35 30 0D 0A 35 32 30 20 49 46 20 42 3E 33 30 20 50..520 IF B>30
026500: 54 48 45 4E 20 42 3D 33 30 0D 0A 35 33 30 20 49 THEN B=30..530 I
026510: 46 20 42 3E 46 20 54 48 45 4E 20 42 3D 46 0D 0A F B>F THEN B=F..
026520: 35 34 30 20 56 31 3D 56 2D 42 2B 35 0D 0A 35 36 540 V1=V-B+5..56
026530: 30 20 46 3D 46 2D 42 0D 0A 35 37 30 20 48 3D 48 0 F=F-B..570 H=H
026540: 2D 20 2E 35 2A 28 56 2B 56 31 29 0D 0A 35 38 30 - .5*(V+V1)..580
026550: 20 49 46 20 48 3C 3D 30 20 54 48 45 4E 20 36 37 IF H<=0 THEN 67
026560: 30 0D 0A 35 39 30 20 54 3D 54 2B 31 0D 0A 36 30 0..590 T=T+1..60
026570: 30 20 56 3D 56 31 0D 0A 36 31 30 20 49 46 20 46 0 V=V1..610 IF F
026580: 3E 30 20 54 48 45 4E 20 34 39 30 0D 0A 36 31 35 >0 THEN 490..615
026590: 20 49 46 20 42 3D 30 20 54 48 45 4E 20 36 34 30 IF B=0 THEN 640
0265A0: 0D 0A 36 32 30 20 50 52 49 4E 54 22 2A 2A 2A 2A ..620 PRINT"****
0265B0: 20 4F 55 54 20 4F 46 20 46 55 45 4C 20 2A 2A 2A OUT OF FUEL ***
0265C0: 2A 22 0D 0A 36 34 30 20 50 52 49 4E 54 20 54 3B *"..640 PRINT T;
0265D0: 54 41 42 28 34 29 3B 48 3B 54 41 42 28 31 32 29 TAB(4);H;TAB(12)
0265E0: 3B 56 3B 54 41 42 28 32 30 29 3B 46 3B 54 41 42 ;V;TAB(20);F;TAB
0265F0: 28 32 39 29 3B 22 49 22 3B 54 41 42 28 48 2F 31 (29);"I";TAB(H/1
026600: 4F 20 4D 4F 56 45 2C 20 59 4F 55 22 0D 0A 37 34 O MOVE, YOU"..74
026610: 30 20 50 52 49 4E 54 20 22 54 45 4C 4C 20 4D 45 0 PRINT "TELL ME
026620: 20 48 4F 57 20 4D 41 4E 59 20 4E 55 4D 42 45 52 HOW MANY NUMBER
026630: 53 20 28 43 4F 55 4E 54 49 4E 47 20 46 52 4F 4D S (COUNTING FROM
026640: 20 54 48 45 20 4C 45 46 54 29 20 54 4F 22 0D 0A THE LEFT) TO"..
026650: 37 35 30 20 50 52 49 4E 54 20 22 52 45 56 45 52 750 PRINT "REVER
026660: 53 45 2E 20 20 46 4F 52 20 45 58 41 4D 50 4C 45 SE. FOR EXAMPLE
026670: 2C 20 49 46 20 54 48 45 20 43 55 52 52 45 4E 54 , IF THE CURRENT
026680: 20 4C 49 53 54 20 49 53 3A 22 0D 0A 37 36 30 20 LIST IS:"..760
026690: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 32 20 33 PRINT:PRINT "2 3
0266A0: 20 34 20 35 20 31 20 36 20 37 20 38 20 39 22 0D 4 5 1 6 7 8 9".
0266B0: 0A 37 37 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .770 PRINT:PRINT
0266C0: 20 22 41 4E 44 20 59 4F 55 20 52 45 56 45 52 53 "AND YOU REVERS
0266D0: 45 20 34 2C 20 54 48 45 20 52 45 53 55 4C 54 20 E 4, THE RESULT
0266E0: 57 49 4C 4C 20 42 45 3A 22 0D 0A 37 38 30 20 50 WILL BE:"..780 P
0266F0: 52 49 4E 54 3A 50 52 49 4E 54 20 22 35 20 34 20 RINT:PRINT "5 4
026700: 33 20 32 20 31 20 36 20 37 20 38 20 39 22 0D 0A 3 2 1 6 7 8 9"..
026710: 37 39 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 790 PRINT:PRINT
026720: 22 4E 4F 57 20 49 46 20 59 4F 55 20 52 45 56 45 "NOW IF YOU REVE
026730: 52 53 45 20 35 2C 20 59 4F 55 20 57 49 4E 21 22 RSE 5, YOU WIN!"
026740: 0D 0A 38 30 30 20 50 52 49 4E 54 3A 50 52 49 4E ..800 PRINT:PRIN
026750: 54 20 22 31 20 32 20 33 20 34 20 35 20 36 20 37 T "1 2 3 4 5 6 7
026760: 20 38 20 39 22 3A 50 52 49 4E 54 0D 0A 38 31 30 8 9":PRINT..810
026770: 20 50 52 49 4E 54 20 22 4E 4F 20 44 4F 55 42 54 PRINT "NO DOUBT
026780: 20 59 4F 55 20 57 49 4C 4C 20 4C 49 4B 45 20 54 YOU WILL LIKE T
026790: 48 49 53 20 47 41 4D 45 2C 20 42 55 54 22 0D 0A HIS GAME, BUT"..
0267A0: 38 32 30 20 50 52 49 4E 54 20 22 49 46 20 59 4F 820 PRINT "IF YO
0267B0: 55 20 57 41 4E 54 20 54 4F 20 51 55 49 54 2C 20 U WANT TO QUIT,
0267C0: 52 45 56 45 52 53 45 20 30 20 28 5A 45 52 4F 29 REVERSE 0 (ZERO)
0267D0: 2E 22 3A 50 52 49 4E 54 3A 20 52 45 54 55 52 4E .":PRINT: RETURN
0267E0: 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 ..999 END.......
0267F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026800: 32 2B 32 39 29 3B 22 2A 22 0D 0A 36 35 30 20 42 2+29);"*"..650 B
026810: 3D 30 0D 0A 36 36 30 20 47 4F 54 4F 20 35 34 30 =0..660 GOTO 540
026820: 0D 0A 36 37 30 20 50 52 49 4E 54 22 2A 2A 2A 2A ..670 PRINT"****
026830: 2A 20 43 4F 4E 54 41 43 54 20 2A 2A 2A 2A 2A 22 * CONTACT *****"
026840: 0D 0A 36 38 30 20 48 3D 48 2B 20 2E 35 2A 28 56 ..680 H=H+ .5*(V
026850: 31 2B 56 29 0D 0A 36 39 30 20 49 46 20 42 3D 35 1+V)..690 IF B=5
026860: 20 54 48 45 4E 20 37 32 30 0D 0A 37 30 30 20 44 THEN 720..700 D
026870: 3D 28 2D 56 2B 53 51 52 28 56 2A 56 2B 48 2A 28 =(-V+SQR(V*V+H*(
026880: 31 30 2D 32 2A 42 29 29 29 2F 28 35 2D 42 29 0D 10-2*B)))/(5-B).
026890: 0A 37 31 30 20 47 4F 54 4F 20 37 33 30 0D 0A 37 .710 GOTO 730..7
0268A0: 32 30 20 44 3D 48 2F 56 0D 0A 37 33 30 20 56 31 20 D=H/V..730 V1
0268B0: 3D 56 2B 28 35 2D 42 29 2A 44 0D 0A 37 36 30 20 =V+(5-B)*D..760
0268C0: 50 52 49 4E 54 22 54 4F 55 43 48 44 4F 57 4E 20 PRINT"TOUCHDOWN
0268D0: 41 54 22 3B 54 2B 44 3B 22 53 45 43 4F 4E 44 53 AT";T+D;"SECONDS
0268E0: 2E 22 0D 0A 37 37 30 20 50 52 49 4E 54 22 4C 41 ."..770 PRINT"LA
0268F0: 4E 44 49 4E 47 20 56 45 4C 4F 43 49 54 59 3D 22 NDING VELOCITY="
026900: 3B 56 31 3B 22 46 45 45 54 2F 53 45 43 2E 22 0D ;V1;"FEET/SEC.".
026910: 0A 37 38 30 20 50 52 49 4E 54 20 46 3B 22 55 4E .780 PRINT F;"UN
026920: 49 54 53 20 4F 46 20 46 55 45 4C 20 52 45 4D 41 ITS OF FUEL REMA
026930: 49 4E 49 4E 47 2E 22 0D 0A 37 39 30 20 49 46 20 INING."..790 IF
026940: 56 31 3C 3E 30 20 54 48 45 4E 20 38 31 30 0D 0A V1<>0 THEN 810..
026950: 38 30 30 20 50 52 49 4E 54 22 43 4F 4E 47 52 41 800 PRINT"CONGRA
026960: 54 55 4C 41 54 49 4F 4E 53 21 20 41 20 50 45 52 TULATIONS! A PER
026970: 46 45 43 54 20 4C 41 4E 44 49 4E 47 21 21 22 0D FECT LANDING!!".
026980: 0A 38 30 35 20 50 52 49 4E 54 22 59 4F 55 52 20 .805 PRINT"YOUR
026990: 4C 49 43 45 4E 53 45 20 57 49 4C 4C 20 42 45 20 LICENSE WILL BE
0269A0: 52 45 4E 45 57 45 44 2E 2E 2E 2E 2E 2E 2E 4C 41 RENEWED.......LA
0269B0: 54 45 52 2E 22 0D 0A 38 31 30 20 49 46 20 41 42 TER."..810 IF AB
0269C0: 53 28 56 31 29 3C 32 20 54 48 45 4E 20 38 34 30 S(V1)<2 THEN 840
0269D0: 0D 0A 38 32 30 20 50 52 49 4E 54 22 2A 2A 2A 2A ..820 PRINT"****
0269E0: 2A 20 53 4F 52 52 59 2C 20 42 55 54 20 59 4F 55 * SORRY, BUT YOU
0269F0: 20 42 4C 45 57 20 49 54 21 21 21 21 22 0D 0A 38 BLEW IT!!!!"..8
026A00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
026A10: 3B 20 22 52 4F 43 4B 45 54 22 0D 0A 32 30 20 50 ; "ROCKET"..20 P
026A20: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
026A30: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
026A40: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
026A50: 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 W JERSEY"..30 PR
026A60: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
026A70: 0A 37 30 20 50 52 49 4E 54 20 22 4C 55 4E 41 52 .70 PRINT "LUNAR
026A80: 20 4C 41 4E 44 49 4E 47 20 53 49 4D 55 4C 41 54 LANDING SIMULAT
026A90: 49 4F 4E 22 0D 0A 38 30 20 50 52 49 4E 54 20 22 ION"..80 PRINT "
026AA0: 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 20 2D 2D ----- ------- --
026AB0: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 20 50 52 49 4E 54 --------": PRINT
026AC0: 0D 0A 31 30 30 20 49 4E 50 55 54 20 22 44 4F 20 ..100 INPUT "DO
026AD0: 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 52 55 43 YOU WANT INSTRUC
026AE0: 54 49 4F 4E 53 20 28 59 45 53 20 4F 52 20 4E 4F TIONS (YES OR NO
026AF0: 29 22 3B 41 24 0D 0A 31 31 30 20 49 46 20 41 24 )";A$..110 IF A$
026B00: 3D 22 4E 4F 22 20 54 48 45 4E 20 33 39 30 0D 0A ="NO" THEN 390..
026B10: 31 36 30 20 50 52 49 4E 54 0D 0A 32 30 30 20 50 160 PRINT..200 P
026B20: 52 49 4E 54 22 59 4F 55 20 41 52 45 20 4C 41 4E RINT"YOU ARE LAN
026B30: 44 49 4E 47 20 4F 4E 20 54 48 45 20 4D 4F 4F 4E DING ON THE MOON
026B40: 20 41 4E 44 20 41 4E 44 20 48 41 56 45 20 54 41 AND AND HAVE TA
026B50: 4B 45 4E 20 4F 56 45 52 20 4D 41 4E 55 41 4C 22 KEN OVER MANUAL"
026B60: 0D 0A 32 31 30 20 50 52 49 4E 54 22 43 4F 4E 54 ..210 PRINT"CONT
026B70: 52 4F 4C 20 31 30 30 30 20 46 45 45 54 20 41 42 ROL 1000 FEET AB
026B80: 4F 56 45 20 41 20 47 4F 4F 44 20 4C 41 4E 44 49 OVE A GOOD LANDI
026B90: 4E 47 20 53 50 4F 54 2E 20 59 4F 55 20 48 41 56 NG SPOT. YOU HAV
026BA0: 45 20 41 20 44 4F 57 4E 2D 22 0D 0A 32 32 30 20 E A DOWN-"..220
026BB0: 50 52 49 4E 54 22 57 41 52 44 20 56 45 4C 4F 43 PRINT"WARD VELOC
026BC0: 49 54 59 20 4F 46 20 35 30 20 46 45 45 54 2F 53 ITY OF 50 FEET/S
026BD0: 45 43 2E 20 31 35 30 20 55 4E 49 54 53 20 4F 46 EC. 150 UNITS OF
026BE0: 20 46 55 45 4C 20 52 45 4D 41 49 4E 2E 22 0D 0A FUEL REMAIN."..
026BF0: 32 32 35 20 50 52 49 4E 54 0D 0A 32 33 30 20 50 225 PRINT..230 P
026C00: 33 30 20 50 52 49 4E 54 22 41 50 50 52 4F 50 52 30 PRINT"APPROPR
026C10: 49 41 54 45 20 43 4F 4E 44 4F 4C 45 4E 43 45 53 IATE CONDOLENCES
026C20: 20 57 49 4C 4C 20 42 45 20 53 45 4E 54 20 54 4F WILL BE SENT TO
026C30: 20 59 4F 55 52 20 4E 45 58 54 20 4F 46 20 4B 49 YOUR NEXT OF KI
026C40: 4E 2E 22 0D 0A 38 34 30 20 50 52 49 4E 54 3A 50 N."..840 PRINT:P
026C50: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 38 35 30 20 RINT:PRINT..850
026C60: 49 4E 50 55 54 20 22 41 4E 4F 54 48 45 52 20 4D INPUT "ANOTHER M
026C70: 49 53 53 49 4F 4E 22 3B 41 24 0D 0A 38 36 30 20 ISSION";A$..860
026C80: 49 46 20 41 24 3D 22 59 45 53 22 20 54 48 45 4E IF A$="YES" THEN
026C90: 20 33 39 30 0D 0A 38 37 30 20 50 52 49 4E 54 3A 390..870 PRINT:
026CA0: 20 50 52 49 4E 54 20 22 43 4F 4E 54 52 4F 4C 20 PRINT "CONTROL
026CB0: 4F 55 54 2E 22 3A 20 50 52 49 4E 54 0D 0A 39 39 OUT.": PRINT..99
026CC0: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
026CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E00: 52 49 4E 54 22 48 45 52 45 20 41 52 45 20 54 48 RINT"HERE ARE TH
026E10: 45 20 52 55 4C 45 53 20 54 48 41 54 20 47 4F 56 E RULES THAT GOV
026E20: 45 52 4E 20 59 4F 55 52 20 41 50 4F 4C 4C 4F 20 ERN YOUR APOLLO
026E30: 53 50 41 43 45 2D 43 52 41 46 54 3A 22 3A 20 50 SPACE-CRAFT:": P
026E40: 52 49 4E 54 0D 0A 32 34 30 20 50 52 49 4E 54 22 RINT..240 PRINT"
026E50: 28 31 29 20 41 46 54 45 52 20 45 41 43 48 20 53 (1) AFTER EACH S
026E60: 45 43 4F 4E 44 20 54 48 45 20 48 45 49 47 48 54 ECOND THE HEIGHT
026E70: 2C 20 56 45 4C 4F 43 49 54 59 2C 20 41 4E 44 20 , VELOCITY, AND
026E80: 52 45 4D 41 49 4E 49 4E 47 20 46 55 45 4C 22 0D REMAINING FUEL".
026E90: 0A 32 35 30 20 50 52 49 4E 54 22 20 20 20 20 57 .250 PRINT" W
026EA0: 49 4C 4C 20 42 45 20 52 45 50 4F 52 54 45 44 20 ILL BE REPORTED
026EB0: 56 49 41 20 44 49 47 42 59 20 59 4F 55 52 20 4F VIA DIGBY YOUR O
026EC0: 4E 2D 42 4F 41 52 44 20 43 4F 4D 50 55 54 45 52 N-BOARD COMPUTER
026ED0: 2E 22 0D 0A 32 36 30 20 50 52 49 4E 54 22 28 32 ."..260 PRINT"(2
026EE0: 29 20 41 46 54 45 52 20 54 48 45 20 52 45 50 4F ) AFTER THE REPO
026EF0: 52 54 20 41 20 27 3F 27 20 57 49 4C 4C 20 41 50 RT A '?' WILL AP
026F00: 50 45 41 52 2E 20 45 4E 54 45 52 20 54 48 45 20 PEAR. ENTER THE
026F10: 4E 55 4D 42 45 52 22 0D 0A 32 37 30 20 50 52 49 NUMBER"..270 PRI
026F20: 4E 54 22 20 20 20 20 4F 46 20 55 4E 49 54 53 20 NT" OF UNITS
026F30: 4F 46 20 46 55 45 4C 20 59 4F 55 20 57 49 53 48 OF FUEL YOU WISH
026F40: 20 54 4F 20 42 55 52 4E 20 44 55 52 49 4E 47 20 TO BURN DURING
026F50: 54 48 45 20 4E 45 58 54 22 0D 0A 32 38 30 20 50 THE NEXT"..280 P
026F60: 52 49 4E 54 22 20 20 20 20 53 45 43 4F 4E 44 2E RINT" SECOND.
026F70: 20 45 41 43 48 20 55 4E 49 54 20 4F 46 20 46 55 EACH UNIT OF FU
026F80: 45 4C 20 57 49 4C 4C 20 53 4C 4F 57 20 59 4F 55 EL WILL SLOW YOU
026F90: 52 20 44 45 53 43 45 4E 54 20 42 59 22 0D 0A 32 R DESCENT BY"..2
026FA0: 39 30 20 50 52 49 4E 54 22 20 20 20 20 31 20 46 90 PRINT" 1 F
026FB0: 4F 4F 54 2F 53 45 43 2E 22 0D 0A 33 31 30 20 50 OOT/SEC."..310 P
026FC0: 52 49 4E 54 22 28 33 29 20 54 48 45 20 4D 41 58 RINT"(3) THE MAX
026FD0: 49 4D 55 4D 20 54 48 52 55 53 54 20 4F 46 20 59 IMUM THRUST OF Y
026FE0: 4F 55 52 20 45 4E 47 49 4E 45 20 49 53 20 33 30 OUR ENGINE IS 30
026FF0: 20 46 45 45 54 2F 53 45 43 2F 53 45 43 22 0D 0A FEET/SEC/SEC"..
027000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 31 29 10 PRINT TAB(21)
027010: 3B 22 47 41 4D 45 20 4F 46 20 52 4F 43 4B 2C 20 ;"GAME OF ROCK,
027020: 53 43 49 53 53 4F 52 53 2C 20 50 41 50 45 52 22 SCISSORS, PAPER"
027030: 0D 0A 32 30 20 50 52 49 4E 54 20 54 41 42 28 31 ..20 PRINT TAB(1
027040: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
027050: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
027060: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
027070: 0A 32 35 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A .25 PRINT:PRINT:
027080: 50 52 49 4E 54 0D 0A 33 30 20 49 4E 50 55 54 20 PRINT..30 INPUT
027090: 22 48 4F 57 20 4D 41 4E 59 20 47 41 4D 45 53 22 "HOW MANY GAMES"
0270A0: 3B 51 0D 0A 34 30 20 49 46 20 51 3C 31 31 20 54 ;Q..40 IF Q<11 T
0270B0: 48 45 4E 20 36 30 0D 0A 35 30 20 50 52 49 4E 54 HEN 60..50 PRINT
0270C0: 20 22 53 4F 52 52 59 2C 20 42 55 54 20 57 45 20 "SORRY, BUT WE
0270D0: 41 52 45 4E 27 54 20 41 4C 4C 4F 57 45 44 20 54 AREN'T ALLOWED T
0270E0: 4F 20 50 4C 41 59 20 54 48 41 54 20 4D 41 4E 59 O PLAY THAT MANY
0270F0: 2E 22 3A 20 47 4F 54 4F 20 33 30 0D 0A 36 30 20 .": GOTO 30..60
027100: 46 4F 52 20 47 3D 31 20 54 4F 20 51 0D 0A 37 30 FOR G=1 TO Q..70
027110: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 47 PRINT: PRINT "G
027120: 41 4D 45 20 4E 55 4D 42 45 52 22 3B 47 0D 0A 38 AME NUMBER";G..8
027130: 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 33 0 X=INT(RND(1)*3
027140: 2B 31 29 0D 0A 39 30 20 50 52 49 4E 54 20 22 33 +1)..90 PRINT "3
027150: 3D 52 4F 43 4B 2E 2E 2E 32 3D 53 43 49 53 53 4F =ROCK...2=SCISSO
027160: 52 53 2E 2E 2E 31 3D 50 41 50 45 52 22 0D 0A 31 RS...1=PAPER"..1
027170: 30 30 20 49 4E 50 55 54 20 22 31 2E 2E 2E 32 2E 00 INPUT "1...2.
027180: 2E 2E 33 2E 2E 2E 57 48 41 54 27 53 20 59 4F 55 ..3...WHAT'S YOU
027190: 52 20 43 48 4F 49 43 45 22 3B 4B 0D 0A 31 31 30 R CHOICE";K..110
0271A0: 20 49 46 20 28 4B 2D 31 29 2A 28 4B 2D 32 29 2A IF (K-1)*(K-2)*
0271B0: 28 4B 2D 33 29 3C 3E 30 20 54 48 45 4E 20 50 52 (K-3)<>0 THEN PR
0271C0: 49 4E 54 20 22 49 4E 56 41 4C 49 44 2E 22 3A 20 INT "INVALID.":
0271D0: 47 4F 54 4F 20 39 30 0D 0A 31 32 30 20 50 52 49 GOTO 90..120 PRI
0271E0: 4E 54 20 22 54 48 49 53 20 49 53 20 4D 59 20 43 NT "THIS IS MY C
0271F0: 48 4F 49 43 45 2E 2E 2E 22 0D 0A 31 33 30 20 4F HOICE..."..130 O
027200: 33 32 30 20 50 52 49 4E 54 22 20 20 20 20 4F 52 320 PRINT" OR
027210: 20 33 30 20 55 4E 49 54 53 20 4F 46 20 46 55 45 30 UNITS OF FUE
027220: 4C 20 50 45 52 20 53 45 43 4F 4E 44 2E 22 0D 0A L PER SECOND."..
027230: 33 33 30 20 50 52 49 4E 54 22 28 34 29 20 57 48 330 PRINT"(4) WH
027240: 45 4E 20 59 4F 55 20 43 4F 4E 54 41 43 54 20 54 EN YOU CONTACT T
027250: 48 45 20 4C 55 4E 41 52 20 53 55 52 46 41 43 45 HE LUNAR SURFACE
027260: 2E 20 59 4F 55 52 20 44 45 53 43 45 4E 54 20 45 . YOUR DESCENT E
027270: 4E 47 49 4E 45 22 0D 0A 33 34 30 20 50 52 49 4E NGINE"..340 PRIN
027280: 54 22 20 20 20 20 57 49 4C 4C 20 41 55 54 4F 4D T" WILL AUTOM
027290: 41 54 49 43 41 4C 4C 59 20 53 48 55 54 20 44 4F ATICALLY SHUT DO
0272A0: 57 4E 20 41 4E 44 20 59 4F 55 20 57 49 4C 4C 20 WN AND YOU WILL
0272B0: 42 45 20 47 49 56 45 4E 20 41 22 0D 0A 33 35 30 BE GIVEN A"..350
0272C0: 20 50 52 49 4E 54 22 20 20 20 20 52 45 50 4F 52 PRINT" REPOR
0272D0: 54 20 4F 46 20 59 4F 55 52 20 4C 41 4E 44 49 4E T OF YOUR LANDIN
0272E0: 47 20 53 50 45 45 44 20 41 4E 44 20 52 45 4D 41 G SPEED AND REMA
0272F0: 49 4E 49 4E 47 20 46 55 45 4C 2E 22 0D 0A 33 36 INING FUEL."..36
027300: 30 20 50 52 49 4E 54 22 28 35 29 20 49 46 20 59 0 PRINT"(5) IF Y
027310: 4F 55 20 52 55 4E 20 4F 55 54 20 4F 46 20 46 55 OU RUN OUT OF FU
027320: 45 4C 20 54 48 45 20 27 3F 27 20 57 49 4C 4C 20 EL THE '?' WILL
027330: 4E 4F 20 4C 4F 4E 47 45 52 20 41 50 50 45 41 52 NO LONGER APPEAR
027340: 22 0D 0A 33 37 30 20 50 52 49 4E 54 22 20 20 20 "..370 PRINT"
027350: 20 42 55 54 20 59 4F 55 52 20 53 45 43 4F 4E 44 BUT YOUR SECOND
027360: 20 42 59 20 53 45 43 4F 4E 44 20 52 45 50 4F 52 BY SECOND REPOR
027370: 54 20 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 20 T WILL CONTINUE
027380: 55 4E 54 49 4C 22 0D 0A 33 38 30 20 50 52 49 4E UNTIL"..380 PRIN
027390: 54 22 20 20 20 20 59 4F 55 20 43 4F 4E 54 41 43 T" YOU CONTAC
0273A0: 54 20 54 48 45 20 4C 55 4E 41 52 20 53 55 52 46 T THE LUNAR SURF
0273B0: 41 43 45 2E 22 3A 50 52 49 4E 54 0D 0A 33 39 30 ACE.":PRINT..390
0273C0: 20 50 52 49 4E 54 22 42 45 47 49 4E 4E 49 4E 47 PRINT"BEGINNING
0273D0: 20 4C 41 4E 44 49 4E 47 20 50 52 4F 43 45 44 55 LANDING PROCEDU
0273E0: 52 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 50 52 RE..........":PR
0273F0: 49 4E 54 0D 0A 34 30 30 20 50 52 49 4E 54 22 47 INT..400 PRINT"G
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 00 00 02 09 52 E5 21 00 C1 02 00 00 00 02 !.....R.!.......
027420: 21 00 C6 02 00 00 00 02 21 00 C2 02 00 00 00 02 !.......!.......
027430: 21 00 C7 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027440: 21 00 C8 02 00 00 00 02 21 00 C4 02 00 00 00 02 !.......!.......
027450: 21 00 C9 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 4E 20 58 20 47 4F 54 4F 20 31 34 30 2C 31 35 30 N X GOTO 140,150
027510: 2C 31 36 30 0D 0A 31 34 30 20 50 52 49 4E 54 20 ,160..140 PRINT
027520: 22 2E 2E 2E 50 41 50 45 52 22 3A 20 47 4F 54 4F "...PAPER": GOTO
027530: 20 31 37 30 0D 0A 31 35 30 20 50 52 49 4E 54 20 170..150 PRINT
027540: 22 2E 2E 2E 53 43 49 53 53 4F 52 53 22 3A 20 47 "...SCISSORS": G
027550: 4F 54 4F 20 31 37 30 0D 0A 31 36 30 20 50 52 49 OTO 170..160 PRI
027560: 4E 54 20 22 2E 2E 2E 52 4F 43 4B 22 0D 0A 31 37 NT "...ROCK"..17
027570: 30 20 49 46 20 58 3D 4B 20 54 48 45 4E 20 32 35 0 IF X=K THEN 25
027580: 30 0D 0A 31 38 30 20 49 46 20 58 3E 4B 20 54 48 0..180 IF X>K TH
027590: 45 4E 20 32 33 30 0D 0A 31 39 30 20 49 46 20 58 EN 230..190 IF X
0275A0: 3D 31 20 54 48 45 4E 20 32 31 30 0D 0A 32 30 30 =1 THEN 210..200
0275B0: 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4E 21 PRINT "YOU WIN!
0275C0: 21 21 22 3A 48 3D 48 2B 31 3A 20 47 4F 54 4F 20 !!":H=H+1: GOTO
0275D0: 32 36 30 0D 0A 32 31 30 20 49 46 20 4B 3C 3E 33 260..210 IF K<>3
0275E0: 20 54 48 45 4E 20 32 30 30 0D 0A 32 32 30 20 50 THEN 200..220 P
0275F0: 52 49 4E 54 20 22 57 4F 57 21 20 20 49 20 57 49 RINT "WOW! I WI
027600: 4E 21 21 21 22 3A 43 3D 43 2B 31 3A 47 4F 54 4F N!!!":C=C+1:GOTO
027610: 20 32 36 30 0D 0A 32 33 30 20 49 46 20 4B 3C 3E 260..230 IF K<>
027620: 31 20 4F 52 20 58 3C 3E 33 20 54 48 45 4E 20 32 1 OR X<>3 THEN 2
027630: 32 30 0D 0A 32 34 30 20 47 4F 54 4F 20 32 30 30 20..240 GOTO 200
027640: 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 54 49 45 ..250 PRINT "TIE
027650: 20 47 41 4D 45 2E 20 20 4E 4F 20 57 49 4E 4E 45 GAME. NO WINNE
027660: 52 2E 22 0D 0A 32 36 30 20 4E 45 58 54 20 47 0D R."..260 NEXT G.
027670: 0A 32 37 30 20 50 52 49 4E 54 3A 20 50 52 49 4E .270 PRINT: PRIN
027680: 54 20 22 48 45 52 45 20 49 53 20 54 48 45 20 46 T "HERE IS THE F
027690: 49 4E 41 4C 20 47 41 4D 45 20 53 43 4F 52 45 3A INAL GAME SCORE:
0276A0: 22 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 49 20 "..280 PRINT "I
0276B0: 48 41 56 45 20 57 4F 4E 22 3B 43 3B 22 47 41 4D HAVE WON";C;"GAM
0276C0: 45 28 53 29 2E 22 0D 0A 32 39 30 20 50 52 49 4E E(S)."..290 PRIN
0276D0: 54 20 22 59 4F 55 20 48 41 56 45 20 57 4F 4E 22 T "YOU HAVE WON"
0276E0: 3B 48 3B 22 47 41 4D 45 28 53 29 2E 22 0D 0A 33 ;H;"GAME(S)."..3
0276F0: 30 30 20 50 52 49 4E 54 20 22 41 4E 44 22 3B 51 00 PRINT "AND";Q
027700: 55 4D 42 45 52 53 20 31 20 54 4F 20 33 36 20 53 UMBERS 1 TO 36 S
027710: 49 47 4E 49 46 59 20 41 20 53 54 52 41 49 47 48 IGNIFY A STRAIGH
027720: 54 20 42 45 54 22 0D 0A 31 33 31 30 20 50 52 49 T BET"..1310 PRI
027730: 4E 54 20 22 4F 4E 20 54 48 41 54 20 4E 55 4D 42 NT "ON THAT NUMB
027740: 45 52 2E 22 0D 0A 31 33 32 30 20 50 52 49 4E 54 ER."..1320 PRINT
027750: 20 22 54 48 45 53 45 20 50 41 59 20 4F 46 46 20 "THESE PAY OFF
027760: 33 35 3A 31 22 0D 0A 31 33 33 30 20 50 52 49 4E 35:1"..1330 PRIN
027770: 54 20 0D 0A 31 33 34 30 20 50 52 49 4E 54 20 22 T ..1340 PRINT "
027780: 54 48 45 20 32 3A 31 20 42 45 54 53 20 41 52 45 THE 2:1 BETS ARE
027790: 3A 22 0D 0A 31 33 35 30 20 50 52 49 4E 54 20 22 :"..1350 PRINT "
0277A0: 20 33 37 29 20 31 2D 31 32 20 20 20 20 20 34 30 37) 1-12 40
0277B0: 29 20 46 49 52 53 54 20 43 4F 4C 55 4D 4E 22 0D ) FIRST COLUMN".
0277C0: 0A 31 33 36 30 20 50 52 49 4E 54 20 22 20 33 38 .1360 PRINT " 38
0277D0: 29 20 31 33 2D 32 34 20 20 20 20 34 31 29 20 53 ) 13-24 41) S
0277E0: 45 43 4F 4E 44 20 43 4F 4C 55 4D 4E 22 0D 0A 31 ECOND COLUMN"..1
0277F0: 33 37 30 20 50 52 49 4E 54 20 22 20 33 39 29 20 370 PRINT " 39)
027800: 32 35 2D 33 36 20 20 20 20 34 32 29 20 54 48 49 25-36 42) THI
027810: 52 44 20 43 4F 4C 55 4D 4E 22 0D 0A 31 33 38 30 RD COLUMN"..1380
027820: 20 50 52 49 4E 54 20 0D 0A 31 33 39 30 20 50 52 PRINT ..1390 PR
027830: 49 4E 54 20 22 54 48 45 20 45 56 45 4E 20 4D 4F INT "THE EVEN MO
027840: 4E 45 59 20 42 45 54 53 20 41 52 45 3A 22 0D 0A NEY BETS ARE:"..
027850: 31 34 30 30 20 50 52 49 4E 54 20 22 20 34 33 29 1400 PRINT " 43)
027860: 20 31 2D 31 38 20 20 20 20 20 34 36 29 20 4F 44 1-18 46) OD
027870: 44 22 0D 0A 31 34 31 30 20 50 52 49 4E 54 20 22 D"..1410 PRINT "
027880: 20 34 34 29 20 31 39 2D 33 36 20 20 20 20 34 37 44) 19-36 47
027890: 29 20 52 45 44 22 0D 0A 31 34 32 30 20 50 52 49 ) RED"..1420 PRI
0278A0: 4E 54 20 22 20 34 35 29 20 45 56 45 4E 20 20 20 NT " 45) EVEN
0278B0: 20 20 34 38 29 20 42 4C 41 43 4B 22 0D 0A 31 34 48) BLACK"..14
0278C0: 33 30 20 50 52 49 4E 54 20 0D 0A 31 34 34 30 20 30 PRINT ..1440
0278D0: 50 52 49 4E 54 20 22 20 34 39 29 30 20 41 4E 44 PRINT " 49)0 AND
0278E0: 20 35 30 29 30 30 20 50 41 59 20 4F 46 46 20 33 50)00 PAY OFF 3
0278F0: 35 3A 31 22 0D 0A 31 34 35 30 20 50 52 49 4E 54 5:1"..1450 PRINT
027900: 2D 28 43 2B 48 29 3B 22 47 41 4D 45 28 53 29 20 -(C+H);"GAME(S)
027910: 45 4E 44 45 44 20 49 4E 20 41 20 54 49 45 2E 22 ENDED IN A TIE."
027920: 0D 0A 33 31 30 20 50 52 49 4E 54 3A 20 50 52 49 ..310 PRINT: PRI
027930: 4E 54 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 50 NT "THANKS FOR P
027940: 4C 41 59 49 4E 47 21 21 22 0D 0A 33 32 30 20 45 LAYING!!"..320 E
027950: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
027960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B00: 20 22 20 4E 4F 54 45 3A 20 30 20 41 4E 44 20 30 " NOTE: 0 AND 0
027B10: 30 20 44 4F 20 4E 4F 54 20 43 4F 55 4E 54 20 55 0 DO NOT COUNT U
027B20: 4E 44 45 52 20 41 4E 59 22 0D 0A 31 34 36 30 20 NDER ANY"..1460
027B30: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 42 45 PRINT " BE
027B40: 54 53 20 45 58 43 45 50 54 20 54 48 45 49 52 20 TS EXCEPT THEIR
027B50: 4F 57 4E 2E 22 0D 0A 31 34 37 30 20 50 52 49 4E OWN."..1470 PRIN
027B60: 54 0D 0A 31 34 38 30 20 50 52 49 4E 54 20 22 57 T..1480 PRINT "W
027B70: 48 45 4E 20 49 20 41 53 4B 20 46 4F 52 20 45 41 HEN I ASK FOR EA
027B80: 43 48 20 42 45 54 2C 20 54 59 50 45 20 54 48 45 CH BET, TYPE THE
027B90: 20 4E 55 4D 42 45 52 22 0D 0A 31 34 39 30 20 50 NUMBER"..1490 P
027BA0: 52 49 4E 54 20 22 41 4E 44 20 54 48 45 20 41 4D RINT "AND THE AM
027BB0: 4F 55 4E 54 2C 20 53 45 50 41 52 41 54 45 44 20 OUNT, SEPARATED
027BC0: 42 59 20 41 20 43 4F 4D 4D 41 2E 22 0D 0A 31 35 BY A COMMA."..15
027BD0: 30 30 20 50 52 49 4E 54 20 22 46 4F 52 20 45 58 00 PRINT "FOR EX
027BE0: 41 4D 50 4C 45 3A 20 54 4F 20 42 45 54 20 24 35 AMPLE: TO BET $5
027BF0: 30 30 20 4F 4E 20 42 4C 41 43 4B 2C 20 54 59 50 00 ON BLACK, TYP
027C00: 45 20 34 38 2C 35 30 30 22 0D 0A 31 35 31 30 20 E 48,500"..1510
027C10: 50 52 49 4E 54 20 22 57 48 45 4E 20 49 20 41 53 PRINT "WHEN I AS
027C20: 4B 20 46 4F 52 20 41 20 42 45 54 2E 22 0D 0A 31 K FOR A BET."..1
027C30: 35 32 30 20 50 52 49 4E 54 20 0D 0A 31 35 33 30 520 PRINT ..1530
027C40: 20 50 52 49 4E 54 20 22 54 48 45 20 4D 49 4E 49 PRINT "THE MINI
027C50: 4D 55 4D 20 42 45 54 20 49 53 20 24 35 2C 20 54 MUM BET IS $5, T
027C60: 48 45 20 4D 41 58 49 4D 55 4D 20 49 53 20 24 35 HE MAXIMUM IS $5
027C70: 30 30 2E 22 0D 0A 31 35 34 30 20 50 52 49 4E 54 00."..1540 PRINT
027C80: 20 0D 0A 31 35 35 30 20 52 45 4D 2D 50 52 4F 47 ..1550 REM-PROG
027C90: 52 41 4D 20 42 45 47 49 4E 53 20 48 45 52 45 0D RAM BEGINS HERE.
027CA0: 0A 31 35 36 30 20 52 45 4D 2D 54 59 50 45 20 4F .1560 REM-TYPE O
027CB0: 46 20 42 45 54 28 4E 55 4D 42 45 52 29 20 4F 44 F BET(NUMBER) OD
027CC0: 44 53 0D 0A 31 35 37 30 20 52 45 4D 20 20 44 4F DS..1570 REM DO
027CD0: 4E 27 54 20 4E 45 45 44 20 54 4F 20 44 49 4D 45 N'T NEED TO DIME
027CE0: 4E 53 49 4F 4E 20 53 54 52 49 4E 47 53 0D 0A 31 NSION STRINGS..1
027CF0: 35 38 30 20 44 49 4D 20 42 28 31 30 30 29 2C 43 580 DIM B(100),C
027D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F00: 28 31 30 30 29 2C 54 28 31 30 30 29 2C 58 28 33 (100),T(100),X(3
027F10: 38 29 0D 0A 31 35 39 30 20 44 49 4D 20 41 28 35 8)..1590 DIM A(5
027F20: 30 29 0D 0A 31 36 30 30 20 46 4F 52 20 49 3D 31 0)..1600 FOR I=1
027F30: 20 54 4F 20 33 38 3A 20 58 28 49 29 3D 30 3A 20 TO 38: X(I)=0:
027F40: 4E 45 58 54 20 49 3A 20 52 45 4D 20 20 4D 41 54 NEXT I: REM MAT
027F50: 20 58 3D 5A 45 52 0D 0A 31 36 31 30 20 50 3D 31 X=ZER..1610 P=1
027F60: 30 30 30 0D 0A 31 36 32 30 20 44 3D 31 30 30 30 000..1620 D=1000
027F70: 30 30 2E 0D 0A 31 36 33 30 20 50 52 49 4E 54 20 00...1630 PRINT
027F80: 22 48 4F 57 20 4D 41 4E 59 20 42 45 54 53 22 3B "HOW MANY BETS";
027F90: 0D 0A 31 36 34 30 20 49 4E 50 55 54 20 59 0D 0A ..1640 INPUT Y..
027FA0: 31 36 35 30 20 49 46 20 59 3C 31 20 4F 52 20 59 1650 IF Y<1 OR Y
027FB0: 3C 3E 49 4E 54 28 59 29 20 54 48 45 4E 20 31 36 <>INT(Y) THEN 16
027FC0: 33 30 0D 0A 31 36 36 30 20 46 4F 52 20 49 3D 31 30..1660 FOR I=1
027FD0: 20 54 4F 20 35 30 3A 20 41 28 49 29 3D 30 3A 20 TO 50: A(I)=0:
027FE0: 4E 45 58 54 20 49 3A 20 52 45 4D 20 20 4D 41 54 NEXT I: REM MAT
027FF0: 20 41 3D 5A 45 52 0D 0A 31 36 37 30 20 46 4F 52 A=ZER..1670 FOR
028000: 20 43 3D 31 20 54 4F 20 59 0D 0A 31 36 38 30 20 C=1 TO Y..1680
028010: 50 52 49 4E 54 20 22 4E 55 4D 42 45 52 22 3B 43 PRINT "NUMBER";C
028020: 3B 0D 0A 31 36 39 30 20 49 4E 50 55 54 20 58 2C ;..1690 INPUT X,
028030: 5A 0D 0A 31 37 30 30 20 42 28 43 29 3D 5A 0D 0A Z..1700 B(C)=Z..
028040: 31 37 31 30 20 54 28 43 29 3D 58 0D 0A 31 37 32 1710 T(C)=X..172
028050: 30 20 49 46 20 58 3C 31 20 4F 52 20 58 3E 35 30 0 IF X<1 OR X>50
028060: 20 4F 52 20 58 3C 3E 49 4E 54 28 58 29 20 54 48 OR X<>INT(X) TH
028070: 45 4E 20 31 36 38 30 0D 0A 31 37 33 30 20 49 46 EN 1680..1730 IF
028080: 20 5A 3C 31 20 4F 52 20 5A 3C 3E 49 4E 54 28 5A Z<1 OR Z<>INT(Z
028090: 29 20 54 48 45 4E 20 31 36 38 30 0D 0A 31 37 34 ) THEN 1680..174
0280A0: 30 20 49 46 20 5A 3C 35 20 4F 52 20 5A 3E 35 30 0 IF Z<5 OR Z>50
0280B0: 30 20 54 48 45 4E 20 31 36 38 30 0D 0A 31 37 35 0 THEN 1680..175
0280C0: 30 20 49 46 20 41 28 58 29 3D 30 20 54 48 45 4E 0 IF A(X)=0 THEN
0280D0: 20 31 37 38 30 0D 0A 31 37 36 30 20 50 52 49 4E 1780..1760 PRIN
0280E0: 54 20 22 59 4F 55 20 4D 41 44 45 20 54 48 41 54 T "YOU MADE THAT
0280F0: 20 42 45 54 20 4F 4E 43 45 20 41 4C 52 45 41 44 BET ONCE ALREAD
028100: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
028110: 3B 22 52 4F 55 4C 45 54 54 45 22 0D 0A 32 30 20 ;"ROULETTE"..20
028120: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
028130: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
028140: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
028150: 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 EW JERSEY"..30 P
028160: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
028170: 0D 0A 34 30 20 50 52 49 4E 54 20 22 45 4E 54 45 ..40 PRINT "ENTE
028180: 52 20 54 48 45 20 43 55 52 52 45 4E 54 20 44 41 R THE CURRENT DA
028190: 54 45 20 28 41 53 20 49 4E 20 27 4A 41 4E 55 41 TE (AS IN 'JANUA
0281A0: 52 59 20 32 33 2C 20 31 39 37 39 27 29 20 2D 22 RY 23, 1979') -"
0281B0: 3B 0D 0A 35 30 20 49 4E 50 55 54 20 44 24 2C 45 ;..50 INPUT D$,E
0281C0: 24 0D 0A 31 30 30 30 20 52 45 4D 2D 52 4F 55 4C $..1000 REM-ROUL
0281D0: 45 54 54 45 0D 0A 31 30 31 30 20 52 45 4D 2D 44 ETTE..1010 REM-D
0281E0: 41 56 49 44 20 4A 4F 53 4C 49 4E 0D 0A 31 30 32 AVID JOSLIN..102
0281F0: 30 20 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 45 0 PRINT "WELCOME
028200: 20 54 4F 20 54 48 45 20 52 4F 55 4C 45 54 54 45 TO THE ROULETTE
028210: 20 54 41 42 4C 45 22 0D 0A 31 30 33 30 20 50 52 TABLE"..1030 PR
028220: 49 4E 54 20 0D 0A 31 30 34 30 20 50 52 49 4E 54 INT ..1040 PRINT
028230: 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E "DO YOU WANT IN
028240: 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 31 30 STRUCTIONS";..10
028250: 35 30 20 49 4E 50 55 54 20 59 24 0D 0A 31 30 36 50 INPUT Y$..106
028260: 30 20 49 46 20 4C 45 46 54 24 28 59 24 2C 31 29 0 IF LEFT$(Y$,1)
028270: 3D 22 4E 22 20 54 48 45 4E 20 31 35 35 30 0D 0A ="N" THEN 1550..
028280: 31 30 37 30 20 50 52 49 4E 54 0D 0A 31 30 38 30 1070 PRINT..1080
028290: 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 PRINT "THIS IS
0282A0: 54 48 45 20 42 45 54 54 49 4E 47 20 4C 41 59 4F THE BETTING LAYO
0282B0: 55 54 22 0D 0A 31 30 39 30 20 50 52 49 4E 54 20 UT"..1090 PRINT
0282C0: 22 20 20 28 2A 3D 52 45 44 29 22 0D 0A 31 31 30 " (*=RED)"..110
0282D0: 30 20 50 52 49 4E 54 20 0D 0A 31 31 31 30 20 50 0 PRINT ..1110 P
0282E0: 52 49 4E 54 20 22 20 31 2A 20 20 20 20 32 20 20 RINT " 1* 2
0282F0: 20 20 20 33 2A 22 0D 0A 31 31 32 30 20 50 52 49 3*"..1120 PRI
028300: 59 2C 44 55 4D 2D 44 55 4D 22 0D 0A 31 37 37 30 Y,DUM-DUM"..1770
028310: 20 47 4F 54 4F 20 31 36 38 30 0D 0A 31 37 38 30 GOTO 1680..1780
028320: 20 41 28 58 29 3D 31 0D 0A 31 37 39 30 20 4E 45 A(X)=1..1790 NE
028330: 58 54 20 43 0D 0A 31 38 30 30 20 50 52 49 4E 54 XT C..1800 PRINT
028340: 20 22 53 50 49 4E 4E 49 4E 47 22 0D 0A 31 38 31 "SPINNING"..181
028350: 30 20 50 52 49 4E 54 20 0D 0A 31 38 32 30 20 50 0 PRINT ..1820 P
028360: 52 49 4E 54 20 0D 0A 31 38 33 30 20 53 3D 49 4E RINT ..1830 S=IN
028370: 54 28 52 4E 44 28 31 29 2A 31 30 30 29 0D 0A 31 T(RND(1)*100)..1
028380: 38 34 30 20 49 46 20 53 3D 30 20 4F 52 20 53 3E 840 IF S=0 OR S>
028390: 33 38 20 54 48 45 4E 20 31 38 33 30 0D 0A 31 38 38 THEN 1830..18
0283A0: 35 30 20 58 28 53 29 3D 58 28 53 29 2B 31 0D 0A 50 X(S)=X(S)+1..
0283B0: 31 38 36 30 20 49 46 20 53 3C 33 37 20 54 48 45 1860 IF S<37 THE
0283C0: 4E 20 31 39 32 30 0D 0A 31 38 37 30 20 49 46 20 N 1920..1870 IF
0283D0: 53 3D 33 37 20 54 48 45 4E 20 31 39 30 30 0D 0A S=37 THEN 1900..
0283E0: 31 38 38 30 20 50 52 49 4E 54 20 22 30 30 22 0D 1880 PRINT "00".
0283F0: 0A 31 38 39 30 20 47 4F 54 4F 20 32 30 32 30 0D .1890 GOTO 2020.
028400: 0A 31 39 30 30 20 50 52 49 4E 54 20 22 30 22 0D .1900 PRINT "0".
028410: 0A 31 39 31 30 20 47 4F 54 4F 20 32 30 32 30 0D .1910 GOTO 2020.
028420: 0A 31 39 32 30 20 52 45 53 54 4F 52 45 20 0D 0A .1920 RESTORE ..
028430: 31 39 33 30 20 46 4F 52 20 49 31 3D 31 20 54 4F 1930 FOR I1=1 TO
028440: 20 31 38 0D 0A 31 39 34 30 20 52 45 41 44 20 52 18..1940 READ R
028450: 0D 0A 31 39 35 30 20 49 46 20 52 3D 53 20 54 48 ..1950 IF R=S TH
028460: 45 4E 20 32 30 30 30 0D 0A 31 39 36 30 20 4E 45 EN 2000..1960 NE
028470: 58 54 20 49 31 0D 0A 31 39 37 30 20 41 24 3D 22 XT I1..1970 A$="
028480: 42 4C 41 43 4B 22 0D 0A 31 39 38 30 20 50 52 49 BLACK"..1980 PRI
028490: 4E 54 20 53 3B 41 24 0D 0A 31 39 39 30 20 47 4F NT S;A$..1990 GO
0284A0: 54 4F 20 32 30 32 30 0D 0A 32 30 30 30 20 41 24 TO 2020..2000 A$
0284B0: 3D 22 52 45 44 22 0D 0A 32 30 31 30 20 47 4F 54 ="RED"..2010 GOT
0284C0: 4F 20 31 39 38 30 0D 0A 32 30 32 30 20 50 52 49 O 1980..2020 PRI
0284D0: 4E 54 0D 0A 32 30 33 30 20 46 4F 52 20 43 3D 31 NT..2030 FOR C=1
0284E0: 20 54 4F 20 59 0D 0A 32 30 34 30 20 49 46 20 54 TO Y..2040 IF T
0284F0: 28 43 29 3C 33 37 20 54 48 45 4E 20 32 37 31 30 (C)<37 THEN 2710
028500: 4E 54 20 22 20 34 20 20 20 20 20 35 2A 20 20 20 NT " 4 5*
028510: 20 36 20 22 0D 0A 31 31 33 30 20 50 52 49 4E 54 6 "..1130 PRINT
028520: 20 22 20 37 2A 20 20 20 20 38 20 20 20 20 20 39 " 7* 8 9
028530: 2A 22 0D 0A 31 31 34 30 20 50 52 49 4E 54 20 22 *"..1140 PRINT "
028540: 31 30 20 20 20 20 31 31 20 20 20 20 31 32 2A 22 10 11 12*"
028550: 0D 0A 31 31 35 30 20 50 52 49 4E 54 20 22 2D 2D ..1150 PRINT "--
028560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A -------------"..
028570: 31 31 36 30 20 50 52 49 4E 54 20 22 31 33 20 20 1160 PRINT "13
028580: 20 20 31 34 2A 20 20 20 31 35 20 22 0D 0A 31 31 14* 15 "..11
028590: 37 30 20 50 52 49 4E 54 20 22 31 36 2A 20 20 20 70 PRINT "16*
0285A0: 31 37 20 20 20 20 31 38 2A 22 0D 0A 31 31 38 30 17 18*"..1180
0285B0: 20 50 52 49 4E 54 20 22 31 39 2A 20 20 20 32 30 PRINT "19* 20
0285C0: 20 20 20 20 32 31 2A 22 0D 0A 31 31 39 30 20 50 21*"..1190 P
0285D0: 52 49 4E 54 20 22 32 32 20 20 20 20 32 33 2A 20 RINT "22 23*
0285E0: 20 20 32 34 20 22 0D 0A 31 32 30 30 20 50 52 49 24 "..1200 PRI
0285F0: 4E 54 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D NT "------------
028600: 2D 2D 2D 22 0D 0A 31 32 31 30 20 50 52 49 4E 54 ---"..1210 PRINT
028610: 20 22 32 35 2A 20 20 20 32 36 20 20 20 20 32 37 "25* 26 27
028620: 2A 22 0D 0A 31 32 32 30 20 50 52 49 4E 54 20 22 *"..1220 PRINT "
028630: 32 38 20 20 20 20 32 39 20 20 20 20 33 30 2A 22 28 29 30*"
028640: 0D 0A 31 32 33 30 20 50 52 49 4E 54 20 22 33 31 ..1230 PRINT "31
028650: 20 20 20 20 33 32 2A 20 20 20 33 33 20 22 0D 0A 32* 33 "..
028660: 31 32 34 30 20 50 52 49 4E 54 20 22 33 34 2A 20 1240 PRINT "34*
028670: 20 20 33 35 20 20 20 20 33 36 2A 22 0D 0A 31 32 35 36*"..12
028680: 35 30 20 50 52 49 4E 54 20 22 2D 2D 2D 2D 2D 2D 50 PRINT "------
028690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 32 36 30 ---------"..1260
0286A0: 20 50 52 49 4E 54 20 22 20 20 20 20 30 30 20 20 PRINT " 00
0286B0: 20 20 30 20 20 20 20 22 0D 0A 31 32 37 30 20 50 0 "..1270 P
0286C0: 52 49 4E 54 0D 0A 31 32 38 30 20 50 52 49 4E 54 RINT..1280 PRINT
0286D0: 20 22 54 59 50 45 53 20 4F 46 20 42 45 54 53 22 "TYPES OF BETS"
0286E0: 0D 0A 31 32 39 30 20 50 52 49 4E 54 20 0D 0A 31 ..1290 PRINT ..1
0286F0: 33 30 30 20 50 52 49 4E 54 20 22 54 48 45 20 4E 300 PRINT "THE N
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 00 00 02 09 52 E5 22 00 C1 02 00 00 00 02 ".....R.".......
028720: 22 00 C6 02 00 00 00 02 22 00 C2 02 00 00 00 02 ".......".......
028730: 22 00 C7 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028740: 22 00 C8 02 00 00 00 02 22 00 C4 02 00 00 00 02 ".......".......
028750: 22 00 C9 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 0D 0A 32 30 35 30 20 4F 4E 20 54 28 43 29 2D 33 ..2050 ON T(C)-3
028810: 36 20 47 4F 54 4F 20 32 30 39 30 2C 32 31 39 30 6 GOTO 2090,2190
028820: 2C 32 32 32 30 2C 32 32 35 30 2C 32 33 30 30 2C ,2220,2250,2300,
028830: 32 33 35 30 2C 32 34 30 30 2C 32 34 37 30 2C 32 2350,2400,2470,2
028840: 35 30 30 0D 0A 32 30 36 30 20 4F 4E 20 54 28 43 500..2060 ON T(C
028850: 29 2D 34 35 20 47 4F 54 4F 20 32 35 33 30 2C 32 )-45 GOTO 2530,2
028860: 35 36 30 2C 32 36 33 30 0D 0A 32 30 37 30 20 47 560,2630..2070 G
028870: 4F 54 4F 20 32 37 31 30 0D 0A 32 30 38 30 20 53 OTO 2710..2080 S
028880: 54 4F 50 0D 0A 32 30 39 30 20 52 45 4D 20 20 31 TOP..2090 REM 1
028890: 2D 31 32 28 33 37 29 20 32 3A 31 0D 0A 32 31 30 -12(37) 2:1..210
0288A0: 30 20 49 46 20 53 20 3C 3D 20 31 32 20 54 48 45 0 IF S <= 12 THE
0288B0: 4E 20 32 31 35 30 0D 0A 32 31 31 30 20 50 52 49 N 2150..2110 PRI
0288C0: 4E 54 20 22 59 4F 55 20 4C 4F 53 45 22 3B 42 28 NT "YOU LOSE";B(
0288D0: 43 29 3B 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 C);"DOLLARS ON B
0288E0: 45 54 22 3B 43 0D 0A 32 31 32 30 20 44 3D 44 2B ET";C..2120 D=D+
0288F0: 42 28 43 29 0D 0A 32 31 33 30 20 50 3D 50 2D 42 B(C)..2130 P=P-B
028900: 28 43 29 0D 0A 32 31 34 30 20 47 4F 54 4F 20 32 (C)..2140 GOTO 2
028910: 31 38 30 0D 0A 32 31 35 30 20 50 52 49 4E 54 20 180..2150 PRINT
028920: 22 59 4F 55 20 57 49 4E 22 3B 42 28 43 29 2A 32 "YOU WIN";B(C)*2
028930: 3B 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 45 54 ;"DOLLARS ON BET
028940: 22 43 0D 0A 32 31 36 30 20 44 3D 44 2D 42 28 43 "C..2160 D=D-B(C
028950: 29 2A 32 0D 0A 32 31 37 30 20 50 3D 50 2B 42 28 )*2..2170 P=P+B(
028960: 43 29 2A 32 0D 0A 32 31 38 30 20 47 4F 54 4F 20 C)*2..2180 GOTO
028970: 32 38 31 30 0D 0A 32 31 39 30 20 52 45 4D 20 20 2810..2190 REM
028980: 31 33 2D 32 34 28 33 38 29 20 32 3A 31 0D 0A 32 13-24(38) 2:1..2
028990: 32 30 30 20 49 46 20 53 3E 31 32 20 41 4E 44 20 200 IF S>12 AND
0289A0: 53 3C 32 35 20 54 48 45 4E 20 32 31 35 30 0D 0A S<25 THEN 2150..
0289B0: 32 32 31 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 2210 GOTO 2110..
0289C0: 32 32 32 30 20 52 45 4D 20 20 32 35 2D 33 36 28 2220 REM 25-36(
0289D0: 33 39 29 20 32 3A 31 0D 0A 32 32 33 30 20 49 46 39) 2:1..2230 IF
0289E0: 20 53 3E 32 34 20 41 4E 44 20 53 3C 33 37 20 54 S>24 AND S<37 T
0289F0: 48 45 4E 20 32 31 35 30 0D 0A 32 32 34 30 20 47 HEN 2150..2240 G
028A00: 30 30 20 50 52 49 4E 54 20 0D 0A 33 31 31 30 20 00 PRINT ..3110
028A10: 50 52 49 4E 54 20 54 41 42 28 31 30 29 2C 22 54 PRINT TAB(10),"T
028A20: 48 45 20 4D 45 4D 4F 52 59 20 42 41 4E 4B 20 4F HE MEMORY BANK O
028A30: 46 20 4E 45 57 20 59 4F 52 4B 22 0D 0A 33 31 32 F NEW YORK"..312
028A40: 30 20 50 52 49 4E 54 20 0D 0A 33 31 33 30 20 50 0 PRINT ..3130 P
028A50: 52 49 4E 54 20 54 41 42 28 34 30 29 2C 22 54 48 RINT TAB(40),"TH
028A60: 45 20 43 4F 4D 50 55 54 45 52 22 0D 0A 33 31 34 E COMPUTER"..314
028A70: 30 20 50 52 49 4E 54 20 54 41 42 28 34 30 29 22 0 PRINT TAB(40)"
028A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 58 2D 2D 2D 2D 2D ----------X-----
028A90: 22 0D 0A 33 31 35 30 20 50 52 49 4E 54 20 0D 0A "..3150 PRINT ..
028AA0: 33 31 36 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 3160 FOR I=1 TO
028AB0: 36 32 3A 20 50 52 49 4E 54 20 22 2D 22 3B 3A 20 62: PRINT "-";:
028AC0: 4E 45 58 54 20 49 0D 0A 33 31 37 30 20 50 52 49 NEXT I..3170 PRI
028AD0: 4E 54 20 22 43 4F 4D 45 20 42 41 43 4B 20 53 4F NT "COME BACK SO
028AE0: 4F 4E 21 22 0D 0A 33 31 38 30 20 47 4F 54 4F 20 ON!"..3180 GOTO
028AF0: 33 32 31 30 0D 0A 33 31 39 30 20 50 52 49 4E 54 3210..3190 PRINT
028B00: 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 59 4F 55 "THANKS FOR YOU
028B10: 52 20 4D 4F 4E 45 59 2E 22 0D 0A 33 32 30 30 20 R MONEY."..3200
028B20: 50 52 49 4E 54 20 22 49 27 4C 4C 20 55 53 45 20 PRINT "I'LL USE
028B30: 49 54 20 54 4F 20 42 55 59 20 41 20 53 4F 4C 49 IT TO BUY A SOLI
028B40: 44 20 47 4F 4C 44 20 52 4F 55 4C 45 54 54 45 20 D GOLD ROULETTE
028B50: 57 48 45 45 4C 22 0D 0A 33 32 31 30 20 50 52 49 WHEEL"..3210 PRI
028B60: 4E 54 20 0D 0A 33 32 32 30 20 47 4F 54 4F 20 33 NT ..3220 GOTO 3
028B70: 34 32 30 0D 0A 33 32 33 30 20 52 45 4D 0D 0A 33 420..3230 REM..3
028B80: 32 34 30 20 52 45 4D 20 20 20 20 20 54 48 49 53 240 REM THIS
028B90: 20 52 4F 55 54 49 4E 45 20 52 45 54 55 52 4E 53 ROUTINE RETURNS
028BA0: 20 54 48 45 20 43 55 52 52 45 4E 54 20 44 41 54 THE CURRENT DAT
028BB0: 45 20 49 4E 20 4D 24 0D 0A 33 32 35 30 20 52 45 E IN M$..3250 RE
028BC0: 4D 20 20 20 20 20 49 46 20 59 4F 55 20 48 41 56 M IF YOU HAV
028BD0: 45 20 53 59 53 54 45 4D 20 46 55 4E 43 54 49 4F E SYSTEM FUNCTIO
028BE0: 4E 53 20 54 4F 20 48 41 4E 44 4C 45 20 54 48 49 NS TO HANDLE THI
028BF0: 53 0D 0A 33 32 36 30 20 52 45 4D 20 20 20 20 20 S..3260 REM
028C00: 4F 54 4F 20 32 31 31 30 0D 0A 32 32 35 30 20 52 OTO 2110..2250 R
028C10: 45 4D 20 20 46 49 52 53 54 20 43 4F 4C 55 4D 4E EM FIRST COLUMN
028C20: 28 34 30 29 20 32 3A 31 0D 0A 32 32 36 30 20 46 (40) 2:1..2260 F
028C30: 4F 52 20 49 3D 31 20 54 4F 20 33 34 20 53 54 45 OR I=1 TO 34 STE
028C40: 50 20 33 0D 0A 32 32 37 30 20 49 46 20 53 3D 49 P 3..2270 IF S=I
028C50: 20 54 48 45 4E 20 32 31 35 30 0D 0A 32 32 38 30 THEN 2150..2280
028C60: 20 4E 45 58 54 20 49 0D 0A 32 32 39 30 20 47 4F NEXT I..2290 GO
028C70: 54 4F 20 32 31 31 30 0D 0A 32 33 30 30 20 52 45 TO 2110..2300 RE
028C80: 4D 20 20 53 45 43 4F 4E 44 20 43 4F 4C 55 4D 4E M SECOND COLUMN
028C90: 28 34 31 29 20 32 3A 31 0D 0A 32 33 31 30 20 46 (41) 2:1..2310 F
028CA0: 4F 52 20 49 3D 32 20 54 4F 20 33 35 20 53 54 45 OR I=2 TO 35 STE
028CB0: 50 20 33 0D 0A 32 33 32 30 20 49 46 20 53 3D 49 P 3..2320 IF S=I
028CC0: 20 54 48 45 4E 20 32 31 35 30 0D 0A 32 33 33 30 THEN 2150..2330
028CD0: 20 4E 45 58 54 20 49 0D 0A 32 33 34 30 20 47 4F NEXT I..2340 GO
028CE0: 54 4F 20 32 31 31 30 0D 0A 32 33 35 30 20 52 45 TO 2110..2350 RE
028CF0: 4D 20 20 54 48 49 52 44 20 43 4F 4C 55 4D 4E 28 M THIRD COLUMN(
028D00: 34 32 29 20 32 3A 31 0D 0A 32 33 36 30 20 46 4F 42) 2:1..2360 FO
028D10: 52 20 49 3D 33 20 54 4F 20 33 36 20 53 54 45 50 R I=3 TO 36 STEP
028D20: 20 33 0D 0A 32 33 37 30 20 49 46 20 53 3D 49 20 3..2370 IF S=I
028D30: 54 48 45 4E 20 32 31 35 30 0D 0A 32 33 38 30 20 THEN 2150..2380
028D40: 4E 45 58 54 20 49 0D 0A 32 33 39 30 20 47 4F 54 NEXT I..2390 GOT
028D50: 4F 20 32 31 31 30 0D 0A 32 34 30 30 20 52 45 4D O 2110..2400 REM
028D60: 20 20 31 2D 31 38 28 34 33 29 20 31 3A 31 0D 0A 1-18(43) 1:1..
028D70: 32 34 31 30 20 49 46 20 53 3C 31 39 20 54 48 45 2410 IF S<19 THE
028D80: 4E 20 32 34 33 30 0D 0A 32 34 32 30 20 47 4F 54 N 2430..2420 GOT
028D90: 4F 20 32 31 31 30 0D 0A 32 34 33 30 20 50 52 49 O 2110..2430 PRI
028DA0: 4E 54 20 22 59 4F 55 20 57 49 4E 22 3B 42 28 43 NT "YOU WIN";B(C
028DB0: 29 3B 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 45 );"DOLLARS ON BE
028DC0: 54 22 3B 43 0D 0A 32 34 34 30 20 44 3D 44 2D 42 T";C..2440 D=D-B
028DD0: 28 43 29 0D 0A 32 34 35 30 20 50 3D 50 2B 42 28 (C)..2450 P=P+B(
028DE0: 43 29 0D 0A 32 34 36 30 20 47 4F 54 4F 20 32 38 C)..2460 GOTO 28
028DF0: 31 30 0D 0A 32 34 37 30 20 52 45 4D 20 20 31 39 10..2470 REM 19
028E00: 54 48 45 59 20 43 41 4E 20 42 45 20 55 53 45 44 THEY CAN BE USED
028E10: 20 48 45 52 45 2E 20 20 48 4F 57 45 56 45 52 20 HERE. HOWEVER
028E20: 49 4E 20 54 48 49 53 0D 0A 33 32 37 30 20 52 45 IN THIS..3270 RE
028E30: 4D 20 20 20 20 20 50 52 4F 47 52 41 4D 2C 20 57 M PROGRAM, W
028E40: 45 20 4A 55 53 54 20 49 4E 50 55 54 20 54 48 45 E JUST INPUT THE
028E50: 20 44 41 54 45 20 41 54 20 54 48 45 20 53 54 41 DATE AT THE STA
028E60: 52 54 0D 0A 33 32 38 30 20 52 45 4D 20 20 20 20 RT..3280 REM
028E70: 20 54 48 45 20 47 41 4D 45 0D 0A 33 32 39 30 20 THE GAME..3290
028E80: 52 45 4D 0D 0A 33 33 30 30 20 52 45 4D 20 20 20 REM..3300 REM
028E90: 20 20 54 48 45 20 44 41 54 45 20 49 53 20 52 45 THE DATE IS RE
028EA0: 54 55 52 4E 45 44 20 49 4E 20 56 41 52 49 41 42 TURNED IN VARIAB
028EB0: 4C 45 20 4D 24 0D 0A 33 33 31 30 20 4D 24 3D 44 LE M$..3310 M$=D
028EC0: 24 2B 22 2C 20 22 2B 45 24 0D 0A 33 33 32 30 20 $+", "+E$..3320
028ED0: 52 45 54 55 52 4E 0D 0A 33 34 32 30 20 45 4E 44 RETURN..3420 END
028EE0: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029000: 2D 33 36 28 34 34 29 20 31 3A 31 0D 0A 32 34 38 -36(44) 1:1..248
029010: 30 20 49 46 20 53 3C 33 37 20 41 4E 44 20 53 3E 0 IF S<37 AND S>
029020: 31 38 20 54 48 45 4E 20 32 34 33 30 0D 0A 32 34 18 THEN 2430..24
029030: 39 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 32 35 90 GOTO 2110..25
029040: 30 30 20 52 45 4D 20 20 45 56 45 4E 28 34 35 29 00 REM EVEN(45)
029050: 20 31 3A 31 0D 0A 32 35 31 30 20 49 46 20 53 2F 1:1..2510 IF S/
029060: 32 3D 49 4E 54 28 53 2F 32 29 20 41 4E 44 20 53 2=INT(S/2) AND S
029070: 3C 33 37 20 54 48 45 4E 20 32 34 33 30 0D 0A 32 <37 THEN 2430..2
029080: 35 32 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 32 520 GOTO 2110..2
029090: 35 33 30 20 52 45 4D 20 20 4F 44 44 28 34 36 29 530 REM ODD(46)
0290A0: 20 31 3A 31 0D 0A 32 35 34 30 20 49 46 20 53 2F 1:1..2540 IF S/
0290B0: 32 3C 3E 49 4E 54 28 53 2F 32 29 20 41 4E 44 20 2<>INT(S/2) AND
0290C0: 53 3C 33 37 20 54 48 45 4E 20 32 34 33 30 0D 0A S<37 THEN 2430..
0290D0: 32 35 35 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 2550 GOTO 2110..
0290E0: 32 35 36 30 20 52 45 4D 20 20 52 45 44 28 34 37 2560 REM RED(47
0290F0: 29 20 31 3A 31 0D 0A 32 35 37 30 20 52 45 53 54 ) 1:1..2570 REST
029100: 4F 52 45 20 0D 0A 32 35 38 30 20 46 4F 52 20 49 ORE ..2580 FOR I
029110: 3D 31 20 54 4F 20 31 38 0D 0A 32 35 39 30 20 52 =1 TO 18..2590 R
029120: 45 41 44 20 52 0D 0A 32 36 30 30 20 49 46 20 53 EAD R..2600 IF S
029130: 3D 52 20 54 48 45 4E 20 32 34 33 30 0D 0A 32 36 =R THEN 2430..26
029140: 31 30 20 4E 45 58 54 20 49 0D 0A 32 36 32 30 20 10 NEXT I..2620
029150: 47 4F 54 4F 20 32 31 31 30 0D 0A 32 36 33 30 20 GOTO 2110..2630
029160: 52 45 4D 20 20 42 4C 41 43 4B 28 34 38 29 20 31 REM BLACK(48) 1
029170: 3A 31 0D 0A 32 36 34 30 20 52 45 53 54 4F 52 45 :1..2640 RESTORE
029180: 20 0D 0A 32 36 35 30 20 46 4F 52 20 49 3D 31 20 ..2650 FOR I=1
029190: 54 4F 20 31 38 0D 0A 32 36 36 30 20 52 45 41 44 TO 18..2660 READ
0291A0: 20 52 0D 0A 32 36 37 30 20 49 46 20 53 3D 52 20 R..2670 IF S=R
0291B0: 54 48 45 4E 20 32 31 31 30 0D 0A 32 36 38 30 20 THEN 2110..2680
0291C0: 4E 45 58 54 20 49 0D 0A 32 36 39 30 20 49 46 20 NEXT I..2690 IF
0291D0: 53 3E 33 36 20 54 48 45 4E 20 32 31 31 30 0D 0A S>36 THEN 2110..
0291E0: 32 37 30 30 20 47 4F 54 4F 20 32 34 33 30 0D 0A 2700 GOTO 2430..
0291F0: 32 37 31 30 20 52 45 4D 2D 2D 31 54 4F 33 36 2C 2710 REM--1TO36,
029200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029400: 30 2C 30 30 28 31 2D 33 36 2C 34 39 2C 35 30 29 0,00(1-36,49,50)
029410: 33 35 3A 31 0D 0A 32 37 32 30 20 49 46 20 54 28 35:1..2720 IF T(
029420: 43 29 3C 34 39 20 54 48 45 4E 20 32 37 36 30 0D C)<49 THEN 2760.
029430: 0A 32 37 33 30 20 49 46 20 54 28 43 29 3D 34 39 .2730 IF T(C)=49
029440: 20 41 4E 44 20 53 3D 33 37 20 54 48 45 4E 20 32 AND S=37 THEN 2
029450: 37 38 30 0D 0A 32 37 34 30 20 49 46 20 54 28 43 780..2740 IF T(C
029460: 29 3D 35 30 20 41 4E 44 20 53 3D 33 38 20 54 48 )=50 AND S=38 TH
029470: 45 4E 20 32 37 38 30 0D 0A 32 37 35 30 20 47 4F EN 2780..2750 GO
029480: 54 4F 20 32 31 31 30 0D 0A 32 37 36 30 20 49 46 TO 2110..2760 IF
029490: 20 54 28 43 29 3D 53 20 54 48 45 4E 20 32 37 38 T(C)=S THEN 278
0294A0: 30 0D 0A 32 37 37 30 20 47 4F 54 4F 20 32 31 31 0..2770 GOTO 211
0294B0: 30 0D 0A 32 37 38 30 20 50 52 49 4E 54 20 22 59 0..2780 PRINT "Y
0294C0: 4F 55 20 57 49 4E 22 3B 42 28 43 29 2A 33 35 3B OU WIN";B(C)*35;
0294D0: 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 45 54 22 "DOLLARS ON BET"
0294E0: 3B 43 0D 0A 32 37 39 30 20 44 3D 44 2D 42 28 43 ;C..2790 D=D-B(C
0294F0: 29 2A 33 35 0D 0A 32 38 30 30 20 50 3D 50 2B 42 )*35..2800 P=P+B
029500: 28 43 29 2A 33 35 0D 0A 32 38 31 30 20 4E 45 58 (C)*35..2810 NEX
029510: 54 20 43 0D 0A 32 38 32 30 20 50 52 49 4E 54 20 T C..2820 PRINT
029520: 0D 0A 32 38 33 30 20 50 52 49 4E 54 20 22 54 4F ..2830 PRINT "TO
029530: 54 41 4C 53 3A 22 2C 22 4D 45 22 2C 22 59 4F 55 TALS:","ME","YOU
029540: 22 0D 0A 32 38 34 30 20 50 52 49 4E 54 20 22 20 "..2840 PRINT "
029550: 22 2C 44 2C 50 0D 0A 32 38 35 30 20 49 46 20 50 ",D,P..2850 IF P
029560: 3E 30 20 54 48 45 4E 20 32 38 38 30 0D 0A 32 38 >0 THEN 2880..28
029570: 36 30 20 50 52 49 4E 54 20 22 4F 4F 50 53 21 20 60 PRINT "OOPS!
029580: 59 4F 55 20 4A 55 53 54 20 53 50 45 4E 54 20 59 YOU JUST SPENT Y
029590: 4F 55 52 20 4C 41 53 54 20 44 4F 4C 4C 41 52 21 OUR LAST DOLLAR!
0295A0: 22 0D 0A 32 38 37 30 20 47 4F 54 4F 20 33 31 39 "..2870 GOTO 319
0295B0: 30 0D 0A 32 38 38 30 20 49 46 20 44 3E 30 20 54 0..2880 IF D>0 T
0295C0: 48 45 4E 20 32 39 32 30 0D 0A 32 38 39 30 20 50 HEN 2920..2890 P
0295D0: 52 49 4E 54 20 22 59 4F 55 20 42 52 4F 4B 45 20 RINT "YOU BROKE
0295E0: 54 48 45 20 48 4F 55 53 45 21 22 0D 0A 32 39 30 THE HOUSE!"..290
0295F0: 30 20 50 3D 31 30 31 30 30 30 2E 0D 0A 32 39 31 0 P=101000...291
029600: 31 20 50 52 49 4E 54 20 54 41 42 28 32 38 29 3B 1 PRINT TAB(28);
029610: 22 52 55 53 53 49 41 4E 20 52 4F 55 4C 45 54 54 "RUSSIAN ROULETT
029620: 45 22 0D 0A 32 20 50 52 49 4E 54 20 54 41 42 28 E"..2 PRINT TAB(
029630: 31 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 15);"CREATIVE CO
029640: 4D 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 MPUTING MORRIST
029650: 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 OWN, NEW JERSEY"
029660: 0D 0A 33 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A ..3 PRINT:PRINT:
029670: 50 52 49 4E 54 0D 0A 35 20 50 52 49 4E 54 20 22 PRINT..5 PRINT "
029680: 54 48 49 53 20 49 53 20 41 20 47 41 4D 45 20 4F THIS IS A GAME O
029690: 46 20 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 52 55 53 53 F >>>>>>>>>>RUSS
0296A0: 49 41 4E 20 52 4F 55 4C 45 54 54 45 2E 22 0D 0A IAN ROULETTE."..
0296B0: 31 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 10 PRINT:PRINT "
0296C0: 48 45 52 45 20 49 53 20 41 20 52 45 56 4F 4C 56 HERE IS A REVOLV
0296D0: 45 52 2E 22 0D 0A 32 30 20 50 52 49 4E 54 20 22 ER."..20 PRINT "
0296E0: 54 59 50 45 20 27 31 27 20 54 4F 20 53 50 49 4E TYPE '1' TO SPIN
0296F0: 20 43 48 41 4D 42 45 52 20 41 4E 44 20 50 55 4C CHAMBER AND PUL
029700: 4C 20 54 52 49 47 47 45 52 2E 22 0D 0A 32 32 20 L TRIGGER."..22
029710: 50 52 49 4E 54 20 22 54 59 50 45 20 27 32 27 20 PRINT "TYPE '2'
029720: 54 4F 20 47 49 56 45 20 55 50 2E 22 0D 0A 32 33 TO GIVE UP."..23
029730: 20 50 52 49 4E 54 20 22 47 4F 22 3B 0D 0A 32 35 PRINT "GO";..25
029740: 20 4E 3D 30 0D 0A 33 30 20 49 4E 50 55 54 20 49 N=0..30 INPUT I
029750: 0D 0A 33 31 20 49 46 20 49 3C 3E 32 20 54 48 45 ..31 IF I<>2 THE
029760: 4E 20 33 35 0D 0A 33 32 20 50 52 49 4E 54 20 22 N 35..32 PRINT "
029770: 20 20 20 20 20 43 48 49 43 4B 45 4E 21 21 21 21 CHICKEN!!!!
029780: 21 22 0D 0A 33 33 20 47 4F 54 4F 20 37 32 0D 0A !"..33 GOTO 72..
029790: 33 35 20 4E 3D 4E 2B 31 0D 0A 34 30 20 49 46 20 35 N=N+1..40 IF
0297A0: 52 4E 44 28 31 29 3E 2E 38 33 33 33 33 33 20 54 RND(1)>.833333 T
0297B0: 48 45 4E 20 37 30 0D 0A 34 35 20 49 46 20 4E 3E HEN 70..45 IF N>
0297C0: 31 30 20 54 48 45 4E 20 38 30 0D 0A 35 30 20 50 10 THEN 80..50 P
0297D0: 52 49 4E 54 20 22 2D 20 43 4C 49 43 4B 20 2D 22 RINT "- CLICK -"
0297E0: 0D 0A 36 30 20 50 52 49 4E 54 3A 20 47 4F 54 4F ..60 PRINT: GOTO
0297F0: 20 33 30 0D 0A 37 30 20 50 52 49 4E 54 20 22 20 30..70 PRINT "
029800: 30 20 47 4F 54 4F 20 32 39 36 30 0D 0A 32 39 32 0 GOTO 2960..292
029810: 30 20 50 52 49 4E 54 20 22 41 47 41 49 4E 22 3B 0 PRINT "AGAIN";
029820: 0D 0A 32 39 33 30 20 49 4E 50 55 54 20 59 24 0D ..2930 INPUT Y$.
029830: 0A 32 39 34 30 20 49 46 20 4C 45 46 54 24 28 59 .2940 IF LEFT$(Y
029840: 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 31 36 $,1)="Y" THEN 16
029850: 33 30 0D 0A 32 39 35 30 20 44 41 54 41 20 31 2C 30..2950 DATA 1,
029860: 33 2C 35 2C 37 2C 39 2C 31 32 2C 31 34 2C 31 36 3,5,7,9,12,14,16
029870: 2C 31 38 2C 31 39 2C 32 31 2C 32 33 2C 32 35 2C ,18,19,21,23,25,
029880: 32 37 2C 33 30 2C 33 32 2C 33 34 2C 33 36 0D 0A 27,30,32,34,36..
029890: 32 39 36 30 20 49 46 20 50 3C 31 20 54 48 45 4E 2960 IF P<1 THEN
0298A0: 20 33 31 39 30 0D 0A 32 39 37 30 20 50 52 49 4E 3190..2970 PRIN
0298B0: 54 20 22 54 4F 20 57 48 4F 4D 20 53 48 41 4C 4C T "TO WHOM SHALL
0298C0: 20 49 20 4D 41 4B 45 20 54 48 45 20 43 48 45 43 I MAKE THE CHEC
0298D0: 4B 22 3B 0D 0A 32 39 38 30 20 49 4E 50 55 54 20 K";..2980 INPUT
0298E0: 42 24 0D 0A 32 39 39 30 20 50 52 49 4E 54 20 0D B$..2990 PRINT .
0298F0: 0A 33 30 30 30 20 46 4F 52 20 49 3D 31 20 54 4F .3000 FOR I=1 TO
029900: 20 37 32 3A 20 50 52 49 4E 54 20 22 2D 22 3B 3A 72: PRINT "-";:
029910: 20 4E 45 58 54 20 49 3A 20 52 45 4D 20 50 52 49 NEXT I: REM PRI
029920: 4E 54 20 37 32 20 44 41 53 48 45 53 0D 0A 33 30 NT 72 DASHES..30
029930: 31 30 20 50 52 49 4E 54 20 54 41 42 28 35 30 29 10 PRINT TAB(50)
029940: 3B 22 43 48 45 43 4B 20 4E 4F 2E 20 22 3B 49 4E ;"CHECK NO. ";IN
029950: 54 28 52 4E 44 28 31 29 2A 31 30 30 29 0D 0A 33 T(RND(1)*100)..3
029960: 30 32 30 20 50 52 49 4E 54 20 0D 0A 33 30 33 30 020 PRINT ..3030
029970: 20 47 4F 53 55 42 20 33 32 33 30 0D 0A 33 30 34 GOSUB 3230..304
029980: 30 20 50 52 49 4E 54 20 54 41 42 28 34 30 29 3B 0 PRINT TAB(40);
029990: 4D 24 0D 0A 33 30 35 30 20 50 52 49 4E 54 20 0D M$..3050 PRINT .
0299A0: 0A 33 30 36 30 20 50 52 49 4E 54 20 0D 0A 33 30 .3060 PRINT ..30
0299B0: 37 30 20 50 52 49 4E 54 20 22 50 41 59 20 54 4F 70 PRINT "PAY TO
0299C0: 20 54 48 45 20 4F 52 44 45 52 20 4F 46 2D 2D 2D THE ORDER OF---
0299D0: 2D 2D 22 3B 42 24 3B 22 2D 2D 2D 2D 2D 24 20 22 --";B$;"-----$ "
0299E0: 3B 0D 0A 33 30 38 30 20 50 52 49 4E 54 20 50 0D ;..3080 PRINT P.
0299F0: 0A 33 30 39 30 20 50 52 49 4E 54 20 0D 0A 33 31 .3090 PRINT ..31
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 00 00 02 09 52 E5 23 00 C1 02 00 00 00 02 #.....R.#.......
029A20: 23 00 C6 02 00 00 00 02 23 00 C2 02 00 00 00 02 #.......#.......
029A30: 23 00 C7 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A40: 23 00 C8 02 00 00 00 02 23 00 C4 02 00 00 00 02 #.......#.......
029A50: 23 00 C9 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 20 20 20 20 42 41 4E 47 21 21 21 21 21 20 20 20 BANG!!!!!
029B10: 59 4F 55 27 52 45 20 44 45 41 44 21 22 0D 0A 37 YOU'RE DEAD!"..7
029B20: 31 20 50 52 49 4E 54 20 22 43 4F 4E 44 4F 4C 45 1 PRINT "CONDOLE
029B30: 4E 43 45 53 20 57 49 4C 4C 20 42 45 20 53 45 4E NCES WILL BE SEN
029B40: 54 20 54 4F 20 59 4F 55 52 20 52 45 4C 41 54 49 T TO YOUR RELATI
029B50: 56 45 53 2E 22 0D 0A 37 32 20 50 52 49 4E 54 3A VES."..72 PRINT:
029B60: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 37 35 20 PRINT:PRINT..75
029B70: 50 52 49 4E 54 20 22 2E 2E 2E 4E 45 58 54 20 56 PRINT "...NEXT V
029B80: 49 43 54 49 4D 2E 2E 2E 22 3A 47 4F 54 4F 20 32 ICTIM...":GOTO 2
029B90: 30 0D 0A 38 30 20 50 52 49 4E 54 20 22 59 4F 55 0..80 PRINT "YOU
029BA0: 20 57 49 4E 21 21 21 21 21 22 0D 0A 38 35 20 50 WIN!!!!!"..85 P
029BB0: 52 49 4E 54 20 22 4C 45 54 20 53 4F 4D 45 4F 4E RINT "LET SOMEON
029BC0: 45 20 45 4C 53 45 20 42 4C 4F 57 20 48 49 53 20 E ELSE BLOW HIS
029BD0: 42 52 41 49 4E 53 20 4F 55 54 2E 22 0D 0A 39 30 BRAINS OUT."..90
029BE0: 20 47 4F 54 4F 20 31 30 0D 0A 39 39 20 45 4E 44 GOTO 10..99 END
029BF0: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D00: 37 31 30 0D 0A 31 38 39 30 20 43 3D 30 0D 0A 31 710..1890 C=0..1
029D10: 39 30 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 900 PRINT "DO YO
029D20: 55 20 57 41 4E 54 20 54 4F 20 53 45 45 20 4D 59 U WANT TO SEE MY
029D30: 20 53 48 4F 54 53 22 3B 0D 0A 31 39 31 30 20 49 SHOTS";..1910 I
029D40: 4E 50 55 54 20 4B 24 0D 0A 31 39 32 30 20 50 52 NPUT K$..1920 PR
029D50: 49 4E 54 0D 0A 31 39 33 30 20 49 46 20 4A 24 3C INT..1930 IF J$<
029D60: 3E 22 59 45 53 22 20 54 48 45 4E 20 32 36 32 30 >"YES" THEN 2620
029D70: 0D 0A 31 39 34 30 20 52 45 4D 2A 2A 2A 2A 2A 2A ..1940 REM******
029D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 54 41 *************STA
029D90: 52 54 0D 0A 31 39 35 30 20 49 46 20 4A 24 3C 3E RT..1950 IF J$<>
029DA0: 22 59 45 53 22 20 54 48 45 4E 20 31 39 39 30 0D "YES" THEN 1990.
029DB0: 0A 31 39 36 30 20 43 3D 43 2B 31 0D 0A 31 39 37 .1960 C=C+1..197
029DC0: 30 20 50 52 49 4E 54 0D 0A 31 39 38 30 20 50 52 0 PRINT..1980 PR
029DD0: 49 4E 54 20 22 54 55 52 4E 22 3B 43 0D 0A 31 39 INT "TURN";C..19
029DE0: 39 30 20 41 3D 30 0D 0A 32 30 30 30 20 46 4F 52 90 A=0..2000 FOR
029DF0: 20 57 3D 2E 35 20 54 4F 20 33 20 53 54 45 50 20 W=.5 TO 3 STEP
029E00: 2E 35 0D 0A 32 30 31 30 20 46 4F 52 20 58 3D 31 .5..2010 FOR X=1
029E10: 20 54 4F 20 31 30 0D 0A 32 30 32 30 20 46 4F 52 TO 10..2020 FOR
029E20: 20 59 3D 31 20 54 4F 20 31 30 0D 0A 32 30 33 30 Y=1 TO 10..2030
029E30: 20 49 46 20 42 28 58 2C 59 29 3D 57 20 54 48 45 IF B(X,Y)=W THE
029E40: 4E 20 32 30 37 30 0D 0A 32 30 34 30 20 4E 45 58 N 2070..2040 NEX
029E50: 54 20 59 0D 0A 32 30 35 30 20 4E 45 58 54 20 58 T Y..2050 NEXT X
029E60: 0D 0A 32 30 36 30 20 47 4F 54 4F 20 32 30 38 30 ..2060 GOTO 2080
029E70: 0D 0A 32 30 37 30 20 41 3D 41 2B 49 4E 54 28 57 ..2070 A=A+INT(W
029E80: 2B 2E 35 29 0D 0A 32 30 38 30 20 4E 45 58 54 20 +.5)..2080 NEXT
029E90: 57 0D 0A 32 30 39 30 20 46 4F 52 20 57 3D 31 20 W..2090 FOR W=1
029EA0: 54 4F 20 37 0D 0A 32 31 30 30 20 43 28 57 29 3D TO 7..2100 C(W)=
029EB0: 30 0D 0A 32 31 31 30 20 44 28 57 29 3D 30 0D 0A 0..2110 D(W)=0..
029EC0: 32 31 32 30 20 46 28 57 29 3D 30 0D 0A 32 31 33 2120 F(W)=0..213
029ED0: 30 20 47 28 57 29 3D 30 0D 0A 32 31 34 30 20 4E 0 G(W)=0..2140 N
029EE0: 45 58 54 20 57 0D 0A 32 31 35 30 20 50 33 3D 30 EXT W..2150 P3=0
029EF0: 0D 0A 32 31 36 30 20 46 4F 52 20 58 3D 31 20 54 ..2160 FOR X=1 T
029F00: 31 30 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 1000 PRINT TAB(3
029F10: 33 29 3B 22 53 41 4C 56 4F 22 0D 0A 31 30 31 30 3);"SALVO"..1010
029F20: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
029F30: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
029F40: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
029F50: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 31 30 32 NEW JERSEY"..102
029F60: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 0 PRINT:PRINT:PR
029F70: 49 4E 54 0D 0A 31 30 33 30 20 52 45 4D 0D 0A 31 INT..1030 REM..1
029F80: 30 34 30 20 44 49 4D 20 41 28 31 30 2C 31 30 29 040 DIM A(10,10)
029F90: 2C 42 28 31 30 2C 31 30 29 2C 43 28 37 29 2C 44 ,B(10,10),C(7),D
029FA0: 28 37 29 2C 45 28 31 32 29 2C 46 28 31 32 29 2C (7),E(12),F(12),
029FB0: 47 28 31 32 29 2C 48 28 31 32 29 2C 4B 28 31 30 G(12),H(12),K(10
029FC0: 2C 31 30 29 0D 0A 31 30 35 30 20 5A 38 3D 30 0D ,10)..1050 Z8=0.
029FD0: 0A 31 30 36 30 20 46 4F 52 20 57 3D 31 20 54 4F .1060 FOR W=1 TO
029FE0: 20 31 32 0D 0A 31 30 37 30 20 45 28 57 29 3D 2D 12..1070 E(W)=-
029FF0: 31 0D 0A 31 30 38 30 20 48 28 57 29 3D 2D 31 0D 1..1080 H(W)=-1.
02A000: 0A 31 30 39 30 20 4E 45 58 54 20 57 0D 0A 31 31 .1090 NEXT W..11
02A010: 30 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 31 30 00 FOR X=1 TO 10
02A020: 0D 0A 31 31 31 30 20 46 4F 52 20 59 3D 31 20 54 ..1110 FOR Y=1 T
02A030: 4F 20 31 30 0D 0A 31 31 32 30 20 42 28 58 2C 59 O 10..1120 B(X,Y
02A040: 29 3D 30 0D 0A 31 31 33 30 20 4E 45 58 54 20 59 )=0..1130 NEXT Y
02A050: 0D 0A 31 31 34 30 20 4E 45 58 54 20 58 0D 0A 31 ..1140 NEXT X..1
02A060: 31 35 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 31 150 FOR X=1 TO 1
02A070: 32 0D 0A 31 31 36 30 20 46 28 58 29 3D 30 0D 0A 2..1160 F(X)=0..
02A080: 31 31 37 30 20 47 28 58 29 3D 30 0D 0A 31 31 38 1170 G(X)=0..118
02A090: 30 20 4E 45 58 54 20 58 0D 0A 31 31 39 30 20 46 0 NEXT X..1190 F
02A0A0: 4F 52 20 58 3D 31 20 54 4F 20 31 30 0D 0A 31 32 OR X=1 TO 10..12
02A0B0: 30 30 20 46 4F 52 20 59 3D 31 20 54 4F 20 31 30 00 FOR Y=1 TO 10
02A0C0: 0D 0A 31 32 31 30 20 41 28 58 2C 59 29 3D 30 0D ..1210 A(X,Y)=0.
02A0D0: 0A 31 32 32 30 20 4E 45 58 54 20 59 0D 0A 31 32 .1220 NEXT Y..12
02A0E0: 33 30 20 4E 45 58 54 20 58 0D 0A 31 32 34 30 20 30 NEXT X..1240
02A0F0: 46 4F 52 20 4B 3D 34 20 54 4F 20 31 20 53 54 45 FOR K=4 TO 1 STE
02A100: 4F 20 31 30 0D 0A 32 31 37 30 20 46 4F 52 20 59 O 10..2170 FOR Y
02A110: 3D 31 20 54 4F 20 31 30 0D 0A 32 31 38 30 20 49 =1 TO 10..2180 I
02A120: 46 20 41 28 58 2C 59 29 3E 31 30 20 54 48 45 4E F A(X,Y)>10 THEN
02A130: 20 32 32 30 30 0D 0A 32 31 39 30 20 50 33 3D 50 2200..2190 P3=P
02A140: 33 2B 31 0D 0A 32 32 30 30 20 4E 45 58 54 20 59 3+1..2200 NEXT Y
02A150: 0D 0A 32 32 31 30 20 4E 45 58 54 20 58 0D 0A 32 ..2210 NEXT X..2
02A160: 32 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 48 220 PRINT "YOU H
02A170: 41 56 45 22 3B 41 3B 22 53 48 4F 54 53 2E 22 0D AVE";A;"SHOTS.".
02A180: 0A 32 32 33 30 20 49 46 20 50 33 3E 3D 41 20 54 .2230 IF P3>=A T
02A190: 48 45 4E 20 32 32 36 30 0D 0A 32 32 34 30 20 50 HEN 2260..2240 P
02A1A0: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 4D RINT "YOU HAVE M
02A1B0: 4F 52 45 20 53 48 4F 54 53 20 54 48 41 4E 20 54 ORE SHOTS THAN T
02A1C0: 48 45 52 45 20 41 52 45 20 42 4C 41 4E 4B 20 53 HERE ARE BLANK S
02A1D0: 51 55 41 52 45 53 2E 22 0D 0A 32 32 35 30 20 47 QUARES."..2250 G
02A1E0: 4F 54 4F 20 32 38 39 30 0D 0A 32 32 36 30 20 49 OTO 2890..2260 I
02A1F0: 46 20 41 3C 3E 30 20 54 48 45 4E 20 32 32 39 30 F A<>0 THEN 2290
02A200: 0D 0A 32 32 37 30 20 50 52 49 4E 54 20 22 49 20 ..2270 PRINT "I
02A210: 48 41 56 45 20 57 4F 4E 2E 22 0D 0A 32 32 38 30 HAVE WON."..2280
02A220: 20 53 54 4F 50 0D 0A 32 32 39 30 20 46 4F 52 20 STOP..2290 FOR
02A230: 57 3D 31 20 54 4F 20 41 0D 0A 32 33 30 30 20 49 W=1 TO A..2300 I
02A240: 4E 50 55 54 20 58 2C 59 0D 0A 32 33 31 30 20 49 NPUT X,Y..2310 I
02A250: 46 20 58 3C 3E 49 4E 54 28 58 29 20 54 48 45 4E F X<>INT(X) THEN
02A260: 20 32 33 37 30 0D 0A 32 33 32 30 20 49 46 20 58 2370..2320 IF X
02A270: 3E 31 30 20 54 48 45 4E 20 32 33 37 30 0D 0A 32 >10 THEN 2370..2
02A280: 33 33 30 20 49 46 20 58 3C 31 20 54 48 45 4E 20 330 IF X<1 THEN
02A290: 32 33 37 30 0D 0A 32 33 34 30 20 49 46 20 59 3C 2370..2340 IF Y<
02A2A0: 3E 49 4E 54 28 59 29 20 54 48 45 4E 20 32 33 37 >INT(Y) THEN 237
02A2B0: 30 0D 0A 32 33 35 30 20 49 46 20 59 3E 31 30 20 0..2350 IF Y>10
02A2C0: 54 48 45 4E 20 32 33 37 30 0D 0A 32 33 36 30 20 THEN 2370..2360
02A2D0: 49 46 20 59 3E 3D 31 20 54 48 45 4E 20 32 33 39 IF Y>=1 THEN 239
02A2E0: 30 0D 0A 32 33 37 30 20 50 52 49 4E 54 20 22 49 0..2370 PRINT "I
02A2F0: 4C 4C 45 47 41 4C 2C 20 45 4E 54 45 52 20 41 47 LLEGAL, ENTER AG
02A300: 50 20 2D 31 0D 0A 31 32 35 30 20 55 36 3D 30 0D P -1..1250 U6=0.
02A310: 0A 31 32 36 30 20 47 4F 53 55 42 20 32 39 31 30 .1260 GOSUB 2910
02A320: 0D 0A 31 32 37 30 20 44 45 46 20 46 4E 41 28 4B ..1270 DEF FNA(K
02A330: 29 3D 28 35 2D 4B 29 2A 33 2D 32 2A 49 4E 54 28 )=(5-K)*3-2*INT(
02A340: 4B 2F 34 29 2B 53 47 4E 28 4B 2D 31 29 2D 31 0D K/4)+SGN(K-1)-1.
02A350: 0A 31 32 38 30 20 44 45 46 20 46 4E 42 28 4B 29 .1280 DEF FNB(K)
02A360: 3D 4B 2B 49 4E 54 28 4B 2F 34 29 2D 53 47 4E 28 =K+INT(K/4)-SGN(
02A370: 4B 2D 31 29 0D 0A 31 32 39 30 20 49 46 20 56 2B K-1)..1290 IF V+
02A380: 56 32 2B 56 2A 56 32 3D 30 20 54 48 45 4E 20 31 V2+V*V2=0 THEN 1
02A390: 32 36 30 0D 0A 31 33 30 30 20 49 46 20 59 2B 56 260..1300 IF Y+V
02A3A0: 2A 46 4E 42 28 4B 29 3E 31 30 20 54 48 45 4E 20 *FNB(K)>10 THEN
02A3B0: 31 32 36 30 0D 0A 31 33 31 30 20 49 46 20 59 2B 1260..1310 IF Y+
02A3C0: 56 2A 46 4E 42 28 4B 29 3C 31 20 54 48 45 4E 20 V*FNB(K)<1 THEN
02A3D0: 31 32 36 30 0D 0A 31 33 32 30 20 49 46 20 58 2B 1260..1320 IF X+
02A3E0: 56 32 2A 46 4E 42 28 4B 29 3E 31 30 20 54 48 45 V2*FNB(K)>10 THE
02A3F0: 4E 20 31 32 36 30 0D 0A 31 33 33 30 20 49 46 20 N 1260..1330 IF
02A400: 58 2B 56 32 2A 46 4E 42 28 4B 29 3C 31 20 54 48 X+V2*FNB(K)<1 TH
02A410: 45 4E 20 31 32 36 30 0D 0A 31 33 34 30 20 55 36 EN 1260..1340 U6
02A420: 3D 55 36 2B 31 0D 0A 31 33 35 30 20 49 46 20 55 =U6+1..1350 IF U
02A430: 36 3E 32 35 20 54 48 45 4E 20 31 31 39 30 0D 0A 6>25 THEN 1190..
02A440: 31 33 36 30 20 46 4F 52 20 5A 3D 30 20 54 4F 20 1360 FOR Z=0 TO
02A450: 46 4E 42 28 4B 29 0D 0A 31 33 37 30 20 46 28 5A FNB(K)..1370 F(Z
02A460: 2B 46 4E 41 28 4B 29 29 3D 58 2B 56 32 2A 5A 0D +FNA(K))=X+V2*Z.
02A470: 0A 31 33 38 30 20 47 28 5A 2B 46 4E 41 28 4B 29 .1380 G(Z+FNA(K)
02A480: 29 3D 59 2B 56 2A 5A 0D 0A 31 33 39 30 20 4E 45 )=Y+V*Z..1390 NE
02A490: 58 54 20 5A 0D 0A 31 34 30 30 20 55 38 3D 46 4E XT Z..1400 U8=FN
02A4A0: 41 28 4B 29 0D 0A 31 34 30 35 20 49 46 20 55 38 A(K)..1405 IF U8
02A4B0: 3E 55 38 2B 46 4E 42 28 4B 29 20 54 48 45 4E 20 >U8+FNB(K) THEN
02A4C0: 31 34 36 30 0D 0A 31 34 31 30 20 46 4F 52 20 5A 1460..1410 FOR Z
02A4D0: 32 3D 20 55 38 20 54 4F 20 55 38 2B 46 4E 42 28 2= U8 TO U8+FNB(
02A4E0: 4B 29 0D 0A 31 34 31 35 20 49 46 20 55 38 3C 32 K)..1415 IF U8<2
02A4F0: 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 34 32 30 THEN 1450..1420
02A500: 41 49 4E 2E 22 0D 0A 32 33 38 30 20 47 4F 54 4F AIN."..2380 GOTO
02A510: 20 32 33 30 30 0D 0A 32 33 39 30 20 49 46 20 41 2300..2390 IF A
02A520: 28 58 2C 59 29 3E 31 30 20 54 48 45 4E 20 32 34 (X,Y)>10 THEN 24
02A530: 34 30 0D 0A 32 34 30 30 20 43 28 57 29 3D 58 0D 40..2400 C(W)=X.
02A540: 0A 32 34 31 30 20 44 28 57 29 3D 59 0D 0A 32 34 .2410 D(W)=Y..24
02A550: 32 30 20 4E 45 58 54 20 57 0D 0A 32 34 33 30 20 20 NEXT W..2430
02A560: 47 4F 54 4F 20 32 34 36 30 0D 0A 32 34 34 30 20 GOTO 2460..2440
02A570: 50 52 49 4E 54 20 22 59 4F 55 20 53 48 4F 54 20 PRINT "YOU SHOT
02A580: 54 48 45 52 45 20 42 45 46 4F 52 45 20 4F 4E 20 THERE BEFORE ON
02A590: 54 55 52 4E 22 3B 41 28 58 2C 59 29 2D 31 30 0D TURN";A(X,Y)-10.
02A5A0: 0A 32 34 35 30 20 47 4F 54 4F 20 32 33 30 30 0D .2450 GOTO 2300.
02A5B0: 0A 32 34 36 30 20 46 4F 52 20 57 3D 31 20 54 4F .2460 FOR W=1 TO
02A5C0: 20 41 0D 0A 32 34 37 30 20 49 46 20 41 28 43 28 A..2470 IF A(C(
02A5D0: 57 29 2C 44 28 57 29 29 3D 33 20 54 48 45 4E 20 W),D(W))=3 THEN
02A5E0: 32 35 34 30 0D 0A 32 34 38 30 20 49 46 20 41 28 2540..2480 IF A(
02A5F0: 43 28 57 29 2C 44 28 57 29 29 3D 32 20 54 48 45 C(W),D(W))=2 THE
02A600: 4E 20 32 35 36 30 0D 0A 32 34 39 30 20 49 46 20 N 2560..2490 IF
02A610: 41 28 43 28 57 29 2C 44 28 57 29 29 3D 31 20 54 A(C(W),D(W))=1 T
02A620: 48 45 4E 20 32 35 38 30 0D 0A 32 35 30 30 20 49 HEN 2580..2500 I
02A630: 46 20 41 28 43 28 57 29 2C 44 28 57 29 29 3D 2E F A(C(W),D(W))=.
02A640: 35 20 54 48 45 4E 20 32 36 30 30 0D 0A 32 35 31 5 THEN 2600..251
02A650: 30 20 41 28 43 28 57 29 2C 44 28 57 29 29 3D 31 0 A(C(W),D(W))=1
02A660: 30 2B 43 0D 0A 32 35 32 30 20 4E 45 58 54 20 57 0+C..2520 NEXT W
02A670: 0D 0A 32 35 33 30 20 47 4F 54 4F 20 32 36 32 30 ..2530 GOTO 2620
02A680: 0D 0A 32 35 34 30 20 50 52 49 4E 54 20 22 59 4F ..2540 PRINT "YO
02A690: 55 20 48 49 54 20 4D 59 20 42 41 54 54 4C 45 53 U HIT MY BATTLES
02A6A0: 48 49 50 2E 22 0D 0A 32 35 35 30 20 47 4F 54 4F HIP."..2550 GOTO
02A6B0: 20 32 35 31 30 0D 0A 32 35 36 30 20 50 52 49 4E 2510..2560 PRIN
02A6C0: 54 20 22 59 4F 55 20 48 49 54 20 4D 59 20 43 52 T "YOU HIT MY CR
02A6D0: 55 49 53 45 52 2E 22 0D 0A 32 35 37 30 20 47 4F UISER."..2570 GO
02A6E0: 54 4F 20 32 35 31 30 0D 0A 32 35 38 30 20 50 52 TO 2510..2580 PR
02A6F0: 49 4E 54 20 22 59 4F 55 20 48 49 54 20 4D 59 20 INT "YOU HIT MY
02A700: 20 46 4F 52 20 5A 33 3D 31 20 54 4F 20 55 38 2D FOR Z3=1 TO U8-
02A710: 31 0D 0A 31 34 33 30 20 49 46 20 53 51 52 28 28 1..1430 IF SQR((
02A720: 46 28 5A 33 29 2D 46 28 5A 32 29 29 5E 32 20 2B F(Z3)-F(Z2))^2 +
02A730: 20 28 47 28 5A 33 29 2D 47 28 5A 32 29 29 5E 32 (G(Z3)-G(Z2))^2
02A740: 29 20 3C 20 33 2E 35 39 20 54 48 45 4E 20 31 32 ) < 3.59 THEN 12
02A750: 36 30 0D 0A 31 34 34 30 20 4E 45 58 54 20 5A 33 60..1440 NEXT Z3
02A760: 0D 0A 31 34 35 30 20 4E 45 58 54 20 5A 32 0D 0A ..1450 NEXT Z2..
02A770: 31 34 36 30 20 46 4F 52 20 5A 3D 30 20 54 4F 20 1460 FOR Z=0 TO
02A780: 46 4E 42 28 4B 29 0D 0A 31 34 37 30 20 41 28 46 FNB(K)..1470 A(F
02A790: 28 5A 2B 55 38 29 2C 47 28 5A 2B 55 38 29 29 3D (Z+U8),G(Z+U8))=
02A7A0: 2E 35 2B 53 47 4E 28 4B 2D 31 29 2A 28 4B 2D 31 .5+SGN(K-1)*(K-1
02A7B0: 2E 35 29 0D 0A 31 34 38 30 20 4E 45 58 54 20 5A .5)..1480 NEXT Z
02A7C0: 0D 0A 31 34 39 30 20 4E 45 58 54 20 4B 0D 0A 31 ..1490 NEXT K..1
02A7D0: 35 30 30 20 50 52 49 4E 54 20 22 45 4E 54 45 52 500 PRINT "ENTER
02A7E0: 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 46 4F 52 COORDINATES FOR
02A7F0: 2E 2E 2E 22 0D 0A 31 35 31 30 20 50 52 49 4E 54 ..."..1510 PRINT
02A800: 20 22 42 41 54 54 4C 45 53 48 49 50 22 0D 0A 31 "BATTLESHIP"..1
02A810: 35 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 35 520 FOR X=1 TO 5
02A820: 0D 0A 31 35 33 30 20 49 4E 50 55 54 20 59 2C 5A ..1530 INPUT Y,Z
02A830: 0D 0A 31 35 34 30 20 42 28 59 2C 5A 29 3D 33 0D ..1540 B(Y,Z)=3.
02A840: 0A 31 35 35 30 20 4E 45 58 54 20 58 0D 0A 31 35 .1550 NEXT X..15
02A850: 36 30 20 50 52 49 4E 54 20 22 43 52 55 49 53 45 60 PRINT "CRUISE
02A860: 52 22 0D 0A 31 35 37 30 20 46 4F 52 20 58 3D 31 R"..1570 FOR X=1
02A870: 20 54 4F 20 33 0D 0A 31 35 38 30 20 49 4E 50 55 TO 3..1580 INPU
02A880: 54 20 59 2C 5A 0D 0A 31 35 39 30 20 42 28 59 2C T Y,Z..1590 B(Y,
02A890: 5A 29 3D 32 0D 0A 31 36 30 30 20 4E 45 58 54 20 Z)=2..1600 NEXT
02A8A0: 58 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 22 44 X..1610 PRINT "D
02A8B0: 45 53 54 52 4F 59 45 52 3C 41 3E 22 0D 0A 31 36 ESTROYER<A>"..16
02A8C0: 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 32 0D 20 FOR X=1 TO 2.
02A8D0: 0A 31 36 33 30 20 49 4E 50 55 54 20 59 2C 5A 0D .1630 INPUT Y,Z.
02A8E0: 0A 31 36 34 30 20 42 28 59 2C 5A 29 3D 31 0D 0A .1640 B(Y,Z)=1..
02A8F0: 31 36 35 30 20 4E 45 58 54 20 58 0D 0A 31 36 36 1650 NEXT X..166
02A900: 44 45 53 54 52 4F 59 45 52 3C 41 3E 2E 22 0D 0A DESTROYER<A>."..
02A910: 32 35 39 30 20 47 4F 54 4F 20 32 35 31 30 0D 0A 2590 GOTO 2510..
02A920: 32 36 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 2600 PRINT "YOU
02A930: 48 49 54 20 4D 59 20 44 45 53 54 52 4F 59 45 52 HIT MY DESTROYER
02A940: 3C 42 3E 2E 22 0D 0A 32 36 31 30 20 47 4F 54 4F <B>."..2610 GOTO
02A950: 20 32 35 31 30 0D 0A 32 36 32 30 20 41 3D 30 0D 2510..2620 A=0.
02A960: 0A 32 36 33 30 20 49 46 20 4A 24 3D 22 59 45 53 .2630 IF J$="YES
02A970: 22 20 54 48 45 4E 20 32 36 37 30 0D 0A 32 36 34 " THEN 2670..264
02A980: 30 20 43 3D 43 2B 31 0D 0A 32 36 35 30 20 50 52 0 C=C+1..2650 PR
02A990: 49 4E 54 0D 0A 32 36 36 30 20 50 52 49 4E 54 20 INT..2660 PRINT
02A9A0: 22 54 55 52 4E 22 3B 43 0D 0A 32 36 37 30 20 41 "TURN";C..2670 A
02A9B0: 3D 30 0D 0A 32 36 38 30 20 46 4F 52 20 57 3D 2E =0..2680 FOR W=.
02A9C0: 35 20 54 4F 20 33 20 53 54 45 50 20 2E 35 0D 0A 5 TO 3 STEP .5..
02A9D0: 32 36 39 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 2690 FOR X=1 TO
02A9E0: 31 30 0D 0A 32 37 30 30 20 46 4F 52 20 59 3D 31 10..2700 FOR Y=1
02A9F0: 20 54 4F 20 31 30 0D 0A 32 37 31 30 20 49 46 20 TO 10..2710 IF
02AA00: 41 28 58 2C 59 29 3D 57 20 54 48 45 4E 20 32 37 A(X,Y)=W THEN 27
02AA10: 35 30 0D 0A 32 37 32 30 20 4E 45 58 54 20 59 0D 50..2720 NEXT Y.
02AA20: 0A 32 37 33 30 20 4E 45 58 54 20 58 0D 0A 32 37 .2730 NEXT X..27
02AA30: 34 30 20 47 4F 54 4F 20 32 37 36 30 0D 0A 32 37 40 GOTO 2760..27
02AA40: 35 30 20 41 3D 41 2B 49 4E 54 28 57 2B 2E 35 29 50 A=A+INT(W+.5)
02AA50: 0D 0A 32 37 36 30 20 4E 45 58 54 20 57 0D 0A 32 ..2760 NEXT W..2
02AA60: 37 37 30 20 50 33 3D 30 0D 0A 32 37 38 30 20 46 770 P3=0..2780 F
02AA70: 4F 52 20 58 3D 31 20 54 4F 20 31 30 0D 0A 32 37 OR X=1 TO 10..27
02AA80: 39 30 20 46 4F 52 20 59 3D 31 20 54 4F 20 31 30 90 FOR Y=1 TO 10
02AA90: 0D 0A 32 38 30 30 20 49 46 20 41 28 58 2C 59 29 ..2800 IF A(X,Y)
02AAA0: 3E 31 30 20 54 48 45 4E 20 32 38 32 30 0D 0A 32 >10 THEN 2820..2
02AAB0: 38 31 30 20 50 33 3D 50 33 2B 31 0D 0A 32 38 32 810 P3=P3+1..282
02AAC0: 30 20 4E 45 58 54 20 59 0D 0A 32 38 33 30 20 4E 0 NEXT Y..2830 N
02AAD0: 45 58 54 20 58 0D 0A 32 38 34 30 20 50 52 49 4E EXT X..2840 PRIN
02AAE0: 54 20 22 49 20 48 41 56 45 22 3B 41 3B 22 53 48 T "I HAVE";A;"SH
02AAF0: 4F 54 53 2E 22 0D 0A 32 38 35 30 20 49 46 20 50 OTS."..2850 IF P
02AB00: 30 20 50 52 49 4E 54 20 22 44 45 53 54 52 4F 59 0 PRINT "DESTROY
02AB10: 45 52 3C 42 3E 22 0D 0A 31 36 37 30 20 46 4F 52 ER<B>"..1670 FOR
02AB20: 20 58 3D 31 20 54 4F 20 32 0D 0A 31 36 38 30 20 X=1 TO 2..1680
02AB30: 49 4E 50 55 54 20 59 2C 5A 0D 0A 31 36 39 30 20 INPUT Y,Z..1690
02AB40: 42 28 59 2C 5A 29 3D 2E 35 0D 0A 31 37 30 30 20 B(Y,Z)=.5..1700
02AB50: 4E 45 58 54 20 58 0D 0A 31 37 31 30 20 50 52 49 NEXT X..1710 PRI
02AB60: 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 NT "DO YOU WANT
02AB70: 54 4F 20 53 54 41 52 54 22 3B 0D 0A 31 37 32 30 TO START";..1720
02AB80: 20 49 4E 50 55 54 20 4A 24 0D 0A 31 37 33 30 20 INPUT J$..1730
02AB90: 49 46 20 4A 24 3C 3E 22 57 48 45 52 45 20 41 52 IF J$<>"WHERE AR
02ABA0: 45 20 59 4F 55 52 20 53 48 49 50 53 3F 22 20 54 E YOUR SHIPS?" T
02ABB0: 48 45 4E 20 31 38 39 30 0D 0A 31 37 34 30 20 50 HEN 1890..1740 P
02ABC0: 52 49 4E 54 20 22 42 41 54 54 4C 45 53 48 49 50 RINT "BATTLESHIP
02ABD0: 22 0D 0A 31 37 35 30 20 46 4F 52 20 5A 3D 31 20 "..1750 FOR Z=1
02ABE0: 54 4F 20 35 0D 0A 31 37 36 30 20 50 52 49 4E 54 TO 5..1760 PRINT
02ABF0: 20 46 28 5A 29 3B 47 28 5A 29 0D 0A 31 37 37 30 F(Z);G(Z)..1770
02AC00: 20 4E 45 58 54 20 5A 0D 0A 31 37 38 30 20 50 52 NEXT Z..1780 PR
02AC10: 49 4E 54 20 22 43 52 55 49 53 45 52 22 0D 0A 31 INT "CRUISER"..1
02AC20: 37 39 30 20 50 52 49 4E 54 20 46 28 36 29 3B 47 790 PRINT F(6);G
02AC30: 28 36 29 0D 0A 31 38 30 30 20 50 52 49 4E 54 20 (6)..1800 PRINT
02AC40: 46 28 37 29 3B 47 28 37 29 0D 0A 31 38 31 30 20 F(7);G(7)..1810
02AC50: 50 52 49 4E 54 20 46 28 38 29 3B 47 28 38 29 0D PRINT F(8);G(8).
02AC60: 0A 31 38 32 30 20 50 52 49 4E 54 20 22 44 45 53 .1820 PRINT "DES
02AC70: 54 52 4F 59 45 52 3C 41 3E 22 0D 0A 31 38 33 30 TROYER<A>"..1830
02AC80: 20 50 52 49 4E 54 20 46 28 39 29 3B 47 28 39 29 PRINT F(9);G(9)
02AC90: 0D 0A 31 38 34 30 20 50 52 49 4E 54 20 46 28 31 ..1840 PRINT F(1
02ACA0: 30 29 3B 47 28 31 30 29 0D 0A 31 38 35 30 20 50 0);G(10)..1850 P
02ACB0: 52 49 4E 54 20 22 44 45 53 54 52 4F 59 45 52 3C RINT "DESTROYER<
02ACC0: 42 3E 22 0D 0A 31 38 36 30 20 50 52 49 4E 54 20 B>"..1860 PRINT
02ACD0: 46 28 31 31 29 3B 47 28 31 31 29 0D 0A 31 38 37 F(11);G(11)..187
02ACE0: 30 20 50 52 49 4E 54 20 46 28 31 32 29 3B 47 28 0 PRINT F(12);G(
02ACF0: 31 32 29 0D 0A 31 38 38 30 20 47 4F 54 4F 20 31 12)..1880 GOTO 1
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 00 00 02 09 52 E5 24 00 C1 02 00 00 00 02 $.....R.$.......
02AD20: 24 00 C6 02 00 00 00 02 24 00 C2 02 00 00 00 02 $.......$.......
02AD30: 24 00 C7 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD40: 24 00 C8 02 00 00 00 02 24 00 C4 02 00 00 00 02 $.......$.......
02AD50: 24 00 C9 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 33 3E 41 20 54 48 45 4E 20 32 38 38 30 0D 0A 32 3>A THEN 2880..2
02AE10: 38 36 30 20 50 52 49 4E 54 20 22 49 20 48 41 56 860 PRINT "I HAV
02AE20: 45 20 4D 4F 52 45 20 53 48 4F 54 53 20 54 48 41 E MORE SHOTS THA
02AE30: 4E 20 42 4C 41 4E 4B 20 53 51 55 41 52 45 53 2E N BLANK SQUARES.
02AE40: 22 0D 0A 32 38 37 30 20 47 4F 54 4F 20 32 32 37 "..2870 GOTO 227
02AE50: 30 0D 0A 32 38 38 30 20 49 46 20 41 3C 3E 30 20 0..2880 IF A<>0
02AE60: 54 48 45 4E 20 32 39 36 30 0D 0A 32 38 39 30 20 THEN 2960..2890
02AE70: 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 PRINT "YOU HAVE
02AE80: 57 4F 4E 2E 22 0D 0A 32 39 30 30 20 53 54 4F 50 WON."..2900 STOP
02AE90: 0D 0A 32 39 31 30 20 58 3D 49 4E 54 28 52 4E 44 ..2910 X=INT(RND
02AEA0: 28 31 29 2A 31 30 2B 31 29 0D 0A 32 39 32 30 20 (1)*10+1)..2920
02AEB0: 59 3D 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 2B Y=INT(RND(1)*10+
02AEC0: 31 29 0D 0A 32 39 33 30 20 56 3D 49 4E 54 28 33 1)..2930 V=INT(3
02AED0: 2A 52 4E 44 28 31 29 2D 31 29 0D 0A 32 39 34 30 *RND(1)-1)..2940
02AEE0: 20 56 32 3D 49 4E 54 28 33 2A 52 4E 44 28 31 29 V2=INT(3*RND(1)
02AEF0: 2D 31 29 0D 0A 32 39 35 30 20 52 45 54 55 52 4E -1)..2950 RETURN
02AF00: 0D 0A 32 39 36 30 20 46 4F 52 20 57 3D 31 20 54 ..2960 FOR W=1 T
02AF10: 4F 20 31 32 0D 0A 32 39 37 30 20 49 46 20 48 28 O 12..2970 IF H(
02AF20: 57 29 3E 30 20 54 48 45 4E 20 33 38 30 30 0D 0A W)>0 THEN 3800..
02AF30: 32 39 38 30 20 4E 45 58 54 20 57 0D 0A 32 39 39 2980 NEXT W..299
02AF40: 30 20 52 45 4D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0 REM***********
02AF50: 2A 2A 2A 2A 2A 2A 2A 2A 52 41 4E 44 4F 4D 0D 0A ********RANDOM..
02AF60: 33 30 30 30 20 57 3D 30 0D 0A 33 30 31 30 20 52 3000 W=0..3010 R
02AF70: 33 3D 30 0D 0A 33 30 32 30 20 47 4F 53 55 42 20 3=0..3020 GOSUB
02AF80: 32 39 31 30 0D 0A 33 30 33 30 20 52 45 53 54 4F 2910..3030 RESTO
02AF90: 52 45 0D 0A 33 30 34 30 20 52 32 3D 30 0D 0A 33 RE..3040 R2=0..3
02AFA0: 30 35 30 20 52 33 3D 52 33 2B 31 0D 0A 33 30 36 050 R3=R3+1..306
02AFB0: 30 20 49 46 20 52 33 3E 31 30 30 20 54 48 45 4E 0 IF R3>100 THEN
02AFC0: 20 33 30 31 30 0D 0A 33 30 37 30 20 49 46 20 58 3010..3070 IF X
02AFD0: 3E 31 30 20 54 48 45 4E 20 33 31 31 30 0D 0A 33 >10 THEN 3110..3
02AFE0: 30 38 30 20 49 46 20 58 3E 30 20 54 48 45 4E 20 080 IF X>0 THEN
02AFF0: 33 31 32 30 0D 0A 33 30 39 30 20 58 3D 31 2B 49 3120..3090 X=1+I
02B000: 0D 0A 33 39 39 30 20 4E 45 58 54 20 4D 0D 0A 34 ..3990 NEXT M..4
02B010: 30 30 30 20 4E 45 58 54 20 53 0D 0A 34 30 31 30 000 NEXT S..4010
02B020: 20 4E 45 58 54 20 52 0D 0A 34 30 32 30 20 4E 45 NEXT R..4020 NE
02B030: 58 54 20 55 0D 0A 34 30 33 30 20 46 4F 52 20 52 XT U..4030 FOR R
02B040: 3D 31 20 54 4F 20 41 0D 0A 34 30 34 30 20 46 28 =1 TO A..4040 F(
02B050: 52 29 3D 52 0D 0A 34 30 35 30 20 47 28 52 29 3D R)=R..4050 G(R)=
02B060: 52 0D 0A 34 30 36 30 20 4E 45 58 54 20 52 0D 0A R..4060 NEXT R..
02B070: 34 30 37 30 20 46 4F 52 20 52 3D 31 20 54 4F 20 4070 FOR R=1 TO
02B080: 31 30 0D 0A 34 30 38 30 20 46 4F 52 20 53 3D 31 10..4080 FOR S=1
02B090: 20 54 4F 20 31 30 0D 0A 34 30 39 30 20 51 39 3D TO 10..4090 Q9=
02B0A0: 31 0D 0A 34 31 30 30 20 46 4F 52 20 4D 3D 31 20 1..4100 FOR M=1
02B0B0: 54 4F 20 41 0D 0A 34 31 31 30 20 49 46 20 4B 28 TO A..4110 IF K(
02B0C0: 46 28 4D 29 2C 47 28 4D 29 29 3E 3D 4B 28 46 28 F(M),G(M))>=K(F(
02B0D0: 51 39 29 2C 47 28 51 39 29 29 20 54 48 45 4E 20 Q9),G(Q9)) THEN
02B0E0: 34 31 33 30 0D 0A 34 31 32 30 20 51 39 3D 4D 0D 4130..4120 Q9=M.
02B0F0: 0A 34 31 33 30 20 4E 45 58 54 20 4D 0D 0A 34 31 .4130 NEXT M..41
02B100: 33 31 20 49 46 20 52 3E 41 20 54 48 45 4E 20 34 31 IF R>A THEN 4
02B110: 31 34 30 0D 0A 34 31 33 32 20 49 46 20 52 3D 53 140..4132 IF R=S
02B120: 20 54 48 45 4E 20 34 32 31 30 0D 0A 34 31 34 30 THEN 4210..4140
02B130: 20 49 46 20 4B 28 52 2C 53 29 3C 4B 28 46 28 51 IF K(R,S)<K(F(Q
02B140: 39 29 2C 47 28 51 39 29 29 20 54 48 45 4E 20 34 9),G(Q9)) THEN 4
02B150: 32 31 30 0D 0A 34 31 35 30 20 46 4F 52 20 4D 3D 210..4150 FOR M=
02B160: 31 20 54 4F 20 41 0D 0A 34 31 36 30 20 49 46 20 1 TO A..4160 IF
02B170: 46 28 4D 29 3C 3E 52 20 54 48 45 4E 20 34 31 39 F(M)<>R THEN 419
02B180: 30 0D 0A 34 31 37 30 20 49 46 20 47 28 4D 29 3D 0..4170 IF G(M)=
02B190: 53 20 54 48 45 4E 20 34 32 31 30 0D 0A 34 31 38 S THEN 4210..418
02B1A0: 30 20 4E 45 58 54 20 4D 0D 0A 34 31 39 30 20 46 0 NEXT M..4190 F
02B1B0: 28 51 39 29 3D 52 0D 0A 34 32 30 30 20 47 28 51 (Q9)=R..4200 G(Q
02B1C0: 39 29 3D 53 0D 0A 34 32 31 30 20 4E 45 58 54 20 9)=S..4210 NEXT
02B1D0: 53 0D 0A 34 32 32 30 20 4E 45 58 54 20 52 0D 0A S..4220 NEXT R..
02B1E0: 34 32 33 30 20 47 4F 54 4F 20 33 33 38 30 0D 0A 4230 GOTO 3380..
02B1F0: 34 32 34 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 4240 END........
02B200: 4E 54 28 52 4E 44 28 31 29 2A 32 2E 35 29 0D 0A NT(RND(1)*2.5)..
02B210: 33 31 30 30 20 47 4F 54 4F 20 33 31 32 30 0D 0A 3100 GOTO 3120..
02B220: 33 31 31 30 20 58 3D 31 30 2D 49 4E 54 28 52 4E 3110 X=10-INT(RN
02B230: 44 28 31 29 2A 32 2E 35 29 0D 0A 33 31 32 30 20 D(1)*2.5)..3120
02B240: 49 46 20 59 3E 31 30 20 54 48 45 4E 20 33 31 36 IF Y>10 THEN 316
02B250: 30 0D 0A 33 31 33 30 20 49 46 20 59 3E 30 20 54 0..3130 IF Y>0 T
02B260: 48 45 4E 20 33 32 37 30 0D 0A 33 31 34 30 20 59 HEN 3270..3140 Y
02B270: 3D 31 2B 49 4E 54 28 52 4E 44 28 31 29 2A 32 2E =1+INT(RND(1)*2.
02B280: 35 29 0D 0A 33 31 35 30 20 47 4F 54 4F 20 33 32 5)..3150 GOTO 32
02B290: 37 30 0D 0A 33 31 36 30 20 59 3D 31 30 2D 49 4E 70..3160 Y=10-IN
02B2A0: 54 28 52 4E 44 28 31 29 2A 32 2E 35 29 0D 0A 33 T(RND(1)*2.5)..3
02B2B0: 31 37 30 20 47 4F 54 4F 20 33 32 37 30 0D 0A 33 170 GOTO 3270..3
02B2C0: 31 38 30 20 46 28 57 29 3D 58 0D 0A 33 31 39 30 180 F(W)=X..3190
02B2D0: 20 47 28 57 29 3D 59 0D 0A 33 32 30 30 20 49 46 G(W)=Y..3200 IF
02B2E0: 20 57 3D 41 20 54 48 45 4E 20 33 33 38 30 0D 0A W=A THEN 3380..
02B2F0: 33 32 31 30 20 49 46 20 52 32 3D 36 20 54 48 45 3210 IF R2=6 THE
02B300: 4E 20 33 30 33 30 0D 0A 33 32 32 30 20 52 45 41 N 3030..3220 REA
02B310: 44 20 58 31 2C 59 31 0D 0A 33 32 33 30 20 52 32 D X1,Y1..3230 R2
02B320: 3D 52 32 2B 31 0D 0A 33 32 34 30 20 44 41 54 41 =R2+1..3240 DATA
02B330: 20 31 2C 31 2C 2D 31 2C 31 2C 31 2C 2D 33 2C 31 1,1,-1,1,1,-3,1
02B340: 2C 31 2C 30 2C 32 2C 2D 31 2C 31 0D 0A 33 32 35 ,1,0,2,-1,1..325
02B350: 30 20 58 3D 58 2B 58 31 0D 0A 33 32 36 30 20 59 0 X=X+X1..3260 Y
02B360: 3D 59 2B 59 31 0D 0A 33 32 37 30 20 49 46 20 58 =Y+Y1..3270 IF X
02B370: 3E 31 30 20 54 48 45 4E 20 33 32 31 30 0D 0A 33 >10 THEN 3210..3
02B380: 32 38 30 20 49 46 20 58 3C 31 20 54 48 45 4E 20 280 IF X<1 THEN
02B390: 33 32 31 30 0D 0A 33 32 39 30 20 49 46 20 59 3E 3210..3290 IF Y>
02B3A0: 31 30 20 54 48 45 4E 20 33 32 31 30 0D 0A 33 33 10 THEN 3210..33
02B3B0: 30 30 20 49 46 20 59 3C 31 20 54 48 45 4E 20 33 00 IF Y<1 THEN 3
02B3C0: 32 31 30 0D 0A 33 33 31 30 20 49 46 20 42 28 58 210..3310 IF B(X
02B3D0: 2C 59 29 3E 31 30 20 54 48 45 4E 20 33 32 31 30 ,Y)>10 THEN 3210
02B3E0: 0D 0A 33 33 32 30 20 46 4F 52 20 51 39 3D 31 20 ..3320 FOR Q9=1
02B3F0: 54 4F 20 57 0D 0A 33 33 33 30 20 49 46 20 46 28 TO W..3330 IF F(
02B400: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
02B410: 3B 22 53 49 4E 45 20 57 41 56 45 22 0D 0A 32 30 ;"SINE WAVE"..20
02B420: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
02B430: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
02B440: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
02B450: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 NEW JERSEY"..30
02B460: 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 PRINT: PRINT: PR
02B470: 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E INT: PRINT: PRIN
02B480: 54 0D 0A 34 30 20 52 45 4D 41 52 4B 41 42 4C 45 T..40 REMARKABLE
02B490: 20 50 52 4F 47 52 41 4D 20 42 59 20 44 41 56 49 PROGRAM BY DAVI
02B4A0: 44 20 41 48 4C 0D 0A 35 30 20 42 3D 30 0D 0A 31 D AHL..50 B=0..1
02B4B0: 30 30 20 52 45 4D 20 20 53 54 41 52 54 20 4C 4F 00 REM START LO
02B4C0: 4E 47 20 4C 4F 4F 50 0D 0A 31 31 30 20 46 4F 52 NG LOOP..110 FOR
02B4D0: 20 54 3D 30 20 54 4F 20 34 30 20 53 54 45 50 20 T=0 TO 40 STEP
02B4E0: 2E 32 35 0D 0A 31 32 30 20 41 3D 49 4E 54 28 32 .25..120 A=INT(2
02B4F0: 36 2B 32 35 2A 53 49 4E 28 54 29 29 0D 0A 31 33 6+25*SIN(T))..13
02B500: 30 20 50 52 49 4E 54 20 54 41 42 28 41 29 3B 0D 0 PRINT TAB(A);.
02B510: 0A 31 34 30 20 49 46 20 42 3D 31 20 54 48 45 4E .140 IF B=1 THEN
02B520: 20 31 38 30 0D 0A 31 35 30 20 50 52 49 4E 54 20 180..150 PRINT
02B530: 22 43 52 45 41 54 49 56 45 22 0D 0A 31 36 30 20 "CREATIVE"..160
02B540: 42 3D 31 0D 0A 31 37 30 20 47 4F 54 4F 20 32 30 B=1..170 GOTO 20
02B550: 30 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 43 4F 0..180 PRINT "CO
02B560: 4D 50 55 54 49 4E 47 22 0D 0A 31 39 30 20 42 3D MPUTING"..190 B=
02B570: 30 0D 0A 32 30 30 20 4E 45 58 54 20 54 0D 0A 39 0..200 NEXT T..9
02B580: 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 99 END..........
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: 51 39 29 3C 3E 58 20 54 48 45 4E 20 33 33 35 30 Q9)<>X THEN 3350
02B610: 0D 0A 33 33 34 30 20 49 46 20 47 28 51 39 29 3D ..3340 IF G(Q9)=
02B620: 59 20 54 48 45 4E 20 33 32 31 30 0D 0A 33 33 35 Y THEN 3210..335
02B630: 30 20 4E 45 58 54 20 51 39 0D 0A 33 33 36 30 20 0 NEXT Q9..3360
02B640: 57 3D 57 2B 31 0D 0A 33 33 37 30 20 47 4F 54 4F W=W+1..3370 GOTO
02B650: 20 33 31 38 30 0D 0A 33 33 38 30 20 49 46 20 4B 3180..3380 IF K
02B660: 24 3C 3E 22 59 45 53 22 20 54 48 45 4E 20 33 34 $<>"YES" THEN 34
02B670: 32 30 0D 0A 33 33 39 30 20 46 4F 52 20 5A 35 3D 20..3390 FOR Z5=
02B680: 31 20 54 4F 20 41 0D 0A 33 34 30 30 20 50 52 49 1 TO A..3400 PRI
02B690: 4E 54 20 46 28 5A 35 29 3B 47 28 5A 35 29 0D 0A NT F(Z5);G(Z5)..
02B6A0: 33 34 31 30 20 4E 45 58 54 20 5A 35 0D 0A 33 34 3410 NEXT Z5..34
02B6B0: 32 30 20 46 4F 52 20 57 3D 31 20 54 4F 20 41 0D 20 FOR W=1 TO A.
02B6C0: 0A 33 34 33 30 20 49 46 20 42 28 46 28 57 29 2C .3430 IF B(F(W),
02B6D0: 47 28 57 29 29 3D 33 20 54 48 45 4E 20 33 35 30 G(W))=3 THEN 350
02B6E0: 30 0D 0A 33 34 34 30 20 49 46 20 42 28 46 28 57 0..3440 IF B(F(W
02B6F0: 29 2C 47 28 57 29 29 3D 32 20 54 48 45 4E 20 33 ),G(W))=2 THEN 3
02B700: 35 32 30 0D 0A 33 34 35 30 20 49 46 20 42 28 46 520..3450 IF B(F
02B710: 28 57 29 2C 47 28 57 29 29 3D 31 20 54 48 45 4E (W),G(W))=1 THEN
02B720: 20 33 35 36 30 0D 0A 33 34 36 30 20 49 46 20 42 3560..3460 IF B
02B730: 28 46 28 57 29 2C 47 28 57 29 29 3D 2E 35 20 54 (F(W),G(W))=.5 T
02B740: 48 45 4E 20 33 35 34 30 0D 0A 33 34 37 30 20 42 HEN 3540..3470 B
02B750: 28 46 28 57 29 2C 47 28 57 29 29 3D 31 30 2B 43 (F(W),G(W))=10+C
02B760: 0D 0A 33 34 38 30 20 4E 45 58 54 20 57 0D 0A 33 ..3480 NEXT W..3
02B770: 34 39 30 20 47 4F 54 4F 20 31 39 35 30 0D 0A 33 490 GOTO 1950..3
02B780: 35 30 30 20 50 52 49 4E 54 20 22 49 20 48 49 54 500 PRINT "I HIT
02B790: 20 59 4F 55 52 20 42 41 54 54 4C 45 53 48 49 50 YOUR BATTLESHIP
02B7A0: 22 0D 0A 33 35 31 30 20 47 4F 54 4F 20 33 35 37 "..3510 GOTO 357
02B7B0: 30 0D 0A 33 35 32 30 20 50 52 49 4E 54 20 22 49 0..3520 PRINT "I
02B7C0: 20 48 49 54 20 59 4F 55 52 20 43 52 55 49 53 45 HIT YOUR CRUISE
02B7D0: 52 22 0D 0A 33 35 33 30 20 47 4F 54 4F 20 33 35 R"..3530 GOTO 35
02B7E0: 37 30 0D 0A 33 35 34 30 20 50 52 49 4E 54 20 22 70..3540 PRINT "
02B7F0: 49 20 48 49 54 20 59 4F 55 52 20 44 45 53 54 52 I HIT YOUR DESTR
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: 4F 59 45 52 3C 42 3E 22 0D 0A 33 35 35 30 20 47 OYER<B>"..3550 G
02BA10: 4F 54 4F 20 33 35 37 30 0D 0A 33 35 36 30 20 50 OTO 3570..3560 P
02BA20: 52 49 4E 54 20 22 49 20 48 49 54 20 59 4F 55 52 RINT "I HIT YOUR
02BA30: 20 44 45 53 54 52 4F 59 45 52 3C 41 3E 22 0D 0A DESTROYER<A>"..
02BA40: 33 35 37 30 20 46 4F 52 20 51 3D 31 20 54 4F 20 3570 FOR Q=1 TO
02BA50: 31 32 0D 0A 33 35 38 30 20 49 46 20 45 28 51 29 12..3580 IF E(Q)
02BA60: 3C 3E 2D 31 20 54 48 45 4E 20 33 37 33 30 0D 0A <>-1 THEN 3730..
02BA70: 33 35 39 30 20 45 28 51 29 3D 31 30 2B 43 0D 0A 3590 E(Q)=10+C..
02BA80: 33 36 30 30 20 48 28 51 29 3D 42 28 46 28 57 29 3600 H(Q)=B(F(W)
02BA90: 2C 47 28 57 29 29 0D 0A 33 36 31 30 20 4D 33 3D ,G(W))..3610 M3=
02BAA0: 30 0D 0A 33 36 32 30 20 46 4F 52 20 4D 32 3D 31 0..3620 FOR M2=1
02BAB0: 20 54 4F 20 31 32 0D 0A 33 36 33 30 20 49 46 20 TO 12..3630 IF
02BAC0: 48 28 4D 32 29 3C 3E 48 28 51 29 20 54 48 45 4E H(M2)<>H(Q) THEN
02BAD0: 20 33 36 35 30 0D 0A 33 36 34 30 20 4D 33 3D 4D 3650..3640 M3=M
02BAE0: 33 2B 31 0D 0A 33 36 35 30 20 4E 45 58 54 20 4D 3+1..3650 NEXT M
02BAF0: 32 0D 0A 33 36 36 30 20 49 46 20 4D 33 3C 3E 49 2..3660 IF M3<>I
02BB00: 4E 54 28 48 28 51 29 2B 2E 35 29 2B 31 2B 49 4E NT(H(Q)+.5)+1+IN
02BB10: 54 28 49 4E 54 28 48 28 51 29 2B 2E 35 29 2F 33 T(INT(H(Q)+.5)/3
02BB20: 29 20 54 48 45 4E 20 33 34 37 30 0D 0A 33 36 37 ) THEN 3470..367
02BB30: 30 20 46 4F 52 20 4D 32 3D 31 20 54 4F 20 31 32 0 FOR M2=1 TO 12
02BB40: 0D 0A 33 36 38 30 20 49 46 20 48 28 4D 32 29 3C ..3680 IF H(M2)<
02BB50: 3E 48 28 51 29 20 54 48 45 4E 20 33 37 31 30 0D >H(Q) THEN 3710.
02BB60: 0A 33 36 39 30 20 45 28 4D 32 29 3D 2D 31 0D 0A .3690 E(M2)=-1..
02BB70: 33 37 30 30 20 48 28 4D 32 29 3D 2D 31 0D 0A 33 3700 H(M2)=-1..3
02BB80: 37 31 30 20 4E 45 58 54 20 4D 32 0D 0A 33 37 32 710 NEXT M2..372
02BB90: 30 20 47 4F 54 4F 20 33 34 37 30 0D 0A 33 37 33 0 GOTO 3470..373
02BBA0: 30 20 4E 45 58 54 20 51 0D 0A 33 37 34 30 20 50 0 NEXT Q..3740 P
02BBB0: 52 49 4E 54 20 22 50 52 4F 47 52 41 4D 20 41 42 RINT "PROGRAM AB
02BBC0: 4F 52 54 3A 22 0D 0A 33 37 35 30 20 46 4F 52 20 ORT:"..3750 FOR
02BBD0: 51 3D 31 20 54 4F 20 31 32 0D 0A 33 37 36 30 20 Q=1 TO 12..3760
02BBE0: 50 52 49 4E 54 20 22 45 28 22 3B 51 3B 22 29 20 PRINT "E(";Q;")
02BBF0: 3D 22 3B 45 28 51 29 0D 0A 33 37 37 30 20 50 52 =";E(Q)..3770 PR
02BC00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
02BC10: 3B 22 53 4C 41 4C 4F 4D 22 0D 0A 32 30 20 50 52 ;"SLALOM"..20 PR
02BC20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
02BC30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
02BC40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
02BC50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
02BC60: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
02BC70: 33 31 30 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 310 PRINT "HOW M
02BC80: 41 4E 59 20 47 41 54 45 53 20 44 4F 45 53 20 54 ANY GATES DOES T
02BC90: 48 49 53 20 43 4F 55 52 53 45 20 48 41 56 45 20 HIS COURSE HAVE
02BCA0: 28 31 20 54 4F 20 32 35 29 22 3B 0D 0A 33 32 30 (1 TO 25)";..320
02BCB0: 20 49 4E 50 55 54 20 56 0D 0A 33 33 30 20 49 46 INPUT V..330 IF
02BCC0: 20 56 3E 32 35 20 54 48 45 4E 20 33 36 30 0D 0A V>25 THEN 360..
02BCD0: 33 34 30 20 49 46 20 56 3C 31 20 54 48 45 4E 20 340 IF V<1 THEN
02BCE0: 33 39 30 0D 0A 33 35 30 20 47 4F 54 4F 20 31 34 390..350 GOTO 14
02BCF0: 34 30 0D 0A 33 36 30 20 50 52 49 4E 54 20 22 32 40..360 PRINT "2
02BD00: 35 20 49 53 20 54 48 45 20 4C 49 4D 49 54 2E 22 5 IS THE LIMIT."
02BD10: 0D 0A 33 37 30 20 4C 45 54 20 56 3D 32 35 0D 0A ..370 LET V=25..
02BD20: 33 38 30 20 47 4F 54 4F 20 31 34 34 30 0D 0A 33 380 GOTO 1440..3
02BD30: 39 30 20 50 52 49 4E 54 20 22 54 52 59 20 41 47 90 PRINT "TRY AG
02BD40: 41 49 4E 2C 22 0D 0A 34 30 30 20 47 4F 54 4F 20 AIN,"..400 GOTO
02BD50: 33 31 30 0D 0A 34 31 30 20 50 52 49 4E 54 20 22 310..410 PRINT "
02BD60: 52 41 54 45 20 59 4F 55 52 53 45 4C 46 20 41 53 RATE YOURSELF AS
02BD70: 20 41 20 53 4B 49 45 52 2C 20 28 31 3D 57 4F 52 A SKIER, (1=WOR
02BD80: 53 54 2C 20 33 3D 42 45 53 54 29 22 3B 0D 0A 34 ST, 3=BEST)";..4
02BD90: 32 30 20 49 4E 50 55 54 20 41 0D 0A 34 33 30 20 20 INPUT A..430
02BDA0: 49 46 20 41 3C 31 20 54 48 45 4E 20 34 36 30 0D IF A<1 THEN 460.
02BDB0: 0A 34 34 30 20 49 46 20 41 3E 33 20 54 48 45 4E .440 IF A>3 THEN
02BDC0: 20 34 36 30 0D 0A 34 35 30 20 47 4F 54 4F 20 34 460..450 GOTO 4
02BDD0: 38 30 0D 0A 34 36 30 20 50 52 49 4E 54 20 22 54 80..460 PRINT "T
02BDE0: 48 45 20 42 4F 55 4E 44 53 20 41 52 45 20 31 2D HE BOUNDS ARE 1-
02BDF0: 33 22 0D 0A 34 37 30 20 47 4F 54 4F 20 34 31 30 3"..470 GOTO 410
02BE00: 49 4E 54 20 22 48 28 22 3B 51 3B 22 29 20 3D 22 INT "H(";Q;") ="
02BE10: 3B 48 28 51 29 0D 0A 33 37 38 30 20 4E 45 58 54 ;H(Q)..3780 NEXT
02BE20: 20 51 0D 0A 33 37 39 30 20 53 54 4F 50 0D 0A 33 Q..3790 STOP..3
02BE30: 38 30 30 20 52 45 4D 2A 2A 2A 2A 2A 2A 2A 2A 2A 800 REM*********
02BE40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 55 ***************U
02BE50: 53 49 4E 47 45 41 52 52 41 59 0D 0A 33 38 31 30 SINGEARRAY..3810
02BE60: 20 46 4F 52 20 52 3D 31 20 54 4F 20 31 30 0D 0A FOR R=1 TO 10..
02BE70: 33 38 32 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 3820 FOR S=1 TO
02BE80: 31 30 0D 0A 33 38 33 30 20 4B 28 52 2C 53 29 3D 10..3830 K(R,S)=
02BE90: 30 0D 0A 33 38 34 30 20 4E 45 58 54 20 53 0D 0A 0..3840 NEXT S..
02BEA0: 33 38 35 30 20 4E 45 58 54 20 52 0D 0A 33 38 36 3850 NEXT R..386
02BEB0: 30 20 46 4F 52 20 55 3D 31 20 54 4F 20 31 32 0D 0 FOR U=1 TO 12.
02BEC0: 0A 33 38 37 30 20 49 46 20 45 28 55 29 3C 31 30 .3870 IF E(U)<10
02BED0: 20 54 48 45 4E 20 34 30 32 30 0D 0A 33 38 38 30 THEN 4020..3880
02BEE0: 20 46 4F 52 20 52 3D 31 20 54 4F 20 31 30 0D 0A FOR R=1 TO 10..
02BEF0: 33 38 39 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 3890 FOR S=1 TO
02BF00: 31 30 0D 0A 33 39 30 30 20 49 46 20 42 28 52 2C 10..3900 IF B(R,
02BF10: 53 29 3C 31 30 20 54 48 45 4E 20 33 39 33 30 0D S)<10 THEN 3930.
02BF20: 0A 33 39 31 30 20 4B 28 52 2C 53 29 3D 2D 31 30 .3910 K(R,S)=-10
02BF30: 30 30 30 30 30 30 0D 0A 33 39 32 30 20 47 4F 54 000000..3920 GOT
02BF40: 4F 20 34 30 30 30 0D 0A 33 39 33 30 20 46 4F 52 O 4000..3930 FOR
02BF50: 20 4D 3D 53 47 4E 28 31 2D 52 29 20 54 4F 20 53 M=SGN(1-R) TO S
02BF60: 47 4E 28 31 30 2D 52 29 0D 0A 33 39 34 30 20 46 GN(10-R)..3940 F
02BF70: 4F 52 20 4E 3D 53 47 4E 28 31 2D 53 29 20 54 4F OR N=SGN(1-S) TO
02BF80: 20 53 47 4E 28 31 30 2D 53 29 0D 0A 33 39 35 30 SGN(10-S)..3950
02BF90: 20 49 46 20 4E 2B 4D 2B 4E 2A 4D 3D 30 20 54 48 IF N+M+N*M=0 TH
02BFA0: 45 4E 20 33 39 38 30 0D 0A 33 39 36 30 20 49 46 EN 3980..3960 IF
02BFB0: 20 42 28 52 2B 4D 2C 53 2B 4E 29 3C 3E 45 28 55 B(R+M,S+N)<>E(U
02BFC0: 29 20 54 48 45 4E 20 33 39 38 30 0D 0A 33 39 37 ) THEN 3980..397
02BFD0: 30 20 4B 28 52 2C 53 29 3D 4B 28 52 2C 53 29 2B 0 K(R,S)=K(R,S)+
02BFE0: 45 28 55 29 2D 53 2A 49 4E 54 28 48 28 55 29 2B E(U)-S*INT(H(U)+
02BFF0: 2E 35 29 0D 0A 33 39 38 30 20 4E 45 58 54 20 4E .5)..3980 NEXT N
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 00 00 02 09 52 E5 25 00 C1 02 00 00 00 02 %.....R.%.......
02C020: 25 00 C6 02 00 00 00 02 25 00 C2 02 00 00 00 02 %.......%.......
02C030: 25 00 C7 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C040: 25 00 C8 02 00 00 00 02 25 00 C4 02 00 00 00 02 %.......%.......
02C050: 25 00 C9 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 0D 0A 34 38 30 20 50 52 49 4E 54 22 54 48 45 20 ..480 PRINT"THE
02C110: 53 54 41 52 54 45 52 20 43 4F 55 4E 54 53 20 44 STARTER COUNTS D
02C120: 4F 57 4E 2E 2E 2E 35 2E 2E 2E 34 2E 2E 2E 33 2E OWN...5...4...3.
02C130: 2E 2E 32 2E 2E 2E 31 2E 2E 2E 47 4F 21 22 3B 0D ..2...1...GO!";.
02C140: 0A 34 39 30 20 52 45 4D 0D 0A 35 30 30 20 4C 45 .490 REM..500 LE
02C150: 54 20 54 3D 30 0D 0A 35 31 30 20 4C 45 54 20 53 T T=0..510 LET S
02C160: 3D 49 4E 54 28 52 4E 44 28 31 29 2A 28 31 38 2D =INT(RND(1)*(18-
02C170: 39 29 2B 39 29 0D 0A 35 32 30 20 50 52 49 4E 54 9)+9)..520 PRINT
02C180: 0D 0A 35 32 35 20 50 52 49 4E 54 20 22 59 4F 55 ..525 PRINT "YOU
02C190: 27 52 45 20 4F 46 46 21 22 0D 0A 35 33 30 20 46 'RE OFF!"..530 F
02C1A0: 4F 52 20 4F 3D 31 20 54 4F 20 56 0D 0A 35 34 30 OR O=1 TO V..540
02C1B0: 20 20 20 20 52 45 41 44 20 51 0D 0A 35 35 30 20 READ Q..550
02C1C0: 20 20 20 50 52 49 4E 54 0D 0A 35 35 35 20 20 20 PRINT..555
02C1D0: 20 50 52 49 4E 54 20 22 48 45 52 45 20 43 4F 4D PRINT "HERE COM
02C1E0: 45 53 20 47 41 54 45 20 23 22 3B 53 54 52 24 28 ES GATE #";STR$(
02C1F0: 4F 29 3B 22 3A 22 0D 0A 35 36 30 20 20 20 20 50 O);":"..560 P
02C200: 52 49 4E 54 20 53 3B 22 4D 2E 50 2E 48 2E 22 0D RINT S;"M.P.H.".
02C210: 0A 35 37 30 20 20 20 20 4C 45 54 20 53 31 3D 53 .570 LET S1=S
02C220: 0D 0A 35 38 30 20 20 20 20 50 52 49 4E 54 20 22 ..580 PRINT "
02C230: 4F 50 54 49 4F 4E 22 3B 0D 0A 35 39 30 20 20 20 OPTION";..590
02C240: 20 49 4E 50 55 54 20 4F 31 0D 0A 36 30 30 20 20 INPUT O1..600
02C250: 20 20 49 46 20 4F 31 3D 30 20 54 48 45 4E 20 39 IF O1=0 THEN 9
02C260: 37 30 0D 0A 36 31 30 20 20 20 49 46 20 4F 31 3E 70..610 IF O1>
02C270: 38 20 54 48 45 4E 20 31 34 32 30 0D 0A 36 32 30 8 THEN 1420..620
02C280: 20 20 20 20 49 46 20 4F 31 3C 31 20 54 48 45 4E IF O1<1 THEN
02C290: 20 31 34 32 30 0D 0A 36 33 30 20 20 20 20 47 4F 1420..630 GO
02C2A0: 53 55 42 20 39 39 30 0D 0A 36 34 30 20 20 20 20 SUB 990..640
02C2B0: 49 46 20 53 3C 37 20 54 48 45 4E 20 31 33 39 30 IF S<7 THEN 1390
02C2C0: 0D 0A 36 35 30 20 20 20 20 4C 45 54 20 54 3D 54 ..650 LET T=T
02C2D0: 2B 28 51 2D 53 2B 31 29 0D 0A 36 36 30 20 20 20 +(Q-S+1)..660
02C2E0: 20 49 46 20 53 3E 51 20 54 48 45 4E 20 31 36 33 IF S>Q THEN 163
02C2F0: 30 0D 0A 36 37 30 20 4E 45 58 54 20 4F 0D 0A 36 0..670 NEXT O..6
02C300: 36 30 20 50 52 49 4E 54 20 22 41 4E 20 4F 46 46 60 PRINT "AN OFF
02C310: 49 43 49 41 4C 20 43 41 55 47 48 54 20 59 4F 55 ICIAL CAUGHT YOU
02C320: 21 22 0D 0A 31 32 37 30 20 50 52 49 4E 54 20 22 !"..1270 PRINT "
02C330: 59 4F 55 20 54 4F 4F 4B 22 3B 28 54 2B 52 4E 44 YOU TOOK";(T+RND
02C340: 28 31 29 29 3B 22 53 45 43 4F 4E 44 53 2E 22 0D (1));"SECONDS.".
02C350: 0A 31 32 38 30 20 47 4F 54 4F 20 37 34 30 0D 0A .1280 GOTO 740..
02C360: 31 32 39 30 20 49 46 20 52 4E 44 28 31 29 3C 28 1290 IF RND(1)<(
02C370: 28 53 2D 51 29 2A 2E 31 29 2B 2E 32 20 54 48 45 (S-Q)*.1)+.2 THE
02C380: 4E 20 31 33 32 30 0D 0A 31 33 30 30 20 50 52 49 N 1320..1300 PRI
02C390: 4E 54 20 22 59 4F 55 20 57 45 4E 54 20 4F 56 45 NT "YOU WENT OVE
02C3A0: 52 20 54 48 45 20 4E 41 58 49 4D 55 4D 20 53 50 R THE NAXIMUM SP
02C3B0: 45 45 44 20 41 4E 44 20 4D 41 44 45 20 49 54 21 EED AND MADE IT!
02C3C0: 22 0D 0A 31 33 31 30 20 52 45 54 55 52 4E 0D 0A "..1310 RETURN..
02C3D0: 31 33 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 1320 PRINT "YOU
02C3E0: 57 45 4E 54 20 4F 56 45 52 20 54 48 45 20 4D 41 WENT OVER THE MA
02C3F0: 58 49 4D 55 4D 20 53 50 45 45 44 20 41 4E 44 20 XIMUM SPEED AND
02C400: 22 3B 0D 0A 31 33 33 30 20 49 46 20 52 4E 44 28 ";..1330 IF RND(
02C410: 31 29 3C 2E 35 20 54 48 45 4E 20 31 33 37 30 0D 1)<.5 THEN 1370.
02C420: 0A 31 33 34 30 20 50 52 49 4E 54 20 22 57 49 50 .1340 PRINT "WIP
02C430: 45 44 20 4F 55 54 21 22 0D 0A 31 33 35 30 20 50 ED OUT!"..1350 P
02C440: 52 49 4E 54 20 22 59 4F 55 20 54 4F 4F 4B 22 3B RINT "YOU TOOK";
02C450: 28 54 2B 52 4E 44 28 31 29 29 3B 22 53 45 43 4F (T+RND(1));"SECO
02C460: 4E 44 53 22 0D 0A 31 33 36 30 20 47 4F 54 4F 20 NDS"..1360 GOTO
02C470: 37 34 30 0D 0A 31 33 37 30 20 50 52 49 4E 54 20 740..1370 PRINT
02C480: 22 53 4E 41 47 47 45 44 20 41 20 46 4C 41 47 21 "SNAGGED A FLAG!
02C490: 22 0D 0A 31 33 38 30 20 47 4F 54 4F 20 31 33 35 "..1380 GOTO 135
02C4A0: 30 0D 0A 31 33 39 30 20 50 52 49 4E 54 20 22 4C 0..1390 PRINT "L
02C4B0: 45 54 27 53 20 42 45 20 52 45 41 4C 49 53 54 49 ET'S BE REALISTI
02C4C0: 43 2C 20 4F 4B 3F 20 20 4C 45 54 27 53 20 47 4F C, OK? LET'S GO
02C4D0: 20 42 41 43 4B 20 41 4E 44 20 54 52 59 20 41 47 BACK AND TRY AG
02C4E0: 41 49 4E 2E 2E 2E 22 0D 0A 31 34 30 30 20 4C 45 AIN..."..1400 LE
02C4F0: 54 20 53 3D 53 31 0D 0A 31 34 31 30 20 47 4F 54 T S=S1..1410 GOT
02C500: 38 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 80 PRINT:PRINT "
02C510: 59 4F 55 20 54 4F 4F 4B 22 3B 28 54 2B 52 4E 44 YOU TOOK";(T+RND
02C520: 28 31 29 29 3B 22 53 45 43 4F 4E 44 53 2E 22 0D (1));"SECONDS.".
02C530: 0A 36 39 30 20 4C 45 54 20 4D 3D 54 0D 0A 37 30 .690 LET M=T..70
02C540: 30 20 4C 45 54 20 4D 3D 4D 2F 56 0D 0A 37 31 30 0 LET M=M/V..710
02C550: 20 49 46 20 4D 3C 31 2E 35 2D 28 41 2A 2E 31 29 IF M<1.5-(A*.1)
02C560: 20 54 48 45 4E 20 31 36 35 30 0D 0A 37 32 30 20 THEN 1650..720
02C570: 49 46 20 4D 3C 32 2E 39 2D 28 41 2A 2E 31 29 20 IF M<2.9-(A*.1)
02C580: 54 48 45 4E 20 31 36 38 30 0D 0A 37 33 30 20 49 THEN 1680..730 I
02C590: 46 20 4D 3C 34 2E 34 2D 28 41 2A 2E 30 31 29 20 F M<4.4-(A*.01)
02C5A0: 54 48 45 4E 20 31 37 31 30 0D 0A 37 34 30 20 50 THEN 1710..740 P
02C5B0: 52 49 4E 54 3A 50 52 49 4E 54 20 22 44 4F 20 59 RINT:PRINT "DO Y
02C5C0: 4F 55 20 57 41 4E 54 20 54 4F 20 52 41 43 45 20 OU WANT TO RACE
02C5D0: 41 47 41 49 4E 22 3B 0D 0A 37 35 30 20 49 4E 50 AGAIN";..750 INP
02C5E0: 55 54 20 42 24 0D 0A 37 36 30 20 52 45 4D 0D 0A UT B$..760 REM..
02C5F0: 37 37 30 20 49 46 20 42 24 3D 22 4E 4F 22 20 54 770 IF B$="NO" T
02C600: 48 45 4E 20 31 37 34 30 0D 0A 37 38 30 20 49 46 HEN 1740..780 IF
02C610: 20 42 24 3D 22 59 45 53 22 20 54 48 45 4E 20 34 B$="YES" THEN 4
02C620: 38 30 0D 0A 37 39 30 20 50 52 49 4E 54 20 22 50 80..790 PRINT "P
02C630: 4C 45 41 53 45 20 54 59 50 45 20 27 59 45 53 27 LEASE TYPE 'YES'
02C640: 20 4F 52 20 27 4E 4F 27 22 0D 0A 38 30 30 20 47 OR 'NO'"..800 G
02C650: 4F 54 4F 20 37 34 30 0D 0A 38 31 30 20 53 54 4F OTO 740..810 STO
02C660: 50 0D 0A 38 32 30 20 50 52 49 4E 54 0D 0A 38 32 P..820 PRINT..82
02C670: 35 20 50 52 49 4E 54 20 22 2A 2A 2A 20 53 4C 41 5 PRINT "*** SLA
02C680: 4C 4F 4D 3A 20 54 48 49 53 20 49 53 20 54 48 45 LOM: THIS IS THE
02C690: 20 31 39 37 36 20 57 49 4E 54 45 52 20 4F 4C 59 1976 WINTER OLY
02C6A0: 4D 50 49 43 20 47 49 41 4E 54 20 53 4C 41 4C 4F MPIC GIANT SLALO
02C6B0: 4D 2E 20 20 59 4F 55 20 41 52 45 22 0D 0A 38 33 M. YOU ARE"..83
02C6C0: 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 0 PRINT "
02C6D0: 20 20 20 20 20 54 48 45 20 41 4D 45 52 49 43 41 THE AMERICA
02C6E0: 4E 20 54 45 41 4D 27 53 20 4F 4E 4C 59 20 48 4F N TEAM'S ONLY HO
02C6F0: 50 45 20 4F 46 20 41 20 47 4F 4C 44 20 4D 45 44 PE OF A GOLD MED
02C700: 4F 20 35 35 30 0D 0A 31 34 32 30 20 50 52 49 4E O 550..1420 PRIN
02C710: 54 20 22 57 48 41 54 3F 22 0D 0A 31 34 33 30 20 T "WHAT?"..1430
02C720: 47 4F 54 4F 20 35 38 30 0D 0A 31 34 34 30 20 50 GOTO 580..1440 P
02C730: 52 49 4E 54 0D 0A 31 34 34 35 20 50 52 49 4E 54 RINT..1445 PRINT
02C740: 20 22 54 59 50 45 20 22 3B 43 48 52 24 28 33 34 "TYPE ";CHR$(34
02C750: 29 3B 22 49 4E 53 22 3B 43 48 52 24 28 33 34 29 );"INS";CHR$(34)
02C760: 3B 22 20 46 4F 52 20 49 4E 53 54 52 55 43 54 49 ;" FOR INSTRUCTI
02C770: 4F 4E 53 22 0D 0A 31 34 35 30 20 50 52 49 4E 54 ONS"..1450 PRINT
02C780: 20 22 54 59 50 45 20 22 3B 43 48 52 24 28 33 34 "TYPE ";CHR$(34
02C790: 29 3B 22 4D 41 58 22 3B 43 48 52 24 28 33 34 29 );"MAX";CHR$(34)
02C7A0: 3B 22 20 46 4F 52 20 41 50 50 52 4F 58 49 4D 41 ;" FOR APPROXIMA
02C7B0: 54 45 20 4D 41 58 49 4D 55 4D 20 53 50 45 45 44 TE MAXIMUM SPEED
02C7C0: 53 22 0D 0A 31 34 36 30 20 50 52 49 4E 54 20 22 S"..1460 PRINT "
02C7D0: 54 59 50 45 20 22 3B 43 48 52 24 28 33 34 29 3B TYPE ";CHR$(34);
02C7E0: 22 52 55 4E 22 3B 43 48 52 24 28 33 34 29 3B 22 "RUN";CHR$(34);"
02C7F0: 20 46 4F 52 20 54 48 45 20 42 45 47 49 4E 4E 49 FOR THE BEGINNI
02C800: 4E 47 20 4F 46 20 54 48 45 20 52 41 43 45 22 0D NG OF THE RACE".
02C810: 0A 31 34 37 30 20 50 52 49 4E 54 20 22 43 4F 4D .1470 PRINT "COM
02C820: 4D 41 4E 44 2D 2D 22 3B 0D 0A 31 34 38 30 20 49 MAND--";..1480 I
02C830: 4E 50 55 54 20 41 24 0D 0A 31 34 39 30 20 52 45 NPUT A$..1490 RE
02C840: 4D 0D 0A 31 35 30 30 20 49 46 20 41 24 3D 22 49 M..1500 IF A$="I
02C850: 4E 53 22 20 54 48 45 4E 20 38 32 30 0D 0A 31 35 NS" THEN 820..15
02C860: 31 30 20 49 46 20 41 24 3D 22 4D 41 58 22 20 54 10 IF A$="MAX" T
02C870: 48 45 4E 20 31 35 35 30 0D 0A 31 35 32 30 20 49 HEN 1550..1520 I
02C880: 46 20 41 24 3D 22 52 55 4E 22 20 54 48 45 4E 20 F A$="RUN" THEN
02C890: 34 31 30 0D 0A 31 35 33 30 20 50 52 49 4E 54 20 410..1530 PRINT
02C8A0: 43 48 52 24 28 33 34 29 3B 41 24 3B 43 48 52 24 CHR$(34);A$;CHR$
02C8B0: 28 33 34 29 3B 22 20 49 53 20 41 4E 20 49 4C 4C (34);" IS AN ILL
02C8C0: 45 47 41 4C 20 43 4F 4D 4D 41 4E 44 2D 2D 52 45 EGAL COMMAND--RE
02C8D0: 54 52 59 22 3B 0D 0A 31 35 34 30 20 47 4F 54 4F TRY";..1540 GOTO
02C8E0: 20 31 34 38 30 0D 0A 31 35 35 30 20 50 52 49 4E 1480..1550 PRIN
02C8F0: 54 20 22 47 41 54 45 20 4D 41 58 22 0D 0A 31 35 T "GATE MAX"..15
02C900: 41 4C 2E 22 0D 0A 38 34 30 20 50 52 49 4E 54 0D AL."..840 PRINT.
02C910: 0A 38 34 35 20 50 52 49 4E 54 20 22 20 20 20 20 .845 PRINT "
02C920: 20 30 20 2D 2D 20 54 59 50 45 20 54 48 49 53 20 0 -- TYPE THIS
02C930: 49 53 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 IS YOU WANT TO S
02C940: 45 45 20 48 4F 57 20 4C 4F 4E 47 20 59 4F 55 27 EE HOW LONG YOU'
02C950: 56 45 20 54 41 4B 45 4E 2E 22 0D 0A 38 35 30 20 VE TAKEN."..850
02C960: 50 52 49 4E 54 20 22 20 20 20 20 20 31 20 2D 2D PRINT " 1 --
02C970: 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 4F TYPE THIS IF YO
02C980: 55 20 57 41 4E 54 20 54 4F 20 53 50 45 45 44 20 U WANT TO SPEED
02C990: 55 50 20 41 20 4C 4F 54 2E 22 0D 0A 38 36 30 20 UP A LOT."..860
02C9A0: 50 52 49 4E 54 20 22 20 20 20 20 20 32 20 2D 2D PRINT " 2 --
02C9B0: 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 4F TYPE THIS IF YO
02C9C0: 55 20 57 41 4E 54 20 54 4F 20 53 50 45 45 44 20 U WANT TO SPEED
02C9D0: 55 50 20 41 20 4C 49 54 54 4C 45 2E 22 0D 0A 38 UP A LITTLE."..8
02C9E0: 37 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 33 70 PRINT " 3
02C9F0: 20 2D 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 -- TYPE THIS IF
02CA00: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 50 45 YOU WANT TO SPE
02CA10: 45 44 20 55 50 20 41 20 54 45 45 4E 53 59 2E 22 ED UP A TEENSY."
02CA20: 0D 0A 38 38 30 20 50 52 49 4E 54 20 22 20 20 20 ..880 PRINT "
02CA30: 20 20 34 20 2D 2D 20 54 59 50 45 20 54 48 49 53 4 -- TYPE THIS
02CA40: 20 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 IF YOU WANT TO
02CA50: 4B 45 45 50 20 47 4F 49 4E 47 20 54 48 45 20 53 KEEP GOING THE S
02CA60: 41 4D 45 20 53 50 45 45 44 2E 22 0D 0A 38 39 30 AME SPEED."..890
02CA70: 20 50 52 49 4E 54 20 22 20 20 20 20 20 35 20 2D PRINT " 5 -
02CA80: 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 - TYPE THIS IF Y
02CA90: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 45 43 4B OU WANT TO CHECK
02CAA0: 20 41 20 54 45 45 4E 53 59 2E 22 0D 0A 39 30 30 A TEENSY."..900
02CAB0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 36 20 2D PRINT " 6 -
02CAC0: 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 - TYPE THIS IF Y
02CAD0: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 45 43 4B OU WANT TO CHECK
02CAE0: 20 41 20 4C 49 54 54 4C 45 2E 22 0D 0A 39 31 30 A LITTLE."..910
02CAF0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 37 20 2D PRINT " 7 -
02CB00: 36 30 20 50 52 49 4E 54 20 22 20 23 20 20 4D 2E 60 PRINT " # M.
02CB10: 50 2E 48 2E 22 0D 0A 31 35 37 30 20 50 52 49 4E P.H."..1570 PRIN
02CB20: 54 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 T"----------"..1
02CB30: 35 38 30 20 46 4F 52 20 42 3D 31 20 54 4F 20 56 580 FOR B=1 TO V
02CB40: 0D 0A 31 35 39 30 20 20 20 20 52 45 41 44 20 51 ..1590 READ Q
02CB50: 0D 0A 31 36 30 30 20 20 20 20 50 52 49 4E 54 20 ..1600 PRINT
02CB60: 42 3B 22 20 20 22 3B 51 0D 0A 31 36 31 30 20 4E B;" ";Q..1610 N
02CB70: 45 58 54 20 42 0D 0A 31 36 32 30 20 47 4F 54 4F EXT B..1620 GOTO
02CB80: 20 31 34 37 30 0D 0A 31 36 33 30 20 4C 45 54 20 1470..1630 LET
02CB90: 54 3D 54 2B 2E 35 0D 0A 31 36 34 30 20 47 4F 54 T=T+.5..1640 GOT
02CBA0: 4F 20 36 37 30 0D 0A 31 36 35 30 20 50 52 49 4E O 670..1650 PRIN
02CBB0: 54 20 22 59 4F 55 20 57 4F 4E 20 41 20 47 4F 4C T "YOU WON A GOL
02CBC0: 44 20 4D 45 44 41 4C 21 22 0D 0A 31 36 36 30 20 D MEDAL!"..1660
02CBD0: 4C 45 54 20 47 28 31 29 3D 47 28 31 29 2B 31 0D LET G(1)=G(1)+1.
02CBE0: 0A 31 36 37 30 20 47 4F 54 4F 20 31 37 33 30 0D .1670 GOTO 1730.
02CBF0: 0A 31 36 38 30 20 50 52 49 4E 54 20 22 59 4F 55 .1680 PRINT "YOU
02CC00: 20 57 4F 4E 20 41 20 53 49 4C 56 45 52 20 4D 45 WON A SILVER ME
02CC10: 44 41 4C 22 0D 0A 31 36 39 30 20 4C 45 54 20 53 DAL"..1690 LET S
02CC20: 28 31 29 3D 53 28 31 29 2B 31 0D 0A 31 37 30 30 (1)=S(1)+1..1700
02CC30: 20 47 4F 54 4F 20 31 37 33 30 0D 0A 31 37 31 30 GOTO 1730..1710
02CC40: 20 50 52 49 4E 54 20 22 59 4F 55 20 57 4F 4E 20 PRINT "YOU WON
02CC50: 41 20 42 52 4F 4E 5A 45 20 4D 45 44 41 4C 22 0D A BRONZE MEDAL".
02CC60: 0A 31 37 32 30 20 4C 45 54 20 42 28 31 29 3D 42 .1720 LET B(1)=B
02CC70: 28 31 29 2B 31 0D 0A 31 37 33 30 20 47 4F 54 4F (1)+1..1730 GOTO
02CC80: 20 37 34 30 0D 0A 31 37 34 30 20 50 52 49 4E 54 740..1740 PRINT
02CC90: 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 "THANKS FOR THE
02CCA0: 20 52 41 43 45 22 0D 0A 31 37 35 30 20 49 46 20 RACE"..1750 IF
02CCB0: 47 28 31 29 3C 31 20 54 48 45 4E 20 31 37 37 30 G(1)<1 THEN 1770
02CCC0: 0D 0A 31 37 36 30 20 50 52 49 4E 54 20 22 47 4F ..1760 PRINT "GO
02CCD0: 4C 44 20 4D 45 44 41 4C 53 3A 22 3B 47 28 31 29 LD MEDALS:";G(1)
02CCE0: 0D 0A 31 37 37 30 20 49 46 20 53 28 31 29 3C 31 ..1770 IF S(1)<1
02CCF0: 20 54 48 45 4E 20 31 37 39 30 0D 0A 31 37 38 30 THEN 1790..1780
02CD00: 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 - TYPE THIS IF Y
02CD10: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 45 43 4B OU WANT TO CHECK
02CD20: 20 41 20 4C 4F 54 2E 22 0D 0A 39 32 30 20 50 52 A LOT."..920 PR
02CD30: 49 4E 54 20 22 20 20 20 20 20 38 20 2D 2D 20 54 INT " 8 -- T
02CD40: 59 50 45 20 54 48 49 53 20 49 46 20 59 4F 55 20 YPE THIS IF YOU
02CD50: 57 41 4E 54 20 54 4F 20 43 48 45 41 54 20 41 4E WANT TO CHEAT AN
02CD60: 44 20 54 52 59 20 54 4F 20 53 4B 49 50 20 41 20 D TRY TO SKIP A
02CD70: 47 41 54 45 2E 22 0D 0A 39 33 30 20 50 52 49 4E GATE."..930 PRIN
02CD80: 54 0D 0A 39 33 35 20 50 52 49 4E 54 20 22 20 54 T..935 PRINT " T
02CD90: 48 45 20 50 4C 41 43 45 20 54 4F 20 55 53 45 20 HE PLACE TO USE
02CDA0: 54 48 45 53 45 20 4F 50 54 49 4F 4E 53 20 49 53 THESE OPTIONS IS
02CDB0: 20 57 48 45 4E 20 54 48 45 20 43 4F 4D 50 55 54 WHEN THE COMPUT
02CDC0: 45 52 20 41 53 4B 53 3A 22 0D 0A 39 34 30 20 50 ER ASKS:"..940 P
02CDD0: 52 49 4E 54 0D 0A 39 34 35 20 50 52 49 4E 54 20 RINT..945 PRINT
02CDE0: 22 4F 50 54 49 4F 4E 3F 22 0D 0A 39 35 30 20 50 "OPTION?"..950 P
02CDF0: 52 49 4E 54 0D 0A 39 35 35 20 50 52 49 4E 54 20 RINT..955 PRINT
02CE00: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
02CE10: 20 47 4F 4F 44 20 4C 55 43 4B 21 22 0D 0A 39 35 GOOD LUCK!"..95
02CE20: 37 20 50 52 49 4E 54 0D 0A 39 36 30 20 47 4F 54 7 PRINT..960 GOT
02CE30: 4F 20 31 34 37 30 0D 0A 39 37 30 20 50 52 49 4E O 1470..970 PRIN
02CE40: 54 20 22 59 4F 55 27 56 45 20 54 41 4B 45 4E 22 T "YOU'VE TAKEN"
02CE50: 3B 28 54 2B 52 4E 44 28 31 29 29 3B 22 53 45 43 ;(T+RND(1));"SEC
02CE60: 4F 4E 44 53 2E 22 0D 0A 39 38 30 20 47 4F 54 4F ONDS."..980 GOTO
02CE70: 20 35 38 30 0D 0A 39 39 30 20 4F 4E 20 4F 31 20 580..990 ON O1
02CE80: 47 4F 54 4F 20 31 31 33 30 2C 31 30 31 30 2C 31 GOTO 1130,1010,1
02CE90: 31 37 30 2C 31 30 38 30 2C 31 31 39 30 2C 31 31 170,1080,1190,11
02CEA0: 30 30 2C 31 31 35 30 2C 31 32 31 30 0D 0A 31 30 00,1150,1210..10
02CEB0: 30 30 20 53 54 4F 50 0D 0A 31 30 31 30 20 4C 45 00 STOP..1010 LE
02CEC0: 54 20 53 3D 53 2B 49 4E 54 28 52 4E 44 28 31 29 T S=S+INT(RND(1)
02CED0: 2A 28 35 2D 33 29 2B 33 29 0D 0A 31 30 32 30 20 *(5-3)+3)..1020
02CEE0: 50 52 49 4E 54 20 53 3B 22 4D 2E 50 2E 48 2E 22 PRINT S;"M.P.H."
02CEF0: 0D 0A 31 30 33 30 20 49 46 20 53 3E 51 20 54 48 ..1030 IF S>Q TH
02CF00: 20 50 52 49 4E 54 20 22 53 49 4C 56 45 52 20 4D PRINT "SILVER M
02CF10: 45 44 41 4C 53 3A 22 3B 53 28 31 29 0D 0A 31 37 EDALS:";S(1)..17
02CF20: 39 30 20 49 46 20 42 28 31 29 3C 31 20 54 48 45 90 IF B(1)<1 THE
02CF30: 4E 20 31 38 33 30 0D 0A 31 38 30 30 20 50 52 49 N 1830..1800 PRI
02CF40: 4E 54 20 22 42 52 4F 4E 5A 45 20 4D 45 44 41 4C NT "BRONZE MEDAL
02CF50: 53 3A 22 3B 42 28 31 29 0D 0A 31 38 31 30 20 44 S:";B(1)..1810 D
02CF60: 41 54 41 20 31 34 2C 31 38 2C 32 36 2C 32 39 2C ATA 14,18,26,29,
02CF70: 31 38 2C 32 35 2C 32 38 2C 33 32 2C 32 39 2C 32 18,25,28,32,29,2
02CF80: 30 2C 32 39 2C 32 39 2C 32 35 2C 32 31 2C 32 36 0,29,29,25,21,26
02CF90: 2C 32 39 2C 32 30 2C 32 31 2C 32 30 0D 0A 31 38 ,29,20,21,20..18
02CFA0: 32 30 20 44 41 54 41 20 31 38 2C 32 36 2C 32 35 20 DATA 18,26,25
02CFB0: 2C 33 33 2C 33 31 2C 32 32 0D 0A 31 38 33 30 20 ,33,31,22..1830
02CFC0: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: 45 4E 20 31 32 39 30 0D 0A 31 30 34 30 20 49 46 EN 1290..1040 IF
02D110: 20 53 3E 51 2D 31 20 54 48 45 4E 20 31 30 36 30 S>Q-1 THEN 1060
02D120: 0D 0A 31 30 35 30 20 52 45 54 55 52 4E 0D 0A 31 ..1050 RETURN..1
02D130: 30 36 30 20 50 52 49 4E 54 20 22 43 4C 4F 53 45 060 PRINT "CLOSE
02D140: 20 4F 4E 45 21 22 0D 0A 31 30 37 30 20 52 45 54 ONE!"..1070 RET
02D150: 55 52 4E 0D 0A 31 30 38 30 20 50 52 49 4E 54 20 URN..1080 PRINT
02D160: 53 3B 22 4D 2E 50 2E 48 2E 22 0D 0A 31 30 39 30 S;"M.P.H."..1090
02D170: 20 47 4F 54 4F 20 31 30 33 30 0D 0A 31 31 30 30 GOTO 1030..1100
02D180: 20 4C 45 54 20 53 3D 53 2D 49 4E 54 28 52 4E 44 LET S=S-INT(RND
02D190: 28 31 29 2A 28 35 2D 33 29 2B 33 29 0D 0A 31 31 (1)*(5-3)+3)..11
02D1A0: 31 30 20 50 52 49 4E 54 20 53 3B 22 4D 2E 50 2E 10 PRINT S;"M.P.
02D1B0: 48 2E 22 0D 0A 31 31 32 30 20 47 4F 54 4F 20 31 H."..1120 GOTO 1
02D1C0: 30 33 30 0D 0A 31 31 33 30 20 4C 45 54 20 53 3D 030..1130 LET S=
02D1D0: 53 2B 49 4E 54 28 52 4E 44 28 31 29 2A 28 31 30 S+INT(RND(1)*(10
02D1E0: 2D 35 29 2B 35 29 0D 0A 31 31 34 30 20 47 4F 54 -5)+5)..1140 GOT
02D1F0: 4F 20 31 30 38 30 0D 0A 31 31 35 30 20 4C 45 54 O 1080..1150 LET
02D200: 20 53 3D 53 2D 49 4E 54 28 52 4E 44 28 31 29 2A S=S-INT(RND(1)*
02D210: 28 31 30 2D 35 29 2B 35 29 0D 0A 31 31 36 30 20 (10-5)+5)..1160
02D220: 47 4F 54 4F 20 31 31 31 30 0D 0A 31 31 37 30 20 GOTO 1110..1170
02D230: 4C 45 54 20 53 3D 53 2B 49 4E 54 28 52 4E 44 28 LET S=S+INT(RND(
02D240: 31 29 2A 28 34 2D 31 29 2B 31 29 0D 0A 31 31 38 1)*(4-1)+1)..118
02D250: 30 20 47 4F 54 4F 20 31 31 31 30 0D 0A 31 31 39 0 GOTO 1110..119
02D260: 30 20 4C 45 54 20 53 3D 53 2D 49 4E 54 28 52 4E 0 LET S=S-INT(RN
02D270: 44 28 31 29 2A 28 34 2D 31 29 2B 31 29 0D 0A 31 D(1)*(4-1)+1)..1
02D280: 32 30 30 20 47 4F 54 4F 20 31 31 31 30 0D 0A 31 200 GOTO 1110..1
02D290: 32 31 30 20 50 52 49 4E 54 20 22 2A 2A 2A 43 48 210 PRINT "***CH
02D2A0: 45 41 54 22 0D 0A 31 32 32 30 20 49 46 20 52 4E EAT"..1220 IF RN
02D2B0: 44 28 31 29 3C 2E 37 20 54 48 45 4E 20 31 32 36 D(1)<.7 THEN 126
02D2C0: 30 0D 0A 31 32 33 30 20 50 52 49 4E 54 20 22 59 0..1230 PRINT "Y
02D2D0: 4F 55 20 4D 41 44 45 20 49 54 21 07 22 0D 0A 31 OU MADE IT!."..1
02D2E0: 32 34 30 20 4C 45 54 20 54 3D 54 2B 31 2E 35 0D 240 LET T=T+1.5.
02D2F0: 0A 31 32 35 30 20 52 45 54 55 52 4E 0D 0A 31 32 .1250 RETURN..12
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 00 00 02 09 52 E5 26 00 C1 02 00 00 00 02 &.....R.&.......
02D320: 26 00 C6 02 00 00 00 02 26 00 C2 02 00 00 00 02 &.......&.......
02D330: 26 00 C7 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D340: 26 00 C8 02 00 00 00 02 26 00 C4 02 00 00 00 02 &.......&.......
02D350: 26 00 C9 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
02D410: 22 54 52 41 49 4E 22 0D 0A 32 20 50 52 49 4E 54 "TRAIN"..2 PRINT
02D420: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
02D430: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
02D440: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
02D450: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 20 RSEY"..3 PRINT:
02D460: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 34 20 PRINT: PRINT..4
02D470: 50 52 49 4E 54 20 22 54 49 4D 45 20 2D 20 53 50 PRINT "TIME - SP
02D480: 45 45 44 20 44 49 53 54 41 4E 43 45 20 45 58 45 EED DISTANCE EXE
02D490: 52 43 49 53 45 22 3A 20 50 52 49 4E 54 0D 0A 31 RCISE": PRINT..1
02D4A0: 30 20 43 3D 49 4E 54 28 32 35 2A 52 4E 44 28 31 0 C=INT(25*RND(1
02D4B0: 29 29 2B 34 30 0D 0A 31 35 20 44 3D 49 4E 54 28 ))+40..15 D=INT(
02D4C0: 31 35 2A 52 4E 44 28 31 29 29 2B 35 0D 0A 32 30 15*RND(1))+5..20
02D4D0: 20 54 3D 49 4E 54 28 31 39 2A 52 4E 44 28 31 29 T=INT(19*RND(1)
02D4E0: 29 2B 32 30 0D 0A 32 35 20 50 52 49 4E 54 20 22 )+20..25 PRINT "
02D4F0: 20 41 20 43 41 52 20 54 52 41 56 45 4C 49 4E 47 A CAR TRAVELING
02D500: 22 3B 43 3B 22 4D 50 48 20 43 41 4E 20 4D 41 4B ";C;"MPH CAN MAK
02D510: 45 20 41 20 43 45 52 54 41 49 4E 20 54 52 49 50 E A CERTAIN TRIP
02D520: 20 49 4E 22 0D 0A 33 30 20 50 52 49 4E 54 20 44 IN"..30 PRINT D
02D530: 3B 22 48 4F 55 52 53 20 4C 45 53 53 20 54 48 41 ;"HOURS LESS THA
02D540: 4E 20 41 20 54 52 41 49 4E 20 54 52 41 56 45 4C N A TRAIN TRAVEL
02D550: 49 4E 47 20 41 54 22 3B 54 3B 22 4D 50 48 2E 22 ING AT";T;"MPH."
02D560: 0D 0A 33 35 20 50 52 49 4E 54 20 22 48 4F 57 20 ..35 PRINT "HOW
02D570: 4C 4F 4E 47 20 44 4F 45 53 20 54 48 45 20 54 52 LONG DOES THE TR
02D580: 49 50 20 54 41 4B 45 20 42 59 20 43 41 52 22 3B IP TAKE BY CAR";
02D590: 0D 0A 34 30 20 49 4E 50 55 54 20 41 0D 0A 34 35 ..40 INPUT A..45
02D5A0: 20 56 3D 44 2A 54 2F 28 43 2D 54 29 0D 0A 35 30 V=D*T/(C-T)..50
02D5B0: 20 45 3D 49 4E 54 28 41 42 53 28 28 56 2D 41 29 E=INT(ABS((V-A)
02D5C0: 2A 31 30 30 2F 41 29 2B 2E 35 29 0D 0A 35 35 20 *100/A)+.5)..55
02D5D0: 49 46 20 45 3E 35 20 54 48 45 4E 20 37 30 0D 0A IF E>5 THEN 70..
02D5E0: 36 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 21 20 60 PRINT "GOOD!
02D5F0: 41 4E 53 57 45 52 20 57 49 54 48 49 4E 22 3B 45 ANSWER WITHIN";E
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: 3B 22 50 45 52 43 45 4E 54 2E 22 0D 0A 36 35 20 ;"PERCENT."..65
02D810: 47 4F 54 4F 20 38 30 0D 0A 37 30 20 50 52 49 4E GOTO 80..70 PRIN
02D820: 54 20 22 53 4F 52 52 59 2E 20 20 59 4F 55 20 57 T "SORRY. YOU W
02D830: 45 52 45 20 4F 46 46 20 42 59 22 3B 45 3B 22 50 ERE OFF BY";E;"P
02D840: 45 52 43 45 4E 54 2E 22 0D 0A 38 30 20 50 52 49 ERCENT."..80 PRI
02D850: 4E 54 20 22 43 4F 52 52 45 43 54 20 41 4E 53 57 NT "CORRECT ANSW
02D860: 45 52 20 49 53 22 3B 56 3B 22 48 4F 55 52 53 2E ER IS";V;"HOURS.
02D870: 22 0D 0A 39 30 20 50 52 49 4E 54 0D 0A 39 35 20 "..90 PRINT..95
02D880: 50 52 49 4E 54 20 22 41 4E 4F 54 48 45 52 20 50 PRINT "ANOTHER P
02D890: 52 4F 42 4C 45 4D 20 28 59 45 53 20 4F 52 20 4E ROBLEM (YES OR N
02D8A0: 4F 29 22 3B 0D 0A 31 30 30 20 49 4E 50 55 54 20 O)";..100 INPUT
02D8B0: 41 24 0D 0A 31 30 35 20 50 52 49 4E 54 0D 0A 31 A$..105 PRINT..1
02D8C0: 31 30 20 49 46 20 41 24 3D 22 59 45 53 22 20 54 10 IF A$="YES" T
02D8D0: 48 45 4E 20 31 30 0D 0A 39 39 39 20 45 4E 44 0D HEN 10..999 END.
02D8E0: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 00 00 02 09 52 E5 27 00 C1 02 00 00 00 02 '.....R.'.......
02E620: 27 00 C6 02 00 00 00 02 27 00 C2 02 00 00 00 02 '.......'.......
02E630: 27 00 C7 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E640: 27 00 C8 02 00 00 00 02 27 00 C4 02 00 00 00 02 '.......'.......
02E650: 27 00 C9 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
RESULT OF SEARCH :
PRO=64 CHEA=2 COD=3 MUSI=0 COP=6 GRA=26 WRIT=0 198=13 199=27 STARTER=1 KBI=0 CAAV=0 L.TOURNIER=0
PRO=64 CHEA=2 COD=3 MUSI=0 COP=6 GRA=26 WRIT=0 198=13 199=27 STARTER=1 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File WinAPE 2.0B02 ( RSLOTS BASSPLAT BAS* STARS BAS S
TOCKMARBAS SUITE BASTARGET BASTEST BAS9 !"SYNONYM BAS,-KINEMA BAS.KING
BASF/01234567LEM BAS389LETTER BASLIFE BAS ALIFEFORTBASBCDLITQUIZ BASEFL
OVE BAS GHINT(M) 210 GOSUB 1270 220 PRINT 230 LET XINT(6*RND(1)+1) 240 L
ET YINT(6*RND(1)+1) 250 LET ZINT(6*RND(1)+1) 260 PRINT 270 IF X1 THEN 910 28
0 IF X2 THEN 930 290 IF X3 THEN 950 300 IF X4 THEN 970 310 IF X5 THEN 990 32
0 IF X6 THEN 1010 330 IF Y1 THEN 1030 340 IF Y2 THEN 1050 350 IF Y3 THEN 1070
360 IF Y4 THEN 1090 370 IF Y5 THEN 1110 380 IF Y6 THEN 1130 390 IF Z1 THEN
1150 400 IF Z2 THEN 1170 410 IF Z3 THEN 1190 420 IF Z4 THEN 1210 430 IF Z5 T
HEN 1230 440 IF Z6 THENLUNAR BASIJKMASTERMIBAS+LMNOPQMATHDICEBASRSMINE BAS
wTUVWXYZabMUGWUMP BAS cdNAME BASefNICOMACHBASgNIM BAS hijkNUMBER BASlONE
CHECKBASmnoORBIT BASpqrsPIZZA BAStuvPOETRY BASwxPOKER BASCyzQUBIT BAS9Q
UEEN BAS" 1250 450 IF XY THEN 600 460 IF XZ THEN 630 470 IF YZ THEN 650 48
0 PRINT 490 PRINT "YOU LOST." 500 LET PP-M 510 PRINT "YOUR STANDINGS ARE $"P
520 PRINT "AGAIN" 530 INPUT A$ 540 IF A$"Y" THEN 160 550 PRINT 560 IF P0 TH
EN 670 570 IF P0 THEN 690 580 IF P0 THEN 710 590 GOTO 1350 600 IF YZ THEN 73
0 610 IF Y1 THEN 820 620 GOTO 1341 630 IF Z1 THEN 820 640 GOTO 470 650 IF Z
1 THEN 820 660 GOTO 1341 670 PRINT "PAY UP! PLEASE LEAVE YOUR MONEY ON THE TE
RMINAL." 680 GOTO 1350 690 PREVERSE BASROCKET BASROCKSCISBASROULETTEBAS2RUSSI
ANRBASSALVO BAS8£SINEWAVEBASSLALOM BAS&TEST1 BAS#TICTACTOBAS$%&'TOWER BAS
()*+TRAIN BASRINT"HEY, YOU BROKE EVEN." 700 GOTO 1350 710 PRINT "COLLECT YO
UR WINNINGS FROM THE H&M CASHIER." 720 GOTO 1350 730 IF Z1 THEN 780 740 PRINT
PRINT"**TOP DOLLAR**" 750 PRINT "YOU WON!" 760 P(((10*M)+M)+P) 770 GOTO 510
780 PRINTPRINT"***JACKPOT***" 790 PRINT "YOU WON!" 800 P(((100*M)+M)+P) 810
GOTO 510 820 PRINTPRINT"*DOUBLE BAR*" 830 PRINT"YOU WON!" 840 P(((5*M)+M)+P)
850 GOTO 510 860 PRINT"HOUSE LIMITS ARE $100" 870 GOTO 160 880 PRINT"MINIMUM
BET IS $1" 890 GOTO 160 900 GOTO 220 910 PRINT"BAR"GOSUB 1310 920 GOTO 330
930 PRINT"BELL"GOSUB 1310 940 GOTO 330 950 PRINT"ORANGE"GOSUB 1310 960 GOTO
330 970 PRINT"LEMON"GOSUB 1310 980 GOTO 330 990 PRINT"PLUM"GOSUB 1310 1000 G
OTO 330 1010 PRINT"CHERRY"GOSUB 1310 1020 GOTO 330 1030 PRINT" BAR"GOSUB 1310
1040 GOTO 390 1050 PRINT" BELL"GOSUB 1310 1060 GOTO 390 1070 PRINT" ORANGE"
GOSUB 1310 1080 GOTO 390 1090 PRINT" LEMON"GOSUB 1310 1100 GOTO 390 1110 PRI
NT" PLUM"GOSUB 1310 1120 GOTO 390 1130 PRINT" CHE10 PRINT TAB(30)"SLOTS" 20 P
RINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT PRINT PRINT
100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN 29, 1973 110 REM IT SI
MULATES THE SLOT MACHINE. 120 PRINT "YOU ARE IN THE H&M CASINO,IN FRONT OF ONE
OF OUR" 130 PRINT "ONE-ARM BANDITS. BET FROM $1 TO $100." 140 PRINT "TO PULL T
HE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET." 150 LET P0 160 PRINT PRIN
T"YOUR BET" 170 INPUT M 180 IF M100 THEN 860 190 IF M1 THEN 880 200 M RRRY"
GOSUB 1310 1140 GOTO 390 1150 PRINT" BAR" 1160 GOTO 450 1170 PRINT" BELL" 1
180 GOTO 450 1190 PRINT" ORANGE" 1200 GOTO 450 1210 PRINT" LEMON" 1220 GOTO
450 1230 PRINT" PLUM" 1240 GOTO 450 1250 PRINT" CHERRY" 1260 GOTO 450 1270
FOR Q41 TO 10 1280 PRINT CHR$(7) 1290 NEXT Q4 1300 RETURN 1310 FOR T81 TO 5
1320 PRINT CHR$(7) 1330 NEXT T8 1340 RETURN 1341 PRINT PRINT "DOUBLE!!" 13
42 PRINT"YOU WON!" 1343 P(((2*M)+M)+P) 1344 GOTO 510 1350 STOP 9999 END A2
37.6GOTO 145 168 A233.8 GOTO 145 169 A239.6GOTO 145 170 A2896GOTO 145 205
PRINT 206 PRINT " ALTITUDE "D1"FT" 207 PRINT " TERM. VELOCITY
"V1"FT/SEC +/-5%" 208 PRINT " ACCELERATION "A2"FT/SEC/SEC +/-5%" 210 P
RINT "SET THE TIMER FOR YOUR FREEFALL." 211 PRINT "HOW MANY SECONDS"INPUT T 21
5 PRINT "HERE WE GO." 217 PRINT 218 PRINT "TIME (SEC)","DIST TO FALL (FT)" 2
19 PRINT "","" 300 FOR I0 TO T STEP (T/8) 310 IF IV/A THEN 400 10 PRINT TAB(
33)"SPLAT" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 40 PRI
NTPRINTPRINT 50 DIM A(42) 95 PRINT "WELCOME TO 'SPLAT' -- THE GAME THAT SIMULA
TES A PARACHUTE" 96 PRINT "JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE"
97 PRINT "MOMENT WITHOUT GOING SPLAT." 118 PRINTPRINTD10V0A0N0M0D1INT(9001*RN
D(1)+1000) 119 PRINT "SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)"INPUT A1$
120 IF A1$"NO" THEN 128 121 IF A1$"YES" THEN PRINT "YES OR NO"INPUT A1320 D
D1-((A/2)*I2) 330 IF D0 THEN 1000 340 PRINT I,D 350 NEXT I 360 GOTO 500
400 PRINT "TERMINAL VELOCITY REACHED AT T PLUS"V/A"SECONDS." 405 FOR II TO T ST
EP (T/8) 410 DD1-((V2/(2*A))+(V*(I-(V/A)))) 420 IF D0 THEN 1010 430 PRINT I,
D 440 NEXT I 500 PRINT "CHUTE OPEN" 510 K0K10 550 FOR J0 TO 42 555 IF A(J
)0 THEN 620 560 KK+1 570 IF DA(J) THEN 600 580 K1K1+1 600 NEXT J 610 GOTO
540 620 A(J)D 630 IF J2 THEN 650 635 PRINT "AMAZING!!! NOT BAD FOR YOUR "
636 I$GOTO 120 123 PRINT "WHAT TERMINAL VELOCITY (MI/HR)"INPUT V1 125 V1V1*(
5280/3600)VV1+((V1*RND(1))/20)-((V1*RND(1))/20)GOTO 135 128 V1INT(1000*RND(1))
130 PRINT "OK. TERMINAL VELOCITY "V1"MI/HR" 131 V1V1*(5280/3600)VV1+((V1*RND(
1))/20)-((V1*RND(1))/20) 135 PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVIT
Y (YES OR NO)" 136 INPUT B1$ 140 IF B1$"NO" THEN 150 141 IF B1$"YES" THEN PR
INT "YES OR NO"INPUT B1$GOTO 140 143 PRINT "WHAT ACCELERATION (FT/SEC/SEC)"INPU
T A2 145 AA2+(F J0 THEN PRINT "1ST " 637 IF J1 THEN PRINT "2ND " 638 IF J2 T
HEN PRINT "3RD " 639 PRINT "SUCCESSFUL JUMP!!!"GOTO 2000 650 IF K-K1.1*K THEN
700 660 IF K-K1.25*K THEN 710 670 IF K-K1.5*K THEN 720 680 IF K-K1.75*K THE
N 730 690 IF K-K1.9*K THEN 740 695 GOTO 750 700 PRINT "WOW! THAT'S SOME JU
MPING. OF THE"K"SUCCESSFUL JUMPS" 701 PRINT "BEFORE YOURS, ONLY"K-K1"OPENED TH
EIR CHUTES LOWER THAN" 702 PRINT "YOU DID." 703 GOTO 2000 710 PRINT "PRETTY
GOOD! " K"SUCCESSFUL JUMPS PRE(A2*RND(1))/20)-((A2*RND(1))/20)GOTO 205 150 ON
INT(1+(10*RND(1)))GOTO 151,152,153,154,155,156,157,158,159,160 151 PRINT"FINE.
YOU'RE ON MERCURY. ACCELERATION12.2 FT/SEC/SEC."GOTO 161 152 PRINT"ALL RIGHT.
YOU'RE ON VENUS. ACCELERATION28.3 FT/SEC/SEC."GOTO 162 153 PRINT "THEN YOU'RE O
N EARTH. ACCELERATION32.16 FT/SEC/SEC."GOTO 163 154 PRINT"FINE. YOU'RE ON THE
MOON. ACCELERATION5.15 FT/SEC/SEC."GOTO 164 155 PRINT"ALL RIGHT. YOU'RE ON MARS
. ACCELERATION12.5 FT/SEC/SEC."GOTO 165 156 PRINT"CEDED YOURS AND ONLY" 711 P
RINT K-K1" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES" 712 PRINT "OPENE
D." GOTO 2000 720 PRINT "NOT BAD. THERE HAVE BEEN"K"SUCCESSFUL JUMPS BEFORE Y
OURS." 721 PRINT"YOU WERE BEATEN OUT BY"K-K1"OF THEM."GOTO 2000 730 PRINT "
CONSERVATIVE, AREN'T YOU YOU RANKED ONLY"K-K1"IN THE" 731 PRINT K"SUCCESSFUL J
UMPS BEFORE YOURS."GOTO 2000 740 PRINT "HUMPH! DON'T YOU HAVE ANY SPORTING BLO
OD THERE WERE" 741 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN"K1"T
HEN YOU'RE ON JUPITER. ACCELERATION85.2 FT/SEC/SEC."GOTO 166 157 PRINT"FINE. YO
U'RE ON SATURN. ACCELERATION37.6 FT/SEC/SEC."GOTO 167 158 PRINT"ALL RIGHT. YOU'
RE ON URANUS. ACCELERATION33.8 FT/SEC/SEC."GOTO 168 159 PRINT"THEN YOU'RE ON N
EPTUNE. ACCELERATION39.6 FT/SEC/SEC."GOTO 169 160 PRINT"FINE. YOU'RE ON THE SUN
. ACCELERATION896 FT/SEC/SEC."GOTO 170 161 A212.2GOTO 145 162 A228.3GOTO 145
163 A232.16GOTO 145 164 A25.15GOTO 145 165 A212.5GOTO 145 166 A285.2GOTO
145 167 RJUMPS" 742 PRINT "BETTER THAN THE WORST. SHAPE UP!!!"GOTO 2000 75
0 PRINT "HEY! YOU PULLED THE RIP CORD MUCH TOO SOON. "K"SUCCESSFUL" 751 PRINT
"JUMPS BEFORE YOURS AND YOU CAME IN NUMBER"K-K1"! GET WITH IT!" 752 GOTO 200
0 800 PRINT "REQUIESCAT IN PACE."GOTO 1950 801 PRINT "MAY THE ANGEL OF HEAVEN
LEAD YOU INTO PARADISE."GOTO 1950 802 PRINT "REST IN PEACE."GOTO 1950 803 PRI
NT "SON-OF-A-GUN."GOTO 1950 804 PRINT "#$%&&%!$"GOTO 1950 805 PRINT "A KICK
IN THE PANTS IS A BOOST IF YOU'RE HEADS (*). THE MORE" 240 PRINT "STARS I TYPE
, THE CLOSER YOU ARE TO MY NUMBER." 250 PRINT "ONE STAR (*) MEANS FAR AWAY, SEV
EN STARS (*******)" 260 PRINT "MEANS REALLY CLOSE! YOU GET"M"GUESSES." 270 RE
M *** COMPUTER THINKS OF A NUMBER 280 PRINT 290 PRINT 300 XINT(A*RND(1)+1) 3
10 PRINT "OK, I AM THINKING OF A NUMBER, START GUESSING." 320 REM *** GUESSING
BEGINS, HUMAN GETS M GUESSES 330 FOR K1 TO M 340 PRINT 350 PRINT "YOUR GUESS"
360 INPUT G 370 IF GX THEN 600 380 DABS(G-X) 390 IF D64 ED RIGHT."GOTO 1950
806 PRINT "HMMM. SHOULD HAVE PICKED A SHORTER TIME."GOTO 1950 807 PRINT "MUT
TER. MUTTER. MUTTER."GOTO 1950 808 PRINT "PUSHING UP DAISIES."GOTO 1950 809 P
RINT "EASY COME, EASY GO."GOTO 1950 1000 PRINT SQR(2*D1/A),"SPLAT" 1005 ON I
NT(1+(10*RND(1)))GOTO 800,801,802,803,804,805,806,807,808,809 1010 PRINT (V/A)+
((D1-(V2/(2*A)))/V),"SPLAT" 1020 GOTO 1005 1950 PRINT "I'LL GIVE YOU ANOTHER C
HANCE."GOTO 2000 2000 PRINT "DO YOU WANT TO PLAY AGAIN"INPUT Z$ 2001 IF Z$"Y
ES"THEN 510 400 IF D32 THEN 500 410 IF D16 THEN 490 420 IF D8 THEN 480 430 I
F D4 THEN 470 440 IF D2 THEN 460 450 PRINT "*" 460 PRINT "*" 470 PRINT "*"
480 PRINT "*" 490 PRINT "*" 500 PRINT "*" 510 PRINT "*" 520 PRINT 530 NEXT
K 540 REM *** DID NOT GUESS IN M GUESSES 550 PRINT 560 PRINT "SORRY, THAT'S"
M"GUESSES. THE NUMBER WAS"X 580 GOTO 650 590 REM *** WE HAVE A WINNER 600 PRI
NTFOR N1 TO 79 610 PRINT "*" 620 NEXT N 630 PRINTPRINT 640 PRINT "YOU GOT IT
IN"K"GUE THEN 118 2002 IF Z$"NO" THEN 2005 2003 PRINT "YES OR NO"GOTO 2000 2
005 PRINT "PLEASE"INPUT Z$IF Z$"YES" THEN 118 2006 IF Z$"NO" THEN PRINT "YES OR
NO "GOTO 2005 2007 PRINT "SSSSSSSSSS."PRINTGOTO 2046 2046 END SSES!!! LET'S
PLAY AGAIN..." 650 GOTO 280 660 END 10 PRINT TAB(30)"STOCK MARKET" 20 PRINT
TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT PRINT PRINT 100
REM STOCK MARKET SIMULATION -STOCK- 101 REM REVISED 8/18/70 (D. PESSEL, L.
BRAUN, C. LOSIK) 102 REM IMP VRBLS A-MRKT TRND SLP B5-BRKRGE FEE C-TTL CSH AS
STS 103 REM C5-TTL CSH ASSTS (TEMP) C(I)-CHNG IN STK VAL D-TTL ASSTS 104 R
EM E1,E2-LRG CHNG MISC I-STCK # I1,I2-STCKS W LRG CHNG 105 REM N1,N2-LRG CHNG
DAY CNTS P5-TTL DAYS PRCHSS P(I)-PRTFL CNTNTS 106 REM 10 PRINT TAB(34)"STARS"
20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT
100 REM *** STARS - PEOPLE'S COMPUTER CENTER, MENLO PARK, CA 140 REM *** A IS
LIMIT ON NUMBER, M IS NUMBER OF GUESSES 150 A100M7 170 INPUT "DO YOU WANT INS
TRUCTIONS"A$ 190 IF LEFT$(A$,1)"N" THEN 280 200 REM *** INSTRUCTIONS ON HOW TO
PLAY 210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO"A 220 PRINT "TRY TO
GUESS MY NUMBER. AFTER YOU GUESS, I" 230 PRINT "WILL TYPE ONE OR MORE STAR R
Q9-NEW CYCL S4-SGN OF A S5-TTL DYS SLS S(I)-VALUE/SHR 107 REM T-TTL STCK ASSTS
T5-TTL VAL OF TRNSCTNS 108 REM W3-LRG CHNG X1-SMLL CHNG($1) Z4,Z5,Z6-NYSE AVE.
Z(I)-TRNSCT 110 DIM S(5),P(5),Z(5),C(5) 112 REM SLOPE OF MARKET TRENDA (SAM
E FOR ALL STOCKS) 113 LET X1 114 LET AINT((RND(X)/10)*100+.5)/100 115 LET T
50 116 LET X90 117 LET N10 118 LET N20 119 LET E10 120 LET E20 121 REM INT
RODUCTION 122 PRINT "DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)" 1
23 INPUT Z9NET CHANGEZ6 363 LET Z4Z5 364 LET Z50 365 LET T0 370 FOR I1 TO
5 375 LET Z5Z5+S(I) 380 LET TT+S(I)*P(I) 390 NEXT I 391 LET Z5INT(100*(Z5/
5)+.5)/100 392 LET Z6INT((Z5-Z4)*100+.5)/100 393 REM TOTAL ASSETSD 394 LET
DT+C 395 IF X90 THEN 398 396 PRINT "NEW YORK STOCK EXCHANGE AVERAGE "Z5 397
GOTO 399 398 PRINT "NEW YORK STOCK EXCHANGE AVERAGE "Z5"NET CHANGE"Z6 399 PR
INT 400 LET TINT(100*T+.5)/100 401 PRINT "TOTAL STOCK ASSETS ARE $"T 403
LET CINT(100*C+.5)/100 4 124 PRINT 125 PRINT 126 IF Z91 THEN 200 130 PRI
NT "THIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN" 132 PRINT "$10,00
0 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL" 134 PRINT "BE GENERATED R
ANDOMLY AND THEREFORE THIS MODEL DOES NOT" 135 PRINT "REPRESENT EXACTLY WHAT H
APPENS ON THE EXCHANGE. A TABLE" 136 PRINT "OF AVAILABLE STOCKS, THEIR PRICES,
AND THE NUMBER OF SHARES" 137 PRINT "IN YOUR PORTFOLIO WILL BE PRINTED. FOLLO
WING THIS, THE" 138 PRINT "INITIALS OF EACH STOCK WILL 05 PRINT "TOTAL CASH AS
SETS ARE $"C 407 LET DINT(100*D+.5)/100 408 PRINT "TOTAL ASSETS ARE
$"D 410 PRINT 411 IF X90 THEN 416 412 PRINT "DO YOU WISH TO CONTINUE (YES-
TYPE 1, NO-TYPE 0)" 413 INPUT Q9 414 IF Q91 THEN 998 416 REM INPUT TRANSACTIO
NS 420 PRINT "WHAT IS YOUR TRANSACTION IN" 430 PRINT "IBM" 440 INPUT Z(1)
450 PRINT "RCA" 460 INPUT Z(2) 470 PRINT "LBJ" 480 INPUT Z(3) 490 PRINT "ABC
" 500 INPUT Z(4) 510 PRINT "CBS" 520 INPUT Z(5) 525 PRINT 530 REM TOTAL BE
PRINTED WITH A QUESTION" 139 PRINT "MARK. HERE YOU INDICATE A TRANSACTION. T
O BUY A STOCK" 140 PRINT "TYPE +NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS T
HE" 141 PRINT "NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED" 142
PRINT "ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS" 143 PRINT "TO
ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" 144 PRINT "HAVE $10,000 T
O INVEST. USE INTEGERS FOR ALL YOUR INPUTS." 145 PRINT "(NOTE TO GET A 'FEEL'
FOR THE MARKET RUN FOR AT LEDAY'S PURCHASES IN $P5 540 LET P50 550 REM TOTAL
DAY'S SALES IN $S5 560 LET S50 570 FOR I1 TO 5 575 LET Z(I)INT(Z(I)+.5) 580
IF Z(I)0 THEN 610 590 LET P5P5+Z(I)*S(I) 600 GOTO 620 610 LET S5S5-Z(I)*S
(I) 612 IF -Z(I)P(I) THEN 620 614 PRINT "YOU HAVE OVERSOLD A STOCK TRY AGAIN
." 616 GOTO 420 620 NEXT I 622 REM TOTAL VALUE OF TRANSACTIONST5 625 LET
T5P5+S5 630 REM BROKERAGE FEEB5 640 LET B5INT(.01*T5*100+.5)/100 650 REM CA
SH ASSETSOLD CASH ASSETS-TOTAL PURCHASES 6AST" 146 PRINT "10 DAYS)" 147 PRIN
T "-----GOOD LUCK!-----" 200 REM GENERATION OF STOCK TABLE INPUT REQUESTS 21
0 REM INITIAL STOCK VALUES 220 LET S(1)100 230 LET S(2)85 240 LET S(3)150
250 LET S(4)140 260 LET S(5)110 265 REM INITIAL T8 - # DAYS FOR FIRST TREND SL
OPE (A) 266 LET T8INT(4.99*RND(X)+1) 267 REM RANDOMIZE SIGN OF FIRST TREND SL
OPE (A) 268 IF RND(X).5 THEN 270 269 LET A-A 270 REM RANDOMIZE INITIAL VALUE
S 280 GOSUB 830 285 REM INITIAL PORTFOLIO CONTENTS 290 FOR I52 REM -BROKER
AGE FEES+TOTAL SALESC5 654 LET C5C-P5-B5+S5 656 IF C50 THEN 674 658 PRINT
"YOU HAVE USED $"-C5" MORE THAN YOU HAVE." 660 GOTO 420 674 LET CC5 675 REM
CALCULATE NEW PORTFOLIO 680 FOR I1 TO 5 690 LET P(I)P(I)+Z(I) 700 NEXT I 7
10 REM CALCULATE NEW STOCK VALUES 720 GOSUB 830 750 REM PRINT PORTFOLIO 751
REM BELL RINGING-DIFFERENT ON MANY COMPUTERS 755 PRINT 756 PRINT "*********
* END OF DAY'S TRADING **********" 757 PRINT 758 PRINT 759 IF X91 T
HEN 769 71 TO 5 300 LET P(I)0 305 LET Z(I)0 310 NEXT I 320 PRINT 330 PRIN
T 333 REM INITIALIZE CASH ASSETSC 335 LET C10000 338 REM PRINT INITIAL POR
TFOLIO 340 PRINT "STOCK"," ","INITIALS","PRICE/SHARE" 350 PRINT "INT. BALLISTI
C MISSILES"," IBM",S(1) 352 PRINT "RED CROSS OF AMERICA"," RCA",S(2) 354 PR
INT "LICHTENSTEIN, BUMRAP & JOKE"," LBJ",S(3) 356 PRINT "AMERICAN BANKRUPT CO.
"," ABC",S(4) 358 PRINT "CENSURED BOOKS STORE"," CBS",S(5) 360 PRINT 361
REM NYSE AVERAGEZ5 TEMP. VALUEZ4 R69 PRINT "STOCK","PRICE/SHARE","HOLDINGS", "
VALUE", "NET PRICE CHANGE" 770 PRINT "IBM", S(1), P(1), S(1)*P(1), C(1) 771 PR
INT "RCA", S(2), P(2), S(2)*P(2), C(2) 772 PRINT "LBJ", S(3), P(3), S(3)*P(3),
C(3) 773 PRINT "ABC", S(4), P(4), S(4)*P(4), C(4) 774 PRINT "CBS", S(5), P(5),
S(5)*P(5), C(5) 775 LET X91 780 PRINT 790 PRINT 810 GOTO 360 829 REM NE
W STOCK VALUES - SUBROUTINE 830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON
PREVIOUS 831 REM DAY'S VALUES 832 REM N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH
RESPECTIVELY 833 REM DETERMINE WHEN STOCK I1 WILL INCREASE 10 PTS. AND STOCK 8
34 REM I2 WILL DECREASE 10 PTS. 840 REM IF N1 DAYS HAVE PASSED, PICK AN I1, SE
T E1, DETERMINE NEW N1 841 IF N10 THEN 850 845 LET I1INT(4.99*RND(X)+1) 846
LET N1INT(4.99*RND(X)+1) 847 LET E11 850 REM IF N2 DAYS HAVE PASSED, PICK AN
I2, SET E2, DETERMINE NEW N2 851 IF N20 THEN 860 855 LET I2INT(4.99*RND(X)+1
) 856 LET N2INT(4.99*RND(X)+1) 857 LET E21 860 REM DEDUCT ONE DAY FROM N1 A
ND N2 861 if 1 then print "hi" print "lo" if 1 then print "this" print "that"
else print "what " if 0 then print "help" print "yours" else print "mine" if 1
then print "blue" else print "yellow" print "orange" if 0 then print "brown" e
lse print "fucia" print "azure" if 1 then print "bark" print "mark" else print
"zark" print "flark" endif if 0 then print "whoops" print "whapps" else print "
paps" print "maps" endif if 1 then print "this is 1" print "this is 2
" endif if 1 then prLET N1N1-1 862 LET N2N2-1 890 REM LOOP THRO
UGH ALL STOCKS 900 FOR I1 TO 5 910 LET X1RND(X) 915 IF X1.25 THEN 920 916 L
ET X1.25 917 GOTO 935 920 IF X1.5 THEN 925 921 LET X1.5 922 GOTO 935 925
IF X1.75 THEN 930 926 LET X1.75 927 GOTO 935 930 LET X10.0 931 REM BIG CH
ANGE CONSTANTW3 (SET TO ZERO INITIALLY) 935 LET W30 936 IF E11 THEN 945 937
IF INT(I1+.5)INT(I+.5) THEN 945 938 REM ADD 10 PTS. TO THIS STOCK RESET E1
939 LET W310 943 LET E10 945 IF E21 THEN 9int "this is 3" print "this is
4" else print "this is 5" print "this is 6" endif if 0 the
n print "this is 7" print "this is 8" else print "this is 9"
print "this is 10" endif if 1 then print "yes" if 3 then
print "no" else print "why" endif else print "no no"
if 0 then print "who" else print "what" endif endi
f if 1 then print "wild" else if 2 then print "bite" else print "camping" 55
947 IF INT(I2+.5)INT(I+.5) THEN 955 948 REM SUBTRACT 10 PTS. FROM THIS STOCK
RESET E2 949 LET W3W3-10 953 LET E20 954 REM C(I) IS CHANGE IN STOCK VALUE
955 LET C(I)INT(A*S(I))+X1+INT(3-6*RND(X)+.5)+W3 956 LET C(I)INT(100*C(I)+.5)/
100 957 LET S(I)S(I)+C(I) 960 IF S(I)0 THEN 967 964 LET C(I)0 965 LET S(I)0
966 GOTO 970 967 LET S(I)INT(100*S(I)+.5)/100 970 NEXT I 972 REM AFTER T8
DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 973 LET T8T8-1 974 IF T81 THEN 98
5 980 RETURN if 1 then print "carp" if 1 then print "bat" if 1 then p
rint "steelhead" endif if 1 then print "adder" else print "whatchac
allit" print "smack" endif if 0 then print "last" else print "ye
p" print "howsit" endif select 1 case 1 print "one" case 2 p
rint "two" case 3 print "three" other print "something" endsel se
lect 2 case 1 print "one" case 2 print "two" case 3 print "three"
other print "something" endse985 REM RANDOMLY CHANGE TREND SIGN AND SLOP
E (A), AND DURATION 986 REM OF TREND (T8) 990 LET T8INT(4.99*RND(X)+1) 992
LET AINT((RND(X)/10)*100+.5)/100 993 LET S4RND(X) 994 IF S4.5 THEN 997 995
LET A-A 997 RETURN 998 PRINT "HOPE YOU HAD FUN!!" 999 END Rl select 3
case 1 print "one" case 2 print "two" case 3 print "three" othe
r print "something" endsel select 4 case 1 print "one" case 2 p
rint "two" case 3 print "three" other print "something" endsel se
lect 234 case 1 print "one" case 2 print "two" case 3 print "three
" other print "something" endsel select 10 case 1 print "one"
case 2 print "two" case 3 print "three" endsel print "and after" s
el45 RR+1 IF R5 THEN 390 350 ON R GOTO 355,360,365,370,375 355 P3INT(P1*.05)*2
0 GOTO 390 360 P3INT(P1*.1)*10 GOTO 390 365 P3INT(P1*.5)*2 GOTO 390 370 P3INT
(P1) GOTO 390 375 P3P1 390 PRINT " ESTIMATED DISTANCE"P3 400 PRINTPRINT "
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE" 405 INPUT A1,B1,P2 4
10 PRINT IF P220 THEN PRINT "YOU BLEW YOURSELF UP!!" GOTO 580 420 A1A1/R1 B1B1/
R1 PRINT "RADIANS FROM X AXIS "A1" " 425 PRINT "FROM Z AXIS "B1 480 X1P2*SIN(
B1)*ect "fork" case "knife" print "its a knife" case "spoon" print "it
s a spoon" case "fork" print "its a fork" other print "don't kno
w what it is" endsel select 1.2 case 1.1 print "point 1" case 1.
2 print "point 2" case 1.3 print "point 3" endsel select 1 case 1 prin
t "one" case 2 print "two" case 3 print "three" endsel COS(A1) Y1P2*SIN(B1)*S
IN(A1) Z1P2*COS(B1) 510 D((X1-X)2+(Y1-Y)2+(Z1-Z)2)(1/2) 520 IF D20 THEN 670 5
30 PRINT PRINT " * * * HIT * * * TARGET IS NON-FUNCTIONAL" PRINT 550 PRINT "D
ISTANCE OF EXPLOSION FROM TARGET WAS"D"KILOMETERS." 570 PRINT PRINT "MISSION AC
COMPLISHED IN "R" SHOTS." 580 R0 FOR I1 TO 5 PRINT NEXT I PRINT "NEXT TARGET...
" PRINT 590 GOTO 220 670 X2X1-X Y2Y1-Y Z2Z1-Z IF X20 THEN 730 710 PRINT "SHOT
IN FRONT OF TARGET"X2"KILOMETERS." GOTO 740 730 PRINT "SHOT BEHIND TARGET"-X2"
KILOMETERS." 740 IF Y20 THEN 770 750 PRINT "SHOT TO LEFT OF TARGET"Y2"KILOMETE
RS." GOTO 780 770 PRINT "SHOT TO RIGHT OF TARGET"-Y2"KILOMETERS." 780 IF Z20 T
HEN 810 790 PRINT "SHOT ABOVE TARGET"Z2"KILOMETERS." GOTO 820 810 PRINT "SHOT
BELOW TARGET"-Z2"KILOMETERS." 820 PRINT "APPROX POSITION OF EXPLOSION X"X1"
Y"Y1" Z"Z1 830 PRINT " DISTANCE FROM TARGET "D PRINT PRINT PRINT GOTO 345
999 END K9+1 980 B30IFRND(1).96THENB31B9B9+1 110 PRINT TAB(33)"TARGET" 20
PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT PRINT PRINT
100 R1 R157.296 P3.14159 110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STARSHI
P ENTERPRISE" 120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU" 13
0 PRINT "ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD" 140 PRINT "THE RA
DIAN OFFSET FOR THE X AND Z AXES, THE LOCATION" 150 PRINT "OF THE TARGET IN THR
EE DIMENSIONAL RECTANGULAR COORDINATES," 160 PRINT "THE APPROXIMATE NUMBE040 G(
I,J)K3*100+B3*10+FNR(1)NEXTJNEXTIIFK9T9THENT9K9+1 1100 IFB90THEN1200 1150 IFG(
Q1,Q2)200THENG(Q1,Q2)G(Q1,Q2)+120K9K9+1 1160 B91G(Q1,Q2)G(Q1,Q2)+10Q1FNR(1)Q2FN
R(1) 1200 K7K9IFB91THENX$"S"X0$" ARE " 1230 PRINT"YOUR ORDERS ARE AS FOLLOWS"
1240 PRINT" DESTROY THE"K9"KLINGON WARSHIPS WHICH HAVE INVADED" 1252 PRINT
" THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS" 1260 PRINT" ON
STARDATE"T0+T9" THIS GIVES YOU"T9"DAYS. THERE"X0$ 1272 PRINT" "B9R OF DEGRE
ES FROM THE X AND Z" 170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGE
T." 180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS" 190
PRINT "DESTROYED!" PRINT PRINT "GOOD LUCK!!"PRINT PRINT 220 ARND(1)*2*P BRND(1)
*2*P QINT(A*R1) WINT(B*R1) 260 PRINT "RADIANS FROM X AXIS "A" FROM Z AXIS "B
280 P1100000*RND(1)+RND(1) XSIN(B)*COS(A)*P1 YSIN(B)*SIN(A)*P1 290 ZCOS(B)*P1
340 PRINT "TARGET SIGHTED APPROXIMATE COORDINATES X"X" Y"Y" Z"Z 3 R100 PRI
NT TAB(33)"QUBIC"PRINT 110 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JE
RSEY" 120 PRINTPRINTPRINT 210 PRINT "DO YOU WANT INSTRUCTIONS" 220 INPUT C$
230 IF LEFT$(C$,1)"N" THEN 315 240 IF LEFT$(C$,1)"Y" THEN 265 250 PRINT "INCOR
RECT ANSWER. PLEASE TYPE 'YES' OR 'NO'" 260 GOTO 220 265 PRINT 270 PRINT "TH
E GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE." 280 PRINT "EACH MOVE IS INDICATED B
Y A 3 DIGIT NUMBER, WITH EACH" 290 PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE
DIGITS INDICATE 1000 GOTO 500 1010 NEXT J 1020 GOTO 1300 1030 I1 1040 LET L
(I)X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4)) 1050 LET L L(I) 1060 IF L 2 THEN 1
130 1070 IF L3 THEN 1130 1080 IF L2 THEN 2230 1090 FOR J 1 TO 4 1100 IF X(M
(I,J))0 THEN 1120 1110 LET X(M(I,J))1/8 1120 NEXT J 1130 II+1 IF I76 THEN 104
0 1140 GOSUB 1640 1150 I1 1160 IF L(I)1/2 THEN 2360 1170 IF L(I)1+3/8 THEN 2
360 1180 II+1 IF I76 THEN 1160 1190 GOTO 1830 1200 LET Z 1 1210 IF X(Y(Z))0
THEN 1250 1220 LET ZZ THE" 300 PRINT "LEVEL, ROW, AND COLUMN, RESPECTIVELY, O
F THE OCCUPIED" 305 PRINT "PLACE. " 306 PRINT 307 PRINT "TO PRINT THE PLAYIN
G BOARD, TYPE 0 (ZERO) AS YOUR MOVE." 308 PRINT "THE PROGRAM WILL PRINT THE BOA
RD WITH YOUR MOVES INDI-" 309 PRINT "CATED WITH A (Y), THE MACHINE'S MOVES WITH
AN (M), AND" 310 PRINT "UNUSED SQUARES WITH A ( ). OUTPUT IS ON PAPER." 311
PRINT 312 PRINT "TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR MOVE." 313 PRINTPRINT
315 DIM X(64),L(76),M(76,4),Y(16) 320 FOR I 1 TO +1 1230 IF Z17 THEN 1210
1240 GOTO 1720 1250 LET MY(Z) 1260 LET X(M)5 1270 PRINT "MACHINE MOVES TO" 1
280 GOSUB 1570 1290 GOTO 500 1300 LET XX 1310 I1 1320 LET L(I)X(M(I,1))+X(M(
I,2))+X(M(I,3))+X(M(I,4)) 1330 LET LL(I) 1340 IF L10 THEN 1410 1350 IF L11 TH
EN 1410 1360 IF L10 THEN 2230 1370 FOR J1 TO 4 1380 IF X(M(I,J))0 THEN 1400
1390 LET X(M(I,J))1/8 1400 NEXT J 1410 II+1 IF I76 THEN 1320 1420 GOSUB 1640
1430 I1 1440 IF L(I).5 THEN 2360 1450 IF L(I)5+3/8 THEN 2316 330 READ Y(I)
340 NEXT I 350 FOR I1 TO 76 360 FOR J 1 TO 4 370 READ M(I,J) 380 NEXT J 39
0 NEXT I 400 FOR I 1 TO 64 410 LET X(I)0 420 NEXT I 430 LET Z1 440 PRINT "
DO YOU WANT TO MOVE FIRST" 450 INPUT S$ 460 IF LEFT$(S$,1)"N" THEN 630 470 IF
LEFT$(S$,1)"Y" THEN 500 480 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO
'." 490 GOTO 450 500 PRINT " " 510 PRINT "YOUR MOVE" 520 INPUT J1 521 IF J1
1 THEN 2770 522 IF J10 THEN 525 523 GOSUB 2550 524 GOTO 500 525 IF J1111 TH6
0 1460 II+1 IF I76 THEN 1440 1470 GOSUB 2500 1480 GOTO 1030 1490 PRINT " "
1500 PRINT "DO YOU WANT TO TRY ANOTHER GAME" 1510 INPUT X$ 1520 IF LEFT$(X$,1)
"Y" THEN 400 1530 IF LEFT$(X$,1)"N" THEN 1560 1540 PRINT "INCORRECT ANSWER. PL
EASE TYPE 'YES' OR 'NO'" 1550 GOTO 1510 1560 STOPRUN "MENU" 1570 LET K1INT((M
-1)/16)+1 1580 LET J2M-16*(K1-1) 1590 LET K2INT((J2-1)/4)+1 1600 LET K3M-(K1-
1)*16-(K2-1)*4 1610 LET MK1*100+K2*10+K3 1620 PRINT M 1630 RETURN 1640 FOR S
1 TO 76 1650 LEN 2750 526 IF J1444 THEN 2750 530 GOSUB 2500 540 LET K1INT(J1
/100) 550 LET J2(J1-K1*100) 560 LET K2INT(J2/10) 570 LET K3 J1 - K1*100 -K2*1
0 580 LET M16*K1+4*K2+K3-20 590 IF X(M)0 THEN 620 600 PRINT "THAT SQUARE IS U
SED, TRY AGAIN." 610 GOTO 500 620 LET X(M)1 630 GOSUB 1640 640 J1 650 I1 6
60 IF J1 THEN 720 670 IF J2 THEN 790 680 IF J3 THEN 930 690 II+1 IF I76 THEN
660 700 JJ+1 IF J3 THEN 650 710 GOTO 1300 720 IF L(I)4 THEN 690 730 PRINT "Y
OU WIN AS FOLLOWS" 740ET J1 M(S,1) 1660 LET J2M(S,2) 1670 LET J3M(S,3) 1680
LET J4M(S,4) 1690 LET L(S)X(J1)+X(J2)+X(J3)+X(J4) 1700 NEXT S 1710 RETURN 1
720 FOR I1 TO 64 1730 IF X(I)0 THEN 1800 1740 LET X(I)5 1750 LET MI 1760 PRI
NT "MACHINE LIKES" 1770 GOSUB 1570 1780 PRINT " " 1790 GOTO 500 1800 NEXT I
1810 PRINT "THE GAME IS A DRAW." 1820 GOTO 1490 1830 FOR K1 TO 18 1840 LET P
0 1850 FOR I4*K-3 TO 4*K 1860 FOR J1 TO 4 1870 LET PP+X(M(I,J)) 1880 NEXT J
1890 NEXT I 1900 IF P4 THEN 1940 19 FOR J1 TO 4 750 LET MM(I,J) 760 GOSUB 1
570 770 NEXT J 780 GOTO 1490 790 IF L(I)15 THEN 690 800 FOR J1 TO 4 810 LET
MM(I,J) 820 IF X(M)0 THEN 860 830 LET X(M)5 840 PRINT "MACHINE MOVES TO" 85
0 GOSUB 1570 860 NEXT J 870 PRINT ", AND WINS AS FOLLOWS" 880 FOR J1 TO 4 89
0 LET MM(I,J) 900 GOSUB 1570 910 NEXT J 920 GOTO 1490 930 IF L(I)3 THEN 690
940 PRINT "NICE TRY. MACHINE MOVES TO" 950 FOR J1 TO 4 960 LET MM(I,J) 970
IF X(M)0 THEN 1010 980 LET X(M)5 990 GOSUB 1570 R10 IF P5 THEN 1970 1920 IF
P9 THEN 1940 1930 IF P10 THEN 1970 1940 NEXT K 1950 GOSUB 2500 1960 GOTO 12
00 1970 LET S1/8 1980 FOR I4*K-3 TO 4*K 1990 GOTO 2370 2000 NEXT I 2010 LET
S0 2020 GOTO 1980 2030 DATA 1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43 20
40 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 2050 DATA 21,22,23,2
4,25,26,27,28,29,30,31,32,33,34,35,36,37,38 2060 DATA 39,40,41,42,43,44,45,46,4
7,48,49,50,51,52,53,54,55,56 2070 DATA 57,58,59,60,61,62,63,64 2080 DATA 1,17E
M PRINT CHR$(12) 2740 RETURN 2750 PRINT"INCORRECT MOVE, RETYPE IT--" 2760 GOT
O 520 2770 END FC11ANDC19THEN4850 4790 PRINT"ENSIGN CHEKOV REPORTS, 'INCORRE
CT COURSE DATA, SIR!'" 4800 GOTO1990 4850 X1C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-IN
T(C1))EE-2PP-1 4860 X2C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1))XS1YS2 4910 PRIN
T"TORPEDO TRACK" 4920 XX+X1YY+X2X3INT(X+.5)Y3INT(Y+.5) 4960 IFX31ORX38ORY31ORY
38THEN5490 5000 PRINT" "X3","Y3A$" "Z1XZ2YGOSUB8830 5050,33,49
,5,21,37,53,9,25,41,57,13,29,45,61 2090 DATA 2,18,34,50,6,22,38,54,10,26,42,58,
14,30,46,62 2100 DATA 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63 2110 DATA
4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64 2120 DATA 1,5,9,13,17,21,25,29,33
,37,41,45,49,53,57,61 2130 DATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62
2140 DATA 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63 2150 DATA 4,8,12,16,20,
24,28,32,36,40,44,48,52,56,60,64 2160 DATA 1,6,11,16,17,22,27,32,33,38,43,48,49
,54,59,64 2170 DATA 13,10 IFZ30THEN4920 5060 A$"+K+"Z1XZ2YGOSUB8830IFZ30THEN52
10 5110 PRINT"*** KLINGON DESTROYED ***"K3K3-1K9K9-1IFK90THEN6370 5150 FORI1TO
3IFX3K(I,1)ANDY3K(I,2)THEN5190 5180 NEXTII3 5190 K(I,3)0GOTO5430 5210 A$" * "
Z1XZ2YGOSUB8830IFZ30THEN5280 5260 PRINT"STAR AT"X3","Y3"ABSORBED TORPEDO ENERGY
."GOSUB6000GOTO1990 5280 A$"!"Z1XZ2YGOSUB8830IFZ30THEN4760 5330 PRINT"*** STAR
BASE DESTROYED ***"B3B3-1B9B9-1 5360 IFB90ORK9T-T0-T9THEN5400 5370 PRINT"THAT
DOE,7,4,29,26,23,20,45,42,39,36,61,58,55,52 2180 DATA 1,21,41,61,2,22,42,62,3,2
3,43,63,4,24,44,64 2190 DATA 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16 2
200 DATA 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64 2210 DATA 49,34,19,4,53,3
8,23,8,57,42,27,12,61,46,31,16 2220 DATA 1,22,43,64,16,27,38,49,4,23,42,61,13,2
6,39,52 2230 FOR J1 TO 4 2240 IF X(M(I,J))1/8 THEN 2330 2250 LET X(M(I,J))5
2260 IF L(I)5 THEN 2290 2270 PRINT "LET'S SEE YOU GET OUT OF THIS MACHINE MOVE
S TO" 2280 GOTO 2300 2290 10 print "I am test 1" 20 end ELIEVED OF COMMAND"
5380 PRINT"AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12!!" 5390 GO
TO 6270 5400 PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER" 5410 P
RINT"COURT MARTIAL!"D00 5430 Z1XZ2YA$" "GOSUB8670 5470 G(Q1,Q2)K3*100+B3*10+
S3Z(Q1,Q2)G(Q1,Q2)GOSUB6000GOTO1990 5490 PRINT"TORPEDO MISSED"GOSUB6000GOTO1990
5520 REM SHIELD CONTROL 5530 IFD(7)0THENPRINT"SHIELD CONTROL INOPERABLE"GOTO1
990 5560 PRINT"ENERGY AVAILABLE "E+SIPRINT "YOU FOX. JUST IN THE NICK OF TIME,
MACHINE MOVES TO" 2300 LET MM(I,J) 2310 GOSUB 1570 2320 GOTO 500 2330 NEXT
J 2340 PRINT "MACHINE CONCEDES THIS GAME." 2350 GOTO 1490 2360 LET S1/8 2370
IF I-INT(I/4)*41 THEN 2400 2380 LET A1 2390 GOTO 2410 2400 LET A2 2410 FOR
JA TO 5-A STEP 5-2*A 2420 IF X(M(I,J))S THEN 2450 2430 NEXT J 2440 GOTO 2000
2450 LET X(M(I,J))5 2460 LET MM(I,J) 2470 PRINT "MACHINE TAKES" 2480 GOSUB 1
570 2490 GOTO 500 2500 FOR I1 TO 64 2510 IF X(I)1/8 TNPUT"NUMBER OF UNITS TO
SHIELDS"X 5580 IFX0ORSXTHENPRINT"SHIELDS UNCHANGED"GOTO1990 5590 IFXE+STHEN563
0 5600 PRINT"SHIELD CONTROL REPORTS 'THIS IS NOT THE FEDERATION TREASURY.'" 5
610 PRINT"SHIELDS UNCHANGED"GOTO1990 5630 EE+S-XSXPRINT"DEFLECTOR CONTROL ROOM
REPORT" 5660 PRINT" 'SHIELDS NOW AT"INT(S)"UNITS PER YOUR COMMAND.'"GOTO1990
5680 REM DAMAGE CONTROL 5690 IFD(6)0THEN5910 5700 PRINT"DAMAGE CONTROL REPORT
NOT AVAILABLE"IFD00THEN1990 5720 D30FORI1TO8IFD(I)0THEND3DHEN 2530 2520 LET X(
I)0 2530 NEXT I 2540 RETURN 2550 FOR XX1 TO 9PRINTNEXTFOR I1 TO 4 2560 FOR J
1 TO 4 2562 FOR I11 TO J 2564 PRINT" " 2566 NEXT I1 2570 FOR K1 TO 4 2600
LET Q16*I+4*J+K-20 2610 IF X(Q)O THEN 2630 2620 PRINT"( ) " 2630 IF X(Q
)5 THEN 2650 2640 PRINT"(M) " 2650 IF X(Q)1 THEN 2660 2655 PRINT"(Y)
" 2660 IF X(Q)1/8 THEN 2670 2665 PRINT"( ) " 2670 NEXT K 2680 PRINT
2690 PRINT 2700 NEXT J 2710 PRINT 2720 PRINT 2730 NEXT I 2735 R R2 PRINT T
AB(30)"TIC-TAC-TOE" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
6 PRINTPRINTPRINT 8 PRINT "THE BOARD IS NUMBERED" 10 PRINT " 1 2 3" 12 PR
INT " 4 5 6" 14 PRINT " 7 8 9" 16 PRINTPRINTPRINT 20 DIM S(9) 50 INPUT"D
O YOU WANT 'X' OR 'O'"C$ 55 IF C$"X"THEN 475 60 P$"O"Q$"X" 100 G-1H1IF S(5)0
THEN 103 102 S(5)-1GOTO 195 103 IF S(5)1 THEN 106 104 IF S(1)0 THEN 110 105
S(1)-1GOTO 195 106 IF S(2)1 AND S(1)0 THEN 181 107 IF S(4)1 AND S(1)0 T+1)THEN
1115 1105 IF S(I)S(I+2)THEN 1115 1110 IF S(I)-1 THEN 1350 1112 IF S(I)1 THEN
1200 1115 NEXT IFOR I1 TO 3IF S(I)S(I+3)THEN 1150 1130 IF S(I)S(I+6)THEN 1150
1135 IF S(I)-1 THEN 1350 1137 IF S(I)1 THEN 1200 1150 NEXT IFOR I1 TO 9IF S(
I)0 THEN 1155 1152 NEXT IGOTO 1400 1155 IF S(5)G THEN 1170 1160 IF S(1)G AND
S(9)G THEN 1180 1165 IF S(3)G AND S(7)G THEN 1180 1170 RETURN 1180 IF G-1 THE
N 1350 1200 PRINT"YOU BEAT ME!! GOOD GAME."GOTO 2000 1350 PRINT"I WIN, TURKEYH
EN 181 108 IF S(6)1 AND S(9)0 THEN 189 109 IF S(8)1 AND S(9)0 THEN 189 110 IF
G1 THEN 112 111 GOTO 118 112 J3*INT((M-1)/3)+1 113 IF 3*INT((M-1)/3)+1M THEN
K1 114 IF 3*INT((M-1)/3)+2M THEN K2 115 IF 3*INT((M-1)/3)+3M THEN K3 116 GOT
O 120 118 FOR J1 TO 7 STEP 3FOR K1 TO 3 120 IF S(J)G THEN 130 122 IF S(J+2)G
THEN 135 126 IF S(J+1)0 THEN 150 128 S(J+1)-1GOTO 195 130 IF S(J)H THEN 150
131 IF S(J+2)G THEN 150 132 IF S(J+1)G THEN 150 133 S(J)-1GOTO 195 135 IF S(J
+!!!"GOTO 2000 1400 PRINT"IT'S A DRAW. THANK YOU." 2000 END 1ONA+1GOTO7540,79
00,8070,8500,8150,7400 7360 PRINT"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER" 7
370 PRINT" 0 CUMULATIVE GALACTIC RECORD" 7372 PRINT" 1 STATUS REPORT" 73
74 PRINT" 2 PHOTON TORPEDO DATA" 7376 PRINT" 3 STARBASE NAV DATA" 7378 P
RINT" 4 DIRECTION/DISTANCE CALCULATOR" 7380 PRINT" 5 GALAXY 'REGION NAME'
MAP"PRINTGOTO7320 7390 REM SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP 7400
H80G51PRINT" 2)0 THEN 150 136 IF S(J+1)G THEN 150 138 S(J+2)-1GOTO 195 150
IF S(K)G THEN 160 152 IF S(K+6)G THEN 165 156 IF S(K+3)0 THEN 170 158 S(K+3)
-1GOTO 195 160 IF S(K)H THEN 170 161 IF S(K+6)G THEN 170 162 IF S(K+3)G THEN
170 163 S(K)-1GOTO 195 165 IF S(K+6)0 THEN 170 166 IF S(K+3)G THEN 170 168 S
(K+6)-1GOTO 195 170 GOTO 450 171 IF S(3)G AND S(7)0 THEN 187 172 IF S(9)G AND
S(1)0 THEN 181 173 IF S(7)G AND S(3)0 THEN 183 174 IF S(9)0 AND S(1)G THEN 18
9 175 IF G- THE GALAXY"GOTO7550 7530 REM CUM GALACTIC RECOR
D 7540 REM INPUT"DO YOU WANT A HARDCOPY IS THE TTY ON (Y/N)"A$ 7542 REM IFA$"Y
"THENPOKE1229,2POKE1237,3NULL1 7543 PRINTPRINT" " 7544 PRINT"COMPUTER R
ECORD OF GALAXY FOR QUADRANT"Q1","Q2 7546 PRINT 7550 PRINT" 1 2
3 4 5 6 7 8" 7560 O1$" ----- ----- ----- ----- ----- --
--- ----- -----" 7570 PRINTO1$FORI1TO8PRINTIIFH80THEN7740 7630 FORJ1TO8PRINT"
"IFZ(I,J)0THENPRINT1 THEN G1H-1GOTO 110 176 IF S(9)1 AND S(3)0 THEN 182 177
FOR I2 TO 9IF S(I)0 THEN 179 178 S(I)-1GOTO 195 179 NEXT I 181 S(1)-1GOTO 195
182 IF S(1)1 THEN 177 183 S(3)-1GOTO 195 187 S(7)-1GOTO 195 189 S(9)-1 195
PRINTPRINT"THE COMPUTER MOVES TO..." 202 GOSUB 1000 205 GOTO 500 450 IF G1 T
HEN 465 455 IF J7 AND K3 THEN 465 460 NEXT K,J 465 IF S(5)G THEN 171 467 GOT
O 175 475 P$"X"Q$"O" 500 PRINTINPUT"WHERE DO YOU MOVE"M 502 IF M0 THEN PRINT"
THANKS FOR THE GAME."10 PRINT TAB(33)"TOWERS" 20 PRINT TAB(15)"CREATIVE COMPUTI
NG MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 90 PRINT 100 REM*** INITIALIZE
110 DIM T(7,3) 120 E0 130 FOR D1 TO 7 140 FOR N1 TO 3 150 T(D,N)0 160 NEX
T N 170 NEXT D 180 PRINT "TOWERS OF HANOI PUZZLE." PRINT 200 PRINT "YOU MUST
TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT" 205 PRINT "TOWER, ONE AT A TIME,
NEVER PUTTING A LARGER DISK ON A" 210 PRINT "SMALLER DISK." PRINT 215 INPUT "
HOW MANY DISKS DO YOU WANT TO MOVE (7 IS MAGOTO 2000 503 IF M9 THEN 506 505 IF
S(M)0 THEN 510 506 PRINT"THAT SQUARE IS OCCUPIED."PRINTPRINTGOTO 500 510 G1S(
M)1 520 GOSUB 1000 530 GOTO 100 1000 PRINTFOR I1 TO 9PRINT" "IF S(I)-1 THEN 1
014 1012 PRINT Q$" "GOTO 1020 1014 IF S(I)0 THEN 1018 1016 PRINT" "GOTO 1020
1018 PRINT P$" " 1020 IF I3 AND I6 THEN 1050 1030 PRINTPRINT"---+---+---" 1
040 GOTO 1080 1050 IF I9 THEN 1080 1060 PRINT"!" 1080 NEXT IPRINTPRINTPRINT
1095 FOR I1 TO 7 STEP 3 1100 IF S(I)S(I RX)"S 220 PRINT 230 M0 240 FOR Q1 T
O 7 250 IF QS THEN 350 260 NEXT Q 270 EE+1 280 IF E2 THEN 310 290 PRINT "SO
RRY, BUT I CAN'T DO THAT JOB FOR YOU." GOTO 215 310 PRINT "ALL RIGHT, WISE GUY,
IF YOU CAN'T PLAY THE GAME RIGHT, I'LL" 320 PRINT "JUST TAKE MY PUZZLE AND GO
HOME. SO LONG." STOP 340 REM *** STORE DISKS FROM SMALLEST TO LARGEST 350 PRI
NT "IN THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE." 355 PRINT "3 W
ILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE," 360 PRINT "7 THT(V,W) T(V,W)
0 995 REM *** PRINT OUT CURRENT STATUS 1000 GOSUB 1230 1018 REM *** CHECK IF
DONE 1020 MM+1 1030 FOR R1 TO 7 FOR C1 TO 2 1050 IF T(R,C)0 THEN 1090 1060 N
EXT C NEXT R 1080 GOTO 1120 1090 IF M128 THEN 480 1100 PRINT "SORRY, BUT I HA
VE ORDERS TO STOP IF YOU MAKE MORE THAN" 1110 PRINT "128 MOVES." STOP 1120 IF
M2S-1 THEN 1140 1130 PRINTPRINT "CONGRATULATIONS!!"PRINT 1140 PRINT "YOU HAVE
PERFORMED THE TASK IN"M"MOVES." 1150 PRINT PRINT "TRY AGAIN (YES OR NO)" INPE N
EXT, AND SO ON, UP TO 15. IF YOU DO THE PUZZLE WITH" 365 PRINT "2 DISKS, THEIR
CODE NAMES WOULD BE 13 AND 15. WITH 3 DISKS" 370 PRINT "THE CODE NAMES WOULD
BE 11, 13 AND 15, ETC. THE NEEDLES" 375 PRINT "ARE NUMBERED FROM LEFT TO RIGHT
, 1 TO 3. WE WILL" 380 PRINT "START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO
MOVE THEM" 385 PRINT "TO NEEDLE 3." 390 PRINT PRINT "GOOD LUCK!" PRINT 400 Y
7 D15 420 FOR XS TO 1 STEP -1 430 T(Y,1)D DD-2 YY-1 460 NEXT X 470 GOSUB 123
0 480 PRINT "WHICUT A$ 1160 IF A$"NO" THEN 1390 1170 IF A$"YES" THEN 90 1180
PRINT PRINT "'YES' OR 'NO' PLEASE" INPUT A$ GOTO 1160 1230 REM *** PRINT SUBRO
UTINE 1240 FOR K1 TO 7 1250 Z10 1260 FOR J1 TO 3 1270 IF T(K,J)0 THEN 1330
1280 PRINT TAB(Z-INT(T(K,J)/2)) 1290 FOR V1 TO T(K,J) 1300 PRINT "*" 1310 NEX
T V 1320 GOTO 1340 1330 PRINT TAB(Z)"*" 1340 ZZ+21 1350 NEXT J 1360 PRINT
1370 NEXT K 1380 RETURN 1390 PRINT PRINT "THANKS FOR THE GAME!" PRINT END H D
ISK WOULD YOU LIKE TO MOVE"E0 500 INPUT D 510 IF (D-3)*(D-5)*(D-7)*(D-9)*(D-11
)*(D-13)*(D-15)0 THEN 580 520 PRINT "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9
,11,13, OR 15." 530 EE+1 IF E1 THEN 560 550 GOTO 500 560 PRINT "STOP WASTING
MY TIME. GO BOTHER SOMEONE ELSE." STOP 580 REM *** CHECK IF REQUESTED DISK IS
BELOW ANOTHER 590 FOR R1 TO 7 600 FOR C1 TO 3 610 IF T(R,C)D THEN 640 620 NE
XT C NEXT R 640 FOR QR TO 1 STEP -1 645 IF T(Q,C)0 THEN 660 650 IF T(Q,C)D TH
EN 680 660 NE2 PRINT TAB(33)"SYNONYM" 4 PRINT TAB(15)"CREATIVE COMPUTING MORR
ISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT 10 DIM R$(5),W$(10),L(30),R(30) 20 R$
(1)"RIGHT" R$(2)"CORRECT" R$(3)"FINE" R$(4)"GOOD!" 30 R$(5)"CHECK" 70 C0 90 P
RINT "A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH" 100 PRINT "LANGUAG
E WHICH HAS THE SAME OR VERY NEARLY THE SAME" 110 PRINT " MEANING." 130 PRINT
"I CHOOSE A WORD -- YOU TYPE A SYNONYM." 140 PRINT "IF YOU CAN'T THINK OF A SYN
ONYM, TYPE THE WORD 'HELP'" 145XT Q 670 GOTO 700 680 PRINT "THAT DISK IS BELO
W ANOTHER ONE. MAKE ANOTHER CHOICE." 690 GOTO 480 700 E0 705 INPUT "PLACE DI
SK ON WHICH NEEDLE"N 730 IF (N-1)*(N-2)*(N-3)0 THEN 800 735 EE+1 740 IF E1 TH
EN 780 750 PRINT "I'LL ASSUME YOU HIT THE WRONG KEY THIS TIME. BUT WATCH IT,"
760 PRINT "I ONLY ALLOW ONE MISTAKE." GOTO 705 780 PRINT "I TRIED TO WARN YOU,
BUT YOU WOULDN'T LISTEN." 790 PRINT "BYE BYE, BIG SHOT."STOP 800 FOR R1 TO 7
810 IF T(R,N)0 THEN 840 820 NEXT R 830 GOTO 880 83 PRINT "AND I WILL TELL YO
U A SYNONYM." PRINT 150 RESTORE CC+1 READ N 160 IF CN THEN 420 170 N1INT(RND(
1)*N+1) 174 IF R(N1)1 THEN 170 176 R(N1)1 180 FOR I1 TO N1 190 READ N2 200
FOR J1 TO N2 210 READ W$(J) 220 NEXT J 230 NEXT I 232 FOR J1 TO N2 L(J)J NEX
T J 235 L(0)N2 G1 PRINT 237 L(G)L(L(0)) L(0)N2-1 PRINT 240 PRINT " WHAT I
S A SYNONYM OF "W$(G) INPUT A$ 250 IF A$"HELP" THEN 340 260 FOR K1 TO N2 270
IF GK THEN 290 280 IF A$W$(K) THEN 320 290 NEXT K 300 5 REM *** CHECK IF DISK
TO BE PLACED ON A LARGER ONE 840 IF DT(R,N) THEN 880 850 PRINT "YOU CAN'T PLA
CE A LARGER DISK ON TOP OF A SMALLER ONE," 860 PRINT "IT MIGHT CRUSH IT!" PRINT
"NOW THEN, "GOTO 480 875 REM *** MOVE RELOCATED DISK 880 FOR V1 TO 7 FOR W1 T
O 3 900 IF T(V,W)D THEN 930 910 NEXT W NEXT V 925 REM *** LOCATE EMPTY SPACE
ON NEEDLE N 930 FOR U1 TO 7 940 IF T(U,N)0 THEN 970 950 NEXT U 960 U7 GOTO 9
80 965 REM *** MOVE DISK AND SET OLD LOCATION TO 0 970 UU-1 980 T(U,N) R
PRINT " TRY AGAIN." GOTO 240 320 PRINT R$(INT(RND(1)*5+1)) GOTO 150
340 G1INT(RND(1)*L(0)+1) 360 PRINT "**** A SYNONYM OF "W$(G)" IS "W$(L(G1))"."
PRINT 370 L(G1)L(L(0)) L(0)L(0)-1 GOTO 240 420 PRINT PRINT "SYNONYM DRILL COMP
LETED." GOTO 999 500 DATA 10 510 DATA 5,"FIRST","START","BEGINNING","ONSET","I
NITIAL" 520 DATA 5,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING" 530 DATA 5,"MO
DEL","PATTERN","PROTOTYPE","STANDARD","CRITERION" 540 DATA 5,"SMALL","INSIGNIFI
CANT","LITTLE","TINY","MEASURY." 28 PRINT "THE MONEY SYSTEM IS RALLODS, AND EAC
H PERSON NEEDS 100" 30 PRINT "RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOM
E COMES" 32 PRINT "FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT" 3
4 PRINT "FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND" 36 PRINT
"WHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAY BE SOLD" 38 PRINT "TO FORE
IGN INDUSTRY (STRIP MINING) WHO IMPORT AND SUPPORT" 40 PRINT "THEIR OWN WORKERS
. CROPS COST BETWEEN 10 AND 15 RALLODS PER" 42 PRINT "SINUTE" 550 DATA 6,"STOP
","HALT","STAY","ARREST","CHECK","STANDSTILL" 560 DATA 6,"HOUSE","DWELLING","RE
SIDENCE","DOMICILE","LODGING" 565 DATA "HABITATION" 570 DATA 7,"PIT","HOLE","H
OLLOW","WELL","GULF","CHASM","ABYSS" 580 DATA 7,"PUSH","SHOVE","THRUST","PROD",
"POKE","BUTT","PRESS" 590 DATA 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUB
Y" 600 DATA 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE" 605 DATA "D
ISCOMFORT" 999 END QUARE MILE TO PLANT." 44 PRINT "YOUR GOAL IS TO COMPLETE Y
OUR"N5"YEAR TERM OF OFFICE." 46 PRINT "GOOD LUCK!" 47 PRINT 50 AINT(60000+(10
00*RND(1))-(1000*RND(1))) 55 BINT(500+(10*RND(1))-(10*RND(1))) 65 D2000 100 W
INT(10*RND(1)+95) 102 PRINT 105 PRINT "YOU NOW HAVE "A" RALLODS IN THE TREASUR
Y." 110 PRINT INT(B)PRINT "COUNTRYMEN, " 115 V9INT(((RND(1)/2)*10+10)) 120 IF
C0 THEN 140 130 PRINT INT(C)"FOREIGN WORKERS, " 140 PRINT "AND"INT(D)"SQ. MIL
ES OF LAND." 150 PRINT "THIS YEAR I10 PRINT TAB(33)"KINEMA" 20 PRINT TAB(15)"C
REATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT PRINT PRINT 100 PRINT 105
PRINT 106 Q0 110 V5+INT(35*RND(1)) 111 PRINT "A BALL IS THROWN UPWARDS AT"V"
METERS PER SECOND." 112 PRINT 115 A.05*V2 116 PRINT "HOW HIGH WILL IT GO (IN
METERS)" 117 GOSUB 500 120 AV/5 122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECO
NDS)" 124 GOSUB 500 130 T1+INT(2*V*RND(1))/10 132 AV-10*T 134 PRINT "WHAT WI
LL ITS VELOCITY BE AFTER"T"SECONDS" 136 GOSUB 500NDUSTRY WILL BUY LAND FOR"W 1
52 PRINT "RALLODS PER SQUARE MILE." 155 PRINT "LAND CURRENTLY COSTS"V9"RALLODS
PER SQUARE MILE TO PLANT." 162 PRINT 200 PRINT "HOW MANY SQUARE MILES DO YOU W
ISH TO SELL TO INDUSTRY" 210 INPUT H 215 IF H0 THEN 200 220 IF HD-1000 THEN 3
00 230 PRINT "*** THINK AGAIN. YOU ONLY HAVE"D-1000"SQUARE MILES OF FARM LAND.
" 240 IF X0 THEN 200 250 PRINTPRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND
BECAUSE" 260 PRINT "FOREST LAND IS UNECONOMICAL TO STRIP MINE DUE T 140 PRINT
150 PRINT Q"RIGHT OUT OF 3." 160 IF Q2 THEN 100 170 PRINT " NOT BAD." 180
GOTO 100 500 INPUT G 502 IF ABS((G-A)/A).15 THEN 510 504 PRINT "NOT EVEN CLOS
E...." 506 GOTO 512 510 PRINT "CLOSE ENOUGH." 511 QQ+1 512 PRINT "CORRECT AN
SWER IS "A 520 PRINT 530 RETURN 999 END O TREES," 270 PRINT "THICKER TOP SO
IL, ETC.)" 280 X1 299 GOTO 200 300 DINT(D-H) 310 AINT(A+(H*W)) 320 PRINT "H
OW MANY RALLODS WILL YOU DISTRIBUTE AMONG YOUR COUNTRYMEN" 340 INPUT I 342 IF
I0 THEN 320 350 IF IA THEN 400 360 IF IA THEN 380 370 PRINT " THINK AGAIN.
YOU'VE ONLY"A" RALLODS IN THE TREASURY" 375 GOTO 320 380 J0 390 K0 395 A0 3
99 GOTO 1000 400 AINT(A-I) 410 PRINT "HOW MANY SQUARE MILES DO YOU WISH TO PLA
NT" 420 INPUT J 421 IF J0 THEN 410 422 IF JB*2 THEN 426 1 PRINT TAB(34)"KING"
2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT
4 PRINT "DO YOU WANT INSTRUCTIONS" 5 INPUT Z$ 6 N58 10 IF LEFT$(Z$,1)"N" TH
EN 47 11 IF Z$"AGAIN" THEN 1960 12 PRINTPRINTPRINT 20 PRINT "CONGRATULATIONS!
YOU'VE JUST BEEN ELECTED PREMIER OF SETATS" 22 PRINT "DETINU, A SMALL COMMUNIS
T ISLAND 30 BY 70 MILES LONG. YOUR" 24 PRINT "JOB IS TO DECIDE UPON THE CONTRY'
S BUDGET AND DISTRIBUTE" 26 PRINT "MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL T
R R 423 PRINT " SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES." 424
GOTO 410 426 IF JD-1000 THEN 430 427 PRINT " SORRY, BUT YOU'VE ONLY"D-1000"S
Q. MILES OF FARM LAND." 428 GOTO 410 430 U1INT(J*V9) 435 IF U1A THEN 500 440
IF U1A THEN 490 450 PRINT " THINK AGAIN. YOU'VE ONLY"A" RALLODS LEFT IN THE
TREASURY." 460 GOTO 410 490 K0 495 A0 499 GOTO 1000 500 AA-U1 510 PRINT "H
OW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL" 520 INPUT K 522 IF
K0 THEN 510 530 IF KD WATER POLLUTION FROM FOREIGN INDUSTRY.)" 1370 QINT((J-U2
)*(W/2)) 1380 PRINT "MAKING"INT(Q)"RALLODS." 1390 AINT(A+Q) 1400 V1INT(((B-P1
)*22)+(RND(1)*500)) 1405 V2INT((2000-D)*15) 1410 PRINT " YOU MADE"ABS(INT(V1-V
2))"RALLODS FROM TOURIST TRADE." 1420 IF V20 THEN 1450 1425 IF V1-V2V3 THEN 14
50 1430 PRINT " DECREASE BECAUSE " 1435 G110*RND(1) 1440 IF G12 THEN 1460
1442 IF G14 THEN 1465 1444 IF G16 THEN 1470 1446 IF G18 THEN 1475 1448 IF G11
0 THEN 1480 1450 V3INT(A+V3)A THEN 1000 540 PRINT " THINK AGAIN. YOU ONLY HA
VE "A" RALLODS REMAINING." 550 GOTO 510 600 IF H0 THEN 1002 602 IF I0 THEN 10
02 604 IF J0 THEN 1002 606 IF K0 THEN 1002 609 PRINT 612 PRINT "GOODBYE." 6
14 PRINT "(IF YOU WISH TO CONTINUE THIS GAME AT A LATER DATE, ANSWER" 616 PRINT
"'AGAIN' WHEN ASKED IF YOU WANT INSTRUCTIONS AT THE START" 617 PRINT "OF THE G
AME)." 618 STOP 1000 GOTO 600 1002 PRINT 1003 PRINT 1010 AINT(A-K) 1020 A4
A 1100 IF INT(I/100-B)0 THEN 1120 1105 IF I/ 1451 AINT(A+V3) 1452 GOTO 1500
1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION." 1462 GOTO 14
50 1465 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION." 1467 GOTO 1450
1470 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION." 1472 GOTO 1450
1475 PRINT "UNPLEASANT SMOG IS DISCOURAGING SUN BATHERS." 1477 GOTO 1450 148
0 PRINT "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT." 1482 GOTO 1450 1500 IF B
5200 THEN 1600 1505 IF B343 THEN 1700 1510 IF (A4/100)5 THEN 1800 1515 10050
THEN 1700 1110 PRINT INT(B-(I/100))"COUNTRYMEN DIED OF STARVATION" 1120 F1INT(
RND(1)*(2000-D)) 1122 IF K25 THEN 1130 1125 F1INT(F1/(K/25)) 1130 IF F10 THEN
1150 1140 PRINT F1"COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION" 11
50 IF INT((I/100)-B)0 THEN 1170 1160 IF F10 THEN 1180 1165 GOTO 1200 1170 PRI
NT " YOU WERE FORCED TO SPEND"INT((F1+(B-(I/100)))*9) 1172 PRINT "RALLODS ON
FUNERAL EXPENSES" 1174 B5INT(F1+(B-(I/100))) 1175 AINT(A-((F1+(B-(I/100)))*9))
1176 GOTO IF CB THEN 1550 1520 IF N5-1X5 THEN 1900 1545 GOTO 2000 1550 PRIN
T 1552 PRINT 1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER
" 1562 PRINT "OF COUNTRYMEN. AS A MINORITY, THEY HAVE REVOLTED AND" 1564 PRINT
"TAKEN OVER THE COUNTRY." 1570 IF RND(1).5 THEN 1580 1574 PRINT "YOU HAVE BEE
N THROWN OUT OF OFFICE AND ARE NOW" 1576 PRINT "RESIDING IN PRISON." 1578 GOTO
1590 1580 PRINT "YOU HAVE BEEN ASSASSINATED." 1590 PRINT 1592 PRINT 1596 ST
OP 1600 PRINT 1602 PRINT 1610 PRINT B1185 1180 PRINT " YOU WERE FORCED TO
SPEND "INT(F1*9)"RALLODS ON " 1181 PRINT "FUNERAL EXPENSES." 1182 B5F1 1183 A
INT(A-(F1*9)) 1185 IF A0 THEN 1194 1187 PRINT " INSUFFICIENT RESERVES TO COV
ER COST - LAND WAS SOLD" 1189 DINT(D+(A/W)) 1190 A0 1194 BINT(B-B5) 1200 IF
H0 THEN 1250 1220 C1INT(H+(RND(1)*10)-(RND(1)*20)) 1224 IF C0 THEN 1230 1226
C1C1+20 1230 PRINT C1"WORKERS CAME TO THE COUNTRY AND" 1250 P1INT(((I/100-B)/1
0)+(K/25)-((2000-D)/50)-(F1/2)) 1255 PRINT ABS(P1)"CO5"COUNTRYMEN DIED IN ONE Y
EAR!!!!!" 1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT, YOU HAVE NOT ONLY" 16
20 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE, BUT YOU" 1622 M6INT(RND(1)*1
0) 1625 IF M63 THEN 1670 1630 IF M66 THEN 1680 1635 IF M610 THEN 1690 1670 P
RINT "ALSO HAD YOUR LEFT EYE GOUGED OUT!" 1672 GOTO 1590 1680 PRINT "HAVE ALSO
GAINED A VERY BAD REPUTATION." 1682 GOTO 1590 1690 PRINT "HAVE ALSO BEEN DECL
ARED NATIONAL FINK." 1692 GOTO 1590 1700 PRINT 1702 PRINT 1710 PRINT "OVERUN
TRYMEN " 1260 IF P10 THEN 1275 1265 PRINT "CAME TO" 1270 GOTO 1280 1275 PRIN
T "LEFT" 1280 PRINT " THE ISLAND." 1290 BINT(B+P1) 1292 CINT(C+C1) 1305 U2IN
T(((2000-D)*((RND(1)+1.5)/2))) 1310 IF C0 THEN 1324 1320 PRINT "OF "INT(J)"SQ.
MILES PLANTED," 1324 IF JU2 THEN 1330 1326 U2J 1330 PRINT " YOU HARVESTED "I
NT(J-U2)"SQ. MILES OF CROPS." 1340 IF U20 THEN 1370 1344 IF T12 THEN 1370 135
0 PRINT " (DUE TO " 1355 IF T10 THEN 1365 1360 PRINT "INCREASED " 1365 PRIN
T "AIR AN R ONE THIRD OF THE POPULTATION HAS DIED SINCE YOU" 1715 PRINT "WERE
ELECTED TO OFFICE. THE PEOPLE (REMAINING)" 1720 PRINT "HATE YOUR GUTS." 1730 G
OTO 1570 1800 IF B5-F12 THEN 1515 1807 PRINT 1815 PRINT "MONEY WAS LEFT OVER
IN THE TREASURY WHICH YOU DID" 1820 PRINT "NOT SPEND. AS A RESULT, SOME OF YOUR
COUNTRYMEN DIED" 1825 PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE
" 1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE." 1835 PRINT "THE
CHOICE IS YOURS." 1840 PRINT "IF YOU CHOO135 IF Z$"YES" THEN 1150 140 PRINT
145 PRINT "LUNAR LANDING SIMULATION" 150 PRINT 155 PRINT "HAVE YOU FLOWN AN AP
OLLO/LEM MISSION BEFORE" 160 PRINT " (YES OR NO)" 165 INPUT Q$ 170 IF Q$"YES"
THEN 190 175 IF Q$"NO" THEN 205 180 PRINT "JUST ANSWER THE QUESTION, PLEASE,
" 185 GOTO 160 190 PRINT 195 PRINT "INPUT MEASUREMENT OPTION NUMBER" 200 GOT
O 225 205 PRINT 210 PRINT "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER" 215 PRI
NT " 1METRIC 0ENGLISH" 220 PRINT "ENTER THE APPROPRIATE NUMBSE THE LATTER,
PLEASE TURN OFF YOUR COMPUTER" 1845 PRINT "BEFORE PROCEEDING." 1850 GOTO 1590
1900 PRINT 1902 PRINT 1920 PRINT "CONGRATULATIONS!!!!!!!!!!!!!!!!!!" 1925 PR
INT "YOU HAVE SUCCESFULLY COMPLETED YOUR"N5"YEAR TERM" 1930 PRINT "OF OFFICE. Y
OU WERE, OF COURSE, EXTREMELY LUCKY, BUT" 1935 PRINT "NEVERTHELESS, IT'S QUITE
AN ACHIEVEMENT. GOODBYE AND GOOD" 1940 PRINT "LUCK - YOU'LL PROBABLY NEED IT IF
YOU'RE THE TYPE THAT" 1945 PRINT "PLAYS THIS GAME." 1950 GOTO 1590 1960 PRIN
T "HOW MANY YEAER" 225 INPUT K 230 PRINT 235 IF K0 THEN 280 240 IF K1 THEN 2
50 245 GOTO 220 250 Z1852.8 255 M$"METERS" 260 G33.6 265 N$" KILOMETERS" 2
70 G51000 275 GOTO 305 280 Z6080 285 M$"FEET" 290 G3.592 295 N$"N.MILES" 3
00 G5Z 305 IF B13 THEN 670 310 IF Q$"YES" THEN 485 315 PRINT 320 PRINT " YO
U ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF" 325 PRINT "THE LUNAR EXCURS
ION MODULE, YOU WILL BE EXPECTED TO" 330 PRINT "GIVE CERTAIN COMMANDS TO THE MO
DULE NAVIGATION SYSTEM." 335 PRRS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED" 196
1 INPUT X5 1962 IF X50 THEN 1590 1963 IF X58 THEN 1969 1965 PRINT " COME ON
, YOUR TERM IN OFFICE IS ONLY"N5"YEARS." 1967 GOTO 1960 1969 PRINT "HOW MUCH D
ID YOU HAVE IN THE TREASURY" 1970 INPUT A 1971 IF A0 THEN 1590 1975 PRINT "HO
W MANY COUNTRYMEN" 1976 INPUT B 1977 IF B0 THEN 1590 1980 PRINT "HOW MANY
WORKERS" 1981 INPUT C 1982 IF C0 THEN 1590 1990 PRINT "HOW MANY SQUARE MILES
OF LAND" 1991 INPUT D 1992 IF D0 THEN 1590 1993INT "THE ON-BOARD COMPUTER WI
LL GIVE A RUNNING ACCOUNT" 340 PRINT "OF INFORMATION NEEDED TO NAVIGATE THE SHI
P." 345 PRINT 350 PRINT 355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED
AS FOLLOWS." 360 PRINT "+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON" 365
PRINT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT" 370 PRINT "+90 D
EGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT" 375 PRINT "0 (ZERO) DEGREES
IS DIRECTLY TOWARD THE MOON" 380 PRINT 385 PRINT TAB(30)"-180+180" 390 PRINT
IF D2000 THEN 1996 1994 IF D1000 THEN 100 1996 PRINT " COME ON, YOU STARTE
D WITH 1000 SQ. MILES OF FARM LAND" 1997 PRINT " AND 10,000 SQ. MILES OF FORE
ST LAND." 1998 GOTO 1990 2000 X5X5+1 2020 B50 2040 GOTO 100 2046 END TAB(3
4)"" 395 PRINT TAB(27)"-90 -+- +90" 400 PRINT TAB(34)"!" 405 PRINT TAB(34)"
0" 410 PRINT TAB(21)" DIRECTION OF ORBIT " 415 PRINT 420 PRINT TAB(20)"------
SURFACE OF MOON ------" 425 PRINT 430 PRINT 435 PRINT "ALL ANGLES BETWEEN -1
80 AND +180 DEGREES ARE ACCEPTED." 440 PRINT 445 PRINT "1 FUEL UNIT 1 SEC. AT
MAX THRUST" 450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"
455 PRINT "FOR AN ATTITUDE CHANGE." 460 PRINT "AVAILABLE ENGINE POWER 0 (ZERO
) AND AN2 PRINT TAB(34)"LEM" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NE
W JERSEY" 7 REM ROCKT2 IS AN INTERACTIVE GAME THAT SIMULATES A LUNAR 8 REM LAN
DING IS SIMILAR TO THAT OF THE APOLLO PROGRAM. 9 REM THERE IS ABSOLUTELY NO CHA
NCE INVOLVED 10 Z$"GO" 15 B11 20 M17.95 25 F15.25 30 N7.5 35 R0926 40 V01
.29 45 T0 50 H060 55 RR0+H0 60 A-3.425 65 R10 70 A18.84361E-04 75 R30 80
A30 85 M17.45 90 M0M1 95 B750 100 T10 105 F0 110 P0 115 N1 120 M20 125
S0 130 C0 R Y VALUE BETWEEN" 465 PRINT "10 AND 100 PERCENT." 470
PRINT 475 PRINT"NEGATIVE THRUST OR TIME IS PROHIBITED." 480 PRINT 485 PRINT
490 PRINT "INPUT TIME INTERVAL IN SECONDS ------ (T)" 495 PRINT " PERCEN
TAGE OF THRUST ---------- (P)" 500 PRINT " ATTITUDE ANGLE IN DEGREES ----
- (A)" 505 PRINT 510 IF Q$"YES" THEN 535 515 PRINT "FOR EXAMPLE" 520 PRINT "
T,P,A 10,65,-60" 525 PRINT "TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0" 530
PRINT 535 PRINT "OUTPUT TOTAL TIME IN ELAPSED SECON90 GOTO 575 995 PRINT 100
0 PRINT "TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED." 1005 PRINT "CONGRATULA
TIONS -- THERE WAS NO SPACECRAFT DAMAGE." 1010 PRINT "YOU MAY NOW PROCEED WITH
SURFACE EXPLORATION." 1015 GOTO 1100 1020 PRINT 1025 PRINT "CRASH !!!!!!!!!!!
!!!!!" 1030 PRINT "YOUR IMPACT CREATED A CRATER"ABS(H)M$" DEEP." 1035 X1SQR(D1
*D1+H1*H1)*G3 1040 PRINT "AT CONTACT YOU WERE TRAVELING"X1N$"/HR" 1045 GOTO 11
00 1050 PRINT 1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVEDS
" 540 PRINT " HEIGHT IN "M$ 545 PRINT " DISTANCE FROM LANDING SI
TE IN "M$ 550 PRINT " VERTICAL VELOCITY IN "M$"/SECOND" 555 PRINT "
HORIZONTAL VELOCITY IN "M$"/SECOND" 560 PRINT " FUEL UNITS REMAINING
" 565 PRINT 570 GOTO 670 575 PRINT 580 PRINT "T,P,A" 585 INPUT T1,F,P 590
FF/100 595 IF T10 THEN 905 600 IF T10 THEN 1090 605 IF ABS(F-.05)1 THEN 945
610 IF ABS(F-.05).05 THEN 945 615 IF ABS(P)180 THEN 925 620 N20 625 IF T1400
THEN 635 630 NRY." 1060 GOTO 1100 1065 PRINT "YOU ARE DOWN SAFELY - " 1075 P
RINT 1080 PRINT "BUT MISSED THE LANDING SITE BY"ABS(D/G5)N$"." 1085 GOTO 1100
1090 PRINT 1095 PRINT "MISSION ABENDED" 1100 PRINT 1105 PRINT "DO YOU WANT
TO TRY IT AGAIN (YES/NO)" 1110 INPUT Z$ 1115 IF Z$"YES" THEN 20 1120 IF Z$"NO
" THEN 1130 1125 GOTO 1105 1130 PRINT 1135 PRINT "TOO BAD, THE SPACE PROGRAM
HATES TO LOSE EXPERIENCED" 1140 PRINT "ASTRONAUTS." 1145 STOP 1150 PRINT 115
5 PRINT "OK, DO YOU WANT THE COMPLETE INST1/20 635 T1T1/N 640 PP*3.14159/180
645 SSIN(P) 650 CCOS(P) 655 M2M0*T1*F/B 660 R3-.5*R0*((V0/R)2)+R*A1*A1 665 A
3-2*R1*A1/R 670 FOR I1 TO N 675 IF M10 THEN 715 680 M1M1-M2 685 IF M10 THEN
725 690 FF*(1+M1/M2) 695 M2M1+M2 700 PRINT "YOU ARE OUT OF FUEL." 705 M10 7
10 GOTO 725 715 F0 720 M20 725 MM-.5*M2 730 R4R3 735 R3-.5*R0*((V0/R)2)+R*A
1*A1 740 R2(3*R3-R4)/2+.00526*F1*F*C/M 745 A4A3 750 A3-2*R1*A1/R 755 A2(3*A3
-A4)/2+.0056*F1*F*S/(M*R) 760 XR1*T1+.5*R2*T1TRUCTIONS OR THE INPUT -" 1160 PR
INT "OUTPUT STATEMENTS" 1165 PRINT "1COMPLETE INSTRUCTIONS" 1170 PRINT "2INPUT
-OUTPUT STATEMENTS" 1175 PRINT "3NEITHER" 1180 INPUT B1 1185 Q$"NO" 1190 IF
B11 THEN 205 1195 Q$"YES" 1200 IF B12 THEN 190 1205 IF B13 THEN 190 1210 GOT
O 1165 1215 END *T1 765 RR+X 770 H0H0+X 775 R1R1+R2*T1 780 AA+A1*T1+.5*A2*
T1*T1 785 A1A1+A2*T1 790 MM-.5*M2 795 TT+T1 800 IF H03.287828E-04 THEN 810
805 NEXT I 810 HH0*Z 815 H1R1*Z 820 DR0*A*Z 825 D1R*A1*Z 830 T2M1*B/M0 835
PRINT " "TTAB(10)HTAB(23)D 840 PRINT TAB(37)H1TAB(49)D1TAB(60)T2 845 IF H03.2
87828E-04 THEN 880 850 IF R0*A164.474 THEN 1050 855 IF M10 THEN 580 860 T120
865 F0 870 P0 875 GOTO 620 880 IF R1-8.21957E-04 THEN 1020 885 IF ABS(R*A1)
4.93174E-04 THEN 1020 890 IF H0-3.287828E-04 THEN 1020 895 IF ABS(D)10*Z THEN
1065 900 GOTO 995 905 PRINT 910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE
THE SPACE-" 915 PRINT "TIME CONTINUUM." 920 GOTO 575 925 PRINT 930 PRINT "I
F YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE" 935 PRINT "FOR AN E.V.A." 94
0 GOTO 575 945 PRINT 950 PRINT "IMPOSSIBLE THRUST VALUE " 955 IF F0 THEN 985
960 IF F-.05.05 THEN 975 965 PRINT "TOO LARGE" 970 GOTO 575 975 PRINT "TOO S
MALL" 980 GOTO 575 985 PRINT "NEGATIVE" 9 R10 PRINT TAB(33)"LETTER" 20 PRIN
T TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 100 P
RINT "LETTER GUESSING GAME" PRINT 210 PRINT "I'LL THINK OF A LETTER OF THE ALPH
ABET, A TO Z." 220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES" 230
PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER." 310 L65+INT(RND(1)*26) 32
0 G0 340 PRINT PRINT "O.K., I HAVE A LETTER. START GUESSING." 410 PRINT PRINT
"WHAT IS YOUR GUESS" 420 GG+1 430 INPUT A$ AASC(A$) PRINT 440(X,Y)3PP+1 620
NEXT Y 630 NEXT X 635 X1X1-1Y1Y1-1X2X2+1Y2Y2+1 640 GOTO 210 650 END IF AL
THEN 500 450 IF AL THEN 480 460 PRINT "TOO LOW. TRY A HIGHER LETTER." GOTO 4
10 480 PRINT "TOO HIGH. TRY A LOWER LETTER." GOTO 410 500 PRINT PRINT "YOU GO
T IT IN"G"GUESSES!!" 504 IF G5 THEN 508 506 PRINT "BUT IT SHOULDN'T TAKE MORE
THAN 5 GUESSES!" GOTO 515 508 PRINT "GOOD JOB !!!!!" 510 FOR N1 TO 15 PRINT CH
R$(7) NEXT N 515 PRINT 520 PRINT "LET'S PLAN AGAIN....." 530 GOTO 310 999 EN
D 2 PRINT TAB(33)"LIFE2" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW J
ERSEY" 6 PRINT PRINT PRINT 7 DIM N(6,6),K(18),A(16),X(2),Y(2) 8 DATA 3,102,10
3,120,130,121,112,111,12 9 DATA 21,30,1020,1030,1011,1021,1003,1002,1012 10 FO
R M1 TO 18 READ K(M) NEXT M 13 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1 14 F
OR O1 1 TO 16 READ A(O1) NEXT O1 20 GOTO 500 50 FOR J1 TO 5 51 FOR K1 TO 5 5
5 IF N(J,K)99 THEN GOSUB 200 60 NEXT K 65 NEXT J 90 K0 M20 M30 99 FOR J0 TO
6 PRINT 100 FO2 PRINT TAB(34)"LIFE" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRIS
TOWN, NEW JERSEY" 6 PRINT PRINT PRINT 8 PRINT "ENTER YOUR PATTERN" 9 X11 Y11
X224 Y270 10 DIM A(24,70),B$(24) 20 C1 30 INPUT B$(C) 40 IF B$(C)"DONE" THEN
B$(C)"" GOTO 80 50 IF LEFT$(B$(C),1)"." THEN B$(C)" "+RIGHT$(B$(C),LEN(B$(C))-
1) 60 CC+1 70 GOTO 30 80 CC-1 L0 90 FOR X1 TO C-1 100 IF LEN(B$(X))L THEN L
LEN(B$(X)) 110 NEXT X 120 X111-C/2 130 Y133-L/2 140 FOR X1 TO C 150 FOR Y1
TO LEN(B$(X)) 160R K0 TO 6 101 IF J0 THEN IF J6 THEN 105 102 IF K6 THEN PRINT
0 GOTO 125 103 PRINT K GOTO 120 105 IF K0 THEN IF K6 THEN 110 106 IF J6 THEN
PRINT 0 GOTO 126 107 PRINT J GOTO 120 110 GOSUB 300 120 NEXT K 125 NEXT J
126 RETURN 200 B1 IF N(J,K)999 THEN B10 220 FOR O1 1 TO 15 STEP 2 230 N(J+A(O
1),K+A(O1+1))N(J+A(O1),K+A(O1+1))+B 231 NEXT O1 239 RETURN 300 IF N(J,K)3 THE
N 399 305 FOR O11 TO 18 310 IF N(J,K)K(O1) THEN 350 315 NEXT O1 320 GOTO 399
350 IF O19 THEN 360 IF MID$(B$(X),Y,1)" " THEN A(X1+X,Y1+Y)1PP+1 170 NEXT Y
180 NEXT X 200 PRINTPRINTPRINT 210 PRINT "GENERATION"G,"POPULATION"P IF I9 TH
EN PRINT "INVALID!" 215 X324Y370X41 Y41 P0 220 GG+1 225 FOR X1 TO X1-1 PRINT
NEXT X 230 FOR XX1 TO X2 240 PRINT 250 FOR YY1 TO Y2 253 IF A(X,Y)2 THEN A(X
,Y)0GOTO 270 256 IF A(X,Y)3 THEN A(X,Y)1GOTO 261 260 IF A(X,Y)1 THEN 270 261
PRINT TAB(Y)"*" 262 IF XX3 THEN X3X 264 IF XX4 THEN X4X 266 IF YY3 THEN Y3Y
268 IF Y 351 N(J,K)100 M2M2+1 PRINT " * " 355 RETURN 360 N(J,K)1000 M3M3+1 PRI
NT " # " 365 RETURN 399 N(J,K)0 PRINT " " RETURN 500 PRINT TAB(10)"U.B. LIF
E GAME" 505 M20 M30 510 FOR J1 TO 5 511 FOR K1 TO 5 515 N(J,K)0 516 NEXT K
517 NEXT J 519 FOR B1 TO 2 P13 IF B2 THEN P130 520 PRINTPRINT "PLAYER"B" - 3
LIVE PIECES." 535 FOR K11 TO 3 GOSUB 700 540 N(X(B),Y(B))P1 NEXT K1 542 NEXT
B 559 GOSUB 90 560 PRINT GOSUB 50 570 IF M20 THEN IF M30 THEN 574 571 IF M30
TY4 THEN Y4Y 270 NEXT Y 290 NEXT X 295 FOR XX2+1 TO 24 PRINT NEXT X 299 X1X
3 X2X4 Y1Y3 Y2Y4 301 IF X13 THEN X13I9-1 303 IF X222 THEN X222I9-1 305 IF Y13
THEN Y13I9-1 307 IF Y268 THEN Y268I9-1 309 P0 500 FOR XX1-1 TO X2+1 510 FOR
YY1-1 TO Y2+1 520 C0 530 FOR IX-1 TO X+1 540 FOR JY-1 TO Y+1 550 IF A(I,J)1
OR A(I,J)2 THEN CC+1 560 NEXT J 570 NEXT I 580 IF A(X,Y)0 THEN 610 590 IF C
3 OR C4 THEN A(X,Y)2 GOTO 600 595 PP+1 600 GOTO 620 610 IF C3 THEN A RHEN B1
GOTO 575 572 IF M20 THEN B2 GOTO 575 573 GOTO 580 574 PRINT PRINT "A DRAW"GO
TO 800 575 PRINT PRINT "PLAYER"B"IS THE WINNER"GOTO 800 580 FOR B1 TO 2 PRINT
PRINT PRINT "PLAYER"B GOSUB 700 581 IF B99 THEN 560 582 NEXT B 586 N(X(1),Y(1
))100 N(X(2),Y(2))1000 596 GOTO 560 700 PRINT "X,Y"PRINT"XXXXXX"CHR$(13)"$$$$$
$"CHR$(13)"&&&&&&" 701 PRINT CHR$(13) INPUT Y(B),X(B) 705 IF X(B)5 THEN IF X(B
)0 THEN 708 706 GOTO 750 708 IF Y(B)5 THEN IF Y(B)0 THEN 715 710 GOKS,...TOTO
WAS HIS NAME." GOTO 70 66 PRINT "YEA! YOU'RE A REAL LITERATURE GIANT." 67 RR
+1 70 PRINTPRINT 71 PRINT "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE"
72 PRINT "1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNOW WHITE, 4)WENDY" 73 INPUT A IF
A3 THEN 76 74 PRINT "OH, COME ON NOW...IT WAS SNOW WHITE." 75 GOTO 80 76 PRI
NT "GOOD MEMORY!" 77 RR+1 80 PRINTPRINT 85 IF R4 THEN 100 90 IF R2 THEN 200
92 PRINT "NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TIME" 94 PRINT "READING T
HE NURSERY GTO 750 715 IF N(X(B),Y(B))0 THEN 750 720 IF B1 THEN RETURN 725 IF
X(1)X(2) THEN IF Y(1)Y(2) THEN 740 730 RETURN 740 PRINT "SAME COORD. SET TO
0" 741 N(X(B)+1,Y(B)+1)0 B99 RETURN 750 PRINT "ILLEGAL COORDS. RETYPE" GOTO 70
0 999 END REATS." 96 STOP 100 PRINT "WOW! THAT'S SUPER! YOU REALLY KNOW YO
UR NURSERY" 110 PRINT "YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE" 120 PRIN
T "LITERATURE (HA, HA, HA)" 130 STOP 200 PRINT "UGH. THAT WAS DEFINITELY NOT
TOO SWIFT. BACK TO" 205 PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND." 999 END 2
PRINT TAB(33)"LOVE" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY
" 6 PRINT PRINT PRINT 20 PRINT "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT
INDIANA." 30 PRINT "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF" 4
0 PRINT "YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF" 50 PRINT "A M
ESSAGE, SIMPLE TYPE THE WORD 'LOVE'" PRINT 60 INPUT "YOUR MESSAGE, PLEASE"A$ LL
EN(A$) 70 DIM T$(120) FOR I1 TO 10 PRINT NEXT I 100 FOR J0 TO INT(60/L) 110 F
OR I1 TO L 120 T1 PRINT TAB(25)"LITERATURE QUIZ" 2 PRINT TAB(15)"CREATIVE COMP
UTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT 5 R0 10 PRINT "TEST YOUR KNO
WLEDGE OF CHILDREN'S LITERATURE." 12 PRINT PRINT "THIS IS A MULTIPLE-CHOICE QUI
Z." 13 PRINT "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK." 15 PRINT PRINT "G
OOD LUCK!" PRINT PRINT 40 PRINT "IN PINOCCHIO, WHAT WAS THE NAME OF THE CAT" 4
2 PRINT "1)TIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO" 43 INPUT A IF A3 THEN 46 44
PRINT "SORRY...FIGARO WAS HIS NAME."$(J*L+I)MID$(A$,I,1) 130 NEXT I NEXT J 14
0 C0 200 A11 P1 CC+1 IF C37 THEN 999 205 PRINT 210 READ A A1A1+A IF P1 THEN 3
00 240 FOR I1 TO A PRINT " " NEXT I P1 GOTO 400 300 FOR IA1-A TO A1-1 PRINT T$
(I) NEXT I P0 400 IF A160 THEN 200 410 GOTO 210 600 DATA 60,1,12,26,9,12,3,8,
24,17,8,4,6,23,21,6,4,6,22,12,5,6,5 610 DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4
,6,21,9,11,5,4 620 DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4 630 DA
TA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10 GOTO 50 46 PRINT "VERY GOOD! HERE'S
ANOTHER." 47 RR+1 50 PRINT PRINT 51 PRINT "FROM WHOSE GARDEN DID BUGS BUNNY S
TEAL THE CARROTS" 52 PRINT "1)MR. NIXON'S, 2)ELMER FUDD'S, 3)CLEM JUDD'S, 4)STR
OMBOLI'S" 53 INPUT A IF A2 THEN 56 54 PRINT "TOO BAD...IT WAS ELMER FUDD'S GAR
DEN." GOTO 60 56 PRINT "PRETTY GOOD!" 57 RR+1 60 PRINT PRINT 61 PRINT "IN TH
E WIZARD OF OS, DOROTHY'S DOG WAS NAMED" 62 PRINT "1)CICERO, 2)TRIXIA, 3)KING,
4)TOTO" 63 INPUT A IF A4 THEN 66 64 PRINT "BACK TO THE BOO R,4,4,6,18,2,1,6,8
,11,4 640 DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 650 DATA 1,29,9
,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1 660 DATA 5,6,11,3,11,6,14,3,
1,5,6,11,3,11,6,15,2,1 670 DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10 680 DA
TA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10 690 DATA 8,6,5,3,14
,6,7,1,10,9,6,3,3,15,6,16,1,1 700 DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1
,10,10,16,6,12,5,1 710 DATA 11,8,13,27,1,11,8,13,27,1,60 999 FOR I1 TO 10 PRIN
T NEXT I ENT "IN FACT, YOU BLASTED A NEW LUNAR CRATER"W*.227"FEET DEEP!" 320 GO
TO 440 330 LL+S TT-S MM-S*K AI VJ RETURN 340 IF S5E-03 THEN 260 350 DV+SQR(V*
V+2*A*(G-Z*K/M))S2*A/D 360 GOSUB 420 GOSUB 330 GOTO 340 370 W(1-M*G/(Z*K))/2 S
M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05GOSUB 420 380 IF I0 THEN 340 390 GOSUB 330 IF J0
THEN 160 400 IF V0 THEN 370 410 GOTO 160 420 QS*K/M JV+G*S+Z*(-Q-Q*Q/2-Q3/3-
Q4/4-Q5/5) 430 IA-G*S*S/2-V*S+Z*S*(Q/2+Q2/6+Q3/12+Q4/20+Q5/30)RETURN 440 PRINT
PRID NTPRINTPRINT "TRY AGAIN" GOTO 70 10 PRINT TAB(33)"LUNAR" 20 PRINT TAB(l5
)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 25 PRINTPRINTPRINT 30 PRINT "THI
S IS A COMPUTER SIMULATION OF AN APOLLO LUNAR" 40 PRINT "LANDING CAPSULE." PRI
NT PRINT 50 PRINT "THE ON-BOARD COMPUTER HAS FAILED (IT WAS MADE BY" 60 PRINT
"XEROX) SO YOU HAVE TO LAND THE CAPSULE MANUALLY." 70 PRINT PRINT "SET BURN RA
TE OF RETRO ROCKETS TO ANY VALUE BETWEEN" 80 PRINT "0 (FREE FALL) AND 200 (MAX
IMUM BURN) POUNDS PER SECOND." 90 PRINT "SET NEW BURN RATE EVERY 10 SECONDS."
PRINT 100 PRINT "CAPSULE WEIGHT 32,500 LBS FUEL WEIGHT 16,500 LBS." 110 PRINT
PRINT PRINT PRINT "GOOD LUCK" 120 L0 130 PRINT PRINT "SEC","MI + FT","MPH","L
B FUEL","BURN RATE"PRINT 140 A120V1M33000N16500G1E-03Z1.8 150 PRINT L,INT(A)I
NT(5280*(A-INT(A))),3600*V,M-N,INPUT KT10 160 IF M-N1E-03 THEN 240 170 IF T1E
-03 THEN 150 180 ST IF MN+S*K THEN 200 190 S(M-N)/K 200 GOSUB 420 IF IO THEN
340 210 IF V0 THEN 230 220 IF J0 THEN 370 230 GOSUB 330 G2 PRINT TAB(30)"MAST
ERMIND" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT PR
INT PRINT 10 REM 20 REM MASTERMIND II 30 REM STEVE NORTH 40 REM
CREATIVE COMPUTING 50 REM PO BOX 789-M MORRISTOWN NEW JERSEY 07960 60 REM
70 REM 80 INPUT "NUMBER OF COLORS"C9 90 IF C98 THEN PRINT "NO MORE THAN 8, PL
EASE!"GOTO 80 100 INPUT "NUMBER OF POSITIONS"P9 110 INPUT "NUMBER OF ROUNDS"R9
120 PC9P9 130 PRINT "TOTAL POSSIBILITIES "P 140 H0C0 150 DIM Q(P9),S(10OTO
160 240 PRINT "FUEL OUT AT"L"SECONDS"S(-V+SQR(V*V+2*A*G))/G 250 VV+G*S LL+S 2
60 W3600*V PRINT "ON MOON AT"L"SECONDS - IMPACT VELOCITY"W"MPH" 274 IF W1.2 TH
EN PRINT "PERFECT LANDING!" GOTO 440 280 IF W10 THEN PRINT "GOOD LANDING (COUL
D RE BETTER)"GOTO 440 282 IF W60 THEN 300 284 PRINT "CRAFT DAMAGE... YOU'RE S
TRANDED HERE UNTIL A RESCUE" 286 PRINT "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OX
YGEN!" 288 GOTO 440 300 PRINT "SORRY THERE NERE NO SURVIVORS. YOU BLOW IT!"
310 PRIN R,2),S$(10),A$(P9),G$(P9),I(P),H$(P9) 160 L$"BWRGOYPT" 170 PRINT 18
0 PRINT 190 PRINT "COLOR LETTER" 200 PRINT " " 210 FOR X1 TO C9 220
READ X$ 230 PRINT X$TAB(13)MID$(L$,X,1) 240 NEXT X 250 PRINT 260 FOR R1 TO R
9 270 PRINT 280 PRINT "ROUND NUMBER"R"----" 290 PRINT 300 PRINT "GUESS MY C
OMBINATION."PRINT 310 REM GET A COMBINATION 320 AINT(P*RND(1)+1) 330 GOSU
B 3000 340 FOR X1 TO A 350 GOSUB 3500 360 NEXT X 370 FOR M1 TO 10 380 PRINT
"MOVE # "M" GUESS DAY." 1110 GOTO 1130 1120 PRINT "I GOT IT IN "M" MOVES!"
1130 CC+M 1140 GOSUB 5000 1150 NEXT R 1160 PRINT "GAME OVER" 1170 PRINT "FIN
AL SCORE" 1180 GOSUB 5040 1190 STOP 2000 REM 2010 REM BOARD PRINTOUT ROU
TINE 2020 REM 2025 PRINT 2030 PRINT "BOARD" 2040 PRINT "MOVE GUESS
BLACK WHITE" 2050 FOR Z1 TO M-1 2060 PRINT ZTAB(9)S$(Z)TAB(25)S(Z,1)TA
B(35)S(Z,2) 2070 NEXT Z 2075 PRINT 2080 GOTO 380 2500 REM 2510 REM QUIT
ROUTINE 2520 REM 2530 PRINT "QUITTER!"INPUT X$ 390 IF X$"BOARD" THEN 2000 4
00 IF X$"QUIT" THEN 2500 410 IF LEN(X$)P9 THEN PRINT "BAD NUMBER OF POSITIONS."
GOTO 380 420 REM UNPACK X$ INTO G$(1-P9) 430 FOR X1 TO P9 440 FOR Y1 TO C
9 450 IF MID$(X$,X,1)MID$(L$,Y,1) THEN 480 460 NEXT Y 470 PRINT "'" MID$(X$,X
,1) "' IS UNRECOGNIZED."GOTO 380 480 G$(X)MID$(X$,X,1) 490 NEXT X 500 REM
NOW WE CONVERT Q(1-P9) INTO A$(1-P9) ACTUAL GUESS 510 GOSUB 4000 520 REM
AND GET NUMBER OF BLACKS AND WHITES 530 GOSUB 4500 540 MY COMBINATION WAS "
2535 GOSUB 4000 2540 FOR X1 TO P9 2550 PRINT A$(X) 2560 NEXT X 2565 PRINT 2
570 PRINT "GOOD BYE" 2580 STOP 3000 REM 3010 REM INITIALIZE Q(1-P9) TO ZE
ROS 3020 REM 3030 FOR S1 TO P9 3040 Q(S)0 3050 NEXT S 3060 RETURN 3500 REM
3510 REM INCREMENT Q(1-P9) 3520 REM 3522 IF Q(1)0 THEN 3530 3524 REM I
F ZERO, THIS IS OUR FIRST INCREMENT MAKE ALL ONES 3526 FOR S1 TO P9 3527 Q(S)1
3528 NEXT S 3529 RETURN 3530 Q1 3540 Q(Q)Q(Q)+1 3550 IF Q(Q)C9 THEN IF BP
9 THEN 630 550 REM TELL HUMAN RESULTS 560 PRINT "YOU HAVE "B" BLACKS AND "
W" WHITES." 570 REM SAVE ALL THIS STUFF FOR BOARD PRINTOUT LATER 580 S$(M)
X$ 590 S(M,1)B 600 S(M,2)W 610 NEXT M 620 PRINT "YOU RAN OUT OF MOVES! THAT
'S ALL YOU GET!"GOTO 640 622 GOSUB 4000 623 PRINT "THE ACTUAL COMBINATION WAS
" 624 FOR X1 TO P9 625 PRINT A$(X) 626 NEXT X 627 PRINT 630 PRINT "YOU GUES
SED IT IN "M" MOVES!" 640 HH+M 650 GOSUB 5000 660 REM 670 REM NOW COMPUT
ER GUESSESRETURN 3560 Q(Q)1 3570 QQ+1 3580 GOTO 3540 4000 REM 4010 REM
CONVERT Q(1-P9) TO A$(1-P9) 4020 REM 4030 FOR S1 TO P9 4040 A$(S)MID$(L$,Q(S)
,1) 4050 NEXT S 4060 RETURN 4500 REM 4510 REM GET NUMBER OF BLACKS (B) A
ND WHITES (W) 4520 REM MASHES G$ AND A$ IN THE PROCESS 4530 REM 4540 B0W0
F0 4550 FOR S1 TO P9 4560 IF G$(S)A$(S) THEN 4620 4570 BB+1 4580 G$(S)CHR$(F
) 4590 A$(S)CHR$(F+1) 4600 FF+2 4610 GOTO 4660 4620 FOR T1 TO P9 4630 IF G$
(S)A$(T) THEN 4650 464 680 REM 690 FOR X1 TO P 700 I(X)1 710 NEXT X 720 PR
INT "NOW I GUESS. THINK OF A COMBINATION." 730 INPUT "HIT RETURN WHEN READY"X$
740 FOR M1 TO 10 750 GOSUB 3000 760 REM FIND A GUESS 770 GINT(P*RND(1)+
1) 780 IF I(G)1 THEN 890 790 FOR XG TO P 800 IF I(X)1 THEN 880 810 NEXT X 8
20 FOR X1 TO G 830 IF I(X)1 THEN 880 840 NEXT X 850 PRINT "YOU HAVE GIVEN ME
INCONSISTENT INFORMATION." 860 PRINT "TRY AGAIN, AND THIS TIME PLEASE BE MORE C
AREFUL." 870 GOTO 660 880 GX 890 REM 0 IF G$(T)A$(T) THEN 4650 4645 WW+1A
$(T)CHR$(F)G$(S)CHR$(F+1)FF+2GOTO 4660 4650 NEXT T 4660 NEXT S 4670 RETURN 5
000 REM 5010 REM PRINT SCORE 5020 REM 5030 PRINT "SCORE" 5040 PRINT "
COMPUTER "C 5050 PRINT " HUMAN "H 5060 PRINT 5070 RETURN 5500 REM
5510 REM CONVERT Q(1-P9) INTO G$(1-P9) 5520 REM 5530 FOR S1 TO P9 5540 G$
(S)MID$(L$,Q(S),1) 5550 NEXT S 5560 RETURN 6000 REM 6010 REM CONVERT Q(1
-P9) TO H$(1-P9) 6020 REM 6030 FOR S1 TO P9 6040 H$(S)MI NOW WE CONVERT GUESS
#G INTO G$ 900 FOR X1 TO G 910 GOSUB 3500 920 NEXT X 930 GOSUB 6000 940 PR
INT "MY GUESS IS " 950 FOR X1 TO P9 960 PRINT H$(X) 970 NEXT X 980 INPUT "
BLACKS, WHITES "B1,W1 990 IF B1P9 THEN 1120 1000 GOSUB 3000 1010 FOR X1 TO P
1020 GOSUB 3500 1030 IF I(X)0 THEN 1070 1035 GOSUB 6500 1040 GOSUB 4000 105
0 GOSUB 4500 1060 IF B1B OR W1W THEN I(X)0 1070 NEXT X 1080 NEXT M 1090 PRIN
T "I USED UP ALL MY MOVES!" 1100 PRINT "I GUESS MY CPU IS JUST HAVING AN OFF R
D$(L$,Q(S),1) 6050 NEXT S 6060 RETURN 6500 REM 6510 REM COPY H$ INTO G$
6520 REM 6530 FOR S1 TO P9 6540 G$(S)H$(S) 6550 NEXT S 6560 RETURN 8000 RE
M PROGRAM DATA FOR COLOR NAMES 8010 DATA BLACK,WHITE,RED,GREEN,ORANGE,YELLO
W,PURPLE,TAN 9998 REM ...WE'RE SORRY BUT IT'S TIME TO GO... 9999 END !!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !
! !
MINE !
! !
! Mine is the classic game where a field of hidden mines is presented, and the
! ! user tries to find the mines based on mine counts in adjacent squares.
! ! 10 PRINT TAB(31)"MATH DICE" 20 PRINT TAB(15)"CREATIVE
COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 40 PRINT "THIS PROGRAM
GENERATES SUCCESIVE PICTURES OF TWO DICE." 50 PRINT "WHEN TWO DICE AND AN EQUAL
SIGN FOLLOWED BY A QUESTION" 60 PRINT "MARK HAVE BEEN PRINTED, TYPE YOUR ANSWE
R AND THE RETURN KEY." 70 PRINT "TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR
ANSWER." 80 PRINT 90 PRINT 100 NN+1 110 DINT(6*RND(1)+1) 120 PRINT" -----
" 130 IF D1 THEN 200 140 IF D2 THEN 180 150 IF
! ! Derived from the Pascal version.
! !
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! helper defines false% 0 true% -1
! colors black% 0 white% 1 red% 2 green% 3 blue% 4
cyan% 5 yellow% 6 magenta% 7 ! events etchar% 0 ! D3 THEN 1
80 160 PRINT "I * * I" 170 GOTO 210 180 PRINT "I * I" 190 GOTO 210 200 PR
INT "I I" 210 IF D2 THEN 260 220 IF D4 THEN 260 230 IF D6 THEN 270 240 P
RINT "I * I" 250 GOTO 280 260 PRINT "I I" 265 GOTO 280 270 PRINT "I *
* I" 280 IF D1 THEN 350 290 IF D2 THEN 330 300 IF D3 THEN 330 310 PRINT "I *
* I" 320 GOTO 360 330 PRINT "I * I" 340 GOTO 360 350 PRINT "I I" 360
PRINT " ----- " 370 PRINT 375 IF N2 THEN 500 380 PRINT " +" 381 PRINT 40
0 AD 410 GOTOANSI character returned etup% 1 ! cursor up one line etdo
wn% 2 ! down one line etleft% 3 ! left one character etright% 4
! right one character etleftw% 5 ! left one word etrightw% 6 ! right on
e word ethome% 7 ! home of document ethomes% 8 ! home of screen etho
mel% 9 ! home of line etend% 10 ! end of document etends% 11 ! en
d of screen etendl% 12 ! end of line etscrl% 13 ! scroll left one char
acter etscrr% 14 ! scroll r 100 500 TD+A 510 PRINT " " 520 INPUT T1
530 IF T1T THEN 590 540 PRINT "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER."
541 PRINT " " 550 INPUT T2 560 IF T2T THEN 590 570 PRINT "NO, THE ANSWE
R IS"T 580 GOTO 600 590 PRINT "RIGHT!" 600 PRINT 601 PRINT "THE DICE ROLL AG
AIN..." 610 PRINT 615 N0 620 GOTO 100 999 END Right one character etscru
% 15 ! scroll up one line etscrd% 16 ! scroll down one line etpagd%
17 ! page down etpagu% 18 ! page up ettab% 19 ! tab etenter% 20
! enter line etinsert% 21 ! insert block etinsertl% 22 ! insert line etin
sertt% 23 ! insert toggle etdel% 24 ! delete block etdell% 25 ! dele
te line etdelcf% 26 ! delete character forward etdelcb% 27 ! delete char
acter backward etcopy% 28 ! copy block etcopyl% 29 ! copy line! index f
or move array mines% 0 ! clear mine count for i% 1 to 8 ! process points
of the compass xn% x%+xoff%(i%) ! find neighbor locations yn% y%+yo
ff%(i%) if xn% 1 and xn% maxxs% and yn% 1 and yn% maxys% then !
valid location if mine%(xn%, yn%) then mines% mines%+1 ! count mines
endif next i% endfunc mines% ! return the number of mines !!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! S
et adjace etcan% 30 ! cancel current operation etstop% 31 ! stop curr
ent operation etcont% 32 ! continue current operation etprint% 33 ! pri
nt document etprintb% 34 ! print block etprints% 35 ! print screen etfun%
36 ! function key etmenu% 46 ! display menu etmouba% 47 ! mouse b
utton assertion etmoubd% 51 ! mouse button deassertion etmoumov% 55 ! mou
se move ettim% 56 ! timer matures etjoyba% 57 ! joystick button assert
ion etjoybd% 58 ! joystnt squares visable ! ! Sets all of the valid adjace
nt squares visable. If any of those squares are ! not adjacent to a mine, then
the neighbors of that square are set visable, etc. ! (recursively). ! This is
done to "rip" grids of obviously empty neighbors off the board. ! !!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! procedu
re visadj(x%, y%) dim xn%, yn% ! neighbor coordinates dim i% ! index f
or move array for i% 1 to 8 ! process points of the cick button deassertion
etjoymov% 59 ! joystick move etterm% 60 ! terminate program ! progra
m defines maxxs% 8 ! size of grid maxys% 8 maxmine% 10 ! number of m
ines to place dim mine%(maxxs%, maxys%) ! mine exists map dim vis%(maxxs%, m
axys%) ! square is uncovered map dim flag%(maxxs%, maxys%) ! square is flagged
map ! Contruct table to calculate adjacent squares dim xoff%(8) ! x offse
t table dim yoff%(8) ! y offset table xoff%(1) 0 yoff%(1) -1 ! up xoff%(
2)ompass xn% x%+xoff%(i%) ! find neighbor locations yn% y%+yoff%(i%)
if xn% 1 and xn% maxxs% and yn% 1 and yn% maxys% then if not v
is%(xn%, yn%) then ! not already visable ! valid location
vis%(xn%, yn%) true% ! set visable if adjacent%(xn%, yn%) 0 then vis
adj(xn%, yn%) ! perform recursively endif endif next i% end
proc !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!! ! ! Displa +1 yoff%(2) -1 ! upper right xoff%(3) +1 yoff%(3) 0
! right xoff%(4) +1 yoff%(4) +1 ! lower right xoff%(5) 0 yoff%(5) +1 ! d
own xoff%(6) -1 yoff%(6) +1 ! lower left xoff%(7) -1 yoff%(7) 0 ! left x
off%(8) -1 yoff%(8) -1 ! upper left ! declares, not required but nice di
m x%, y% ! user move coordinates dim done% ! game over dim centerx% !
center of screen position x dim centery% ! center of screen position y dim cu
rsorx% ! cursor location x dim y board ! ! Displays the playing board. !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! procedure display dim x% dim y% dim cnt% ! count of adjacent mines
! scan screen bcolor(yellow%) ! set background color for y% 1 to maxys%
for x% 1 to maxxs% cursor(centerx%+x%-1, centery%+y%-1) ! set st
art of next line if vis%(x%, y%) then if mine%(x%, y%) then p
rint "*" else cnt% adjacent%(x%, y%) ! find acursory% ! cursor
location y dim badguess% ! bad guess display flag dim mousex% ! mouse positi
on x dim mousey% ! mouse position y !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! Find adjacent mines ! ! Find
s the number of mines adjacent to a given square. ! !!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! function adjacent%(x%
, y%) dim mines% ! number of mines dim xn%, yn% ! neighbor coordinates d
im i% Rdjacent mine count if cnt% 0 then p
rint "." ! no adjacent else print chr$(cnt%+asc("0"
)) ! place the number endif endif else if flag
%(x%, y%) then ! display flagged location if badguess% then print "X
" else print "M" else print "" endif next x% next y% p
rint endproc !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!! ! ! Initalize boar draw box top cursor(sx%, ey%) ! posit
ion at box lower left for x% sx% to ex% print c$ next x% ! draw box bottom fo
r y% sy%+1 to ey%-1 ! draw box left side cursor(sx%, y%) ! place cursor
print c$ ! place character next y% for y% sy%+1 to ey%-1 ! draw box left
side cursor(ex%, y%) ! place cursor print c$ ! place character nex
t y% endproc !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!! ! ! Check coordinates on board ! ! Checksd ! ! Clears
all board squares to no mines, invisible and not flagged. ! Then, the specified
number of mines are layed on the board at random. ! !!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! procedure clrbrd
dim x% dim y% dim n% for x% 1 to maxxs% ! clear minefield for y%
1 to maxys% mine%(x%, y%) false ! set no mine vis%(x%, y%) fa
lse ! set not visible flag%(x%, y%) false ! set not flagged next y
% next x% if the given x, y coordinates are in the valid playing area.. ! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function insquare%(x%, y%) dim inx% ! inside x dim iny% ! inside y inx
% mousex% centerx% and mousex% centerx%+maxxs%-1 ! find x iny% mousey% cen
tery% and mousey% centery%+maxys%-1 ! find y endfunc inx% and iny% !!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !
Check replay ! ! Asks the user for n% 1 to maxmine ! place mine repe
at x% rnd(0)*maxxs% y% rnd(0)*maxys% until not mine%(x%,
y%) ! no mine exists at square mine%(x%, y%) true ! place mine next n%
endproc !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!! ! ! Clear line ! ! Clears the specified line to spaces in the
specified color. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!! procedure clrlin(y%, clr%) dim i%if a replay is des
ired, then either cancels the game, or ! sets up a new game as requested. ! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
procedure replay ! ask user for replay bcolor(cyan%) prtmid(maxy%, "PLAY
AGAIN (Y/N) ") repeat ! wait for response ! wait till a character is pre
ssed repeat event(nextevent) until nextevent.etype etchar% o
r nextevent.etype etterm% if nextevent.etype etterm% then done% true% ! f
orce a qu cursor(1, y%) ! position to specified line bcolor(clr%) ! set colo
r for i% 1 to maxx% do print " " ! clear line endproc !!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! Print cente
red string ! ! Prints the given string centered on the given line. ! !!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! pro
cedure prtmid(y%, s$) cursor(maxx% div 2-len(s$) div 2, y%) ! position to sta
rt print s$ ! output the string enit until lcase(nextevent.char$) "y" or
lcase(nextevent.char) "n" or done% if lcase(nextevent.char$) "n" or done% th
en done% true% else ! clear old messages clrlin(maxy%-2, cyan%) c
lrlin(maxy%, cyan%) ! start new game clrbrd ! set up board cursorx%
centerx% ! set inital cursor position cursory% centery% badguess% fal
se% ! set bad guesses invisible endif endproc !!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! Pdproc !!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! D
raw character box ! ! Draws a box of the given color and character to the loca
tion. ! The colors are not saved or restored. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! procedure tbox(sx%, sy%,
ex%, ey%, c$, bclr%, fclr%) dim x%, y% ! coordinates bcolor(bclr%) fcolor
(fclr%) cursor(sx%, sy%) ! position at box top left for x% sx% to ex% print c
$ next x% ! Rrocess square "hit" ! ! Processes a "hit" on a square, which mea
ns revealing that square, and possibly ! triggering a mine. ! !!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! procedure h
it(x%, y%) dim xi%, yi% ! indexes for board dim viscnt% ! visable squares co
unt vis%(x%, y%) true% ! set that location visable if mine%(x%, y%) then !
mine found ! make all mines visable, and bad guesses too. for yi% 1 t
o maxys% for xi 1 to maxxs% ext event select nextevent.etype%
! event case ettab% ! process flag ! reverse flagging on l
ocation flag(x%, y%) not flag(x%, y%) display ! redisplay b
oard case etenter% hit(x%, y%) ! process hit ! move up
case etup% if cursory% centery% then cursory% cursory%-1 ! move left
case etleft% if cursorx% centerx% then cursorx% cursorx%-1 ! m
ove down case etdown% if cursory% centery%+maxys%-1 then if mine%
(xi%, yi%) then vis%(xi%, yi%) true% next xi% next yi% badgu
ess% true% ! set bad guesses visable display ! redisplay board ! announ
ce that to the player bcolor(red%) prtmid(maxy%-2, "*** YOU HIT A MINE !
***") replay ! process replay else ! valid hit if adjacent%(x%, y%
) 0 then visadj(x%, y%) ! clean up adjacent spaces ! now, the player may ha
ve won. we find this out by counting all of the ! visable squares, and seein
g if the numbecursory% cursory%+1 ! move right case etright% if
cursorx% centerx%+maxxs%-1 then cursorx% cursorx%+1 case etmoumov% !
mouse movement mousex% nextevent.moupx% ! set new mouse position
mousey% nextevent.moupy% case etmouba ! mouse button 1, hit
if nextevent.amoubn% 1 and onboard%(mousex%, mousey%) then
! mouse postion inside valid square cursorx% mousex% ! set c
urrent position to that cr of squares left is equal ! to the nu
mber of mines viscnt% 0 for yi% 1 to maxys% for xi% 1 to max
xs% if vis%(xi%, yi%) then viscnt% viscnt%+1 ! count visible
next xi% next yi% if maxxs%*maxys%-viscnt% maxmine% then ! player
wins display ! redisplay board ! announce that to the player
bcolor(red%) prtmid(maxy%-2, "*** YOU WIN ! ***") replay ! pro
cess replay endif endif display ! redisplay board enursory% mousey
% x% cursorx%-centerx%+1 ! set location on board y%
cursory%-centery%+1 hit(x%, y%) ! process hit else if n
extevent.amoubn% 2 and onboard%(mousex%, mousey%) then ! mouse p
ostion inside valid square cursorx% mousex% ! set current position
to that cursory% mousey% x% cursorx%-centerx%+1 ! s
et location on board y% cursory%-centery%+1 ! reverse
flaggingdproc !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!! ! ! Main process ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! auto(false%) ! turn off scrolling
bcolor(cyan%) ! color the background clear ! clear to that bcolor(magenta%)
prtmid(1, "******* Mine game 1.0 ********") ! output title ! find center board
position centerx% maxx% div 2-maxxs% div 2 centery% maxy% div 2-maxys% div 2
! draw a border around that tbox(cen on location flag(x%, y%) f
lag(x%, y%) display ! redisplay board endif endse
l until done% or nextevent.etype% etterm% ! game complete auto(true%) ! tur
n off scrolling bcolor(white%) ! restore colors fcolor(black%) clear ! clear
screen endterx%-1, centery%-1, centerx%+maxxs%, centery%+maxys%, " ", blue%,
black%) bcolor(white%) ! restore the background clrbrd ! set up board display
! display board done% false% ! set game in progress cursorx% centerx% ! s
et inital cursor position cursory% centery% badguess% false% ! set bad guess
es invisible repeat ! enter user moves cursor(cursorx%, cursory%) ! place
cursor x% cursorx%-centerx%+1 ! set location on board y% cursory-cent
ery+1 event(nextevent) ! get the n R1 PRINT TAB(33)"MUGWUMP" 2 PRINT TAB(1
5)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT 4 REM COU
RTESY PEOPLE'S COMPUTER COMPANY 10 DIM P(4,2) 20 PRINT "THE OBJECT OF THIS GAM
E IS TO FIND FOUR MUGWUMPS" 30 PRINT "HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS P
OSITION 0,0." 40 PRINT "ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH" 50 P
RINT "NUMBER BETWEEN 0 AND 9, INCLUSIVE. FIRST NUMBER" 60 PRINT "IS DISTANCE T
O RIGHT OF HOMEBASE AND SECOND NUMBER" 70 PRINT "IS DISTANCE ABOVE H0 PRINT "BU
T I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER." 90 PRINT "LET'S PUT THEM IN OR
DER LIKE THIS " 100 FOR J2 TO L IJ-1 T$B$(J) 110 IF T$B$(I) THEN 130 120 B$(I
+1)B$(I) II-1 IF I0 THEN 110 130 B$(I+1)T$ NEXT J 140 FOR I1 TO L PRINT B$(I)
NEXT I PRINT PRINT 150 PRINT "DON'T YOU LIKE THAT BETTER" INPUT D$ 160 IF D$"Y
ES" THEN 180 170 PRINT PRINT "I'M SORRY YOU DON'T LIKE IT THAT WAY." GOTO 200
180 PRINT PRINT "I KNEW YOU'D AGREE!!" 200 PRINT PRINT "I REALLY ENJOYEDOMEBASE
." 80 PRINT 90 PRINT "YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL" 100 PRI
NT "YOU HOW FAR YOU ARE FROM EACH MUGWUMP." 110 PRINT 240 GOSUB 1000 250 T0
260 TT+1 270 PRINT 275 PRINT 290 PRINT "TURN NO."T"-- WHAT IS YOUR GUESS" 30
0 INPUT M,N 310 FOR I1 TO 4 320 IF P(I,1)-1 THEN 400 330 IF P(I,1)M THEN 380
340 IF P(I,2)N THEN 380 350 P(I,1)-1 360 PRINT "YOU HAVE FOUND MUGWUMP"I 370
GOTO 400 380 DSQR((P(I,1)-M)2+(P(I,2)-N)2) 390 PRINT "YOU ARE"(INT(D*10))/10"
UNITS F MEETING YOU "A$"." 210 PRINT "HAVE A NICE DAY!" 999 END ROM MUGWUMP"I
400 NEXT I 410 FOR J1 TO 4 420 IF P(J,1)-1 THEN 470 430 NEXT J 440 PRINT
450 PRINT "YOU GOT THEM ALL IN"T"TURNS!" 460 GOTO 580 470 IF T10 THEN 260 480
PRINT 490 PRINT "SORRY, THAT'S 10 TRIES. HERE IS WHERE THEY'RE HIDING" 540 F
OR I1 TO 4 550 IF P(I,1)-1 THEN 570 560 PRINT "MUGWUMP"I"IS AT ("P(I,1)","P(I,
2)")" 570 NEXT I 580 PRINT 600 PRINT "THAT WAS FUN! LET'S PLAY AGAIN......."
610 PRINT "FOUR MORE MUGWUMPS ARE NOW IN HIDING." 630 GOTO 240 1000 FOR J1 TO
2 1010 FOR I1 TO 4 1020 P(I,J)INT(10*RND(1)) 1030 NEXT I 1040 NEXT J 1050
RETURN 1099 END 2 PRINT TAB(33)"NICOMA" 4 PRINT TAB(15)"CREATIVE COMPUTING M
ORRISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT 10 PRINT "BOOMERANG PUZZLE FROM ARI
THMETICA OF NICOMACHUS -- A.D. 90!" 20 PRINT 30 PRINT "PLEASE THINK OF A NUMBE
R BETWEEN 1 AND 100." 40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF" 4
5 INPUT A 50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF" 55 INPUT B 6
0 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF" 65 INPUT C 70 PRINT 80
PRINT "LET ME THINK A MOMENT..." 85 PRINT 1 PRINT TAB(34)"NAME" 2 PRINT TAB(15
)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINT PRINT PRINT 5 DIM B$(40)
10 PRINT "HELLO." PRINT "MY NAME IS CREATIVE COMPUTER." 20 PRINT "WHAT'S YOUR
NAME (FIRST AND LAST" INPUT A$ LLEN(A$) 30 PRINT PRINT "THANK YOU, " 40 FOR I
1 TO L B$(I)MID$(A$,I,1) NEXT I 50 FOR IL TO 1 STEP -1 PRINT B$(I) NEXT I 60 P
RINT "." PRINT "OOPS! I GUESS I GOT IT BACKWARDS. A SMART" 70 PRINT "COMPUTER
LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT!" PRINT 8 R 90 FOR I1 TO 1500 NEXT
I 100 D70*A+21*B+15*C 110 IF D105 THEN 140 120 DD-105 130 GOTO 110 140 PRI
NT "YOUR NUMBER WAS"D", RIGHT" 160 INPUT A$ 165 PRINT 170 IF A$"YES" THEN 220
180 IF A$"NO" THEN 240 190 PRINT "EH I DON'T UNDERSTAND '"A$"' TRY 'YES' OR
'NO'." 200 GOTO 160 220 PRINT "HOW ABOUT THAT!!" 230 GOTO 250 240 PRINT "I
FEEL YOUR ARITHMETIC IS IN ERROR." 250 PRINT 260 PRINT "LET'S TRY ANOTHER." 2
70 GOTO 20 999 END RINT "MACHINE LOSES" 810 GOTO 1640 820 PRINT "MACHINE WIN
S" 830 GOTO 1640 840 LET C0 850 FOR I1 TO N 860 IF A(I)1 THEN 940 870 IF A(
I)0 THEN 890 880 LET CC+1 890 NEXT I 900 IF C/2INT(C/2) THEN 800 910 GOTO 94
0 920 IF A(D(1))1 THEN 820 930 IF A(D(2))1 THEN 820 940 FOR I1 TO N 950 LET
EA(I) 960 FOR J0 TO 10 970 LET FE/2 980 LET B(I,J)2*(F-INT(F)) 990 LET EINT(
F) 1000 NEXT J 1010 NEXT I 1020 FOR J10 TO 0 STEP -1 1030 LET C0 1040 LET H
0 1050 FOR I1 TO N 1060 IF B(I,J100 PRINT TAB(33)"NIM" 110 PRINT TAB(15)"CREA
TIVE COMPUTING MORRISTOWN, NEW JERSEY" 120 PRINTPRINTPRINT 210 DIM A(100),B(1
00,10),D(2) 220 PRINT "THIS IS THE GAME OF NIM." 230 PRINT "DO YOU WANT INSTRU
CTIONS" 240 INPUT Z$ 250 IF Z$"NO" THEN 440 260 IF Z$"no" THEN 440 270 IF Z$
"YES" THEN 310 280 IF Z$"yes" THEN 310 290 PRINT "PLEASE ANSWER YES OR NO" 30
0 GOTO 240 310 PRINT "THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS." 3
20 PRINT "ANY NUMBER OF OBJECTS ARE REMOVED FROM ONE PILE)0 THEN 1110 1070 LET
CC+1 1080 IF A(I)H THEN 1110 1090 LET HA(I) 1100 LET GI 1110 NEXT I 1120 IF
C/2INT(C/2) THEN 1190 1130 NEXT J 1140 LET EINT(N*RND(1)+1) 1150 IF A(E)0 TH
EN 1140 1160 LET FINT(A(E)*RND(1)+1) 1170 LET A(E)A(E)-F 1180 GOTO 1380 1190
LET A(G)0 1200 FOR J0 TO 10 1210 LET B(G,J)0 1220 LET C0 1230 FOR I1 TO N
1240 IF B(I,J)0 THEN 1260 1250 LET CC+1 1260 NEXT I 1270 LET A(G)A(G)+2*(C/2-
INT(C/2))*2J 1280 NEXT J 1290 IF W1 THEN 1380 1300 LET C0 1310 BY YOU AND"
330 PRINT "THE MACHINE ALTERNATELY. ON YOUR TURN, YOU MAY TAKE" 340 PRINT "ALL
THE OBJECTS THAT REMAIN IN ANY PILE, BUT YOU MUST" 350 PRINT "TAKE AT LEAST ON
E OBJECT, AND YOU MAY TAKE OBJECTS FROM" 360 PRINT "ONLY ONE PILE ON A SINGLE T
URN. YOU MUST SPECIFY WHETHER" 370 PRINT "WINNING IS DEFINED AS TAKING OR NOT
TAKING THE LAST OBJECT," 380 PRINT "THE NUMBER OF PILES IN THE GAME, AND HOW MA
NY OBJECTS ARE" 390 PRINT "ORIGINALLY IN EACH PILE. EACH PILE MAY CONTAIN A"
400 PRINT "DIFFERE FOR I1 TO N 1320 IF A(I)1 THEN 1380 1330 IF A(I)0 THEN 1350
1340 LET CC+1 1350 NEXT I 1360 IF C/2INT(C/2) THEN 1380 1370 LET A(G)1-A(G)
1380 PRINT "PILE SIZE" 1390 FOR I1 TO N 1400 PRINT IA(I) 1410 NEXT I 1420
IF W2 THEN 1450 1430 GOSUB 1570 1440 IF Z1 THEN 820 1450 PRINT "YOUR MOVE -
PILE, NUMBER TO BE REMOVED" 1460 INPUT X,Y 1470 IF XN THEN 1450 1480 IF X1 TH
EN 1450 1490 IF XINT(X) THEN 1450 1500 IF YA(X) THEN 1450 1510 IF Y1 THEN 145
0 1520 IF YINT(Y) THEN 1450 NT NUMBER OF OBJECTS." 410 PRINT "THE MACHINE WIL
L SHOW ITS MOVE BY LISTING EACH PILE AND THE" 420 PRINT "NUMBER OF OBJECTS REMA
INING IN THE PILES AFTER EACH OF ITS" 430 PRINT "MOVES." 440 PRINT 450 PRINT
"ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST" 460 INPUT W 470 IF W1 TH
EN 490 480 IF W2 THEN 450 490 PRINT "ENTER NUMBER OF PILES" 500 INPUT N 510
IF N100 THEN 490 520 IF N1 THEN 490 530 IF NINT(N) THEN 490 540 PRINT "ENTER
PILE SIZES" 550 FOR I1 TO N 560 PRINT I 570 INPU1530 LET A(X)A(X)-Y 1540 GOS
UB 1570 1550 IF Z1 THEN 800 1560 GOTO 700 1570 LET Z0 1580 FOR I1 TO N 1590
IF A(I)0 THEN 1610 1600 RETURN 1610 NEXT I 1620 LET Z1 1630 RETURN 1640 PR
INT "do you want to play another game" 1650 INPUT Q9$ 1660 IF Q9$"YES" THEN 17
20 1670 IF Q9$"yes" THEN 1720 1680 IF Q9$"NO" THEN 1730 1690 IF Q9$"no" THEN
1730 1700 PRINT "PLEASE. YES OR NO." 1710 GOTO 1650 1720 GOTO 440 1730 END
T A(I) 580 IF A(I)2000 THEN 560 590 IF A(I)1 THEN 560 600 IF A(I)INT(A(I))
THEN 560 610 NEXT I 620 PRINT "DO YOU WANT TO MOVE FIRST" 630 INPUT Q9$ 640
IF Q9$"YES" THEN 1450 650 IF Q9$"yes" THEN 1450 660 IF Q9$"NO" THEN 700 670 I
F Q9$"no" THEN 700 680 PRINT "PLEASE ANSWER YES OR NO." 690 GOTO 630 700 IF W
1 THEN 940 710 LET C0 720 FOR I1 TO N 730 IF A(I)0 THEN 770 740 LET CC+1 75
0 IF C3 THEN 840 760 LET D(C)I 770 NEXT I 780 IF C2 THEN 920 790 IF A(D(1))1
THEN 820 800 P R1 PRINT TAB(33)"NUMBER" 2 PRINT TAB(15)"CREATIVE COMPUTING
MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT 4 PRINT "YOU HAVE 100 POINTS. BY GU
ESSING NUMBERS FROM 1 TO 5, YOU" 5 PRINT "CAN GAIN OR LOSE POINTS DEPENDING UPO
N HOW CLOSE YOU GET TO" 6 PRINT "A RANDOM NUMBER SELECTED BY THE COMPUTER." PRI
NT 7 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)" 8 PRINT
"YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS." 9 PRINT P100 10 DEF FNR(
X)INT(5*RND(1)+1) 12 INPUT "GUESS A NUMBER0 THEN 230 220 IF A(T)1 THEN 230 22
5 GOTO 250 230 PRINT "ILLEGAL MOVE. TRY AGAIN..." 240 GOTO 100 245 REM *** U
PDATE BOARD 250 A(T)1 260 A(F)0 270 A((T+F)/2)0 290 MM+1 310 REM *** PRINT
BOARD 340 FOR J1 TO 57 STEP 8 350 FOR IJ TO J+7 360 PRINT A(I) 370 NEXT I 3
80 PRINT 390 NEXT J 400 PRINT 410 GOTO 100 490 REM *** END GAME SUMMARY 500
S0 510 FOR I1 TO 64 520 SS+A(I) 530 NEXT I 540 PRINTPRINT "YOU MADE"M"JUMPS
AND HAD"S"PIECES" 550 PRINT "REMAINING ON THE BOARD." 56 FROM 1 TO 5"G 15 RF
NR(1) 16 SFNR(1) 17 TFNR(1) 18 UFNR(1) 19 VFNR(1) 20 IF GR THEN 30 21 IF G
S THEN 40 22 IF GT THEN 50 23 IF GU THEN 60 24 IF GV THEN 70 25 IF G5 THEN 1
2 30 PP-5 35 GOTO 80 40 PP+5 45 GOTO 80 50 PP+P 53 PRINT "YOU HIT THE JACK
POT!!!" 55 GOTO 80 60 PP+1 65 GOTO 80 70 PP-(P*.5) 80 IF P500 THEN 90 82 P
RINT "YOU HAVE"P"POINTS."PRINT 85 GOTO 12 90 PRINT "!!!!YOU WIN!!!! WITH "P"PO
INTS." 99 END 0 PRINT 562 INPUT "TRY AGAIN"A$ 570 IF A$"YES" THEN 70 575 IF
A$"NO" THEN 600 580 PRINT "PLEASE ANSWER 'YES' OR 'NO'." 590 GOTO 562 600 PR
INT 610 PRINT "O.K. HOPE YOU HAD FUN!!" 999 END 2 PRINT TAB(30)"ONE CHECK"
4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT
8 DIM A(64) 10 PRINT "SOLITAIRE CHECKER PUZZLE BY DAVID AHL" 15 PRINT 20 PR
INT "48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A" 25 PRINT "STANDARD 64
-SQUARE CHECKERBOARD. THE OBJECT IS TO" 30 PRINT "REMOVE AS MANY CHECKERS AS P
OSSIBLE BY DIAGONAL JUMPS" 35 PRINT "(AS IN STANDARD CHECKERS). USE THE NUMBER
ED BOARD TO" 40 PRINT "INDICATE THE SQUARE YOU WISH TO JUMP FROM AND TO. ON"
45 PRINT "THE BOARD PRINTED OUT ON EACH TURN '1' INDICATES A" 50 PRINT "CHECKER
AND '0' AN EMPTY SQUARE. WHEN YOU HAVE NO" 55 PRINT "POSSIBLE JUMPS REMAINING
, INPUT A '0' IN RESPONSE TO" 60 PRINT "QUESTION 'JUMP FROM '" 62 PRINT 63 PR
INT "HERE IS THE NUMERICAL BOARD" 66 PRINT 70 FOR J1 TO 57 STEP 8 74 PRINT JT
AB(4)J+1TAB(8)J+2TAB(12)J+3TAB(16)J+4TAB(20)J+5 75 PRINT TAB(24)J+6TAB(28)J+7
76 NEXT J 77 PRINT 78 PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS.
" 79 PRINT 802 PRINT TAB(33)"ORBIT" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRI
STOWN, NEW JERSEY" 6 PRINTPRINTPRINT 10 PRINT "SOMEWHERE ABOVE YOUR PLANET IS
A ROMULAN SHIP." 15 PRINT 20 PRINT "THE SHIP IS IN A CONSTANT POLAR ORBIT. IT
S" 25 PRINT "DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM" 30 PRINT "10,000
TO 30,000 MILES AND AT ITS PRESENT VELOCITY CAN" 31 PRINT "CIRCLE YOUR PLANET
ONCE EVERY 12 TO 36 HOURS." 35 PRINT 40 PRINT "UNFORTUNATELY, THEY ARE USING A
CLOAKING DEVICE SO" 45 PRINT "YOU ARE UNA FOR J1 TO 64 82 A(J)1 84 NEXT J 8
6 FOR J19 TO 43 STEP 8 88 FOR IJ TO J+3 90 A(I)0 92 NEXT I 94 NEXT J 96 M0
98 GOTO 340 100 INPUT "JUMP FROM"F 105 IF F0 THEN 500 110 INPUT "TO"T 112 P
RINT 118 REM *** CHECK LEGALITY OF MOVE 120 F1INT((F-1)/8) 130 F2F-8*F1 140
T1INT((T-1)/8) 150 T2T-8*T1 160 IF F17 THEN 230 170 IF T17 THEN 230 180 IF F
28 THEN 230 190 IF T28 THEN 230 200 IF ABS(F1-T1)2 THEN 230 210 IF ABS(F2-T2)
2 THEN 230 212 IF A((T+F)/2)0 THEN 230 215 IF A(F) RBLE TO SEE THEM, BUT WITH
A SPECIAL" 50 PRINT "INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR" 55 PRI
NT "PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY" 60 PRINT "HAVE BUIL
T UP SUFFICIENT POWER IN ORDER TO ESCAPE" 65 PRINT "YOUR PLANET'S GRAVITY." 70
PRINT 75 PRINT "YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR." 80 PR
INT 85 PRINT "AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN" 90 P
RINT "ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF" 95 PRINT "100 MILES
(BETWE SEND" 335 PRINT "YOUR PHOTON BOMB" 340 INPUT A1 350 PRINT "HOW FAR OU
T DO YOU WISH TO DETONATE IT" 360 INPUT D1 365 PRINT 366 PRINT 370 AA+R 380
IF A360 THEN 400 390 AA-360 400 TABS(A-A1) 410 IF T180 THEN 430 420 T360-T
430 CSQR(D*D+D1*D1-2*D*D1*COS(T*3.14159/180)) 440 PRINT "YOUR PHOTON BOMB EXPL
ODED"C"*102 MILES FROM THE" 445 PRINT "ROMULAN SHIP." 450 IF C50 THEN 470 460
GOTO 310 470 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION." 480 GOTO 50
0 490 PRINT "YOU HAVE ALEN 100 AND 300), AFTER WHICH YOUR BOMB'S" 100 PRINT "D
ISTANCE FROM THE ENEMY SHIP WILL BE GIVEN." 105 PRINT 110 PRINT "AN EXPLOSION
WITHIN 5,000 MILES OF THE ROMULAN SHIP" 111 PRINT "WILL DESTROY IT." 114 PRINT
115 PRINT "BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT." 116 PRINT
117 PRINT 168 PRINT " 90" 170 PRINT "
0000000000000" 171 PRINT " 0000000000000000000" 172 PRINT
" 000000 000000" 173 PRINT " LOWED THE ROMULANS TO E
SCAPE." 500 PRINT "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT." 510 PRINT "DO YO
U WISH TO TRY TO DESTROY IT" 520 INPUT C$ 530 IF C$"YES" THEN 270 540 PRINT "
GOOD BYE." 999 END 00000 00000" 174 PRINT "
00000 XXXXXXXXXXX 00000" 175 PRINT " 00000 XXXXXXXXXXXXX
00000" 176 PRINT " 0000 XXXXXXXXXXXXXXX 0000" 177 PRINT "
0000 XXXXXXXXXXXXXXXXX 0000" 178 PRINT " 0000 XXXXXX
XXXXXXXXXXXXX 0000" 179 PRINT "180 00000 XXXXXXXXXXXXXXXXXXX 00000
0" 180 PRINT " 0000 XXXXXXXXXXXXXXXXXXX 0000" 181 PRINT "
0000 XXXXXXXXXXXXXXXXX 0000" 182 PR5 PRINT TAB(33)"PIZZA" 10 PRINT
TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 15 PRINT PRINT PRINT 20 DI
M S$(16),M$(4) 30 PRINT "PIZZA DELIVERY GAME" PRINT 50 INPUT "WHAT IS YOUR FIR
ST NAME"N$ PRINT 80 PRINT "HI, "N$". IN THIS GAME YOU ARE TO TAKE ORDERS" 90
PRINT "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY" 100 PRINT "WHERE TO DE
LIVER THE ORDERED PIZZAS." PRINT PRINT 140 FOR I1 TO 16 150 READ S$(I) 160 NE
XT I 170 FOR I1 TO 4 180 READ M$(I) 190 NEXT I 200 DATA "A","BINT "
0000 XXXXXXXXXXXXXXX 0000" 183 PRINT " 00000 XXXXXXXXXXXX
X 00000" 184 PRINT " 00000 XXXXXXXXXXX 00000" 185 PRINT "
00000 00000" 186 PRINT " 000000
000000" 187 PRINT " 0000000000000000000" 188 PRINT "
0000000000000" 190 PRINT " 270" 192 PRI
NT 195 PRINT "X - YOUR PLANET" 196 PRINT "O - THE ORBIT OF THE ROMULAN SHIP"
197 PRINT 198 PRI","C","D","E","F","G","H","I","J","K","L","M","N","O" 210 DAT
A "P","1","2","3","4" 230 PRINT "MAP OF THE CITY OF HYATTSVILLE" PRINT 250 PRI
NT " -----1-----2-----3-----4-----" 260 K4 270 FOR I1 TO 4 280 PRINT "-" PRIN
T "-" PRINT"-" PRINT "-" 320 PRINT M$(K) 330 S116-4*I+1 340 PRINT " "S$(S
1)" "S$(S1+1)" "S$(S1+2)" " 350 PRINT S$(S1+3)" "M$(K) 380 KK-
1 390 NEXT I 400 PRINT "-" PRINT "-" PRINT "-" PRINT "-" 440 PRINT " -----1--
---2-----3-----4-----" PRINTNT "ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLI
NG" 199 PRINT "COUNTERCLOCKWISE AROUND YOUR PLANET. DON'T FORGET THAT" 200 PR
INT "WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE" 210 PRINT "AND ORBIT
AL RATE WILL REMAIN CONSTANT." 220 PRINT 230 PRINT "GOOD LUCK. THE FEDERATIO
N IS COUNTING ON YOU." 270 AINT(360*RND(1)) 280 DINT(200*RND(1)+200) 290 RINT
(20*RND(1)+10) 300 H0 310 IF H7 THEN 490 320 HH+1 325 PRINT 326 PRINT 330
PRINT "THIS IS HOUR"H", AT WHAT ANGLE DO YOU WISH TO R 460 PRINT "THE OUTPUT I
S A MAP OF THE HOMES WHERE" 470 PRINT "YOU ARE TO SEND PIZZAS." PRINT 490 PRIN
T "YOUR JOB IS TO GIVE A TRUCK DRIVER" 500 PRINT "THE LOCATION OR COORDINATES O
F THE" 510 PRINT "HOME ORDERING THE PIZZA." PRINT 520 INPUT "DO YOU NEED MORE
DIRECTIONS"A$ 530 IF A$"YES" THEN 590 540 IF A$"NO" THEN 750 550 PRINT "'YES'
OR 'NO' PLEASE, NOW THEN," GOTO 520 590 PRINT PRINT "SOMEBODY WILL ASK FOR A P
IZZA TO BE" 600 PRINT "DELIVERED. THEN A DELIVERY BOY WILL" 610 PRINT "ASK YO
210 115 PRINT "BURNED"GOTO 210 120 ON I GOTO 121,122,123,124,125 121 PRINT "A
ND MY SOUL"GOTO 210 122 PRINT "DARKNESS THERE"GOTO 210 123 PRINT "SHALL BE LIF
TED"GOTO 210 124 PRINT "QUOTH THE RAVEN"GOTO 210 125 IF U0 THEN 210 126 PRINT
"SIGN OF PARTING"GOTO 210 130 ON I GOTO 131,132,133,134,135 131 PRINT "NOTHIN
G MORE"GOTO 210 132 PRINT "YET AGAIN"GOTO 210 133 PRINT "SLOWLY CREEPING"GOTO
210 134 PRINT "...EVERMORE"GOTO 210 135 PRINT "NEVERMORE" 210 IF U0 OR RND(1)
.19 THENU FOR THE LOCATION."PRINT " EXAMPLE" 620 PRINT "THIS IS J. PLEASE
SEND A PIZZA." 640 PRINT "DRIVER TO "N$". WHERE DOES J LIVE" 650 PRINT "YOUR
ANSWER WOULD BE 2,3" PRINT 660 INPUT "UNDERSTAND"A$ 670 IF A$"YES" THEN 690 6
80 PRINT "THIS JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS ANYWAY" 685 GOTO
999 690 PRINT "GOOD. YOU ARE NOW READY TO START TAKING ORDERS." PRINT 700 PR
INT "GOOD LUCK!!" PRINT 750 FOR I1 TO 5 760 SINT(RND(1)*16+1) PRINT 770 PRINT
"HELLO "N$"'S PIZZA. TH 212 211 PRINT ","U2 212 IF RND(1).65 THEN 214 213 P
RINT " "UU+1GOTO 215 214 PRINT U0 215 IINT(INT(10*RND(1))/2)+1 220 JJ+1 KK+
1 230 IF U0 OR INT(J/2)J/2 THEN 240 235 PRINT " " 240 ON J GOTO 90,110,12
0,130,250 250 J0 PRINT IF K20 THEN 270 260 GOTO 215 270 PRINT U0 K0 GOTO
110 999 END IS IS "S$(S)"." 775 PRINT " PLEASE SEND A PIZZA." 780 PRINT "
DRIVER TO "N$" WHERE DOES "S$(S)" LIVE" 790 INPUT A(1),A(2) 870 TA(1)+(A(2)-
1)*4 880 IF TS THEN 920 890 PRINT "THIS IS "S$(T)". I DID NOT ORDER A PIZZA."
900 PRINT "I LIVE AT "A(1)","A(2) 910 GOTO 780 920 PRINT "HELLO "N$". THIS
IS "S$(S)", THANKS FOR THE PIZZA." 930 NEXT I 940 PRINT INPUT "DO YOU WANT TO
DELIVER MORE PIZZAS"A$ 960 IF A$"YES" THEN 750 970 PRINT PRINT "O.K. "N$", SEE
YOU LATER!"PRINT 999 END 2 PRINT TAB(33)"POKER" 4 PRINT TAB(15)"CREATIVE COM
PUTING MORRISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT 10 DIM A(50),B(15) 20 DEF
FNA(X)INT(10*RND(1)) 30 DEF FNB(X)X-100*INT(X/100) 40 PRINT "WELCOME TO THE C
ASINO. WE EACH HAVE $200." 50 PRINT "I WILL OPEN THE BETTING BEFORE THE DRAW Y
OU OPEN AFTER." 60 PRINT "TO FOLD BET 0 TO CHECK BET .5." 70 PRINT "ENOUGH TAL
K -- LET'S GET DOWN TO BUSINESS." 80 PRINT 90 LET O1 100 LET C200 110 LET S2
00 120 LET P0 130 REM 140 PRINT 150 IF C5 10 PRINT TAB(30)"POETRY" 20 PRINT
TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 90 ON
I GOTO 100,101,102,103,104 100 PRINT "MIDNIGHT DREARY"GOTO 210 101 PRINT "FIER
Y EYES"GOTO 210 102 PRINT "BIRD OR FIEND"GOTO 210 103 PRINT "THING OF EVIL"GOT
O 210 104 PRINT "PROPHET"GOTO 210 110 ON I GOTO 111,112,113,114,115 111 PRINT
"BEGUILING ME"U2GOTO 210 112 PRINT "THRILLED ME"GOTO 210 113 PRINT "STILL SIT
TING...."GOTO 212 114 PRINT "NEVER FLITTING"U2GOTO RTHEN 3670 160 PRINT "THE
ANTE IS $5. I WILL DEAL" 170 PRINT 180 IF S5 THEN 200 190 GOSUB 3830 200 L
ET PP+10 210 LET SS-5 220 LET CC-5 230 FOR Z1 TO 10 240 GOSUB 1740 250 NEXT
Z 260 PRINT "YOUR HAND" 270 N1 280 GOSUB 1850 290 N6 300 I2 310 GOSUB 217
0 320 PRINT 330 IF I6 THEN 470 340 IF FNA(0)7 THEN 370 350 LET X11100 360 G
OTO 420 370 IF FNA(0)7 THEN 400 380 LET X11110 390 GOTO 420 400 IF FNA(0)1 T
HEN 450 410 X11111 420 I7 430 Z23 440 GOTO 580 450 Z1 460HAVE " 1570 KD
1580 GOSUB 3690 1590 H$J$ 1600 I$K$ 1610 KM 1620 PRINT "AND I HAVE " 1630 G
OSUB 3690 1640 IF BU THEN 670 1650 IF UB THEN 780 1660 IF H$"A FLUS" THEN 170
0 1662 IF FNB(M)FNB(D) THEN 780 1664 IF FNB(M)FNB(D) THEN 670 1670 PRINT "THE
HAND IS DRAWN." 1680 PRINT "ALL $"P"REMAINS IN THE POT." 1690 GOTO 140 1700
IF FNB(M)FNB(D) THEN 670 1710 IF FNB(D)FNB(M) THEN 780 1720 GOTO 1670 1730 ZZ
+1 1740 A(Z)100*INT(4*RND(1))+INT(100*RND(1)) 1750 IF INT(A(Z)/100)3 THEN 174
GOTO 510 470 IF U13 THEN 540 480 IF FNA(0)2 THEN 500 490 GOTO 420 500 Z0 51
0 K0 520 PRINT "I CHECK." 530 GOTO 620 540 IF U16 THEN 570 550 Z2 560 IF FN
A(0)1 THEN 580 570 Z35 580 VZ+FNA(0) 590 GOSUB 3480 600 PRINT "I'LL OPEN WIT
H $"V 610 KV 620 GOSUB 3050 630 GOSUB 650 640 GOTO 820 650 IF I3 THEN 760
660 PRINT 670 PRINT "I WIN." 680 CC+P 690 PRINT "NOW I HAVE $"C"AND YOU HAVE
$"S 700 PRINT "DO YOU WISH TO CONTINUE" 710 INPUT H$ 720 IF H$"YES" THEN 120
730 IF H$"0 1760 IF A(Z)-100*INT(A(Z)/100)12 THEN 1740 1765 IF Z1 THEN 1840
1770 FOR K1 TO Z-1 1780 IF A(Z)A(K) THEN 1740 1790 NEXT K 1800 IF Z10 THEN 18
40 1810 NA(U) 1820 A(U)A(Z) 1830 A(Z)N 1840 RETURN 1850 FOR ZN TO N+4 1860
PRINT Z"-- " 1870 GOSUB 1950 1880 PRINT " OF" 1890 GOSUB 2070 1900 IF Z/2I
NT(Z/2) THEN 1920 1910 PRINT 1920 NEXT Z 1930 PRINT 1940 RETURN 1950 KFNB(A
(Z)) 1960 IF K9 THEN 1980 1970 PRINT "JACK" 1980 IF K10 THEN 2000 1990 PRINT
"QUEEN" 2000 IF K1NO" THEN 4100 740 PRINT "ANSWER YES OR NO, PLEASE." 750 GO
TO 700 760 IF I4 THEN 810 770 PRINT 780 PRINT "YOU WIN." 790 SS+P 800 GOTO
690 810 RETURN 820 PRINT 830 PRINT "NOW WE DRAW -- HOW MANY CARDS DO YOU WANT
" 840 INPUT T 850 IF T0 THEN 980 860 Z10 870 IF T4 THEN 900 880 PRINT "YOU
CAN'T DRAW MORE THAN THREE CARDS." 890 GOTO 840 900 PRINT "WHAT ARE THEIR NUMB
ERS" 910 FOR Q1 TO T 920 INPUT U 930 GOSUB 1730 940 NEXT Q 950 PRINT "YOUR
NEW HAND" 960 N1 970 GOSUB 1850 980 Z1 THEN 2020 2010 PRINT "KING" 2020 IF
K12 THEN 2040 2030 PRINT "ACE" 2040 IF K9 THEN 2060 2050 PRINT K+2 2060 RETU
RN 2070 KINT(A(Z)/100) 2080 IF K0 THEN 2100 2090 PRINT " CLUBS", 2100 IF K1
THEN 2120 2110 PRINT " DIAMONDS", 2120 IF K2 THEN 2140 2130 PRINT " HEARTS",
2140 IF K3 THEN 2160 2150 PRINT " SPADES", 2160 RETURN 2170 U0 2180 FOR ZN
TO N+4 2190 B(Z)FNB(A(Z)) 2200 IF ZN+4 THEN 2230 2210 IF INT(A(Z)/100)INT(A(Z
+1)/100) THEN 2230 2220 UU+1 2230 NEXT Z 2240 10+T 990 FOR U6 TO 10 1000 IF
INT(X/10(U-6))10*INT(X/10(U-5)) THEN 1020 1010 GOSUB 1730 1020 NEXT U 1030 P
RINT 1040 PRINT "I AM TAKING"Z-10-T"CARD" 1050 IF Z11+T THEN 1090 1060 PRINT
"S" 1070 PRINT 1080 GOTO 1100 1090 PRINT 1100 N6 1110 VI 1120 I1 1130 GOS
UB 2170 1140 BU 1150 MD 1160 IF V7 THEN 1190 1170 Z28 1180 GOTO 1330 1190
IF I6 THEN 1220 1200 Z1 1210 GOTO 1330 1220 IF U13 THEN 1270 1230 Z2 1240 I
F FNA(0)6 THEN 1260 1250 Z19 1260 GOTO 1330 1270 IF UIF U4 THEN 2310 2250 X1
1111 2260 DA(N) 2270 H$"A FLUS" 2280 I$"H IN" 2290 U15 2300 RETURN 2310 FO
R ZN TO N+3 2320 FOR KZ+1 TO N+4 2330 IF B(Z)B(K) THEN 2390 2340 XA(Z) 2350
A(Z)A(K) 2360 B(Z)B(K) 2370 A(K)X 2380 B(K)A(K)-100*INT(A(K)/100) 2390 NEXT
K 2400 NEXT Z 2410 X0 2420 FOR ZN TO N+3 2430 IF B(Z)B(Z+1) THEN 2470 2440
XX+11*10(Z-N) 2450 DA(Z) 2460 GOSUB 2760 2470 NEXT Z 2480 IF X0 THEN 2620 2
490 IF B(N)+3B(N+3) THEN 2520 2500 X1111 2510 U10 2520 I16 THEN 1320 1280 Z1
9 1290 IF FNA(0)8 THEN 1310 1300 Z11 1310 GOTO 1330 1320 Z2 1330 K0 1340 G
OSUB 3050 1350 IF T.5 THEN 1450 1360 IF V7 THEN 1400 1370 IF I6 THEN 1400 13
80 PRINT "I'LL CHECK" 1390 GOTO 1460 1400 VZ+FNA(0) 1410 GOSUB 3480 1420 PRI
NT "I'LL BET $"V 1430 KV 1440 GOSUB 3060 1450 GOSUB 650 1460 PRINT 1470 PRI
NT "NOW WE COMPARE HANDS" 1480 J$H$ 1490 K$I$ 1500 PRINT "MY HAND" 1510 N6
1520 GOSUB 1850 1530 N1 1540 GOSUB 2170 1550 PRINT 1560 PRINT "YOU RF B(N+
1)+3B(N+4) THEN 2620 2530 IF U10 THEN 2600 2540 U14 2550 H$"STRAIG" 2560 I$"
HT" 2570 X11111 2580 DA(N+4) 2590 RETURN 2600 U10 2610 X11110 2620 IF U10
THEN 2690 2630 DA(N+4) 2640 H$"SCHMAL" 2650 I$"TZ, " 2660 U9 2670 X11000 2
680 GOTO 2740 2690 IF U10 THEN 2720 2700 IF I1 THEN 2740 2710 GOTO 2750 2720
IF U12 THEN 2750 2730 IF FNB(D)6 THEN 2750 2740 I6 2750 RETURN 2760 IF U11
THEN 2810 2770 U11 2780 H$"A PAIR" 2790 I$" OF " 2800 RETURN 2810 IF UPRINT
"'S" 3820 RETURN 3830 PRINT 3840 PRINT "YOU CAN'T BET WITH WHAT YOU HAVEN'T
GOT." 3850 IF O/2INT(O/2) THEN 3970 3860 PRINT "WOULD YOU LIKE TO SELL YOUR WA
TCH" 3870 INPUT J$ 3880 IF LEFT$(J$,1)"N" THEN 3970 3890 IF FNA(0)7 THEN 3930
3900 PRINT "I'LL GIVE YOU $75 FOR IT." 3910 SS+75 3920 GOTO 3950 3930 PRINT
"THAT'S A PRETTY CRUMMY WATCH - I'LL GIVE YOU $25." 3940 SS+25 3950 OO*2 396
0 RETURN 3970 IF O/3INT(O/3) THEN 4090 3980 PRINT "WILL YOU PART WITH THAT DIA
MOND TIE TACK" 11 THEN 2910 2820 IF B(Z)B(Z-1) THEN 2870 2830 H$"THREE" 2840
I$" " 2850 U13 2860 RETURN 2870 H$"TWO P" 2880 I$"AIR, " 2890 U12 2900 RE
TURN 2910 IF U12 THEN 2960 2920 U16 2930 H$"FULL H" 2940 I$"OUSE, " 2950 RE
TURN 2960 IF B(Z)B(Z-1) THEN 3010 2970 U17 2980 H$"FOUR" 2990 I$" " 3000 RE
TURN 3010 U16 3020 H$"FULL H" 3030 I$"OUSE, " 3040 RETURN 3050 G0 3060 PRI
NTPRINT "WHAT IS YOUR BET" 3070 INPUT T 3080 IF T-INT(T)0 THEN 3140 3090 IF K
0 THEN 3120 3100 IF G3990 INPUT J$ 4000 IF LEFT$(J$,1)"N" THEN 4080 4010 IF F
NA(0)6 THEN 4050 4020 PRINT "YOU ARE NOW $100 RICHER." 4030 SS+100 4040 GOTO
4070 4050 PRINT "IT'S PASTE. $25." 4060 SS+25 4070 OO*3 4080 RETURN 4090 P
RINT "YOUR WAD IS SHOT. SO LONG, SUCKER!" 4100 END 0 THEN 3120 3110 IF T.5 T
HEN 3410 3120 PRINT "NO SMALL CHANGE, PLEASE." 3130 GOTO 3060 3140 IF S-G-T0
THEN 3170 3150 GOSUB 3830 3160 GOTO 3060 3170 IF T0 THEN 3200 3180 I3 3190
GOTO 3380 3200 IF G+TK THEN 3230 3210 PRINT "IF YOU CAN'T SEE MY BET, THEN FOL
D." 3220 GOTO 3060 3230 GG+T 3240 IF GK THEN 3380 3250 IF Z1 THEN 3420 3260
IF G5 THEN 3300 3270 IF Z2 THEN 3350 3280 V5 3290 GOTO 3420 3300 IF Z1 THEN
3320 3310 IF T25 THEN 3350 3320 I4 3330 PRINT "I FOLD." 3340 RETURN 3350 I
F Z2 THEN 3430 3360 PRINT "I'LL SEE YOU." 3370 KG 3380 SS-G 3390 CC-K 3400
PP+G+K 3410 RETURN 3420 IF G3*Z THEN 3350 3430 VG-K+FNA(0) 3440 GOSUB 3480
3450 PRINT "I'LL SEE YOU, AND RAISE YOU"V 3460 KG+V 3470 GOTO 3060 3480 IF C-
G-V0 THEN 3660 3490 IF G0 THEN 3520 3500 VC 3510 RETURN 3520 IF C-G0 THEN 33
60 3530 IF (O/2)INT(O/2) THEN 3600 3540 PRINT "WOULD YOU LIKE TO BUY BACK YOUR
WATCH FOR $50" 3550 INPUT J$ 3560 IF LEFT$(J$,1)"N" THEN 3600 3570 CC+5050 P
RINT CHR$(26)REM WIDTH 80 100 PRINT TAB(33)"QUBIC"PRINT 110 PRINT TAB(15)"CREA
TIVE COMPUTING MORRISTOWN, NEW JERSEY" 120 PRINTPRINTPRINT 210 PRINT "DO YOU
WANT INSTRUCTIONS" 220 INPUT C$ 230 IF LEFT$(C$,1)"N" THEN 315 240 IF LEFT$(C
$,1)"Y" THEN 265 250 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'" 260
GOTO 220 265 PRINT 270 PRINT "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE." 2
80 PRINT "EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH" 290 PRINT "DIG
IT BETWEEN 1 AND 4 3580 OO/2 3590 RETURN 3600 IF O/3INT(O/3) THEN 3670 3610
PRINT "WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50" 3620 INPUT J$ 3630 IF
LEFT$(J$,1)"N" THEN 3670 3640 CC+50 3650 OO/3 3660 RETURN 3670 PRINT "I'M B
USTED. CONGRATULATIONS!" 3680 STOP 3690 PRINT H$I$ 3700 IF H$"A FLUS" THEN 3
750 3710 KINT(K/100) 3720 GOSUB 2080 3730 PRINT 3740 RETURN 3750 KFNB(K) 3
760 GOSUB 1960 3770 IF H$"SCHMAL" THEN 3790 3780 IF H$"STRAIG" THEN 3810 3790
PRINT " HIGH" 3800 RETURN 3810 R INCLUSIVE. THE DIGITS INDICATE THE" 300
PRINT "LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED" 305 PRINT "PLACE.
" 306 PRINT 307 PRINT "TO PRINT THE PLAYING BOARD, TYPE 0 (ZERO) AS YOUR MOV
E." 308 PRINT "THE PROGRAM WILL PRINT THE BOARD WITH YOUR MOVES INDI-" 309 PRI
NT "CATED WITH A (Y), THE MACHINE'S MOVES WITH AN (M), AND" 310 PRINT "UNUSED S
QUARES WITH A ( ). OUTPUT IS ON PAPER." 311 PRINT 312 PRINT "TO STOP THE PROG
RAM RUN, TYPE 1 AS YOUR MOVE." 313 PRINTPRINT 315 DIM X(64),L(76), X(Y(Z))0 TH
EN 1250 1220 LET ZZ+1 1230 IF Z17 THEN 1210 1240 GOTO 1720 1250 LET MY(Z) 1
260 LET X(M)5 1270 PRINT "MACHINE MOVES TO" 1280 GOSUB 1570 1290 GOTO 500 13
00 LET XX 1310 I1 1320 LET L(I)X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4)) 1330 L
ET LL(I) 1340 IF L10 THEN 1410 1350 IF L11 THEN 1410 1360 IF L10 THEN 2230 1
370 FOR J1 TO 4 1380 IF X(M(I,J))0 THEN 1400 1390 LET X(M(I,J))1/8 1400 NEXT
J 1410 II+1 IF I76 THEN 1320 1420 GOSUB 1640 1430 I1 1440 IF L(I).5 THEM(76,
4),Y(16) 320 FOR I 1 TO 16 330 READ Y(I) 340 NEXT I 350 FOR I1 TO 76 360 F
OR J 1 TO 4 370 READ M(I,J) 380 NEXT J 390 NEXT I 400 FOR I 1 TO 64 410 L
ET X (I) 0 420 NEXT I 430 LET Z1 440 PRINT "DO YOU WANT TO MOVE FIRST" 450 I
NPUT S$ 460 IF LEFT$(S$,1)"N" THEN 630 470 IF LEFT$(S$,1)"Y" THEN 500 480 PRI
NT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'." 490 GOTO 450 500 PRINT " "
510 PRINT "YOUR MOVE" 520 INPUT J1 521 IF J11 THEN 2770 522 IF J10 THEN 525
523 GOSUB 25N 2360 1450 IF L(I)5+3/8 THEN 2360 1460 II+1 IF I76 THEN 1440 14
70 GOSUB 2500 1480 GOTO 1030 1490 PRINT " " 1500 PRINT "DO YOU WANT TO TRY AN
OTHER GAME" 1510 INPUT X$ 1520 IF LEFT$(X$,1)"Y" THEN 400 1530 IF LEFT$(X$,1)
"N" THEN 1560 1540 PRINT "INCORRECT ANSWER. PLEASE TYPE 'YES' OR 'NO'" 1550 GO
TO 1510 1560 END 1570 LET K1INT((M-1)/16)+1 1580 LET J2M-16*(K1-1) 1590 LET
K2INT((J2-1)/4)+1 1600 LET K3M-(K1-1)*16-(K2-1)*4 1610 LET MK1*100+K2*10+K3 1
620 PRINT M 1630 RETURN 164050 524 GOTO 500 525 IF J1111 THEN 2750 526 IF J
1444 THEN 2750 530 GOSUB 2500 540 LET K1INT(J1/100) 550 LET J2(J1-K1*100) 56
0 LET K2INT(J2/10) 570 LET K3 J1 - K1*100 -K2*10 580 LET M16*K1+4*K2+K3-20 59
0 IF X(M)0 THEN 620 600 PRINT "THAT SQUARE IS USED, TRY AGAIN." 610 GOTO 500
620 LET X(M)1 630 GOSUB 1640 640 J1 650 I1 660 IF J1 THEN 720 670 IF J2 THE
N 790 680 IF J3 THEN 930 690 II+1 IF I76 THEN 660 700 JJ+1 IF J3 THEN 650 71
0 GOTO 1300 720 IF L(I)4 THEN 690 73 FOR S1 TO 76 1650 LET J1 M(S,1) 1660 L
ET J2M(S,2) 1670 LET J3M(S,3) 1680 LET J4M(S,4) 1690 LET L(S)X(J1)+X(J2)+X(J3
)+X(J4) 1700 NEXT S 1710 RETURN 1720 FOR I1 TO 64 1730 IF X(I)0 THEN 1800 1
740 LET X(I)5 1750 LET MI 1760 PRINT "MACHINE LIKES" 1770 GOSUB 1570 1780 PR
INT " " 1790 GOTO 500 1800 NEXT I 1810 PRINT "THE GAME IS A DRAW." 1820 GOTO
1490 1830 FOR K1 TO 18 1840 LET P0 1850 FOR I4*K-3 TO 4*K 1860 FOR J1 TO 4
1870 LET PP+X(M(I,J)) 1880 NEXT J 1890 NEXT I 1900 PRINT "YOU WIN AS FOLLOWS
" 740 FOR J1 TO 4 750 LET MM(I,J) 760 GOSUB 1570 770 NEXT J 780 GOTO 1490
790 IF L(I)15 THEN 690 800 FOR J1 TO 4 810 LET MM(I,J) 820 IF X(M)0 THEN 860
830 LET X(M)5 840 PRINT "MACHINE MOVES TO" 850 GOSUB 1570 860 NEXT J 870 PR
INT ", AND WINS AS FOLLOWS" 880 FOR J1 TO 4 890 LET MM(I,J) 900 GOSUB 1570 9
10 NEXT J 920 GOTO 1490 930 IF L(I)3 THEN 690 940 PRINT "NICE TRY. MACHINE MO
VES TO" 950 FOR J1 TO 4 960 LET MM(I,J) 970 IF X(M)0 THEN 1010 IF P4 THEN 19
40 1910 IF P5 THEN 1970 1920 IF P9 THEN 1940 1930 IF P10 THEN 1970 1940 NEXT
K 1950 GOSUB 2500 1960 GOTO 1200 1970 LET S1/8 1980 FOR I4*K-3 TO 4*K 1990
GOTO 2370 2000 NEXT I 2010 LET S0 2020 GOTO 1980 2030 DATA 1,49,52,4,13,61,
64,16,22,39,23,38,26,42,27,43 2040 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,
17,18,19,20 2050 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38 20
60 DATA 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56 2070 DATA 57,58,5
9,60,61,620 980 LET X(M)5 990 GOSUB 1570 1000 GOTO 500 1010 NEXT J 1020 GOT
O 1300 1030 I1 1040 LET L(I)X(M(I,1))+X(M(I,2))+X(M(I,3))+X(M(I,4)) 1050 LET
L L(I) 1060 IF L 2 THEN 1130 1070 IF L3 THEN 1130 1080 IF L2 THEN 2230 1090
FOR J 1 TO 4 1100 IF X(M(I,J))0 THEN 1120 1110 LET X(M(I,J))1/8 1120 NEXT J
1130 II+1 IF I76 THEN 1040 1140 GOSUB 1640 1150 I1 1160 IF L(I)1/2 THEN 236
0 1170 IF L(I)1+3/8 THEN 2360 1180 II+1 IF I76 THEN 1160 1190 GOTO 1830 1200
LET Z 1 1210 IF R,63,64 2080 DATA 1,17,33,49,5,21,37,53,9,25,41,57,13,29,45
,61 2090 DATA 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62 2100 DATA 3,19,35,
51,7,23,39,55,11,27,43,59,15,31,47,63 2110 DATA 4,20,36,52,8,24,40,56,12,28,44,
60,16,32,48,64 2120 DATA 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61 2130 DAT
A 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 2140 DATA 3,7,11,15,19,23,27,31
,35,39,43,47,51,55,59,63 2150 DATA 4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,6
4 2160 DATA 1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64 2170 DATA 13,10,7,4,
29,26,23,20,45,42,39,36,61,58,55,52 2180 DATA 1,21,41,61,2,22,42,62,3,23,43,63,
4,24,44,64 2190 DATA 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16 2200 DATA
1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64 2210 DATA 49,34,19,4,53,38,23,8,5
7,42,27,12,61,46,31,16 2220 DATA 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
2230 FOR J1 TO 4 2240 IF X(M(I,J))1/8 THEN 2330 2250 LET X(M(I,J))5 2260 IF
L(I)5 THEN 2290 2270 PRINT "LET'S SEE YOU GET OUT OF THIS MACHINE MOVES TO" 1
PRINT TAB(33)"QUEEN" 2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY
" 3 PRINTPRINTPRINT 10 DIM S(64) 11 FOR I1 TO 64 12 READ S(I) 13 NEXT I 14
DATA 81, 71, 61, 51, 41, 31, 21, 11 15 DATA 92, 82, 72, 62, 52,
42, 32, 22 16 DATA 103, 93, 83, 73, 63, 53, 43, 33 17 DATA 114, 104,
94, 84, 74, 64, 54, 44 18 DATA 125, 115, 105, 95, 85, 75, 65, 55 19
DATA 136, 126, 116, 106, 96, 86, 76, 66 20 DATA 147, 137, 127, 117, 107,
97, 87, 77 21 DATA 158 2280 GOTO 2300 2290 PRINT "YOU FOX. JUST IN THE NICK
OF TIME, MACHINE MOVES TO" 2300 LET MM(I,J) 2310 GOSUB 1570 2320 GOTO 500 2
330 NEXT J 2340 PRINT "MACHINE CONCEDES THIS GAME." 2350 GOTO 1490 2360 LET S
1/8 2370 IF I-INT(I/4)*41 THEN 2400 2380 LET A1 2390 GOTO 2410 2400 LET A2
2410 FOR JA TO 5-A STEP 5-2*A 2420 IF X(M(I,J))S THEN 2450 2430 NEXT J 2440 G
OTO 2000 2450 LET X(M(I,J))5 2460 LET MM(I,J) 2470 PRINT "MACHINE TAKES" 248
0 GOSUB 1570 2490 GOTO 500 2500 FOR I1 TO 6, 148, 138, 128, 118, 108, 98, 88
22 INPUT "DO YOU WANT INSTRUCTIONS"W$ 23 IF W$"NO" THEN 30 24 IF W$"YES" THE
N 28 25 PRINT "PLEASE ANSWER 'YES' OR 'NO'." 26 GOTO 22 28 GOSUB 5000 29 GOT
O 100 30 GOSUB 5160 90 REM ERROR CHECKS 100 PRINT "WHERE WOULD YOU LIKE T
O START" 110 INPUT M1 115 IF M10 THEN 232 120 T1INT(M1/10) 130 U1M1-10*T1 1
40 IF U11 THEN 200 150 IF U1T1 THEN 200 160 PRINT "PLEASE READ THE DIRECTIONS
AGAIN." 170 PRINT "YOU HAVE BEGUN ILLEGALLY." 175 PRINT 180 GOTO 4 2510 IF X
(I)1/8 THEN 2530 2520 LET X(I)0 2530 NEXT I 2540 RETURN 2550 FOR XX1 TO 9PRI
NTNEXTFOR I1 TO 4 2560 FOR J1 TO 4 2562 FOR I11 TO J 2564 PRINT" " 2566 NE
XT I1 2570 FOR K1 TO 4 2600 LET Q16*I+4*J+K-20 2610 IF X(Q)O THEN 2630 2620
PRINT"( ) " 2630 IF X(Q)5 THEN 2650 2640 PRINT"(M) " 2650 IF X(Q)1
THEN 2660 2655 PRINT"(Y) " 2660 IF X(Q)1/8 THEN 2670 2665 PRINT"( )
" 2670 NEXT K 2680 PRINT 2690 PRINT 2700 NEXT J 2710 PRINT 2720 PRIN100
200 GOSUB 2000 210 PRINT "COMPUTER MOVES TO SQUARE"M 215 IF M158 THEN 3400 22
0 PRINT "WHAT IS YOUR MOVE" 230 INPUT M1 231 IF M10 THEN 239 232 PRINT 233 P
RINT "IT LOOKS LIKE I HAVE WON BY FORFEIT." 234 PRINT 235 GOTO 4000 239 IF M1
M THEN 3200 240 T1INT(M1/10) 250 U1M1-10*T1 260 PU1-U 270 IF P0 THEN 300 28
0 LT1-T 290 IF L0 THEN 3200 295 GOTO 200 300 IF T1-T P THEN 320 310 GOTO 200
320 IF T1-T 2*P THEN 3200 330 GOTO 200 1990 REM LOCATE MOVE FOR COMPUTER
2000 IT 2730 NEXT I 2735 REM PRINT CHR$(12) 2740 RETURN 2750 PRINT"INCORRE
CT MOVE, RETYPE IT--" 2760 GOTO 520 2770 END RF M141 THEN 2180 2010 IF M14
4 THEN 2180 2020 IF M173 THEN 2180 2030 IF M175 THEN 2180 2040 IF M1126 THEN
2180 2050 IF M1127 THEN 2180 2060 IF M1158 THEN 3300 2065 C0 2070 FOR K7 TO
1 STEP -1 2080 UU1 2090 TT1+K 2100 GOSUB 3500 2105 IF C1 THEN 2160 2110 UU+
K 2120 GOSUB 3500 2125 IF C1 THEN 2160 2130 TT+K 2140 GOSUB 3500 2145 IF C1
THEN 2160 2150 NEXT K 2155 GOTO 2180 2160 C0 2170 RETURN 2180 GOSUB 3000
2190 RETURN 2990 REM RANDOM MOVE 3000 ZRND(1) 3010 IF Z.60 FOR A0 TO 7 5
180 FOR B1 TO 8 5185 I8*A+B 5190 PRINT S(I) 5200 NEXT B 5210 PRINT 5220 PRI
NT 5230 PRINT 5240 NEXT A 5250 PRINT 5260 RETURN 9999 END THEN 3110 3020
IF Z.3 THEN 3070 3030 UU1 3040 TT1+1 3050 M10*T+U 3060 RETURN 3070 UU1+1
3080 TT1+2 3090 M10*T+U 3100 RETURN 3110 UU1+1 3120 TT1+1 3130 M10*T+U 314
0 RETURN 3190 REM ILLEGAL MOVE MESSAGE 3200 PRINT 3210 PRINT "Y O U C H
E A T . . . TRY AGAIN" 3220 GOTO 230 3290 REM PLAYER WINS 3300 PRINT 3
310 PRINT "C O N G R A T U L A T I O N S . . ." 3320 PRINT 3330 PRINT "YOU HA
VE WON--VERY WELL PLAYED." 3340 PRINT "IT LOOKS LIKE I HAVE MET MY MATCH." 335
0 PRINT "THANKS FOR PLAYING---I CAN'T WIN ALL THE TIME." 3360 PRINT 3370 GOTO
4000 3390 REM COMPUTER WINS 3400 PRINT 3410 PRINT "NICE TRY, BUT IT LOOKS
LIKE I HAVE WON." 3420 PRINT "THANKS FOR PLAYING." 3430 PRINT 3440 GOTO 4000
3490 REM TEST FOR COMPUTER MOVE 3500 M10*T+U 3510 IF M158 THEN 3570 352
0 IF M127 THEN 3570 3530 IF M126 THEN 3570 3540 IF M75 THEN 3570 3550 IF M73
THEN 3570 3560 RETURN 3570 C1 3580 GOTO 3560 3990 REM ANOTHER GAME 4000
PRINT "ANYONE ELSE CARE TO10 PRINT TAB(32)"REVERSE" 20 PRINT TAB(15)"CREATIVE
COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 100 PRINT "REVERSE -- A
GAME OF SKILL" PRINT 130 DIM A(20) 140 REM *** NNUMBER OF NUMBERS 150 N9 160
PRINT "DO YOU WANT THE RULES" 170 INPUT A$ 180 IF A$"NO" THEN 210 190 GOSUB
710 200 REM *** MAKE A RANDOM LIST A(1) TO A(N) 210 A(1)INT((N-1)*RND(1)+2) 2
20 FOR K2 TO N 230 A(K)INT(N*RND(1)+1) 240 FOR J1 TO K-1 250 IF A(K)A(J) THEN
230 260 NEXT JNEXT K 280 REM *** PRINT OR TRY" 4010 INPUT Q$ 4020 PRINT 40
30 IF Q$"YES" THEN 30 4040 IF Q$"NO" THEN 4050 4042 PRINT "PLEASE ANSWER 'YES
' OR 'NO'." 4045 GOTO 4000 4050 PRINTPRINT "OK --- THANKS AGAIN." 4060 STOP
4990 REM DIRECTIONS 5000 PRINT "WE ARE GOING TO PLAY A GAME BASED ON ONE OF
THE CHESS" 5010 PRINT "MOVES. OUR QUEEN WILL BE ABLE TO MOVE ONLY TO THE LEFT
," 5020 PRINT "DOWN, OR DIAGONALLY DOWN AND TO THE LEFT." 5030 PRINT 5040 PRI
NT "THE OBJECT OF THE GAME IS TO PLACE THE QUEEN IN THE LOWER" 5050 PRIIGINAL L
IST AND START GAME 290 PRINT PRINT "HERE WE GO ... THE LIST IS" 310 T0 320 GO
SUB 610 330 PRINT "HOW MANY SHALL I REVERSE" 340 INPUT R 350 IF R0 THEN 520
360 IF RN THEN 390 370 PRINT "OOPS! TOO MANY! I CAN REVERSE AT MOST"NGOTO 330
390 TT+1 400 REM *** REVERSE R NUMBERS AND PRINT NEW LIST 410 FOR K1 TO INT(R/
2) 420 ZA(K) 430 A(K)A(R-K+1) 440 A(R-K+1)Z 450 NEXT K 460 GOSUB 610 470 R
EM *** CHECK FOR A WIN 480 FOR K1 TO N 490 IF A(K)K THEN 330 500 NEXT K 510
PRINT "NT "LEFT HAND SQUARE BY ALTERNATING MOVES BETWEEN YOU AND THE" 5060 PRIN
T "COMPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE WINS." 5070 PRINT 5080 PR
INT "YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES" 5090 PRINT "ON
THE TOP ROW OR RIGHT HAND COLUMN." 5100 PRINT "THAT WILL BE YOUR FIRST MOVE."
5110 PRINT "WE ALTERNATE MOVES." 5120 PRINT "YOU MAY FORFEIT BY TYPING '0' AS
YOUR MOVE." 5130 PRINT "BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE."
5140 PRINT 5150 PRINT 5160 PRINT 517 R YOU WON IT IN"T"MOVES!!!"PRI
NT 520 PRINT 530 PRINT "TRY AGAIN (YES OR NO)" 540 INPUT A$ 550 IF A$"YES" T
HEN 210 560 PRINT PRINT "O.K. HOPE YOU HAD FUN!!"GOTO 999 600 REM *** SUBROUTI
NE TO PRINT LIST 610 PRINTFOR K1 TO NPRINT A(K)NEXT K 650 PRINTPRINTRETURN 70
0 REM *** SUBROUTINE TO PRINT THE RULES 710 PRINTPRINT "THIS IS THE GAME OF 'RE
VERSE'. TO WIN, ALL YOU HAVE" 720 PRINT "TO DO IS ARRANGE A LIST OF NUMBERS (1
THROUGH"N")" 730 PRINT "IN NUMERICAL ORDER FROM LEFT TO RIGHT. T O O D L U C
K ! ! !" 420 PRINTPRINT 430 PRINT"SEC FEET SPEED FUEL PLOT OF D
ISTANCE" 450 PRINT 455 T0H1000V50F150 490 PRINT TTAB(6)HTAB(16)VTAB(26)FTAB(3
5)"I"TAB(H/15)"*" 500 INPUT B 510 IF B0 THEN 650 520 IF B30 THEN B30 530 IF
BF THEN BF 540 V1V-B+5 560 FF-B 570 HH- .5*(V+V1) 580 IF H0 THEN 670 590 TT
+1 600 VV1 610 IF F0 THEN 490 615 IF B0 THEN 640 620 PRINT"**** OUT OF FUEL
****" 640 PRINT TTAB(4)HTAB(12)VTAB(20)FTAB(29)"I"TAB(H/1O MOVE, YOU" 740 PRIN
T "TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO" 750 PRINT "REVERSE. F
OR EXAMPLE, IF THE CURRENT LIST IS" 760 PRINTPRINT "2 3 4 5 1 6 7 8 9" 770 PRI
NTPRINT "AND YOU REVERSE 4, THE RESULT WILL BE" 780 PRINTPRINT "5 4 3 2 1 6 7 8
9" 790 PRINTPRINT "NOW IF YOU REVERSE 5, YOU WIN!" 800 PRINTPRINT "1 2 3 4 5
6 7 8 9"PRINT 810 PRINT "NO DOUBT YOU WILL LIKE THIS GAME, BUT" 820 PRINT "IF
YOU WANT TO QUIT, REVERSE 0 (ZERO)."PRINT RETURN 999 END 2+29)"*" 650 B0 660
GOTO 540 670 PRINT"***** CONTACT *****" 680 HH+ .5*(V1+V) 690 IF B5 THEN 720
700 D(-V+SQR(V*V+H*(10-2*B)))/(5-B) 710 GOTO 730 720 DH/V 730 V1V+(5-B)*D
760 PRINT"TOUCHDOWN AT"T+D"SECONDS." 770 PRINT"LANDING VELOCITY"V1"FEET/SEC."
780 PRINT F"UNITS OF FUEL REMAINING." 790 IF V10 THEN 810 800 PRINT"CONGRATULA
TIONS! A PERFECT LANDING!!" 805 PRINT"YOUR LICENSE WILL BE RENEWED.......LATER.
" 810 IF ABS(V1)2 THEN 840 820 PRINT"***** SORRY, BUT YOU BLEW IT!!!!" 810 PR
INT TAB(30) "ROCKET" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSE
Y" 30 PRINTPRINTPRINT 70 PRINT "LUNAR LANDING SIMULATION" 80 PRINT "----- ---
---- ----------" PRINT 100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)"A$ 110
IF A$"NO" THEN 390 160 PRINT 200 PRINT"YOU ARE LANDING ON THE MOON AND AND HAV
E TAKEN OVER MANUAL" 210 PRINT"CONTROL 1000 FEET ABOVE A GOOD LANDING SPOT. YOU
HAVE A DOWN-" 220 PRINT"WARD VELOCITY OF 50 FEET/SEC. 150 UNITS OF FUEL REMAIN
." 225 PRINT 230 P30 PRINT"APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT O
F KIN." 840 PRINTPRINTPRINT 850 INPUT "ANOTHER MISSION"A$ 860 IF A$"YES" THEN
390 870 PRINT PRINT "CONTROL OUT." PRINT 999 END RINT"HERE ARE THE RULES THA
T GOVERN YOUR APOLLO SPACE-CRAFT" PRINT 240 PRINT"(1) AFTER EACH SECOND THE HEI
GHT, VELOCITY, AND REMAINING FUEL" 250 PRINT" WILL BE REPORTED VIA DIGBY YOU
R ON-BOARD COMPUTER." 260 PRINT"(2) AFTER THE REPORT A '' WILL APPEAR. ENTER TH
E NUMBER" 270 PRINT" OF UNITS OF FUEL YOU WISH TO BURN DURING THE NEXT" 280
PRINT" SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT BY" 290 PRINT" 1
FOOT/SEC." 310 PRINT"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FEET/SEC/SEC"
10 PRINT TAB(21)"GAME OF ROCK, SCISSORS, PAPER" 20 PRINT TAB(15)"CREATIVE COM
PUTING MORRISTOWN, NEW JERSEY" 25 PRINTPRINTPRINT 30 INPUT "HOW MANY GAMES"Q
40 IF Q11 THEN 60 50 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY." G
OTO 30 60 FOR G1 TO Q 70 PRINT PRINT "GAME NUMBER"G 80 XINT(RND(1)*3+1) 90 P
RINT "3ROCK...2SCISSORS...1PAPER" 100 INPUT "1...2...3...WHAT'S YOUR CHOICE"K
110 IF (K-1)*(K-2)*(K-3)0 THEN PRINT "INVALID." GOTO 90 120 PRINT "THIS IS MY C
HOICE..." 130 O320 PRINT" OR 30 UNITS OF FUEL PER SECOND." 330 PRINT"(4) WH
EN YOU CONTACT THE LUNAR SURFACE. YOUR DESCENT ENGINE" 340 PRINT" WILL AUTOM
ATICALLY SHUT DOWN AND YOU WILL BE GIVEN A" 350 PRINT" REPORT OF YOUR LANDIN
G SPEED AND REMAINING FUEL." 360 PRINT"(5) IF YOU RUN OUT OF FUEL THE '' WILL N
O LONGER APPEAR" 370 PRINT" BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE U
NTIL" 380 PRINT" YOU CONTACT THE LUNAR SURFACE."PRINT 390 PRINT"BEGINNING L
ANDING PROCEDURE.........."PRINT 400 PRINT"G !R!!!!!!!!!N X GOTO 140,150,160
140 PRINT "...PAPER" GOTO 170 150 PRINT "...SCISSORS" GOTO 170 160 PRINT "...R
OCK" 170 IF XK THEN 250 180 IF XK THEN 230 190 IF X1 THEN 210 200 PRINT "YOU
WIN!!!"HH+1 GOTO 260 210 IF K3 THEN 200 220 PRINT "WOW! I WIN!!!"CC+1GOTO 26
0 230 IF K1 OR X3 THEN 220 240 GOTO 200 250 PRINT "TIE GAME. NO WINNER." 26
0 NEXT G 270 PRINT PRINT "HERE IS THE FINAL GAME SCORE" 280 PRINT "I HAVE WON"
C"GAME(S)." 290 PRINT "YOU HAVE WON"H"GAME(S)." 300 PRINT "AND"QUMBERS 1 TO 36
SIGNIFY A STRAIGHT BET" 1310 PRINT "ON THAT NUMBER." 1320 PRINT "THESE PAY OF
F 351" 1330 PRINT 1340 PRINT "THE 21 BETS ARE" 1350 PRINT " 37) 1-12 40)
FIRST COLUMN" 1360 PRINT " 38) 13-24 41) SECOND COLUMN" 1370 PRINT " 39) 2
5-36 42) THIRD COLUMN" 1380 PRINT 1390 PRINT "THE EVEN MONEY BETS ARE" 14
00 PRINT " 43) 1-18 46) ODD" 1410 PRINT " 44) 19-36 47) RED" 1420 PRINT
" 45) EVEN 48) BLACK" 1430 PRINT 1440 PRINT " 49)0 AND 50)00 PAY OFF 351
" 1450 PRINT-(C+H)"GAME(S) ENDED IN A TIE." 310 PRINT PRINT "THANKS FOR PLAYIN
G!!" 320 END " NOTE 0 AND 00 DO NOT COUNT UNDER ANY" 1460 PRINT " BETS
EXCEPT THEIR OWN." 1470 PRINT 1480 PRINT "WHEN I ASK FOR EACH BET, TYPE THE N
UMBER" 1490 PRINT "AND THE AMOUNT, SEPARATED BY A COMMA." 1500 PRINT "FOR EXAM
PLE TO BET $500 ON BLACK, TYPE 48,500" 1510 PRINT "WHEN I ASK FOR A BET." 1520
PRINT 1530 PRINT "THE MINIMUM BET IS $5, THE MAXIMUM IS $500." 1540 PRINT
1550 REM-PROGRAM BEGINS HERE 1560 REM-TYPE OF BET(NUMBER) ODDS 1570 REM DON'T
NEED TO DIMENSION STRINGS 1580 DIM B(100),C(100),T(100),X(38) 1590 DIM A(50)
1600 FOR I1 TO 38 X(I)0 NEXT I REM MAT XZER 1610 P1000 1620 D100000. 1630 P
RINT "HOW MANY BETS" 1640 INPUT Y 1650 IF Y1 OR YINT(Y) THEN 1630 1660 FOR I1
TO 50 A(I)0 NEXT I REM MAT AZER 1670 FOR C1 TO Y 1680 PRINT "NUMBER"C 1690
INPUT X,Z 1700 B(C)Z 1710 T(C)X 1720 IF X1 OR X50 OR XINT(X) THEN 1680 1730
IF Z1 OR ZINT(Z) THEN 1680 1740 IF Z5 OR Z500 THEN 1680 1750 IF A(X)0 THEN 178
0 1760 PRINT "YOU MADE THAT BET ONCE ALREAD10 PRINT TAB(32)"ROULETTE" 20 PRINT
TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 40 PRI
NT "ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -" 50 INPUT D$,E$ 1000 R
EM-ROULETTE 1010 REM-DAVID JOSLIN 1020 PRINT "WELCOME TO THE ROULETTE TABLE"
1030 PRINT 1040 PRINT "DO YOU WANT INSTRUCTIONS" 1050 INPUT Y$ 1060 IF LEFT$
(Y$,1)"N" THEN 1550 1070 PRINT 1080 PRINT "THIS IS THE BETTING LAYOUT" 1090 P
RINT " (*RED)" 1100 PRINT 1110 PRINT " 1* 2 3*" 1120 PRIY,DUM-DUM"
1770 GOTO 1680 1780 A(X)1 1790 NEXT C 1800 PRINT "SPINNING" 1810 PRINT 182
0 PRINT 1830 SINT(RND(1)*100) 1840 IF S0 OR S38 THEN 1830 1850 X(S)X(S)+1 1
860 IF S37 THEN 1920 1870 IF S37 THEN 1900 1880 PRINT "00" 1890 GOTO 2020 19
00 PRINT "0" 1910 GOTO 2020 1920 RESTORE 1930 FOR I11 TO 18 1940 READ R 19
50 IF RS THEN 2000 1960 NEXT I1 1970 A$"BLACK" 1980 PRINT SA$ 1990 GOTO 2020
2000 A$"RED" 2010 GOTO 1980 2020 PRINT 2030 FOR C1 TO Y 2040 IF T(C)37 THE
N 2710NT " 4 5* 6 " 1130 PRINT " 7* 8 9*" 1140 PRINT "10 11
12*" 1150 PRINT "---------------" 1160 PRINT "13 14* 15 " 1170 PRINT "
16* 17 18*" 1180 PRINT "19* 20 21*" 1190 PRINT "22 23* 24 " 12
00 PRINT "---------------" 1210 PRINT "25* 26 27*" 1220 PRINT "28 29
30*" 1230 PRINT "31 32* 33 " 1240 PRINT "34* 35 36*" 1250 PRINT "
---------------" 1260 PRINT " 00 0 " 1270 PRINT 1280 PRINT "TYPES OF
BETS" 1290 PRINT 1300 PRINT "THE N "R""""""""" 2050 ON T(C)-36 GOTO 2090,2
190,2220,2250,2300,2350,2400,2470,2500 2060 ON T(C)-45 GOTO 2530,2560,2630 207
0 GOTO 2710 2080 STOP 2090 REM 1-12(37) 21 2100 IF S 12 THEN 2150 2110 PRI
NT "YOU LOSE"B(C)"DOLLARS ON BET"C 2120 DD+B(C) 2130 PP-B(C) 2140 GOTO 2180
2150 PRINT "YOU WIN"B(C)*2"DOLLARS ON BET"C 2160 DD-B(C)*2 2170 PP+B(C)*2 218
0 GOTO 2810 2190 REM 13-24(38) 21 2200 IF S12 AND S25 THEN 2150 2210 GOTO 21
10 2220 REM 25-36(39) 21 2230 IF S24 AND S37 THEN 2150 2240 G00 PRINT 3110
PRINT TAB(10),"THE MEMORY BANK OF NEW YORK" 3120 PRINT 3130 PRINT TAB(40),"T
HE COMPUTER" 3140 PRINT TAB(40)"----------X-----" 3150 PRINT 3160 FOR I1 TO
62 PRINT "-" NEXT I 3170 PRINT "COME BACK SOON!" 3180 GOTO 3210 3190 PRINT "T
HANKS FOR YOUR MONEY." 3200 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHE
EL" 3210 PRINT 3220 GOTO 3420 3230 REM 3240 REM THIS ROUTINE RETURNS TH
E CURRENT DATE IN M$ 3250 REM IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS
3260 REM OTO 2110 2250 REM FIRST COLUMN(40) 21 2260 FOR I1 TO 34 STEP 3
2270 IF SI THEN 2150 2280 NEXT I 2290 GOTO 2110 2300 REM SECOND COLUMN(41) 2
1 2310 FOR I2 TO 35 STEP 3 2320 IF SI THEN 2150 2330 NEXT I 2340 GOTO 2110
2350 REM THIRD COLUMN(42) 21 2360 FOR I3 TO 36 STEP 3 2370 IF SI THEN 2150 2
380 NEXT I 2390 GOTO 2110 2400 REM 1-18(43) 11 2410 IF S19 THEN 2430 2420 G
OTO 2110 2430 PRINT "YOU WIN"B(C)"DOLLARS ON BET"C 2440 DD-B(C) 2450 PP+B(C)
2460 GOTO 2810 2470 REM 19THEY CAN BE USED HERE. HOWEVER IN THIS 3270 REM
PROGRAM, WE JUST INPUT THE DATE AT THE START 3280 REM THE GAME 3290 REM
3300 REM THE DATE IS RETURNED IN VARIABLE M$ 3310 M$D$+", "+E$ 3320 RETU
RN 3420 END -36(44) 11 2480 IF S37 AND S18 THEN 2430 2490 GOTO 2110 2500 RE
M EVEN(45) 11 2510 IF S/2INT(S/2) AND S37 THEN 2430 2520 GOTO 2110 2530 REM
ODD(46) 11 2540 IF S/2INT(S/2) AND S37 THEN 2430 2550 GOTO 2110 2560 REM RE
D(47) 11 2570 RESTORE 2580 FOR I1 TO 18 2590 READ R 2600 IF SR THEN 2430 2
610 NEXT I 2620 GOTO 2110 2630 REM BLACK(48) 11 2640 RESTORE 2650 FOR I1 T
O 18 2660 READ R 2670 IF SR THEN 2110 2680 NEXT I 2690 IF S36 THEN 2110 270
0 GOTO 2430 2710 REM--1TO36,0,00(1-36,49,50)351 2720 IF T(C)49 THEN 2760 2730
IF T(C)49 AND S37 THEN 2780 2740 IF T(C)50 AND S38 THEN 2780 2750 GOTO 2110
2760 IF T(C)S THEN 2780 2770 GOTO 2110 2780 PRINT "YOU WIN"B(C)*35"DOLLARS ON
BET"C 2790 DD-B(C)*35 2800 PP+B(C)*35 2810 NEXT C 2820 PRINT 2830 PRINT "T
OTALS","ME","YOU" 2840 PRINT " ",D,P 2850 IF P0 THEN 2880 2860 PRINT "OOPS! Y
OU JUST SPENT YOUR LAST DOLLAR!" 2870 GOTO 3190 2880 IF D0 THEN 2920 2890 PRI
NT "YOU BROKE THE HOUSE!" 2900 P101000. 2911 PRINT TAB(28)"RUSSIAN ROULETTE"
2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT
5 PRINT "THIS IS A GAME OF RUSSIAN ROULETTE." 10 PRINTPRINT "HERE IS A REVOLVER
." 20 PRINT "TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER." 22 PRINT "TYPE '2' TO
GIVE UP." 23 PRINT "GO" 25 N0 30 INPUT I 31 IF I2 THEN 35 32 PRINT " C
HICKEN!!!!!" 33 GOTO 72 35 NN+1 40 IF RND(1).833333 THEN 70 45 IF N10 THEN 8
0 50 PRINT "- CLICK -" 60 PRINT GOTO 30 70 PRINT " 0 GOTO 2960 2920 PRINT "A
GAIN" 2930 INPUT Y$ 2940 IF LEFT$(Y$,1)"Y" THEN 1630 2950 DATA 1,3,5,7,9,12,1
4,16,18,19,21,23,25,27,30,32,34,36 2960 IF P1 THEN 3190 2970 PRINT "TO WHOM SH
ALL I MAKE THE CHECK" 2980 INPUT B$ 2990 PRINT 3000 FOR I1 TO 72 PRINT "-" N
EXT I REM PRINT 72 DASHES 3010 PRINT TAB(50)"CHECK NO. "INT(RND(1)*100) 3020 P
RINT 3030 GOSUB 3230 3040 PRINT TAB(40)M$ 3050 PRINT 3060 PRINT 3070 PRI
NT "PAY TO THE ORDER OF-----"B$"-----$ " 3080 PRINT P 3090 PRINT 31 #R#####
#### BANG!!!!! YOU'RE DEAD!" 71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RE
LATIVES." 72 PRINTPRINTPRINT 75 PRINT "...NEXT VICTIM..."GOTO 20 80 PRINT "YO
U WIN!!!!!" 85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT." 90 GOTO 10 99 EN
D 710 1890 C0 1900 PRINT "DO YOU WANT TO SEE MY SHOTS" 1910 INPUT K$ 1920 P
RINT 1930 IF J$"YES" THEN 2620 1940 REM*******************START 1950 IF J$"YE
S" THEN 1990 1960 CC+1 1970 PRINT 1980 PRINT "TURN"C 1990 A0 2000 FOR W.5 T
O 3 STEP .5 2010 FOR X1 TO 10 2020 FOR Y1 TO 10 2030 IF B(X,Y)W THEN 2070 20
40 NEXT Y 2050 NEXT X 2060 GOTO 2080 2070 AA+INT(W+.5) 2080 NEXT W 2090 FOR
W1 TO 7 2100 C(W)0 2110 D(W)0 2120 F(W)0 2130 G(W)0 2140 NEXT W 2150 P30
2160 FOR X1 T1000 PRINT TAB(33)"SALVO" 1010 PRINT TAB(15)"CREATIVE COMPUTING
MORRISTOWN, NEW JERSEY" 1020 PRINTPRINTPRINT 1030 REM 1040 DIM A(10,10),B(10,
10),C(7),D(7),E(12),F(12),G(12),H(12),K(10,10) 1050 Z80 1060 FOR W1 TO 12 107
0 E(W)-1 1080 H(W)-1 1090 NEXT W 1100 FOR X1 TO 10 1110 FOR Y1 TO 10 1120 B
(X,Y)0 1130 NEXT Y 1140 NEXT X 1150 FOR X1 TO 12 1160 F(X)0 1170 G(X)0 118
0 NEXT X 1190 FOR X1 TO 10 1200 FOR Y1 TO 10 1210 A(X,Y)0 1220 NEXT Y 1230
NEXT X 1240 FOR K4 TO 1 STEO 10 2170 FOR Y1 TO 10 2180 IF A(X,Y)10 THEN 2200
2190 P3P3+1 2200 NEXT Y 2210 NEXT X 2220 PRINT "YOU HAVE"A"SHOTS." 2230 IF
P3A THEN 2260 2240 PRINT "YOU HAVE MORE SHOTS THAN THERE ARE BLANK SQUARES." 2
250 GOTO 2890 2260 IF A0 THEN 2290 2270 PRINT "I HAVE WON." 2280 STOP 2290 F
OR W1 TO A 2300 INPUT X,Y 2310 IF XINT(X) THEN 2370 2320 IF X10 THEN 2370 23
30 IF X1 THEN 2370 2340 IF YINT(Y) THEN 2370 2350 IF Y10 THEN 2370 2360 IF Y1
THEN 2390 2370 PRINT "ILLEGAL, ENTER AGP -1 1250 U60 1260 GOSUB 2910 1270 D
EF FNA(K)(5-K)*3-2*INT(K/4)+SGN(K-1)-1 1280 DEF FNB(K)K+INT(K/4)-SGN(K-1) 1290
IF V+V2+V*V20 THEN 1260 1300 IF Y+V*FNB(K)10 THEN 1260 1310 IF Y+V*FNB(K)1 TH
EN 1260 1320 IF X+V2*FNB(K)10 THEN 1260 1330 IF X+V2*FNB(K)1 THEN 1260 1340 U
6U6+1 1350 IF U625 THEN 1190 1360 FOR Z0 TO FNB(K) 1370 F(Z+FNA(K))X+V2*Z 13
80 G(Z+FNA(K))Y+V*Z 1390 NEXT Z 1400 U8FNA(K) 1405 IF U8U8+FNB(K) THEN 1460
1410 FOR Z2 U8 TO U8+FNB(K) 1415 IF U82 THEN 1450 1420AIN." 2380 GOTO 2300 2
390 IF A(X,Y)10 THEN 2440 2400 C(W)X 2410 D(W)Y 2420 NEXT W 2430 GOTO 2460
2440 PRINT "YOU SHOT THERE BEFORE ON TURN"A(X,Y)-10 2450 GOTO 2300 2460 FOR W1
TO A 2470 IF A(C(W),D(W))3 THEN 2540 2480 IF A(C(W),D(W))2 THEN 2560 2490 IF
A(C(W),D(W))1 THEN 2580 2500 IF A(C(W),D(W)).5 THEN 2600 2510 A(C(W),D(W))10+
C 2520 NEXT W 2530 GOTO 2620 2540 PRINT "YOU HIT MY BATTLESHIP." 2550 GOTO 2
510 2560 PRINT "YOU HIT MY CRUISER." 2570 GOTO 2510 2580 PRINT "YOU HIT MY F
OR Z31 TO U8-1 1430 IF SQR((F(Z3)-F(Z2))2 + (G(Z3)-G(Z2))2) 3.59 THEN 1260 14
40 NEXT Z3 1450 NEXT Z2 1460 FOR Z0 TO FNB(K) 1470 A(F(Z+U8),G(Z+U8)).5+SGN(K
-1)*(K-1.5) 1480 NEXT Z 1490 NEXT K 1500 PRINT "ENTER COORDINATES FOR..." 15
10 PRINT "BATTLESHIP" 1520 FOR X1 TO 5 1530 INPUT Y,Z 1540 B(Y,Z)3 1550 NEXT
X 1560 PRINT "CRUISER" 1570 FOR X1 TO 3 1580 INPUT Y,Z 1590 B(Y,Z)2 1600 N
EXT X 1610 PRINT "DESTROYERA" 1620 FOR X1 TO 2 1630 INPUT Y,Z 1640 B(Y,Z)1
1650 NEXT X 166DESTROYERA." 2590 GOTO 2510 2600 PRINT "YOU HIT MY DESTROYERB.
" 2610 GOTO 2510 2620 A0 2630 IF J$"YES" THEN 2670 2640 CC+1 2650 PRINT 26
60 PRINT "TURN"C 2670 A0 2680 FOR W.5 TO 3 STEP .5 2690 FOR X1 TO 10 2700 FO
R Y1 TO 10 2710 IF A(X,Y)W THEN 2750 2720 NEXT Y 2730 NEXT X 2740 GOTO 2760
2750 AA+INT(W+.5) 2760 NEXT W 2770 P30 2780 FOR X1 TO 10 2790 FOR Y1 TO 10
2800 IF A(X,Y)10 THEN 2820 2810 P3P3+1 2820 NEXT Y 2830 NEXT X 2840 PRINT "
I HAVE"A"SHOTS." 2850 IF P0 PRINT "DESTROYERB" 1670 FOR X1 TO 2 1680 INPUT Y,
Z 1690 B(Y,Z).5 1700 NEXT X 1710 PRINT "DO YOU WANT TO START" 1720 INPUT J$
1730 IF J$"WHERE ARE YOUR SHIPS" THEN 1890 1740 PRINT "BATTLESHIP" 1750 FOR Z
1 TO 5 1760 PRINT F(Z)G(Z) 1770 NEXT Z 1780 PRINT "CRUISER" 1790 PRINT F(6)G
(6) 1800 PRINT F(7)G(7) 1810 PRINT F(8)G(8) 1820 PRINT "DESTROYERA" 1830 PRI
NT F(9)G(9) 1840 PRINT F(10)G(10) 1850 PRINT "DESTROYERB" 1860 PRINT F(11)G(1
1) 1870 PRINT F(12)G(12) 1880 GOTO 1 $R$$$$$$$$$3A THEN 2880 2860 PRINT "I H
AVE MORE SHOTS THAN BLANK SQUARES." 2870 GOTO 2270 2880 IF A0 THEN 2960 2890
PRINT "YOU HAVE WON." 2900 STOP 2910 XINT(RND(1)*10+1) 2920 YINT(RND(1)*10+1)
2930 VINT(3*RND(1)-1) 2940 V2INT(3*RND(1)-1) 2950 RETURN 2960 FOR W1 TO 12
2970 IF H(W)0 THEN 3800 2980 NEXT W 2990 REM*******************RANDOM 3000 W
0 3010 R30 3020 GOSUB 2910 3030 RESTORE 3040 R20 3050 R3R3+1 3060 IF R3100
THEN 3010 3070 IF X10 THEN 3110 3080 IF X0 THEN 3120 3090 X1+I 3990 NEXT M
4000 NEXT S 4010 NEXT R 4020 NEXT U 4030 FOR R1 TO A 4040 F(R)R 4050 G(R)R
4060 NEXT R 4070 FOR R1 TO 10 4080 FOR S1 TO 10 4090 Q91 4100 FOR M1 TO A
4110 IF K(F(M),G(M))K(F(Q9),G(Q9)) THEN 4130 4120 Q9M 4130 NEXT M 4131 IF RA
THEN 4140 4132 IF RS THEN 4210 4140 IF K(R,S)K(F(Q9),G(Q9)) THEN 4210 4150 F
OR M1 TO A 4160 IF F(M)R THEN 4190 4170 IF G(M)S THEN 4210 4180 NEXT M 4190
F(Q9)R 4200 G(Q9)S 4210 NEXT S 4220 NEXT R 4230 GOTO 3380 4240 END NT(RND(
1)*2.5) 3100 GOTO 3120 3110 X10-INT(RND(1)*2.5) 3120 IF Y10 THEN 3160 3130 I
F Y0 THEN 3270 3140 Y1+INT(RND(1)*2.5) 3150 GOTO 3270 3160 Y10-INT(RND(1)*2.5
) 3170 GOTO 3270 3180 F(W)X 3190 G(W)Y 3200 IF WA THEN 3380 3210 IF R26 THE
N 3030 3220 READ X1,Y1 3230 R2R2+1 3240 DATA 1,1,-1,1,1,-3,1,1,0,2,-1,1 3250
XX+X1 3260 YY+Y1 3270 IF X10 THEN 3210 3280 IF X1 THEN 3210 3290 IF Y10 THE
N 3210 3300 IF Y1 THEN 3210 3310 IF B(X,Y)10 THEN 3210 3320 FOR Q91 TO W 333
0 IF F(10 PRINT TAB(30)"SINE WAVE" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRIST
OWN, NEW JERSEY" 30 PRINT PRINT PRINT PRINT PRINT 40 REMARKABLE PROGRAM BY DAV
ID AHL 50 B0 100 REM START LONG LOOP 110 FOR T0 TO 40 STEP .25 120 AINT(26+
25*SIN(T)) 130 PRINT TAB(A) 140 IF B1 THEN 180 150 PRINT "CREATIVE" 160 B1
170 GOTO 200 180 PRINT "COMPUTING" 190 B0 200 NEXT T 999 END Q9)X THEN 3350
3340 IF G(Q9)Y THEN 3210 3350 NEXT Q9 3360 WW+1 3370 GOTO 3180 3380 IF K$"
YES" THEN 3420 3390 FOR Z51 TO A 3400 PRINT F(Z5)G(Z5) 3410 NEXT Z5 3420 FOR
W1 TO A 3430 IF B(F(W),G(W))3 THEN 3500 3440 IF B(F(W),G(W))2 THEN 3520 3450
IF B(F(W),G(W))1 THEN 3560 3460 IF B(F(W),G(W)).5 THEN 3540 3470 B(F(W),G(W))
10+C 3480 NEXT W 3490 GOTO 1950 3500 PRINT "I HIT YOUR BATTLESHIP" 3510 GOTO
3570 3520 PRINT "I HIT YOUR CRUISER" 3530 GOTO 3570 3540 PRINT "I HIT YOUR D
ESTROYERB" 3550 GOTO 3570 3560 PRINT "I HIT YOUR DESTROYERA" 3570 FOR Q1 TO 1
2 3580 IF E(Q)-1 THEN 3730 3590 E(Q)10+C 3600 H(Q)B(F(W),G(W)) 3610 M30 362
0 FOR M21 TO 12 3630 IF H(M2)H(Q) THEN 3650 3640 M3M3+1 3650 NEXT M2 3660 IF
M3INT(H(Q)+.5)+1+INT(INT(H(Q)+.5)/3) THEN 3470 3670 FOR M21 TO 12 3680 IF H(M
2)H(Q) THEN 3710 3690 E(M2)-1 3700 H(M2)-1 3710 NEXT M2 3720 GOTO 3470 3730
NEXT Q 3740 PRINT "PROGRAM ABORT" 3750 FOR Q1 TO 12 3760 PRINT "E("Q") "E(Q)
3770 PR10 PRINT TAB(33)"SLALOM" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTO
WN, NEW JERSEY" 30 PRINTPRINTPRINT 310 PRINT "HOW MANY GATES DOES THIS COURSE
HAVE (1 TO 25)" 320 INPUT V 330 IF V25 THEN 360 340 IF V1 THEN 390 350 GOTO
1440 360 PRINT "25 IS THE LIMIT." 370 LET V25 380 GOTO 1440 390 PRINT "TRY A
GAIN," 400 GOTO 310 410 PRINT "RATE YOURSELF AS A SKIER, (1WORST, 3BEST)" 420
INPUT A 430 IF A1 THEN 460 440 IF A3 THEN 460 450 GOTO 480 460 PRINT "THE B
OUNDS ARE 1-3" 470 GOTO 410INT "H("Q") "H(Q) 3780 NEXT Q 3790 STOP 3800 REM*
***********************USINGEARRAY 3810 FOR R1 TO 10 3820 FOR S1 TO 10 3830 K
(R,S)0 3840 NEXT S 3850 NEXT R 3860 FOR U1 TO 12 3870 IF E(U)10 THEN 4020 3
880 FOR R1 TO 10 3890 FOR S1 TO 10 3900 IF B(R,S)10 THEN 3930 3910 K(R,S)-100
00000 3920 GOTO 4000 3930 FOR MSGN(1-R) TO SGN(10-R) 3940 FOR NSGN(1-S) TO SG
N(10-S) 3950 IF N+M+N*M0 THEN 3980 3960 IF B(R+M,S+N)E(U) THEN 3980 3970 K(R,
S)K(R,S)+E(U)-S*INT(H(U)+.5) 3980 NEXT N %R%%%%%%%%% 480 PRINT"THE STARTER CO
UNTS DOWN...5...4...3...2...1...GO!" 490 REM 500 LET T0 510 LET SINT(RND(1)*(
18-9)+9) 520 PRINT 525 PRINT "YOU'RE OFF!" 530 FOR O1 TO V 540 READ Q 55
0 PRINT 555 PRINT "HERE COMES GATE #"STR$(O)"" 560 PRINT S"M.P.H." 5
70 LET S1S 580 PRINT "OPTION" 590 INPUT O1 600 IF O10 THEN 970 6
10 IF O18 THEN 1420 620 IF O11 THEN 1420 630 GOSUB 990 640 IF S7 T
HEN 1390 650 LET TT+(Q-S+1) 660 IF SQ THEN 1630 670 NEXT O 660 PRINT "
AN OFFICIAL CAUGHT YOU!" 1270 PRINT "YOU TOOK"(T+RND(1))"SECONDS." 1280 GOTO 7
40 1290 IF RND(1)((S-Q)*.1)+.2 THEN 1320 1300 PRINT "YOU WENT OVER THE NAXIMUM
SPEED AND MADE IT!" 1310 RETURN 1320 PRINT "YOU WENT OVER THE MAXIMUM SPEED A
ND " 1330 IF RND(1).5 THEN 1370 1340 PRINT "WIPED OUT!" 1350 PRINT "YOU TOOK"
(T+RND(1))"SECONDS" 1360 GOTO 740 1370 PRINT "SNAGGED A FLAG!" 1380 GOTO 1350
1390 PRINT "LET'S BE REALISTIC, OK LET'S GO BACK AND TRY AGAIN..." 1400 LET
SS1 1410 GOT80 PRINTPRINT "YOU TOOK"(T+RND(1))"SECONDS." 690 LET MT 700 LET M
M/V 710 IF M1.5-(A*.1) THEN 1650 720 IF M2.9-(A*.1) THEN 1680 730 IF M4.4-(A*
.01) THEN 1710 740 PRINTPRINT "DO YOU WANT TO RACE AGAIN" 750 INPUT B$ 760 RE
M 770 IF B$"NO" THEN 1740 780 IF B$"YES" THEN 480 790 PRINT "PLEASE TYPE 'YES
' OR 'NO'" 800 GOTO 740 810 STOP 820 PRINT 825 PRINT "*** SLALOM THIS IS THE
1976 WINTER OLYMPIC GIANT SLALOM. YOU ARE" 830 PRINT " THE AMERICA
N TEAM'S ONLY HOPE OF A GOLD MEDO 550 1420 PRINT "WHAT" 1430 GOTO 580 1440 PR
INT 1445 PRINT "TYPE "CHR$(34)"INS"CHR$(34)" FOR INSTRUCTIONS" 1450 PRINT "TYP
E "CHR$(34)"MAX"CHR$(34)" FOR APPROXIMATE MAXIMUM SPEEDS" 1460 PRINT "TYPE "CHR
$(34)"RUN"CHR$(34)" FOR THE BEGINNING OF THE RACE" 1470 PRINT "COMMAND--" 1480
INPUT A$ 1490 REM 1500 IF A$"INS" THEN 820 1510 IF A$"MAX" THEN 1550 1520 I
F A$"RUN" THEN 410 1530 PRINT CHR$(34)A$CHR$(34)" IS AN ILLEGAL COMMAND--RETRY"
1540 GOTO 1480 1550 PRINT "GATE MAX" 15AL." 840 PRINT 845 PRINT " 0 --
TYPE THIS IS YOU WANT TO SEE HOW LONG YOU'VE TAKEN." 850 PRINT " 1 -- TYPE
THIS IF YOU WANT TO SPEED UP A LOT." 860 PRINT " 2 -- TYPE THIS IF YOU WAN
T TO SPEED UP A LITTLE." 870 PRINT " 3 -- TYPE THIS IF YOU WANT TO SPEED UP
A TEENSY." 880 PRINT " 4 -- TYPE THIS IF YOU WANT TO KEEP GOING THE SAME S
PEED." 890 PRINT " 5 -- TYPE THIS IF YOU WANT TO CHECK A TEENSY." 900 PRIN
T " 6 -- TYPE THIS IF YOU WANT TO CHECK A LITTLE." 910 PRINT " 7 -60 PR
INT " # M.P.H." 1570 PRINT"----------" 1580 FOR B1 TO V 1590 READ Q 1600
PRINT B" "Q 1610 NEXT B 1620 GOTO 1470 1630 LET TT+.5 1640 GOTO 670 16
50 PRINT "YOU WON A GOLD MEDAL!" 1660 LET G(1)G(1)+1 1670 GOTO 1730 1680 PRIN
T "YOU WON A SILVER MEDAL" 1690 LET S(1)S(1)+1 1700 GOTO 1730 1710 PRINT "YOU
WON A BRONZE MEDAL" 1720 LET B(1)B(1)+1 1730 GOTO 740 1740 PRINT "THANKS FOR
THE RACE" 1750 IF G(1)1 THEN 1770 1760 PRINT "GOLD MEDALS"G(1) 1770 IF S(1)1
THEN 1790 1780- TYPE THIS IF YOU WANT TO CHECK A LOT." 920 PRINT " 8 -- T
YPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE." 930 PRINT 935 PRINT " T
HE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS" 940 PRINT 945 PRINT "
OPTION" 950 PRINT 955 PRINT " GOOD LUCK!" 957 PRINT 960 GOTO
1470 970 PRINT "YOU'VE TAKEN"(T+RND(1))"SECONDS." 980 GOTO 580 990 ON O1 GOTO
1130,1010,1170,1080,1190,1100,1150,1210 1000 STOP 1010 LET SS+INT(RND(1)*(5-3
)+3) 1020 PRINT S"M.P.H." 1030 IF SQ TH PRINT "SILVER MEDALS"S(1) 1790 IF B(1
)1 THEN 1830 1800 PRINT "BRONZE MEDALS"B(1) 1810 DATA 14,18,26,29,18,25,28,32,
29,20,29,29,25,21,26,29,20,21,20 1820 DATA 18,26,25,33,31,22 1830 END EN 1290
1040 IF SQ-1 THEN 1060 1050 RETURN 1060 PRINT "CLOSE ONE!" 1070 RETURN 108
0 PRINT S"M.P.H." 1090 GOTO 1030 1100 LET SS-INT(RND(1)*(5-3)+3) 1110 PRINT S
"M.P.H." 1120 GOTO 1030 1130 LET SS+INT(RND(1)*(10-5)+5) 1140 GOTO 1080 1150
LET SS-INT(RND(1)*(10-5)+5) 1160 GOTO 1110 1170 LET SS+INT(RND(1)*(4-1)+1) 1
180 GOTO 1110 1190 LET SS-INT(RND(1)*(4-1)+1) 1200 GOTO 1110 1210 PRINT "***C
HEAT" 1220 IF RND(1).7 THEN 1260 1230 PRINT "YOU MADE IT!" 1240 LET TT+1.5 1
250 RETURN 12 &R&&&&&&&&&1 PRINT TAB(33)"TRAIN" 2 PRINT TAB(15)"CREATIVE COMP
UTING MORRISTOWN, NEW JERSEY" 3 PRINT PRINT PRINT 4 PRINT "TIME - SPEED DISTA
NCE EXERCISE" PRINT 10 CINT(25*RND(1))+40 15 DINT(15*RND(1))+5 20 TINT(19*RND
(1))+20 25 PRINT " A CAR TRAVELING"C"MPH CAN MAKE A CERTAIN TRIP IN" 30 PRINT
D"HOURS LESS THAN A TRAIN TRAVELING AT"T"MPH." 35 PRINT "HOW LONG DOES THE TRIP
TAKE BY CAR" 40 INPUT A 45 VD*T/(C-T) 50 EINT(ABS((V-A)*100/A)+.5) 55 IF E5
THEN 70 60 PRINT "GOOD! ANSWER WITHIN"E"PERCENT." 65 GOTO 80 70 PRINT "SORRY
. YOU WERE OFF BY"E"PERCENT." 80 PRINT "CORRECT ANSWER IS"V"HOURS." 90 PRINT
95 PRINT "ANOTHER PROBLEM (YES OR NO)" 100 INPUT A$ 105 PRINT 110 IF A$"YES"
THEN 10 999 END 'R'''''''''Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan