BASIC Computer Games - 101 Great Games To Play On Your Home Computer (UK) (Face 2) (2018) [COMPILATION].dsk
Size : 512 (Real : 512)
000000: 00 53 4C 4F 54 53 20 20 20 42 41 53 00 00 00 18 .SLOTS BAS....
000010: 02 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 53 50 4C 41 54 20 20 20 42 41 53 00 00 00 2A .SPLAT BAS...*
000030: 05 06 07 08 09 0A 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 53 54 41 52 53 20 20 20 42 41 53 00 00 00 0D .STARS BAS....
000050: 0B 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 53 54 4F 43 4B 4D 41 52 42 41 53 00 00 00 3B .STOCKMARBAS...;
000070: 0D 0E 0F 10 11 12 13 14 00 00 00 00 00 00 00 00 ................
000080: 00 53 55 49 54 45 20 20 20 42 41 53 00 00 00 14 .SUITE BAS....
000090: 15 16 17 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 54 41 52 47 45 54 20 20 42 41 53 00 00 00 14 .TARGET BAS....
0000B0: 18 19 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 54 45 53 54 20 20 20 20 42 41 53 00 00 00 39 .TEST BAS...9
0000D0: 1B 1C 1D 1E 1F 20 21 22 00 00 00 00 00 00 00 00 ..... !"........
0000E0: 00 53 59 4E 4F 4E 59 4D 20 42 41 53 00 00 00 10 .SYNONYM BAS....
0000F0: 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,-..............
000100: 00 4B 49 4E 45 4D 41 20 20 42 41 53 00 00 00 07 .KINEMA BAS....
000110: 2E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 4B 49 4E 47 20 20 20 20 42 41 53 00 00 00 46 .KING BAS...F
000130: 2F 30 31 32 33 34 35 36 37 00 00 00 00 00 00 00 /01234567.......
000140: 00 4C 45 4D 20 20 20 20 20 42 41 53 00 00 00 33 .LEM BAS...3
000150: 38 39 3A 3B 3C 3D 3E 00 00 00 00 00 00 00 00 00 89:;<=>.........
000160: 00 4C 45 54 54 45 52 20 20 42 41 53 00 00 00 08 .LETTER BAS....
000170: 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ?...............
000180: 00 4C 49 46 45 20 20 20 20 42 41 53 00 00 00 0D .LIFE BAS....
000190: 40 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @A..............
0001A0: 00 4C 49 46 45 46 4F 52 54 42 41 53 00 00 00 12 .LIFEFORTBAS....
0001B0: 42 43 44 00 00 00 00 00 00 00 00 00 00 00 00 00 BCD.............
0001C0: 00 4C 49 54 51 55 49 5A 20 42 41 53 00 00 00 0F .LITQUIZ BAS....
0001D0: 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 EF..............
0001E0: 00 4C 4F 56 45 20 20 20 20 42 41 53 00 00 00 0D .LOVE BAS....
0001F0: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 GH..............
Size : 512 (Real : 512)
000000: 49 4E 54 28 4D 29 0D 0A 32 31 30 20 47 4F 53 55 INT(M)..210 GOSU
000010: 42 20 31 32 37 30 20 0D 0A 32 32 30 20 50 52 49 B 1270 ..220 PRI
000020: 4E 54 0D 0A 32 33 30 20 4C 45 54 20 58 3D 49 4E NT..230 LET X=IN
000030: 54 28 36 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 32 T(6*RND(1)+1)..2
000040: 34 30 20 4C 45 54 20 59 3D 49 4E 54 28 36 2A 52 40 LET Y=INT(6*R
000050: 4E 44 28 31 29 2B 31 29 0D 0A 32 35 30 20 4C 45 ND(1)+1)..250 LE
000060: 54 20 5A 3D 49 4E 54 28 36 2A 52 4E 44 28 31 29 T Z=INT(6*RND(1)
000070: 2B 31 29 0D 0A 32 36 30 20 50 52 49 4E 54 0D 0A +1)..260 PRINT..
000080: 32 37 30 20 49 46 20 58 3D 31 20 54 48 45 4E 20 270 IF X=1 THEN
000090: 39 31 30 0D 0A 32 38 30 20 49 46 20 58 3D 32 20 910..280 IF X=2
0000A0: 54 48 45 4E 20 39 33 30 0D 0A 32 39 30 20 49 46 THEN 930..290 IF
0000B0: 20 58 3D 33 20 54 48 45 4E 20 39 35 30 0D 0A 33 X=3 THEN 950..3
0000C0: 30 30 20 49 46 20 58 3D 34 20 54 48 45 4E 20 39 00 IF X=4 THEN 9
0000D0: 37 30 0D 0A 33 31 30 20 49 46 20 58 3D 35 20 54 70..310 IF X=5 T
0000E0: 48 45 4E 20 39 39 30 0D 0A 33 32 30 20 49 46 20 HEN 990..320 IF
0000F0: 58 3D 36 20 54 48 45 4E 20 31 30 31 30 0D 0A 33 X=6 THEN 1010..3
000100: 33 30 20 49 46 20 59 3D 31 20 54 48 45 4E 20 31 30 IF Y=1 THEN 1
000110: 30 33 30 0D 0A 33 34 30 20 49 46 20 59 3D 32 20 030..340 IF Y=2
000120: 54 48 45 4E 20 31 30 35 30 0D 0A 33 35 30 20 49 THEN 1050..350 I
000130: 46 20 59 3D 33 20 54 48 45 4E 20 31 30 37 30 0D F Y=3 THEN 1070.
000140: 0A 33 36 30 20 49 46 20 59 3D 34 20 54 48 45 4E .360 IF Y=4 THEN
000150: 20 31 30 39 30 0D 0A 33 37 30 20 49 46 20 59 3D 1090..370 IF Y=
000160: 35 20 54 48 45 4E 20 31 31 31 30 0D 0A 33 38 30 5 THEN 1110..380
000170: 20 49 46 20 59 3D 36 20 54 48 45 4E 20 31 31 33 IF Y=6 THEN 113
000180: 30 0D 0A 33 39 30 20 49 46 20 5A 3D 31 20 54 48 0..390 IF Z=1 TH
000190: 45 4E 20 31 31 35 30 0D 0A 34 30 30 20 49 46 20 EN 1150..400 IF
0001A0: 5A 3D 32 20 54 48 45 4E 20 31 31 37 30 0D 0A 34 Z=2 THEN 1170..4
0001B0: 31 30 20 49 46 20 5A 3D 33 20 54 48 45 4E 20 31 10 IF Z=3 THEN 1
0001C0: 31 39 30 0D 0A 34 32 30 20 49 46 20 5A 3D 34 20 190..420 IF Z=4
0001D0: 54 48 45 4E 20 31 32 31 30 0D 0A 34 33 30 20 49 THEN 1210..430 I
0001E0: 46 20 5A 3D 35 20 54 48 45 4E 20 31 32 33 30 0D F Z=5 THEN 1230.
0001F0: 0A 34 34 30 20 49 46 20 5A 3D 36 20 54 48 45 4E .440 IF Z=6 THEN
Size : 512 (Real : 512)
000000: 00 4C 55 4E 41 52 20 20 20 42 41 53 00 00 00 11 .LUNAR BAS....
000010: 49 4A 4B 00 00 00 00 00 00 00 00 00 00 00 00 00 IJK.............
000020: 00 4D 41 53 54 45 52 4D 49 42 41 53 00 00 00 2B .MASTERMIBAS...+
000030: 4C 4D 4E 4F 50 51 00 00 00 00 00 00 00 00 00 00 LMNOPQ..........
000040: 00 4D 41 54 48 44 49 43 45 42 41 53 00 00 00 0B .MATHDICEBAS....
000050: 52 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 RS..............
000060: 00 4D 49 4E 45 20 20 20 20 42 41 53 00 00 00 77 .MINE BAS...w
000070: 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 00 TUVWXYZ[\]^_`ab.
000080: 00 4D 55 47 57 55 4D 50 20 42 41 53 00 00 00 0D .MUGWUMP BAS....
000090: 63 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 cd..............
0000A0: 00 4E 41 4D 45 20 20 20 20 42 41 53 00 00 00 09 .NAME BAS....
0000B0: 65 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ef..............
0000C0: 00 4E 49 43 4F 4D 41 43 48 42 41 53 00 00 00 08 .NICOMACHBAS....
0000D0: 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 g...............
0000E0: 00 4E 49 4D 20 20 20 20 20 42 41 53 00 00 00 20 .NIM BAS...
0000F0: 68 69 6A 6B 00 00 00 00 00 00 00 00 00 00 00 00 hijk............
000100: 00 4E 55 4D 42 45 52 20 20 42 41 53 00 00 00 08 .NUMBER BAS....
000110: 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l...............
000120: 00 4F 4E 45 43 48 45 43 4B 42 41 53 00 00 00 12 .ONECHECKBAS....
000130: 6D 6E 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 mno.............
000140: 00 4F 52 42 49 54 20 20 20 42 41 53 00 00 00 1E .ORBIT BAS....
000150: 70 71 72 73 00 00 00 00 00 00 00 00 00 00 00 00 pqrs............
000160: 00 50 49 5A 5A 41 20 20 20 42 41 53 00 00 00 15 .PIZZA BAS....
000170: 74 75 76 00 00 00 00 00 00 00 00 00 00 00 00 00 tuv.............
000180: 00 50 4F 45 54 52 59 20 20 42 41 53 00 00 00 0B .POETRY BAS....
000190: 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wx..............
0001A0: 00 50 4F 4B 45 52 20 20 20 42 41 53 00 00 00 43 .POKER BAS...C
0001B0: 79 7A 7B 7C 7D 7E 7F 80 81 00 00 00 00 00 00 00 yz{|}~..........
0001C0: 00 51 55 42 49 54 20 20 20 42 41 53 00 00 00 39 .QUBIT BAS...9
0001D0: 82 83 84 85 86 87 88 89 00 00 00 00 00 00 00 00 ................
0001E0: 00 51 55 45 45 4E 20 20 20 42 41 53 00 00 00 22 .QUEEN BAS..."
0001F0: 8A 8B 8C 8D 8E 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 20 31 32 35 30 0D 0A 34 35 30 20 49 46 20 58 3D 1250..450 IF X=
000010: 59 20 54 48 45 4E 20 36 30 30 0D 0A 34 36 30 20 Y THEN 600..460
000020: 49 46 20 58 3D 5A 20 54 48 45 4E 20 36 33 30 0D IF X=Z THEN 630.
000030: 0A 34 37 30 20 49 46 20 59 3D 5A 20 54 48 45 4E .470 IF Y=Z THEN
000040: 20 36 35 30 0D 0A 34 38 30 20 50 52 49 4E 54 0D 650..480 PRINT.
000050: 0A 34 39 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .490 PRINT "YOU
000060: 4C 4F 53 54 2E 22 0D 0A 35 30 30 20 4C 45 54 20 LOST."..500 LET
000070: 50 3D 50 2D 4D 0D 0A 35 31 30 20 50 52 49 4E 54 P=P-M..510 PRINT
000080: 20 22 59 4F 55 52 20 53 54 41 4E 44 49 4E 47 53 "YOUR STANDINGS
000090: 20 41 52 45 20 24 22 50 0D 0A 35 32 30 20 50 52 ARE $"P..520 PR
0000A0: 49 4E 54 20 22 41 47 41 49 4E 22 3B 0D 0A 35 33 INT "AGAIN";..53
0000B0: 30 20 49 4E 50 55 54 20 41 24 0D 0A 35 34 30 20 0 INPUT A$..540
0000C0: 49 46 20 41 24 3D 22 59 22 20 54 48 45 4E 20 31 IF A$="Y" THEN 1
0000D0: 36 30 0D 0A 35 35 30 20 50 52 49 4E 54 0D 0A 35 60..550 PRINT..5
0000E0: 36 30 20 49 46 20 50 3C 30 20 54 48 45 4E 20 36 60 IF P<0 THEN 6
0000F0: 37 30 0D 0A 35 37 30 20 49 46 20 50 3D 30 20 54 70..570 IF P=0 T
000100: 48 45 4E 20 36 39 30 0D 0A 35 38 30 20 49 46 20 HEN 690..580 IF
000110: 50 3E 30 20 54 48 45 4E 20 37 31 30 0D 0A 35 39 P>0 THEN 710..59
000120: 30 20 47 4F 54 4F 20 31 33 35 30 0D 0A 36 30 30 0 GOTO 1350..600
000130: 20 49 46 20 59 3D 5A 20 54 48 45 4E 20 37 33 30 IF Y=Z THEN 730
000140: 0D 0A 36 31 30 20 49 46 20 59 3D 31 20 54 48 45 ..610 IF Y=1 THE
000150: 4E 20 38 32 30 0D 0A 36 32 30 20 47 4F 54 4F 20 N 820..620 GOTO
000160: 31 33 34 31 0D 0A 36 33 30 20 49 46 20 5A 3D 31 1341..630 IF Z=1
000170: 20 54 48 45 4E 20 38 32 30 0D 0A 36 34 30 20 47 THEN 820..640 G
000180: 4F 54 4F 20 34 37 30 0D 0A 36 35 30 20 49 46 20 OTO 470..650 IF
000190: 5A 3D 31 20 54 48 45 4E 20 38 32 30 0D 0A 36 36 Z=1 THEN 820..66
0001A0: 30 20 47 4F 54 4F 20 31 33 34 31 0D 0A 36 37 30 0 GOTO 1341..670
0001B0: 20 50 52 49 4E 54 20 22 50 41 59 20 55 50 21 20 PRINT "PAY UP!
0001C0: 20 50 4C 45 41 53 45 20 4C 45 41 56 45 20 59 4F PLEASE LEAVE YO
0001D0: 55 52 20 4D 4F 4E 45 59 20 4F 4E 20 54 48 45 20 UR MONEY ON THE
0001E0: 54 45 52 4D 49 4E 41 4C 2E 22 0D 0A 36 38 30 20 TERMINAL."..680
0001F0: 47 4F 54 4F 20 31 33 35 30 0D 0A 36 39 30 20 50 GOTO 1350..690 P
Size : 512 (Real : 512)
000000: 00 52 45 56 45 52 53 45 20 42 41 53 00 00 00 10 .REVERSE BAS....
000010: 8F 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 52 4F 43 4B 45 54 20 20 42 41 53 00 00 00 16 .ROCKET BAS....
000030: 91 92 93 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 52 4F 43 4B 53 43 49 53 42 41 53 00 00 00 09 .ROCKSCISBAS....
000050: 94 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 52 4F 55 4C 45 54 54 45 42 41 53 00 00 00 32 .ROULETTEBAS...2
000070: 96 97 98 99 9A 9B 9C 00 00 00 00 00 00 00 00 00 ................
000080: 00 52 55 53 53 49 41 4E 52 42 41 53 00 00 00 06 .RUSSIANRBAS....
000090: 9D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 53 41 4C 56 4F 20 20 20 42 41 53 00 00 00 38 .SALVO BAS...8
0000B0: 9E 9F A0 A1 A2 A3 A4 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 53 49 4E 45 57 41 56 45 42 41 53 00 00 00 04 .SINEWAVEBAS....
0000D0: A5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 53 4C 41 4C 4F 4D 20 20 42 41 53 00 00 00 26 .SLALOM BAS...&
0000F0: A6 A7 A8 A9 AA 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 54 45 53 54 31 20 20 20 42 41 53 00 00 00 01 .TEST1 BAS....
000110: 23 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #...............
000120: 00 54 49 43 54 41 43 54 4F 42 41 53 00 00 00 19 .TICTACTOBAS....
000130: 24 25 26 27 00 00 00 00 00 00 00 00 00 00 00 00 $%&'............
000140: 00 54 4F 57 45 52 20 20 20 42 41 53 00 00 00 20 .TOWER BAS...
000150: 28 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 ()*+............
000160: 00 54 52 41 49 4E 20 20 20 42 41 53 00 00 00 06 .TRAIN BAS....
000170: AB 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 49 4E 54 22 48 45 59 2C 20 59 4F 55 20 42 52 RINT"HEY, YOU BR
000010: 4F 4B 45 20 45 56 45 4E 2E 22 0D 0A 37 30 30 20 OKE EVEN."..700
000020: 47 4F 54 4F 20 31 33 35 30 0D 0A 37 31 30 20 50 GOTO 1350..710 P
000030: 52 49 4E 54 20 22 43 4F 4C 4C 45 43 54 20 59 4F RINT "COLLECT YO
000040: 55 52 20 57 49 4E 4E 49 4E 47 53 20 46 52 4F 4D UR WINNINGS FROM
000050: 20 54 48 45 20 48 26 4D 20 43 41 53 48 49 45 52 THE H&M CASHIER
000060: 2E 22 0D 0A 37 32 30 20 47 4F 54 4F 20 31 33 35 ."..720 GOTO 135
000070: 30 0D 0A 37 33 30 20 49 46 20 5A 3D 31 20 54 48 0..730 IF Z=1 TH
000080: 45 4E 20 37 38 30 0D 0A 37 34 30 20 50 52 49 4E EN 780..740 PRIN
000090: 54 3A 20 50 52 49 4E 54 22 2A 2A 54 4F 50 20 44 T: PRINT"**TOP D
0000A0: 4F 4C 4C 41 52 2A 2A 22 0D 0A 37 35 30 20 50 52 OLLAR**"..750 PR
0000B0: 49 4E 54 20 22 59 4F 55 20 57 4F 4E 21 22 0D 0A INT "YOU WON!"..
0000C0: 37 36 30 20 50 3D 28 28 28 31 30 2A 4D 29 2B 4D 760 P=(((10*M)+M
0000D0: 29 2B 50 29 0D 0A 37 37 30 20 47 4F 54 4F 20 35 )+P)..770 GOTO 5
0000E0: 31 30 0D 0A 37 38 30 20 50 52 49 4E 54 3A 50 52 10..780 PRINT:PR
0000F0: 49 4E 54 22 2A 2A 2A 4A 41 43 4B 50 4F 54 2A 2A INT"***JACKPOT**
000100: 2A 22 0D 0A 37 39 30 20 50 52 49 4E 54 20 22 59 *"..790 PRINT "Y
000110: 4F 55 20 57 4F 4E 21 22 0D 0A 38 30 30 20 50 3D OU WON!"..800 P=
000120: 28 28 28 31 30 30 2A 4D 29 2B 4D 29 2B 50 29 0D (((100*M)+M)+P).
000130: 0A 38 31 30 20 47 4F 54 4F 20 35 31 30 0D 0A 38 .810 GOTO 510..8
000140: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 22 2A 20 PRINT:PRINT"*
000150: 44 4F 55 42 4C 45 20 42 41 52 2A 22 0D 0A 38 33 DOUBLE BAR*"..83
000160: 30 20 50 52 49 4E 54 22 59 4F 55 20 57 4F 4E 21 0 PRINT"YOU WON!
000170: 22 0D 0A 38 34 30 20 50 3D 28 28 28 35 2A 4D 29 "..840 P=(((5*M)
000180: 2B 4D 29 2B 50 29 0D 0A 38 35 30 20 47 4F 54 4F +M)+P)..850 GOTO
000190: 20 35 31 30 0D 0A 38 36 30 20 50 52 49 4E 54 22 510..860 PRINT"
0001A0: 48 4F 55 53 45 20 4C 49 4D 49 54 53 20 41 52 45 HOUSE LIMITS ARE
0001B0: 20 24 31 30 30 22 0D 0A 38 37 30 20 47 4F 54 4F $100"..870 GOTO
0001C0: 20 31 36 30 0D 0A 38 38 30 20 50 52 49 4E 54 22 160..880 PRINT"
0001D0: 4D 49 4E 49 4D 55 4D 20 42 45 54 20 49 53 20 24 MINIMUM BET IS $
0001E0: 31 22 0D 0A 38 39 30 20 47 4F 54 4F 20 31 36 30 1"..890 GOTO 160
0001F0: 0D 0A 39 30 30 20 47 4F 54 4F 20 32 32 30 0D 0A ..900 GOTO 220..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 39 31 30 20 50 52 49 4E 54 22 42 41 52 22 3B 3A 910 PRINT"BAR";:
000010: 47 4F 53 55 42 20 31 33 31 30 0D 0A 39 32 30 20 GOSUB 1310..920
000020: 47 4F 54 4F 20 33 33 30 0D 0A 39 33 30 20 50 52 GOTO 330..930 PR
000030: 49 4E 54 22 42 45 4C 4C 22 3B 3A 47 4F 53 55 42 INT"BELL";:GOSUB
000040: 20 31 33 31 30 0D 0A 39 34 30 20 47 4F 54 4F 20 1310..940 GOTO
000050: 33 33 30 0D 0A 39 35 30 20 50 52 49 4E 54 22 4F 330..950 PRINT"O
000060: 52 41 4E 47 45 22 3B 3A 47 4F 53 55 42 20 31 33 RANGE";:GOSUB 13
000070: 31 30 0D 0A 39 36 30 20 47 4F 54 4F 20 33 33 30 10..960 GOTO 330
000080: 0D 0A 39 37 30 20 50 52 49 4E 54 22 4C 45 4D 4F ..970 PRINT"LEMO
000090: 4E 22 3B 3A 47 4F 53 55 42 20 31 33 31 30 0D 0A N";:GOSUB 1310..
0000A0: 39 38 30 20 47 4F 54 4F 20 33 33 30 0D 0A 39 39 980 GOTO 330..99
0000B0: 30 20 50 52 49 4E 54 22 50 4C 55 4D 22 3B 3A 47 0 PRINT"PLUM";:G
0000C0: 4F 53 55 42 20 31 33 31 30 0D 0A 31 30 30 30 20 OSUB 1310..1000
0000D0: 47 4F 54 4F 20 33 33 30 0D 0A 31 30 31 30 20 50 GOTO 330..1010 P
0000E0: 52 49 4E 54 22 43 48 45 52 52 59 22 3B 3A 47 4F RINT"CHERRY";:GO
0000F0: 53 55 42 20 31 33 31 30 0D 0A 31 30 32 30 20 47 SUB 1310..1020 G
000100: 4F 54 4F 20 33 33 30 0D 0A 31 30 33 30 20 50 52 OTO 330..1030 PR
000110: 49 4E 54 22 20 42 41 52 22 3B 3A 47 4F 53 55 42 INT" BAR";:GOSUB
000120: 20 31 33 31 30 0D 0A 31 30 34 30 20 47 4F 54 4F 1310..1040 GOTO
000130: 20 33 39 30 0D 0A 31 30 35 30 20 50 52 49 4E 54 390..1050 PRINT
000140: 22 20 42 45 4C 4C 22 3B 3A 47 4F 53 55 42 20 31 " BELL";:GOSUB 1
000150: 33 31 30 0D 0A 31 30 36 30 20 47 4F 54 4F 20 33 310..1060 GOTO 3
000160: 39 30 0D 0A 31 30 37 30 20 50 52 49 4E 54 22 20 90..1070 PRINT"
000170: 4F 52 41 4E 47 45 22 3B 3A 47 4F 53 55 42 20 31 ORANGE";:GOSUB 1
000180: 33 31 30 0D 0A 31 30 38 30 20 47 4F 54 4F 20 33 310..1080 GOTO 3
000190: 39 30 0D 0A 31 30 39 30 20 50 52 49 4E 54 22 20 90..1090 PRINT"
0001A0: 4C 45 4D 4F 4E 22 3B 3A 47 4F 53 55 42 20 31 33 LEMON";:GOSUB 13
0001B0: 31 30 0D 0A 31 31 30 30 20 47 4F 54 4F 20 33 39 10..1100 GOTO 39
0001C0: 30 0D 0A 31 31 31 30 20 50 52 49 4E 54 22 20 50 0..1110 PRINT" P
0001D0: 4C 55 4D 22 3B 3A 47 4F 53 55 42 20 31 33 31 30 LUM";:GOSUB 1310
0001E0: 0D 0A 31 31 32 30 20 47 4F 54 4F 20 33 39 30 0D ..1120 GOTO 390.
0001F0: 0A 31 31 33 30 20 50 52 49 4E 54 22 20 43 48 45 .1130 PRINT" CHE
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
000010: 3B 22 53 4C 4F 54 53 22 0D 0A 32 30 20 50 52 49 ;"SLOTS"..20 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
000060: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D T: PRINT: PRINT.
000070: 0A 31 30 30 20 52 45 4D 20 50 52 4F 44 55 43 45 .100 REM PRODUCE
000080: 44 20 42 59 20 46 52 45 44 20 4D 49 52 41 42 45 D BY FRED MIRABE
000090: 4C 4C 45 20 41 4E 44 20 42 4F 42 20 48 41 52 50 LLE AND BOB HARP
0000A0: 45 52 20 4F 4E 20 4A 41 4E 20 32 39 2C 20 31 39 ER ON JAN 29, 19
0000B0: 37 33 0D 0A 31 31 30 20 52 45 4D 20 49 54 20 53 73..110 REM IT S
0000C0: 49 4D 55 4C 41 54 45 53 20 54 48 45 20 53 4C 4F IMULATES THE SLO
0000D0: 54 20 4D 41 43 48 49 4E 45 2E 0D 0A 31 32 30 20 T MACHINE...120
0000E0: 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 49 PRINT "YOU ARE I
0000F0: 4E 20 54 48 45 20 48 26 4D 20 43 41 53 49 4E 4F N THE H&M CASINO
000100: 2C 49 4E 20 46 52 4F 4E 54 20 4F 46 20 4F 4E 45 ,IN FRONT OF ONE
000110: 20 4F 46 20 4F 55 52 22 0D 0A 31 33 30 20 50 52 OF OUR"..130 PR
000120: 49 4E 54 20 22 4F 4E 45 2D 41 52 4D 20 42 41 4E INT "ONE-ARM BAN
000130: 44 49 54 53 2E 20 42 45 54 20 46 52 4F 4D 20 24 DITS. BET FROM $
000140: 31 20 54 4F 20 24 31 30 30 2E 22 0D 0A 31 34 30 1 TO $100."..140
000150: 20 50 52 49 4E 54 20 22 54 4F 20 50 55 4C 4C 20 PRINT "TO PULL
000160: 54 48 45 20 41 52 4D 2C 20 50 55 4E 43 48 20 54 THE ARM, PUNCH T
000170: 48 45 20 52 45 54 55 52 4E 20 4B 45 59 20 41 46 HE RETURN KEY AF
000180: 54 45 52 20 4D 41 4B 49 4E 47 20 59 4F 55 52 20 TER MAKING YOUR
000190: 42 45 54 2E 22 0D 0A 31 35 30 20 4C 45 54 20 50 BET."..150 LET P
0001A0: 3D 30 0D 0A 31 36 30 20 50 52 49 4E 54 3A 20 50 =0..160 PRINT: P
0001B0: 52 49 4E 54 22 59 4F 55 52 20 42 45 54 22 3B 0D RINT"YOUR BET";.
0001C0: 0A 31 37 30 20 49 4E 50 55 54 20 4D 0D 0A 31 38 .170 INPUT M..18
0001D0: 30 20 49 46 20 4D 3E 31 30 30 20 54 48 45 4E 20 0 IF M>100 THEN
0001E0: 38 36 30 0D 0A 31 39 30 20 49 46 20 4D 3C 31 20 860..190 IF M<1
0001F0: 54 48 45 4E 20 38 38 30 0D 0A 32 30 30 20 4D 3D THEN 880..200 M=
Size : 512 (Real : 512)
000000: 52 52 59 22 3B 3A 47 4F 53 55 42 20 31 33 31 30 RRY";:GOSUB 1310
000010: 0D 0A 31 31 34 30 20 47 4F 54 4F 20 33 39 30 0D ..1140 GOTO 390.
000020: 0A 31 31 35 30 20 50 52 49 4E 54 22 20 42 41 52 .1150 PRINT" BAR
000030: 22 0D 0A 31 31 36 30 20 47 4F 54 4F 20 34 35 30 "..1160 GOTO 450
000040: 0D 0A 31 31 37 30 20 50 52 49 4E 54 22 20 42 45 ..1170 PRINT" BE
000050: 4C 4C 22 0D 0A 31 31 38 30 20 47 4F 54 4F 20 34 LL"..1180 GOTO 4
000060: 35 30 0D 0A 31 31 39 30 20 50 52 49 4E 54 22 20 50..1190 PRINT"
000070: 4F 52 41 4E 47 45 22 0D 0A 31 32 30 30 20 47 4F ORANGE"..1200 GO
000080: 54 4F 20 34 35 30 0D 0A 31 32 31 30 20 50 52 49 TO 450..1210 PRI
000090: 4E 54 22 20 4C 45 4D 4F 4E 22 0D 0A 31 32 32 30 NT" LEMON"..1220
0000A0: 20 47 4F 54 4F 20 34 35 30 0D 0A 31 32 33 30 20 GOTO 450..1230
0000B0: 50 52 49 4E 54 22 20 50 4C 55 4D 22 0D 0A 31 32 PRINT" PLUM"..12
0000C0: 34 30 20 47 4F 54 4F 20 34 35 30 0D 0A 31 32 35 40 GOTO 450..125
0000D0: 30 20 50 52 49 4E 54 22 20 43 48 45 52 52 59 22 0 PRINT" CHERRY"
0000E0: 0D 0A 31 32 36 30 20 47 4F 54 4F 20 34 35 30 0D ..1260 GOTO 450.
0000F0: 0A 31 32 37 30 20 46 4F 52 20 51 34 3D 31 20 54 .1270 FOR Q4=1 T
000100: 4F 20 31 30 20 0D 0A 31 32 38 30 20 50 52 49 4E O 10 ..1280 PRIN
000110: 54 20 43 48 52 24 28 37 29 3B 0D 0A 31 32 39 30 T CHR$(7);..1290
000120: 20 4E 45 58 54 20 51 34 0D 0A 31 33 30 30 20 52 NEXT Q4..1300 R
000130: 45 54 55 52 4E 0D 0A 31 33 31 30 20 46 4F 52 20 ETURN..1310 FOR
000140: 54 38 3D 31 20 54 4F 20 35 0D 0A 31 33 32 30 20 T8=1 TO 5..1320
000150: 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B 0D 0A PRINT CHR$(7);..
000160: 31 33 33 30 20 4E 45 58 54 20 54 38 0D 0A 31 33 1330 NEXT T8..13
000170: 34 30 20 52 45 54 55 52 4E 0D 0A 31 33 34 31 20 40 RETURN..1341
000180: 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 44 4F PRINT: PRINT "DO
000190: 55 42 4C 45 21 21 22 0D 0A 31 33 34 32 20 50 52 UBLE!!"..1342 PR
0001A0: 49 4E 54 22 59 4F 55 20 57 4F 4E 21 22 0D 0A 31 INT"YOU WON!"..1
0001B0: 33 34 33 20 50 3D 28 28 28 32 2A 4D 29 2B 4D 29 343 P=(((2*M)+M)
0001C0: 2B 50 29 0D 0A 31 33 34 34 20 47 4F 54 4F 20 35 +P)..1344 GOTO 5
0001D0: 31 30 0D 0A 31 33 35 30 20 53 54 4F 50 0D 0A 39 10..1350 STOP..9
0001E0: 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 999 END.........
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 41 32 3D 33 37 2E 36 3A 47 4F 54 4F 20 31 34 A2=37.6:GOTO 14
000010: 35 20 0D 0A 31 36 38 20 41 32 3D 33 33 2E 38 20 5 ..168 A2=33.8
000020: 3A 47 4F 54 4F 20 31 34 35 0D 0A 31 36 39 20 41 :GOTO 145..169 A
000030: 32 3D 33 39 2E 36 3A 47 4F 54 4F 20 31 34 35 20 2=39.6:GOTO 145
000040: 0D 0A 31 37 30 20 41 32 3D 38 39 36 3A 47 4F 54 ..170 A2=896:GOT
000050: 4F 20 31 34 35 0D 0A 32 30 35 20 50 52 49 4E 54 O 145..205 PRINT
000060: 0D 0A 32 30 36 20 50 52 49 4E 54 20 22 20 20 20 ..206 PRINT "
000070: 20 41 4C 54 49 54 55 44 45 20 20 20 20 20 20 20 ALTITUDE
000080: 20 20 3D 22 44 31 22 46 54 22 20 0D 0A 32 30 37 ="D1"FT" ..207
000090: 20 50 52 49 4E 54 20 22 20 20 20 20 54 45 52 4D PRINT " TERM
0000A0: 2E 20 56 45 4C 4F 43 49 54 59 20 20 20 3D 22 56 . VELOCITY ="V
0000B0: 31 22 46 54 2F 53 45 43 20 2B 2F 2D 35 25 22 0D 1"FT/SEC +/-5%".
0000C0: 0A 32 30 38 20 50 52 49 4E 54 20 22 20 20 20 20 .208 PRINT "
0000D0: 41 43 43 45 4C 45 52 41 54 49 4F 4E 20 20 20 20 ACCELERATION
0000E0: 20 3D 22 41 32 22 46 54 2F 53 45 43 2F 53 45 43 ="A2"FT/SEC/SEC
0000F0: 20 2B 2F 2D 35 25 22 0D 0A 32 31 30 20 50 52 49 +/-5%"..210 PRI
000100: 4E 54 20 22 53 45 54 20 54 48 45 20 54 49 4D 45 NT "SET THE TIME
000110: 52 20 46 4F 52 20 59 4F 55 52 20 46 52 45 45 46 R FOR YOUR FREEF
000120: 41 4C 4C 2E 22 0D 0A 32 31 31 20 50 52 49 4E 54 ALL."..211 PRINT
000130: 20 22 48 4F 57 20 4D 41 4E 59 20 53 45 43 4F 4E "HOW MANY SECON
000140: 44 53 22 3B 3A 49 4E 50 55 54 20 54 0D 0A 32 31 DS";:INPUT T..21
000150: 35 20 50 52 49 4E 54 20 22 48 45 52 45 20 57 45 5 PRINT "HERE WE
000160: 20 47 4F 2E 22 0D 0A 32 31 37 20 50 52 49 4E 54 GO."..217 PRINT
000170: 0D 0A 32 31 38 20 50 52 49 4E 54 20 22 54 49 4D ..218 PRINT "TIM
000180: 45 20 28 53 45 43 29 22 2C 22 44 49 53 54 20 54 E (SEC)","DIST T
000190: 4F 20 46 41 4C 4C 20 28 46 54 29 22 20 0D 0A 32 O FALL (FT)" ..2
0001A0: 31 39 20 50 52 49 4E 54 20 22 3D 3D 3D 3D 3D 3D 19 PRINT "======
0001B0: 3D 3D 3D 3D 22 2C 22 3D 3D 3D 3D 3D 3D 3D 3D 3D ====","=========
0001C0: 3D 3D 3D 3D 3D 3D 3D 3D 22 20 0D 0A 33 30 30 20 ========" ..300
0001D0: 46 4F 52 20 49 3D 30 20 54 4F 20 54 20 53 54 45 FOR I=0 TO T STE
0001E0: 50 20 28 54 2F 38 29 0D 0A 33 31 30 20 49 46 20 P (T/8)..310 IF
0001F0: 49 3E 56 2F 41 20 54 48 45 4E 20 34 30 30 0D 0A I>V/A THEN 400..
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 53 50 4C 41 54 22 0D 0A 32 30 20 50 52 49 ;"SPLAT"..20 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 34 30 20 50 52 49 4E JERSEY"..40 PRIN
000060: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 35 T:PRINT:PRINT..5
000070: 30 20 44 49 4D 20 41 28 34 32 29 0D 0A 39 35 20 0 DIM A(42)..95
000080: 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 45 20 54 PRINT "WELCOME T
000090: 4F 20 27 53 50 4C 41 54 27 20 2D 2D 20 54 48 45 O 'SPLAT' -- THE
0000A0: 20 47 41 4D 45 20 54 48 41 54 20 53 49 4D 55 4C GAME THAT SIMUL
0000B0: 41 54 45 53 20 41 20 50 41 52 41 43 48 55 54 45 ATES A PARACHUTE
0000C0: 22 0D 0A 39 36 20 50 52 49 4E 54 20 22 4A 55 4D "..96 PRINT "JUM
0000D0: 50 2E 20 20 54 52 59 20 54 4F 20 4F 50 45 4E 20 P. TRY TO OPEN
0000E0: 59 4F 55 52 20 43 48 55 54 45 20 41 54 20 54 48 YOUR CHUTE AT TH
0000F0: 45 20 4C 41 53 54 20 50 4F 53 53 49 42 4C 45 22 E LAST POSSIBLE"
000100: 20 0D 0A 39 37 20 50 52 49 4E 54 20 22 4D 4F 4D ..97 PRINT "MOM
000110: 45 4E 54 20 57 49 54 48 4F 55 54 20 47 4F 49 4E ENT WITHOUT GOIN
000120: 47 20 53 50 4C 41 54 2E 22 0D 0A 31 31 38 20 50 G SPLAT."..118 P
000130: 52 49 4E 54 3A 50 52 49 4E 54 3A 44 31 3D 30 3A RINT:PRINT:D1=0:
000140: 56 3D 30 3A 41 3D 30 3A 4E 3D 30 3A 4D 3D 30 3A V=0:A=0:N=0:M=0:
000150: 44 31 3D 49 4E 54 28 39 30 30 31 2A 52 4E 44 28 D1=INT(9001*RND(
000160: 31 29 2B 31 30 30 30 29 0D 0A 31 31 39 20 50 52 1)+1000)..119 PR
000170: 49 4E 54 20 22 53 45 4C 45 43 54 20 59 4F 55 52 INT "SELECT YOUR
000180: 20 4F 57 4E 20 54 45 52 4D 49 4E 41 4C 20 56 45 OWN TERMINAL VE
000190: 4C 4F 43 49 54 59 20 28 59 45 53 20 4F 52 20 4E LOCITY (YES OR N
0001A0: 4F 29 22 3B 3A 49 4E 50 55 54 20 41 31 24 20 20 O)";:INPUT A1$
0001B0: 20 20 0D 0A 31 32 30 20 49 46 20 41 31 24 3D 22 ..120 IF A1$="
0001C0: 4E 4F 22 20 54 48 45 4E 20 31 32 38 0D 0A 31 32 NO" THEN 128..12
0001D0: 31 20 49 46 20 41 31 24 3C 3E 22 59 45 53 22 20 1 IF A1$<>"YES"
0001E0: 54 48 45 4E 20 50 52 49 4E 54 20 22 59 45 53 20 THEN PRINT "YES
0001F0: 4F 52 20 4E 4F 22 3B 3A 49 4E 50 55 54 20 41 31 OR NO";:INPUT A1
Size : 512 (Real : 512)
000000: 33 32 30 20 44 3D 44 31 2D 28 28 41 2F 32 29 2A 320 D=D1-((A/2)*
000010: 49 5E 32 29 20 0D 0A 33 33 30 20 49 46 20 44 3C I^2) ..330 IF D<
000020: 3D 30 20 54 48 45 4E 20 31 30 30 30 0D 0A 33 34 =0 THEN 1000..34
000030: 30 20 50 52 49 4E 54 20 49 2C 44 0D 0A 33 35 30 0 PRINT I,D..350
000040: 20 4E 45 58 54 20 49 20 0D 0A 33 36 30 20 47 4F NEXT I ..360 GO
000050: 54 4F 20 35 30 30 20 0D 0A 34 30 30 20 50 52 49 TO 500 ..400 PRI
000060: 4E 54 20 22 54 45 52 4D 49 4E 41 4C 20 56 45 4C NT "TERMINAL VEL
000070: 4F 43 49 54 59 20 52 45 41 43 48 45 44 20 41 54 OCITY REACHED AT
000080: 20 54 20 50 4C 55 53 22 56 2F 41 22 53 45 43 4F T PLUS"V/A"SECO
000090: 4E 44 53 2E 22 0D 0A 34 30 35 20 46 4F 52 20 49 NDS."..405 FOR I
0000A0: 3D 49 20 54 4F 20 54 20 53 54 45 50 20 28 54 2F =I TO T STEP (T/
0000B0: 38 29 0D 0A 34 31 30 20 44 3D 44 31 2D 28 28 56 8)..410 D=D1-((V
0000C0: 5E 32 2F 28 32 2A 41 29 29 2B 28 56 2A 28 49 2D ^2/(2*A))+(V*(I-
0000D0: 28 56 2F 41 29 29 29 29 20 0D 0A 34 32 30 20 49 (V/A)))) ..420 I
0000E0: 46 20 44 3C 3D 30 20 54 48 45 4E 20 31 30 31 30 F D<=0 THEN 1010
0000F0: 0D 0A 34 33 30 20 50 52 49 4E 54 20 49 2C 44 0D ..430 PRINT I,D.
000100: 0A 34 34 30 20 4E 45 58 54 20 49 20 0D 0A 35 30 .440 NEXT I ..50
000110: 30 20 50 52 49 4E 54 20 22 43 48 55 54 45 20 4F 0 PRINT "CHUTE O
000120: 50 45 4E 22 0D 0A 35 31 30 20 4B 3D 30 3A 4B 31 PEN"..510 K=0:K1
000130: 3D 30 20 0D 0A 35 35 30 20 46 4F 52 20 4A 3D 30 =0 ..550 FOR J=0
000140: 20 54 4F 20 34 32 0D 0A 35 35 35 20 49 46 20 41 TO 42..555 IF A
000150: 28 4A 29 3D 30 20 54 48 45 4E 20 36 32 30 20 0D (J)=0 THEN 620 .
000160: 0A 35 36 30 20 4B 3D 4B 2B 31 0D 0A 35 37 30 20 .560 K=K+1..570
000170: 49 46 20 44 3E 3D 41 28 4A 29 20 54 48 45 4E 20 IF D>=A(J) THEN
000180: 36 30 30 0D 0A 35 38 30 20 4B 31 3D 4B 31 2B 31 600..580 K1=K1+1
000190: 0D 0A 36 30 30 20 4E 45 58 54 20 4A 20 0D 0A 36 ..600 NEXT J ..6
0001A0: 31 30 20 47 4F 54 4F 20 35 34 30 20 0D 0A 36 32 10 GOTO 540 ..62
0001B0: 30 20 41 28 4A 29 3D 44 20 0D 0A 36 33 30 20 49 0 A(J)=D ..630 I
0001C0: 46 20 4A 3E 32 20 54 48 45 4E 20 36 35 30 0D 0A F J>2 THEN 650..
0001D0: 36 33 35 20 50 52 49 4E 54 20 22 41 4D 41 5A 49 635 PRINT "AMAZI
0001E0: 4E 47 21 21 21 20 4E 4F 54 20 42 41 44 20 46 4F NG!!! NOT BAD FO
0001F0: 52 20 59 4F 55 52 20 22 3B 0D 0A 36 33 36 20 49 R YOUR ";..636 I
Size : 512 (Real : 512)
000000: 24 3A 47 4F 54 4F 20 31 32 30 0D 0A 31 32 33 20 $:GOTO 120..123
000010: 50 52 49 4E 54 20 22 57 48 41 54 20 54 45 52 4D PRINT "WHAT TERM
000020: 49 4E 41 4C 20 56 45 4C 4F 43 49 54 59 20 28 4D INAL VELOCITY (M
000030: 49 2F 48 52 29 22 3B 3A 49 4E 50 55 54 20 56 31 I/HR)";:INPUT V1
000040: 20 0D 0A 31 32 35 20 56 31 3D 56 31 2A 28 35 32 ..125 V1=V1*(52
000050: 38 30 2F 33 36 30 30 29 3A 56 3D 56 31 2B 28 28 80/3600):V=V1+((
000060: 56 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 2D 28 V1*RND(1))/20)-(
000070: 28 56 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 3A (V1*RND(1))/20):
000080: 47 4F 54 4F 20 31 33 35 0D 0A 31 32 38 20 56 31 GOTO 135..128 V1
000090: 3D 49 4E 54 28 31 30 30 30 2A 52 4E 44 28 31 29 =INT(1000*RND(1)
0000A0: 29 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 4F 4B )..130 PRINT "OK
0000B0: 2E 20 20 54 45 52 4D 49 4E 41 4C 20 56 45 4C 4F . TERMINAL VELO
0000C0: 43 49 54 59 20 3D 22 56 31 22 4D 49 2F 48 52 22 CITY ="V1"MI/HR"
0000D0: 0D 0A 31 33 31 20 56 31 3D 56 31 2A 28 35 32 38 ..131 V1=V1*(528
0000E0: 30 2F 33 36 30 30 29 3A 56 3D 56 31 2B 28 28 56 0/3600):V=V1+((V
0000F0: 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 2D 28 28 1*RND(1))/20)-((
000100: 56 31 2A 52 4E 44 28 31 29 29 2F 32 30 29 20 0D V1*RND(1))/20) .
000110: 0A 31 33 35 20 20 50 52 49 4E 54 20 22 57 41 4E .135 PRINT "WAN
000120: 54 20 54 4F 20 53 45 4C 45 43 54 20 41 43 43 45 T TO SELECT ACCE
000130: 4C 45 52 41 54 49 4F 4E 20 44 55 45 20 54 4F 20 LERATION DUE TO
000140: 47 52 41 56 49 54 59 20 28 59 45 53 20 4F 52 20 GRAVITY (YES OR
000150: 4E 4F 29 22 3B 20 0D 0A 31 33 36 20 49 4E 50 55 NO)"; ..136 INPU
000160: 54 20 42 31 24 0D 0A 31 34 30 20 49 46 20 42 31 T B1$..140 IF B1
000170: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 35 30 0D $="NO" THEN 150.
000180: 0A 31 34 31 20 49 46 20 42 31 24 3C 3E 22 59 45 .141 IF B1$<>"YE
000190: 53 22 20 54 48 45 4E 20 50 52 49 4E 54 20 22 59 S" THEN PRINT "Y
0001A0: 45 53 20 4F 52 20 4E 4F 22 3B 3A 49 4E 50 55 54 ES OR NO";:INPUT
0001B0: 20 42 31 24 3A 47 4F 54 4F 20 31 34 30 0D 0A 31 B1$:GOTO 140..1
0001C0: 34 33 20 50 52 49 4E 54 20 22 57 48 41 54 20 41 43 PRINT "WHAT A
0001D0: 43 43 45 4C 45 52 41 54 49 4F 4E 20 28 46 54 2F CCELERATION (FT/
0001E0: 53 45 43 2F 53 45 43 29 22 3B 3A 49 4E 50 55 54 SEC/SEC)";:INPUT
0001F0: 20 41 32 20 0D 0A 31 34 35 20 41 3D 41 32 2B 28 A2 ..145 A=A2+(
Size : 512 (Real : 512)
000000: 46 20 4A 3D 30 20 54 48 45 4E 20 50 52 49 4E 54 F J=0 THEN PRINT
000010: 20 22 31 53 54 20 22 3B 0D 0A 36 33 37 20 49 46 "1ST ";..637 IF
000020: 20 4A 3D 31 20 54 48 45 4E 20 50 52 49 4E 54 20 J=1 THEN PRINT
000030: 22 32 4E 44 20 22 3B 0D 0A 36 33 38 20 49 46 20 "2ND ";..638 IF
000040: 4A 3D 32 20 54 48 45 4E 20 50 52 49 4E 54 20 22 J=2 THEN PRINT "
000050: 33 52 44 20 22 3B 0D 0A 36 33 39 20 50 52 49 4E 3RD ";..639 PRIN
000060: 54 20 22 53 55 43 43 45 53 53 46 55 4C 20 4A 55 T "SUCCESSFUL JU
000070: 4D 50 21 21 21 22 3A 47 4F 54 4F 20 32 30 30 30 MP!!!":GOTO 2000
000080: 0D 0A 36 35 30 20 49 46 20 4B 2D 4B 31 3C 3D 2E ..650 IF K-K1<=.
000090: 31 2A 4B 20 54 48 45 4E 20 37 30 30 20 0D 0A 36 1*K THEN 700 ..6
0000A0: 36 30 20 49 46 20 4B 2D 4B 31 3C 3D 2E 32 35 2A 60 IF K-K1<=.25*
0000B0: 4B 20 54 48 45 4E 20 37 31 30 0D 0A 36 37 30 20 K THEN 710..670
0000C0: 49 46 20 4B 2D 4B 31 3C 3D 2E 35 2A 4B 20 54 48 IF K-K1<=.5*K TH
0000D0: 45 4E 20 37 32 30 20 0D 0A 36 38 30 20 49 46 20 EN 720 ..680 IF
0000E0: 4B 2D 4B 31 3C 3D 2E 37 35 2A 4B 20 54 48 45 4E K-K1<=.75*K THEN
0000F0: 20 37 33 30 0D 0A 36 39 30 20 49 46 20 4B 2D 4B 730..690 IF K-K
000100: 31 3C 3D 2E 39 2A 4B 20 54 48 45 4E 20 37 34 30 1<=.9*K THEN 740
000110: 20 0D 0A 36 39 35 20 47 4F 54 4F 20 37 35 30 20 ..695 GOTO 750
000120: 0D 0A 37 30 30 20 50 52 49 4E 54 20 22 57 4F 57 ..700 PRINT "WOW
000130: 21 20 20 54 48 41 54 27 53 20 53 4F 4D 45 20 4A ! THAT'S SOME J
000140: 55 4D 50 49 4E 47 2E 20 20 4F 46 20 54 48 45 22 UMPING. OF THE"
000150: 4B 22 53 55 43 43 45 53 53 46 55 4C 20 4A 55 4D K"SUCCESSFUL JUM
000160: 50 53 22 0D 0A 37 30 31 20 50 52 49 4E 54 20 22 PS"..701 PRINT "
000170: 42 45 46 4F 52 45 20 59 4F 55 52 53 2C 20 4F 4E BEFORE YOURS, ON
000180: 4C 59 22 4B 2D 4B 31 22 4F 50 45 4E 45 44 20 54 LY"K-K1"OPENED T
000190: 48 45 49 52 20 43 48 55 54 45 53 20 4C 4F 57 45 HEIR CHUTES LOWE
0001A0: 52 20 54 48 41 4E 22 20 0D 0A 37 30 32 20 50 52 R THAN" ..702 PR
0001B0: 49 4E 54 20 22 59 4F 55 20 44 49 44 2E 22 20 0D INT "YOU DID." .
0001C0: 0A 37 30 33 20 47 4F 54 4F 20 32 30 30 30 0D 0A .703 GOTO 2000..
0001D0: 37 31 30 20 50 52 49 4E 54 20 22 50 52 45 54 54 710 PRINT "PRETT
0001E0: 59 20 47 4F 4F 44 21 20 22 20 4B 22 53 55 43 43 Y GOOD! " K"SUCC
0001F0: 45 53 53 46 55 4C 20 4A 55 4D 50 53 20 50 52 45 ESSFUL JUMPS PRE
Size : 512 (Real : 512)
000000: 28 41 32 2A 52 4E 44 28 31 29 29 2F 32 30 29 2D (A2*RND(1))/20)-
000010: 28 28 41 32 2A 52 4E 44 28 31 29 29 2F 32 30 29 ((A2*RND(1))/20)
000020: 3A 47 4F 54 4F 20 32 30 35 0D 0A 31 35 30 20 4F :GOTO 205..150 O
000030: 4E 20 49 4E 54 28 31 2B 28 31 30 2A 52 4E 44 28 N INT(1+(10*RND(
000040: 31 29 29 29 47 4F 54 4F 20 31 35 31 2C 31 35 32 1)))GOTO 151,152
000050: 2C 31 35 33 2C 31 35 34 2C 31 35 35 2C 31 35 36 ,153,154,155,156
000060: 2C 31 35 37 2C 31 35 38 2C 31 35 39 2C 31 36 30 ,157,158,159,160
000070: 20 0D 0A 31 35 31 20 50 52 49 4E 54 22 46 49 4E ..151 PRINT"FIN
000080: 45 2E 20 59 4F 55 27 52 45 20 4F 4E 20 4D 45 52 E. YOU'RE ON MER
000090: 43 55 52 59 2E 20 41 43 43 45 4C 45 52 41 54 49 CURY. ACCELERATI
0000A0: 4F 4E 3D 31 32 2E 32 20 46 54 2F 53 45 43 2F 53 ON=12.2 FT/SEC/S
0000B0: 45 43 2E 22 3A 47 4F 54 4F 20 31 36 31 0D 0A 31 EC.":GOTO 161..1
0000C0: 35 32 20 50 52 49 4E 54 22 41 4C 4C 20 52 49 47 52 PRINT"ALL RIG
0000D0: 48 54 2E 20 59 4F 55 27 52 45 20 4F 4E 20 56 45 HT. YOU'RE ON VE
0000E0: 4E 55 53 2E 20 41 43 43 45 4C 45 52 41 54 49 4F NUS. ACCELERATIO
0000F0: 4E 3D 32 38 2E 33 20 46 54 2F 53 45 43 2F 53 45 N=28.3 FT/SEC/SE
000100: 43 2E 22 3A 47 4F 54 4F 20 31 36 32 0D 0A 31 35 C.":GOTO 162..15
000110: 33 20 50 52 49 4E 54 20 22 54 48 45 4E 20 59 4F 3 PRINT "THEN YO
000120: 55 27 52 45 20 4F 4E 20 45 41 52 54 48 2E 20 41 U'RE ON EARTH. A
000130: 43 43 45 4C 45 52 41 54 49 4F 4E 3D 33 32 2E 31 CCELERATION=32.1
000140: 36 20 46 54 2F 53 45 43 2F 53 45 43 2E 22 3A 47 6 FT/SEC/SEC.":G
000150: 4F 54 4F 20 31 36 33 20 0D 0A 31 35 34 20 50 52 OTO 163 ..154 PR
000160: 49 4E 54 22 46 49 4E 45 2E 20 59 4F 55 27 52 45 INT"FINE. YOU'RE
000170: 20 4F 4E 20 54 48 45 20 4D 4F 4F 4E 2E 20 41 43 ON THE MOON. AC
000180: 43 45 4C 45 52 41 54 49 4F 4E 3D 35 2E 31 35 20 CELERATION=5.15
000190: 46 54 2F 53 45 43 2F 53 45 43 2E 22 3A 47 4F 54 FT/SEC/SEC.":GOT
0001A0: 4F 20 31 36 34 0D 0A 31 35 35 20 50 52 49 4E 54 O 164..155 PRINT
0001B0: 22 41 4C 4C 20 52 49 47 48 54 2E 20 59 4F 55 27 "ALL RIGHT. YOU'
0001C0: 52 45 20 4F 4E 20 4D 41 52 53 2E 20 41 43 43 45 RE ON MARS. ACCE
0001D0: 4C 45 52 41 54 49 4F 4E 3D 31 32 2E 35 20 46 54 LERATION=12.5 FT
0001E0: 2F 53 45 43 2F 53 45 43 2E 22 3A 47 4F 54 4F 20 /SEC/SEC.":GOTO
0001F0: 31 36 35 20 0D 0A 31 35 36 20 50 52 49 4E 54 22 165 ..156 PRINT"
Size : 512 (Real : 512)
000000: 43 45 44 45 44 20 59 4F 55 52 53 20 41 4E 44 20 CEDED YOURS AND
000010: 4F 4E 4C 59 22 0D 0A 37 31 31 20 50 52 49 4E 54 ONLY"..711 PRINT
000020: 20 4B 2D 4B 31 22 20 4F 46 20 54 48 45 4D 20 47 K-K1" OF THEM G
000030: 4F 54 20 4C 4F 57 45 52 20 54 48 41 4E 20 59 4F OT LOWER THAN YO
000040: 55 20 44 49 44 20 42 45 46 4F 52 45 20 54 48 45 U DID BEFORE THE
000050: 49 52 20 43 48 55 54 45 53 22 0D 0A 37 31 32 20 IR CHUTES"..712
000060: 50 52 49 4E 54 20 22 4F 50 45 4E 45 44 2E 22 20 PRINT "OPENED."
000070: 3A 47 4F 54 4F 20 32 30 30 30 20 0D 0A 37 32 30 :GOTO 2000 ..720
000080: 20 50 52 49 4E 54 20 22 4E 4F 54 20 42 41 44 2E PRINT "NOT BAD.
000090: 20 20 54 48 45 52 45 20 48 41 56 45 20 42 45 45 THERE HAVE BEE
0000A0: 4E 22 4B 22 53 55 43 43 45 53 53 46 55 4C 20 4A N"K"SUCCESSFUL J
0000B0: 55 4D 50 53 20 42 45 46 4F 52 45 20 59 4F 55 52 UMPS BEFORE YOUR
0000C0: 53 2E 22 20 0D 0A 37 32 31 20 50 52 49 4E 54 22 S." ..721 PRINT"
0000D0: 59 4F 55 20 57 45 52 45 20 42 45 41 54 45 4E 20 YOU WERE BEATEN
0000E0: 4F 55 54 20 42 59 22 4B 2D 4B 31 22 4F 46 20 54 OUT BY"K-K1"OF T
0000F0: 48 45 4D 2E 22 3A 47 4F 54 4F 20 32 30 30 30 20 HEM.":GOTO 2000
000100: 20 0D 0A 37 33 30 20 50 52 49 4E 54 20 22 43 4F ..730 PRINT "CO
000110: 4E 53 45 52 56 41 54 49 56 45 2C 20 41 52 45 4E NSERVATIVE, AREN
000120: 27 54 20 59 4F 55 3F 20 20 59 4F 55 20 52 41 4E 'T YOU? YOU RAN
000130: 4B 45 44 20 4F 4E 4C 59 22 4B 2D 4B 31 22 49 4E KED ONLY"K-K1"IN
000140: 20 54 48 45 22 0D 0A 37 33 31 20 50 52 49 4E 54 THE"..731 PRINT
000150: 20 4B 22 53 55 43 43 45 53 53 46 55 4C 20 4A 55 K"SUCCESSFUL JU
000160: 4D 50 53 20 42 45 46 4F 52 45 20 59 4F 55 52 53 MPS BEFORE YOURS
000170: 2E 22 3A 47 4F 54 4F 20 32 30 30 30 0D 0A 37 34 .":GOTO 2000..74
000180: 30 20 50 52 49 4E 54 20 22 48 55 4D 50 48 21 20 0 PRINT "HUMPH!
000190: 20 44 4F 4E 27 54 20 59 4F 55 20 48 41 56 45 20 DON'T YOU HAVE
0001A0: 41 4E 59 20 53 50 4F 52 54 49 4E 47 20 42 4C 4F ANY SPORTING BLO
0001B0: 4F 44 3F 20 20 54 48 45 52 45 20 57 45 52 45 22 OD? THERE WERE"
0001C0: 20 0D 0A 37 34 31 20 50 52 49 4E 54 20 4B 22 53 ..741 PRINT K"S
0001D0: 55 43 43 45 53 53 46 55 4C 20 4A 55 4D 50 53 20 UCCESSFUL JUMPS
0001E0: 42 45 46 4F 52 45 20 59 4F 55 52 53 20 41 4E 44 BEFORE YOURS AND
0001F0: 20 59 4F 55 20 43 41 4D 45 20 49 4E 22 4B 31 22 YOU CAME IN"K1"
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 59 4F 55 27 52 45 20 4F 4E 20 4A THEN YOU'RE ON J
000010: 55 50 49 54 45 52 2E 20 41 43 43 45 4C 45 52 41 UPITER. ACCELERA
000020: 54 49 4F 4E 3D 38 35 2E 32 20 46 54 2F 53 45 43 TION=85.2 FT/SEC
000030: 2F 53 45 43 2E 22 3A 47 4F 54 4F 20 31 36 36 0D /SEC.":GOTO 166.
000040: 0A 31 35 37 20 50 52 49 4E 54 22 46 49 4E 45 2E .157 PRINT"FINE.
000050: 20 59 4F 55 27 52 45 20 4F 4E 20 53 41 54 55 52 YOU'RE ON SATUR
000060: 4E 2E 20 41 43 43 45 4C 45 52 41 54 49 4F 4E 3D N. ACCELERATION=
000070: 33 37 2E 36 20 46 54 2F 53 45 43 2F 53 45 43 2E 37.6 FT/SEC/SEC.
000080: 22 3A 47 4F 54 4F 20 31 36 37 0D 0A 31 35 38 20 ":GOTO 167..158
000090: 50 52 49 4E 54 22 41 4C 4C 20 52 49 47 48 54 2E PRINT"ALL RIGHT.
0000A0: 20 59 4F 55 27 52 45 20 4F 4E 20 55 52 41 4E 55 YOU'RE ON URANU
0000B0: 53 2E 20 41 43 43 45 4C 45 52 41 54 49 4F 4E 3D S. ACCELERATION=
0000C0: 33 33 2E 38 20 46 54 2F 53 45 43 2F 53 45 43 2E 33.8 FT/SEC/SEC.
0000D0: 22 3A 47 4F 54 4F 20 31 36 38 20 0D 0A 31 35 39 ":GOTO 168 ..159
0000E0: 20 50 52 49 4E 54 22 54 48 45 4E 20 59 4F 55 27 PRINT"THEN YOU'
0000F0: 52 45 20 4F 4E 20 4E 45 50 54 55 4E 45 2E 20 41 RE ON NEPTUNE. A
000100: 43 43 45 4C 45 52 41 54 49 4F 4E 3D 33 39 2E 36 CCELERATION=39.6
000110: 20 46 54 2F 53 45 43 2F 53 45 43 2E 22 3A 47 4F FT/SEC/SEC.":GO
000120: 54 4F 20 31 36 39 0D 0A 31 36 30 20 50 52 49 4E TO 169..160 PRIN
000130: 54 22 46 49 4E 45 2E 20 59 4F 55 27 52 45 20 4F T"FINE. YOU'RE O
000140: 4E 20 54 48 45 20 53 55 4E 2E 20 41 43 43 45 4C N THE SUN. ACCEL
000150: 45 52 41 54 49 4F 4E 3D 38 39 36 20 46 54 2F 53 ERATION=896 FT/S
000160: 45 43 2F 53 45 43 2E 22 3A 47 4F 54 4F 20 31 37 EC/SEC.":GOTO 17
000170: 30 0D 0A 31 36 31 20 41 32 3D 31 32 2E 32 3A 47 0..161 A2=12.2:G
000180: 4F 54 4F 20 31 34 35 20 0D 0A 31 36 32 20 41 32 OTO 145 ..162 A2
000190: 3D 32 38 2E 33 3A 47 4F 54 4F 20 31 34 35 20 0D =28.3:GOTO 145 .
0001A0: 0A 31 36 33 20 41 32 3D 33 32 2E 31 36 3A 47 4F .163 A2=32.16:GO
0001B0: 54 4F 20 31 34 35 0D 0A 31 36 34 20 41 32 3D 35 TO 145..164 A2=5
0001C0: 2E 31 35 3A 47 4F 54 4F 20 31 34 35 20 0D 0A 31 .15:GOTO 145 ..1
0001D0: 36 35 20 41 32 3D 31 32 2E 35 3A 47 4F 54 4F 20 65 A2=12.5:GOTO
0001E0: 31 34 35 20 0D 0A 31 36 36 20 41 32 3D 38 35 2E 145 ..166 A2=85.
0001F0: 32 3A 47 4F 54 4F 20 31 34 35 20 0D 0A 31 36 37 2:GOTO 145 ..167
Size : 512 (Real : 512)
000000: 4A 55 4D 50 53 22 0D 0A 37 34 32 20 50 52 49 4E JUMPS"..742 PRIN
000010: 54 20 22 42 45 54 54 45 52 20 54 48 41 4E 20 54 T "BETTER THAN T
000020: 48 45 20 57 4F 52 53 54 2E 20 20 53 48 41 50 45 HE WORST. SHAPE
000030: 20 55 50 21 21 21 22 3A 47 4F 54 4F 20 32 30 30 UP!!!":GOTO 200
000040: 30 0D 0A 37 35 30 20 50 52 49 4E 54 20 22 48 45 0..750 PRINT "HE
000050: 59 21 20 20 59 4F 55 20 50 55 4C 4C 45 44 20 54 Y! YOU PULLED T
000060: 48 45 20 52 49 50 20 43 4F 52 44 20 4D 55 43 48 HE RIP CORD MUCH
000070: 20 54 4F 4F 20 53 4F 4F 4E 2E 20 20 22 4B 22 53 TOO SOON. "K"S
000080: 55 43 43 45 53 53 46 55 4C 22 0D 0A 37 35 31 20 UCCESSFUL"..751
000090: 50 52 49 4E 54 20 22 4A 55 4D 50 53 20 42 45 46 PRINT "JUMPS BEF
0000A0: 4F 52 45 20 59 4F 55 52 53 20 41 4E 44 20 59 4F ORE YOURS AND YO
0000B0: 55 20 43 41 4D 45 20 49 4E 20 4E 55 4D 42 45 52 U CAME IN NUMBER
0000C0: 22 4B 2D 4B 31 22 21 20 20 47 45 54 20 57 49 54 "K-K1"! GET WIT
0000D0: 48 20 49 54 21 22 20 0D 0A 37 35 32 20 47 4F 54 H IT!" ..752 GOT
0000E0: 4F 20 32 30 30 30 0D 0A 38 30 30 20 50 52 49 4E O 2000..800 PRIN
0000F0: 54 20 22 52 45 51 55 49 45 53 43 41 54 20 49 4E T "REQUIESCAT IN
000100: 20 50 41 43 45 2E 22 3A 47 4F 54 4F 20 31 39 35 PACE.":GOTO 195
000110: 30 0D 0A 38 30 31 20 50 52 49 4E 54 20 22 4D 41 0..801 PRINT "MA
000120: 59 20 54 48 45 20 41 4E 47 45 4C 20 4F 46 20 48 Y THE ANGEL OF H
000130: 45 41 56 45 4E 20 4C 45 41 44 20 59 4F 55 20 49 EAVEN LEAD YOU I
000140: 4E 54 4F 20 50 41 52 41 44 49 53 45 2E 22 3A 47 NTO PARADISE.":G
000150: 4F 54 4F 20 31 39 35 30 20 0D 0A 38 30 32 20 50 OTO 1950 ..802 P
000160: 52 49 4E 54 20 22 52 45 53 54 20 49 4E 20 50 45 RINT "REST IN PE
000170: 41 43 45 2E 22 3A 47 4F 54 4F 20 31 39 35 30 0D ACE.":GOTO 1950.
000180: 0A 38 30 33 20 50 52 49 4E 54 20 22 53 4F 4E 2D .803 PRINT "SON-
000190: 4F 46 2D 41 2D 47 55 4E 2E 22 3A 47 4F 54 4F 20 OF-A-GUN.":GOTO
0001A0: 31 39 35 30 20 0D 0A 38 30 34 20 50 52 49 4E 54 1950 ..804 PRINT
0001B0: 20 22 23 24 25 26 26 25 21 24 22 3A 47 4F 54 4F "#$%&&%!$":GOTO
0001C0: 20 31 39 35 30 20 0D 0A 38 30 35 20 50 52 49 4E 1950 ..805 PRIN
0001D0: 54 20 22 41 20 4B 49 43 4B 20 49 4E 20 54 48 45 T "A KICK IN THE
0001E0: 20 50 41 4E 54 53 20 49 53 20 41 20 42 4F 4F 53 PANTS IS A BOOS
0001F0: 54 20 49 46 20 59 4F 55 27 52 45 20 48 45 41 44 T IF YOU'RE HEAD
Size : 512 (Real : 512)
000000: 53 20 28 2A 29 2E 20 20 54 48 45 20 4D 4F 52 45 S (*). THE MORE
000010: 22 0D 0A 32 34 30 20 50 52 49 4E 54 20 22 53 54 "..240 PRINT "ST
000020: 41 52 53 20 49 20 54 59 50 45 2C 20 54 48 45 20 ARS I TYPE, THE
000030: 43 4C 4F 53 45 52 20 59 4F 55 20 41 52 45 20 54 CLOSER YOU ARE T
000040: 4F 20 4D 59 20 4E 55 4D 42 45 52 2E 22 0D 0A 32 O MY NUMBER."..2
000050: 35 30 20 50 52 49 4E 54 20 22 4F 4E 45 20 53 54 50 PRINT "ONE ST
000060: 41 52 20 28 2A 29 20 4D 45 41 4E 53 20 46 41 52 AR (*) MEANS FAR
000070: 20 41 57 41 59 2C 20 53 45 56 45 4E 20 53 54 41 AWAY, SEVEN STA
000080: 52 53 20 28 2A 2A 2A 2A 2A 2A 2A 29 22 0D 0A 32 RS (*******)"..2
000090: 36 30 20 50 52 49 4E 54 20 22 4D 45 41 4E 53 20 60 PRINT "MEANS
0000A0: 52 45 41 4C 4C 59 20 43 4C 4F 53 45 21 20 20 59 REALLY CLOSE! Y
0000B0: 4F 55 20 47 45 54 22 3B 4D 3B 22 47 55 45 53 53 OU GET";M;"GUESS
0000C0: 45 53 2E 22 0D 0A 32 37 30 20 52 45 4D 20 2A 2A ES."..270 REM **
0000D0: 2A 20 43 4F 4D 50 55 54 45 52 20 54 48 49 4E 4B * COMPUTER THINK
0000E0: 53 20 4F 46 20 41 20 4E 55 4D 42 45 52 0D 0A 32 S OF A NUMBER..2
0000F0: 38 30 20 50 52 49 4E 54 0D 0A 32 39 30 20 50 52 80 PRINT..290 PR
000100: 49 4E 54 0D 0A 33 30 30 20 58 3D 49 4E 54 28 41 INT..300 X=INT(A
000110: 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 33 31 30 20 *RND(1)+1)..310
000120: 50 52 49 4E 54 20 22 4F 4B 2C 20 49 20 41 4D 20 PRINT "OK, I AM
000130: 54 48 49 4E 4B 49 4E 47 20 4F 46 20 41 20 4E 55 THINKING OF A NU
000140: 4D 42 45 52 2C 20 53 54 41 52 54 20 47 55 45 53 MBER, START GUES
000150: 53 49 4E 47 2E 22 0D 0A 33 32 30 20 52 45 4D 20 SING."..320 REM
000160: 2A 2A 2A 20 47 55 45 53 53 49 4E 47 20 42 45 47 *** GUESSING BEG
000170: 49 4E 53 2C 20 48 55 4D 41 4E 20 47 45 54 53 20 INS, HUMAN GETS
000180: 4D 20 47 55 45 53 53 45 53 0D 0A 33 33 30 20 46 M GUESSES..330 F
000190: 4F 52 20 4B 3D 31 20 54 4F 20 4D 0D 0A 33 34 30 OR K=1 TO M..340
0001A0: 20 50 52 49 4E 54 0D 0A 33 35 30 20 50 52 49 4E PRINT..350 PRIN
0001B0: 54 20 22 59 4F 55 52 20 47 55 45 53 53 22 3B 0D T "YOUR GUESS";.
0001C0: 0A 33 36 30 20 49 4E 50 55 54 20 47 0D 0A 33 37 .360 INPUT G..37
0001D0: 30 20 49 46 20 47 3D 58 20 54 48 45 4E 20 36 30 0 IF G=X THEN 60
0001E0: 30 0D 0A 33 38 30 20 44 3D 41 42 53 28 47 2D 58 0..380 D=ABS(G-X
0001F0: 29 0D 0A 33 39 30 20 49 46 20 44 3E 3D 36 34 20 )..390 IF D>=64
Size : 512 (Real : 512)
000000: 45 44 20 52 49 47 48 54 2E 22 3A 47 4F 54 4F 20 ED RIGHT.":GOTO
000010: 31 39 35 30 0D 0A 38 30 36 20 50 52 49 4E 54 20 1950..806 PRINT
000020: 22 48 4D 4D 4D 2E 20 53 48 4F 55 4C 44 20 48 41 "HMMM. SHOULD HA
000030: 56 45 20 50 49 43 4B 45 44 20 41 20 53 48 4F 52 VE PICKED A SHOR
000040: 54 45 52 20 54 49 4D 45 2E 22 3A 47 4F 54 4F 20 TER TIME.":GOTO
000050: 31 39 35 30 20 0D 0A 38 30 37 20 50 52 49 4E 54 1950 ..807 PRINT
000060: 20 22 4D 55 54 54 45 52 2E 20 4D 55 54 54 45 52 "MUTTER. MUTTER
000070: 2E 20 4D 55 54 54 45 52 2E 22 3A 47 4F 54 4F 20 . MUTTER.":GOTO
000080: 31 39 35 30 0D 0A 38 30 38 20 50 52 49 4E 54 20 1950..808 PRINT
000090: 22 50 55 53 48 49 4E 47 20 55 50 20 44 41 49 53 "PUSHING UP DAIS
0000A0: 49 45 53 2E 22 3A 47 4F 54 4F 20 31 39 35 30 20 IES.":GOTO 1950
0000B0: 0D 0A 38 30 39 20 50 52 49 4E 54 20 22 45 41 53 ..809 PRINT "EAS
0000C0: 59 20 43 4F 4D 45 2C 20 45 41 53 59 20 47 4F 2E Y COME, EASY GO.
0000D0: 22 3A 47 4F 54 4F 20 31 39 35 30 20 20 0D 0A 31 ":GOTO 1950 ..1
0000E0: 30 30 30 20 50 52 49 4E 54 20 53 51 52 28 32 2A 000 PRINT SQR(2*
0000F0: 44 31 2F 41 29 2C 22 53 50 4C 41 54 22 0D 0A 31 D1/A),"SPLAT"..1
000100: 30 30 35 20 4F 4E 20 49 4E 54 28 31 2B 28 31 30 005 ON INT(1+(10
000110: 2A 52 4E 44 28 31 29 29 29 47 4F 54 4F 20 38 30 *RND(1)))GOTO 80
000120: 30 2C 38 30 31 2C 38 30 32 2C 38 30 33 2C 38 30 0,801,802,803,80
000130: 34 2C 38 30 35 2C 38 30 36 2C 38 30 37 2C 38 30 4,805,806,807,80
000140: 38 2C 38 30 39 0D 0A 31 30 31 30 20 50 52 49 4E 8,809..1010 PRIN
000150: 54 20 28 56 2F 41 29 2B 28 28 44 31 2D 28 56 5E T (V/A)+((D1-(V^
000160: 32 2F 28 32 2A 41 29 29 29 2F 56 29 2C 22 53 50 2/(2*A)))/V),"SP
000170: 4C 41 54 22 0D 0A 31 30 32 30 20 47 4F 54 4F 20 LAT"..1020 GOTO
000180: 31 30 30 35 0D 0A 31 39 35 30 20 50 52 49 4E 54 1005..1950 PRINT
000190: 20 22 49 27 4C 4C 20 47 49 56 45 20 59 4F 55 20 "I'LL GIVE YOU
0001A0: 41 4E 4F 54 48 45 52 20 43 48 41 4E 43 45 2E 22 ANOTHER CHANCE."
0001B0: 3A 47 4F 54 4F 20 32 30 30 30 0D 0A 32 30 30 30 :GOTO 2000..2000
0001C0: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
0001D0: 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 41 49 ANT TO PLAY AGAI
0001E0: 4E 22 3B 3A 49 4E 50 55 54 20 5A 24 20 20 0D 0A N";:INPUT Z$ ..
0001F0: 32 30 30 31 20 49 46 20 5A 24 3D 22 59 45 53 22 2001 IF Z$="YES"
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 35 31 30 0D 0A 34 30 30 20 49 46 THEN 510..400 IF
000010: 20 44 3E 3D 33 32 20 54 48 45 4E 20 35 30 30 0D D>=32 THEN 500.
000020: 0A 34 31 30 20 49 46 20 44 3E 3D 31 36 20 54 48 .410 IF D>=16 TH
000030: 45 4E 20 34 39 30 0D 0A 34 32 30 20 49 46 20 44 EN 490..420 IF D
000040: 3E 3D 38 20 54 48 45 4E 20 34 38 30 0D 0A 34 33 >=8 THEN 480..43
000050: 30 20 49 46 20 44 3E 3D 34 20 54 48 45 4E 20 34 0 IF D>=4 THEN 4
000060: 37 30 0D 0A 34 34 30 20 49 46 20 44 3E 3D 32 20 70..440 IF D>=2
000070: 54 48 45 4E 20 34 36 30 0D 0A 34 35 30 20 50 52 THEN 460..450 PR
000080: 49 4E 54 20 22 2A 22 3B 0D 0A 34 36 30 20 50 52 INT "*";..460 PR
000090: 49 4E 54 20 22 2A 22 3B 0D 0A 34 37 30 20 50 52 INT "*";..470 PR
0000A0: 49 4E 54 20 22 2A 22 3B 0D 0A 34 38 30 20 50 52 INT "*";..480 PR
0000B0: 49 4E 54 20 22 2A 22 3B 0D 0A 34 39 30 20 50 52 INT "*";..490 PR
0000C0: 49 4E 54 20 22 2A 22 3B 0D 0A 35 30 30 20 50 52 INT "*";..500 PR
0000D0: 49 4E 54 20 22 2A 22 3B 0D 0A 35 31 30 20 50 52 INT "*";..510 PR
0000E0: 49 4E 54 20 22 2A 22 3B 0D 0A 35 32 30 20 50 52 INT "*";..520 PR
0000F0: 49 4E 54 0D 0A 35 33 30 20 4E 45 58 54 20 4B 0D INT..530 NEXT K.
000100: 0A 35 34 30 20 52 45 4D 20 2A 2A 2A 20 44 49 44 .540 REM *** DID
000110: 20 4E 4F 54 20 47 55 45 53 53 20 49 4E 20 4D 20 NOT GUESS IN M
000120: 47 55 45 53 53 45 53 0D 0A 35 35 30 20 50 52 49 GUESSES..550 PRI
000130: 4E 54 20 0D 0A 35 36 30 20 50 52 49 4E 54 20 22 NT ..560 PRINT "
000140: 53 4F 52 52 59 2C 20 54 48 41 54 27 53 22 3B 4D SORRY, THAT'S";M
000150: 3B 22 47 55 45 53 53 45 53 2E 20 54 48 45 20 4E ;"GUESSES. THE N
000160: 55 4D 42 45 52 20 57 41 53 22 3B 58 0D 0A 35 38 UMBER WAS";X..58
000170: 30 20 47 4F 54 4F 20 36 35 30 0D 0A 35 39 30 20 0 GOTO 650..590
000180: 52 45 4D 20 2A 2A 2A 20 57 45 20 48 41 56 45 20 REM *** WE HAVE
000190: 41 20 57 49 4E 4E 45 52 0D 0A 36 30 30 20 50 52 A WINNER..600 PR
0001A0: 49 4E 54 3A 46 4F 52 20 4E 3D 31 20 54 4F 20 37 INT:FOR N=1 TO 7
0001B0: 39 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 2A 22 9..610 PRINT "*"
0001C0: 3B 0D 0A 36 32 30 20 4E 45 58 54 20 4E 0D 0A 36 ;..620 NEXT N..6
0001D0: 33 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 30 PRINT:PRINT..
0001E0: 36 34 30 20 50 52 49 4E 54 20 22 59 4F 55 20 47 640 PRINT "YOU G
0001F0: 4F 54 20 49 54 20 49 4E 22 3B 4B 3B 22 47 55 45 OT IT IN";K;"GUE
Size : 512 (Real : 512)
000000: 20 54 48 45 4E 20 31 31 38 0D 0A 32 30 30 32 20 THEN 118..2002
000010: 49 46 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF Z$="NO" THEN
000020: 32 30 30 35 0D 0A 32 30 30 33 20 50 52 49 4E 54 2005..2003 PRINT
000030: 20 22 59 45 53 20 4F 52 20 4E 4F 22 3A 47 4F 54 "YES OR NO":GOT
000040: 4F 20 32 30 30 30 0D 0A 32 30 30 35 20 50 52 49 O 2000..2005 PRI
000050: 4E 54 20 22 50 4C 45 41 53 45 22 3B 3A 49 4E 50 NT "PLEASE";:INP
000060: 55 54 20 5A 24 3A 49 46 20 5A 24 3D 22 59 45 53 UT Z$:IF Z$="YES
000070: 22 20 54 48 45 4E 20 31 31 38 0D 0A 32 30 30 36 " THEN 118..2006
000080: 20 49 46 20 5A 24 3C 3E 22 4E 4F 22 20 54 48 45 IF Z$<>"NO" THE
000090: 4E 20 50 52 49 4E 54 20 22 59 45 53 20 4F 52 20 N PRINT "YES OR
0000A0: 4E 4F 20 22 3B 3A 47 4F 54 4F 20 32 30 30 35 0D NO ";:GOTO 2005.
0000B0: 0A 32 30 30 37 20 50 52 49 4E 54 20 22 53 53 53 .2007 PRINT "SSS
0000C0: 53 53 53 53 53 53 53 2E 22 3A 50 52 49 4E 54 3A SSSSSSS.":PRINT:
0000D0: 47 4F 54 4F 20 32 30 34 36 0D 0A 32 30 34 36 20 GOTO 2046..2046
0000E0: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 53 53 45 53 21 21 21 20 20 4C 45 54 27 53 20 50 SSES!!! LET'S P
000010: 4C 41 59 20 41 47 41 49 4E 2E 2E 2E 22 0D 0A 36 LAY AGAIN..."..6
000020: 35 30 20 47 4F 54 4F 20 32 38 30 0D 0A 36 36 30 50 GOTO 280..660
000030: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
000010: 3B 22 53 54 4F 43 4B 20 4D 41 52 4B 45 54 22 0D ;"STOCK MARKET".
000020: 0A 32 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 .20 PRINT TAB(15
000030: 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 );"CREATIVE COMP
000040: 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 UTING MORRISTOW
000050: 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A N, NEW JERSEY"..
000060: 33 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 30 PRINT: PRINT:
000070: 20 50 52 49 4E 54 0D 0A 31 30 30 20 52 45 4D 20 PRINT..100 REM
000080: 53 54 4F 43 4B 20 4D 41 52 4B 45 54 20 53 49 4D STOCK MARKET SIM
000090: 55 4C 41 54 49 4F 4E 20 20 20 20 20 2D 53 54 4F ULATION -STO
0000A0: 43 4B 2D 0D 0A 31 30 31 20 52 45 4D 20 52 45 56 CK-..101 REM REV
0000B0: 49 53 45 44 20 38 2F 31 38 2F 37 30 20 28 44 2E ISED 8/18/70 (D.
0000C0: 20 50 45 53 53 45 4C 2C 20 4C 2E 20 42 52 41 55 PESSEL, L. BRAU
0000D0: 4E 2C 20 43 2E 20 4C 4F 53 49 4B 29 20 20 0D 0A N, C. LOSIK) ..
0000E0: 31 30 32 20 52 45 4D 20 49 4D 50 20 56 52 42 4C 102 REM IMP VRBL
0000F0: 53 3A 20 41 2D 4D 52 4B 54 20 54 52 4E 44 20 53 S: A-MRKT TRND S
000100: 4C 50 3B 20 42 35 2D 42 52 4B 52 47 45 20 46 45 LP; B5-BRKRGE FE
000110: 45 3B 20 43 2D 54 54 4C 20 43 53 48 20 41 53 53 E; C-TTL CSH ASS
000120: 54 53 3B 20 20 20 20 0D 0A 31 30 33 20 52 45 4D TS; ..103 REM
000130: 20 43 35 2D 54 54 4C 20 43 53 48 20 41 53 53 54 C5-TTL CSH ASST
000140: 53 20 28 54 45 4D 50 29 3B 20 43 28 49 29 2D 43 S (TEMP); C(I)-C
000150: 48 4E 47 20 49 4E 20 53 54 4B 20 56 41 4C 3B 20 HNG IN STK VAL;
000160: 44 2D 54 54 4C 20 41 53 53 54 53 3B 0D 0A 31 30 D-TTL ASSTS;..10
000170: 34 20 52 45 4D 20 45 31 2C 45 32 2D 4C 52 47 20 4 REM E1,E2-LRG
000180: 43 48 4E 47 20 4D 49 53 43 3B 20 49 2D 53 54 43 CHNG MISC; I-STC
000190: 4B 20 23 3B 20 49 31 2C 49 32 2D 53 54 43 4B 53 K #; I1,I2-STCKS
0001A0: 20 57 20 4C 52 47 20 43 48 4E 47 3B 20 0D 0A 31 W LRG CHNG; ..1
0001B0: 30 35 20 52 45 4D 20 4E 31 2C 4E 32 2D 4C 52 47 05 REM N1,N2-LRG
0001C0: 20 43 48 4E 47 20 44 41 59 20 43 4E 54 53 3B 20 CHNG DAY CNTS;
0001D0: 50 35 2D 54 54 4C 20 44 41 59 53 20 50 52 43 48 P5-TTL DAYS PRCH
0001E0: 53 53 3B 20 50 28 49 29 2D 50 52 54 46 4C 20 43 SS; P(I)-PRTFL C
0001F0: 4E 54 4E 54 53 3B 0D 0A 31 30 36 20 52 45 4D 20 NTNTS;..106 REM
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
000010: 3B 22 53 54 41 52 53 22 0D 0A 32 30 20 50 52 49 ;"STARS"..20 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
000060: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 T:PRINT:PRINT..1
000070: 30 30 20 52 45 4D 20 2A 2A 2A 20 53 54 41 52 53 00 REM *** STARS
000080: 20 2D 20 50 45 4F 50 4C 45 27 53 20 43 4F 4D 50 - PEOPLE'S COMP
000090: 55 54 45 52 20 43 45 4E 54 45 52 2C 20 4D 45 4E UTER CENTER, MEN
0000A0: 4C 4F 20 50 41 52 4B 2C 20 43 41 0D 0A 31 34 30 LO PARK, CA..140
0000B0: 20 52 45 4D 20 2A 2A 2A 20 41 20 49 53 20 4C 49 REM *** A IS LI
0000C0: 4D 49 54 20 4F 4E 20 4E 55 4D 42 45 52 2C 20 4D MIT ON NUMBER, M
0000D0: 20 49 53 20 4E 55 4D 42 45 52 20 4F 46 20 47 55 IS NUMBER OF GU
0000E0: 45 53 53 45 53 0D 0A 31 35 30 20 41 3D 31 30 30 ESSES..150 A=100
0000F0: 3A 4D 3D 37 0D 0A 31 37 30 20 49 4E 50 55 54 20 :M=7..170 INPUT
000100: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 "DO YOU WANT INS
000110: 54 52 55 43 54 49 4F 4E 53 22 3B 41 24 0D 0A 31 TRUCTIONS";A$..1
000120: 39 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 31 90 IF LEFT$(A$,1
000130: 29 3D 22 4E 22 20 54 48 45 4E 20 32 38 30 0D 0A )="N" THEN 280..
000140: 32 30 30 20 52 45 4D 20 2A 2A 2A 20 49 4E 53 54 200 REM *** INST
000150: 52 55 43 54 49 4F 4E 53 20 4F 4E 20 48 4F 57 20 RUCTIONS ON HOW
000160: 54 4F 20 50 4C 41 59 0D 0A 32 31 30 20 50 52 49 TO PLAY..210 PRI
000170: 4E 54 20 22 49 20 41 4D 20 54 48 49 4E 4B 49 4E NT "I AM THINKIN
000180: 47 20 4F 46 20 41 20 57 48 4F 4C 45 20 4E 55 4D G OF A WHOLE NUM
000190: 42 45 52 20 46 52 4F 4D 20 31 20 54 4F 22 3B 41 BER FROM 1 TO";A
0001A0: 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 54 52 59 ..220 PRINT "TRY
0001B0: 20 54 4F 20 47 55 45 53 53 20 4D 59 20 4E 55 4D TO GUESS MY NUM
0001C0: 42 45 52 2E 20 20 41 46 54 45 52 20 59 4F 55 20 BER. AFTER YOU
0001D0: 47 55 45 53 53 2C 20 49 22 0D 0A 32 33 30 20 50 GUESS, I"..230 P
0001E0: 52 49 4E 54 20 22 57 49 4C 4C 20 54 59 50 45 20 RINT "WILL TYPE
0001F0: 4F 4E 45 20 4F 52 20 4D 4F 52 45 20 53 54 41 52 ONE OR MORE STAR
Size : 512 (Real : 512)
000000: 51 39 2D 4E 45 57 20 43 59 43 4C 3F 3B 20 53 34 Q9-NEW CYCL?; S4
000010: 2D 53 47 4E 20 4F 46 20 41 3B 20 53 35 2D 54 54 -SGN OF A; S5-TT
000020: 4C 20 44 59 53 20 53 4C 53 3B 20 53 28 49 29 2D L DYS SLS; S(I)-
000030: 56 41 4C 55 45 2F 53 48 52 3B 20 0D 0A 31 30 37 VALUE/SHR; ..107
000040: 20 52 45 4D 20 54 2D 54 54 4C 20 53 54 43 4B 20 REM T-TTL STCK
000050: 41 53 53 54 53 3B 20 54 35 2D 54 54 4C 20 56 41 ASSTS; T5-TTL VA
000060: 4C 20 4F 46 20 54 52 4E 53 43 54 4E 53 3B 0D 0A L OF TRNSCTNS;..
000070: 31 30 38 20 52 45 4D 20 57 33 2D 4C 52 47 20 43 108 REM W3-LRG C
000080: 48 4E 47 3B 20 58 31 2D 53 4D 4C 4C 20 43 48 4E HNG; X1-SMLL CHN
000090: 47 28 3C 24 31 29 3B 20 5A 34 2C 5A 35 2C 5A 36 G(<$1); Z4,Z5,Z6
0000A0: 2D 4E 59 53 45 20 41 56 45 2E 3B 20 5A 28 49 29 -NYSE AVE.; Z(I)
0000B0: 2D 54 52 4E 53 43 54 0D 0A 31 31 30 20 44 49 4D -TRNSCT..110 DIM
0000C0: 20 53 28 35 29 2C 50 28 35 29 2C 5A 28 35 29 2C S(5),P(5),Z(5),
0000D0: 43 28 35 29 20 0D 0A 31 31 32 20 52 45 4D 20 53 C(5) ..112 REM S
0000E0: 4C 4F 50 45 20 4F 46 20 4D 41 52 4B 45 54 20 54 LOPE OF MARKET T
0000F0: 52 45 4E 44 3A 41 20 20 28 53 41 4D 45 20 46 4F REND:A (SAME FO
000100: 52 20 41 4C 4C 20 53 54 4F 43 4B 53 29 20 0D 0A R ALL STOCKS) ..
000110: 31 31 33 20 4C 45 54 20 58 3D 31 0D 0A 31 31 34 113 LET X=1..114
000120: 20 4C 45 54 20 41 3D 49 4E 54 28 28 52 4E 44 28 LET A=INT((RND(
000130: 58 29 2F 31 30 29 2A 31 30 30 2B 2E 35 29 2F 31 X)/10)*100+.5)/1
000140: 30 30 20 0D 0A 31 31 35 20 4C 45 54 20 54 35 3D 00 ..115 LET T5=
000150: 30 0D 0A 31 31 36 20 4C 45 54 20 58 39 3D 30 0D 0..116 LET X9=0.
000160: 0A 31 31 37 20 4C 45 54 20 4E 31 3D 30 0D 0A 31 .117 LET N1=0..1
000170: 31 38 20 4C 45 54 20 4E 32 3D 30 0D 0A 31 31 39 18 LET N2=0..119
000180: 20 4C 45 54 20 45 31 3D 30 0D 0A 31 32 30 20 4C LET E1=0..120 L
000190: 45 54 20 45 32 3D 30 0D 0A 31 32 31 20 52 45 4D ET E2=0..121 REM
0001A0: 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 0D 0A INTRODUCTION ..
0001B0: 31 32 32 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 122 PRINT "DO YO
0001C0: 55 20 57 41 4E 54 20 54 48 45 20 49 4E 53 54 52 U WANT THE INSTR
0001D0: 55 43 54 49 4F 4E 53 20 28 59 45 53 2D 54 59 50 UCTIONS (YES-TYP
0001E0: 45 20 31 2C 20 4E 4F 2D 54 59 50 45 20 30 29 22 E 1, NO-TYPE 0)"
0001F0: 3B 20 0D 0A 31 32 33 20 49 4E 50 55 54 20 5A 39 ; ..123 INPUT Z9
Size : 512 (Real : 512)
000000: 4E 45 54 20 43 48 41 4E 47 45 3A 5A 36 20 0D 0A NET CHANGE:Z6 ..
000010: 33 36 33 20 4C 45 54 20 5A 34 3D 5A 35 20 0D 0A 363 LET Z4=Z5 ..
000020: 33 36 34 20 4C 45 54 20 5A 35 3D 30 0D 0A 33 36 364 LET Z5=0..36
000030: 35 20 4C 45 54 20 54 3D 30 20 0D 0A 33 37 30 20 5 LET T=0 ..370
000040: 46 4F 52 20 49 3D 31 20 54 4F 20 35 0D 0A 33 37 FOR I=1 TO 5..37
000050: 35 20 4C 45 54 20 5A 35 3D 5A 35 2B 53 28 49 29 5 LET Z5=Z5+S(I)
000060: 0D 0A 33 38 30 20 4C 45 54 20 54 3D 54 2B 53 28 ..380 LET T=T+S(
000070: 49 29 2A 50 28 49 29 20 0D 0A 33 39 30 20 4E 45 I)*P(I) ..390 NE
000080: 58 54 20 49 0D 0A 33 39 31 20 4C 45 54 20 5A 35 XT I..391 LET Z5
000090: 3D 49 4E 54 28 31 30 30 2A 28 5A 35 2F 35 29 2B =INT(100*(Z5/5)+
0000A0: 2E 35 29 2F 31 30 30 20 0D 0A 33 39 32 20 4C 45 .5)/100 ..392 LE
0000B0: 54 20 5A 36 3D 49 4E 54 28 28 5A 35 2D 5A 34 29 T Z6=INT((Z5-Z4)
0000C0: 2A 31 30 30 2B 2E 35 29 2F 31 30 30 0D 0A 33 39 *100+.5)/100..39
0000D0: 33 20 52 45 4D 20 54 4F 54 41 4C 20 41 53 53 45 3 REM TOTAL ASSE
0000E0: 54 53 3A 44 20 0D 0A 33 39 34 20 4C 45 54 20 44 TS:D ..394 LET D
0000F0: 3D 54 2B 43 20 0D 0A 33 39 35 20 49 46 20 58 39 =T+C ..395 IF X9
000100: 3E 30 20 54 48 45 4E 20 33 39 38 0D 0A 33 39 36 >0 THEN 398..396
000110: 20 50 52 49 4E 54 20 22 4E 45 57 20 59 4F 52 4B PRINT "NEW YORK
000120: 20 53 54 4F 43 4B 20 45 58 43 48 41 4E 47 45 20 STOCK EXCHANGE
000130: 41 56 45 52 41 47 45 3A 20 22 5A 35 20 0D 0A 33 AVERAGE: "Z5 ..3
000140: 39 37 20 47 4F 54 4F 20 33 39 39 20 0D 0A 33 39 97 GOTO 399 ..39
000150: 38 20 50 52 49 4E 54 20 22 4E 45 57 20 59 4F 52 8 PRINT "NEW YOR
000160: 4B 20 53 54 4F 43 4B 20 45 58 43 48 41 4E 47 45 K STOCK EXCHANGE
000170: 20 41 56 45 52 41 47 45 3A 20 22 5A 35 22 4E 45 AVERAGE: "Z5"NE
000180: 54 20 43 48 41 4E 47 45 22 5A 36 0D 0A 33 39 39 T CHANGE"Z6..399
000190: 20 50 52 49 4E 54 20 0D 0A 34 30 30 20 4C 45 54 PRINT ..400 LET
0001A0: 20 54 3D 49 4E 54 28 31 30 30 2A 54 2B 2E 35 29 T=INT(100*T+.5)
0001B0: 2F 31 30 30 20 0D 0A 34 30 31 20 50 52 49 4E 54 /100 ..401 PRINT
0001C0: 20 22 54 4F 54 41 4C 20 53 54 4F 43 4B 20 41 53 "TOTAL STOCK AS
0001D0: 53 45 54 53 20 41 52 45 20 20 20 24 22 3B 54 0D SETS ARE $";T.
0001E0: 0A 34 30 33 20 4C 45 54 20 43 3D 49 4E 54 28 31 .403 LET C=INT(1
0001F0: 30 30 2A 43 2B 2E 35 29 2F 31 30 30 20 0D 0A 34 00*C+.5)/100 ..4
Size : 512 (Real : 512)
000000: 0D 0A 31 32 34 20 50 52 49 4E 54 20 0D 0A 31 32 ..124 PRINT ..12
000010: 35 20 50 52 49 4E 54 20 0D 0A 31 32 36 20 49 46 5 PRINT ..126 IF
000020: 20 5A 39 3C 31 20 54 48 45 4E 20 32 30 30 0D 0A Z9<1 THEN 200..
000030: 31 33 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 130 PRINT "THIS
000040: 50 52 4F 47 52 41 4D 20 50 4C 41 59 53 20 54 48 PROGRAM PLAYS TH
000050: 45 20 53 54 4F 43 4B 20 4D 41 52 4B 45 54 2E 20 E STOCK MARKET.
000060: 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 47 49 56 YOU WILL BE GIV
000070: 45 4E 22 20 0D 0A 31 33 32 20 50 52 49 4E 54 20 EN" ..132 PRINT
000080: 22 24 31 30 2C 30 30 30 20 41 4E 44 20 4D 41 59 "$10,000 AND MAY
000090: 20 42 55 59 20 4F 52 20 53 45 4C 4C 20 53 54 4F BUY OR SELL STO
0000A0: 43 4B 53 2E 20 20 54 48 45 20 53 54 4F 43 4B 20 CKS. THE STOCK
0000B0: 50 52 49 43 45 53 20 57 49 4C 4C 22 0D 0A 31 33 PRICES WILL"..13
0000C0: 34 20 50 52 49 4E 54 20 22 42 45 20 47 45 4E 45 4 PRINT "BE GENE
0000D0: 52 41 54 45 44 20 52 41 4E 44 4F 4D 4C 59 20 41 RATED RANDOMLY A
0000E0: 4E 44 20 54 48 45 52 45 46 4F 52 45 20 54 48 49 ND THEREFORE THI
0000F0: 53 20 4D 4F 44 45 4C 20 44 4F 45 53 20 4E 4F 54 S MODEL DOES NOT
000100: 22 20 0D 0A 31 33 35 20 50 52 49 4E 54 20 22 52 " ..135 PRINT "R
000110: 45 50 52 45 53 45 4E 54 20 45 58 41 43 54 4C 59 EPRESENT EXACTLY
000120: 20 57 48 41 54 20 48 41 50 50 45 4E 53 20 4F 4E WHAT HAPPENS ON
000130: 20 54 48 45 20 45 58 43 48 41 4E 47 45 2E 20 20 THE EXCHANGE.
000140: 41 20 54 41 42 4C 45 22 0D 0A 31 33 36 20 50 52 A TABLE"..136 PR
000150: 49 4E 54 20 22 4F 46 20 41 56 41 49 4C 41 42 4C INT "OF AVAILABL
000160: 45 20 53 54 4F 43 4B 53 2C 20 54 48 45 49 52 20 E STOCKS, THEIR
000170: 50 52 49 43 45 53 2C 20 41 4E 44 20 54 48 45 20 PRICES, AND THE
000180: 4E 55 4D 42 45 52 20 4F 46 20 53 48 41 52 45 53 NUMBER OF SHARES
000190: 22 0D 0A 31 33 37 20 50 52 49 4E 54 20 22 49 4E "..137 PRINT "IN
0001A0: 20 59 4F 55 52 20 50 4F 52 54 46 4F 4C 49 4F 20 YOUR PORTFOLIO
0001B0: 57 49 4C 4C 20 42 45 20 50 52 49 4E 54 45 44 2E WILL BE PRINTED.
0001C0: 20 20 46 4F 4C 4C 4F 57 49 4E 47 20 54 48 49 53 FOLLOWING THIS
0001D0: 2C 20 54 48 45 22 20 0D 0A 31 33 38 20 50 52 49 , THE" ..138 PRI
0001E0: 4E 54 20 22 49 4E 49 54 49 41 4C 53 20 4F 46 20 NT "INITIALS OF
0001F0: 45 41 43 48 20 53 54 4F 43 4B 20 57 49 4C 4C 20 EACH STOCK WILL
Size : 512 (Real : 512)
000000: 30 35 20 50 52 49 4E 54 20 22 54 4F 54 41 4C 20 05 PRINT "TOTAL
000010: 43 41 53 48 20 41 53 53 45 54 53 20 41 52 45 20 CASH ASSETS ARE
000020: 20 20 20 24 22 3B 43 0D 0A 34 30 37 20 4C 45 54 $";C..407 LET
000030: 20 44 3D 49 4E 54 28 31 30 30 2A 44 2B 2E 35 29 D=INT(100*D+.5)
000040: 2F 31 30 30 20 0D 0A 34 30 38 20 50 52 49 4E 54 /100 ..408 PRINT
000050: 20 22 54 4F 54 41 4C 20 41 53 53 45 54 53 20 41 "TOTAL ASSETS A
000060: 52 45 20 20 20 20 20 20 20 20 20 24 22 3B 44 0D RE $";D.
000070: 0A 34 31 30 20 50 52 49 4E 54 20 0D 0A 34 31 31 .410 PRINT ..411
000080: 20 49 46 20 58 39 3D 30 20 54 48 45 4E 20 34 31 IF X9=0 THEN 41
000090: 36 0D 0A 34 31 32 20 50 52 49 4E 54 20 22 44 4F 6..412 PRINT "DO
0000A0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 43 4F 4E YOU WISH TO CON
0000B0: 54 49 4E 55 45 20 28 59 45 53 2D 54 59 50 45 20 TINUE (YES-TYPE
0000C0: 31 2C 20 4E 4F 2D 54 59 50 45 20 30 29 22 3B 0D 1, NO-TYPE 0)";.
0000D0: 0A 34 31 33 20 49 4E 50 55 54 20 51 39 0D 0A 34 .413 INPUT Q9..4
0000E0: 31 34 20 49 46 20 51 39 3C 31 20 54 48 45 4E 20 14 IF Q9<1 THEN
0000F0: 39 39 38 0D 0A 34 31 36 20 52 45 4D 20 49 4E 50 998..416 REM INP
000100: 55 54 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 20 UT TRANSACTIONS
000110: 0D 0A 34 32 30 20 50 52 49 4E 54 20 22 57 48 41 ..420 PRINT "WHA
000120: 54 20 49 53 20 59 4F 55 52 20 54 52 41 4E 53 41 T IS YOUR TRANSA
000130: 43 54 49 4F 4E 20 49 4E 22 20 0D 0A 34 33 30 20 CTION IN" ..430
000140: 50 52 49 4E 54 20 22 49 42 4D 22 3B 0D 0A 34 34 PRINT "IBM";..44
000150: 30 20 49 4E 50 55 54 20 5A 28 31 29 0D 0A 34 35 0 INPUT Z(1)..45
000160: 30 20 50 52 49 4E 54 20 22 52 43 41 22 3B 0D 0A 0 PRINT "RCA";..
000170: 34 36 30 20 49 4E 50 55 54 20 5A 28 32 29 0D 0A 460 INPUT Z(2)..
000180: 34 37 30 20 50 52 49 4E 54 20 22 4C 42 4A 22 3B 470 PRINT "LBJ";
000190: 0D 0A 34 38 30 20 49 4E 50 55 54 20 5A 28 33 29 ..480 INPUT Z(3)
0001A0: 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 41 42 43 ..490 PRINT "ABC
0001B0: 22 3B 0D 0A 35 30 30 20 49 4E 50 55 54 20 5A 28 ";..500 INPUT Z(
0001C0: 34 29 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 43 4)..510 PRINT "C
0001D0: 42 53 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 BS";..520 INPUT
0001E0: 5A 28 35 29 0D 0A 35 32 35 20 50 52 49 4E 54 20 Z(5)..525 PRINT
0001F0: 0D 0A 35 33 30 20 52 45 4D 20 54 4F 54 41 4C 20 ..530 REM TOTAL
Size : 512 (Real : 512)
000000: 42 45 20 50 52 49 4E 54 45 44 20 57 49 54 48 20 BE PRINTED WITH
000010: 41 20 51 55 45 53 54 49 4F 4E 22 0D 0A 31 33 39 A QUESTION"..139
000020: 20 50 52 49 4E 54 20 22 4D 41 52 4B 2E 20 20 48 PRINT "MARK. H
000030: 45 52 45 20 59 4F 55 20 49 4E 44 49 43 41 54 45 ERE YOU INDICATE
000040: 20 41 20 54 52 41 4E 53 41 43 54 49 4F 4E 2E 20 A TRANSACTION.
000050: 20 54 4F 20 42 55 59 20 41 20 53 54 4F 43 4B 22 TO BUY A STOCK"
000060: 20 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 54 59 ..140 PRINT "TY
000070: 50 45 20 2B 4E 4E 4E 2C 20 54 4F 20 53 45 4C 4C PE +NNN, TO SELL
000080: 20 41 20 53 54 4F 43 4B 20 54 59 50 45 20 2D 4E A STOCK TYPE -N
000090: 4E 4E 2C 20 57 48 45 52 45 20 4E 4E 4E 20 49 53 NN, WHERE NNN IS
0000A0: 20 54 48 45 22 20 20 0D 0A 31 34 31 20 50 52 49 THE" ..141 PRI
0000B0: 4E 54 20 22 4E 55 4D 42 45 52 20 4F 46 20 53 48 NT "NUMBER OF SH
0000C0: 41 52 45 53 2E 20 20 41 20 42 52 4F 4B 45 52 41 ARES. A BROKERA
0000D0: 47 45 20 46 45 45 20 4F 46 20 31 25 20 57 49 4C GE FEE OF 1% WIL
0000E0: 4C 20 42 45 20 43 48 41 52 47 45 44 22 0D 0A 31 L BE CHARGED"..1
0000F0: 34 32 20 50 52 49 4E 54 20 22 4F 4E 20 41 4C 4C 42 PRINT "ON ALL
000100: 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 2E 20 20 TRANSACTIONS.
000110: 4E 4F 54 45 20 54 48 41 54 20 49 46 20 41 20 53 NOTE THAT IF A S
000120: 54 4F 43 4B 27 53 20 56 41 4C 55 45 20 44 52 4F TOCK'S VALUE DRO
000130: 50 53 22 0D 0A 31 34 33 20 50 52 49 4E 54 20 22 PS"..143 PRINT "
000140: 54 4F 20 5A 45 52 4F 20 49 54 20 4D 41 59 20 52 TO ZERO IT MAY R
000150: 45 42 4F 55 4E 44 20 54 4F 20 41 20 50 4F 53 49 EBOUND TO A POSI
000160: 54 49 56 45 20 56 41 4C 55 45 20 41 47 41 49 4E TIVE VALUE AGAIN
000170: 2E 20 20 59 4F 55 22 0D 0A 31 34 34 20 50 52 49 . YOU"..144 PRI
000180: 4E 54 20 22 48 41 56 45 20 24 31 30 2C 30 30 30 NT "HAVE $10,000
000190: 20 54 4F 20 49 4E 56 45 53 54 2E 20 20 55 53 45 TO INVEST. USE
0001A0: 20 49 4E 54 45 47 45 52 53 20 46 4F 52 20 41 4C INTEGERS FOR AL
0001B0: 4C 20 59 4F 55 52 20 49 4E 50 55 54 53 2E 22 0D L YOUR INPUTS.".
0001C0: 0A 31 34 35 20 50 52 49 4E 54 20 22 28 4E 4F 54 .145 PRINT "(NOT
0001D0: 45 3A 20 20 54 4F 20 47 45 54 20 41 20 27 46 45 E: TO GET A 'FE
0001E0: 45 4C 27 20 46 4F 52 20 54 48 45 20 4D 41 52 4B EL' FOR THE MARK
0001F0: 45 54 20 52 55 4E 20 46 4F 52 20 41 54 20 4C 45 ET RUN FOR AT LE
Size : 512 (Real : 512)
000000: 44 41 59 27 53 20 50 55 52 43 48 41 53 45 53 20 DAY'S PURCHASES
000010: 49 4E 20 24 3A 50 35 0D 0A 35 34 30 20 4C 45 54 IN $:P5..540 LET
000020: 20 50 35 3D 30 0D 0A 35 35 30 20 52 45 4D 20 54 P5=0..550 REM T
000030: 4F 54 41 4C 20 44 41 59 27 53 20 53 41 4C 45 53 OTAL DAY'S SALES
000040: 20 49 4E 20 24 3A 53 35 0D 0A 35 36 30 20 4C 45 IN $:S5..560 LE
000050: 54 20 53 35 3D 30 0D 0A 35 37 30 20 46 4F 52 20 T S5=0..570 FOR
000060: 49 3D 31 20 54 4F 20 35 0D 0A 35 37 35 20 4C 45 I=1 TO 5..575 LE
000070: 54 20 5A 28 49 29 3D 49 4E 54 28 5A 28 49 29 2B T Z(I)=INT(Z(I)+
000080: 2E 35 29 20 0D 0A 35 38 30 20 49 46 20 5A 28 49 .5) ..580 IF Z(I
000090: 29 3C 3D 30 20 54 48 45 4E 20 36 31 30 20 0D 0A )<=0 THEN 610 ..
0000A0: 35 39 30 20 4C 45 54 20 50 35 3D 50 35 2B 5A 28 590 LET P5=P5+Z(
0000B0: 49 29 2A 53 28 49 29 20 0D 0A 36 30 30 20 47 4F I)*S(I) ..600 GO
0000C0: 54 4F 20 36 32 30 20 0D 0A 36 31 30 20 4C 45 54 TO 620 ..610 LET
0000D0: 20 53 35 3D 53 35 2D 5A 28 49 29 2A 53 28 49 29 S5=S5-Z(I)*S(I)
0000E0: 20 0D 0A 36 31 32 20 49 46 20 2D 5A 28 49 29 3C ..612 IF -Z(I)<
0000F0: 3D 50 28 49 29 20 54 48 45 4E 20 36 32 30 20 0D =P(I) THEN 620 .
000100: 0A 36 31 34 20 50 52 49 4E 54 20 22 59 4F 55 20 .614 PRINT "YOU
000110: 48 41 56 45 20 4F 56 45 52 53 4F 4C 44 20 41 20 HAVE OVERSOLD A
000120: 53 54 4F 43 4B 3B 20 54 52 59 20 41 47 41 49 4E STOCK; TRY AGAIN
000130: 2E 22 20 0D 0A 36 31 36 20 47 4F 54 4F 20 34 32 ." ..616 GOTO 42
000140: 30 20 0D 0A 36 32 30 20 4E 45 58 54 20 49 0D 0A 0 ..620 NEXT I..
000150: 36 32 32 20 52 45 4D 20 54 4F 54 41 4C 20 56 41 622 REM TOTAL VA
000160: 4C 55 45 20 4F 46 20 54 52 41 4E 53 41 43 54 49 LUE OF TRANSACTI
000170: 4F 4E 53 3A 54 35 20 0D 0A 36 32 35 20 4C 45 54 ONS:T5 ..625 LET
000180: 20 54 35 3D 50 35 2B 53 35 0D 0A 36 33 30 20 52 T5=P5+S5..630 R
000190: 45 4D 20 42 52 4F 4B 45 52 41 47 45 20 46 45 45 EM BROKERAGE FEE
0001A0: 3A 42 35 20 0D 0A 36 34 30 20 4C 45 54 20 42 35 :B5 ..640 LET B5
0001B0: 3D 49 4E 54 28 2E 30 31 2A 54 35 2A 31 30 30 2B =INT(.01*T5*100+
0001C0: 2E 35 29 2F 31 30 30 20 0D 0A 36 35 30 20 52 45 .5)/100 ..650 RE
0001D0: 4D 20 43 41 53 48 20 41 53 53 45 54 53 3D 4F 4C M CASH ASSETS=OL
0001E0: 44 20 43 41 53 48 20 41 53 53 45 54 53 2D 54 4F D CASH ASSETS-TO
0001F0: 54 41 4C 20 50 55 52 43 48 41 53 45 53 0D 0A 36 TAL PURCHASES..6
Size : 512 (Real : 512)
000000: 41 53 54 22 20 0D 0A 31 34 36 20 50 52 49 4E 54 AST" ..146 PRINT
000010: 20 22 31 30 20 44 41 59 53 29 22 0D 0A 31 34 37 "10 DAYS)"..147
000020: 20 50 52 49 4E 54 20 22 2D 2D 2D 2D 2D 47 4F 4F PRINT "-----GOO
000030: 44 20 4C 55 43 4B 21 2D 2D 2D 2D 2D 22 0D 0A 32 D LUCK!-----"..2
000040: 30 30 20 52 45 4D 20 47 45 4E 45 52 41 54 49 4F 00 REM GENERATIO
000050: 4E 20 4F 46 20 53 54 4F 43 4B 20 54 41 42 4C 45 N OF STOCK TABLE
000060: 3B 20 49 4E 50 55 54 20 52 45 51 55 45 53 54 53 ; INPUT REQUESTS
000070: 20 20 0D 0A 32 31 30 20 52 45 4D 20 49 4E 49 54 ..210 REM INIT
000080: 49 41 4C 20 53 54 4F 43 4B 20 56 41 4C 55 45 53 IAL STOCK VALUES
000090: 20 0D 0A 32 32 30 20 4C 45 54 20 53 28 31 29 3D ..220 LET S(1)=
0000A0: 31 30 30 0D 0A 32 33 30 20 4C 45 54 20 53 28 32 100..230 LET S(2
0000B0: 29 3D 38 35 20 0D 0A 32 34 30 20 4C 45 54 20 53 )=85 ..240 LET S
0000C0: 28 33 29 3D 31 35 30 0D 0A 32 35 30 20 4C 45 54 (3)=150..250 LET
0000D0: 20 53 28 34 29 3D 31 34 30 0D 0A 32 36 30 20 4C S(4)=140..260 L
0000E0: 45 54 20 53 28 35 29 3D 31 31 30 0D 0A 32 36 35 ET S(5)=110..265
0000F0: 20 52 45 4D 20 49 4E 49 54 49 41 4C 20 54 38 20 REM INITIAL T8
000100: 2D 20 23 20 44 41 59 53 20 46 4F 52 20 46 49 52 - # DAYS FOR FIR
000110: 53 54 20 54 52 45 4E 44 20 53 4C 4F 50 45 20 28 ST TREND SLOPE (
000120: 41 29 0D 0A 32 36 36 20 4C 45 54 20 54 38 3D 49 A)..266 LET T8=I
000130: 4E 54 28 34 2E 39 39 2A 52 4E 44 28 58 29 2B 31 NT(4.99*RND(X)+1
000140: 29 20 0D 0A 32 36 37 20 52 45 4D 20 52 41 4E 44 ) ..267 REM RAND
000150: 4F 4D 49 5A 45 20 53 49 47 4E 20 4F 46 20 46 49 OMIZE SIGN OF FI
000160: 52 53 54 20 54 52 45 4E 44 20 53 4C 4F 50 45 20 RST TREND SLOPE
000170: 28 41 29 0D 0A 32 36 38 20 49 46 20 52 4E 44 28 (A)..268 IF RND(
000180: 58 29 3E 2E 35 20 54 48 45 4E 20 32 37 30 20 0D X)>.5 THEN 270 .
000190: 0A 32 36 39 20 4C 45 54 20 41 3D 2D 41 0D 0A 32 .269 LET A=-A..2
0001A0: 37 30 20 52 45 4D 20 52 41 4E 44 4F 4D 49 5A 45 70 REM RANDOMIZE
0001B0: 20 49 4E 49 54 49 41 4C 20 56 41 4C 55 45 53 20 INITIAL VALUES
0001C0: 0D 0A 32 38 30 20 47 4F 53 55 42 20 38 33 30 20 ..280 GOSUB 830
0001D0: 0D 0A 32 38 35 20 52 45 4D 20 49 4E 49 54 49 41 ..285 REM INITIA
0001E0: 4C 20 50 4F 52 54 46 4F 4C 49 4F 20 43 4F 4E 54 L PORTFOLIO CONT
0001F0: 45 4E 54 53 20 0D 0A 32 39 30 20 46 4F 52 20 49 ENTS ..290 FOR I
Size : 512 (Real : 512)
000000: 35 32 20 52 45 4D 20 2D 42 52 4F 4B 45 52 41 47 52 REM -BROKERAG
000010: 45 20 46 45 45 53 2B 54 4F 54 41 4C 20 53 41 4C E FEES+TOTAL SAL
000020: 45 53 3A 43 35 20 0D 0A 36 35 34 20 4C 45 54 20 ES:C5 ..654 LET
000030: 43 35 3D 43 2D 50 35 2D 42 35 2B 53 35 20 0D 0A C5=C-P5-B5+S5 ..
000040: 36 35 36 20 49 46 20 43 35 3E 3D 30 20 54 48 45 656 IF C5>=0 THE
000050: 4E 20 36 37 34 20 0D 0A 36 35 38 20 50 52 49 4E N 674 ..658 PRIN
000060: 54 20 22 59 4F 55 20 48 41 56 45 20 55 53 45 44 T "YOU HAVE USED
000070: 20 24 22 2D 43 35 22 20 4D 4F 52 45 20 54 48 41 $"-C5" MORE THA
000080: 4E 20 59 4F 55 20 48 41 56 45 2E 22 20 0D 0A 36 N YOU HAVE." ..6
000090: 36 30 20 47 4F 54 4F 20 34 32 30 0D 0A 36 37 34 60 GOTO 420..674
0000A0: 20 4C 45 54 20 43 3D 43 35 0D 0A 36 37 35 20 52 LET C=C5..675 R
0000B0: 45 4D 20 43 41 4C 43 55 4C 41 54 45 20 4E 45 57 EM CALCULATE NEW
0000C0: 20 50 4F 52 54 46 4F 4C 49 4F 20 20 0D 0A 36 38 PORTFOLIO ..68
0000D0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 35 0D 0A 0 FOR I=1 TO 5..
0000E0: 36 39 30 20 4C 45 54 20 50 28 49 29 3D 50 28 49 690 LET P(I)=P(I
0000F0: 29 2B 5A 28 49 29 0D 0A 37 30 30 20 4E 45 58 54 )+Z(I)..700 NEXT
000100: 20 49 0D 0A 37 31 30 20 52 45 4D 20 43 41 4C 43 I..710 REM CALC
000110: 55 4C 41 54 45 20 4E 45 57 20 53 54 4F 43 4B 20 ULATE NEW STOCK
000120: 56 41 4C 55 45 53 20 0D 0A 37 32 30 20 47 4F 53 VALUES ..720 GOS
000130: 55 42 20 38 33 30 20 0D 0A 37 35 30 20 52 45 4D UB 830 ..750 REM
000140: 20 50 52 49 4E 54 20 50 4F 52 54 46 4F 4C 49 4F PRINT PORTFOLIO
000150: 0D 0A 37 35 31 20 52 45 4D 20 42 45 4C 4C 20 52 ..751 REM BELL R
000160: 49 4E 47 49 4E 47 2D 44 49 46 46 45 52 45 4E 54 INGING-DIFFERENT
000170: 20 4F 4E 20 4D 41 4E 59 20 43 4F 4D 50 55 54 45 ON MANY COMPUTE
000180: 52 53 20 0D 0A 37 35 35 20 50 52 49 4E 54 20 0D RS ..755 PRINT .
000190: 0A 37 35 36 20 50 52 49 4E 54 20 22 2A 2A 2A 2A .756 PRINT "****
0001A0: 2A 2A 2A 2A 2A 2A 20 20 20 20 20 45 4E 44 20 4F ****** END O
0001B0: 46 20 44 41 59 27 53 20 54 52 41 44 49 4E 47 20 F DAY'S TRADING
0001C0: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 0D **********".
0001D0: 0A 37 35 37 20 50 52 49 4E 54 20 0D 0A 37 35 38 .757 PRINT ..758
0001E0: 20 50 52 49 4E 54 20 0D 0A 37 35 39 20 49 46 20 PRINT ..759 IF
0001F0: 58 39 3C 31 20 54 48 45 4E 20 37 36 39 0D 0A 37 X9<1 THEN 769..7
Size : 512 (Real : 512)
000000: 3D 31 20 54 4F 20 35 0D 0A 33 30 30 20 4C 45 54 =1 TO 5..300 LET
000010: 20 50 28 49 29 3D 30 0D 0A 33 30 35 20 4C 45 54 P(I)=0..305 LET
000020: 20 5A 28 49 29 3D 30 0D 0A 33 31 30 20 4E 45 58 Z(I)=0..310 NEX
000030: 54 20 49 0D 0A 33 32 30 20 50 52 49 4E 54 20 0D T I..320 PRINT .
000040: 0A 33 33 30 20 50 52 49 4E 54 20 0D 0A 33 33 33 .330 PRINT ..333
000050: 20 52 45 4D 20 49 4E 49 54 49 41 4C 49 5A 45 20 REM INITIALIZE
000060: 43 41 53 48 20 41 53 53 45 54 53 3A 43 20 0D 0A CASH ASSETS:C ..
000070: 33 33 35 20 4C 45 54 20 43 3D 31 30 30 30 30 20 335 LET C=10000
000080: 0D 0A 33 33 38 20 52 45 4D 20 50 52 49 4E 54 20 ..338 REM PRINT
000090: 49 4E 49 54 49 41 4C 20 50 4F 52 54 46 4F 4C 49 INITIAL PORTFOLI
0000A0: 4F 0D 0A 33 34 30 20 50 52 49 4E 54 20 22 53 54 O..340 PRINT "ST
0000B0: 4F 43 4B 22 2C 22 20 22 2C 22 49 4E 49 54 49 41 OCK"," ","INITIA
0000C0: 4C 53 22 2C 22 50 52 49 43 45 2F 53 48 41 52 45 LS","PRICE/SHARE
0000D0: 22 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 49 4E "..350 PRINT "IN
0000E0: 54 2E 20 42 41 4C 4C 49 53 54 49 43 20 4D 49 53 T. BALLISTIC MIS
0000F0: 53 49 4C 45 53 22 2C 22 20 20 49 42 4D 22 2C 53 SILES"," IBM",S
000100: 28 31 29 0D 0A 33 35 32 20 50 52 49 4E 54 20 22 (1)..352 PRINT "
000110: 52 45 44 20 43 52 4F 53 53 20 4F 46 20 41 4D 45 RED CROSS OF AME
000120: 52 49 43 41 22 2C 22 20 20 52 43 41 22 2C 53 28 RICA"," RCA",S(
000130: 32 29 20 0D 0A 33 35 34 20 50 52 49 4E 54 20 22 2) ..354 PRINT "
000140: 4C 49 43 48 54 45 4E 53 54 45 49 4E 2C 20 42 55 LICHTENSTEIN, BU
000150: 4D 52 41 50 20 26 20 4A 4F 4B 45 22 2C 22 20 20 MRAP & JOKE","
000160: 4C 42 4A 22 2C 53 28 33 29 0D 0A 33 35 36 20 50 LBJ",S(3)..356 P
000170: 52 49 4E 54 20 22 41 4D 45 52 49 43 41 4E 20 42 RINT "AMERICAN B
000180: 41 4E 4B 52 55 50 54 20 43 4F 2E 22 2C 22 20 20 ANKRUPT CO.","
000190: 41 42 43 22 2C 53 28 34 29 0D 0A 33 35 38 20 50 ABC",S(4)..358 P
0001A0: 52 49 4E 54 20 22 43 45 4E 53 55 52 45 44 20 42 RINT "CENSURED B
0001B0: 4F 4F 4B 53 20 53 54 4F 52 45 22 2C 22 20 20 43 OOKS STORE"," C
0001C0: 42 53 22 2C 53 28 35 29 20 0D 0A 33 36 30 20 50 BS",S(5) ..360 P
0001D0: 52 49 4E 54 20 0D 0A 33 36 31 20 52 45 4D 20 4E RINT ..361 REM N
0001E0: 59 53 45 20 41 56 45 52 41 47 45 3A 5A 35 3B 20 YSE AVERAGE:Z5;
0001F0: 54 45 4D 50 2E 20 56 41 4C 55 45 3A 5A 34 3B 20 TEMP. VALUE:Z4;
Size : 512 (Real : 512)
000000: 36 39 20 50 52 49 4E 54 20 22 53 54 4F 43 4B 22 69 PRINT "STOCK"
000010: 2C 22 50 52 49 43 45 2F 53 48 41 52 45 22 2C 22 ,"PRICE/SHARE","
000020: 48 4F 4C 44 49 4E 47 53 22 2C 20 22 56 41 4C 55 HOLDINGS", "VALU
000030: 45 22 2C 20 22 4E 45 54 20 50 52 49 43 45 20 43 E", "NET PRICE C
000040: 48 41 4E 47 45 22 0D 0A 37 37 30 20 50 52 49 4E HANGE"..770 PRIN
000050: 54 20 22 49 42 4D 22 2C 20 53 28 31 29 2C 20 50 T "IBM", S(1), P
000060: 28 31 29 2C 20 53 28 31 29 2A 50 28 31 29 2C 20 (1), S(1)*P(1),
000070: 43 28 31 29 0D 0A 37 37 31 20 50 52 49 4E 54 20 C(1)..771 PRINT
000080: 22 52 43 41 22 2C 20 53 28 32 29 2C 20 50 28 32 "RCA", S(2), P(2
000090: 29 2C 20 53 28 32 29 2A 50 28 32 29 2C 20 43 28 ), S(2)*P(2), C(
0000A0: 32 29 0D 0A 37 37 32 20 50 52 49 4E 54 20 22 4C 2)..772 PRINT "L
0000B0: 42 4A 22 2C 20 53 28 33 29 2C 20 50 28 33 29 2C BJ", S(3), P(3),
0000C0: 20 53 28 33 29 2A 50 28 33 29 2C 20 43 28 33 29 S(3)*P(3), C(3)
0000D0: 0D 0A 37 37 33 20 50 52 49 4E 54 20 22 41 42 43 ..773 PRINT "ABC
0000E0: 22 2C 20 53 28 34 29 2C 20 50 28 34 29 2C 20 53 ", S(4), P(4), S
0000F0: 28 34 29 2A 50 28 34 29 2C 20 43 28 34 29 0D 0A (4)*P(4), C(4)..
000100: 37 37 34 20 50 52 49 4E 54 20 22 43 42 53 22 2C 774 PRINT "CBS",
000110: 20 53 28 35 29 2C 20 50 28 35 29 2C 20 53 28 35 S(5), P(5), S(5
000120: 29 2A 50 28 35 29 2C 20 43 28 35 29 0D 0A 37 37 )*P(5), C(5)..77
000130: 35 20 4C 45 54 20 58 39 3D 31 0D 0A 37 38 30 20 5 LET X9=1..780
000140: 50 52 49 4E 54 20 0D 0A 37 39 30 20 50 52 49 4E PRINT ..790 PRIN
000150: 54 20 0D 0A 38 31 30 20 47 4F 54 4F 20 33 36 30 T ..810 GOTO 360
000160: 20 0D 0A 38 32 39 20 52 45 4D 20 4E 45 57 20 53 ..829 REM NEW S
000170: 54 4F 43 4B 20 56 41 4C 55 45 53 20 2D 20 53 55 TOCK VALUES - SU
000180: 42 52 4F 55 54 49 4E 45 0D 0A 38 33 30 20 52 45 BROUTINE..830 RE
000190: 4D 20 52 41 4E 44 4F 4D 4C 59 20 50 52 4F 44 55 M RANDOMLY PRODU
0001A0: 43 45 20 4E 45 57 20 53 54 4F 43 4B 20 56 41 4C CE NEW STOCK VAL
0001B0: 55 45 53 20 42 41 53 45 44 20 4F 4E 20 50 52 45 UES BASED ON PRE
0001C0: 56 49 4F 55 53 0D 0A 38 33 31 20 52 45 4D 20 44 VIOUS..831 REM D
0001D0: 41 59 27 53 20 56 41 4C 55 45 53 20 0D 0A 38 33 AY'S VALUES ..83
0001E0: 32 20 52 45 4D 20 4E 31 2C 4E 32 20 41 52 45 20 2 REM N1,N2 ARE
0001F0: 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 53 20 4F RANDOM NUMBERS O
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 46 20 44 41 59 53 20 57 48 49 43 48 20 52 45 53 F DAYS WHICH RES
000010: 50 45 43 54 49 56 45 4C 59 0D 0A 38 33 33 20 52 PECTIVELY..833 R
000020: 45 4D 20 44 45 54 45 52 4D 49 4E 45 20 57 48 45 EM DETERMINE WHE
000030: 4E 20 53 54 4F 43 4B 20 49 31 20 57 49 4C 4C 20 N STOCK I1 WILL
000040: 49 4E 43 52 45 41 53 45 20 31 30 20 50 54 53 2E INCREASE 10 PTS.
000050: 20 41 4E 44 20 53 54 4F 43 4B 0D 0A 38 33 34 20 AND STOCK..834
000060: 52 45 4D 20 49 32 20 57 49 4C 4C 20 44 45 43 52 REM I2 WILL DECR
000070: 45 41 53 45 20 31 30 20 50 54 53 2E 20 0D 0A 38 EASE 10 PTS. ..8
000080: 34 30 20 52 45 4D 20 49 46 20 4E 31 20 44 41 59 40 REM IF N1 DAY
000090: 53 20 48 41 56 45 20 50 41 53 53 45 44 2C 20 50 S HAVE PASSED, P
0000A0: 49 43 4B 20 41 4E 20 49 31 2C 20 53 45 54 20 45 ICK AN I1, SET E
0000B0: 31 2C 20 44 45 54 45 52 4D 49 4E 45 20 4E 45 57 1, DETERMINE NEW
0000C0: 20 4E 31 20 0D 0A 38 34 31 20 49 46 20 4E 31 3E N1 ..841 IF N1>
0000D0: 30 20 54 48 45 4E 20 38 35 30 0D 0A 38 34 35 20 0 THEN 850..845
0000E0: 4C 45 54 20 49 31 3D 49 4E 54 28 34 2E 39 39 2A LET I1=INT(4.99*
0000F0: 52 4E 44 28 58 29 2B 31 29 20 0D 0A 38 34 36 20 RND(X)+1) ..846
000100: 4C 45 54 20 4E 31 3D 49 4E 54 28 34 2E 39 39 2A LET N1=INT(4.99*
000110: 52 4E 44 28 58 29 2B 31 29 20 0D 0A 38 34 37 20 RND(X)+1) ..847
000120: 4C 45 54 20 45 31 3D 31 0D 0A 38 35 30 20 52 45 LET E1=1..850 RE
000130: 4D 20 49 46 20 4E 32 20 44 41 59 53 20 48 41 56 M IF N2 DAYS HAV
000140: 45 20 50 41 53 53 45 44 2C 20 50 49 43 4B 20 41 E PASSED, PICK A
000150: 4E 20 49 32 2C 20 53 45 54 20 45 32 2C 20 44 45 N I2, SET E2, DE
000160: 54 45 52 4D 49 4E 45 20 4E 45 57 20 4E 32 20 0D TERMINE NEW N2 .
000170: 0A 38 35 31 20 49 46 20 4E 32 3E 30 20 54 48 45 .851 IF N2>0 THE
000180: 4E 20 38 36 30 0D 0A 38 35 35 20 4C 45 54 20 49 N 860..855 LET I
000190: 32 3D 49 4E 54 28 34 2E 39 39 2A 52 4E 44 28 58 2=INT(4.99*RND(X
0001A0: 29 2B 31 29 20 0D 0A 38 35 36 20 4C 45 54 20 4E )+1) ..856 LET N
0001B0: 32 3D 49 4E 54 28 34 2E 39 39 2A 52 4E 44 28 58 2=INT(4.99*RND(X
0001C0: 29 2B 31 29 20 0D 0A 38 35 37 20 4C 45 54 20 45 )+1) ..857 LET E
0001D0: 32 3D 31 0D 0A 38 36 30 20 52 45 4D 20 44 45 44 2=1..860 REM DED
0001E0: 55 43 54 20 4F 4E 45 20 44 41 59 20 46 52 4F 4D UCT ONE DAY FROM
0001F0: 20 4E 31 20 41 4E 44 20 4E 32 0D 0A 38 36 31 20 N1 AND N2..861
Size : 512 (Real : 512)
000000: 69 66 20 31 20 74 68 65 6E 20 70 72 69 6E 74 20 if 1 then print
000010: 22 68 69 22 3A 20 70 72 69 6E 74 20 22 6C 6F 22 "hi": print "lo"
000020: 0D 0A 69 66 20 31 20 74 68 65 6E 20 70 72 69 6E ..if 1 then prin
000030: 74 20 22 74 68 69 73 22 3A 20 70 72 69 6E 74 20 t "this": print
000040: 22 74 68 61 74 22 20 65 6C 73 65 20 70 72 69 6E "that" else prin
000050: 74 20 22 77 68 61 74 20 3F 22 0D 0A 69 66 20 30 t "what ?"..if 0
000060: 20 74 68 65 6E 20 70 72 69 6E 74 20 22 68 65 6C then print "hel
000070: 70 22 3A 20 70 72 69 6E 74 20 22 79 6F 75 72 73 p": print "yours
000080: 22 20 65 6C 73 65 20 70 72 69 6E 74 20 22 6D 69 " else print "mi
000090: 6E 65 22 0D 0A 69 66 20 31 20 74 68 65 6E 20 70 ne"..if 1 then p
0000A0: 72 69 6E 74 20 22 62 6C 75 65 22 20 65 6C 73 65 rint "blue" else
0000B0: 20 70 72 69 6E 74 20 22 79 65 6C 6C 6F 77 22 3A print "yellow":
0000C0: 20 70 72 69 6E 74 20 22 6F 72 61 6E 67 65 22 0D print "orange".
0000D0: 0A 69 66 20 30 20 74 68 65 6E 20 70 72 69 6E 74 .if 0 then print
0000E0: 20 22 62 72 6F 77 6E 22 20 65 6C 73 65 20 70 72 "brown" else pr
0000F0: 69 6E 74 20 22 66 75 63 69 61 22 3A 20 70 72 69 int "fucia": pri
000100: 6E 74 20 22 61 7A 75 72 65 22 0D 0A 69 66 20 31 nt "azure"..if 1
000110: 20 74 68 65 6E 20 70 72 69 6E 74 20 22 62 61 72 then print "bar
000120: 6B 22 3A 20 70 72 69 6E 74 20 22 6D 61 72 6B 22 k": print "mark"
000130: 20 65 6C 73 65 20 70 72 69 6E 74 20 22 7A 61 72 else print "zar
000140: 6B 22 3A 20 70 72 69 6E 74 20 22 66 6C 61 72 6B k": print "flark
000150: 22 20 65 6E 64 69 66 0D 0A 69 66 20 30 20 74 68 " endif..if 0 th
000160: 65 6E 20 70 72 69 6E 74 20 22 77 68 6F 6F 70 73 en print "whoops
000170: 22 3A 20 70 72 69 6E 74 20 22 77 68 61 70 70 73 ": print "whapps
000180: 22 20 65 6C 73 65 20 70 72 69 6E 74 20 22 70 61 " else print "pa
000190: 70 73 22 3A 20 70 72 69 6E 74 20 22 6D 61 70 73 ps": print "maps
0001A0: 22 20 65 6E 64 69 66 0D 0A 69 66 20 31 20 74 68 " endif..if 1 th
0001B0: 65 6E 0D 0A 0D 0A 20 20 20 70 72 69 6E 74 20 22 en.... print "
0001C0: 74 68 69 73 20 69 73 20 31 22 0D 0A 20 20 20 70 this is 1".. p
0001D0: 72 69 6E 74 20 22 74 68 69 73 20 69 73 20 32 22 rint "this is 2"
0001E0: 0D 0A 0D 0A 65 6E 64 69 66 20 0D 0A 0D 0A 69 66 ....endif ....if
0001F0: 20 31 20 74 68 65 6E 0D 0A 0D 0A 20 20 20 70 72 1 then.... pr
Size : 512 (Real : 512)
000000: 4C 45 54 20 4E 31 3D 4E 31 2D 31 20 0D 0A 38 36 LET N1=N1-1 ..86
000010: 32 20 4C 45 54 20 4E 32 3D 4E 32 2D 31 20 0D 0A 2 LET N2=N2-1 ..
000020: 38 39 30 20 52 45 4D 20 4C 4F 4F 50 20 54 48 52 890 REM LOOP THR
000030: 4F 55 47 48 20 41 4C 4C 20 53 54 4F 43 4B 53 0D OUGH ALL STOCKS.
000040: 0A 39 30 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .900 FOR I=1 TO
000050: 35 0D 0A 39 31 30 20 4C 45 54 20 58 31 3D 52 4E 5..910 LET X1=RN
000060: 44 28 58 29 20 0D 0A 39 31 35 20 49 46 20 58 31 D(X) ..915 IF X1
000070: 3E 2E 32 35 20 54 48 45 4E 20 39 32 30 0D 0A 39 >.25 THEN 920..9
000080: 31 36 20 4C 45 54 20 58 31 3D 2E 32 35 0D 0A 39 16 LET X1=.25..9
000090: 31 37 20 47 4F 54 4F 20 39 33 35 20 0D 0A 39 32 17 GOTO 935 ..92
0000A0: 30 20 49 46 20 58 31 3E 2E 35 20 54 48 45 4E 20 0 IF X1>.5 THEN
0000B0: 39 32 35 0D 0A 39 32 31 20 4C 45 54 20 58 31 3D 925..921 LET X1=
0000C0: 2E 35 0D 0A 39 32 32 20 47 4F 54 4F 20 39 33 35 .5..922 GOTO 935
0000D0: 20 0D 0A 39 32 35 20 49 46 20 58 31 3E 2E 37 35 ..925 IF X1>.75
0000E0: 20 54 48 45 4E 20 39 33 30 0D 0A 39 32 36 20 4C THEN 930..926 L
0000F0: 45 54 20 58 31 3D 2E 37 35 20 20 0D 0A 39 32 37 ET X1=.75 ..927
000100: 20 47 4F 54 4F 20 39 33 35 20 0D 0A 39 33 30 20 GOTO 935 ..930
000110: 4C 45 54 20 58 31 3D 30 2E 30 0D 0A 39 33 31 20 LET X1=0.0..931
000120: 52 45 4D 20 42 49 47 20 43 48 41 4E 47 45 20 43 REM BIG CHANGE C
000130: 4F 4E 53 54 41 4E 54 3A 57 33 20 20 28 53 45 54 ONSTANT:W3 (SET
000140: 20 54 4F 20 5A 45 52 4F 20 49 4E 49 54 49 41 4C TO ZERO INITIAL
000150: 4C 59 29 0D 0A 39 33 35 20 4C 45 54 20 57 33 3D LY)..935 LET W3=
000160: 30 0D 0A 39 33 36 20 49 46 20 45 31 3C 31 20 54 0..936 IF E1<1 T
000170: 48 45 4E 20 39 34 35 0D 0A 39 33 37 20 49 46 20 HEN 945..937 IF
000180: 49 4E 54 28 49 31 2B 2E 35 29 3C 3E 49 4E 54 28 INT(I1+.5)<>INT(
000190: 49 2B 2E 35 29 20 54 48 45 4E 20 39 34 35 20 0D I+.5) THEN 945 .
0001A0: 0A 39 33 38 20 52 45 4D 20 41 44 44 20 31 30 20 .938 REM ADD 10
0001B0: 50 54 53 2E 20 54 4F 20 54 48 49 53 20 53 54 4F PTS. TO THIS STO
0001C0: 43 4B 3B 20 20 52 45 53 45 54 20 45 31 20 0D 0A CK; RESET E1 ..
0001D0: 39 33 39 20 4C 45 54 20 57 33 3D 31 30 20 0D 0A 939 LET W3=10 ..
0001E0: 39 34 33 20 4C 45 54 20 45 31 3D 30 0D 0A 39 34 943 LET E1=0..94
0001F0: 35 20 49 46 20 45 32 3C 31 20 54 48 45 4E 20 39 5 IF E2<1 THEN 9
Size : 512 (Real : 512)
000000: 69 6E 74 20 22 74 68 69 73 20 69 73 20 33 22 0D int "this is 3".
000010: 0A 20 20 20 70 72 69 6E 74 20 22 74 68 69 73 20 . print "this
000020: 69 73 20 34 22 0D 0A 0D 0A 65 6C 73 65 0D 0A 0D is 4"....else...
000030: 0A 20 20 20 70 72 69 6E 74 20 22 74 68 69 73 20 . print "this
000040: 69 73 20 35 22 0D 0A 20 20 20 70 72 69 6E 74 20 is 5".. print
000050: 22 74 68 69 73 20 69 73 20 36 22 0D 0A 0D 0A 65 "this is 6"....e
000060: 6E 64 69 66 20 20 20 0D 0A 0D 0A 69 66 20 30 20 ndif ....if 0
000070: 74 68 65 6E 0D 0A 0D 0A 20 20 20 70 72 69 6E 74 then.... print
000080: 20 22 74 68 69 73 20 69 73 20 37 22 0D 0A 20 20 "this is 7"..
000090: 20 70 72 69 6E 74 20 22 74 68 69 73 20 69 73 20 print "this is
0000A0: 38 22 0D 0A 0D 0A 65 6C 73 65 0D 0A 0D 0A 20 20 8"....else....
0000B0: 20 70 72 69 6E 74 20 22 74 68 69 73 20 69 73 20 print "this is
0000C0: 39 22 0D 0A 20 20 20 70 72 69 6E 74 20 22 74 68 9".. print "th
0000D0: 69 73 20 69 73 20 31 30 22 0D 0A 0D 0A 65 6E 64 is is 10"....end
0000E0: 69 66 0D 0A 0D 0A 69 66 20 31 20 74 68 65 6E 0D if....if 1 then.
0000F0: 0A 0D 0A 20 20 20 70 72 69 6E 74 20 22 79 65 73 ... print "yes
000100: 22 0D 0A 20 20 20 69 66 20 33 20 74 68 65 6E 0D ".. if 3 then.
000110: 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 6E 6F . print "no
000120: 22 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 ".. else..
000130: 20 20 70 72 69 6E 74 20 22 77 68 79 22 0D 0A 20 print "why"..
000140: 20 20 65 6E 64 69 66 0D 0A 0D 0A 65 6C 73 65 0D endif....else.
000150: 0A 0D 0A 20 20 20 70 72 69 6E 74 20 22 6E 6F 20 ... print "no
000160: 6E 6F 22 0D 0A 20 20 20 69 66 20 30 20 74 68 65 no".. if 0 the
000170: 6E 0D 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 n.. print "
000180: 77 68 6F 22 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 who".. else..
000190: 20 20 20 20 20 70 72 69 6E 74 20 22 77 68 61 74 print "what
0001A0: 22 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 65 ".. endif....e
0001B0: 6E 64 69 66 0D 0A 0D 0A 69 66 20 31 20 74 68 65 ndif....if 1 the
0001C0: 6E 20 70 72 69 6E 74 20 22 77 69 6C 64 22 20 65 n print "wild" e
0001D0: 6C 73 65 20 69 66 20 32 20 74 68 65 6E 20 70 72 lse if 2 then pr
0001E0: 69 6E 74 20 22 62 69 74 65 22 20 65 6C 73 65 20 int "bite" else
0001F0: 70 72 69 6E 74 20 22 63 61 6D 70 69 6E 67 22 0D print "camping".
Size : 512 (Real : 512)
000000: 35 35 0D 0A 39 34 37 20 49 46 20 49 4E 54 28 49 55..947 IF INT(I
000010: 32 2B 2E 35 29 3C 3E 49 4E 54 28 49 2B 2E 35 29 2+.5)<>INT(I+.5)
000020: 20 54 48 45 4E 20 39 35 35 20 0D 0A 39 34 38 20 THEN 955 ..948
000030: 52 45 4D 20 53 55 42 54 52 41 43 54 20 31 30 20 REM SUBTRACT 10
000040: 50 54 53 2E 20 46 52 4F 4D 20 54 48 49 53 20 53 PTS. FROM THIS S
000050: 54 4F 43 4B 3B 20 20 52 45 53 45 54 20 45 32 0D TOCK; RESET E2.
000060: 0A 39 34 39 20 4C 45 54 20 57 33 3D 57 33 2D 31 .949 LET W3=W3-1
000070: 30 0D 0A 39 35 33 20 4C 45 54 20 45 32 3D 30 0D 0..953 LET E2=0.
000080: 0A 39 35 34 20 52 45 4D 20 43 28 49 29 20 49 53 .954 REM C(I) IS
000090: 20 43 48 41 4E 47 45 20 49 4E 20 53 54 4F 43 4B CHANGE IN STOCK
0000A0: 20 56 41 4C 55 45 0D 0A 39 35 35 20 4C 45 54 20 VALUE..955 LET
0000B0: 43 28 49 29 3D 49 4E 54 28 41 2A 53 28 49 29 29 C(I)=INT(A*S(I))
0000C0: 2B 58 31 2B 49 4E 54 28 33 2D 36 2A 52 4E 44 28 +X1+INT(3-6*RND(
0000D0: 58 29 2B 2E 35 29 2B 57 33 20 0D 0A 39 35 36 20 X)+.5)+W3 ..956
0000E0: 4C 45 54 20 43 28 49 29 3D 49 4E 54 28 31 30 30 LET C(I)=INT(100
0000F0: 2A 43 28 49 29 2B 2E 35 29 2F 31 30 30 20 0D 0A *C(I)+.5)/100 ..
000100: 39 35 37 20 4C 45 54 20 53 28 49 29 3D 53 28 49 957 LET S(I)=S(I
000110: 29 2B 43 28 49 29 0D 0A 39 36 30 20 49 46 20 53 )+C(I)..960 IF S
000120: 28 49 29 3E 30 20 54 48 45 4E 20 39 36 37 0D 0A (I)>0 THEN 967..
000130: 39 36 34 20 4C 45 54 20 43 28 49 29 3D 30 0D 0A 964 LET C(I)=0..
000140: 39 36 35 20 4C 45 54 20 53 28 49 29 3D 30 0D 0A 965 LET S(I)=0..
000150: 39 36 36 20 47 4F 54 4F 20 39 37 30 20 0D 0A 39 966 GOTO 970 ..9
000160: 36 37 20 4C 45 54 20 53 28 49 29 3D 49 4E 54 28 67 LET S(I)=INT(
000170: 31 30 30 2A 53 28 49 29 2B 2E 35 29 2F 31 30 30 100*S(I)+.5)/100
000180: 20 0D 0A 39 37 30 20 4E 45 58 54 20 49 0D 0A 39 ..970 NEXT I..9
000190: 37 32 20 52 45 4D 20 41 46 54 45 52 20 54 38 20 72 REM AFTER T8
0001A0: 44 41 59 53 20 52 41 4E 44 4F 4D 4C 59 20 43 48 DAYS RANDOMLY CH
0001B0: 41 4E 47 45 20 54 52 45 4E 44 20 53 49 47 4E 20 ANGE TREND SIGN
0001C0: 41 4E 44 20 53 4C 4F 50 45 20 0D 0A 39 37 33 20 AND SLOPE ..973
0001D0: 4C 45 54 20 54 38 3D 54 38 2D 31 20 0D 0A 39 37 LET T8=T8-1 ..97
0001E0: 34 20 49 46 20 54 38 3C 31 20 54 48 45 4E 20 39 4 IF T8<1 THEN 9
0001F0: 38 35 0D 0A 39 38 30 20 52 45 54 55 52 4E 0D 0A 85..980 RETURN..
Size : 512 (Real : 512)
000000: 0A 0D 0A 69 66 20 31 20 74 68 65 6E 20 70 72 69 ...if 1 then pri
000010: 6E 74 20 22 63 61 72 70 22 3A 20 69 66 20 31 20 nt "carp": if 1
000020: 74 68 65 6E 20 70 72 69 6E 74 20 22 62 61 74 22 then print "bat"
000030: 3A 20 69 66 20 31 20 74 68 65 6E 0D 0A 0D 0A 20 : if 1 then....
000040: 20 20 70 72 69 6E 74 20 22 73 74 65 65 6C 68 65 print "steelhe
000050: 61 64 22 0D 0A 0D 0A 65 6E 64 69 66 20 0D 0A 0D ad"....endif ...
000060: 0A 69 66 20 31 20 74 68 65 6E 20 70 72 69 6E 74 .if 1 then print
000070: 20 22 61 64 64 65 72 22 20 65 6C 73 65 0D 0A 0D "adder" else...
000080: 0A 20 20 20 70 72 69 6E 74 20 22 77 68 61 74 63 . print "whatc
000090: 68 61 63 61 6C 6C 69 74 22 0D 0A 20 20 20 70 72 hacallit".. pr
0000A0: 69 6E 74 20 22 73 6D 61 63 6B 22 0D 0A 0D 0A 65 int "smack"....e
0000B0: 6E 64 69 66 0D 0A 0D 0A 69 66 20 30 20 74 68 65 ndif....if 0 the
0000C0: 6E 20 70 72 69 6E 74 20 22 6C 61 73 74 22 20 65 n print "last" e
0000D0: 6C 73 65 0D 0A 0D 0A 20 20 20 70 72 69 6E 74 20 lse.... print
0000E0: 22 79 65 70 22 0D 0A 20 20 20 70 72 69 6E 74 20 "yep".. print
0000F0: 22 68 6F 77 73 69 74 22 0D 0A 0D 0A 65 6E 64 69 "howsit"....endi
000100: 66 0D 0A 0D 0A 73 65 6C 65 63 74 20 31 0D 0A 0D f....select 1...
000110: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
000120: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
000130: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
000140: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
000150: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
000160: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
000170: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
000180: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 32 0D 0A 0D l....select 2...
000190: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
0001A0: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
0001B0: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
0001C0: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
0001D0: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
0001E0: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
0001F0: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
Size : 512 (Real : 512)
000000: 39 38 35 20 52 45 4D 20 52 41 4E 44 4F 4D 4C 59 985 REM RANDOMLY
000010: 20 43 48 41 4E 47 45 20 54 52 45 4E 44 20 53 49 CHANGE TREND SI
000020: 47 4E 20 41 4E 44 20 53 4C 4F 50 45 20 28 41 29 GN AND SLOPE (A)
000030: 2C 20 41 4E 44 20 44 55 52 41 54 49 4F 4E 20 0D , AND DURATION .
000040: 0A 39 38 36 20 52 45 4D 20 4F 46 20 54 52 45 4E .986 REM OF TREN
000050: 44 20 28 54 38 29 0D 0A 39 39 30 20 4C 45 54 20 D (T8)..990 LET
000060: 54 38 3D 49 4E 54 28 34 2E 39 39 2A 52 4E 44 28 T8=INT(4.99*RND(
000070: 58 29 2B 31 29 20 0D 0A 39 39 32 20 4C 45 54 20 X)+1) ..992 LET
000080: 41 3D 49 4E 54 28 28 52 4E 44 28 58 29 2F 31 30 A=INT((RND(X)/10
000090: 29 2A 31 30 30 2B 2E 35 29 2F 31 30 30 20 0D 0A )*100+.5)/100 ..
0000A0: 39 39 33 20 4C 45 54 20 53 34 3D 52 4E 44 28 58 993 LET S4=RND(X
0000B0: 29 20 0D 0A 39 39 34 20 49 46 20 53 34 3C 3D 2E ) ..994 IF S4<=.
0000C0: 35 20 54 48 45 4E 20 39 39 37 0D 0A 39 39 35 20 5 THEN 997..995
0000D0: 4C 45 54 20 41 3D 2D 41 0D 0A 39 39 37 20 52 45 LET A=-A..997 RE
0000E0: 54 55 52 4E 0D 0A 39 39 38 20 50 52 49 4E 54 20 TURN..998 PRINT
0000F0: 22 48 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 "HOPE YOU HAD FU
000100: 4E 21 21 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A N!!"..999 END...
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 33 0D 0A 0D l....select 3...
000010: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
000020: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
000030: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
000040: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
000050: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
000060: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
000070: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
000080: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 34 0D 0A 0D l....select 4...
000090: 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 69 6E . case 1: prin
0000A0: 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 73 65 t "one".. case
0000B0: 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F 22 0D 2: print "two".
0000C0: 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 69 6E . case 3: prin
0000D0: 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 6F 74 t "three".. ot
0000E0: 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 6F 6D her: print "som
0000F0: 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 73 65 ething"....endse
000100: 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 32 33 34 0D l....select 234.
000110: 0A 0D 0A 20 20 20 63 61 73 65 20 31 3A 20 70 72 ... case 1: pr
000120: 69 6E 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 61 int "one".. ca
000130: 73 65 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F se 2: print "two
000140: 22 0D 0A 20 20 20 63 61 73 65 20 33 3A 20 70 72 ".. case 3: pr
000150: 69 6E 74 20 22 74 68 72 65 65 22 0D 0A 20 20 20 int "three"..
000160: 6F 74 68 65 72 3A 20 20 70 72 69 6E 74 20 22 73 other: print "s
000170: 6F 6D 65 74 68 69 6E 67 22 0D 0A 0D 0A 65 6E 64 omething"....end
000180: 73 65 6C 0D 0A 0D 0A 73 65 6C 65 63 74 20 31 30 sel....select 10
000190: 0D 0A 0D 0A 20 20 20 63 61 73 65 20 31 3A 20 70 .... case 1: p
0001A0: 72 69 6E 74 20 22 6F 6E 65 22 0D 0A 20 20 20 63 rint "one".. c
0001B0: 61 73 65 20 32 3A 20 70 72 69 6E 74 20 22 74 77 ase 2: print "tw
0001C0: 6F 22 0D 0A 20 20 20 63 61 73 65 20 33 3A 20 70 o".. case 3: p
0001D0: 72 69 6E 74 20 22 74 68 72 65 65 22 0D 0A 0D 0A rint "three"....
0001E0: 65 6E 64 73 65 6C 0D 0A 70 72 69 6E 74 20 22 61 endsel..print "a
0001F0: 6E 64 20 61 66 74 65 72 22 0D 0A 0D 0A 73 65 6C nd after"....sel
Size : 512 (Real : 512)
000000: 34 35 20 52 3D 52 2B 31 3A 20 49 46 20 52 3E 35 45 R=R+1: IF R>5
000010: 20 54 48 45 4E 20 33 39 30 0D 0A 33 35 30 20 4F THEN 390..350 O
000020: 4E 20 52 20 47 4F 54 4F 20 33 35 35 2C 33 36 30 N R GOTO 355,360
000030: 2C 33 36 35 2C 33 37 30 2C 33 37 35 0D 0A 33 35 ,365,370,375..35
000040: 35 20 50 33 3D 49 4E 54 28 50 31 2A 2E 30 35 29 5 P3=INT(P1*.05)
000050: 2A 32 30 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 *20: GOTO 390..3
000060: 36 30 20 50 33 3D 49 4E 54 28 50 31 2A 2E 31 29 60 P3=INT(P1*.1)
000070: 2A 31 30 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 *10: GOTO 390..3
000080: 36 35 20 50 33 3D 49 4E 54 28 50 31 2A 2E 35 29 65 P3=INT(P1*.5)
000090: 2A 32 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 37 *2: GOTO 390..37
0000A0: 30 20 50 33 3D 49 4E 54 28 50 31 29 3A 20 47 4F 0 P3=INT(P1): GO
0000B0: 54 4F 20 33 39 30 0D 0A 33 37 35 20 50 33 3D 50 TO 390..375 P3=P
0000C0: 31 0D 0A 33 39 30 20 50 52 49 4E 54 20 22 20 20 1..390 PRINT "
0000D0: 20 20 20 45 53 54 49 4D 41 54 45 44 20 44 49 53 ESTIMATED DIS
0000E0: 54 41 4E 43 45 3A 22 3B 50 33 0D 0A 34 30 30 20 TANCE:";P3..400
0000F0: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 49 4E 50 PRINT:PRINT "INP
000100: 55 54 20 41 4E 47 4C 45 20 44 45 56 49 41 54 49 UT ANGLE DEVIATI
000110: 4F 4E 20 46 52 4F 4D 20 58 2C 20 44 45 56 49 41 ON FROM X, DEVIA
000120: 54 49 4F 4E 20 46 52 4F 4D 20 5A 2C 20 44 49 53 TION FROM Z, DIS
000130: 54 41 4E 43 45 22 3B 0D 0A 34 30 35 20 49 4E 50 TANCE";..405 INP
000140: 55 54 20 41 31 2C 42 31 2C 50 32 0D 0A 34 31 30 UT A1,B1,P2..410
000150: 20 50 52 49 4E 54 3A 20 49 46 20 50 32 3C 32 30 PRINT: IF P2<20
000160: 20 54 48 45 4E 20 50 52 49 4E 54 20 22 59 4F 55 THEN PRINT "YOU
000170: 20 42 4C 45 57 20 59 4F 55 52 53 45 4C 46 20 55 BLEW YOURSELF U
000180: 50 21 21 22 3A 20 47 4F 54 4F 20 35 38 30 0D 0A P!!": GOTO 580..
000190: 34 32 30 20 41 31 3D 41 31 2F 52 31 3A 20 42 31 420 A1=A1/R1: B1
0001A0: 3D 42 31 2F 52 31 3A 20 50 52 49 4E 54 20 22 52 =B1/R1: PRINT "R
0001B0: 41 44 49 41 4E 53 20 46 52 4F 4D 20 58 20 41 58 ADIANS FROM X AX
0001C0: 49 53 20 3D 22 3B 41 31 3B 22 20 20 22 3B 0D 0A IS =";A1;" ";..
0001D0: 34 32 35 20 50 52 49 4E 54 20 22 46 52 4F 4D 20 425 PRINT "FROM
0001E0: 5A 20 41 58 49 53 20 3D 22 3B 42 31 0D 0A 34 38 Z AXIS =";B1..48
0001F0: 30 20 58 31 3D 50 32 2A 53 49 4E 28 42 31 29 2A 0 X1=P2*SIN(B1)*
Size : 512 (Real : 512)
000000: 65 63 74 20 22 66 6F 72 6B 22 0D 0A 0D 0A 20 20 ect "fork"....
000010: 20 63 61 73 65 20 22 6B 6E 69 66 65 22 3A 20 70 case "knife": p
000020: 72 69 6E 74 20 22 69 74 73 20 61 20 6B 6E 69 66 rint "its a knif
000030: 65 22 0D 0A 20 20 20 63 61 73 65 20 22 73 70 6F e".. case "spo
000040: 6F 6E 22 3A 20 70 72 69 6E 74 20 22 69 74 73 20 on": print "its
000050: 61 20 73 70 6F 6F 6E 22 0D 0A 20 20 20 63 61 73 a spoon".. cas
000060: 65 20 22 66 6F 72 6B 22 3A 20 20 70 72 69 6E 74 e "fork": print
000070: 20 22 69 74 73 20 61 20 66 6F 72 6B 22 0D 0A 20 "its a fork"..
000080: 20 20 6F 74 68 65 72 3A 20 20 20 20 20 20 20 20 other:
000090: 70 72 69 6E 74 20 22 64 6F 6E 27 74 20 6B 6E 6F print "don't kno
0000A0: 77 20 77 68 61 74 20 69 74 20 69 73 22 0D 0A 0D w what it is"...
0000B0: 0A 65 6E 64 73 65 6C 0D 0A 0D 0A 73 65 6C 65 63 .endsel....selec
0000C0: 74 20 31 2E 32 0D 0A 0D 0A 20 20 20 63 61 73 65 t 1.2.... case
0000D0: 20 31 2E 31 3A 20 70 72 69 6E 74 20 22 70 6F 69 1.1: print "poi
0000E0: 6E 74 20 31 22 0D 0A 20 20 20 63 61 73 65 20 31 nt 1".. case 1
0000F0: 2E 32 3A 20 70 72 69 6E 74 20 22 70 6F 69 6E 74 .2: print "point
000100: 20 32 22 0D 0A 20 20 20 63 61 73 65 20 31 2E 33 2".. case 1.3
000110: 3A 20 70 72 69 6E 74 20 22 70 6F 69 6E 74 20 33 : print "point 3
000120: 22 0D 0A 0D 0A 65 6E 64 73 65 6C 0D 0A 0D 0A 73 "....endsel....s
000130: 65 6C 65 63 74 20 31 3A 20 63 61 73 65 20 31 3A elect 1: case 1:
000140: 20 70 72 69 6E 74 20 22 6F 6E 65 22 3A 20 63 61 print "one": ca
000150: 73 65 20 32 3A 20 70 72 69 6E 74 20 22 74 77 6F se 2: print "two
000160: 22 3A 20 63 61 73 65 20 33 3A 20 70 72 69 6E 74 ": case 3: print
000170: 20 22 74 68 72 65 65 22 20 65 6E 64 73 65 6C 0D "three" endsel.
000180: 0A 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 43 4F 53 28 41 31 29 3A 20 59 31 3D 50 32 2A 53 COS(A1): Y1=P2*S
000010: 49 4E 28 42 31 29 2A 53 49 4E 28 41 31 29 3A 20 IN(B1)*SIN(A1):
000020: 5A 31 3D 50 32 2A 43 4F 53 28 42 31 29 0D 0A 35 Z1=P2*COS(B1)..5
000030: 31 30 20 44 3D 28 28 58 31 2D 58 29 5E 32 2B 28 10 D=((X1-X)^2+(
000040: 59 31 2D 59 29 5E 32 2B 28 5A 31 2D 5A 29 5E 32 Y1-Y)^2+(Z1-Z)^2
000050: 29 5E 28 31 2F 32 29 0D 0A 35 32 30 20 49 46 20 )^(1/2)..520 IF
000060: 44 3E 32 30 20 54 48 45 4E 20 36 37 30 0D 0A 35 D>20 THEN 670..5
000070: 33 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 30 PRINT: PRINT
000080: 22 20 2A 20 2A 20 2A 20 48 49 54 20 2A 20 2A 20 " * * * HIT * *
000090: 2A 20 20 20 54 41 52 47 45 54 20 49 53 20 4E 4F * TARGET IS NO
0000A0: 4E 2D 46 55 4E 43 54 49 4F 4E 41 4C 22 3A 20 50 N-FUNCTIONAL": P
0000B0: 52 49 4E 54 0D 0A 35 35 30 20 50 52 49 4E 54 20 RINT..550 PRINT
0000C0: 22 44 49 53 54 41 4E 43 45 20 4F 46 20 45 58 50 "DISTANCE OF EXP
0000D0: 4C 4F 53 49 4F 4E 20 46 52 4F 4D 20 54 41 52 47 LOSION FROM TARG
0000E0: 45 54 20 57 41 53 22 3B 44 3B 22 4B 49 4C 4F 4D ET WAS";D;"KILOM
0000F0: 45 54 45 52 53 2E 22 0D 0A 35 37 30 20 50 52 49 ETERS."..570 PRI
000100: 4E 54 3A 20 50 52 49 4E 54 20 22 4D 49 53 53 49 NT: PRINT "MISSI
000110: 4F 4E 20 41 43 43 4F 4D 50 4C 49 53 48 45 44 20 ON ACCOMPLISHED
000120: 49 4E 20 22 3B 52 3B 22 20 53 48 4F 54 53 2E 22 IN ";R;" SHOTS."
000130: 0D 0A 35 38 30 20 52 3D 30 3A 20 46 4F 52 20 49 ..580 R=0: FOR I
000140: 3D 31 20 54 4F 20 35 3A 20 50 52 49 4E 54 3A 20 =1 TO 5: PRINT:
000150: 4E 45 58 54 20 49 3A 20 50 52 49 4E 54 20 22 4E NEXT I: PRINT "N
000160: 45 58 54 20 54 41 52 47 45 54 2E 2E 2E 22 3A 20 EXT TARGET...":
000170: 50 52 49 4E 54 0D 0A 35 39 30 20 47 4F 54 4F 20 PRINT..590 GOTO
000180: 32 32 30 0D 0A 36 37 30 20 58 32 3D 58 31 2D 58 220..670 X2=X1-X
000190: 3A 20 59 32 3D 59 31 2D 59 3A 20 5A 32 3D 5A 31 : Y2=Y1-Y: Z2=Z1
0001A0: 2D 5A 3A 20 49 46 20 58 32 3C 30 20 54 48 45 4E -Z: IF X2<0 THEN
0001B0: 20 37 33 30 0D 0A 37 31 30 20 50 52 49 4E 54 20 730..710 PRINT
0001C0: 22 53 48 4F 54 20 49 4E 20 46 52 4F 4E 54 20 4F "SHOT IN FRONT O
0001D0: 46 20 54 41 52 47 45 54 22 3B 58 32 3B 22 4B 49 F TARGET";X2;"KI
0001E0: 4C 4F 4D 45 54 45 52 53 2E 22 3A 20 47 4F 54 4F LOMETERS.": GOTO
0001F0: 20 37 34 30 0D 0A 37 33 30 20 50 52 49 4E 54 20 740..730 PRINT
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 22 53 48 4F 54 20 42 45 48 49 4E 44 20 54 41 52 "SHOT BEHIND TAR
000010: 47 45 54 22 3B 2D 58 32 3B 22 4B 49 4C 4F 4D 45 GET";-X2;"KILOME
000020: 54 45 52 53 2E 22 0D 0A 37 34 30 20 49 46 20 59 TERS."..740 IF Y
000030: 32 3C 30 20 54 48 45 4E 20 37 37 30 0D 0A 37 35 2<0 THEN 770..75
000040: 30 20 50 52 49 4E 54 20 22 53 48 4F 54 20 54 4F 0 PRINT "SHOT TO
000050: 20 4C 45 46 54 20 4F 46 20 54 41 52 47 45 54 22 LEFT OF TARGET"
000060: 3B 59 32 3B 22 4B 49 4C 4F 4D 45 54 45 52 53 2E ;Y2;"KILOMETERS.
000070: 22 3A 20 47 4F 54 4F 20 37 38 30 0D 0A 37 37 30 ": GOTO 780..770
000080: 20 50 52 49 4E 54 20 22 53 48 4F 54 20 54 4F 20 PRINT "SHOT TO
000090: 52 49 47 48 54 20 4F 46 20 54 41 52 47 45 54 22 RIGHT OF TARGET"
0000A0: 3B 2D 59 32 3B 22 4B 49 4C 4F 4D 45 54 45 52 53 ;-Y2;"KILOMETERS
0000B0: 2E 22 0D 0A 37 38 30 20 49 46 20 5A 32 3C 30 20 ."..780 IF Z2<0
0000C0: 54 48 45 4E 20 38 31 30 0D 0A 37 39 30 20 50 52 THEN 810..790 PR
0000D0: 49 4E 54 20 22 53 48 4F 54 20 41 42 4F 56 45 20 INT "SHOT ABOVE
0000E0: 54 41 52 47 45 54 22 3B 5A 32 3B 22 4B 49 4C 4F TARGET";Z2;"KILO
0000F0: 4D 45 54 45 52 53 2E 22 3A 20 47 4F 54 4F 20 38 METERS.": GOTO 8
000100: 32 30 0D 0A 38 31 30 20 50 52 49 4E 54 20 22 53 20..810 PRINT "S
000110: 48 4F 54 20 42 45 4C 4F 57 20 54 41 52 47 45 54 HOT BELOW TARGET
000120: 22 3B 2D 5A 32 3B 22 4B 49 4C 4F 4D 45 54 45 52 ";-Z2;"KILOMETER
000130: 53 2E 22 0D 0A 38 32 30 20 50 52 49 4E 54 20 22 S."..820 PRINT "
000140: 41 50 50 52 4F 58 20 50 4F 53 49 54 49 4F 4E 20 APPROX POSITION
000150: 4F 46 20 45 58 50 4C 4F 53 49 4F 4E 3A 20 20 58 OF EXPLOSION: X
000160: 3D 22 3B 58 31 3B 22 20 20 20 59 3D 22 3B 59 31 =";X1;" Y=";Y1
000170: 3B 22 20 20 20 5A 3D 22 3B 5A 31 0D 0A 38 33 30 ;" Z=";Z1..830
000180: 20 50 52 49 4E 54 20 22 20 20 20 20 20 44 49 53 PRINT " DIS
000190: 54 41 4E 43 45 20 46 52 4F 4D 20 54 41 52 47 45 TANCE FROM TARGE
0001A0: 54 20 3D 22 3B 44 3A 20 50 52 49 4E 54 3A 20 50 T =";D: PRINT: P
0001B0: 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 RINT: PRINT: GOT
0001C0: 4F 20 33 34 35 0D 0A 39 39 39 20 45 4E 44 0D 0A O 345..999 END..
0001D0: 1A 3D 4B 39 2B 31 0D 0A 39 38 30 20 42 33 3D 30 .=K9+1..980 B3=0
0001E0: 3A 49 46 52 4E 44 28 31 29 3E 2E 39 36 54 48 45 :IFRND(1)>.96THE
0001F0: 4E 42 33 3D 31 3A 42 39 3D 42 39 2B 31 0D 0A 31 NB3=1:B9=B9+1..1
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 54 41 52 47 45 54 22 0D 0A 32 30 20 50 52 ;"TARGET"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
000070: 0D 0A 31 30 30 20 52 3D 31 3A 20 52 31 3D 35 37 ..100 R=1: R1=57
000080: 2E 32 39 36 3A 20 50 3D 33 2E 31 34 31 35 39 0D .296: P=3.14159.
000090: 0A 31 31 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .110 PRINT "YOU
0000A0: 41 52 45 20 54 48 45 20 57 45 41 50 4F 4E 53 20 ARE THE WEAPONS
0000B0: 4F 46 46 49 43 45 52 20 4F 4E 20 54 48 45 20 53 OFFICER ON THE S
0000C0: 54 41 52 53 48 49 50 20 45 4E 54 45 52 50 52 49 TARSHIP ENTERPRI
0000D0: 53 45 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 SE"..120 PRINT "
0000E0: 41 4E 44 20 54 48 49 53 20 49 53 20 41 20 54 45 AND THIS IS A TE
0000F0: 53 54 20 54 4F 20 53 45 45 20 48 4F 57 20 41 43 ST TO SEE HOW AC
000100: 43 55 52 41 54 45 20 41 20 53 48 4F 54 20 59 4F CURATE A SHOT YO
000110: 55 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 41 U"..130 PRINT "A
000120: 52 45 20 49 4E 20 41 20 54 48 52 45 45 2D 44 49 RE IN A THREE-DI
000130: 4D 45 4E 53 49 4F 4E 41 4C 20 52 41 4E 47 45 2E MENSIONAL RANGE.
000140: 20 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 54 4F YOU WILL BE TO
000150: 4C 44 22 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 LD"..140 PRINT "
000160: 54 48 45 20 52 41 44 49 41 4E 20 4F 46 46 53 45 THE RADIAN OFFSE
000170: 54 20 46 4F 52 20 54 48 45 20 58 20 41 4E 44 20 T FOR THE X AND
000180: 5A 20 41 58 45 53 2C 20 54 48 45 20 4C 4F 43 41 Z AXES, THE LOCA
000190: 54 49 4F 4E 22 0D 0A 31 35 30 20 50 52 49 4E 54 TION"..150 PRINT
0001A0: 20 22 4F 46 20 54 48 45 20 54 41 52 47 45 54 20 "OF THE TARGET
0001B0: 49 4E 20 54 48 52 45 45 20 44 49 4D 45 4E 53 49 IN THREE DIMENSI
0001C0: 4F 4E 41 4C 20 52 45 43 54 41 4E 47 55 4C 41 52 ONAL RECTANGULAR
0001D0: 20 43 4F 4F 52 44 49 4E 41 54 45 53 2C 22 0D 0A COORDINATES,"..
0001E0: 31 36 30 20 50 52 49 4E 54 20 22 54 48 45 20 41 160 PRINT "THE A
0001F0: 50 50 52 4F 58 49 4D 41 54 45 20 4E 55 4D 42 45 PPROXIMATE NUMBE
Size : 512 (Real : 512)
000000: 30 34 30 20 47 28 49 2C 4A 29 3D 4B 33 2A 31 30 040 G(I,J)=K3*10
000010: 30 2B 42 33 2A 31 30 2B 46 4E 52 28 31 29 3A 4E 0+B3*10+FNR(1):N
000020: 45 58 54 4A 3A 4E 45 58 54 49 3A 49 46 4B 39 3E EXTJ:NEXTI:IFK9>
000030: 54 39 54 48 45 4E 54 39 3D 4B 39 2B 31 0D 0A 31 T9THENT9=K9+1..1
000040: 31 30 30 20 49 46 42 39 3C 3E 30 54 48 45 4E 31 100 IFB9<>0THEN1
000050: 32 30 30 0D 0A 31 31 35 30 20 49 46 47 28 51 31 200..1150 IFG(Q1
000060: 2C 51 32 29 3C 32 30 30 54 48 45 4E 47 28 51 31 ,Q2)<200THENG(Q1
000070: 2C 51 32 29 3D 47 28 51 31 2C 51 32 29 2B 31 32 ,Q2)=G(Q1,Q2)+12
000080: 30 3A 4B 39 3D 4B 39 2B 31 0D 0A 31 31 36 30 20 0:K9=K9+1..1160
000090: 42 39 3D 31 3A 47 28 51 31 2C 51 32 29 3D 47 28 B9=1:G(Q1,Q2)=G(
0000A0: 51 31 2C 51 32 29 2B 31 30 3A 51 31 3D 46 4E 52 Q1,Q2)+10:Q1=FNR
0000B0: 28 31 29 3A 51 32 3D 46 4E 52 28 31 29 0D 0A 31 (1):Q2=FNR(1)..1
0000C0: 32 30 30 20 4B 37 3D 4B 39 3A 49 46 42 39 3C 3E 200 K7=K9:IFB9<>
0000D0: 31 54 48 45 4E 58 24 3D 22 53 22 3A 58 30 24 3D 1THENX$="S":X0$=
0000E0: 22 20 41 52 45 20 22 0D 0A 31 32 33 30 20 50 52 " ARE "..1230 PR
0000F0: 49 4E 54 22 59 4F 55 52 20 4F 52 44 45 52 53 20 INT"YOUR ORDERS
000100: 41 52 45 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 ARE AS FOLLOWS:"
000110: 0D 0A 31 32 34 30 20 50 52 49 4E 54 22 20 20 20 ..1240 PRINT"
000120: 20 20 44 45 53 54 52 4F 59 20 54 48 45 22 3B 4B DESTROY THE";K
000130: 39 3B 22 4B 4C 49 4E 47 4F 4E 20 57 41 52 53 48 9;"KLINGON WARSH
000140: 49 50 53 20 57 48 49 43 48 20 48 41 56 45 20 49 IPS WHICH HAVE I
000150: 4E 56 41 44 45 44 22 0D 0A 31 32 35 32 20 50 52 NVADED"..1252 PR
000160: 49 4E 54 22 20 20 20 54 48 45 20 47 41 4C 41 58 INT" THE GALAX
000170: 59 20 42 45 46 4F 52 45 20 54 48 45 59 20 43 41 Y BEFORE THEY CA
000180: 4E 20 41 54 54 41 43 4B 20 46 45 44 45 52 41 54 N ATTACK FEDERAT
000190: 49 4F 4E 20 48 45 41 44 51 55 41 52 54 45 52 53 ION HEADQUARTERS
0001A0: 22 0D 0A 31 32 36 30 20 50 52 49 4E 54 22 20 20 "..1260 PRINT"
0001B0: 20 4F 4E 20 53 54 41 52 44 41 54 45 22 3B 54 30 ON STARDATE";T0
0001C0: 2B 54 39 3B 22 20 20 54 48 49 53 20 47 49 56 45 +T9;" THIS GIVE
0001D0: 53 20 59 4F 55 22 3B 54 39 3B 22 44 41 59 53 2E S YOU";T9;"DAYS.
0001E0: 20 20 54 48 45 52 45 22 3B 58 30 24 0D 0A 31 32 THERE";X0$..12
0001F0: 37 32 20 50 52 49 4E 54 22 20 20 22 3B 42 39 3B 72 PRINT" ";B9;
Size : 512 (Real : 512)
000000: 52 20 4F 46 20 44 45 47 52 45 45 53 20 46 52 4F R OF DEGREES FRO
000010: 4D 20 54 48 45 20 58 20 41 4E 44 20 5A 22 0D 0A M THE X AND Z"..
000020: 31 37 30 20 50 52 49 4E 54 20 22 41 58 45 53 2C 170 PRINT "AXES,
000030: 20 41 4E 44 20 54 48 45 20 41 50 50 52 4F 58 49 AND THE APPROXI
000040: 4D 41 54 45 20 44 49 53 54 41 4E 43 45 20 54 4F MATE DISTANCE TO
000050: 20 54 48 45 20 54 41 52 47 45 54 2E 22 0D 0A 31 THE TARGET."..1
000060: 38 30 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 80 PRINT "YOU WI
000070: 4C 4C 20 54 48 45 4E 20 50 52 4F 43 45 45 45 44 LL THEN PROCEEED
000080: 20 54 4F 20 53 48 4F 4F 54 20 41 54 20 54 48 45 TO SHOOT AT THE
000090: 20 54 41 52 47 45 54 20 55 4E 54 49 4C 20 49 54 TARGET UNTIL IT
0000A0: 20 49 53 22 0D 0A 31 39 30 20 50 52 49 4E 54 20 IS"..190 PRINT
0000B0: 22 44 45 53 54 52 4F 59 45 44 21 22 3A 20 50 52 "DESTROYED!": PR
0000C0: 49 4E 54 3A 20 50 52 49 4E 54 20 22 47 4F 4F 44 INT: PRINT "GOOD
0000D0: 20 4C 55 43 4B 21 21 22 3A 50 52 49 4E 54 3A 20 LUCK!!":PRINT:
0000E0: 50 52 49 4E 54 0D 0A 32 32 30 20 41 3D 52 4E 44 PRINT..220 A=RND
0000F0: 28 31 29 2A 32 2A 50 3A 20 42 3D 52 4E 44 28 31 (1)*2*P: B=RND(1
000100: 29 2A 32 2A 50 3A 20 51 3D 49 4E 54 28 41 2A 52 )*2*P: Q=INT(A*R
000110: 31 29 3A 20 57 3D 49 4E 54 28 42 2A 52 31 29 0D 1): W=INT(B*R1).
000120: 0A 32 36 30 20 50 52 49 4E 54 20 22 52 41 44 49 .260 PRINT "RADI
000130: 41 4E 53 20 46 52 4F 4D 20 58 20 41 58 49 53 20 ANS FROM X AXIS
000140: 3D 22 3B 41 3B 22 20 20 20 46 52 4F 4D 20 5A 20 =";A;" FROM Z
000150: 41 58 49 53 20 3D 22 3B 42 0D 0A 32 38 30 20 50 AXIS =";B..280 P
000160: 31 3D 31 30 30 30 30 30 2A 52 4E 44 28 31 29 2B 1=100000*RND(1)+
000170: 52 4E 44 28 31 29 3A 20 58 3D 53 49 4E 28 42 29 RND(1): X=SIN(B)
000180: 2A 43 4F 53 28 41 29 2A 50 31 3A 20 59 3D 53 49 *COS(A)*P1: Y=SI
000190: 4E 28 42 29 2A 53 49 4E 28 41 29 2A 50 31 0D 0A N(B)*SIN(A)*P1..
0001A0: 32 39 30 20 5A 3D 43 4F 53 28 42 29 2A 50 31 0D 290 Z=COS(B)*P1.
0001B0: 0A 33 34 30 20 50 52 49 4E 54 20 22 54 41 52 47 .340 PRINT "TARG
0001C0: 45 54 20 53 49 47 48 54 45 44 3A 20 41 50 50 52 ET SIGHTED: APPR
0001D0: 4F 58 49 4D 41 54 45 20 43 4F 4F 52 44 49 4E 41 OXIMATE COORDINA
0001E0: 54 45 53 3A 20 20 58 3D 22 3B 58 3B 22 20 20 59 TES: X=";X;" Y
0001F0: 3D 22 3B 59 3B 22 20 20 5A 3D 22 3B 5A 0D 0A 33 =";Y;" Z=";Z..3
Size : 512 (Real : 512)
000000: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 100 PRINT TAB(33
000010: 29 3B 22 51 55 42 49 43 22 3A 50 52 49 4E 54 0D );"QUBIC":PRINT.
000020: 0A 31 31 30 20 50 52 49 4E 54 20 54 41 42 28 31 .110 PRINT TAB(1
000030: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
000040: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
000050: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
000060: 0A 31 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .120 PRINT:PRINT
000070: 3A 50 52 49 4E 54 0D 0A 32 31 30 20 50 52 49 4E :PRINT..210 PRIN
000080: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 T "DO YOU WANT I
000090: 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 NSTRUCTIONS";..2
0000A0: 32 30 20 49 4E 50 55 54 20 43 24 0D 0A 32 33 30 20 INPUT C$..230
0000B0: 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 3D IF LEFT$(C$,1)=
0000C0: 22 4E 22 20 54 48 45 4E 20 33 31 35 0D 0A 32 34 "N" THEN 315..24
0000D0: 30 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 0 IF LEFT$(C$,1)
0000E0: 3D 22 59 22 20 54 48 45 4E 20 32 36 35 0D 0A 32 ="Y" THEN 265..2
0000F0: 35 30 20 50 52 49 4E 54 20 22 49 4E 43 4F 52 52 50 PRINT "INCORR
000100: 45 43 54 20 41 4E 53 57 45 52 2E 20 20 50 4C 45 ECT ANSWER. PLE
000110: 41 53 45 20 54 59 50 45 20 27 59 45 53 27 20 4F ASE TYPE 'YES' O
000120: 52 20 27 4E 4F 27 22 3B 0D 0A 32 36 30 20 47 4F R 'NO'";..260 GO
000130: 54 4F 20 32 32 30 0D 0A 32 36 35 20 50 52 49 4E TO 220..265 PRIN
000140: 54 0D 0A 32 37 30 20 50 52 49 4E 54 20 22 54 48 T..270 PRINT "TH
000150: 45 20 47 41 4D 45 20 49 53 20 54 49 43 2D 54 41 E GAME IS TIC-TA
000160: 43 2D 54 4F 45 20 49 4E 20 41 20 34 20 58 20 34 C-TOE IN A 4 X 4
000170: 20 58 20 34 20 43 55 42 45 2E 22 0D 0A 32 38 30 X 4 CUBE."..280
000180: 20 50 52 49 4E 54 20 22 45 41 43 48 20 4D 4F 56 PRINT "EACH MOV
000190: 45 20 49 53 20 49 4E 44 49 43 41 54 45 44 20 42 E IS INDICATED B
0001A0: 59 20 41 20 33 20 44 49 47 49 54 20 4E 55 4D 42 Y A 3 DIGIT NUMB
0001B0: 45 52 2C 20 57 49 54 48 20 45 41 43 48 22 0D 0A ER, WITH EACH"..
0001C0: 32 39 30 20 50 52 49 4E 54 20 22 44 49 47 49 54 290 PRINT "DIGIT
0001D0: 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 34 BETWEEN 1 AND 4
0001E0: 20 49 4E 43 4C 55 53 49 56 45 2E 20 20 54 48 45 INCLUSIVE. THE
0001F0: 20 44 49 47 49 54 53 20 49 4E 44 49 43 41 54 45 DIGITS INDICATE
Size : 512 (Real : 512)
000000: 0A 31 30 30 30 20 47 4F 54 4F 20 35 30 30 0D 0A .1000 GOTO 500..
000010: 31 30 31 30 20 4E 45 58 54 20 4A 0D 0A 31 30 32 1010 NEXT J..102
000020: 30 20 47 4F 54 4F 20 31 33 30 30 0D 0A 31 30 33 0 GOTO 1300..103
000030: 30 20 49 3D 31 0D 0A 31 30 34 30 20 4C 45 54 20 0 I=1..1040 LET
000040: 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 2B 58 L(I)=X(M(I,1))+X
000050: 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 2C 33 (M(I,2))+X(M(I,3
000060: 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A 31 30 ))+X(M(I,4))..10
000070: 35 30 20 4C 45 54 20 4C 20 3D 20 4C 28 49 29 0D 50 LET L = L(I).
000080: 0A 31 30 36 30 20 49 46 20 4C 20 3C 32 20 54 48 .1060 IF L <2 TH
000090: 45 4E 20 31 31 33 30 0D 0A 31 30 37 30 20 49 46 EN 1130..1070 IF
0000A0: 20 4C 3E 3D 33 20 54 48 45 4E 20 31 31 33 30 0D L>=3 THEN 1130.
0000B0: 0A 31 30 38 30 20 49 46 20 4C 3E 32 20 54 48 45 .1080 IF L>2 THE
0000C0: 4E 20 32 32 33 30 0D 0A 31 30 39 30 20 46 4F 52 N 2230..1090 FOR
0000D0: 20 4A 20 3D 20 31 20 54 4F 20 34 0D 0A 31 31 30 J = 1 TO 4..110
0000E0: 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 0 IF X(M(I,J))<>
0000F0: 30 20 54 48 45 4E 20 31 31 32 30 0D 0A 31 31 31 0 THEN 1120..111
000100: 30 20 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 0 LET X(M(I,J))=
000110: 31 2F 38 0D 0A 31 31 32 30 20 4E 45 58 54 20 4A 1/8..1120 NEXT J
000120: 0D 0A 31 31 33 30 20 49 3D 49 2B 31 3A 20 49 46 ..1130 I=I+1: IF
000130: 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 30 34 30 I<=76 THEN 1040
000140: 0D 0A 31 31 34 30 20 47 4F 53 55 42 20 31 36 34 ..1140 GOSUB 164
000150: 30 0D 0A 31 31 35 30 20 49 3D 31 0D 0A 31 31 36 0..1150 I=1..116
000160: 30 20 49 46 20 4C 28 49 29 3D 31 2F 32 20 54 48 0 IF L(I)=1/2 TH
000170: 45 4E 20 32 33 36 30 0D 0A 31 31 37 30 20 49 46 EN 2360..1170 IF
000180: 20 4C 28 49 29 3D 31 2B 33 2F 38 20 54 48 45 4E L(I)=1+3/8 THEN
000190: 20 32 33 36 30 0D 0A 31 31 38 30 20 49 3D 49 2B 2360..1180 I=I+
0001A0: 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 1: IF I<=76 THEN
0001B0: 20 31 31 36 30 0D 0A 31 31 39 30 20 47 4F 54 4F 1160..1190 GOTO
0001C0: 20 31 38 33 30 0D 0A 31 32 30 30 20 4C 45 54 20 1830..1200 LET
0001D0: 5A 20 3D 20 31 0D 0A 31 32 31 30 20 49 46 20 58 Z = 1..1210 IF X
0001E0: 28 59 28 5A 29 29 3D 30 20 54 48 45 4E 20 31 32 (Y(Z))=0 THEN 12
0001F0: 35 30 0D 0A 31 32 32 30 20 4C 45 54 20 5A 3D 5A 50..1220 LET Z=Z
Size : 512 (Real : 512)
000000: 20 54 48 45 22 0D 0A 33 30 30 20 50 52 49 4E 54 THE"..300 PRINT
000010: 20 22 4C 45 56 45 4C 2C 20 52 4F 57 2C 20 41 4E "LEVEL, ROW, AN
000020: 44 20 43 4F 4C 55 4D 4E 2C 20 52 45 53 50 45 43 D COLUMN, RESPEC
000030: 54 49 56 45 4C 59 2C 20 4F 46 20 54 48 45 20 4F TIVELY, OF THE O
000040: 43 43 55 50 49 45 44 22 0D 0A 33 30 35 20 50 52 CCUPIED"..305 PR
000050: 49 4E 54 20 22 50 4C 41 43 45 2E 20 20 22 0D 0A INT "PLACE. "..
000060: 33 30 36 20 50 52 49 4E 54 0D 0A 33 30 37 20 50 306 PRINT..307 P
000070: 52 49 4E 54 20 22 54 4F 20 50 52 49 4E 54 20 54 RINT "TO PRINT T
000080: 48 45 20 50 4C 41 59 49 4E 47 20 42 4F 41 52 44 HE PLAYING BOARD
000090: 2C 20 54 59 50 45 20 30 20 28 5A 45 52 4F 29 20 , TYPE 0 (ZERO)
0000A0: 41 53 20 59 4F 55 52 20 4D 4F 56 45 2E 22 0D 0A AS YOUR MOVE."..
0000B0: 33 30 38 20 50 52 49 4E 54 20 22 54 48 45 20 50 308 PRINT "THE P
0000C0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E ROGRAM WILL PRIN
0000D0: 54 20 54 48 45 20 42 4F 41 52 44 20 57 49 54 48 T THE BOARD WITH
0000E0: 20 59 4F 55 52 20 4D 4F 56 45 53 20 49 4E 44 49 YOUR MOVES INDI
0000F0: 2D 22 0D 0A 33 30 39 20 50 52 49 4E 54 20 22 43 -"..309 PRINT "C
000100: 41 54 45 44 20 57 49 54 48 20 41 20 28 59 29 2C ATED WITH A (Y),
000110: 20 54 48 45 20 4D 41 43 48 49 4E 45 27 53 20 4D THE MACHINE'S M
000120: 4F 56 45 53 20 57 49 54 48 20 41 4E 20 28 4D 29 OVES WITH AN (M)
000130: 2C 20 41 4E 44 22 0D 0A 33 31 30 20 50 52 49 4E , AND"..310 PRIN
000140: 54 20 22 55 4E 55 53 45 44 20 53 51 55 41 52 45 T "UNUSED SQUARE
000150: 53 20 57 49 54 48 20 41 20 28 20 29 2E 20 20 4F S WITH A ( ). O
000160: 55 54 50 55 54 20 49 53 20 4F 4E 20 50 41 50 45 UTPUT IS ON PAPE
000170: 52 2E 22 0D 0A 33 31 31 20 50 52 49 4E 54 0D 0A R."..311 PRINT..
000180: 33 31 32 20 50 52 49 4E 54 20 22 54 4F 20 53 54 312 PRINT "TO ST
000190: 4F 50 20 54 48 45 20 50 52 4F 47 52 41 4D 20 52 OP THE PROGRAM R
0001A0: 55 4E 2C 20 54 59 50 45 20 31 20 41 53 20 59 4F UN, TYPE 1 AS YO
0001B0: 55 52 20 4D 4F 56 45 2E 22 0D 0A 33 31 33 20 50 UR MOVE."..313 P
0001C0: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 33 31 35 20 RINT:PRINT..315
0001D0: 44 49 4D 20 58 28 36 34 29 2C 4C 28 37 36 29 2C DIM X(64),L(76),
0001E0: 4D 28 37 36 2C 34 29 2C 59 28 31 36 29 0D 0A 33 M(76,4),Y(16)..3
0001F0: 32 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 20 FOR I = 1 TO
Size : 512 (Real : 512)
000000: 2B 31 0D 0A 31 32 33 30 20 49 46 20 5A 3C 3E 31 +1..1230 IF Z<>1
000010: 37 20 54 48 45 4E 20 31 32 31 30 0D 0A 31 32 34 7 THEN 1210..124
000020: 30 20 47 4F 54 4F 20 31 37 32 30 0D 0A 31 32 35 0 GOTO 1720..125
000030: 30 20 4C 45 54 20 4D 3D 59 28 5A 29 0D 0A 31 32 0 LET M=Y(Z)..12
000040: 36 30 20 4C 45 54 20 58 28 4D 29 3D 35 0D 0A 31 60 LET X(M)=5..1
000050: 32 37 30 20 50 52 49 4E 54 20 22 4D 41 43 48 49 270 PRINT "MACHI
000060: 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D 0A 31 NE MOVES TO";..1
000070: 32 38 30 20 47 4F 53 55 42 20 31 35 37 30 0D 0A 280 GOSUB 1570..
000080: 31 32 39 30 20 47 4F 54 4F 20 35 30 30 0D 0A 31 1290 GOTO 500..1
000090: 33 30 30 20 4C 45 54 20 58 3D 58 0D 0A 31 33 31 300 LET X=X..131
0000A0: 30 20 49 3D 31 0D 0A 31 33 32 30 20 4C 45 54 20 0 I=1..1320 LET
0000B0: 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 2B 58 L(I)=X(M(I,1))+X
0000C0: 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 2C 33 (M(I,2))+X(M(I,3
0000D0: 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A 31 33 ))+X(M(I,4))..13
0000E0: 33 30 20 4C 45 54 20 4C 3D 4C 28 49 29 0D 0A 31 30 LET L=L(I)..1
0000F0: 33 34 30 20 49 46 20 4C 3C 31 30 20 54 48 45 4E 340 IF L<10 THEN
000100: 20 31 34 31 30 0D 0A 31 33 35 30 20 49 46 20 4C 1410..1350 IF L
000110: 3E 3D 31 31 20 54 48 45 4E 20 31 34 31 30 0D 0A >=11 THEN 1410..
000120: 31 33 36 30 20 49 46 20 4C 3E 31 30 20 54 48 45 1360 IF L>10 THE
000130: 4E 20 32 32 33 30 0D 0A 31 33 37 30 20 46 4F 52 N 2230..1370 FOR
000140: 20 4A 3D 31 20 54 4F 20 34 0D 0A 31 33 38 30 20 J=1 TO 4..1380
000150: 49 46 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 30 20 IF X(M(I,J))<>0
000160: 54 48 45 4E 20 31 34 30 30 0D 0A 31 33 39 30 20 THEN 1400..1390
000170: 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 31 2F LET X(M(I,J))=1/
000180: 38 0D 0A 31 34 30 30 20 4E 45 58 54 20 4A 0D 0A 8..1400 NEXT J..
000190: 31 34 31 30 20 49 3D 49 2B 31 3A 20 49 46 20 49 1410 I=I+1: IF I
0001A0: 3C 3D 37 36 20 54 48 45 4E 20 31 33 32 30 0D 0A <=76 THEN 1320..
0001B0: 31 34 32 30 20 47 4F 53 55 42 20 31 36 34 30 0D 1420 GOSUB 1640.
0001C0: 0A 31 34 33 30 20 49 3D 31 0D 0A 31 34 34 30 20 .1430 I=1..1440
0001D0: 49 46 20 4C 28 49 29 3D 2E 35 20 54 48 45 4E 20 IF L(I)=.5 THEN
0001E0: 32 33 36 30 0D 0A 31 34 35 30 20 49 46 20 4C 28 2360..1450 IF L(
0001F0: 49 29 3D 35 2B 33 2F 38 20 54 48 45 4E 20 32 33 I)=5+3/8 THEN 23
Size : 512 (Real : 512)
000000: 31 36 0D 0A 33 33 30 20 52 45 41 44 20 59 28 49 16..330 READ Y(I
000010: 29 0D 0A 33 34 30 20 4E 45 58 54 20 49 0D 0A 33 )..340 NEXT I..3
000020: 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 37 36 50 FOR I=1 TO 76
000030: 0D 0A 33 36 30 20 46 4F 52 20 4A 20 3D 20 31 20 ..360 FOR J = 1
000040: 54 4F 20 34 0D 0A 33 37 30 20 52 45 41 44 20 4D TO 4..370 READ M
000050: 28 49 2C 4A 29 0D 0A 33 38 30 20 4E 45 58 54 20 (I,J)..380 NEXT
000060: 4A 0D 0A 33 39 30 20 4E 45 58 54 20 49 0D 0A 34 J..390 NEXT I..4
000070: 30 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 00 FOR I = 1 TO
000080: 36 34 0D 0A 34 31 30 20 4C 45 54 20 58 28 49 29 64..410 LET X(I)
000090: 3D 30 0D 0A 34 32 30 20 4E 45 58 54 20 49 0D 0A =0..420 NEXT I..
0000A0: 34 33 30 20 4C 45 54 20 5A 3D 31 0D 0A 34 34 30 430 LET Z=1..440
0000B0: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
0000C0: 41 4E 54 20 54 4F 20 4D 4F 56 45 20 46 49 52 53 ANT TO MOVE FIRS
0000D0: 54 22 3B 0D 0A 34 35 30 20 49 4E 50 55 54 20 53 T";..450 INPUT S
0000E0: 24 0D 0A 34 36 30 20 49 46 20 4C 45 46 54 24 28 $..460 IF LEFT$(
0000F0: 53 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E 20 36 S$,1)="N" THEN 6
000100: 33 30 0D 0A 34 37 30 20 49 46 20 4C 45 46 54 24 30..470 IF LEFT$
000110: 28 53 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 (S$,1)="Y" THEN
000120: 35 30 30 0D 0A 34 38 30 20 50 52 49 4E 54 20 22 500..480 PRINT "
000130: 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 INCORRECT ANSWER
000140: 2E 20 20 50 4C 45 41 53 45 20 54 59 50 45 20 27 . PLEASE TYPE '
000150: 59 45 53 27 20 4F 52 20 27 4E 4F 27 2E 22 3B 0D YES' OR 'NO'.";.
000160: 0A 34 39 30 20 47 4F 54 4F 20 34 35 30 0D 0A 35 .490 GOTO 450..5
000170: 30 30 20 50 52 49 4E 54 20 22 20 22 0D 0A 35 31 00 PRINT " "..51
000180: 30 20 50 52 49 4E 54 20 22 59 4F 55 52 20 4D 4F 0 PRINT "YOUR MO
000190: 56 45 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 VE";..520 INPUT
0001A0: 4A 31 0D 0A 35 32 31 20 49 46 20 4A 31 3D 31 20 J1..521 IF J1=1
0001B0: 54 48 45 4E 20 32 37 37 30 0D 0A 35 32 32 20 49 THEN 2770..522 I
0001C0: 46 20 4A 31 3C 3E 30 20 54 48 45 4E 20 35 32 35 F J1<>0 THEN 525
0001D0: 0D 0A 35 32 33 20 47 4F 53 55 42 20 32 35 35 30 ..523 GOSUB 2550
0001E0: 0D 0A 35 32 34 20 47 4F 54 4F 20 35 30 30 0D 0A ..524 GOTO 500..
0001F0: 35 32 35 20 49 46 20 4A 31 3C 31 31 31 20 54 48 525 IF J1<111 TH
Size : 512 (Real : 512)
000000: 36 30 0D 0A 31 34 36 30 20 49 3D 49 2B 31 3A 20 60..1460 I=I+1:
000010: 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 34 IF I<=76 THEN 14
000020: 34 30 0D 0A 31 34 37 30 20 47 4F 53 55 42 20 32 40..1470 GOSUB 2
000030: 35 30 30 0D 0A 31 34 38 30 20 47 4F 54 4F 20 31 500..1480 GOTO 1
000040: 30 33 30 0D 0A 31 34 39 30 20 50 52 49 4E 54 20 030..1490 PRINT
000050: 22 20 22 0D 0A 31 35 30 30 20 50 52 49 4E 54 20 " "..1500 PRINT
000060: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 "DO YOU WANT TO
000070: 54 52 59 20 41 4E 4F 54 48 45 52 20 47 41 4D 45 TRY ANOTHER GAME
000080: 22 3B 0D 0A 31 35 31 30 20 49 4E 50 55 54 20 58 ";..1510 INPUT X
000090: 24 0D 0A 31 35 32 30 20 49 46 20 4C 45 46 54 24 $..1520 IF LEFT$
0000A0: 28 58 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 (X$,1)="Y" THEN
0000B0: 34 30 30 0D 0A 31 35 33 30 20 49 46 20 4C 45 46 400..1530 IF LEF
0000C0: 54 24 28 58 24 2C 31 29 3D 22 4E 22 20 54 48 45 T$(X$,1)="N" THE
0000D0: 4E 20 31 35 36 30 0D 0A 31 35 34 30 20 50 52 49 N 1560..1540 PRI
0000E0: 4E 54 20 22 49 4E 43 4F 52 52 45 43 54 20 41 4E NT "INCORRECT AN
0000F0: 53 57 45 52 2E 20 50 4C 45 41 53 45 20 54 59 50 SWER. PLEASE TYP
000100: 45 20 27 59 45 53 27 20 4F 52 20 27 4E 4F 27 22 E 'YES' OR 'NO'"
000110: 3B 0D 0A 31 35 35 30 20 47 4F 54 4F 20 31 35 31 ;..1550 GOTO 151
000120: 30 0D 0A 31 35 36 30 20 53 54 4F 50 3A 52 55 4E 0..1560 STOP:RUN
000130: 20 22 4D 45 4E 55 22 0D 0A 31 35 37 30 20 4C 45 "MENU"..1570 LE
000140: 54 20 4B 31 3D 49 4E 54 28 28 4D 2D 31 29 2F 31 T K1=INT((M-1)/1
000150: 36 29 2B 31 0D 0A 31 35 38 30 20 4C 45 54 20 4A 6)+1..1580 LET J
000160: 32 3D 4D 2D 31 36 2A 28 4B 31 2D 31 29 0D 0A 31 2=M-16*(K1-1)..1
000170: 35 39 30 20 4C 45 54 20 4B 32 3D 49 4E 54 28 28 590 LET K2=INT((
000180: 4A 32 2D 31 29 2F 34 29 2B 31 0D 0A 31 36 30 30 J2-1)/4)+1..1600
000190: 20 4C 45 54 20 4B 33 3D 4D 2D 28 4B 31 2D 31 29 LET K3=M-(K1-1)
0001A0: 2A 31 36 2D 28 4B 32 2D 31 29 2A 34 0D 0A 31 36 *16-(K2-1)*4..16
0001B0: 31 30 20 4C 45 54 20 4D 3D 4B 31 2A 31 30 30 2B 10 LET M=K1*100+
0001C0: 4B 32 2A 31 30 2B 4B 33 0D 0A 31 36 32 30 20 50 K2*10+K3..1620 P
0001D0: 52 49 4E 54 20 4D 3B 0D 0A 31 36 33 30 20 52 45 RINT M;..1630 RE
0001E0: 54 55 52 4E 0D 0A 31 36 34 30 20 46 4F 52 20 53 TURN..1640 FOR S
0001F0: 3D 31 20 54 4F 20 37 36 0D 0A 31 36 35 30 20 4C =1 TO 76..1650 L
Size : 512 (Real : 512)
000000: 45 4E 20 32 37 35 30 0D 0A 35 32 36 20 49 46 20 EN 2750..526 IF
000010: 4A 31 3E 34 34 34 20 54 48 45 4E 20 32 37 35 30 J1>444 THEN 2750
000020: 0D 0A 35 33 30 20 47 4F 53 55 42 20 32 35 30 30 ..530 GOSUB 2500
000030: 0D 0A 35 34 30 20 4C 45 54 20 4B 31 3D 49 4E 54 ..540 LET K1=INT
000040: 28 4A 31 2F 31 30 30 29 0D 0A 35 35 30 20 4C 45 (J1/100)..550 LE
000050: 54 20 4A 32 3D 28 4A 31 2D 4B 31 2A 31 30 30 29 T J2=(J1-K1*100)
000060: 0D 0A 35 36 30 20 4C 45 54 20 4B 32 3D 49 4E 54 ..560 LET K2=INT
000070: 28 4A 32 2F 31 30 29 0D 0A 35 37 30 20 4C 45 54 (J2/10)..570 LET
000080: 20 4B 33 3D 20 4A 31 20 2D 20 4B 31 2A 31 30 30 K3= J1 - K1*100
000090: 20 2D 4B 32 2A 31 30 0D 0A 35 38 30 20 4C 45 54 -K2*10..580 LET
0000A0: 20 4D 3D 31 36 2A 4B 31 2B 34 2A 4B 32 2B 4B 33 M=16*K1+4*K2+K3
0000B0: 2D 32 30 0D 0A 35 39 30 20 49 46 20 58 28 4D 29 -20..590 IF X(M)
0000C0: 3D 30 20 54 48 45 4E 20 36 32 30 0D 0A 36 30 30 =0 THEN 620..600
0000D0: 20 50 52 49 4E 54 20 22 54 48 41 54 20 53 51 55 PRINT "THAT SQU
0000E0: 41 52 45 20 49 53 20 55 53 45 44 2C 20 54 52 59 ARE IS USED, TRY
0000F0: 20 41 47 41 49 4E 2E 22 0D 0A 36 31 30 20 47 4F AGAIN."..610 GO
000100: 54 4F 20 35 30 30 0D 0A 36 32 30 20 4C 45 54 20 TO 500..620 LET
000110: 58 28 4D 29 3D 31 0D 0A 36 33 30 20 47 4F 53 55 X(M)=1..630 GOSU
000120: 42 20 31 36 34 30 0D 0A 36 34 30 20 4A 3D 31 0D B 1640..640 J=1.
000130: 0A 36 35 30 20 49 3D 31 0D 0A 36 36 30 20 49 46 .650 I=1..660 IF
000140: 20 4A 3D 31 20 54 48 45 4E 20 37 32 30 0D 0A 36 J=1 THEN 720..6
000150: 37 30 20 49 46 20 4A 3D 32 20 54 48 45 4E 20 37 70 IF J=2 THEN 7
000160: 39 30 0D 0A 36 38 30 20 49 46 20 4A 3D 33 20 54 90..680 IF J=3 T
000170: 48 45 4E 20 39 33 30 0D 0A 36 39 30 20 49 3D 49 HEN 930..690 I=I
000180: 2B 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 45 +1: IF I<=76 THE
000190: 4E 20 36 36 30 0D 0A 37 30 30 20 4A 3D 4A 2B 31 N 660..700 J=J+1
0001A0: 3A 20 49 46 20 4A 3C 3D 33 20 54 48 45 4E 20 36 : IF J<=3 THEN 6
0001B0: 35 30 0D 0A 37 31 30 20 47 4F 54 4F 20 31 33 30 50..710 GOTO 130
0001C0: 30 0D 0A 37 32 30 20 49 46 20 4C 28 49 29 3C 3E 0..720 IF L(I)<>
0001D0: 34 20 54 48 45 4E 20 36 39 30 0D 0A 37 33 30 20 4 THEN 690..730
0001E0: 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4E 20 41 PRINT "YOU WIN A
0001F0: 53 20 46 4F 4C 4C 4F 57 53 22 3B 0D 0A 37 34 30 S FOLLOWS";..740
Size : 512 (Real : 512)
000000: 45 54 20 4A 31 20 3D 20 4D 28 53 2C 31 29 0D 0A ET J1 = M(S,1)..
000010: 31 36 36 30 20 4C 45 54 20 4A 32 3D 4D 28 53 2C 1660 LET J2=M(S,
000020: 32 29 0D 0A 31 36 37 30 20 4C 45 54 20 4A 33 3D 2)..1670 LET J3=
000030: 4D 28 53 2C 33 29 0D 0A 31 36 38 30 20 4C 45 54 M(S,3)..1680 LET
000040: 20 4A 34 3D 4D 28 53 2C 34 29 0D 0A 31 36 39 30 J4=M(S,4)..1690
000050: 20 4C 45 54 20 4C 28 53 29 3D 58 28 4A 31 29 2B LET L(S)=X(J1)+
000060: 58 28 4A 32 29 2B 58 28 4A 33 29 2B 58 28 4A 34 X(J2)+X(J3)+X(J4
000070: 29 0D 0A 31 37 30 30 20 4E 45 58 54 20 53 0D 0A )..1700 NEXT S..
000080: 31 37 31 30 20 52 45 54 55 52 4E 0D 0A 31 37 32 1710 RETURN..172
000090: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 36 34 0D 0 FOR I=1 TO 64.
0000A0: 0A 31 37 33 30 20 49 46 20 58 28 49 29 3C 3E 30 .1730 IF X(I)<>0
0000B0: 20 54 48 45 4E 20 31 38 30 30 0D 0A 31 37 34 30 THEN 1800..1740
0000C0: 20 4C 45 54 20 58 28 49 29 3D 35 0D 0A 31 37 35 LET X(I)=5..175
0000D0: 30 20 4C 45 54 20 4D 3D 49 0D 0A 31 37 36 30 20 0 LET M=I..1760
0000E0: 50 52 49 4E 54 20 22 4D 41 43 48 49 4E 45 20 4C PRINT "MACHINE L
0000F0: 49 4B 45 53 22 3B 0D 0A 31 37 37 30 20 47 4F 53 IKES";..1770 GOS
000100: 55 42 20 31 35 37 30 0D 0A 31 37 38 30 20 50 52 UB 1570..1780 PR
000110: 49 4E 54 20 22 20 22 0D 0A 31 37 39 30 20 47 4F INT " "..1790 GO
000120: 54 4F 20 35 30 30 0D 0A 31 38 30 30 20 4E 45 58 TO 500..1800 NEX
000130: 54 20 49 0D 0A 31 38 31 30 20 50 52 49 4E 54 20 T I..1810 PRINT
000140: 22 54 48 45 20 47 41 4D 45 20 49 53 20 41 20 44 "THE GAME IS A D
000150: 52 41 57 2E 22 0D 0A 31 38 32 30 20 47 4F 54 4F RAW."..1820 GOTO
000160: 20 31 34 39 30 0D 0A 31 38 33 30 20 46 4F 52 20 1490..1830 FOR
000170: 4B 3D 31 20 54 4F 20 31 38 0D 0A 31 38 34 30 20 K=1 TO 18..1840
000180: 4C 45 54 20 50 3D 30 0D 0A 31 38 35 30 20 46 4F LET P=0..1850 FO
000190: 52 20 49 3D 34 2A 4B 2D 33 20 54 4F 20 34 2A 4B R I=4*K-3 TO 4*K
0001A0: 0D 0A 31 38 36 30 20 46 4F 52 20 4A 3D 31 20 54 ..1860 FOR J=1 T
0001B0: 4F 20 34 0D 0A 31 38 37 30 20 4C 45 54 20 50 3D O 4..1870 LET P=
0001C0: 50 2B 58 28 4D 28 49 2C 4A 29 29 0D 0A 31 38 38 P+X(M(I,J))..188
0001D0: 30 20 4E 45 58 54 20 4A 0D 0A 31 38 39 30 20 4E 0 NEXT J..1890 N
0001E0: 45 58 54 20 49 0D 0A 31 39 30 30 20 49 46 20 50 EXT I..1900 IF P
0001F0: 3C 34 20 54 48 45 4E 20 31 39 34 30 0D 0A 31 39 <4 THEN 1940..19
Size : 512 (Real : 512)
000000: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 37 FOR J=1 TO 4..7
000010: 35 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A 29 0D 50 LET M=M(I,J).
000020: 0A 37 36 30 20 47 4F 53 55 42 20 31 35 37 30 0D .760 GOSUB 1570.
000030: 0A 37 37 30 20 4E 45 58 54 20 4A 0D 0A 37 38 30 .770 NEXT J..780
000040: 20 47 4F 54 4F 20 31 34 39 30 0D 0A 37 39 30 20 GOTO 1490..790
000050: 49 46 20 4C 28 49 29 3C 3E 31 35 20 54 48 45 4E IF L(I)<>15 THEN
000060: 20 36 39 30 0D 0A 38 30 30 20 46 4F 52 20 4A 3D 690..800 FOR J=
000070: 31 20 54 4F 20 34 0D 0A 38 31 30 20 4C 45 54 20 1 TO 4..810 LET
000080: 4D 3D 4D 28 49 2C 4A 29 0D 0A 38 32 30 20 49 46 M=M(I,J)..820 IF
000090: 20 58 28 4D 29 3C 3E 30 20 54 48 45 4E 20 38 36 X(M)<>0 THEN 86
0000A0: 30 0D 0A 38 33 30 20 4C 45 54 20 58 28 4D 29 3D 0..830 LET X(M)=
0000B0: 35 0D 0A 38 34 30 20 50 52 49 4E 54 20 22 4D 41 5..840 PRINT "MA
0000C0: 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B CHINE MOVES TO";
0000D0: 0D 0A 38 35 30 20 47 4F 53 55 42 20 31 35 37 30 ..850 GOSUB 1570
0000E0: 0D 0A 38 36 30 20 4E 45 58 54 20 4A 0D 0A 38 37 ..860 NEXT J..87
0000F0: 30 20 50 52 49 4E 54 20 22 2C 20 41 4E 44 20 57 0 PRINT ", AND W
000100: 49 4E 53 20 41 53 20 46 4F 4C 4C 4F 57 53 22 0D INS AS FOLLOWS".
000110: 0A 38 38 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 .880 FOR J=1 TO
000120: 34 0D 0A 38 39 30 20 4C 45 54 20 4D 3D 4D 28 49 4..890 LET M=M(I
000130: 2C 4A 29 0D 0A 39 30 30 20 47 4F 53 55 42 20 31 ,J)..900 GOSUB 1
000140: 35 37 30 0D 0A 39 31 30 20 4E 45 58 54 20 4A 0D 570..910 NEXT J.
000150: 0A 39 32 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A .920 GOTO 1490..
000160: 39 33 30 20 49 46 20 4C 28 49 29 3C 3E 33 20 54 930 IF L(I)<>3 T
000170: 48 45 4E 20 36 39 30 0D 0A 39 34 30 20 50 52 49 HEN 690..940 PRI
000180: 4E 54 20 22 4E 49 43 45 20 54 52 59 2E 20 4D 41 NT "NICE TRY. MA
000190: 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B CHINE MOVES TO";
0001A0: 0D 0A 39 35 30 20 46 4F 52 20 4A 3D 31 20 54 4F ..950 FOR J=1 TO
0001B0: 20 34 20 0D 0A 39 36 30 20 4C 45 54 20 4D 3D 4D 4 ..960 LET M=M
0001C0: 28 49 2C 4A 29 0D 0A 39 37 30 20 49 46 20 58 28 (I,J)..970 IF X(
0001D0: 4D 29 3C 3E 30 20 54 48 45 4E 20 31 30 31 30 0D M)<>0 THEN 1010.
0001E0: 0A 39 38 30 20 4C 45 54 20 58 28 4D 29 3D 35 0D .980 LET X(M)=5.
0001F0: 0A 39 39 30 20 47 4F 53 55 42 20 31 35 37 30 0D .990 GOSUB 1570.
Size : 512 (Real : 512)
000000: 31 30 20 49 46 20 50 3C 35 20 54 48 45 4E 20 31 10 IF P<5 THEN 1
000010: 39 37 30 0D 0A 31 39 32 30 20 49 46 20 50 3C 39 970..1920 IF P<9
000020: 20 54 48 45 4E 20 31 39 34 30 0D 0A 31 39 33 30 THEN 1940..1930
000030: 20 49 46 20 50 3C 31 30 20 54 48 45 4E 20 31 39 IF P<10 THEN 19
000040: 37 30 0D 0A 31 39 34 30 20 4E 45 58 54 20 4B 0D 70..1940 NEXT K.
000050: 0A 31 39 35 30 20 47 4F 53 55 42 20 32 35 30 30 .1950 GOSUB 2500
000060: 0D 0A 31 39 36 30 20 47 4F 54 4F 20 31 32 30 30 ..1960 GOTO 1200
000070: 0D 0A 31 39 37 30 20 4C 45 54 20 53 3D 31 2F 38 ..1970 LET S=1/8
000080: 0D 0A 31 39 38 30 20 46 4F 52 20 49 3D 34 2A 4B ..1980 FOR I=4*K
000090: 2D 33 20 54 4F 20 34 2A 4B 0D 0A 31 39 39 30 20 -3 TO 4*K..1990
0000A0: 47 4F 54 4F 20 32 33 37 30 0D 0A 32 30 30 30 20 GOTO 2370..2000
0000B0: 4E 45 58 54 20 49 0D 0A 32 30 31 30 20 4C 45 54 NEXT I..2010 LET
0000C0: 20 53 3D 30 0D 0A 32 30 32 30 20 47 4F 54 4F 20 S=0..2020 GOTO
0000D0: 31 39 38 30 0D 0A 32 30 33 30 20 44 41 54 41 20 1980..2030 DATA
0000E0: 31 2C 34 39 2C 35 32 2C 34 2C 31 33 2C 36 31 2C 1,49,52,4,13,61,
0000F0: 36 34 2C 31 36 2C 32 32 2C 33 39 2C 32 33 2C 33 64,16,22,39,23,3
000100: 38 2C 32 36 2C 34 32 2C 32 37 2C 34 33 0D 0A 32 8,26,42,27,43..2
000110: 30 34 30 20 44 41 54 41 20 31 2C 32 2C 33 2C 34 040 DATA 1,2,3,4
000120: 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 2C 31 31 ,5,6,7,8,9,10,11
000130: 2C 31 32 2C 31 33 2C 31 34 2C 31 35 2C 31 36 2C ,12,13,14,15,16,
000140: 31 37 2C 31 38 2C 31 39 2C 32 30 0D 0A 32 30 35 17,18,19,20..205
000150: 30 20 44 41 54 41 20 32 31 2C 32 32 2C 32 33 2C 0 DATA 21,22,23,
000160: 32 34 2C 32 35 2C 32 36 2C 32 37 2C 32 38 2C 32 24,25,26,27,28,2
000170: 39 2C 33 30 2C 33 31 2C 33 32 2C 33 33 2C 33 34 9,30,31,32,33,34
000180: 2C 33 35 2C 33 36 2C 33 37 2C 33 38 0D 0A 32 30 ,35,36,37,38..20
000190: 36 30 20 44 41 54 41 20 33 39 2C 34 30 2C 34 31 60 DATA 39,40,41
0001A0: 2C 34 32 2C 34 33 2C 34 34 2C 34 35 2C 34 36 2C ,42,43,44,45,46,
0001B0: 34 37 2C 34 38 2C 34 39 2C 35 30 2C 35 31 2C 35 47,48,49,50,51,5
0001C0: 32 2C 35 33 2C 35 34 2C 35 35 2C 35 36 0D 0A 32 2,53,54,55,56..2
0001D0: 30 37 30 20 44 41 54 41 20 35 37 2C 35 38 2C 35 070 DATA 57,58,5
0001E0: 39 2C 36 30 2C 36 31 2C 36 32 2C 36 33 2C 36 34 9,60,61,62,63,64
0001F0: 0D 0A 32 30 38 30 20 44 41 54 41 20 31 2C 31 37 ..2080 DATA 1,17
Size : 512 (Real : 512)
000000: 45 4D 20 50 52 49 4E 54 20 43 48 52 24 28 31 32 EM PRINT CHR$(12
000010: 29 0D 0A 32 37 34 30 20 52 45 54 55 52 4E 0D 0A )..2740 RETURN..
000020: 32 37 35 30 20 50 52 49 4E 54 22 49 4E 43 4F 52 2750 PRINT"INCOR
000030: 52 45 43 54 20 4D 4F 56 45 2C 20 52 45 54 59 50 RECT MOVE, RETYP
000040: 45 20 49 54 2D 2D 22 3B 0D 0A 32 37 36 30 20 47 E IT--";..2760 G
000050: 4F 54 4F 20 35 32 30 0D 0A 32 37 37 30 20 45 4E OTO 520..2770 EN
000060: 44 0D 0A 1A 46 43 31 3E 3D 31 41 4E 44 43 31 3C D...FC1>=1ANDC1<
000070: 39 54 48 45 4E 34 38 35 30 0D 0A 34 37 39 30 20 9THEN4850..4790
000080: 50 52 49 4E 54 22 45 4E 53 49 47 4E 20 43 48 45 PRINT"ENSIGN CHE
000090: 4B 4F 56 20 52 45 50 4F 52 54 53 2C 20 20 27 49 KOV REPORTS, 'I
0000A0: 4E 43 4F 52 52 45 43 54 20 43 4F 55 52 53 45 20 NCORRECT COURSE
0000B0: 44 41 54 41 2C 20 53 49 52 21 27 22 0D 0A 34 38 DATA, SIR!'"..48
0000C0: 30 30 20 47 4F 54 4F 31 39 39 30 0D 0A 34 38 35 00 GOTO1990..485
0000D0: 30 20 58 31 3D 43 28 43 31 2C 31 29 2B 28 43 28 0 X1=C(C1,1)+(C(
0000E0: 43 31 2B 31 2C 31 29 2D 43 28 43 31 2C 31 29 29 C1+1,1)-C(C1,1))
0000F0: 2A 28 43 31 2D 49 4E 54 28 43 31 29 29 3A 45 3D *(C1-INT(C1)):E=
000100: 45 2D 32 3A 50 3D 50 2D 31 0D 0A 34 38 36 30 20 E-2:P=P-1..4860
000110: 58 32 3D 43 28 43 31 2C 32 29 2B 28 43 28 43 31 X2=C(C1,2)+(C(C1
000120: 2B 31 2C 32 29 2D 43 28 43 31 2C 32 29 29 2A 28 +1,2)-C(C1,2))*(
000130: 43 31 2D 49 4E 54 28 43 31 29 29 3A 58 3D 53 31 C1-INT(C1)):X=S1
000140: 3A 59 3D 53 32 0D 0A 34 39 31 30 20 50 52 49 4E :Y=S2..4910 PRIN
000150: 54 22 54 4F 52 50 45 44 4F 20 54 52 41 43 4B 3A T"TORPEDO TRACK:
000160: 22 0D 0A 34 39 32 30 20 58 3D 58 2B 58 31 3A 59 "..4920 X=X+X1:Y
000170: 3D 59 2B 58 32 3A 58 33 3D 49 4E 54 28 58 2B 2E =Y+X2:X3=INT(X+.
000180: 35 29 3A 59 33 3D 49 4E 54 28 59 2B 2E 35 29 0D 5):Y3=INT(Y+.5).
000190: 0A 34 39 36 30 20 49 46 58 33 3C 31 4F 52 58 33 .4960 IFX3<1ORX3
0001A0: 3E 38 4F 52 59 33 3C 31 4F 52 59 33 3E 38 54 48 >8ORY3<1ORY3>8TH
0001B0: 45 4E 35 34 39 30 0D 0A 35 30 30 30 20 50 52 49 EN5490..5000 PRI
0001C0: 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 20 20 NT"
0001D0: 20 20 22 3B 58 33 3B 22 2C 22 3B 59 33 3A 41 24 ";X3;",";Y3:A$
0001E0: 3D 22 20 20 20 22 3A 5A 31 3D 58 3A 5A 32 3D 59 =" ":Z1=X:Z2=Y
0001F0: 3A 47 4F 53 55 42 38 38 33 30 0D 0A 35 30 35 30 :GOSUB8830..5050
Size : 512 (Real : 512)
000000: 2C 33 33 2C 34 39 2C 35 2C 32 31 2C 33 37 2C 35 ,33,49,5,21,37,5
000010: 33 2C 39 2C 32 35 2C 34 31 2C 35 37 2C 31 33 2C 3,9,25,41,57,13,
000020: 32 39 2C 34 35 2C 36 31 0D 0A 32 30 39 30 20 44 29,45,61..2090 D
000030: 41 54 41 20 32 2C 31 38 2C 33 34 2C 35 30 2C 36 ATA 2,18,34,50,6
000040: 2C 32 32 2C 33 38 2C 35 34 2C 31 30 2C 32 36 2C ,22,38,54,10,26,
000050: 34 32 2C 35 38 2C 31 34 2C 33 30 2C 34 36 2C 36 42,58,14,30,46,6
000060: 32 0D 0A 32 31 30 30 20 44 41 54 41 20 33 2C 31 2..2100 DATA 3,1
000070: 39 2C 33 35 2C 35 31 2C 37 2C 32 33 2C 33 39 2C 9,35,51,7,23,39,
000080: 35 35 2C 31 31 2C 32 37 2C 34 33 2C 35 39 2C 31 55,11,27,43,59,1
000090: 35 2C 33 31 2C 34 37 2C 36 33 0D 0A 32 31 31 30 5,31,47,63..2110
0000A0: 20 44 41 54 41 20 34 2C 32 30 2C 33 36 2C 35 32 DATA 4,20,36,52
0000B0: 2C 38 2C 32 34 2C 34 30 2C 35 36 2C 31 32 2C 32 ,8,24,40,56,12,2
0000C0: 38 2C 34 34 2C 36 30 2C 31 36 2C 33 32 2C 34 38 8,44,60,16,32,48
0000D0: 2C 36 34 0D 0A 32 31 32 30 20 44 41 54 41 20 31 ,64..2120 DATA 1
0000E0: 2C 35 2C 39 2C 31 33 2C 31 37 2C 32 31 2C 32 35 ,5,9,13,17,21,25
0000F0: 2C 32 39 2C 33 33 2C 33 37 2C 34 31 2C 34 35 2C ,29,33,37,41,45,
000100: 34 39 2C 35 33 2C 35 37 2C 36 31 0D 0A 32 31 33 49,53,57,61..213
000110: 30 20 44 41 54 41 20 32 2C 36 2C 31 30 2C 31 34 0 DATA 2,6,10,14
000120: 2C 31 38 2C 32 32 2C 32 36 2C 33 30 2C 33 34 2C ,18,22,26,30,34,
000130: 33 38 2C 34 32 2C 34 36 2C 35 30 2C 35 34 2C 35 38,42,46,50,54,5
000140: 38 2C 36 32 0D 0A 32 31 34 30 20 44 41 54 41 20 8,62..2140 DATA
000150: 33 2C 37 2C 31 31 2C 31 35 2C 31 39 2C 32 33 2C 3,7,11,15,19,23,
000160: 32 37 2C 33 31 2C 33 35 2C 33 39 2C 34 33 2C 34 27,31,35,39,43,4
000170: 37 2C 35 31 2C 35 35 2C 35 39 2C 36 33 0D 0A 32 7,51,55,59,63..2
000180: 31 35 30 20 44 41 54 41 20 34 2C 38 2C 31 32 2C 150 DATA 4,8,12,
000190: 31 36 2C 32 30 2C 32 34 2C 32 38 2C 33 32 2C 33 16,20,24,28,32,3
0001A0: 36 2C 34 30 2C 34 34 2C 34 38 2C 35 32 2C 35 36 6,40,44,48,52,56
0001B0: 2C 36 30 2C 36 34 0D 0A 32 31 36 30 20 44 41 54 ,60,64..2160 DAT
0001C0: 41 20 31 2C 36 2C 31 31 2C 31 36 2C 31 37 2C 32 A 1,6,11,16,17,2
0001D0: 32 2C 32 37 2C 33 32 2C 33 33 2C 33 38 2C 34 33 2,27,32,33,38,43
0001E0: 2C 34 38 2C 34 39 2C 35 34 2C 35 39 2C 36 34 0D ,48,49,54,59,64.
0001F0: 0A 32 31 37 30 20 44 41 54 41 20 31 33 2C 31 30 .2170 DATA 13,10
Size : 512 (Real : 512)
000000: 20 49 46 5A 33 3C 3E 30 54 48 45 4E 34 39 32 30 IFZ3<>0THEN4920
000010: 0D 0A 35 30 36 30 20 41 24 3D 22 2B 4B 2B 22 3A ..5060 A$="+K+":
000020: 5A 31 3D 58 3A 5A 32 3D 59 3A 47 4F 53 55 42 38 Z1=X:Z2=Y:GOSUB8
000030: 38 33 30 3A 49 46 5A 33 3D 30 54 48 45 4E 35 32 830:IFZ3=0THEN52
000040: 31 30 0D 0A 35 31 31 30 20 50 52 49 4E 54 22 2A 10..5110 PRINT"*
000050: 2A 2A 20 4B 4C 49 4E 47 4F 4E 20 44 45 53 54 52 ** KLINGON DESTR
000060: 4F 59 45 44 20 2A 2A 2A 22 3A 4B 33 3D 4B 33 2D OYED ***":K3=K3-
000070: 31 3A 4B 39 3D 4B 39 2D 31 3A 49 46 4B 39 3C 3D 1:K9=K9-1:IFK9<=
000080: 30 54 48 45 4E 36 33 37 30 0D 0A 35 31 35 30 20 0THEN6370..5150
000090: 46 4F 52 49 3D 31 54 4F 33 3A 49 46 58 33 3D 4B FORI=1TO3:IFX3=K
0000A0: 28 49 2C 31 29 41 4E 44 59 33 3D 4B 28 49 2C 32 (I,1)ANDY3=K(I,2
0000B0: 29 54 48 45 4E 35 31 39 30 0D 0A 35 31 38 30 20 )THEN5190..5180
0000C0: 4E 45 58 54 49 3A 49 3D 33 0D 0A 35 31 39 30 20 NEXTI:I=3..5190
0000D0: 4B 28 49 2C 33 29 3D 30 3A 47 4F 54 4F 35 34 33 K(I,3)=0:GOTO543
0000E0: 30 0D 0A 35 32 31 30 20 41 24 3D 22 20 2A 20 22 0..5210 A$=" * "
0000F0: 3A 5A 31 3D 58 3A 5A 32 3D 59 3A 47 4F 53 55 42 :Z1=X:Z2=Y:GOSUB
000100: 38 38 33 30 3A 49 46 5A 33 3D 30 54 48 45 4E 35 8830:IFZ3=0THEN5
000110: 32 38 30 0D 0A 35 32 36 30 20 50 52 49 4E 54 22 280..5260 PRINT"
000120: 53 54 41 52 20 41 54 22 3B 58 33 3B 22 2C 22 3B STAR AT";X3;",";
000130: 59 33 3B 22 41 42 53 4F 52 42 45 44 20 54 4F 52 Y3;"ABSORBED TOR
000140: 50 45 44 4F 20 45 4E 45 52 47 59 2E 22 3A 47 4F PEDO ENERGY.":GO
000150: 53 55 42 36 30 30 30 3A 47 4F 54 4F 31 39 39 30 SUB6000:GOTO1990
000160: 0D 0A 35 32 38 30 20 41 24 3D 22 3E 21 3C 22 3A ..5280 A$=">!<":
000170: 5A 31 3D 58 3A 5A 32 3D 59 3A 47 4F 53 55 42 38 Z1=X:Z2=Y:GOSUB8
000180: 38 33 30 3A 49 46 5A 33 3D 30 54 48 45 4E 34 37 830:IFZ3=0THEN47
000190: 36 30 0D 0A 35 33 33 30 20 50 52 49 4E 54 22 2A 60..5330 PRINT"*
0001A0: 2A 2A 20 53 54 41 52 42 41 53 45 20 44 45 53 54 ** STARBASE DEST
0001B0: 52 4F 59 45 44 20 2A 2A 2A 22 3A 42 33 3D 42 33 ROYED ***":B3=B3
0001C0: 2D 31 3A 42 39 3D 42 39 2D 31 0D 0A 35 33 36 30 -1:B9=B9-1..5360
0001D0: 20 49 46 42 39 3E 30 4F 52 4B 39 3E 54 2D 54 30 IFB9>0ORK9>T-T0
0001E0: 2D 54 39 54 48 45 4E 35 34 30 30 0D 0A 35 33 37 -T9THEN5400..537
0001F0: 30 20 50 52 49 4E 54 22 54 48 41 54 20 44 4F 45 0 PRINT"THAT DOE
Size : 512 (Real : 512)
000000: 2C 37 2C 34 2C 32 39 2C 32 36 2C 32 33 2C 32 30 ,7,4,29,26,23,20
000010: 2C 34 35 2C 34 32 2C 33 39 2C 33 36 2C 36 31 2C ,45,42,39,36,61,
000020: 35 38 2C 35 35 2C 35 32 0D 0A 32 31 38 30 20 44 58,55,52..2180 D
000030: 41 54 41 20 31 2C 32 31 2C 34 31 2C 36 31 2C 32 ATA 1,21,41,61,2
000040: 2C 32 32 2C 34 32 2C 36 32 2C 33 2C 32 33 2C 34 ,22,42,62,3,23,4
000050: 33 2C 36 33 2C 34 2C 32 34 2C 34 34 2C 36 34 0D 3,63,4,24,44,64.
000060: 0A 32 31 39 30 20 44 41 54 41 20 34 39 2C 33 37 .2190 DATA 49,37
000070: 2C 32 35 2C 31 33 2C 35 30 2C 33 38 2C 32 36 2C ,25,13,50,38,26,
000080: 31 34 2C 35 31 2C 33 39 2C 32 37 2C 31 35 2C 35 14,51,39,27,15,5
000090: 32 2C 34 30 2C 32 38 2C 31 36 0D 0A 32 32 30 30 2,40,28,16..2200
0000A0: 20 44 41 54 41 20 31 2C 31 38 2C 33 35 2C 35 32 DATA 1,18,35,52
0000B0: 2C 35 2C 32 32 2C 33 39 2C 35 36 2C 39 2C 32 36 ,5,22,39,56,9,26
0000C0: 2C 34 33 2C 36 30 2C 31 33 2C 33 30 2C 34 37 2C ,43,60,13,30,47,
0000D0: 36 34 0D 0A 32 32 31 30 20 44 41 54 41 20 34 39 64..2210 DATA 49
0000E0: 2C 33 34 2C 31 39 2C 34 2C 35 33 2C 33 38 2C 32 ,34,19,4,53,38,2
0000F0: 33 2C 38 2C 35 37 2C 34 32 2C 32 37 2C 31 32 2C 3,8,57,42,27,12,
000100: 36 31 2C 34 36 2C 33 31 2C 31 36 0D 0A 32 32 32 61,46,31,16..222
000110: 30 20 44 41 54 41 20 31 2C 32 32 2C 34 33 2C 36 0 DATA 1,22,43,6
000120: 34 2C 31 36 2C 32 37 2C 33 38 2C 34 39 2C 34 2C 4,16,27,38,49,4,
000130: 32 33 2C 34 32 2C 36 31 2C 31 33 2C 32 36 2C 33 23,42,61,13,26,3
000140: 39 2C 35 32 0D 0A 32 32 33 30 20 46 4F 52 20 4A 9,52..2230 FOR J
000150: 3D 31 20 54 4F 20 34 0D 0A 32 32 34 30 20 49 46 =1 TO 4..2240 IF
000160: 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 31 2F 38 20 X(M(I,J))<>1/8
000170: 54 48 45 4E 20 32 33 33 30 0D 0A 32 32 35 30 20 THEN 2330..2250
000180: 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 35 0D LET X(M(I,J))=5.
000190: 0A 32 32 36 30 20 49 46 20 4C 28 49 29 3C 35 20 .2260 IF L(I)<5
0001A0: 54 48 45 4E 20 32 32 39 30 0D 0A 32 32 37 30 20 THEN 2290..2270
0001B0: 50 52 49 4E 54 20 22 4C 45 54 27 53 20 53 45 45 PRINT "LET'S SEE
0001C0: 20 59 4F 55 20 47 45 54 20 4F 55 54 20 4F 46 20 YOU GET OUT OF
0001D0: 54 48 49 53 3A 20 20 4D 41 43 48 49 4E 45 20 4D THIS: MACHINE M
0001E0: 4F 56 45 53 20 54 4F 22 3B 0D 0A 32 32 38 30 20 OVES TO";..2280
0001F0: 47 4F 54 4F 20 32 33 30 30 0D 0A 32 32 39 30 20 GOTO 2300..2290
Size : 512 (Real : 512)
000000: 31 30 20 70 72 69 6E 74 20 22 49 20 61 6D 20 74 10 print "I am t
000010: 65 73 74 20 31 22 0D 0A 32 30 20 65 6E 64 0D 0A est 1"..20 end..
000020: 1A 45 4C 49 45 56 45 44 20 4F 46 20 43 4F 4D 4D .ELIEVED OF COMM
000030: 41 4E 44 22 0D 0A 35 33 38 30 20 50 52 49 4E 54 AND"..5380 PRINT
000040: 22 41 4E 44 20 53 45 4E 54 45 4E 43 45 44 20 54 "AND SENTENCED T
000050: 4F 20 39 39 20 53 54 41 52 44 41 54 45 53 20 41 O 99 STARDATES A
000060: 54 20 48 41 52 44 20 4C 41 42 4F 52 20 4F 4E 20 T HARD LABOR ON
000070: 43 59 47 4E 55 53 20 31 32 21 21 22 0D 0A 35 33 CYGNUS 12!!"..53
000080: 39 30 20 47 4F 54 4F 20 36 32 37 30 0D 0A 35 34 90 GOTO 6270..54
000090: 30 30 20 50 52 49 4E 54 22 53 54 41 52 46 4C 45 00 PRINT"STARFLE
0000A0: 45 54 20 43 4F 4D 4D 41 4E 44 20 52 45 56 49 45 ET COMMAND REVIE
0000B0: 57 49 4E 47 20 59 4F 55 52 20 52 45 43 4F 52 44 WING YOUR RECORD
0000C0: 20 54 4F 20 43 4F 4E 53 49 44 45 52 22 0D 0A 35 TO CONSIDER"..5
0000D0: 34 31 30 20 50 52 49 4E 54 22 43 4F 55 52 54 20 410 PRINT"COURT
0000E0: 4D 41 52 54 49 41 4C 21 22 3A 44 30 3D 30 0D 0A MARTIAL!":D0=0..
0000F0: 35 34 33 30 20 5A 31 3D 58 3A 5A 32 3D 59 3A 41 5430 Z1=X:Z2=Y:A
000100: 24 3D 22 20 20 20 22 3A 47 4F 53 55 42 38 36 37 $=" ":GOSUB867
000110: 30 0D 0A 35 34 37 30 20 47 28 51 31 2C 51 32 29 0..5470 G(Q1,Q2)
000120: 3D 4B 33 2A 31 30 30 2B 42 33 2A 31 30 2B 53 33 =K3*100+B3*10+S3
000130: 3A 5A 28 51 31 2C 51 32 29 3D 47 28 51 31 2C 51 :Z(Q1,Q2)=G(Q1,Q
000140: 32 29 3A 47 4F 53 55 42 36 30 30 30 3A 47 4F 54 2):GOSUB6000:GOT
000150: 4F 31 39 39 30 0D 0A 35 34 39 30 20 50 52 49 4E O1990..5490 PRIN
000160: 54 22 54 4F 52 50 45 44 4F 20 4D 49 53 53 45 44 T"TORPEDO MISSED
000170: 22 3A 47 4F 53 55 42 36 30 30 30 3A 47 4F 54 4F ":GOSUB6000:GOTO
000180: 31 39 39 30 0D 0A 35 35 32 30 20 52 45 4D 20 53 1990..5520 REM S
000190: 48 49 45 4C 44 20 43 4F 4E 54 52 4F 4C 0D 0A 35 HIELD CONTROL..5
0001A0: 35 33 30 20 49 46 44 28 37 29 3C 30 54 48 45 4E 530 IFD(7)<0THEN
0001B0: 50 52 49 4E 54 22 53 48 49 45 4C 44 20 43 4F 4E PRINT"SHIELD CON
0001C0: 54 52 4F 4C 20 49 4E 4F 50 45 52 41 42 4C 45 22 TROL INOPERABLE"
0001D0: 3A 47 4F 54 4F 31 39 39 30 0D 0A 35 35 36 30 20 :GOTO1990..5560
0001E0: 50 52 49 4E 54 22 45 4E 45 52 47 59 20 41 56 41 PRINT"ENERGY AVA
0001F0: 49 4C 41 42 4C 45 20 3D 22 3B 45 2B 53 3B 3A 49 ILABLE =";E+S;:I
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 59 4F 55 20 46 4F 58 2E 20 PRINT "YOU FOX.
000010: 20 4A 55 53 54 20 49 4E 20 54 48 45 20 4E 49 43 JUST IN THE NIC
000020: 4B 20 4F 46 20 54 49 4D 45 2C 20 4D 41 43 48 49 K OF TIME, MACHI
000030: 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D 0A 32 NE MOVES TO";..2
000040: 33 30 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A 29 300 LET M=M(I,J)
000050: 0D 0A 32 33 31 30 20 47 4F 53 55 42 20 31 35 37 ..2310 GOSUB 157
000060: 30 0D 0A 32 33 32 30 20 47 4F 54 4F 20 35 30 30 0..2320 GOTO 500
000070: 0D 0A 32 33 33 30 20 4E 45 58 54 20 4A 0D 0A 32 ..2330 NEXT J..2
000080: 33 34 30 20 50 52 49 4E 54 20 22 4D 41 43 48 49 340 PRINT "MACHI
000090: 4E 45 20 43 4F 4E 43 45 44 45 53 20 54 48 49 53 NE CONCEDES THIS
0000A0: 20 47 41 4D 45 2E 22 0D 0A 32 33 35 30 20 47 4F GAME."..2350 GO
0000B0: 54 4F 20 31 34 39 30 0D 0A 32 33 36 30 20 4C 45 TO 1490..2360 LE
0000C0: 54 20 53 3D 31 2F 38 0D 0A 32 33 37 30 20 49 46 T S=1/8..2370 IF
0000D0: 20 49 2D 49 4E 54 28 49 2F 34 29 2A 34 3E 31 20 I-INT(I/4)*4>1
0000E0: 54 48 45 4E 20 32 34 30 30 0D 0A 32 33 38 30 20 THEN 2400..2380
0000F0: 4C 45 54 20 41 3D 31 0D 0A 32 33 39 30 20 47 4F LET A=1..2390 GO
000100: 54 4F 20 32 34 31 30 0D 0A 32 34 30 30 20 4C 45 TO 2410..2400 LE
000110: 54 20 41 3D 32 0D 0A 32 34 31 30 20 46 4F 52 20 T A=2..2410 FOR
000120: 4A 3D 41 20 54 4F 20 35 2D 41 20 53 54 45 50 20 J=A TO 5-A STEP
000130: 35 2D 32 2A 41 0D 0A 32 34 32 30 20 49 46 20 58 5-2*A..2420 IF X
000140: 28 4D 28 49 2C 4A 29 29 3D 53 20 54 48 45 4E 20 (M(I,J))=S THEN
000150: 32 34 35 30 0D 0A 32 34 33 30 20 4E 45 58 54 20 2450..2430 NEXT
000160: 4A 0D 0A 32 34 34 30 20 47 4F 54 4F 20 32 30 30 J..2440 GOTO 200
000170: 30 0D 0A 32 34 35 30 20 4C 45 54 20 58 28 4D 28 0..2450 LET X(M(
000180: 49 2C 4A 29 29 3D 35 0D 0A 32 34 36 30 20 4C 45 I,J))=5..2460 LE
000190: 54 20 4D 3D 4D 28 49 2C 4A 29 0D 0A 32 34 37 30 T M=M(I,J)..2470
0001A0: 20 50 52 49 4E 54 20 22 4D 41 43 48 49 4E 45 20 PRINT "MACHINE
0001B0: 54 41 4B 45 53 22 3B 0D 0A 32 34 38 30 20 47 4F TAKES";..2480 GO
0001C0: 53 55 42 20 31 35 37 30 0D 0A 32 34 39 30 20 47 SUB 1570..2490 G
0001D0: 4F 54 4F 20 35 30 30 0D 0A 32 35 30 30 20 46 4F OTO 500..2500 FO
0001E0: 52 20 49 3D 31 20 54 4F 20 36 34 0D 0A 32 35 31 R I=1 TO 64..251
0001F0: 30 20 49 46 20 58 28 49 29 3C 3E 31 2F 38 20 54 0 IF X(I)<>1/8 T
Size : 512 (Real : 512)
000000: 4E 50 55 54 22 4E 55 4D 42 45 52 20 4F 46 20 55 NPUT"NUMBER OF U
000010: 4E 49 54 53 20 54 4F 20 53 48 49 45 4C 44 53 22 NITS TO SHIELDS"
000020: 3B 58 0D 0A 35 35 38 30 20 49 46 58 3C 30 4F 52 ;X..5580 IFX<0OR
000030: 53 3D 58 54 48 45 4E 50 52 49 4E 54 22 3C 53 48 S=XTHENPRINT"<SH
000040: 49 45 4C 44 53 20 55 4E 43 48 41 4E 47 45 44 3E IELDS UNCHANGED>
000050: 22 3A 47 4F 54 4F 31 39 39 30 0D 0A 35 35 39 30 ":GOTO1990..5590
000060: 20 49 46 58 3C 3D 45 2B 53 54 48 45 4E 35 36 33 IFX<=E+STHEN563
000070: 30 0D 0A 35 36 30 30 20 50 52 49 4E 54 22 53 48 0..5600 PRINT"SH
000080: 49 45 4C 44 20 43 4F 4E 54 52 4F 4C 20 52 45 50 IELD CONTROL REP
000090: 4F 52 54 53 20 20 27 54 48 49 53 20 49 53 20 4E ORTS 'THIS IS N
0000A0: 4F 54 20 54 48 45 20 46 45 44 45 52 41 54 49 4F OT THE FEDERATIO
0000B0: 4E 20 54 52 45 41 53 55 52 59 2E 27 22 0D 0A 35 N TREASURY.'"..5
0000C0: 36 31 30 20 50 52 49 4E 54 22 3C 53 48 49 45 4C 610 PRINT"<SHIEL
0000D0: 44 53 20 55 4E 43 48 41 4E 47 45 44 3E 22 3A 47 DS UNCHANGED>":G
0000E0: 4F 54 4F 31 39 39 30 0D 0A 35 36 33 30 20 45 3D OTO1990..5630 E=
0000F0: 45 2B 53 2D 58 3A 53 3D 58 3A 50 52 49 4E 54 22 E+S-X:S=X:PRINT"
000100: 44 45 46 4C 45 43 54 4F 52 20 43 4F 4E 54 52 4F DEFLECTOR CONTRO
000110: 4C 20 52 4F 4F 4D 20 52 45 50 4F 52 54 3A 22 0D L ROOM REPORT:".
000120: 0A 35 36 36 30 20 50 52 49 4E 54 22 20 20 27 53 .5660 PRINT" 'S
000130: 48 49 45 4C 44 53 20 4E 4F 57 20 41 54 22 3B 49 HIELDS NOW AT";I
000140: 4E 54 28 53 29 3B 22 55 4E 49 54 53 20 50 45 52 NT(S);"UNITS PER
000150: 20 59 4F 55 52 20 43 4F 4D 4D 41 4E 44 2E 27 22 YOUR COMMAND.'"
000160: 3A 47 4F 54 4F 31 39 39 30 0D 0A 35 36 38 30 20 :GOTO1990..5680
000170: 52 45 4D 20 44 41 4D 41 47 45 20 43 4F 4E 54 52 REM DAMAGE CONTR
000180: 4F 4C 0D 0A 35 36 39 30 20 49 46 44 28 36 29 3E OL..5690 IFD(6)>
000190: 3D 30 54 48 45 4E 35 39 31 30 0D 0A 35 37 30 30 =0THEN5910..5700
0001A0: 20 50 52 49 4E 54 22 44 41 4D 41 47 45 20 43 4F PRINT"DAMAGE CO
0001B0: 4E 54 52 4F 4C 20 52 45 50 4F 52 54 20 4E 4F 54 NTROL REPORT NOT
0001C0: 20 41 56 41 49 4C 41 42 4C 45 22 3A 49 46 44 30 AVAILABLE":IFD0
0001D0: 3D 30 54 48 45 4E 31 39 39 30 0D 0A 35 37 32 30 =0THEN1990..5720
0001E0: 20 44 33 3D 30 3A 46 4F 52 49 3D 31 54 4F 38 3A D3=0:FORI=1TO8:
0001F0: 49 46 44 28 49 29 3C 30 54 48 45 4E 44 33 3D 44 IFD(I)<0THEND3=D
Size : 512 (Real : 512)
000000: 48 45 4E 20 32 35 33 30 0D 0A 32 35 32 30 20 4C HEN 2530..2520 L
000010: 45 54 20 58 28 49 29 3D 30 0D 0A 32 35 33 30 20 ET X(I)=0..2530
000020: 4E 45 58 54 20 49 0D 0A 32 35 34 30 20 52 45 54 NEXT I..2540 RET
000030: 55 52 4E 0D 0A 32 35 35 30 20 46 4F 52 20 58 58 URN..2550 FOR XX
000040: 3D 31 20 54 4F 20 39 3A 50 52 49 4E 54 3A 4E 45 =1 TO 9:PRINT:NE
000050: 58 54 3A 46 4F 52 20 49 3D 31 20 54 4F 20 34 0D XT:FOR I=1 TO 4.
000060: 0A 32 35 36 30 20 46 4F 52 20 4A 3D 31 20 54 4F .2560 FOR J=1 TO
000070: 20 34 0D 0A 32 35 36 32 20 46 4F 52 20 49 31 3D 4..2562 FOR I1=
000080: 31 20 54 4F 20 4A 0D 0A 32 35 36 34 20 50 52 49 1 TO J..2564 PRI
000090: 4E 54 22 20 20 20 22 3B 0D 0A 32 35 36 36 20 4E NT" ";..2566 N
0000A0: 45 58 54 20 49 31 0D 0A 32 35 37 30 20 46 4F 52 EXT I1..2570 FOR
0000B0: 20 4B 3D 31 20 54 4F 20 34 0D 0A 32 36 30 30 20 K=1 TO 4..2600
0000C0: 4C 45 54 20 51 3D 31 36 2A 49 2B 34 2A 4A 2B 4B LET Q=16*I+4*J+K
0000D0: 2D 32 30 0D 0A 32 36 31 30 20 49 46 20 58 28 51 -20..2610 IF X(Q
0000E0: 29 3C 3E 4F 20 54 48 45 4E 20 32 36 33 30 0D 0A )<>O THEN 2630..
0000F0: 32 36 32 30 20 50 52 49 4E 54 22 28 20 29 20 20 2620 PRINT"( )
000100: 20 20 20 20 22 3B 0D 0A 32 36 33 30 20 49 46 20 ";..2630 IF
000110: 58 28 51 29 3C 3E 35 20 54 48 45 4E 20 32 36 35 X(Q)<>5 THEN 265
000120: 30 0D 0A 32 36 34 30 20 50 52 49 4E 54 22 28 4D 0..2640 PRINT"(M
000130: 29 20 20 20 20 20 20 22 3B 0D 0A 32 36 35 30 20 ) ";..2650
000140: 49 46 20 58 28 51 29 3C 3E 31 20 54 48 45 4E 20 IF X(Q)<>1 THEN
000150: 32 36 36 30 0D 0A 32 36 35 35 20 50 52 49 4E 54 2660..2655 PRINT
000160: 22 28 59 29 20 20 20 20 20 20 22 3B 0D 0A 32 36 "(Y) ";..26
000170: 36 30 20 49 46 20 58 28 51 29 3C 3E 31 2F 38 20 60 IF X(Q)<>1/8
000180: 54 48 45 4E 20 32 36 37 30 0D 0A 32 36 36 35 20 THEN 2670..2665
000190: 50 52 49 4E 54 22 28 20 29 20 20 20 20 20 20 22 PRINT"( ) "
0001A0: 3B 0D 0A 32 36 37 30 20 4E 45 58 54 20 4B 0D 0A ;..2670 NEXT K..
0001B0: 32 36 38 30 20 50 52 49 4E 54 0D 0A 32 36 39 30 2680 PRINT..2690
0001C0: 20 50 52 49 4E 54 0D 0A 32 37 30 30 20 4E 45 58 PRINT..2700 NEX
0001D0: 54 20 4A 0D 0A 32 37 31 30 20 50 52 49 4E 54 0D T J..2710 PRINT.
0001E0: 0A 32 37 32 30 20 50 52 49 4E 54 0D 0A 32 37 33 .2720 PRINT..273
0001F0: 30 20 4E 45 58 54 20 49 0D 0A 32 37 33 35 20 52 0 NEXT I..2735 R
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
000010: 22 54 49 43 2D 54 41 43 2D 54 4F 45 22 0D 0A 34 "TIC-TAC-TOE"..4
000020: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
000030: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
000040: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
000050: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 NEW JERSEY"..6 P
000060: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
000070: 0D 0A 38 20 50 52 49 4E 54 20 22 54 48 45 20 42 ..8 PRINT "THE B
000080: 4F 41 52 44 20 49 53 20 4E 55 4D 42 45 52 45 44 OARD IS NUMBERED
000090: 3A 22 0D 0A 31 30 20 50 52 49 4E 54 20 22 20 31 :"..10 PRINT " 1
0000A0: 20 20 32 20 20 33 22 0D 0A 31 32 20 50 52 49 4E 2 3"..12 PRIN
0000B0: 54 20 22 20 34 20 20 35 20 20 36 22 0D 0A 31 34 T " 4 5 6"..14
0000C0: 20 50 52 49 4E 54 20 22 20 37 20 20 38 20 20 39 PRINT " 7 8 9
0000D0: 22 0D 0A 31 36 20 50 52 49 4E 54 3A 50 52 49 4E "..16 PRINT:PRIN
0000E0: 54 3A 50 52 49 4E 54 0D 0A 32 30 20 44 49 4D 20 T:PRINT..20 DIM
0000F0: 53 28 39 29 0D 0A 35 30 20 49 4E 50 55 54 22 44 S(9)..50 INPUT"D
000100: 4F 20 59 4F 55 20 57 41 4E 54 20 27 58 27 20 4F O YOU WANT 'X' O
000110: 52 20 27 4F 27 22 3B 43 24 0D 0A 35 35 20 49 46 R 'O'";C$..55 IF
000120: 20 43 24 3D 22 58 22 54 48 45 4E 20 34 37 35 0D C$="X"THEN 475.
000130: 0A 36 30 20 50 24 3D 22 4F 22 3A 51 24 3D 22 58 .60 P$="O":Q$="X
000140: 22 0D 0A 31 30 30 20 47 3D 2D 31 3A 48 3D 31 3A "..100 G=-1:H=1:
000150: 49 46 20 53 28 35 29 3C 3E 30 20 54 48 45 4E 20 IF S(5)<>0 THEN
000160: 31 30 33 0D 0A 31 30 32 20 53 28 35 29 3D 2D 31 103..102 S(5)=-1
000170: 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 30 33 20 49 :GOTO 195..103 I
000180: 46 20 53 28 35 29 3C 3E 31 20 54 48 45 4E 20 31 F S(5)<>1 THEN 1
000190: 30 36 0D 0A 31 30 34 20 49 46 20 53 28 31 29 3C 06..104 IF S(1)<
0001A0: 3E 30 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 35 >0 THEN 110..105
0001B0: 20 53 28 31 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 S(1)=-1:GOTO 19
0001C0: 35 0D 0A 31 30 36 20 49 46 20 53 28 32 29 3D 31 5..106 IF S(2)=1
0001D0: 20 41 4E 44 20 53 28 31 29 3D 30 20 54 48 45 4E AND S(1)=0 THEN
0001E0: 20 31 38 31 0D 0A 31 30 37 20 49 46 20 53 28 34 181..107 IF S(4
0001F0: 29 3D 31 20 41 4E 44 20 53 28 31 29 3D 30 20 54 )=1 AND S(1)=0 T
Size : 512 (Real : 512)
000000: 2B 31 29 54 48 45 4E 20 31 31 31 35 0D 0A 31 31 +1)THEN 1115..11
000010: 30 35 20 49 46 20 53 28 49 29 3C 3E 53 28 49 2B 05 IF S(I)<>S(I+
000020: 32 29 54 48 45 4E 20 31 31 31 35 0D 0A 31 31 31 2)THEN 1115..111
000030: 30 20 49 46 20 53 28 49 29 3D 2D 31 20 54 48 45 0 IF S(I)=-1 THE
000040: 4E 20 31 33 35 30 0D 0A 31 31 31 32 20 49 46 20 N 1350..1112 IF
000050: 53 28 49 29 3D 31 20 54 48 45 4E 20 31 32 30 30 S(I)=1 THEN 1200
000060: 0D 0A 31 31 31 35 20 4E 45 58 54 20 49 3A 46 4F ..1115 NEXT I:FO
000070: 52 20 49 3D 31 20 54 4F 20 33 3A 49 46 20 53 28 R I=1 TO 3:IF S(
000080: 49 29 3C 3E 53 28 49 2B 33 29 54 48 45 4E 20 31 I)<>S(I+3)THEN 1
000090: 31 35 30 0D 0A 31 31 33 30 20 49 46 20 53 28 49 150..1130 IF S(I
0000A0: 29 3C 3E 53 28 49 2B 36 29 54 48 45 4E 20 31 31 )<>S(I+6)THEN 11
0000B0: 35 30 0D 0A 31 31 33 35 20 49 46 20 53 28 49 29 50..1135 IF S(I)
0000C0: 3D 2D 31 20 54 48 45 4E 20 31 33 35 30 0D 0A 31 =-1 THEN 1350..1
0000D0: 31 33 37 20 49 46 20 53 28 49 29 3D 31 20 54 48 137 IF S(I)=1 TH
0000E0: 45 4E 20 31 32 30 30 0D 0A 31 31 35 30 20 4E 45 EN 1200..1150 NE
0000F0: 58 54 20 49 3A 46 4F 52 20 49 3D 31 20 54 4F 20 XT I:FOR I=1 TO
000100: 39 3A 49 46 20 53 28 49 29 3D 30 20 54 48 45 4E 9:IF S(I)=0 THEN
000110: 20 31 31 35 35 0D 0A 31 31 35 32 20 4E 45 58 54 1155..1152 NEXT
000120: 20 49 3A 47 4F 54 4F 20 31 34 30 30 0D 0A 31 31 I:GOTO 1400..11
000130: 35 35 20 49 46 20 53 28 35 29 3C 3E 47 20 54 48 55 IF S(5)<>G TH
000140: 45 4E 20 31 31 37 30 0D 0A 31 31 36 30 20 49 46 EN 1170..1160 IF
000150: 20 53 28 31 29 3D 47 20 41 4E 44 20 53 28 39 29 S(1)=G AND S(9)
000160: 3D 47 20 54 48 45 4E 20 31 31 38 30 0D 0A 31 31 =G THEN 1180..11
000170: 36 35 20 49 46 20 53 28 33 29 3D 47 20 41 4E 44 65 IF S(3)=G AND
000180: 20 53 28 37 29 3D 47 20 54 48 45 4E 20 31 31 38 S(7)=G THEN 118
000190: 30 0D 0A 31 31 37 30 20 52 45 54 55 52 4E 0D 0A 0..1170 RETURN..
0001A0: 31 31 38 30 20 49 46 20 47 3D 2D 31 20 54 48 45 1180 IF G=-1 THE
0001B0: 4E 20 31 33 35 30 0D 0A 31 32 30 30 20 50 52 49 N 1350..1200 PRI
0001C0: 4E 54 22 59 4F 55 20 42 45 41 54 20 4D 45 21 21 NT"YOU BEAT ME!!
0001D0: 20 47 4F 4F 44 20 47 41 4D 45 2E 22 3A 47 4F 54 GOOD GAME.":GOT
0001E0: 4F 20 32 30 30 30 0D 0A 31 33 35 30 20 50 52 49 O 2000..1350 PRI
0001F0: 4E 54 22 49 20 57 49 4E 2C 20 54 55 52 4B 45 59 NT"I WIN, TURKEY
Size : 512 (Real : 512)
000000: 48 45 4E 20 31 38 31 0D 0A 31 30 38 20 49 46 20 HEN 181..108 IF
000010: 53 28 36 29 3D 31 20 41 4E 44 20 53 28 39 29 3D S(6)=1 AND S(9)=
000020: 30 20 54 48 45 4E 20 31 38 39 0D 0A 31 30 39 20 0 THEN 189..109
000030: 49 46 20 53 28 38 29 3D 31 20 41 4E 44 20 53 28 IF S(8)=1 AND S(
000040: 39 29 3D 30 20 54 48 45 4E 20 31 38 39 0D 0A 31 9)=0 THEN 189..1
000050: 31 30 20 49 46 20 47 3D 31 20 54 48 45 4E 20 31 10 IF G=1 THEN 1
000060: 31 32 0D 0A 31 31 31 20 47 4F 54 4F 20 31 31 38 12..111 GOTO 118
000070: 0D 0A 31 31 32 20 4A 3D 33 2A 49 4E 54 28 28 4D ..112 J=3*INT((M
000080: 2D 31 29 2F 33 29 2B 31 0D 0A 31 31 33 20 49 46 -1)/3)+1..113 IF
000090: 20 33 2A 49 4E 54 28 28 4D 2D 31 29 2F 33 29 2B 3*INT((M-1)/3)+
0000A0: 31 3D 4D 20 54 48 45 4E 20 4B 3D 31 0D 0A 31 31 1=M THEN K=1..11
0000B0: 34 20 49 46 20 33 2A 49 4E 54 28 28 4D 2D 31 29 4 IF 3*INT((M-1)
0000C0: 2F 33 29 2B 32 3D 4D 20 54 48 45 4E 20 4B 3D 32 /3)+2=M THEN K=2
0000D0: 0D 0A 31 31 35 20 49 46 20 33 2A 49 4E 54 28 28 ..115 IF 3*INT((
0000E0: 4D 2D 31 29 2F 33 29 2B 33 3D 4D 20 54 48 45 4E M-1)/3)+3=M THEN
0000F0: 20 4B 3D 33 0D 0A 31 31 36 20 47 4F 54 4F 20 31 K=3..116 GOTO 1
000100: 32 30 0D 0A 31 31 38 20 46 4F 52 20 4A 3D 31 20 20..118 FOR J=1
000110: 54 4F 20 37 20 53 54 45 50 20 33 3A 46 4F 52 20 TO 7 STEP 3:FOR
000120: 4B 3D 31 20 54 4F 20 33 0D 0A 31 32 30 20 49 46 K=1 TO 3..120 IF
000130: 20 53 28 4A 29 3C 3E 47 20 54 48 45 4E 20 31 33 S(J)<>G THEN 13
000140: 30 0D 0A 31 32 32 20 49 46 20 53 28 4A 2B 32 29 0..122 IF S(J+2)
000150: 3C 3E 47 20 54 48 45 4E 20 31 33 35 0D 0A 31 32 <>G THEN 135..12
000160: 36 20 49 46 20 53 28 4A 2B 31 29 3C 3E 30 20 54 6 IF S(J+1)<>0 T
000170: 48 45 4E 20 31 35 30 0D 0A 31 32 38 20 53 28 4A HEN 150..128 S(J
000180: 2B 31 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 35 0D +1)=-1:GOTO 195.
000190: 0A 31 33 30 20 49 46 20 53 28 4A 29 3D 48 20 54 .130 IF S(J)=H T
0001A0: 48 45 4E 20 31 35 30 0D 0A 31 33 31 20 49 46 20 HEN 150..131 IF
0001B0: 53 28 4A 2B 32 29 3C 3E 47 20 54 48 45 4E 20 31 S(J+2)<>G THEN 1
0001C0: 35 30 0D 0A 31 33 32 20 49 46 20 53 28 4A 2B 31 50..132 IF S(J+1
0001D0: 29 3C 3E 47 20 54 48 45 4E 20 31 35 30 0D 0A 31 )<>G THEN 150..1
0001E0: 33 33 20 53 28 4A 29 3D 2D 31 3A 47 4F 54 4F 20 33 S(J)=-1:GOTO
0001F0: 31 39 35 0D 0A 31 33 35 20 49 46 20 53 28 4A 2B 195..135 IF S(J+
Size : 512 (Real : 512)
000000: 21 21 21 22 3A 47 4F 54 4F 20 32 30 30 30 0D 0A !!!":GOTO 2000..
000010: 31 34 30 30 20 50 52 49 4E 54 22 49 54 27 53 20 1400 PRINT"IT'S
000020: 41 20 44 52 41 57 2E 20 54 48 41 4E 4B 20 59 4F A DRAW. THANK YO
000030: 55 2E 22 0D 0A 32 30 30 30 20 45 4E 44 0D 0A 1A U."..2000 END...
000040: 3D 31 3A 4F 4E 41 2B 31 47 4F 54 4F 37 35 34 30 =1:ONA+1GOTO7540
000050: 2C 37 39 30 30 2C 38 30 37 30 2C 38 35 30 30 2C ,7900,8070,8500,
000060: 38 31 35 30 2C 37 34 30 30 0D 0A 37 33 36 30 20 8150,7400..7360
000070: 50 52 49 4E 54 22 46 55 4E 43 54 49 4F 4E 53 20 PRINT"FUNCTIONS
000080: 41 56 41 49 4C 41 42 4C 45 20 46 52 4F 4D 20 4C AVAILABLE FROM L
000090: 49 42 52 41 52 59 2D 43 4F 4D 50 55 54 45 52 3A IBRARY-COMPUTER:
0000A0: 22 0D 0A 37 33 37 30 20 50 52 49 4E 54 22 20 20 "..7370 PRINT"
0000B0: 20 30 20 3D 20 43 55 4D 55 4C 41 54 49 56 45 20 0 = CUMULATIVE
0000C0: 47 41 4C 41 43 54 49 43 20 52 45 43 4F 52 44 22 GALACTIC RECORD"
0000D0: 0D 0A 37 33 37 32 20 50 52 49 4E 54 22 20 20 20 ..7372 PRINT"
0000E0: 31 20 3D 20 53 54 41 54 55 53 20 52 45 50 4F 52 1 = STATUS REPOR
0000F0: 54 22 0D 0A 37 33 37 34 20 50 52 49 4E 54 22 20 T"..7374 PRINT"
000100: 20 20 32 20 3D 20 50 48 4F 54 4F 4E 20 54 4F 52 2 = PHOTON TOR
000110: 50 45 44 4F 20 44 41 54 41 22 0D 0A 37 33 37 36 PEDO DATA"..7376
000120: 20 50 52 49 4E 54 22 20 20 20 33 20 3D 20 53 54 PRINT" 3 = ST
000130: 41 52 42 41 53 45 20 4E 41 56 20 44 41 54 41 22 ARBASE NAV DATA"
000140: 0D 0A 37 33 37 38 20 50 52 49 4E 54 22 20 20 20 ..7378 PRINT"
000150: 34 20 3D 20 44 49 52 45 43 54 49 4F 4E 2F 44 49 4 = DIRECTION/DI
000160: 53 54 41 4E 43 45 20 43 41 4C 43 55 4C 41 54 4F STANCE CALCULATO
000170: 52 22 0D 0A 37 33 38 30 20 50 52 49 4E 54 22 20 R"..7380 PRINT"
000180: 20 20 35 20 3D 20 47 41 4C 41 58 59 20 27 52 45 5 = GALAXY 'RE
000190: 47 49 4F 4E 20 4E 41 4D 45 27 20 4D 41 50 22 3A GION NAME' MAP":
0001A0: 50 52 49 4E 54 3A 47 4F 54 4F 37 33 32 30 0D 0A PRINT:GOTO7320..
0001B0: 37 33 39 30 20 52 45 4D 20 53 45 54 55 50 20 54 7390 REM SETUP T
0001C0: 4F 20 43 48 41 4E 47 45 20 43 55 4D 20 47 41 4C O CHANGE CUM GAL
0001D0: 20 52 45 43 4F 52 44 20 54 4F 20 47 41 4C 41 58 RECORD TO GALAX
0001E0: 59 20 4D 41 50 0D 0A 37 34 30 30 20 48 38 3D 30 Y MAP..7400 H8=0
0001F0: 3A 47 35 3D 31 3A 50 52 49 4E 54 22 20 20 20 20 :G5=1:PRINT"
Size : 512 (Real : 512)
000000: 32 29 3C 3E 30 20 54 48 45 4E 20 31 35 30 0D 0A 2)<>0 THEN 150..
000010: 31 33 36 20 49 46 20 53 28 4A 2B 31 29 3C 3E 47 136 IF S(J+1)<>G
000020: 20 54 48 45 4E 20 31 35 30 0D 0A 31 33 38 20 53 THEN 150..138 S
000030: 28 4A 2B 32 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 (J+2)=-1:GOTO 19
000040: 35 0D 0A 31 35 30 20 49 46 20 53 28 4B 29 3C 3E 5..150 IF S(K)<>
000050: 47 20 54 48 45 4E 20 31 36 30 0D 0A 31 35 32 20 G THEN 160..152
000060: 49 46 20 53 28 4B 2B 36 29 3C 3E 47 20 54 48 45 IF S(K+6)<>G THE
000070: 4E 20 31 36 35 0D 0A 31 35 36 20 49 46 20 53 28 N 165..156 IF S(
000080: 4B 2B 33 29 3C 3E 30 20 54 48 45 4E 20 31 37 30 K+3)<>0 THEN 170
000090: 0D 0A 31 35 38 20 53 28 4B 2B 33 29 3D 2D 31 3A ..158 S(K+3)=-1:
0000A0: 47 4F 54 4F 20 31 39 35 0D 0A 31 36 30 20 49 46 GOTO 195..160 IF
0000B0: 20 53 28 4B 29 3D 48 20 54 48 45 4E 20 31 37 30 S(K)=H THEN 170
0000C0: 0D 0A 31 36 31 20 49 46 20 53 28 4B 2B 36 29 3C ..161 IF S(K+6)<
0000D0: 3E 47 20 54 48 45 4E 20 31 37 30 0D 0A 31 36 32 >G THEN 170..162
0000E0: 20 49 46 20 53 28 4B 2B 33 29 3C 3E 47 20 54 48 IF S(K+3)<>G TH
0000F0: 45 4E 20 31 37 30 0D 0A 31 36 33 20 53 28 4B 29 EN 170..163 S(K)
000100: 3D 2D 31 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 36 =-1:GOTO 195..16
000110: 35 20 49 46 20 53 28 4B 2B 36 29 3C 3E 30 20 54 5 IF S(K+6)<>0 T
000120: 48 45 4E 20 31 37 30 0D 0A 31 36 36 20 49 46 20 HEN 170..166 IF
000130: 53 28 4B 2B 33 29 3C 3E 47 20 54 48 45 4E 20 31 S(K+3)<>G THEN 1
000140: 37 30 0D 0A 31 36 38 20 53 28 4B 2B 36 29 3D 2D 70..168 S(K+6)=-
000150: 31 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 37 30 20 1:GOTO 195..170
000160: 47 4F 54 4F 20 34 35 30 0D 0A 31 37 31 20 49 46 GOTO 450..171 IF
000170: 20 53 28 33 29 3D 47 20 41 4E 44 20 53 28 37 29 S(3)=G AND S(7)
000180: 3D 30 20 54 48 45 4E 20 31 38 37 0D 0A 31 37 32 =0 THEN 187..172
000190: 20 49 46 20 53 28 39 29 3D 47 20 41 4E 44 20 53 IF S(9)=G AND S
0001A0: 28 31 29 3D 30 20 54 48 45 4E 20 31 38 31 0D 0A (1)=0 THEN 181..
0001B0: 31 37 33 20 49 46 20 53 28 37 29 3D 47 20 41 4E 173 IF S(7)=G AN
0001C0: 44 20 53 28 33 29 3D 30 20 54 48 45 4E 20 31 38 D S(3)=0 THEN 18
0001D0: 33 0D 0A 31 37 34 20 49 46 20 53 28 39 29 3D 30 3..174 IF S(9)=0
0001E0: 20 41 4E 44 20 53 28 31 29 3D 47 20 54 48 45 4E AND S(1)=G THEN
0001F0: 20 31 38 39 0D 0A 31 37 35 20 49 46 20 47 3D 2D 189..175 IF G=-
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 54 48 45 20 47 41 4C 41 58 59 22 3A THE GALAXY":
000020: 47 4F 54 4F 37 35 35 30 0D 0A 37 35 33 30 20 52 GOTO7550..7530 R
000030: 45 4D 20 43 55 4D 20 47 41 4C 41 43 54 49 43 20 EM CUM GALACTIC
000040: 52 45 43 4F 52 44 0D 0A 37 35 34 30 20 52 45 4D RECORD..7540 REM
000050: 20 49 4E 50 55 54 22 44 4F 20 59 4F 55 20 57 41 INPUT"DO YOU WA
000060: 4E 54 20 41 20 48 41 52 44 43 4F 50 59 3F 20 49 NT A HARDCOPY? I
000070: 53 20 54 48 45 20 54 54 59 20 4F 4E 20 28 59 2F S THE TTY ON (Y/
000080: 4E 29 22 3B 41 24 0D 0A 37 35 34 32 20 52 45 4D N)";A$..7542 REM
000090: 20 49 46 41 24 3D 22 59 22 54 48 45 4E 50 4F 4B IFA$="Y"THENPOK
0000A0: 45 31 32 32 39 2C 32 3A 50 4F 4B 45 31 32 33 37 E1229,2:POKE1237
0000B0: 2C 33 3A 4E 55 4C 4C 31 0D 0A 37 35 34 33 20 50 ,3:NULL1..7543 P
0000C0: 52 49 4E 54 3A 50 52 49 4E 54 22 20 20 20 20 20 RINT:PRINT"
0000D0: 20 20 20 22 3B 0D 0A 37 35 34 34 20 50 52 49 4E ";..7544 PRIN
0000E0: 54 22 43 4F 4D 50 55 54 45 52 20 52 45 43 4F 52 T"COMPUTER RECOR
0000F0: 44 20 4F 46 20 47 41 4C 41 58 59 20 46 4F 52 20 D OF GALAXY FOR
000100: 51 55 41 44 52 41 4E 54 22 3B 51 31 3B 22 2C 22 QUADRANT";Q1;","
000110: 3B 51 32 0D 0A 37 35 34 36 20 50 52 49 4E 54 0D ;Q2..7546 PRINT.
000120: 0A 37 35 35 30 20 50 52 49 4E 54 22 20 20 20 20 .7550 PRINT"
000130: 20 20 20 31 20 20 20 20 20 32 20 20 20 20 20 33 1 2 3
000140: 20 20 20 20 20 34 20 20 20 20 20 35 20 20 20 20 4 5
000150: 20 36 20 20 20 20 20 37 20 20 20 20 20 38 22 0D 6 7 8".
000160: 0A 37 35 36 30 20 4F 31 24 3D 22 20 20 20 20 20 .7560 O1$="
000170: 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D ----- ----- ----
000180: 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D - ----- ----- --
000190: 2D 2D 2D 20 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 22 --- ----- -----"
0001A0: 0D 0A 37 35 37 30 20 50 52 49 4E 54 4F 31 24 3A ..7570 PRINTO1$:
0001B0: 46 4F 52 49 3D 31 54 4F 38 3A 50 52 49 4E 54 49 FORI=1TO8:PRINTI
0001C0: 3B 3A 49 46 48 38 3D 30 54 48 45 4E 37 37 34 30 ;:IFH8=0THEN7740
0001D0: 0D 0A 37 36 33 30 20 46 4F 52 4A 3D 31 54 4F 38 ..7630 FORJ=1TO8
0001E0: 3A 50 52 49 4E 54 22 20 20 20 22 3B 3A 49 46 5A :PRINT" ";:IFZ
0001F0: 28 49 2C 4A 29 3D 30 54 48 45 4E 50 52 49 4E 54 (I,J)=0THENPRINT
Size : 512 (Real : 512)
000000: 31 20 54 48 45 4E 20 47 3D 31 3A 48 3D 2D 31 3A 1 THEN G=1:H=-1:
000010: 47 4F 54 4F 20 31 31 30 0D 0A 31 37 36 20 49 46 GOTO 110..176 IF
000020: 20 53 28 39 29 3D 31 20 41 4E 44 20 53 28 33 29 S(9)=1 AND S(3)
000030: 3D 30 20 54 48 45 4E 20 31 38 32 0D 0A 31 37 37 =0 THEN 182..177
000040: 20 46 4F 52 20 49 3D 32 20 54 4F 20 39 3A 49 46 FOR I=2 TO 9:IF
000050: 20 53 28 49 29 3C 3E 30 20 54 48 45 4E 20 31 37 S(I)<>0 THEN 17
000060: 39 0D 0A 31 37 38 20 53 28 49 29 3D 2D 31 3A 47 9..178 S(I)=-1:G
000070: 4F 54 4F 20 31 39 35 0D 0A 31 37 39 20 4E 45 58 OTO 195..179 NEX
000080: 54 20 49 0D 0A 31 38 31 20 53 28 31 29 3D 2D 31 T I..181 S(1)=-1
000090: 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 38 32 20 49 :GOTO 195..182 I
0000A0: 46 20 53 28 31 29 3D 31 20 54 48 45 4E 20 31 37 F S(1)=1 THEN 17
0000B0: 37 0D 0A 31 38 33 20 53 28 33 29 3D 2D 31 3A 47 7..183 S(3)=-1:G
0000C0: 4F 54 4F 20 31 39 35 0D 0A 31 38 37 20 53 28 37 OTO 195..187 S(7
0000D0: 29 3D 2D 31 3A 47 4F 54 4F 20 31 39 35 0D 0A 31 )=-1:GOTO 195..1
0000E0: 38 39 20 53 28 39 29 3D 2D 31 0D 0A 31 39 35 20 89 S(9)=-1..195
0000F0: 50 52 49 4E 54 3A 50 52 49 4E 54 22 54 48 45 20 PRINT:PRINT"THE
000100: 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 54 COMPUTER MOVES T
000110: 4F 2E 2E 2E 22 0D 0A 32 30 32 20 47 4F 53 55 42 O..."..202 GOSUB
000120: 20 31 30 30 30 0D 0A 32 30 35 20 47 4F 54 4F 20 1000..205 GOTO
000130: 35 30 30 0D 0A 34 35 30 20 49 46 20 47 3D 31 20 500..450 IF G=1
000140: 54 48 45 4E 20 34 36 35 0D 0A 34 35 35 20 49 46 THEN 465..455 IF
000150: 20 4A 3D 37 20 41 4E 44 20 4B 3D 33 20 54 48 45 J=7 AND K=3 THE
000160: 4E 20 34 36 35 0D 0A 34 36 30 20 4E 45 58 54 20 N 465..460 NEXT
000170: 4B 2C 4A 0D 0A 34 36 35 20 49 46 20 53 28 35 29 K,J..465 IF S(5)
000180: 3D 47 20 54 48 45 4E 20 31 37 31 0D 0A 34 36 37 =G THEN 171..467
000190: 20 47 4F 54 4F 20 31 37 35 0D 0A 34 37 35 20 50 GOTO 175..475 P
0001A0: 24 3D 22 58 22 3A 51 24 3D 22 4F 22 0D 0A 35 30 $="X":Q$="O"..50
0001B0: 30 20 50 52 49 4E 54 3A 49 4E 50 55 54 22 57 48 0 PRINT:INPUT"WH
0001C0: 45 52 45 20 44 4F 20 59 4F 55 20 4D 4F 56 45 22 ERE DO YOU MOVE"
0001D0: 3B 4D 0D 0A 35 30 32 20 49 46 20 4D 3D 30 20 54 ;M..502 IF M=0 T
0001E0: 48 45 4E 20 50 52 49 4E 54 22 54 48 41 4E 4B 53 HEN PRINT"THANKS
0001F0: 20 46 4F 52 20 54 48 45 20 47 41 4D 45 2E 22 3A FOR THE GAME.":
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 54 4F 57 45 52 53 22 0D 0A 32 30 20 50 52 ;"TOWERS"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 39 30 20 50 52 49 4E 54 0D 0A 31 30 30 20 52 45 90 PRINT..100 RE
000080: 4D 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 0D M*** INITIALIZE.
000090: 0A 31 31 30 20 44 49 4D 20 54 28 37 2C 33 29 0D .110 DIM T(7,3).
0000A0: 0A 31 32 30 20 45 3D 30 0D 0A 31 33 30 20 46 4F .120 E=0..130 FO
0000B0: 52 20 44 3D 31 20 54 4F 20 37 0D 0A 31 34 30 20 R D=1 TO 7..140
0000C0: 46 4F 52 20 4E 3D 31 20 54 4F 20 33 0D 0A 31 35 FOR N=1 TO 3..15
0000D0: 30 20 54 28 44 2C 4E 29 3D 30 0D 0A 31 36 30 20 0 T(D,N)=0..160
0000E0: 4E 45 58 54 20 4E 0D 0A 31 37 30 20 4E 45 58 54 NEXT N..170 NEXT
0000F0: 20 44 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 54 D..180 PRINT "T
000100: 4F 57 45 52 53 20 4F 46 20 48 41 4E 4F 49 20 50 OWERS OF HANOI P
000110: 55 5A 5A 4C 45 2E 22 3A 20 50 52 49 4E 54 0D 0A UZZLE.": PRINT..
000120: 32 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4D 200 PRINT "YOU M
000130: 55 53 54 20 54 52 41 4E 53 46 45 52 20 54 48 45 UST TRANSFER THE
000140: 20 44 49 53 4B 53 20 46 52 4F 4D 20 54 48 45 20 DISKS FROM THE
000150: 4C 45 46 54 20 54 4F 20 54 48 45 20 52 49 47 48 LEFT TO THE RIGH
000160: 54 22 0D 0A 32 30 35 20 50 52 49 4E 54 20 22 54 T"..205 PRINT "T
000170: 4F 57 45 52 2C 20 4F 4E 45 20 41 54 20 41 20 54 OWER, ONE AT A T
000180: 49 4D 45 2C 20 4E 45 56 45 52 20 50 55 54 54 49 IME, NEVER PUTTI
000190: 4E 47 20 41 20 4C 41 52 47 45 52 20 44 49 53 4B NG A LARGER DISK
0001A0: 20 4F 4E 20 41 22 0D 0A 32 31 30 20 50 52 49 4E ON A"..210 PRIN
0001B0: 54 20 22 53 4D 41 4C 4C 45 52 20 44 49 53 4B 2E T "SMALLER DISK.
0001C0: 22 3A 20 50 52 49 4E 54 0D 0A 32 31 35 20 49 4E ": PRINT..215 IN
0001D0: 50 55 54 20 22 48 4F 57 20 4D 41 4E 59 20 44 49 PUT "HOW MANY DI
0001E0: 53 4B 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 SKS DO YOU WANT
0001F0: 54 4F 20 4D 4F 56 45 20 28 37 20 49 53 20 4D 41 TO MOVE (7 IS MA
Size : 512 (Real : 512)
000000: 47 4F 54 4F 20 32 30 30 30 0D 0A 35 30 33 20 49 GOTO 2000..503 I
000010: 46 20 4D 3E 39 20 54 48 45 4E 20 35 30 36 0D 0A F M>9 THEN 506..
000020: 35 30 35 20 49 46 20 53 28 4D 29 3D 30 20 54 48 505 IF S(M)=0 TH
000030: 45 4E 20 35 31 30 0D 0A 35 30 36 20 50 52 49 4E EN 510..506 PRIN
000040: 54 22 54 48 41 54 20 53 51 55 41 52 45 20 49 53 T"THAT SQUARE IS
000050: 20 4F 43 43 55 50 49 45 44 2E 22 3A 50 52 49 4E OCCUPIED.":PRIN
000060: 54 3A 50 52 49 4E 54 3A 47 4F 54 4F 20 35 30 30 T:PRINT:GOTO 500
000070: 0D 0A 35 31 30 20 47 3D 31 3A 53 28 4D 29 3D 31 ..510 G=1:S(M)=1
000080: 0D 0A 35 32 30 20 47 4F 53 55 42 20 31 30 30 30 ..520 GOSUB 1000
000090: 0D 0A 35 33 30 20 47 4F 54 4F 20 31 30 30 0D 0A ..530 GOTO 100..
0000A0: 31 30 30 30 20 50 52 49 4E 54 3A 46 4F 52 20 49 1000 PRINT:FOR I
0000B0: 3D 31 20 54 4F 20 39 3A 50 52 49 4E 54 22 20 22 =1 TO 9:PRINT" "
0000C0: 3B 3A 49 46 20 53 28 49 29 3C 3E 2D 31 20 54 48 ;:IF S(I)<>-1 TH
0000D0: 45 4E 20 31 30 31 34 0D 0A 31 30 31 32 20 50 52 EN 1014..1012 PR
0000E0: 49 4E 54 20 51 24 22 20 22 3B 3A 47 4F 54 4F 20 INT Q$" ";:GOTO
0000F0: 31 30 32 30 0D 0A 31 30 31 34 20 49 46 20 53 28 1020..1014 IF S(
000100: 49 29 3C 3E 30 20 54 48 45 4E 20 31 30 31 38 0D I)<>0 THEN 1018.
000110: 0A 31 30 31 36 20 50 52 49 4E 54 22 20 20 22 3B .1016 PRINT" ";
000120: 3A 47 4F 54 4F 20 31 30 32 30 0D 0A 31 30 31 38 :GOTO 1020..1018
000130: 20 50 52 49 4E 54 20 50 24 22 20 22 3B 0D 0A 31 PRINT P$" ";..1
000140: 30 32 30 20 49 46 20 49 3C 3E 33 20 41 4E 44 20 020 IF I<>3 AND
000150: 49 3C 3E 36 20 54 48 45 4E 20 31 30 35 30 0D 0A I<>6 THEN 1050..
000160: 31 30 33 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 1030 PRINT:PRINT
000170: 22 2D 2D 2D 2B 2D 2D 2D 2B 2D 2D 2D 22 0D 0A 31 "---+---+---"..1
000180: 30 34 30 20 47 4F 54 4F 20 31 30 38 30 0D 0A 31 040 GOTO 1080..1
000190: 30 35 30 20 49 46 20 49 3D 39 20 54 48 45 4E 20 050 IF I=9 THEN
0001A0: 31 30 38 30 0D 0A 31 30 36 30 20 50 52 49 4E 54 1080..1060 PRINT
0001B0: 22 21 22 3B 0D 0A 31 30 38 30 20 4E 45 58 54 20 "!";..1080 NEXT
0001C0: 49 3A 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 I:PRINT:PRINT:PR
0001D0: 49 4E 54 0D 0A 31 30 39 35 20 46 4F 52 20 49 3D INT..1095 FOR I=
0001E0: 31 20 54 4F 20 37 20 53 54 45 50 20 33 0D 0A 31 1 TO 7 STEP 3..1
0001F0: 31 30 30 20 49 46 20 53 28 49 29 3C 3E 53 28 49 100 IF S(I)<>S(I
Size : 512 (Real : 512)
000000: 58 29 22 3B 53 0D 0A 32 32 30 20 50 52 49 4E 54 X)";S..220 PRINT
000010: 0D 0A 32 33 30 20 4D 3D 30 0D 0A 32 34 30 20 46 ..230 M=0..240 F
000020: 4F 52 20 51 3D 31 20 54 4F 20 37 0D 0A 32 35 30 OR Q=1 TO 7..250
000030: 20 49 46 20 51 3D 53 20 54 48 45 4E 20 33 35 30 IF Q=S THEN 350
000040: 0D 0A 32 36 30 20 4E 45 58 54 20 51 0D 0A 32 37 ..260 NEXT Q..27
000050: 30 20 45 3D 45 2B 31 0D 0A 32 38 30 20 49 46 20 0 E=E+1..280 IF
000060: 45 3E 32 20 54 48 45 4E 20 33 31 30 0D 0A 32 39 E>2 THEN 310..29
000070: 30 20 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 0 PRINT "SORRY,
000080: 42 55 54 20 49 20 43 41 4E 27 54 20 44 4F 20 54 BUT I CAN'T DO T
000090: 48 41 54 20 4A 4F 42 20 46 4F 52 20 59 4F 55 2E HAT JOB FOR YOU.
0000A0: 22 3A 20 47 4F 54 4F 20 32 31 35 0D 0A 33 31 30 ": GOTO 215..310
0000B0: 20 50 52 49 4E 54 20 22 41 4C 4C 20 52 49 47 48 PRINT "ALL RIGH
0000C0: 54 2C 20 57 49 53 45 20 47 55 59 2C 20 49 46 20 T, WISE GUY, IF
0000D0: 59 4F 55 20 43 41 4E 27 54 20 50 4C 41 59 20 54 YOU CAN'T PLAY T
0000E0: 48 45 20 47 41 4D 45 20 52 49 47 48 54 2C 20 49 HE GAME RIGHT, I
0000F0: 27 4C 4C 22 0D 0A 33 32 30 20 50 52 49 4E 54 20 'LL"..320 PRINT
000100: 22 4A 55 53 54 20 54 41 4B 45 20 4D 59 20 50 55 "JUST TAKE MY PU
000110: 5A 5A 4C 45 20 41 4E 44 20 47 4F 20 48 4F 4D 45 ZZLE AND GO HOME
000120: 2E 20 20 53 4F 20 4C 4F 4E 47 2E 22 3A 20 53 54 . SO LONG.": ST
000130: 4F 50 0D 0A 33 34 30 20 52 45 4D 20 2A 2A 2A 20 OP..340 REM ***
000140: 53 54 4F 52 45 20 44 49 53 4B 53 20 46 52 4F 4D STORE DISKS FROM
000150: 20 53 4D 41 4C 4C 45 53 54 20 54 4F 20 4C 41 52 SMALLEST TO LAR
000160: 47 45 53 54 0D 0A 33 35 30 20 50 52 49 4E 54 20 GEST..350 PRINT
000170: 22 49 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D "IN THIS PROGRAM
000180: 2C 20 57 45 20 53 48 41 4C 4C 20 52 45 46 45 52 , WE SHALL REFER
000190: 20 54 4F 20 44 49 53 4B 53 20 42 59 20 4E 55 4D TO DISKS BY NUM
0001A0: 45 52 49 43 41 4C 20 43 4F 44 45 2E 22 0D 0A 33 ERICAL CODE."..3
0001B0: 35 35 20 50 52 49 4E 54 20 22 33 20 57 49 4C 4C 55 PRINT "3 WILL
0001C0: 20 52 45 50 52 45 53 45 4E 54 20 54 48 45 20 53 REPRESENT THE S
0001D0: 4D 41 4C 4C 45 53 54 20 44 49 53 4B 2C 20 35 20 MALLEST DISK, 5
0001E0: 54 48 45 20 4E 45 58 54 20 53 49 5A 45 2C 22 0D THE NEXT SIZE,".
0001F0: 0A 33 36 30 20 50 52 49 4E 54 20 22 37 20 54 48 .360 PRINT "7 TH
Size : 512 (Real : 512)
000000: 54 28 56 2C 57 29 3A 20 54 28 56 2C 57 29 3D 30 T(V,W): T(V,W)=0
000010: 0D 0A 39 39 35 20 52 45 4D 20 2A 2A 2A 20 50 52 ..995 REM *** PR
000020: 49 4E 54 20 4F 55 54 20 43 55 52 52 45 4E 54 20 INT OUT CURRENT
000030: 53 54 41 54 55 53 0D 0A 31 30 30 30 20 47 4F 53 STATUS..1000 GOS
000040: 55 42 20 31 32 33 30 0D 0A 31 30 31 38 20 52 45 UB 1230..1018 RE
000050: 4D 20 2A 2A 2A 20 43 48 45 43 4B 20 49 46 20 44 M *** CHECK IF D
000060: 4F 4E 45 0D 0A 31 30 32 30 20 4D 3D 4D 2B 31 0D ONE..1020 M=M+1.
000070: 0A 31 30 33 30 20 46 4F 52 20 52 3D 31 20 54 4F .1030 FOR R=1 TO
000080: 20 37 3A 20 46 4F 52 20 43 3D 31 20 54 4F 20 32 7: FOR C=1 TO 2
000090: 0D 0A 31 30 35 30 20 49 46 20 54 28 52 2C 43 29 ..1050 IF T(R,C)
0000A0: 3C 3E 30 20 54 48 45 4E 20 31 30 39 30 0D 0A 31 <>0 THEN 1090..1
0000B0: 30 36 30 20 4E 45 58 54 20 43 3A 20 4E 45 58 54 060 NEXT C: NEXT
0000C0: 20 52 0D 0A 31 30 38 30 20 47 4F 54 4F 20 31 31 R..1080 GOTO 11
0000D0: 32 30 0D 0A 31 30 39 30 20 49 46 20 4D 3C 3D 31 20..1090 IF M<=1
0000E0: 32 38 20 54 48 45 4E 20 34 38 30 0D 0A 31 31 30 28 THEN 480..110
0000F0: 30 20 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 0 PRINT "SORRY,
000100: 42 55 54 20 49 20 48 41 56 45 20 4F 52 44 45 52 BUT I HAVE ORDER
000110: 53 20 54 4F 20 53 54 4F 50 20 49 46 20 59 4F 55 S TO STOP IF YOU
000120: 20 4D 41 4B 45 20 4D 4F 52 45 20 54 48 41 4E 22 MAKE MORE THAN"
000130: 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 22 31 32 ..1110 PRINT "12
000140: 38 20 4D 4F 56 45 53 2E 22 3A 20 53 54 4F 50 0D 8 MOVES.": STOP.
000150: 0A 31 31 32 30 20 49 46 20 4D 3C 3E 32 5E 53 2D .1120 IF M<>2^S-
000160: 31 20 54 48 45 4E 20 31 31 34 30 0D 0A 31 31 33 1 THEN 1140..113
000170: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 43 0 PRINT:PRINT "C
000180: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 21 21 ONGRATULATIONS!!
000190: 22 3A 50 52 49 4E 54 0D 0A 31 31 34 30 20 50 52 ":PRINT..1140 PR
0001A0: 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 50 45 INT "YOU HAVE PE
0001B0: 52 46 4F 52 4D 45 44 20 54 48 45 20 54 41 53 4B RFORMED THE TASK
0001C0: 20 49 4E 22 3B 4D 3B 22 4D 4F 56 45 53 2E 22 0D IN";M;"MOVES.".
0001D0: 0A 31 31 35 30 20 50 52 49 4E 54 3A 20 50 52 49 .1150 PRINT: PRI
0001E0: 4E 54 20 22 54 52 59 20 41 47 41 49 4E 20 28 59 NT "TRY AGAIN (Y
0001F0: 45 53 20 4F 52 20 4E 4F 29 22 3B 3A 20 49 4E 50 ES OR NO)";: INP
Size : 512 (Real : 512)
000000: 45 20 4E 45 58 54 2C 20 41 4E 44 20 53 4F 20 4F E NEXT, AND SO O
000010: 4E 2C 20 55 50 20 54 4F 20 31 35 2E 20 20 49 46 N, UP TO 15. IF
000020: 20 59 4F 55 20 44 4F 20 54 48 45 20 50 55 5A 5A YOU DO THE PUZZ
000030: 4C 45 20 57 49 54 48 22 0D 0A 33 36 35 20 50 52 LE WITH"..365 PR
000040: 49 4E 54 20 22 32 20 44 49 53 4B 53 2C 20 54 48 INT "2 DISKS, TH
000050: 45 49 52 20 43 4F 44 45 20 4E 41 4D 45 53 20 57 EIR CODE NAMES W
000060: 4F 55 4C 44 20 42 45 20 31 33 20 41 4E 44 20 31 OULD BE 13 AND 1
000070: 35 2E 20 20 57 49 54 48 20 33 20 44 49 53 4B 53 5. WITH 3 DISKS
000080: 22 0D 0A 33 37 30 20 50 52 49 4E 54 20 22 54 48 "..370 PRINT "TH
000090: 45 20 43 4F 44 45 20 4E 41 4D 45 53 20 57 4F 55 E CODE NAMES WOU
0000A0: 4C 44 20 42 45 20 31 31 2C 20 31 33 20 41 4E 44 LD BE 11, 13 AND
0000B0: 20 31 35 2C 20 45 54 43 2E 20 20 54 48 45 20 4E 15, ETC. THE N
0000C0: 45 45 44 4C 45 53 22 0D 0A 33 37 35 20 50 52 49 EEDLES"..375 PRI
0000D0: 4E 54 20 22 41 52 45 20 4E 55 4D 42 45 52 45 44 NT "ARE NUMBERED
0000E0: 20 46 52 4F 4D 20 4C 45 46 54 20 54 4F 20 52 49 FROM LEFT TO RI
0000F0: 47 48 54 2C 20 31 20 54 4F 20 33 2E 20 20 57 45 GHT, 1 TO 3. WE
000100: 20 57 49 4C 4C 22 0D 0A 33 38 30 20 50 52 49 4E WILL"..380 PRIN
000110: 54 20 22 53 54 41 52 54 20 57 49 54 48 20 54 48 T "START WITH TH
000120: 45 20 44 49 53 4B 53 20 4F 4E 20 4E 45 45 44 4C E DISKS ON NEEDL
000130: 45 20 31 2C 20 41 4E 44 20 41 54 54 45 4D 50 54 E 1, AND ATTEMPT
000140: 20 54 4F 20 4D 4F 56 45 20 54 48 45 4D 22 0D 0A TO MOVE THEM"..
000150: 33 38 35 20 50 52 49 4E 54 20 22 54 4F 20 4E 45 385 PRINT "TO NE
000160: 45 44 4C 45 20 33 2E 22 0D 0A 33 39 30 20 50 52 EDLE 3."..390 PR
000170: 49 4E 54 3A 20 50 52 49 4E 54 20 22 47 4F 4F 44 INT: PRINT "GOOD
000180: 20 4C 55 43 4B 21 22 3A 20 50 52 49 4E 54 0D 0A LUCK!": PRINT..
000190: 34 30 30 20 59 3D 37 3A 20 44 3D 31 35 0D 0A 34 400 Y=7: D=15..4
0001A0: 32 30 20 46 4F 52 20 58 3D 53 20 54 4F 20 31 20 20 FOR X=S TO 1
0001B0: 53 54 45 50 20 2D 31 0D 0A 34 33 30 20 54 28 59 STEP -1..430 T(Y
0001C0: 2C 31 29 3D 44 3A 20 44 3D 44 2D 32 3A 20 59 3D ,1)=D: D=D-2: Y=
0001D0: 59 2D 31 0D 0A 34 36 30 20 4E 45 58 54 20 58 0D Y-1..460 NEXT X.
0001E0: 0A 34 37 30 20 47 4F 53 55 42 20 31 32 33 30 0D .470 GOSUB 1230.
0001F0: 0A 34 38 30 20 50 52 49 4E 54 20 22 57 48 49 43 .480 PRINT "WHIC
Size : 512 (Real : 512)
000000: 55 54 20 41 24 0D 0A 31 31 36 30 20 49 46 20 41 UT A$..1160 IF A
000010: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 33 39 30 $="NO" THEN 1390
000020: 0D 0A 31 31 37 30 20 49 46 20 41 24 3D 22 59 45 ..1170 IF A$="YE
000030: 53 22 20 54 48 45 4E 20 39 30 0D 0A 31 31 38 30 S" THEN 90..1180
000040: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 27 PRINT: PRINT "'
000050: 59 45 53 27 20 4F 52 20 27 4E 4F 27 20 50 4C 45 YES' OR 'NO' PLE
000060: 41 53 45 22 3B 3A 20 49 4E 50 55 54 20 41 24 3A ASE";: INPUT A$:
000070: 20 47 4F 54 4F 20 31 31 36 30 0D 0A 31 32 33 30 GOTO 1160..1230
000080: 20 52 45 4D 20 2A 2A 2A 20 50 52 49 4E 54 20 53 REM *** PRINT S
000090: 55 42 52 4F 55 54 49 4E 45 0D 0A 31 32 34 30 20 UBROUTINE..1240
0000A0: 46 4F 52 20 4B 3D 31 20 54 4F 20 37 0D 0A 31 32 FOR K=1 TO 7..12
0000B0: 35 30 20 5A 3D 31 30 0D 0A 31 32 36 30 20 46 4F 50 Z=10..1260 FO
0000C0: 52 20 4A 3D 31 20 54 4F 20 33 0D 0A 31 32 37 30 R J=1 TO 3..1270
0000D0: 20 49 46 20 54 28 4B 2C 4A 29 3D 30 20 54 48 45 IF T(K,J)=0 THE
0000E0: 4E 20 31 33 33 30 0D 0A 31 32 38 30 20 50 52 49 N 1330..1280 PRI
0000F0: 4E 54 20 54 41 42 28 5A 2D 49 4E 54 28 54 28 4B NT TAB(Z-INT(T(K
000100: 2C 4A 29 2F 32 29 29 3B 0D 0A 31 32 39 30 20 46 ,J)/2));..1290 F
000110: 4F 52 20 56 3D 31 20 54 4F 20 54 28 4B 2C 4A 29 OR V=1 TO T(K,J)
000120: 0D 0A 31 33 30 30 20 50 52 49 4E 54 20 22 2A 22 ..1300 PRINT "*"
000130: 3B 0D 0A 31 33 31 30 20 4E 45 58 54 20 56 0D 0A ;..1310 NEXT V..
000140: 31 33 32 30 20 47 4F 54 4F 20 31 33 34 30 0D 0A 1320 GOTO 1340..
000150: 31 33 33 30 20 50 52 49 4E 54 20 54 41 42 28 5A 1330 PRINT TAB(Z
000160: 29 3B 22 2A 22 3B 0D 0A 31 33 34 30 20 5A 3D 5A );"*";..1340 Z=Z
000170: 2B 32 31 0D 0A 31 33 35 30 20 4E 45 58 54 20 4A +21..1350 NEXT J
000180: 0D 0A 31 33 36 30 20 50 52 49 4E 54 0D 0A 31 33 ..1360 PRINT..13
000190: 37 30 20 4E 45 58 54 20 4B 0D 0A 31 33 38 30 20 70 NEXT K..1380
0001A0: 52 45 54 55 52 4E 0D 0A 31 33 39 30 20 50 52 49 RETURN..1390 PRI
0001B0: 4E 54 3A 20 50 52 49 4E 54 20 22 54 48 41 4E 4B NT: PRINT "THANK
0001C0: 53 20 46 4F 52 20 54 48 45 20 47 41 4D 45 21 22 S FOR THE GAME!"
0001D0: 3A 20 50 52 49 4E 54 3A 20 45 4E 44 0D 0A 1A E5 : PRINT: END....
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 48 20 44 49 53 4B 20 57 4F 55 4C 44 20 59 4F 55 H DISK WOULD YOU
000010: 20 4C 49 4B 45 20 54 4F 20 4D 4F 56 45 22 3B 3A LIKE TO MOVE";:
000020: 45 3D 30 0D 0A 35 30 30 20 49 4E 50 55 54 20 44 E=0..500 INPUT D
000030: 0D 0A 35 31 30 20 49 46 20 28 44 2D 33 29 2A 28 ..510 IF (D-3)*(
000040: 44 2D 35 29 2A 28 44 2D 37 29 2A 28 44 2D 39 29 D-5)*(D-7)*(D-9)
000050: 2A 28 44 2D 31 31 29 2A 28 44 2D 31 33 29 2A 28 *(D-11)*(D-13)*(
000060: 44 2D 31 35 29 3D 30 20 54 48 45 4E 20 35 38 30 D-15)=0 THEN 580
000070: 0D 0A 35 32 30 20 50 52 49 4E 54 20 22 49 4C 4C ..520 PRINT "ILL
000080: 45 47 41 4C 20 45 4E 54 52 59 2E 2E 2E 20 59 4F EGAL ENTRY... YO
000090: 55 20 4D 41 59 20 4F 4E 4C 59 20 54 59 50 45 20 U MAY ONLY TYPE
0000A0: 33 2C 35 2C 37 2C 39 2C 31 31 2C 31 33 2C 20 4F 3,5,7,9,11,13, O
0000B0: 52 20 31 35 2E 22 0D 0A 35 33 30 20 45 3D 45 2B R 15."..530 E=E+
0000C0: 31 3A 20 49 46 20 45 3E 31 20 54 48 45 4E 20 35 1: IF E>1 THEN 5
0000D0: 36 30 0D 0A 35 35 30 20 47 4F 54 4F 20 35 30 30 60..550 GOTO 500
0000E0: 0D 0A 35 36 30 20 50 52 49 4E 54 20 22 53 54 4F ..560 PRINT "STO
0000F0: 50 20 57 41 53 54 49 4E 47 20 4D 59 20 54 49 4D P WASTING MY TIM
000100: 45 2E 20 20 47 4F 20 42 4F 54 48 45 52 20 53 4F E. GO BOTHER SO
000110: 4D 45 4F 4E 45 20 45 4C 53 45 2E 22 3A 20 53 54 MEONE ELSE.": ST
000120: 4F 50 0D 0A 35 38 30 20 52 45 4D 20 2A 2A 2A 20 OP..580 REM ***
000130: 43 48 45 43 4B 20 49 46 20 52 45 51 55 45 53 54 CHECK IF REQUEST
000140: 45 44 20 44 49 53 4B 20 49 53 20 42 45 4C 4F 57 ED DISK IS BELOW
000150: 20 41 4E 4F 54 48 45 52 0D 0A 35 39 30 20 46 4F ANOTHER..590 FO
000160: 52 20 52 3D 31 20 54 4F 20 37 0D 0A 36 30 30 20 R R=1 TO 7..600
000170: 46 4F 52 20 43 3D 31 20 54 4F 20 33 0D 0A 36 31 FOR C=1 TO 3..61
000180: 30 20 49 46 20 54 28 52 2C 43 29 3D 44 20 54 48 0 IF T(R,C)=D TH
000190: 45 4E 20 36 34 30 0D 0A 36 32 30 20 4E 45 58 54 EN 640..620 NEXT
0001A0: 20 43 3A 20 4E 45 58 54 20 52 0D 0A 36 34 30 20 C: NEXT R..640
0001B0: 46 4F 52 20 51 3D 52 20 54 4F 20 31 20 53 54 45 FOR Q=R TO 1 STE
0001C0: 50 20 2D 31 0D 0A 36 34 35 20 49 46 20 54 28 51 P -1..645 IF T(Q
0001D0: 2C 43 29 3D 30 20 54 48 45 4E 20 36 36 30 0D 0A ,C)=0 THEN 660..
0001E0: 36 35 30 20 49 46 20 54 28 51 2C 43 29 3C 44 20 650 IF T(Q,C)<D
0001F0: 54 48 45 4E 20 36 38 30 0D 0A 36 36 30 20 4E 45 THEN 680..660 NE
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 53 59 4E 4F 4E 59 4D 22 0D 0A 34 20 50 52 49 "SYNONYM"..4 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 JERSEY"..6 PRINT
000060: 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A : PRINT: PRINT..
000070: 31 30 20 44 49 4D 20 52 24 28 35 29 2C 57 24 28 10 DIM R$(5),W$(
000080: 31 30 29 2C 4C 28 33 30 29 2C 52 28 33 30 29 0D 10),L(30),R(30).
000090: 0A 32 30 20 52 24 28 31 29 3D 22 52 49 47 48 54 .20 R$(1)="RIGHT
0000A0: 22 3A 20 52 24 28 32 29 3D 22 43 4F 52 52 45 43 ": R$(2)="CORREC
0000B0: 54 22 3A 20 52 24 28 33 29 3D 22 46 49 4E 45 22 T": R$(3)="FINE"
0000C0: 3A 20 52 24 28 34 29 3D 22 47 4F 4F 44 21 22 0D : R$(4)="GOOD!".
0000D0: 0A 33 30 20 52 24 28 35 29 3D 22 43 48 45 43 4B .30 R$(5)="CHECK
0000E0: 22 0D 0A 37 30 20 43 3D 30 0D 0A 39 30 20 50 52 "..70 C=0..90 PR
0000F0: 49 4E 54 20 22 41 20 53 59 4E 4F 4E 59 4D 20 4F INT "A SYNONYM O
000100: 46 20 41 20 57 4F 52 44 20 4D 45 41 4E 53 20 41 F A WORD MEANS A
000110: 4E 4F 54 48 45 52 20 57 4F 52 44 20 49 4E 20 54 NOTHER WORD IN T
000120: 48 45 20 45 4E 47 4C 49 53 48 22 0D 0A 31 30 30 HE ENGLISH"..100
000130: 20 50 52 49 4E 54 20 22 4C 41 4E 47 55 41 47 45 PRINT "LANGUAGE
000140: 20 57 48 49 43 48 20 48 41 53 20 54 48 45 20 53 WHICH HAS THE S
000150: 41 4D 45 20 4F 52 20 56 45 52 59 20 4E 45 41 52 AME OR VERY NEAR
000160: 4C 59 20 54 48 45 20 53 41 4D 45 22 3B 0D 0A 31 LY THE SAME";..1
000170: 31 30 20 50 52 49 4E 54 20 22 20 4D 45 41 4E 49 10 PRINT " MEANI
000180: 4E 47 2E 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 NG."..130 PRINT
000190: 22 49 20 43 48 4F 4F 53 45 20 41 20 57 4F 52 44 "I CHOOSE A WORD
0001A0: 20 2D 2D 20 59 4F 55 20 54 59 50 45 20 41 20 53 -- YOU TYPE A S
0001B0: 59 4E 4F 4E 59 4D 2E 22 0D 0A 31 34 30 20 50 52 YNONYM."..140 PR
0001C0: 49 4E 54 20 22 49 46 20 59 4F 55 20 43 41 4E 27 INT "IF YOU CAN'
0001D0: 54 20 54 48 49 4E 4B 20 4F 46 20 41 20 53 59 4E T THINK OF A SYN
0001E0: 4F 4E 59 4D 2C 20 54 59 50 45 20 54 48 45 20 57 ONYM, TYPE THE W
0001F0: 4F 52 44 20 27 48 45 4C 50 27 22 0D 0A 31 34 35 ORD 'HELP'"..145
Size : 512 (Real : 512)
000000: 58 54 20 51 0D 0A 36 37 30 20 47 4F 54 4F 20 37 XT Q..670 GOTO 7
000010: 30 30 0D 0A 36 38 30 20 50 52 49 4E 54 20 22 54 00..680 PRINT "T
000020: 48 41 54 20 44 49 53 4B 20 49 53 20 42 45 4C 4F HAT DISK IS BELO
000030: 57 20 41 4E 4F 54 48 45 52 20 4F 4E 45 2E 20 20 W ANOTHER ONE.
000040: 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 43 48 4F MAKE ANOTHER CHO
000050: 49 43 45 2E 22 0D 0A 36 39 30 20 47 4F 54 4F 20 ICE."..690 GOTO
000060: 34 38 30 0D 0A 37 30 30 20 45 3D 30 0D 0A 37 30 480..700 E=0..70
000070: 35 20 49 4E 50 55 54 20 22 50 4C 41 43 45 20 44 5 INPUT "PLACE D
000080: 49 53 4B 20 4F 4E 20 57 48 49 43 48 20 4E 45 45 ISK ON WHICH NEE
000090: 44 4C 45 22 3B 4E 0D 0A 37 33 30 20 49 46 20 28 DLE";N..730 IF (
0000A0: 4E 2D 31 29 2A 28 4E 2D 32 29 2A 28 4E 2D 33 29 N-1)*(N-2)*(N-3)
0000B0: 3D 30 20 54 48 45 4E 20 38 30 30 0D 0A 37 33 35 =0 THEN 800..735
0000C0: 20 45 3D 45 2B 31 0D 0A 37 34 30 20 49 46 20 45 E=E+1..740 IF E
0000D0: 3E 31 20 54 48 45 4E 20 37 38 30 0D 0A 37 35 30 >1 THEN 780..750
0000E0: 20 50 52 49 4E 54 20 22 49 27 4C 4C 20 41 53 53 PRINT "I'LL ASS
0000F0: 55 4D 45 20 59 4F 55 20 48 49 54 20 54 48 45 20 UME YOU HIT THE
000100: 57 52 4F 4E 47 20 4B 45 59 20 54 48 49 53 20 54 WRONG KEY THIS T
000110: 49 4D 45 2E 20 20 42 55 54 20 57 41 54 43 48 20 IME. BUT WATCH
000120: 49 54 2C 22 0D 0A 37 36 30 20 50 52 49 4E 54 20 IT,"..760 PRINT
000130: 22 49 20 4F 4E 4C 59 20 41 4C 4C 4F 57 20 4F 4E "I ONLY ALLOW ON
000140: 45 20 4D 49 53 54 41 4B 45 2E 22 3A 20 47 4F 54 E MISTAKE.": GOT
000150: 4F 20 37 30 35 0D 0A 37 38 30 20 50 52 49 4E 54 O 705..780 PRINT
000160: 20 22 49 20 54 52 49 45 44 20 54 4F 20 57 41 52 "I TRIED TO WAR
000170: 4E 20 59 4F 55 2C 20 42 55 54 20 59 4F 55 20 57 N YOU, BUT YOU W
000180: 4F 55 4C 44 4E 27 54 20 4C 49 53 54 45 4E 2E 22 OULDN'T LISTEN."
000190: 0D 0A 37 39 30 20 50 52 49 4E 54 20 22 42 59 45 ..790 PRINT "BYE
0001A0: 20 42 59 45 2C 20 42 49 47 20 53 48 4F 54 2E 22 BYE, BIG SHOT."
0001B0: 3A 53 54 4F 50 0D 0A 38 30 30 20 46 4F 52 20 52 :STOP..800 FOR R
0001C0: 3D 31 20 54 4F 20 37 0D 0A 38 31 30 20 49 46 20 =1 TO 7..810 IF
0001D0: 54 28 52 2C 4E 29 3C 3E 30 20 54 48 45 4E 20 38 T(R,N)<>0 THEN 8
0001E0: 34 30 0D 0A 38 32 30 20 4E 45 58 54 20 52 0D 0A 40..820 NEXT R..
0001F0: 38 33 30 20 47 4F 54 4F 20 38 38 30 0D 0A 38 33 830 GOTO 880..83
Size : 512 (Real : 512)
000000: 20 50 52 49 4E 54 20 22 41 4E 44 20 49 20 57 49 PRINT "AND I WI
000010: 4C 4C 20 54 45 4C 4C 20 59 4F 55 20 41 20 53 59 LL TELL YOU A SY
000020: 4E 4F 4E 59 4D 2E 22 3A 20 50 52 49 4E 54 0D 0A NONYM.": PRINT..
000030: 31 35 30 20 52 45 53 54 4F 52 45 3A 20 43 3D 43 150 RESTORE: C=C
000040: 2B 31 3A 20 52 45 41 44 20 4E 0D 0A 31 36 30 20 +1: READ N..160
000050: 49 46 20 43 3E 4E 20 54 48 45 4E 20 34 32 30 0D IF C>N THEN 420.
000060: 0A 31 37 30 20 4E 31 3D 49 4E 54 28 52 4E 44 28 .170 N1=INT(RND(
000070: 31 29 2A 4E 2B 31 29 0D 0A 31 37 34 20 49 46 20 1)*N+1)..174 IF
000080: 52 28 4E 31 29 3D 31 20 54 48 45 4E 20 31 37 30 R(N1)=1 THEN 170
000090: 0D 0A 31 37 36 20 52 28 4E 31 29 3D 31 0D 0A 31 ..176 R(N1)=1..1
0000A0: 38 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 31 80 FOR I=1 TO N1
0000B0: 0D 0A 31 39 30 20 52 45 41 44 20 4E 32 0D 0A 32 ..190 READ N2..2
0000C0: 30 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 4E 32 00 FOR J=1 TO N2
0000D0: 0D 0A 32 31 30 20 52 45 41 44 20 57 24 28 4A 29 ..210 READ W$(J)
0000E0: 0D 0A 32 32 30 20 4E 45 58 54 20 4A 0D 0A 32 33 ..220 NEXT J..23
0000F0: 30 20 4E 45 58 54 20 49 0D 0A 32 33 32 20 46 4F 0 NEXT I..232 FO
000100: 52 20 4A 3D 31 20 54 4F 20 4E 32 3A 20 4C 28 4A R J=1 TO N2: L(J
000110: 29 3D 4A 3A 20 4E 45 58 54 20 4A 0D 0A 32 33 35 )=J: NEXT J..235
000120: 20 4C 28 30 29 3D 4E 32 3A 20 47 3D 31 3A 20 50 L(0)=N2: G=1: P
000130: 52 49 4E 54 0D 0A 32 33 37 20 4C 28 47 29 3D 4C RINT..237 L(G)=L
000140: 28 4C 28 30 29 29 3A 20 4C 28 30 29 3D 4E 32 2D (L(0)): L(0)=N2-
000150: 31 3A 20 50 52 49 4E 54 0D 0A 32 34 30 20 50 52 1: PRINT..240 PR
000160: 49 4E 54 20 22 20 20 20 20 20 57 48 41 54 20 49 INT " WHAT I
000170: 53 20 41 20 53 59 4E 4F 4E 59 4D 20 4F 46 20 22 S A SYNONYM OF "
000180: 3B 57 24 28 47 29 3B 3A 20 49 4E 50 55 54 20 41 ;W$(G);: INPUT A
000190: 24 0D 0A 32 35 30 20 49 46 20 41 24 3D 22 48 45 $..250 IF A$="HE
0001A0: 4C 50 22 20 54 48 45 4E 20 33 34 30 0D 0A 32 36 LP" THEN 340..26
0001B0: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 32 0D 0 FOR K=1 TO N2.
0001C0: 0A 32 37 30 20 49 46 20 47 3D 4B 20 54 48 45 4E .270 IF G=K THEN
0001D0: 20 32 39 30 0D 0A 32 38 30 20 49 46 20 41 24 3D 290..280 IF A$=
0001E0: 57 24 28 4B 29 20 54 48 45 4E 20 33 32 30 0D 0A W$(K) THEN 320..
0001F0: 32 39 30 20 4E 45 58 54 20 4B 0D 0A 33 30 30 20 290 NEXT K..300
Size : 512 (Real : 512)
000000: 35 20 52 45 4D 20 2A 2A 2A 20 43 48 45 43 4B 20 5 REM *** CHECK
000010: 49 46 20 44 49 53 4B 20 54 4F 20 42 45 20 50 4C IF DISK TO BE PL
000020: 41 43 45 44 20 4F 4E 20 41 20 4C 41 52 47 45 52 ACED ON A LARGER
000030: 20 4F 4E 45 0D 0A 38 34 30 20 49 46 20 44 3C 54 ONE..840 IF D<T
000040: 28 52 2C 4E 29 20 54 48 45 4E 20 38 38 30 0D 0A (R,N) THEN 880..
000050: 38 35 30 20 50 52 49 4E 54 20 22 59 4F 55 20 43 850 PRINT "YOU C
000060: 41 4E 27 54 20 50 4C 41 43 45 20 41 20 4C 41 52 AN'T PLACE A LAR
000070: 47 45 52 20 44 49 53 4B 20 4F 4E 20 54 4F 50 20 GER DISK ON TOP
000080: 4F 46 20 41 20 53 4D 41 4C 4C 45 52 20 4F 4E 45 OF A SMALLER ONE
000090: 2C 22 0D 0A 38 36 30 20 50 52 49 4E 54 20 22 49 ,"..860 PRINT "I
0000A0: 54 20 4D 49 47 48 54 20 43 52 55 53 48 20 49 54 T MIGHT CRUSH IT
0000B0: 21 22 3A 20 50 52 49 4E 54 20 22 4E 4F 57 20 54 !": PRINT "NOW T
0000C0: 48 45 4E 2C 20 22 3B 3A 47 4F 54 4F 20 34 38 30 HEN, ";:GOTO 480
0000D0: 0D 0A 38 37 35 20 52 45 4D 20 2A 2A 2A 20 4D 4F ..875 REM *** MO
0000E0: 56 45 20 52 45 4C 4F 43 41 54 45 44 20 44 49 53 VE RELOCATED DIS
0000F0: 4B 0D 0A 38 38 30 20 46 4F 52 20 56 3D 31 20 54 K..880 FOR V=1 T
000100: 4F 20 37 3A 20 46 4F 52 20 57 3D 31 20 54 4F 20 O 7: FOR W=1 TO
000110: 33 0D 0A 39 30 30 20 49 46 20 54 28 56 2C 57 29 3..900 IF T(V,W)
000120: 3D 44 20 54 48 45 4E 20 39 33 30 0D 0A 39 31 30 =D THEN 930..910
000130: 20 4E 45 58 54 20 57 3A 20 4E 45 58 54 20 56 0D NEXT W: NEXT V.
000140: 0A 39 32 35 20 52 45 4D 20 2A 2A 2A 20 4C 4F 43 .925 REM *** LOC
000150: 41 54 45 20 45 4D 50 54 59 20 53 50 41 43 45 20 ATE EMPTY SPACE
000160: 4F 4E 20 4E 45 45 44 4C 45 20 4E 0D 0A 39 33 30 ON NEEDLE N..930
000170: 20 46 4F 52 20 55 3D 31 20 54 4F 20 37 0D 0A 39 FOR U=1 TO 7..9
000180: 34 30 20 49 46 20 54 28 55 2C 4E 29 3C 3E 30 20 40 IF T(U,N)<>0
000190: 54 48 45 4E 20 39 37 30 0D 0A 39 35 30 20 4E 45 THEN 970..950 NE
0001A0: 58 54 20 55 0D 0A 39 36 30 20 55 3D 37 3A 20 47 XT U..960 U=7: G
0001B0: 4F 54 4F 20 39 38 30 0D 0A 39 36 35 20 52 45 4D OTO 980..965 REM
0001C0: 20 2A 2A 2A 20 4D 4F 56 45 20 44 49 53 4B 20 41 *** MOVE DISK A
0001D0: 4E 44 20 53 45 54 20 4F 4C 44 20 4C 4F 43 41 54 ND SET OLD LOCAT
0001E0: 49 4F 4E 20 54 4F 20 30 0D 0A 39 37 30 20 55 3D ION TO 0..970 U=
0001F0: 55 2D 31 0D 0A 39 38 30 20 54 28 55 2C 4E 29 3D U-1..980 T(U,N)=
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 20 20 20 20 20 54 52 59 20 PRINT " TRY
000010: 41 47 41 49 4E 2E 22 3A 20 47 4F 54 4F 20 32 34 AGAIN.": GOTO 24
000020: 30 0D 0A 33 32 30 20 50 52 49 4E 54 20 52 24 28 0..320 PRINT R$(
000030: 49 4E 54 28 52 4E 44 28 31 29 2A 35 2B 31 29 29 INT(RND(1)*5+1))
000040: 3A 20 47 4F 54 4F 20 31 35 30 0D 0A 33 34 30 20 : GOTO 150..340
000050: 47 31 3D 49 4E 54 28 52 4E 44 28 31 29 2A 4C 28 G1=INT(RND(1)*L(
000060: 30 29 2B 31 29 0D 0A 33 36 30 20 50 52 49 4E 54 0)+1)..360 PRINT
000070: 20 22 2A 2A 2A 2A 20 41 20 53 59 4E 4F 4E 59 4D "**** A SYNONYM
000080: 20 4F 46 20 22 3B 57 24 28 47 29 3B 22 20 49 53 OF ";W$(G);" IS
000090: 20 22 3B 57 24 28 4C 28 47 31 29 29 3B 22 2E 22 ";W$(L(G1));"."
0000A0: 3A 20 50 52 49 4E 54 0D 0A 33 37 30 20 4C 28 47 : PRINT..370 L(G
0000B0: 31 29 3D 4C 28 4C 28 30 29 29 3A 20 4C 28 30 29 1)=L(L(0)): L(0)
0000C0: 3D 4C 28 30 29 2D 31 3A 20 47 4F 54 4F 20 32 34 =L(0)-1: GOTO 24
0000D0: 30 0D 0A 34 32 30 20 50 52 49 4E 54 3A 20 50 52 0..420 PRINT: PR
0000E0: 49 4E 54 20 22 53 59 4E 4F 4E 59 4D 20 44 52 49 INT "SYNONYM DRI
0000F0: 4C 4C 20 43 4F 4D 50 4C 45 54 45 44 2E 22 3A 20 LL COMPLETED.":
000100: 47 4F 54 4F 20 39 39 39 0D 0A 35 30 30 20 44 41 GOTO 999..500 DA
000110: 54 41 20 31 30 0D 0A 35 31 30 20 44 41 54 41 20 TA 10..510 DATA
000120: 35 2C 22 46 49 52 53 54 22 2C 22 53 54 41 52 54 5,"FIRST","START
000130: 22 2C 22 42 45 47 49 4E 4E 49 4E 47 22 2C 22 4F ","BEGINNING","O
000140: 4E 53 45 54 22 2C 22 49 4E 49 54 49 41 4C 22 0D NSET","INITIAL".
000150: 0A 35 32 30 20 44 41 54 41 20 35 2C 22 53 49 4D .520 DATA 5,"SIM
000160: 49 4C 41 52 22 2C 22 41 4C 49 4B 45 22 2C 22 53 ILAR","ALIKE","S
000170: 41 4D 45 22 2C 22 4C 49 4B 45 22 2C 22 52 45 53 AME","LIKE","RES
000180: 45 4D 42 4C 49 4E 47 22 0D 0A 35 33 30 20 44 41 EMBLING"..530 DA
000190: 54 41 20 35 2C 22 4D 4F 44 45 4C 22 2C 22 50 41 TA 5,"MODEL","PA
0001A0: 54 54 45 52 4E 22 2C 22 50 52 4F 54 4F 54 59 50 TTERN","PROTOTYP
0001B0: 45 22 2C 22 53 54 41 4E 44 41 52 44 22 2C 22 43 E","STANDARD","C
0001C0: 52 49 54 45 52 49 4F 4E 22 0D 0A 35 34 30 20 44 RITERION"..540 D
0001D0: 41 54 41 20 35 2C 22 53 4D 41 4C 4C 22 2C 22 49 ATA 5,"SMALL","I
0001E0: 4E 53 49 47 4E 49 46 49 43 41 4E 54 22 2C 22 4C NSIGNIFICANT","L
0001F0: 49 54 54 4C 45 22 2C 22 54 49 4E 59 22 2C 22 4D ITTLE","TINY","M
Size : 512 (Real : 512)
000000: 45 41 53 55 52 59 2E 22 0D 0A 32 38 20 50 52 49 EASURY."..28 PRI
000010: 4E 54 20 22 54 48 45 20 4D 4F 4E 45 59 20 53 59 NT "THE MONEY SY
000020: 53 54 45 4D 20 49 53 20 52 41 4C 4C 4F 44 53 2C STEM IS RALLODS,
000030: 20 41 4E 44 20 45 41 43 48 20 50 45 52 53 4F 4E AND EACH PERSON
000040: 20 4E 45 45 44 53 20 31 30 30 22 0D 0A 33 30 20 NEEDS 100"..30
000050: 50 52 49 4E 54 20 22 52 41 4C 4C 4F 44 53 20 50 PRINT "RALLODS P
000060: 45 52 20 59 45 41 52 20 54 4F 20 53 55 52 56 49 ER YEAR TO SURVI
000070: 56 45 2E 20 59 4F 55 52 20 43 4F 55 4E 54 52 59 VE. YOUR COUNTRY
000080: 27 53 20 49 4E 43 4F 4D 45 20 43 4F 4D 45 53 22 'S INCOME COMES"
000090: 0D 0A 33 32 20 50 52 49 4E 54 20 22 46 52 4F 4D ..32 PRINT "FROM
0000A0: 20 46 41 52 4D 20 50 52 4F 44 55 43 45 20 41 4E FARM PRODUCE AN
0000B0: 44 20 54 4F 55 52 49 53 54 53 20 56 49 53 49 54 D TOURISTS VISIT
0000C0: 49 4E 47 20 59 4F 55 52 20 4D 41 47 4E 49 46 49 ING YOUR MAGNIFI
0000D0: 43 45 4E 54 22 0D 0A 33 34 20 50 52 49 4E 54 20 CENT"..34 PRINT
0000E0: 22 46 4F 52 45 53 54 53 2C 20 48 55 4E 54 49 4E "FORESTS, HUNTIN
0000F0: 47 2C 20 46 49 53 48 49 4E 47 2C 20 45 54 43 2E G, FISHING, ETC.
000100: 20 48 41 4C 46 20 59 4F 55 52 20 4C 41 4E 44 20 HALF YOUR LAND
000110: 49 53 20 46 41 52 4D 20 4C 41 4E 44 22 0D 0A 33 IS FARM LAND"..3
000120: 36 20 50 52 49 4E 54 20 22 57 48 49 43 48 20 41 6 PRINT "WHICH A
000130: 4C 53 4F 20 48 41 53 20 41 4E 20 45 58 43 45 4C LSO HAS AN EXCEL
000140: 4C 45 4E 54 20 4D 49 4E 45 52 41 4C 20 43 4F 4E LENT MINERAL CON
000150: 54 45 4E 54 20 41 4E 44 20 4D 41 59 20 42 45 20 TENT AND MAY BE
000160: 53 4F 4C 44 22 0D 0A 33 38 20 50 52 49 4E 54 20 SOLD"..38 PRINT
000170: 22 54 4F 20 46 4F 52 45 49 47 4E 20 49 4E 44 55 "TO FOREIGN INDU
000180: 53 54 52 59 20 28 53 54 52 49 50 20 4D 49 4E 49 STRY (STRIP MINI
000190: 4E 47 29 20 57 48 4F 20 49 4D 50 4F 52 54 20 41 NG) WHO IMPORT A
0001A0: 4E 44 20 53 55 50 50 4F 52 54 22 0D 0A 34 30 20 ND SUPPORT"..40
0001B0: 50 52 49 4E 54 20 22 54 48 45 49 52 20 4F 57 4E PRINT "THEIR OWN
0001C0: 20 57 4F 52 4B 45 52 53 2E 20 43 52 4F 50 53 20 WORKERS. CROPS
0001D0: 43 4F 53 54 20 42 45 54 57 45 45 4E 20 31 30 20 COST BETWEEN 10
0001E0: 41 4E 44 20 31 35 20 52 41 4C 4C 4F 44 53 20 50 AND 15 RALLODS P
0001F0: 45 52 22 0D 0A 34 32 20 50 52 49 4E 54 20 22 53 ER"..42 PRINT "S
Size : 512 (Real : 512)
000000: 49 4E 55 54 45 22 0D 0A 35 35 30 20 44 41 54 41 INUTE"..550 DATA
000010: 20 36 2C 22 53 54 4F 50 22 2C 22 48 41 4C 54 22 6,"STOP","HALT"
000020: 2C 22 53 54 41 59 22 2C 22 41 52 52 45 53 54 22 ,"STAY","ARREST"
000030: 2C 22 43 48 45 43 4B 22 2C 22 53 54 41 4E 44 53 ,"CHECK","STANDS
000040: 54 49 4C 4C 22 0D 0A 35 36 30 20 44 41 54 41 20 TILL"..560 DATA
000050: 36 2C 22 48 4F 55 53 45 22 2C 22 44 57 45 4C 4C 6,"HOUSE","DWELL
000060: 49 4E 47 22 2C 22 52 45 53 49 44 45 4E 43 45 22 ING","RESIDENCE"
000070: 2C 22 44 4F 4D 49 43 49 4C 45 22 2C 22 4C 4F 44 ,"DOMICILE","LOD
000080: 47 49 4E 47 22 0D 0A 35 36 35 20 44 41 54 41 20 GING"..565 DATA
000090: 22 48 41 42 49 54 41 54 49 4F 4E 22 0D 0A 35 37 "HABITATION"..57
0000A0: 30 20 44 41 54 41 20 37 2C 22 50 49 54 22 2C 22 0 DATA 7,"PIT","
0000B0: 48 4F 4C 45 22 2C 22 48 4F 4C 4C 4F 57 22 2C 22 HOLE","HOLLOW","
0000C0: 57 45 4C 4C 22 2C 22 47 55 4C 46 22 2C 22 43 48 WELL","GULF","CH
0000D0: 41 53 4D 22 2C 22 41 42 59 53 53 22 0D 0A 35 38 ASM","ABYSS"..58
0000E0: 30 20 44 41 54 41 20 37 2C 22 50 55 53 48 22 2C 0 DATA 7,"PUSH",
0000F0: 22 53 48 4F 56 45 22 2C 22 54 48 52 55 53 54 22 "SHOVE","THRUST"
000100: 2C 22 50 52 4F 44 22 2C 22 50 4F 4B 45 22 2C 22 ,"PROD","POKE","
000110: 42 55 54 54 22 2C 22 50 52 45 53 53 22 0D 0A 35 BUTT","PRESS"..5
000120: 39 30 20 44 41 54 41 20 36 2C 22 52 45 44 22 2C 90 DATA 6,"RED",
000130: 22 52 4F 55 47 45 22 2C 22 53 43 41 52 4C 45 54 "ROUGE","SCARLET
000140: 22 2C 22 43 52 49 4D 53 4F 4E 22 2C 22 46 4C 41 ","CRIMSON","FLA
000150: 4D 45 22 2C 22 52 55 42 59 22 0D 0A 36 30 30 20 ME","RUBY"..600
000160: 44 41 54 41 20 37 2C 22 50 41 49 4E 22 2C 22 53 DATA 7,"PAIN","S
000170: 55 46 46 45 52 49 4E 47 22 2C 22 48 55 52 54 22 UFFERING","HURT"
000180: 2C 22 4D 49 53 45 52 59 22 2C 22 44 49 53 54 52 ,"MISERY","DISTR
000190: 45 53 53 22 2C 22 41 43 48 45 22 0D 0A 36 30 35 ESS","ACHE"..605
0001A0: 20 44 41 54 41 20 22 44 49 53 43 4F 4D 46 4F 52 DATA "DISCOMFOR
0001B0: 54 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 T"..999 END.....
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 51 55 41 52 45 20 4D 49 4C 45 20 54 4F 20 50 4C QUARE MILE TO PL
000010: 41 4E 54 2E 22 0D 0A 34 34 20 50 52 49 4E 54 20 ANT."..44 PRINT
000020: 22 59 4F 55 52 20 47 4F 41 4C 20 49 53 20 54 4F "YOUR GOAL IS TO
000030: 20 43 4F 4D 50 4C 45 54 45 20 59 4F 55 52 22 3B COMPLETE YOUR";
000040: 4E 35 3B 22 59 45 41 52 20 54 45 52 4D 20 4F 46 N5;"YEAR TERM OF
000050: 20 4F 46 46 49 43 45 2E 22 0D 0A 34 36 20 50 52 OFFICE."..46 PR
000060: 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 22 INT "GOOD LUCK!"
000070: 0D 0A 34 37 20 50 52 49 4E 54 0D 0A 35 30 20 41 ..47 PRINT..50 A
000080: 3D 49 4E 54 28 36 30 30 30 30 2B 28 31 30 30 30 =INT(60000+(1000
000090: 2A 52 4E 44 28 31 29 29 2D 28 31 30 30 30 2A 52 *RND(1))-(1000*R
0000A0: 4E 44 28 31 29 29 29 0D 0A 35 35 20 42 3D 49 4E ND(1)))..55 B=IN
0000B0: 54 28 35 30 30 2B 28 31 30 2A 52 4E 44 28 31 29 T(500+(10*RND(1)
0000C0: 29 2D 28 31 30 2A 52 4E 44 28 31 29 29 29 0D 0A )-(10*RND(1)))..
0000D0: 36 35 20 44 3D 32 30 30 30 0D 0A 31 30 30 20 57 65 D=2000..100 W
0000E0: 3D 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 2B 39 =INT(10*RND(1)+9
0000F0: 35 29 0D 0A 31 30 32 20 50 52 49 4E 54 0D 0A 31 5)..102 PRINT..1
000100: 30 35 20 50 52 49 4E 54 20 22 59 4F 55 20 4E 4F 05 PRINT "YOU NO
000110: 57 20 48 41 56 45 20 22 3B 41 3B 22 20 52 41 4C W HAVE ";A;" RAL
000120: 4C 4F 44 53 20 49 4E 20 54 48 45 20 54 52 45 41 LODS IN THE TREA
000130: 53 55 52 59 2E 22 0D 0A 31 31 30 20 50 52 49 4E SURY."..110 PRIN
000140: 54 20 49 4E 54 28 42 29 3B 3A 50 52 49 4E 54 20 T INT(B);:PRINT
000150: 22 43 4F 55 4E 54 52 59 4D 45 4E 2C 20 22 3B 0D "COUNTRYMEN, ";.
000160: 0A 31 31 35 20 56 39 3D 49 4E 54 28 28 28 52 4E .115 V9=INT(((RN
000170: 44 28 31 29 2F 32 29 2A 31 30 2B 31 30 29 29 0D D(1)/2)*10+10)).
000180: 0A 31 32 30 20 49 46 20 43 3D 30 20 54 48 45 4E .120 IF C=0 THEN
000190: 20 31 34 30 0D 0A 31 33 30 20 50 52 49 4E 54 20 140..130 PRINT
0001A0: 49 4E 54 28 43 29 3B 22 46 4F 52 45 49 47 4E 20 INT(C);"FOREIGN
0001B0: 57 4F 52 4B 45 52 53 2C 20 22 3B 0D 0A 31 34 30 WORKERS, ";..140
0001C0: 20 50 52 49 4E 54 20 22 41 4E 44 22 3B 49 4E 54 PRINT "AND";INT
0001D0: 28 44 29 3B 22 53 51 2E 20 4D 49 4C 45 53 20 4F (D);"SQ. MILES O
0001E0: 46 20 4C 41 4E 44 2E 22 0D 0A 31 35 30 20 50 52 F LAND."..150 PR
0001F0: 49 4E 54 20 22 54 48 49 53 20 59 45 41 52 20 49 INT "THIS YEAR I
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 4B 49 4E 45 4D 41 22 0D 0A 32 30 20 50 52 ;"KINEMA"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
000070: 0D 0A 31 30 30 20 50 52 49 4E 54 0D 0A 31 30 35 ..100 PRINT..105
000080: 20 50 52 49 4E 54 0D 0A 31 30 36 20 51 3D 30 0D PRINT..106 Q=0.
000090: 0A 31 31 30 20 56 3D 35 2B 49 4E 54 28 33 35 2A .110 V=5+INT(35*
0000A0: 52 4E 44 28 31 29 29 0D 0A 31 31 31 20 50 52 49 RND(1))..111 PRI
0000B0: 4E 54 20 22 41 20 42 41 4C 4C 20 49 53 20 54 48 NT "A BALL IS TH
0000C0: 52 4F 57 4E 20 55 50 57 41 52 44 53 20 41 54 22 ROWN UPWARDS AT"
0000D0: 3B 56 3B 22 4D 45 54 45 52 53 20 50 45 52 20 53 ;V;"METERS PER S
0000E0: 45 43 4F 4E 44 2E 22 0D 0A 31 31 32 20 50 52 49 ECOND."..112 PRI
0000F0: 4E 54 0D 0A 31 31 35 20 41 3D 2E 30 35 2A 56 5E NT..115 A=.05*V^
000100: 32 0D 0A 31 31 36 20 50 52 49 4E 54 20 22 48 4F 2..116 PRINT "HO
000110: 57 20 48 49 47 48 20 57 49 4C 4C 20 49 54 20 47 W HIGH WILL IT G
000120: 4F 20 28 49 4E 20 4D 45 54 45 52 53 29 22 3B 0D O (IN METERS)";.
000130: 0A 31 31 37 20 47 4F 53 55 42 20 35 30 30 0D 0A .117 GOSUB 500..
000140: 31 32 30 20 41 3D 56 2F 35 0D 0A 31 32 32 20 50 120 A=V/5..122 P
000150: 52 49 4E 54 20 22 48 4F 57 20 4C 4F 4E 47 20 55 RINT "HOW LONG U
000160: 4E 54 49 4C 20 49 54 20 52 45 54 55 52 4E 53 20 NTIL IT RETURNS
000170: 28 49 4E 20 53 45 43 4F 4E 44 53 29 22 3B 0D 0A (IN SECONDS)";..
000180: 31 32 34 20 47 4F 53 55 42 20 35 30 30 0D 0A 31 124 GOSUB 500..1
000190: 33 30 20 54 3D 31 2B 49 4E 54 28 32 2A 56 2A 52 30 T=1+INT(2*V*R
0001A0: 4E 44 28 31 29 29 2F 31 30 0D 0A 31 33 32 20 41 ND(1))/10..132 A
0001B0: 3D 56 2D 31 30 2A 54 0D 0A 31 33 34 20 50 52 49 =V-10*T..134 PRI
0001C0: 4E 54 20 22 57 48 41 54 20 57 49 4C 4C 20 49 54 NT "WHAT WILL IT
0001D0: 53 20 56 45 4C 4F 43 49 54 59 20 42 45 20 41 46 S VELOCITY BE AF
0001E0: 54 45 52 22 3B 54 3B 22 53 45 43 4F 4E 44 53 22 TER";T;"SECONDS"
0001F0: 3B 0D 0A 31 33 36 20 47 4F 53 55 42 20 35 30 30 ;..136 GOSUB 500
Size : 512 (Real : 512)
000000: 4E 44 55 53 54 52 59 20 57 49 4C 4C 20 42 55 59 NDUSTRY WILL BUY
000010: 20 4C 41 4E 44 20 46 4F 52 22 3B 57 3B 0D 0A 31 LAND FOR";W;..1
000020: 35 32 20 50 52 49 4E 54 20 22 52 41 4C 4C 4F 44 52 PRINT "RALLOD
000030: 53 20 50 45 52 20 53 51 55 41 52 45 20 4D 49 4C S PER SQUARE MIL
000040: 45 2E 22 0D 0A 31 35 35 20 50 52 49 4E 54 20 22 E."..155 PRINT "
000050: 4C 41 4E 44 20 43 55 52 52 45 4E 54 4C 59 20 43 LAND CURRENTLY C
000060: 4F 53 54 53 22 3B 56 39 3B 22 52 41 4C 4C 4F 44 OSTS";V9;"RALLOD
000070: 53 20 50 45 52 20 53 51 55 41 52 45 20 4D 49 4C S PER SQUARE MIL
000080: 45 20 54 4F 20 50 4C 41 4E 54 2E 22 0D 0A 31 36 E TO PLANT."..16
000090: 32 20 50 52 49 4E 54 0D 0A 32 30 30 20 50 52 49 2 PRINT..200 PRI
0000A0: 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 53 51 55 NT "HOW MANY SQU
0000B0: 41 52 45 20 4D 49 4C 45 53 20 44 4F 20 59 4F 55 ARE MILES DO YOU
0000C0: 20 57 49 53 48 20 54 4F 20 53 45 4C 4C 20 54 4F WISH TO SELL TO
0000D0: 20 49 4E 44 55 53 54 52 59 22 3B 0D 0A 32 31 30 INDUSTRY";..210
0000E0: 20 49 4E 50 55 54 20 48 0D 0A 32 31 35 20 49 46 INPUT H..215 IF
0000F0: 20 48 3C 30 20 54 48 45 4E 20 32 30 30 0D 0A 32 H<0 THEN 200..2
000100: 32 30 20 49 46 20 48 3C 3D 44 2D 31 30 30 30 20 20 IF H<=D-1000
000110: 54 48 45 4E 20 33 30 30 0D 0A 32 33 30 20 50 52 THEN 300..230 PR
000120: 49 4E 54 20 22 2A 2A 2A 20 20 54 48 49 4E 4B 20 INT "*** THINK
000130: 41 47 41 49 4E 2E 20 59 4F 55 20 4F 4E 4C 59 20 AGAIN. YOU ONLY
000140: 48 41 56 45 22 3B 44 2D 31 30 30 30 3B 22 53 51 HAVE";D-1000;"SQ
000150: 55 41 52 45 20 4D 49 4C 45 53 20 4F 46 20 46 41 UARE MILES OF FA
000160: 52 4D 20 4C 41 4E 44 2E 22 0D 0A 32 34 30 20 49 RM LAND."..240 I
000170: 46 20 58 3C 3E 30 20 54 48 45 4E 20 32 30 30 0D F X<>0 THEN 200.
000180: 0A 32 35 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .250 PRINT:PRINT
000190: 20 22 28 46 4F 52 45 49 47 4E 20 49 4E 44 55 53 "(FOREIGN INDUS
0001A0: 54 52 59 20 57 49 4C 4C 20 4F 4E 4C 59 20 42 55 TRY WILL ONLY BU
0001B0: 59 20 46 41 52 4D 20 4C 41 4E 44 20 42 45 43 41 Y FARM LAND BECA
0001C0: 55 53 45 22 0D 0A 32 36 30 20 50 52 49 4E 54 20 USE"..260 PRINT
0001D0: 22 46 4F 52 45 53 54 20 4C 41 4E 44 20 49 53 20 "FOREST LAND IS
0001E0: 55 4E 45 43 4F 4E 4F 4D 49 43 41 4C 20 54 4F 20 UNECONOMICAL TO
0001F0: 53 54 52 49 50 20 4D 49 4E 45 20 44 55 45 20 54 STRIP MINE DUE T
Size : 512 (Real : 512)
000000: 0D 0A 31 34 30 20 50 52 49 4E 54 0D 0A 31 35 30 ..140 PRINT..150
000010: 20 50 52 49 4E 54 20 51 3B 22 52 49 47 48 54 20 PRINT Q;"RIGHT
000020: 4F 55 54 20 4F 46 20 33 2E 22 3B 0D 0A 31 36 30 OUT OF 3.";..160
000030: 20 49 46 20 51 3C 32 20 54 48 45 4E 20 31 30 30 IF Q<2 THEN 100
000040: 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 20 20 4E ..170 PRINT " N
000050: 4F 54 20 42 41 44 2E 22 0D 0A 31 38 30 20 47 4F OT BAD."..180 GO
000060: 54 4F 20 31 30 30 0D 0A 35 30 30 20 49 4E 50 55 TO 100..500 INPU
000070: 54 20 47 0D 0A 35 30 32 20 49 46 20 41 42 53 28 T G..502 IF ABS(
000080: 28 47 2D 41 29 2F 41 29 3C 2E 31 35 20 54 48 45 (G-A)/A)<.15 THE
000090: 4E 20 35 31 30 0D 0A 35 30 34 20 50 52 49 4E 54 N 510..504 PRINT
0000A0: 20 22 4E 4F 54 20 45 56 45 4E 20 43 4C 4F 53 45 "NOT EVEN CLOSE
0000B0: 2E 2E 2E 2E 22 0D 0A 35 30 36 20 47 4F 54 4F 20 ...."..506 GOTO
0000C0: 35 31 32 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 512..510 PRINT "
0000D0: 43 4C 4F 53 45 20 45 4E 4F 55 47 48 2E 22 0D 0A CLOSE ENOUGH."..
0000E0: 35 31 31 20 51 3D 51 2B 31 0D 0A 35 31 32 20 50 511 Q=Q+1..512 P
0000F0: 52 49 4E 54 20 22 43 4F 52 52 45 43 54 20 41 4E RINT "CORRECT AN
000100: 53 57 45 52 20 49 53 20 22 3B 41 0D 0A 35 32 30 SWER IS ";A..520
000110: 20 50 52 49 4E 54 0D 0A 35 33 30 20 52 45 54 55 PRINT..530 RETU
000120: 52 4E 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 RN..999 END.....
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4F 20 54 52 45 45 53 2C 22 0D 0A 32 37 30 20 50 O TREES,"..270 P
000010: 52 49 4E 54 20 22 54 48 49 43 4B 45 52 20 54 4F RINT "THICKER TO
000020: 50 20 53 4F 49 4C 2C 20 45 54 43 2E 29 22 0D 0A P SOIL, ETC.)"..
000030: 32 38 30 20 58 3D 31 0D 0A 32 39 39 20 47 4F 54 280 X=1..299 GOT
000040: 4F 20 32 30 30 0D 0A 33 30 30 20 44 3D 49 4E 54 O 200..300 D=INT
000050: 28 44 2D 48 29 0D 0A 33 31 30 20 41 3D 49 4E 54 (D-H)..310 A=INT
000060: 28 41 2B 28 48 2A 57 29 29 0D 0A 33 32 30 20 50 (A+(H*W))..320 P
000070: 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 52 RINT "HOW MANY R
000080: 41 4C 4C 4F 44 53 20 57 49 4C 4C 20 59 4F 55 20 ALLODS WILL YOU
000090: 44 49 53 54 52 49 42 55 54 45 20 41 4D 4F 4E 47 DISTRIBUTE AMONG
0000A0: 20 59 4F 55 52 20 43 4F 55 4E 54 52 59 4D 45 4E YOUR COUNTRYMEN
0000B0: 22 3B 0D 0A 33 34 30 20 49 4E 50 55 54 20 49 0D ";..340 INPUT I.
0000C0: 0A 33 34 32 20 49 46 20 49 3C 30 20 54 48 45 4E .342 IF I<0 THEN
0000D0: 20 33 32 30 0D 0A 33 35 30 20 49 46 20 49 3C 41 320..350 IF I<A
0000E0: 20 54 48 45 4E 20 34 30 30 0D 0A 33 36 30 20 49 THEN 400..360 I
0000F0: 46 20 49 3D 41 20 54 48 45 4E 20 33 38 30 0D 0A F I=A THEN 380..
000100: 33 37 30 20 50 52 49 4E 54 20 22 20 20 20 54 48 370 PRINT " TH
000110: 49 4E 4B 20 41 47 41 49 4E 2E 20 59 4F 55 27 56 INK AGAIN. YOU'V
000120: 45 20 4F 4E 4C 59 22 3B 41 3B 22 20 52 41 4C 4C E ONLY";A;" RALL
000130: 4F 44 53 20 49 4E 20 54 48 45 20 54 52 45 41 53 ODS IN THE TREAS
000140: 55 52 59 22 0D 0A 33 37 35 20 47 4F 54 4F 20 33 URY"..375 GOTO 3
000150: 32 30 0D 0A 33 38 30 20 4A 3D 30 0D 0A 33 39 30 20..380 J=0..390
000160: 20 4B 3D 30 0D 0A 33 39 35 20 41 3D 30 0D 0A 33 K=0..395 A=0..3
000170: 39 39 20 47 4F 54 4F 20 31 30 30 30 0D 0A 34 30 99 GOTO 1000..40
000180: 30 20 41 3D 49 4E 54 28 41 2D 49 29 0D 0A 34 31 0 A=INT(A-I)..41
000190: 30 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 0 PRINT "HOW MAN
0001A0: 59 20 53 51 55 41 52 45 20 4D 49 4C 45 53 20 44 Y SQUARE MILES D
0001B0: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 4C O YOU WISH TO PL
0001C0: 41 4E 54 22 3B 0D 0A 34 32 30 20 49 4E 50 55 54 ANT";..420 INPUT
0001D0: 20 4A 0D 0A 34 32 31 20 49 46 20 4A 3C 30 20 54 J..421 IF J<0 T
0001E0: 48 45 4E 20 34 31 30 0D 0A 34 32 32 20 49 46 20 HEN 410..422 IF
0001F0: 4A 3C 3D 42 2A 32 20 54 48 45 4E 20 34 32 36 0D J<=B*2 THEN 426.
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 1 PRINT TAB(34);
000010: 22 4B 49 4E 47 22 0D 0A 32 20 50 52 49 4E 54 20 "KING"..2 PRINT
000020: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
000030: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
000040: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
000050: 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 52 SEY"..3 PRINT:PR
000060: 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 52 49 INT:PRINT..4 PRI
000070: 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 NT "DO YOU WANT
000080: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A INSTRUCTIONS";..
000090: 35 20 49 4E 50 55 54 20 5A 24 0D 0A 36 20 4E 35 5 INPUT Z$..6 N5
0000A0: 3D 38 0D 0A 31 30 20 49 46 20 4C 45 46 54 24 28 =8..10 IF LEFT$(
0000B0: 5A 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E 20 34 Z$,1)="N" THEN 4
0000C0: 37 0D 0A 31 31 20 49 46 20 5A 24 3D 22 41 47 41 7..11 IF Z$="AGA
0000D0: 49 4E 22 20 54 48 45 4E 20 31 39 36 30 0D 0A 31 IN" THEN 1960..1
0000E0: 32 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 2 PRINT:PRINT:PR
0000F0: 49 4E 54 0D 0A 32 30 20 50 52 49 4E 54 20 22 43 INT..20 PRINT "C
000100: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 21 20 ONGRATULATIONS!
000110: 59 4F 55 27 56 45 20 4A 55 53 54 20 42 45 45 4E YOU'VE JUST BEEN
000120: 20 45 4C 45 43 54 45 44 20 50 52 45 4D 49 45 52 ELECTED PREMIER
000130: 20 4F 46 20 53 45 54 41 54 53 22 0D 0A 32 32 20 OF SETATS"..22
000140: 50 52 49 4E 54 20 22 44 45 54 49 4E 55 2C 20 41 PRINT "DETINU, A
000150: 20 53 4D 41 4C 4C 20 43 4F 4D 4D 55 4E 49 53 54 SMALL COMMUNIST
000160: 20 49 53 4C 41 4E 44 20 33 30 20 42 59 20 37 30 ISLAND 30 BY 70
000170: 20 4D 49 4C 45 53 20 4C 4F 4E 47 2E 20 59 4F 55 MILES LONG. YOU
000180: 52 22 0D 0A 32 34 20 50 52 49 4E 54 20 22 4A 4F R"..24 PRINT "JO
000190: 42 20 49 53 20 54 4F 20 44 45 43 49 44 45 20 55 B IS TO DECIDE U
0001A0: 50 4F 4E 20 54 48 45 20 43 4F 4E 54 52 59 27 53 PON THE CONTRY'S
0001B0: 20 42 55 44 47 45 54 20 41 4E 44 20 44 49 53 54 BUDGET AND DIST
0001C0: 52 49 42 55 54 45 22 0D 0A 32 36 20 50 52 49 4E RIBUTE"..26 PRIN
0001D0: 54 20 22 4D 4F 4E 45 59 20 54 4F 20 59 4F 55 52 T "MONEY TO YOUR
0001E0: 20 43 4F 55 4E 54 52 59 4D 45 4E 20 46 52 4F 4D COUNTRYMEN FROM
0001F0: 20 54 48 45 20 43 4F 4D 4D 55 4E 41 4C 20 54 52 THE COMMUNAL TR
Size : 512 (Real : 512)
000000: 0A 34 32 33 20 50 52 49 4E 54 20 22 20 20 20 53 .423 PRINT " S
000010: 4F 52 52 59 2C 20 42 55 54 20 45 41 43 48 20 43 ORRY, BUT EACH C
000020: 4F 55 4E 54 52 59 4D 41 4E 20 43 41 4E 20 4F 4E OUNTRYMAN CAN ON
000030: 4C 59 20 50 4C 41 4E 54 20 32 20 53 51 2E 20 4D LY PLANT 2 SQ. M
000040: 49 4C 45 53 2E 22 0D 0A 34 32 34 20 47 4F 54 4F ILES."..424 GOTO
000050: 20 34 31 30 0D 0A 34 32 36 20 49 46 20 4A 3C 3D 410..426 IF J<=
000060: 44 2D 31 30 30 30 20 54 48 45 4E 20 34 33 30 0D D-1000 THEN 430.
000070: 0A 34 32 37 20 50 52 49 4E 54 20 22 20 20 20 53 .427 PRINT " S
000080: 4F 52 52 59 2C 20 42 55 54 20 59 4F 55 27 56 45 ORRY, BUT YOU'VE
000090: 20 4F 4E 4C 59 22 3B 44 2D 31 30 30 30 3B 22 53 ONLY";D-1000;"S
0000A0: 51 2E 20 4D 49 4C 45 53 20 4F 46 20 46 41 52 4D Q. MILES OF FARM
0000B0: 20 4C 41 4E 44 2E 22 0D 0A 34 32 38 20 47 4F 54 LAND."..428 GOT
0000C0: 4F 20 34 31 30 0D 0A 34 33 30 20 55 31 3D 49 4E O 410..430 U1=IN
0000D0: 54 28 4A 2A 56 39 29 0D 0A 34 33 35 20 49 46 20 T(J*V9)..435 IF
0000E0: 55 31 3C 41 20 54 48 45 4E 20 35 30 30 0D 0A 34 U1<A THEN 500..4
0000F0: 34 30 20 49 46 20 55 31 3D 41 20 54 48 45 4E 20 40 IF U1=A THEN
000100: 34 39 30 0D 0A 34 35 30 20 50 52 49 4E 54 20 22 490..450 PRINT "
000110: 20 20 20 54 48 49 4E 4B 20 41 47 41 49 4E 2E 20 THINK AGAIN.
000120: 59 4F 55 27 56 45 20 4F 4E 4C 59 22 3B 41 3B 22 YOU'VE ONLY";A;"
000130: 20 52 41 4C 4C 4F 44 53 20 4C 45 46 54 20 49 4E RALLODS LEFT IN
000140: 20 54 48 45 20 54 52 45 41 53 55 52 59 2E 22 0D THE TREASURY.".
000150: 0A 34 36 30 20 47 4F 54 4F 20 34 31 30 0D 0A 34 .460 GOTO 410..4
000160: 39 30 20 4B 3D 30 0D 0A 34 39 35 20 41 3D 30 0D 90 K=0..495 A=0.
000170: 0A 34 39 39 20 47 4F 54 4F 20 31 30 30 30 0D 0A .499 GOTO 1000..
000180: 35 30 30 20 41 3D 41 2D 55 31 0D 0A 35 31 30 20 500 A=A-U1..510
000190: 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 PRINT "HOW MANY
0001A0: 52 41 4C 4C 4F 44 53 20 44 4F 20 59 4F 55 20 57 RALLODS DO YOU W
0001B0: 49 53 48 20 54 4F 20 53 50 45 4E 44 20 4F 4E 20 ISH TO SPEND ON
0001C0: 50 4F 4C 4C 55 54 49 4F 4E 20 43 4F 4E 54 52 4F POLLUTION CONTRO
0001D0: 4C 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 4B L";..520 INPUT K
0001E0: 0D 0A 35 32 32 20 49 46 20 4B 3C 30 20 54 48 45 ..522 IF K<0 THE
0001F0: 4E 20 35 31 30 0D 0A 35 33 30 20 49 46 20 4B 3C N 510..530 IF K<
Size : 512 (Real : 512)
000000: 44 20 57 41 54 45 52 20 50 4F 4C 4C 55 54 49 4F D WATER POLLUTIO
000010: 4E 20 46 52 4F 4D 20 46 4F 52 45 49 47 4E 20 49 N FROM FOREIGN I
000020: 4E 44 55 53 54 52 59 2E 29 22 0D 0A 31 33 37 30 NDUSTRY.)"..1370
000030: 20 51 3D 49 4E 54 28 28 4A 2D 55 32 29 2A 28 57 Q=INT((J-U2)*(W
000040: 2F 32 29 29 0D 0A 31 33 38 30 20 50 52 49 4E 54 /2))..1380 PRINT
000050: 20 22 4D 41 4B 49 4E 47 22 3B 49 4E 54 28 51 29 "MAKING";INT(Q)
000060: 3B 22 52 41 4C 4C 4F 44 53 2E 22 0D 0A 31 33 39 ;"RALLODS."..139
000070: 30 20 41 3D 49 4E 54 28 41 2B 51 29 0D 0A 31 34 0 A=INT(A+Q)..14
000080: 30 30 20 56 31 3D 49 4E 54 28 28 28 42 2D 50 31 00 V1=INT(((B-P1
000090: 29 2A 32 32 29 2B 28 52 4E 44 28 31 29 2A 35 30 )*22)+(RND(1)*50
0000A0: 30 29 29 0D 0A 31 34 30 35 20 56 32 3D 49 4E 54 0))..1405 V2=INT
0000B0: 28 28 32 30 30 30 2D 44 29 2A 31 35 29 0D 0A 31 ((2000-D)*15)..1
0000C0: 34 31 30 20 50 52 49 4E 54 20 22 20 59 4F 55 20 410 PRINT " YOU
0000D0: 4D 41 44 45 22 3B 41 42 53 28 49 4E 54 28 56 31 MADE";ABS(INT(V1
0000E0: 2D 56 32 29 29 3B 22 52 41 4C 4C 4F 44 53 20 46 -V2));"RALLODS F
0000F0: 52 4F 4D 20 54 4F 55 52 49 53 54 20 54 52 41 44 ROM TOURIST TRAD
000100: 45 2E 22 0D 0A 31 34 32 30 20 49 46 20 56 32 3D E."..1420 IF V2=
000110: 30 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 34 32 0 THEN 1450..142
000120: 35 20 49 46 20 56 31 2D 56 32 3E 3D 56 33 20 54 5 IF V1-V2>=V3 T
000130: 48 45 4E 20 31 34 35 30 0D 0A 31 34 33 30 20 50 HEN 1450..1430 P
000140: 52 49 4E 54 20 22 20 20 20 44 45 43 52 45 41 53 RINT " DECREAS
000150: 45 20 42 45 43 41 55 53 45 20 22 3B 0D 0A 31 34 E BECAUSE ";..14
000160: 33 35 20 47 31 3D 31 30 2A 52 4E 44 28 31 29 0D 35 G1=10*RND(1).
000170: 0A 31 34 34 30 20 49 46 20 47 31 3C 3D 32 20 54 .1440 IF G1<=2 T
000180: 48 45 4E 20 31 34 36 30 0D 0A 31 34 34 32 20 49 HEN 1460..1442 I
000190: 46 20 47 31 3C 3D 34 20 54 48 45 4E 20 31 34 36 F G1<=4 THEN 146
0001A0: 35 0D 0A 31 34 34 34 20 49 46 20 47 31 3C 3D 36 5..1444 IF G1<=6
0001B0: 20 54 48 45 4E 20 31 34 37 30 0D 0A 31 34 34 36 THEN 1470..1446
0001C0: 20 49 46 20 47 31 3C 3D 38 20 54 48 45 4E 20 31 IF G1<=8 THEN 1
0001D0: 34 37 35 0D 0A 31 34 34 38 20 49 46 20 47 31 3C 475..1448 IF G1<
0001E0: 3D 31 30 20 54 48 45 4E 20 31 34 38 30 0D 0A 31 =10 THEN 1480..1
0001F0: 34 35 30 20 56 33 3D 49 4E 54 28 41 2B 56 33 29 450 V3=INT(A+V3)
Size : 512 (Real : 512)
000000: 3D 41 20 54 48 45 4E 20 31 30 30 30 0D 0A 35 34 =A THEN 1000..54
000010: 30 20 50 52 49 4E 54 20 22 20 20 20 54 48 49 4E 0 PRINT " THIN
000020: 4B 20 41 47 41 49 4E 2E 20 59 4F 55 20 4F 4E 4C K AGAIN. YOU ONL
000030: 59 20 48 41 56 45 20 22 3B 41 3B 22 20 52 41 4C Y HAVE ";A;" RAL
000040: 4C 4F 44 53 20 52 45 4D 41 49 4E 49 4E 47 2E 22 LODS REMAINING."
000050: 0D 0A 35 35 30 20 47 4F 54 4F 20 35 31 30 0D 0A ..550 GOTO 510..
000060: 36 30 30 20 49 46 20 48 3C 3E 30 20 54 48 45 4E 600 IF H<>0 THEN
000070: 20 31 30 30 32 0D 0A 36 30 32 20 49 46 20 49 3C 1002..602 IF I<
000080: 3E 30 20 54 48 45 4E 20 31 30 30 32 0D 0A 36 30 >0 THEN 1002..60
000090: 34 20 49 46 20 4A 3C 3E 30 20 54 48 45 4E 20 31 4 IF J<>0 THEN 1
0000A0: 30 30 32 0D 0A 36 30 36 20 49 46 20 4B 3C 3E 30 002..606 IF K<>0
0000B0: 20 54 48 45 4E 20 31 30 30 32 0D 0A 36 30 39 20 THEN 1002..609
0000C0: 50 52 49 4E 54 0D 0A 36 31 32 20 50 52 49 4E 54 PRINT..612 PRINT
0000D0: 20 22 47 4F 4F 44 42 59 45 2E 22 0D 0A 36 31 34 "GOODBYE."..614
0000E0: 20 50 52 49 4E 54 20 22 28 49 46 20 59 4F 55 20 PRINT "(IF YOU
0000F0: 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 WISH TO CONTINUE
000100: 20 54 48 49 53 20 47 41 4D 45 20 41 54 20 41 20 THIS GAME AT A
000110: 4C 41 54 45 52 20 44 41 54 45 2C 20 41 4E 53 57 LATER DATE, ANSW
000120: 45 52 22 0D 0A 36 31 36 20 50 52 49 4E 54 20 22 ER"..616 PRINT "
000130: 27 41 47 41 49 4E 27 20 57 48 45 4E 20 41 53 4B 'AGAIN' WHEN ASK
000140: 45 44 20 49 46 20 59 4F 55 20 57 41 4E 54 20 49 ED IF YOU WANT I
000150: 4E 53 54 52 55 43 54 49 4F 4E 53 20 41 54 20 54 NSTRUCTIONS AT T
000160: 48 45 20 53 54 41 52 54 22 0D 0A 36 31 37 20 50 HE START"..617 P
000170: 52 49 4E 54 20 22 4F 46 20 54 48 45 20 47 41 4D RINT "OF THE GAM
000180: 45 29 2E 22 0D 0A 36 31 38 20 53 54 4F 50 0D 0A E)."..618 STOP..
000190: 31 30 30 30 20 47 4F 54 4F 20 36 30 30 0D 0A 31 1000 GOTO 600..1
0001A0: 30 30 32 20 50 52 49 4E 54 0D 0A 31 30 30 33 20 002 PRINT..1003
0001B0: 50 52 49 4E 54 0D 0A 31 30 31 30 20 41 3D 49 4E PRINT..1010 A=IN
0001C0: 54 28 41 2D 4B 29 0D 0A 31 30 32 30 20 41 34 3D T(A-K)..1020 A4=
0001D0: 41 0D 0A 31 31 30 30 20 49 46 20 49 4E 54 28 49 A..1100 IF INT(I
0001E0: 2F 31 30 30 2D 42 29 3E 3D 30 20 54 48 45 4E 20 /100-B)>=0 THEN
0001F0: 31 31 32 30 0D 0A 31 31 30 35 20 49 46 20 49 2F 1120..1105 IF I/
Size : 512 (Real : 512)
000000: 0D 0A 31 34 35 31 20 41 3D 49 4E 54 28 41 2B 56 ..1451 A=INT(A+V
000010: 33 29 0D 0A 31 34 35 32 20 47 4F 54 4F 20 31 35 3)..1452 GOTO 15
000020: 30 30 0D 0A 31 34 36 30 20 50 52 49 4E 54 20 22 00..1460 PRINT "
000030: 46 49 53 48 20 50 4F 50 55 4C 41 54 49 4F 4E 20 FISH POPULATION
000040: 48 41 53 20 44 57 49 4E 44 4C 45 44 20 44 55 45 HAS DWINDLED DUE
000050: 20 54 4F 20 57 41 54 45 52 20 50 4F 4C 4C 55 54 TO WATER POLLUT
000060: 49 4F 4E 2E 22 0D 0A 31 34 36 32 20 47 4F 54 4F ION."..1462 GOTO
000070: 20 31 34 35 30 0D 0A 31 34 36 35 20 50 52 49 4E 1450..1465 PRIN
000080: 54 20 22 41 49 52 20 50 4F 4C 4C 55 54 49 4F 4E T "AIR POLLUTION
000090: 20 49 53 20 4B 49 4C 4C 49 4E 47 20 47 41 4D 45 IS KILLING GAME
0000A0: 20 42 49 52 44 20 50 4F 50 55 4C 41 54 49 4F 4E BIRD POPULATION
0000B0: 2E 22 0D 0A 31 34 36 37 20 47 4F 54 4F 20 31 34 ."..1467 GOTO 14
0000C0: 35 30 0D 0A 31 34 37 30 20 50 52 49 4E 54 20 22 50..1470 PRINT "
0000D0: 4D 49 4E 45 52 41 4C 20 42 41 54 48 53 20 41 52 MINERAL BATHS AR
0000E0: 45 20 42 45 49 4E 47 20 52 55 49 4E 45 44 20 42 E BEING RUINED B
0000F0: 59 20 57 41 54 45 52 20 50 4F 4C 4C 55 54 49 4F Y WATER POLLUTIO
000100: 4E 2E 22 0D 0A 31 34 37 32 20 47 4F 54 4F 20 31 N."..1472 GOTO 1
000110: 34 35 30 0D 0A 31 34 37 35 20 50 52 49 4E 54 20 450..1475 PRINT
000120: 22 55 4E 50 4C 45 41 53 41 4E 54 20 53 4D 4F 47 "UNPLEASANT SMOG
000130: 20 49 53 20 44 49 53 43 4F 55 52 41 47 49 4E 47 IS DISCOURAGING
000140: 20 53 55 4E 20 42 41 54 48 45 52 53 2E 22 0D 0A SUN BATHERS."..
000150: 31 34 37 37 20 47 4F 54 4F 20 31 34 35 30 0D 0A 1477 GOTO 1450..
000160: 31 34 38 30 20 50 52 49 4E 54 20 22 48 4F 54 45 1480 PRINT "HOTE
000170: 4C 53 20 41 52 45 20 4C 4F 4F 4B 49 4E 47 20 53 LS ARE LOOKING S
000180: 48 41 42 42 59 20 44 55 45 20 54 4F 20 53 4D 4F HABBY DUE TO SMO
000190: 47 20 47 52 49 54 2E 22 0D 0A 31 34 38 32 20 47 G GRIT."..1482 G
0001A0: 4F 54 4F 20 31 34 35 30 0D 0A 31 35 30 30 20 49 OTO 1450..1500 I
0001B0: 46 20 42 35 3E 32 30 30 20 54 48 45 4E 20 31 36 F B5>200 THEN 16
0001C0: 30 30 0D 0A 31 35 30 35 20 49 46 20 42 3C 33 34 00..1505 IF B<34
0001D0: 33 20 54 48 45 4E 20 31 37 30 30 0D 0A 31 35 31 3 THEN 1700..151
0001E0: 30 20 49 46 20 28 41 34 2F 31 30 30 29 3E 35 20 0 IF (A4/100)>5
0001F0: 54 48 45 4E 20 31 38 30 30 0D 0A 31 35 31 35 20 THEN 1800..1515
Size : 512 (Real : 512)
000000: 31 30 30 3C 35 30 20 54 48 45 4E 20 31 37 30 30 100<50 THEN 1700
000010: 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 49 4E 54 ..1110 PRINT INT
000020: 28 42 2D 28 49 2F 31 30 30 29 29 3B 22 43 4F 55 (B-(I/100));"COU
000030: 4E 54 52 59 4D 45 4E 20 44 49 45 44 20 4F 46 20 NTRYMEN DIED OF
000040: 53 54 41 52 56 41 54 49 4F 4E 22 0D 0A 31 31 32 STARVATION"..112
000050: 30 20 46 31 3D 49 4E 54 28 52 4E 44 28 31 29 2A 0 F1=INT(RND(1)*
000060: 28 32 30 30 30 2D 44 29 29 0D 0A 31 31 32 32 20 (2000-D))..1122
000070: 49 46 20 4B 3C 32 35 20 54 48 45 4E 20 31 31 33 IF K<25 THEN 113
000080: 30 0D 0A 31 31 32 35 20 46 31 3D 49 4E 54 28 46 0..1125 F1=INT(F
000090: 31 2F 28 4B 2F 32 35 29 29 0D 0A 31 31 33 30 20 1/(K/25))..1130
0000A0: 49 46 20 46 31 3C 3D 30 20 54 48 45 4E 20 31 31 IF F1<=0 THEN 11
0000B0: 35 30 0D 0A 31 31 34 30 20 50 52 49 4E 54 20 46 50..1140 PRINT F
0000C0: 31 3B 22 43 4F 55 4E 54 52 59 4D 45 4E 20 44 49 1;"COUNTRYMEN DI
0000D0: 45 44 20 4F 46 20 43 41 52 42 4F 4E 2D 4D 4F 4E ED OF CARBON-MON
0000E0: 4F 58 49 44 45 20 41 4E 44 20 44 55 53 54 20 49 OXIDE AND DUST I
0000F0: 4E 48 41 4C 41 54 49 4F 4E 22 0D 0A 31 31 35 30 NHALATION"..1150
000100: 20 49 46 20 49 4E 54 28 28 49 2F 31 30 30 29 2D IF INT((I/100)-
000110: 42 29 3C 30 20 54 48 45 4E 20 31 31 37 30 0D 0A B)<0 THEN 1170..
000120: 31 31 36 30 20 49 46 20 46 31 3E 30 20 54 48 45 1160 IF F1>0 THE
000130: 4E 20 31 31 38 30 0D 0A 31 31 36 35 20 47 4F 54 N 1180..1165 GOT
000140: 4F 20 31 32 30 30 0D 0A 31 31 37 30 20 50 52 49 O 1200..1170 PRI
000150: 4E 54 20 22 20 20 20 59 4F 55 20 57 45 52 45 20 NT " YOU WERE
000160: 46 4F 52 43 45 44 20 54 4F 20 53 50 45 4E 44 22 FORCED TO SPEND"
000170: 3B 49 4E 54 28 28 46 31 2B 28 42 2D 28 49 2F 31 ;INT((F1+(B-(I/1
000180: 30 30 29 29 29 2A 39 29 3B 0D 0A 31 31 37 32 20 00)))*9);..1172
000190: 50 52 49 4E 54 20 22 52 41 4C 4C 4F 44 53 20 4F PRINT "RALLODS O
0001A0: 4E 20 46 55 4E 45 52 41 4C 20 45 58 50 45 4E 53 N FUNERAL EXPENS
0001B0: 45 53 22 0D 0A 31 31 37 34 20 42 35 3D 49 4E 54 ES"..1174 B5=INT
0001C0: 28 46 31 2B 28 42 2D 28 49 2F 31 30 30 29 29 29 (F1+(B-(I/100)))
0001D0: 0D 0A 31 31 37 35 20 41 3D 49 4E 54 28 41 2D 28 ..1175 A=INT(A-(
0001E0: 28 46 31 2B 28 42 2D 28 49 2F 31 30 30 29 29 29 (F1+(B-(I/100)))
0001F0: 2A 39 29 29 0D 0A 31 31 37 36 20 47 4F 54 4F 20 *9))..1176 GOTO
Size : 512 (Real : 512)
000000: 49 46 20 43 3E 42 20 54 48 45 4E 20 31 35 35 30 IF C>B THEN 1550
000010: 0D 0A 31 35 32 30 20 49 46 20 4E 35 2D 31 3D 58 ..1520 IF N5-1=X
000020: 35 20 54 48 45 4E 20 31 39 30 30 0D 0A 31 35 34 5 THEN 1900..154
000030: 35 20 47 4F 54 4F 20 32 30 30 30 0D 0A 31 35 35 5 GOTO 2000..155
000040: 30 20 50 52 49 4E 54 0D 0A 31 35 35 32 20 50 52 0 PRINT..1552 PR
000050: 49 4E 54 0D 0A 31 35 36 30 20 50 52 49 4E 54 20 INT..1560 PRINT
000060: 22 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 46 "THE NUMBER OF F
000070: 4F 52 45 49 47 4E 20 57 4F 52 4B 45 52 53 20 48 OREIGN WORKERS H
000080: 41 53 20 45 58 43 45 45 44 45 44 20 54 48 45 20 AS EXCEEDED THE
000090: 4E 55 4D 42 45 52 22 0D 0A 31 35 36 32 20 50 52 NUMBER"..1562 PR
0000A0: 49 4E 54 20 22 4F 46 20 43 4F 55 4E 54 52 59 4D INT "OF COUNTRYM
0000B0: 45 4E 2E 20 41 53 20 41 20 4D 49 4E 4F 52 49 54 EN. AS A MINORIT
0000C0: 59 2C 20 54 48 45 59 20 48 41 56 45 20 52 45 56 Y, THEY HAVE REV
0000D0: 4F 4C 54 45 44 20 41 4E 44 22 0D 0A 31 35 36 34 OLTED AND"..1564
0000E0: 20 50 52 49 4E 54 20 22 54 41 4B 45 4E 20 4F 56 PRINT "TAKEN OV
0000F0: 45 52 20 54 48 45 20 43 4F 55 4E 54 52 59 2E 22 ER THE COUNTRY."
000100: 0D 0A 31 35 37 30 20 49 46 20 52 4E 44 28 31 29 ..1570 IF RND(1)
000110: 3C 3D 2E 35 20 54 48 45 4E 20 31 35 38 30 0D 0A <=.5 THEN 1580..
000120: 31 35 37 34 20 50 52 49 4E 54 20 22 59 4F 55 20 1574 PRINT "YOU
000130: 48 41 56 45 20 42 45 45 4E 20 54 48 52 4F 57 4E HAVE BEEN THROWN
000140: 20 4F 55 54 20 4F 46 20 4F 46 46 49 43 45 20 41 OUT OF OFFICE A
000150: 4E 44 20 41 52 45 20 4E 4F 57 22 0D 0A 31 35 37 ND ARE NOW"..157
000160: 36 20 50 52 49 4E 54 20 22 52 45 53 49 44 49 4E 6 PRINT "RESIDIN
000170: 47 20 49 4E 20 50 52 49 53 4F 4E 2E 22 0D 0A 31 G IN PRISON."..1
000180: 35 37 38 20 47 4F 54 4F 20 31 35 39 30 0D 0A 31 578 GOTO 1590..1
000190: 35 38 30 20 50 52 49 4E 54 20 22 59 4F 55 20 48 580 PRINT "YOU H
0001A0: 41 56 45 20 42 45 45 4E 20 41 53 53 41 53 53 49 AVE BEEN ASSASSI
0001B0: 4E 41 54 45 44 2E 22 0D 0A 31 35 39 30 20 50 52 NATED."..1590 PR
0001C0: 49 4E 54 0D 0A 31 35 39 32 20 50 52 49 4E 54 0D INT..1592 PRINT.
0001D0: 0A 31 35 39 36 20 53 54 4F 50 0D 0A 31 36 30 30 .1596 STOP..1600
0001E0: 20 50 52 49 4E 54 0D 0A 31 36 30 32 20 50 52 49 PRINT..1602 PRI
0001F0: 4E 54 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 42 NT..1610 PRINT B
Size : 512 (Real : 512)
000000: 31 31 38 35 0D 0A 31 31 38 30 20 50 52 49 4E 54 1185..1180 PRINT
000010: 20 22 20 20 20 59 4F 55 20 57 45 52 45 20 46 4F " YOU WERE FO
000020: 52 43 45 44 20 54 4F 20 53 50 45 4E 44 20 22 3B RCED TO SPEND ";
000030: 49 4E 54 28 46 31 2A 39 29 3B 22 52 41 4C 4C 4F INT(F1*9);"RALLO
000040: 44 53 20 4F 4E 20 22 3B 0D 0A 31 31 38 31 20 50 DS ON ";..1181 P
000050: 52 49 4E 54 20 22 46 55 4E 45 52 41 4C 20 45 58 RINT "FUNERAL EX
000060: 50 45 4E 53 45 53 2E 22 0D 0A 31 31 38 32 20 42 PENSES."..1182 B
000070: 35 3D 46 31 0D 0A 31 31 38 33 20 41 3D 49 4E 54 5=F1..1183 A=INT
000080: 28 41 2D 28 46 31 2A 39 29 29 0D 0A 31 31 38 35 (A-(F1*9))..1185
000090: 20 49 46 20 41 3E 3D 30 20 54 48 45 4E 20 31 31 IF A>=0 THEN 11
0000A0: 39 34 0D 0A 31 31 38 37 20 50 52 49 4E 54 20 22 94..1187 PRINT "
0000B0: 20 20 20 49 4E 53 55 46 46 49 43 49 45 4E 54 20 INSUFFICIENT
0000C0: 52 45 53 45 52 56 45 53 20 54 4F 20 43 4F 56 45 RESERVES TO COVE
0000D0: 52 20 43 4F 53 54 20 2D 20 4C 41 4E 44 20 57 41 R COST - LAND WA
0000E0: 53 20 53 4F 4C 44 22 0D 0A 31 31 38 39 20 44 3D S SOLD"..1189 D=
0000F0: 49 4E 54 28 44 2B 28 41 2F 57 29 29 0D 0A 31 31 INT(D+(A/W))..11
000100: 39 30 20 41 3D 30 0D 0A 31 31 39 34 20 42 3D 49 90 A=0..1194 B=I
000110: 4E 54 28 42 2D 42 35 29 0D 0A 31 32 30 30 20 49 NT(B-B5)..1200 I
000120: 46 20 48 3D 30 20 54 48 45 4E 20 31 32 35 30 0D F H=0 THEN 1250.
000130: 0A 31 32 32 30 20 43 31 3D 49 4E 54 28 48 2B 28 .1220 C1=INT(H+(
000140: 52 4E 44 28 31 29 2A 31 30 29 2D 28 52 4E 44 28 RND(1)*10)-(RND(
000150: 31 29 2A 32 30 29 29 0D 0A 31 32 32 34 20 49 46 1)*20))..1224 IF
000160: 20 43 3E 30 20 54 48 45 4E 20 31 32 33 30 0D 0A C>0 THEN 1230..
000170: 31 32 32 36 20 43 31 3D 43 31 2B 32 30 0D 0A 31 1226 C1=C1+20..1
000180: 32 33 30 20 50 52 49 4E 54 20 43 31 3B 22 57 4F 230 PRINT C1;"WO
000190: 52 4B 45 52 53 20 43 41 4D 45 20 54 4F 20 54 48 RKERS CAME TO TH
0001A0: 45 20 43 4F 55 4E 54 52 59 20 41 4E 44 22 3B 0D E COUNTRY AND";.
0001B0: 0A 31 32 35 30 20 50 31 3D 49 4E 54 28 28 28 49 .1250 P1=INT(((I
0001C0: 2F 31 30 30 2D 42 29 2F 31 30 29 2B 28 4B 2F 32 /100-B)/10)+(K/2
0001D0: 35 29 2D 28 28 32 30 30 30 2D 44 29 2F 35 30 29 5)-((2000-D)/50)
0001E0: 2D 28 46 31 2F 32 29 29 0D 0A 31 32 35 35 20 50 -(F1/2))..1255 P
0001F0: 52 49 4E 54 20 41 42 53 28 50 31 29 3B 22 43 4F RINT ABS(P1);"CO
Size : 512 (Real : 512)
000000: 35 3B 22 43 4F 55 4E 54 52 59 4D 45 4E 20 44 49 5;"COUNTRYMEN DI
000010: 45 44 20 49 4E 20 4F 4E 45 20 59 45 41 52 21 21 ED IN ONE YEAR!!
000020: 21 21 21 22 0D 0A 31 36 31 35 20 50 52 49 4E 54 !!!"..1615 PRINT
000030: 20 22 44 55 45 20 54 4F 20 54 48 49 53 20 45 58 "DUE TO THIS EX
000040: 54 52 45 4D 45 20 4D 49 53 4D 41 4E 41 47 45 4D TREME MISMANAGEM
000050: 45 4E 54 2C 20 59 4F 55 20 48 41 56 45 20 4E 4F ENT, YOU HAVE NO
000060: 54 20 4F 4E 4C 59 22 0D 0A 31 36 32 30 20 50 52 T ONLY"..1620 PR
000070: 49 4E 54 20 22 42 45 45 4E 20 49 4D 50 45 41 43 INT "BEEN IMPEAC
000080: 48 45 44 20 41 4E 44 20 54 48 52 4F 57 4E 20 4F HED AND THROWN O
000090: 55 54 20 4F 46 20 4F 46 46 49 43 45 2C 20 42 55 UT OF OFFICE, BU
0000A0: 54 20 59 4F 55 22 0D 0A 31 36 32 32 20 4D 36 3D T YOU"..1622 M6=
0000B0: 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 29 0D 0A INT(RND(1)*10)..
0000C0: 31 36 32 35 20 49 46 20 4D 36 3C 3D 33 20 54 48 1625 IF M6<=3 TH
0000D0: 45 4E 20 31 36 37 30 0D 0A 31 36 33 30 20 49 46 EN 1670..1630 IF
0000E0: 20 4D 36 3C 3D 36 20 54 48 45 4E 20 31 36 38 30 M6<=6 THEN 1680
0000F0: 0D 0A 31 36 33 35 20 49 46 20 4D 36 3C 3D 31 30 ..1635 IF M6<=10
000100: 20 54 48 45 4E 20 31 36 39 30 0D 0A 31 36 37 30 THEN 1690..1670
000110: 20 50 52 49 4E 54 20 22 41 4C 53 4F 20 48 41 44 PRINT "ALSO HAD
000120: 20 59 4F 55 52 20 4C 45 46 54 20 45 59 45 20 47 YOUR LEFT EYE G
000130: 4F 55 47 45 44 20 4F 55 54 21 22 0D 0A 31 36 37 OUGED OUT!"..167
000140: 32 20 47 4F 54 4F 20 31 35 39 30 0D 0A 31 36 38 2 GOTO 1590..168
000150: 30 20 50 52 49 4E 54 20 22 48 41 56 45 20 41 4C 0 PRINT "HAVE AL
000160: 53 4F 20 47 41 49 4E 45 44 20 41 20 56 45 52 59 SO GAINED A VERY
000170: 20 42 41 44 20 52 45 50 55 54 41 54 49 4F 4E 2E BAD REPUTATION.
000180: 22 0D 0A 31 36 38 32 20 47 4F 54 4F 20 31 35 39 "..1682 GOTO 159
000190: 30 0D 0A 31 36 39 30 20 50 52 49 4E 54 20 22 48 0..1690 PRINT "H
0001A0: 41 56 45 20 41 4C 53 4F 20 42 45 45 4E 20 44 45 AVE ALSO BEEN DE
0001B0: 43 4C 41 52 45 44 20 4E 41 54 49 4F 4E 41 4C 20 CLARED NATIONAL
0001C0: 46 49 4E 4B 2E 22 0D 0A 31 36 39 32 20 47 4F 54 FINK."..1692 GOT
0001D0: 4F 20 31 35 39 30 0D 0A 31 37 30 30 20 50 52 49 O 1590..1700 PRI
0001E0: 4E 54 0D 0A 31 37 30 32 20 50 52 49 4E 54 0D 0A NT..1702 PRINT..
0001F0: 31 37 31 30 20 50 52 49 4E 54 20 22 4F 56 45 52 1710 PRINT "OVER
Size : 512 (Real : 512)
000000: 55 4E 54 52 59 4D 45 4E 20 22 3B 0D 0A 31 32 36 UNTRYMEN ";..126
000010: 30 20 49 46 20 50 31 3C 30 20 54 48 45 4E 20 31 0 IF P1<0 THEN 1
000020: 32 37 35 0D 0A 31 32 36 35 20 50 52 49 4E 54 20 275..1265 PRINT
000030: 22 43 41 4D 45 20 54 4F 22 3B 0D 0A 31 32 37 30 "CAME TO";..1270
000040: 20 47 4F 54 4F 20 31 32 38 30 0D 0A 31 32 37 35 GOTO 1280..1275
000050: 20 50 52 49 4E 54 20 22 4C 45 46 54 22 3B 0D 0A PRINT "LEFT";..
000060: 31 32 38 30 20 50 52 49 4E 54 20 22 20 54 48 45 1280 PRINT " THE
000070: 20 49 53 4C 41 4E 44 2E 22 0D 0A 31 32 39 30 20 ISLAND."..1290
000080: 42 3D 49 4E 54 28 42 2B 50 31 29 0D 0A 31 32 39 B=INT(B+P1)..129
000090: 32 20 43 3D 49 4E 54 28 43 2B 43 31 29 0D 0A 31 2 C=INT(C+C1)..1
0000A0: 33 30 35 20 55 32 3D 49 4E 54 28 28 28 32 30 30 305 U2=INT(((200
0000B0: 30 2D 44 29 2A 28 28 52 4E 44 28 31 29 2B 31 2E 0-D)*((RND(1)+1.
0000C0: 35 29 2F 32 29 29 29 0D 0A 31 33 31 30 20 49 46 5)/2)))..1310 IF
0000D0: 20 43 3D 30 20 54 48 45 4E 20 31 33 32 34 0D 0A C=0 THEN 1324..
0000E0: 31 33 32 30 20 50 52 49 4E 54 20 22 4F 46 20 22 1320 PRINT "OF "
0000F0: 3B 49 4E 54 28 4A 29 3B 22 53 51 2E 20 4D 49 4C ;INT(J);"SQ. MIL
000100: 45 53 20 50 4C 41 4E 54 45 44 2C 22 3B 0D 0A 31 ES PLANTED,";..1
000110: 33 32 34 20 49 46 20 4A 3E 55 32 20 54 48 45 4E 324 IF J>U2 THEN
000120: 20 31 33 33 30 0D 0A 31 33 32 36 20 55 32 3D 4A 1330..1326 U2=J
000130: 0D 0A 31 33 33 30 20 50 52 49 4E 54 20 22 20 59 ..1330 PRINT " Y
000140: 4F 55 20 48 41 52 56 45 53 54 45 44 20 22 3B 49 OU HARVESTED ";I
000150: 4E 54 28 4A 2D 55 32 29 3B 22 53 51 2E 20 4D 49 NT(J-U2);"SQ. MI
000160: 4C 45 53 20 4F 46 20 43 52 4F 50 53 2E 22 0D 0A LES OF CROPS."..
000170: 31 33 34 30 20 49 46 20 55 32 3D 30 20 54 48 45 1340 IF U2=0 THE
000180: 4E 20 31 33 37 30 0D 0A 31 33 34 34 20 49 46 20 N 1370..1344 IF
000190: 54 31 3E 3D 32 20 54 48 45 4E 20 31 33 37 30 0D T1>=2 THEN 1370.
0001A0: 0A 31 33 35 30 20 50 52 49 4E 54 20 22 20 20 20 .1350 PRINT "
0001B0: 28 44 55 45 20 54 4F 20 22 3B 0D 0A 31 33 35 35 (DUE TO ";..1355
0001C0: 20 49 46 20 54 31 3D 30 20 54 48 45 4E 20 31 33 IF T1=0 THEN 13
0001D0: 36 35 0D 0A 31 33 36 30 20 50 52 49 4E 54 20 22 65..1360 PRINT "
0001E0: 49 4E 43 52 45 41 53 45 44 20 22 3B 0D 0A 31 33 INCREASED ";..13
0001F0: 36 35 20 50 52 49 4E 54 20 22 41 49 52 20 41 4E 65 PRINT "AIR AN
Size : 512 (Real : 512)
000000: 20 4F 4E 45 20 54 48 49 52 44 20 4F 46 20 54 48 ONE THIRD OF TH
000010: 45 20 50 4F 50 55 4C 54 41 54 49 4F 4E 20 48 41 E POPULTATION HA
000020: 53 20 44 49 45 44 20 53 49 4E 43 45 20 59 4F 55 S DIED SINCE YOU
000030: 22 0D 0A 31 37 31 35 20 50 52 49 4E 54 20 22 57 "..1715 PRINT "W
000040: 45 52 45 20 45 4C 45 43 54 45 44 20 54 4F 20 4F ERE ELECTED TO O
000050: 46 46 49 43 45 2E 20 54 48 45 20 50 45 4F 50 4C FFICE. THE PEOPL
000060: 45 20 28 52 45 4D 41 49 4E 49 4E 47 29 22 0D 0A E (REMAINING)"..
000070: 31 37 32 30 20 50 52 49 4E 54 20 22 48 41 54 45 1720 PRINT "HATE
000080: 20 59 4F 55 52 20 47 55 54 53 2E 22 0D 0A 31 37 YOUR GUTS."..17
000090: 33 30 20 47 4F 54 4F 20 31 35 37 30 0D 0A 31 38 30 GOTO 1570..18
0000A0: 30 30 20 49 46 20 42 35 2D 46 31 3C 32 20 54 48 00 IF B5-F1<2 TH
0000B0: 45 4E 20 31 35 31 35 0D 0A 31 38 30 37 20 50 52 EN 1515..1807 PR
0000C0: 49 4E 54 0D 0A 31 38 31 35 20 50 52 49 4E 54 20 INT..1815 PRINT
0000D0: 22 4D 4F 4E 45 59 20 57 41 53 20 4C 45 46 54 20 "MONEY WAS LEFT
0000E0: 4F 56 45 52 20 49 4E 20 54 48 45 20 54 52 45 41 OVER IN THE TREA
0000F0: 53 55 52 59 20 57 48 49 43 48 20 59 4F 55 20 44 SURY WHICH YOU D
000100: 49 44 22 0D 0A 31 38 32 30 20 50 52 49 4E 54 20 ID"..1820 PRINT
000110: 22 4E 4F 54 20 53 50 45 4E 44 2E 20 41 53 20 41 "NOT SPEND. AS A
000120: 20 52 45 53 55 4C 54 2C 20 53 4F 4D 45 20 4F 46 RESULT, SOME OF
000130: 20 59 4F 55 52 20 43 4F 55 4E 54 52 59 4D 45 4E YOUR COUNTRYMEN
000140: 20 44 49 45 44 22 0D 0A 31 38 32 35 20 50 52 49 DIED"..1825 PRI
000150: 4E 54 20 22 4F 46 20 53 54 41 52 56 41 54 49 4F NT "OF STARVATIO
000160: 4E 2E 20 54 48 45 20 50 55 42 4C 49 43 20 49 53 N. THE PUBLIC IS
000170: 20 45 4E 52 41 47 45 44 20 41 4E 44 20 59 4F 55 ENRAGED AND YOU
000180: 20 48 41 56 45 22 0D 0A 31 38 33 30 20 50 52 49 HAVE"..1830 PRI
000190: 4E 54 20 22 42 45 45 4E 20 46 4F 52 43 45 44 20 NT "BEEN FORCED
0001A0: 54 4F 20 45 49 54 48 45 52 20 52 45 53 49 47 4E TO EITHER RESIGN
0001B0: 20 4F 52 20 43 4F 4D 4D 49 54 20 53 55 49 43 49 OR COMMIT SUICI
0001C0: 44 45 2E 22 0D 0A 31 38 33 35 20 50 52 49 4E 54 DE."..1835 PRINT
0001D0: 20 22 54 48 45 20 43 48 4F 49 43 45 20 49 53 20 "THE CHOICE IS
0001E0: 59 4F 55 52 53 2E 22 0D 0A 31 38 34 30 20 50 52 YOURS."..1840 PR
0001F0: 49 4E 54 20 22 49 46 20 59 4F 55 20 43 48 4F 4F INT "IF YOU CHOO
Size : 512 (Real : 512)
000000: 31 33 35 20 49 46 20 5A 24 3D 22 59 45 53 22 20 135 IF Z$="YES"
000010: 54 48 45 4E 20 31 31 35 30 0D 0A 31 34 30 20 50 THEN 1150..140 P
000020: 52 49 4E 54 0D 0A 31 34 35 20 50 52 49 4E 54 20 RINT..145 PRINT
000030: 22 4C 55 4E 41 52 20 4C 41 4E 44 49 4E 47 20 53 "LUNAR LANDING S
000040: 49 4D 55 4C 41 54 49 4F 4E 22 0D 0A 31 35 30 20 IMULATION"..150
000050: 50 52 49 4E 54 0D 0A 31 35 35 20 50 52 49 4E 54 PRINT..155 PRINT
000060: 20 22 48 41 56 45 20 59 4F 55 20 46 4C 4F 57 4E "HAVE YOU FLOWN
000070: 20 41 4E 20 41 50 4F 4C 4C 4F 2F 4C 45 4D 20 4D AN APOLLO/LEM M
000080: 49 53 53 49 4F 4E 20 42 45 46 4F 52 45 22 3B 0D ISSION BEFORE";.
000090: 0A 31 36 30 20 50 52 49 4E 54 20 22 20 28 59 45 .160 PRINT " (YE
0000A0: 53 20 4F 52 20 4E 4F 29 22 3B 0D 0A 31 36 35 20 S OR NO)";..165
0000B0: 49 4E 50 55 54 20 51 24 0D 0A 31 37 30 20 49 46 INPUT Q$..170 IF
0000C0: 20 51 24 3D 22 59 45 53 22 20 54 48 45 4E 20 31 Q$="YES" THEN 1
0000D0: 39 30 0D 0A 31 37 35 20 49 46 20 51 24 3D 22 4E 90..175 IF Q$="N
0000E0: 4F 22 20 54 48 45 4E 20 32 30 35 0D 0A 31 38 30 O" THEN 205..180
0000F0: 20 50 52 49 4E 54 20 22 4A 55 53 54 20 41 4E 53 PRINT "JUST ANS
000100: 57 45 52 20 54 48 45 20 51 55 45 53 54 49 4F 4E WER THE QUESTION
000110: 2C 20 50 4C 45 41 53 45 2C 20 22 3B 0D 0A 31 38 , PLEASE, ";..18
000120: 35 20 47 4F 54 4F 20 31 36 30 0D 0A 31 39 30 20 5 GOTO 160..190
000130: 50 52 49 4E 54 0D 0A 31 39 35 20 50 52 49 4E 54 PRINT..195 PRINT
000140: 20 22 49 4E 50 55 54 20 4D 45 41 53 55 52 45 4D "INPUT MEASUREM
000150: 45 4E 54 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 ENT OPTION NUMBE
000160: 52 22 3B 0D 0A 32 30 30 20 47 4F 54 4F 20 32 32 R";..200 GOTO 22
000170: 35 0D 0A 32 30 35 20 50 52 49 4E 54 0D 0A 32 31 5..205 PRINT..21
000180: 30 20 50 52 49 4E 54 20 22 57 48 49 43 48 20 53 0 PRINT "WHICH S
000190: 59 53 54 45 4D 20 4F 46 20 4D 45 41 53 55 52 45 YSTEM OF MEASURE
0001A0: 4D 45 4E 54 20 44 4F 20 59 4F 55 20 50 52 45 46 MENT DO YOU PREF
0001B0: 45 52 3F 22 0D 0A 32 31 35 20 50 52 49 4E 54 20 ER?"..215 PRINT
0001C0: 22 20 31 3D 4D 45 54 52 49 43 20 20 20 20 20 30 " 1=METRIC 0
0001D0: 3D 45 4E 47 4C 49 53 48 22 0D 0A 32 32 30 20 50 =ENGLISH"..220 P
0001E0: 52 49 4E 54 20 22 45 4E 54 45 52 20 54 48 45 20 RINT "ENTER THE
0001F0: 41 50 50 52 4F 50 52 49 41 54 45 20 4E 55 4D 42 APPROPRIATE NUMB
Size : 512 (Real : 512)
000000: 53 45 20 54 48 45 20 4C 41 54 54 45 52 2C 20 50 SE THE LATTER, P
000010: 4C 45 41 53 45 20 54 55 52 4E 20 4F 46 46 20 59 LEASE TURN OFF Y
000020: 4F 55 52 20 43 4F 4D 50 55 54 45 52 22 0D 0A 31 OUR COMPUTER"..1
000030: 38 34 35 20 50 52 49 4E 54 20 22 42 45 46 4F 52 845 PRINT "BEFOR
000040: 45 20 50 52 4F 43 45 45 44 49 4E 47 2E 22 0D 0A E PROCEEDING."..
000050: 31 38 35 30 20 47 4F 54 4F 20 31 35 39 30 0D 0A 1850 GOTO 1590..
000060: 31 39 30 30 20 50 52 49 4E 54 0D 0A 31 39 30 32 1900 PRINT..1902
000070: 20 50 52 49 4E 54 0D 0A 31 39 32 30 20 50 52 49 PRINT..1920 PRI
000080: 4E 54 20 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 NT "CONGRATULATI
000090: 4F 4E 53 21 21 21 21 21 21 21 21 21 21 21 21 21 ONS!!!!!!!!!!!!!
0000A0: 21 21 21 21 21 22 0D 0A 31 39 32 35 20 50 52 49 !!!!!"..1925 PRI
0000B0: 4E 54 20 22 59 4F 55 20 48 41 56 45 20 53 55 43 NT "YOU HAVE SUC
0000C0: 43 45 53 46 55 4C 4C 59 20 43 4F 4D 50 4C 45 54 CESFULLY COMPLET
0000D0: 45 44 20 59 4F 55 52 22 3B 4E 35 3B 22 59 45 41 ED YOUR";N5;"YEA
0000E0: 52 20 54 45 52 4D 22 0D 0A 31 39 33 30 20 50 52 R TERM"..1930 PR
0000F0: 49 4E 54 20 22 4F 46 20 4F 46 46 49 43 45 2E 20 INT "OF OFFICE.
000100: 59 4F 55 20 57 45 52 45 2C 20 4F 46 20 43 4F 55 YOU WERE, OF COU
000110: 52 53 45 2C 20 45 58 54 52 45 4D 45 4C 59 20 4C RSE, EXTREMELY L
000120: 55 43 4B 59 2C 20 42 55 54 22 0D 0A 31 39 33 35 UCKY, BUT"..1935
000130: 20 50 52 49 4E 54 20 22 4E 45 56 45 52 54 48 45 PRINT "NEVERTHE
000140: 4C 45 53 53 2C 20 49 54 27 53 20 51 55 49 54 45 LESS, IT'S QUITE
000150: 20 41 4E 20 41 43 48 49 45 56 45 4D 45 4E 54 2E AN ACHIEVEMENT.
000160: 20 47 4F 4F 44 42 59 45 20 41 4E 44 20 47 4F 4F GOODBYE AND GOO
000170: 44 22 0D 0A 31 39 34 30 20 50 52 49 4E 54 20 22 D"..1940 PRINT "
000180: 4C 55 43 4B 20 2D 20 59 4F 55 27 4C 4C 20 50 52 LUCK - YOU'LL PR
000190: 4F 42 41 42 4C 59 20 4E 45 45 44 20 49 54 20 49 OBABLY NEED IT I
0001A0: 46 20 59 4F 55 27 52 45 20 54 48 45 20 54 59 50 F YOU'RE THE TYP
0001B0: 45 20 54 48 41 54 22 0D 0A 31 39 34 35 20 50 52 E THAT"..1945 PR
0001C0: 49 4E 54 20 22 50 4C 41 59 53 20 54 48 49 53 20 INT "PLAYS THIS
0001D0: 47 41 4D 45 2E 22 0D 0A 31 39 35 30 20 47 4F 54 GAME."..1950 GOT
0001E0: 4F 20 31 35 39 30 0D 0A 31 39 36 30 20 50 52 49 O 1590..1960 PRI
0001F0: 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 59 45 41 NT "HOW MANY YEA
Size : 512 (Real : 512)
000000: 45 52 22 3B 0D 0A 32 32 35 20 49 4E 50 55 54 20 ER";..225 INPUT
000010: 4B 0D 0A 32 33 30 20 50 52 49 4E 54 0D 0A 32 33 K..230 PRINT..23
000020: 35 20 49 46 20 4B 3D 30 20 54 48 45 4E 20 32 38 5 IF K=0 THEN 28
000030: 30 0D 0A 32 34 30 20 49 46 20 4B 3D 31 20 54 48 0..240 IF K=1 TH
000040: 45 4E 20 32 35 30 0D 0A 32 34 35 20 47 4F 54 4F EN 250..245 GOTO
000050: 20 32 32 30 0D 0A 32 35 30 20 5A 3D 31 38 35 32 220..250 Z=1852
000060: 2E 38 0D 0A 32 35 35 20 4D 24 3D 22 4D 45 54 45 .8..255 M$="METE
000070: 52 53 22 0D 0A 32 36 30 20 47 33 3D 33 2E 36 0D RS"..260 G3=3.6.
000080: 0A 32 36 35 20 4E 24 3D 22 20 4B 49 4C 4F 4D 45 .265 N$=" KILOME
000090: 54 45 52 53 22 0D 0A 32 37 30 20 47 35 3D 31 30 TERS"..270 G5=10
0000A0: 30 30 0D 0A 32 37 35 20 47 4F 54 4F 20 33 30 35 00..275 GOTO 305
0000B0: 0D 0A 32 38 30 20 5A 3D 36 30 38 30 0D 0A 32 38 ..280 Z=6080..28
0000C0: 35 20 4D 24 3D 22 46 45 45 54 22 0D 0A 32 39 30 5 M$="FEET"..290
0000D0: 20 47 33 3D 2E 35 39 32 0D 0A 32 39 35 20 4E 24 G3=.592..295 N$
0000E0: 3D 22 4E 2E 4D 49 4C 45 53 22 0D 0A 33 30 30 20 ="N.MILES"..300
0000F0: 47 35 3D 5A 0D 0A 33 30 35 20 49 46 20 42 31 3D G5=Z..305 IF B1=
000100: 33 20 54 48 45 4E 20 36 37 30 0D 0A 33 31 30 20 3 THEN 670..310
000110: 49 46 20 51 24 3D 22 59 45 53 22 20 54 48 45 4E IF Q$="YES" THEN
000120: 20 34 38 35 0D 0A 33 31 35 20 50 52 49 4E 54 0D 485..315 PRINT.
000130: 0A 33 32 30 20 50 52 49 4E 54 20 22 20 20 59 4F .320 PRINT " YO
000140: 55 20 41 52 45 20 4F 4E 20 41 20 4C 55 4E 41 52 U ARE ON A LUNAR
000150: 20 4C 41 4E 44 49 4E 47 20 4D 49 53 53 49 4F 4E LANDING MISSION
000160: 2E 20 20 41 53 20 54 48 45 20 50 49 4C 4F 54 20 . AS THE PILOT
000170: 4F 46 22 0D 0A 33 32 35 20 50 52 49 4E 54 20 22 OF"..325 PRINT "
000180: 54 48 45 20 4C 55 4E 41 52 20 45 58 43 55 52 53 THE LUNAR EXCURS
000190: 49 4F 4E 20 4D 4F 44 55 4C 45 2C 20 59 4F 55 20 ION MODULE, YOU
0001A0: 57 49 4C 4C 20 42 45 20 45 58 50 45 43 54 45 44 WILL BE EXPECTED
0001B0: 20 54 4F 22 0D 0A 33 33 30 20 50 52 49 4E 54 20 TO"..330 PRINT
0001C0: 22 47 49 56 45 20 43 45 52 54 41 49 4E 20 43 4F "GIVE CERTAIN CO
0001D0: 4D 4D 41 4E 44 53 20 54 4F 20 54 48 45 20 4D 4F MMANDS TO THE MO
0001E0: 44 55 4C 45 20 4E 41 56 49 47 41 54 49 4F 4E 20 DULE NAVIGATION
0001F0: 53 59 53 54 45 4D 2E 22 0D 0A 33 33 35 20 50 52 SYSTEM."..335 PR
Size : 512 (Real : 512)
000000: 52 53 20 48 41 44 20 59 4F 55 20 42 45 45 4E 20 RS HAD YOU BEEN
000010: 49 4E 20 4F 46 46 49 43 45 20 57 48 45 4E 20 49 IN OFFICE WHEN I
000020: 4E 54 45 52 52 55 50 54 45 44 22 3B 0D 0A 31 39 NTERRUPTED";..19
000030: 36 31 20 49 4E 50 55 54 20 58 35 0D 0A 31 39 36 61 INPUT X5..196
000040: 32 20 49 46 20 58 35 3C 30 20 54 48 45 4E 20 31 2 IF X5<0 THEN 1
000050: 35 39 30 0D 0A 31 39 36 33 20 49 46 20 58 35 3C 590..1963 IF X5<
000060: 38 20 54 48 45 4E 20 31 39 36 39 0D 0A 31 39 36 8 THEN 1969..196
000070: 35 20 50 52 49 4E 54 20 22 20 20 20 43 4F 4D 45 5 PRINT " COME
000080: 20 4F 4E 2C 20 59 4F 55 52 20 54 45 52 4D 20 49 ON, YOUR TERM I
000090: 4E 20 4F 46 46 49 43 45 20 49 53 20 4F 4E 4C 59 N OFFICE IS ONLY
0000A0: 22 3B 4E 35 3B 22 59 45 41 52 53 2E 22 0D 0A 31 ";N5;"YEARS."..1
0000B0: 39 36 37 20 47 4F 54 4F 20 31 39 36 30 0D 0A 31 967 GOTO 1960..1
0000C0: 39 36 39 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 969 PRINT "HOW M
0000D0: 55 43 48 20 44 49 44 20 59 4F 55 20 48 41 56 45 UCH DID YOU HAVE
0000E0: 20 49 4E 20 54 48 45 20 54 52 45 41 53 55 52 59 IN THE TREASURY
0000F0: 22 3B 0D 0A 31 39 37 30 20 49 4E 50 55 54 20 41 ";..1970 INPUT A
000100: 0D 0A 31 39 37 31 20 49 46 20 41 3C 30 20 54 48 ..1971 IF A<0 TH
000110: 45 4E 20 31 35 39 30 0D 0A 31 39 37 35 20 50 52 EN 1590..1975 PR
000120: 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 43 4F INT "HOW MANY CO
000130: 55 4E 54 52 59 4D 45 4E 22 3B 20 20 20 20 0D 0A UNTRYMEN"; ..
000140: 31 39 37 36 20 49 4E 50 55 54 20 42 0D 0A 31 39 1976 INPUT B..19
000150: 37 37 20 49 46 20 42 3C 30 20 54 48 45 4E 20 31 77 IF B<0 THEN 1
000160: 35 39 30 0D 0A 31 39 38 30 20 50 52 49 4E 54 20 590..1980 PRINT
000170: 22 48 4F 57 20 4D 41 4E 59 20 57 4F 52 4B 45 52 "HOW MANY WORKER
000180: 53 22 3B 0D 0A 31 39 38 31 20 49 4E 50 55 54 20 S";..1981 INPUT
000190: 43 0D 0A 31 39 38 32 20 49 46 20 43 3C 30 20 54 C..1982 IF C<0 T
0001A0: 48 45 4E 20 31 35 39 30 0D 0A 31 39 39 30 20 50 HEN 1590..1990 P
0001B0: 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 53 RINT "HOW MANY S
0001C0: 51 55 41 52 45 20 4D 49 4C 45 53 20 4F 46 20 4C QUARE MILES OF L
0001D0: 41 4E 44 22 3B 0D 0A 31 39 39 31 20 49 4E 50 55 AND";..1991 INPU
0001E0: 54 20 44 0D 0A 31 39 39 32 20 49 46 20 44 3C 30 T D..1992 IF D<0
0001F0: 20 54 48 45 4E 20 31 35 39 30 0D 0A 31 39 39 33 THEN 1590..1993
Size : 512 (Real : 512)
000000: 49 4E 54 20 22 54 48 45 20 4F 4E 2D 42 4F 41 52 INT "THE ON-BOAR
000010: 44 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 D COMPUTER WILL
000020: 47 49 56 45 20 41 20 52 55 4E 4E 49 4E 47 20 41 GIVE A RUNNING A
000030: 43 43 4F 55 4E 54 22 0D 0A 33 34 30 20 50 52 49 CCOUNT"..340 PRI
000040: 4E 54 20 22 4F 46 20 49 4E 46 4F 52 4D 41 54 49 NT "OF INFORMATI
000050: 4F 4E 20 4E 45 45 44 45 44 20 54 4F 20 4E 41 56 ON NEEDED TO NAV
000060: 49 47 41 54 45 20 54 48 45 20 53 48 49 50 2E 22 IGATE THE SHIP."
000070: 0D 0A 33 34 35 20 50 52 49 4E 54 0D 0A 33 35 30 ..345 PRINT..350
000080: 20 50 52 49 4E 54 0D 0A 33 35 35 20 50 52 49 4E PRINT..355 PRIN
000090: 54 20 22 54 48 45 20 41 54 54 49 54 55 44 45 20 T "THE ATTITUDE
0000A0: 41 4E 47 4C 45 20 43 41 4C 4C 45 44 20 46 4F 52 ANGLE CALLED FOR
0000B0: 20 49 53 20 44 45 53 43 52 49 42 45 44 20 41 53 IS DESCRIBED AS
0000C0: 20 46 4F 4C 4C 4F 57 53 2E 22 0D 0A 33 36 30 20 FOLLOWS."..360
0000D0: 50 52 49 4E 54 20 22 2B 20 4F 52 20 2D 31 38 30 PRINT "+ OR -180
0000E0: 20 44 45 47 52 45 45 53 20 49 53 20 44 49 52 45 DEGREES IS DIRE
0000F0: 43 54 4C 59 20 41 57 41 59 20 46 52 4F 4D 20 54 CTLY AWAY FROM T
000100: 48 45 20 4D 4F 4F 4E 22 0D 0A 33 36 35 20 50 52 HE MOON"..365 PR
000110: 49 4E 54 20 22 2D 39 30 20 44 45 47 52 45 45 53 INT "-90 DEGREES
000120: 20 49 53 20 4F 4E 20 41 20 54 41 4E 47 45 4E 54 IS ON A TANGENT
000130: 20 49 4E 20 54 48 45 20 44 49 52 45 43 54 49 4F IN THE DIRECTIO
000140: 4E 20 4F 46 20 4F 52 42 49 54 22 0D 0A 33 37 30 N OF ORBIT"..370
000150: 20 50 52 49 4E 54 20 22 2B 39 30 20 44 45 47 52 PRINT "+90 DEGR
000160: 45 45 53 20 49 53 20 4F 4E 20 41 20 54 41 4E 47 EES IS ON A TANG
000170: 45 4E 54 20 46 52 4F 4D 20 54 48 45 20 44 49 52 ENT FROM THE DIR
000180: 45 43 54 49 4F 4E 20 4F 46 20 4F 52 42 49 54 22 ECTION OF ORBIT"
000190: 0D 0A 33 37 35 20 50 52 49 4E 54 20 22 30 20 28 ..375 PRINT "0 (
0001A0: 5A 45 52 4F 29 20 44 45 47 52 45 45 53 20 49 53 ZERO) DEGREES IS
0001B0: 20 44 49 52 45 43 54 4C 59 20 54 4F 57 41 52 44 DIRECTLY TOWARD
0001C0: 20 54 48 45 20 4D 4F 4F 4E 22 0D 0A 33 38 30 20 THE MOON"..380
0001D0: 50 52 49 4E 54 0D 0A 33 38 35 20 50 52 49 4E 54 PRINT..385 PRINT
0001E0: 20 54 41 42 28 33 30 29 3B 22 2D 31 38 30 7C 2B TAB(30);"-180|+
0001F0: 31 38 30 22 0D 0A 33 39 30 20 50 52 49 4E 54 20 180"..390 PRINT
Size : 512 (Real : 512)
000000: 20 49 46 20 44 3E 32 30 30 30 20 54 48 45 4E 20 IF D>2000 THEN
000010: 31 39 39 36 0D 0A 31 39 39 34 20 49 46 20 44 3E 1996..1994 IF D>
000020: 31 30 30 30 20 54 48 45 4E 20 31 30 30 0D 0A 31 1000 THEN 100..1
000030: 39 39 36 20 50 52 49 4E 54 20 22 20 20 20 43 4F 996 PRINT " CO
000040: 4D 45 20 4F 4E 2C 20 59 4F 55 20 53 54 41 52 54 ME ON, YOU START
000050: 45 44 20 57 49 54 48 20 31 30 30 30 20 53 51 2E ED WITH 1000 SQ.
000060: 20 4D 49 4C 45 53 20 4F 46 20 46 41 52 4D 20 4C MILES OF FARM L
000070: 41 4E 44 22 0D 0A 31 39 39 37 20 50 52 49 4E 54 AND"..1997 PRINT
000080: 20 22 20 20 20 41 4E 44 20 31 30 2C 30 30 30 20 " AND 10,000
000090: 53 51 2E 20 4D 49 4C 45 53 20 4F 46 20 46 4F 52 SQ. MILES OF FOR
0000A0: 45 53 54 20 4C 41 4E 44 2E 22 0D 0A 31 39 39 38 EST LAND."..1998
0000B0: 20 47 4F 54 4F 20 31 39 39 30 0D 0A 32 30 30 30 GOTO 1990..2000
0000C0: 20 58 35 3D 58 35 2B 31 0D 0A 32 30 32 30 20 42 X5=X5+1..2020 B
0000D0: 35 3D 30 0D 0A 32 30 34 30 20 47 4F 54 4F 20 31 5=0..2040 GOTO 1
0000E0: 30 30 0D 0A 32 30 34 36 20 45 4E 44 0D 0A 1A E5 00..2046 END....
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 41 42 28 33 34 29 3B 22 5E 22 0D 0A 33 39 35 TAB(34);"^"..395
000010: 20 50 52 49 4E 54 20 54 41 42 28 32 37 29 3B 22 PRINT TAB(27);"
000020: 2D 39 30 20 3C 20 2D 2B 2D 20 3E 20 2B 39 30 22 -90 < -+- > +90"
000030: 0D 0A 34 30 30 20 50 52 49 4E 54 20 54 41 42 28 ..400 PRINT TAB(
000040: 33 34 29 3B 22 21 22 0D 0A 34 30 35 20 50 52 49 34);"!"..405 PRI
000050: 4E 54 20 54 41 42 28 33 34 29 3B 22 30 22 0D 0A NT TAB(34);"0"..
000060: 34 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 31 410 PRINT TAB(21
000070: 29 3B 22 3C 3C 3C 3C 20 44 49 52 45 43 54 49 4F );"<<<< DIRECTIO
000080: 4E 20 4F 46 20 4F 52 42 49 54 20 3C 3C 3C 3C 22 N OF ORBIT <<<<"
000090: 0D 0A 34 31 35 20 50 52 49 4E 54 0D 0A 34 32 30 ..415 PRINT..420
0000A0: 20 50 52 49 4E 54 20 54 41 42 28 32 30 29 3B 22 PRINT TAB(20);"
0000B0: 2D 2D 2D 2D 2D 2D 20 53 55 52 46 41 43 45 20 4F ------ SURFACE O
0000C0: 46 20 4D 4F 4F 4E 20 2D 2D 2D 2D 2D 2D 22 0D 0A F MOON ------"..
0000D0: 34 32 35 20 50 52 49 4E 54 0D 0A 34 33 30 20 50 425 PRINT..430 P
0000E0: 52 49 4E 54 0D 0A 34 33 35 20 50 52 49 4E 54 20 RINT..435 PRINT
0000F0: 22 41 4C 4C 20 41 4E 47 4C 45 53 20 42 45 54 57 "ALL ANGLES BETW
000100: 45 45 4E 20 2D 31 38 30 20 41 4E 44 20 2B 31 38 EEN -180 AND +18
000110: 30 20 44 45 47 52 45 45 53 20 41 52 45 20 41 43 0 DEGREES ARE AC
000120: 43 45 50 54 45 44 2E 22 0D 0A 34 34 30 20 50 52 CEPTED."..440 PR
000130: 49 4E 54 0D 0A 34 34 35 20 50 52 49 4E 54 20 22 INT..445 PRINT "
000140: 31 20 46 55 45 4C 20 55 4E 49 54 20 3D 20 31 20 1 FUEL UNIT = 1
000150: 53 45 43 2E 20 41 54 20 4D 41 58 20 54 48 52 55 SEC. AT MAX THRU
000160: 53 54 22 0D 0A 34 35 30 20 50 52 49 4E 54 20 22 ST"..450 PRINT "
000170: 41 4E 59 20 44 49 53 43 52 45 50 41 4E 43 49 45 ANY DISCREPANCIE
000180: 53 20 41 52 45 20 41 43 43 4F 55 4E 54 45 44 20 S ARE ACCOUNTED
000190: 46 4F 52 20 49 4E 20 54 48 45 20 55 53 45 20 4F FOR IN THE USE O
0001A0: 46 20 46 55 45 4C 22 0D 0A 34 35 35 20 50 52 49 F FUEL"..455 PRI
0001B0: 4E 54 20 22 46 4F 52 20 41 4E 20 41 54 54 49 54 NT "FOR AN ATTIT
0001C0: 55 44 45 20 43 48 41 4E 47 45 2E 22 0D 0A 34 36 UDE CHANGE."..46
0001D0: 30 20 50 52 49 4E 54 20 22 41 56 41 49 4C 41 42 0 PRINT "AVAILAB
0001E0: 4C 45 20 45 4E 47 49 4E 45 20 50 4F 57 45 52 3A LE ENGINE POWER:
0001F0: 20 30 20 28 5A 45 52 4F 29 20 41 4E 44 20 41 4E 0 (ZERO) AND AN
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 2 PRINT TAB(34);
000010: 22 4C 45 4D 22 0D 0A 34 20 50 52 49 4E 54 20 54 "LEM"..4 PRINT T
000020: 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 45 AB(15);"CREATIVE
000030: 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 52 COMPUTING MORR
000040: 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 53 ISTOWN, NEW JERS
000050: 45 59 22 0D 0A 37 20 52 45 4D 20 52 4F 43 4B 54 EY"..7 REM ROCKT
000060: 32 20 49 53 20 41 4E 20 49 4E 54 45 52 41 43 54 2 IS AN INTERACT
000070: 49 56 45 20 47 41 4D 45 20 54 48 41 54 20 53 49 IVE GAME THAT SI
000080: 4D 55 4C 41 54 45 53 20 41 20 4C 55 4E 41 52 0D MULATES A LUNAR.
000090: 0A 38 20 52 45 4D 20 4C 41 4E 44 49 4E 47 20 49 .8 REM LANDING I
0000A0: 53 20 53 49 4D 49 4C 41 52 20 54 4F 20 54 48 41 S SIMILAR TO THA
0000B0: 54 20 4F 46 20 54 48 45 20 41 50 4F 4C 4C 4F 20 T OF THE APOLLO
0000C0: 50 52 4F 47 52 41 4D 2E 0D 0A 39 20 52 45 4D 20 PROGRAM...9 REM
0000D0: 54 48 45 52 45 20 49 53 20 41 42 53 4F 4C 55 54 THERE IS ABSOLUT
0000E0: 45 4C 59 20 4E 4F 20 43 48 41 4E 43 45 20 49 4E ELY NO CHANCE IN
0000F0: 56 4F 4C 56 45 44 0D 0A 31 30 20 5A 24 3D 22 47 VOLVED..10 Z$="G
000100: 4F 22 0D 0A 31 35 20 42 31 3D 31 0D 0A 32 30 20 O"..15 B1=1..20
000110: 4D 3D 31 37 2E 39 35 0D 0A 32 35 20 46 31 3D 35 M=17.95..25 F1=5
000120: 2E 32 35 0D 0A 33 30 20 4E 3D 37 2E 35 0D 0A 33 .25..30 N=7.5..3
000130: 35 20 52 30 3D 39 32 36 0D 0A 34 30 20 56 30 3D 5 R0=926..40 V0=
000140: 31 2E 32 39 0D 0A 34 35 20 54 3D 30 0D 0A 35 30 1.29..45 T=0..50
000150: 20 48 30 3D 36 30 0D 0A 35 35 20 52 3D 52 30 2B H0=60..55 R=R0+
000160: 48 30 0D 0A 36 30 20 41 3D 2D 33 2E 34 32 35 0D H0..60 A=-3.425.
000170: 0A 36 35 20 52 31 3D 30 0D 0A 37 30 20 41 31 3D .65 R1=0..70 A1=
000180: 38 2E 38 34 33 36 31 45 2D 30 34 0D 0A 37 35 20 8.84361E-04..75
000190: 52 33 3D 30 0D 0A 38 30 20 41 33 3D 30 0D 0A 38 R3=0..80 A3=0..8
0001A0: 35 20 4D 31 3D 37 2E 34 35 0D 0A 39 30 20 4D 30 5 M1=7.45..90 M0
0001B0: 3D 4D 31 0D 0A 39 35 20 42 3D 37 35 30 0D 0A 31 =M1..95 B=750..1
0001C0: 30 30 20 54 31 3D 30 0D 0A 31 30 35 20 46 3D 30 00 T1=0..105 F=0
0001D0: 0D 0A 31 31 30 20 50 3D 30 0D 0A 31 31 35 20 4E ..110 P=0..115 N
0001E0: 3D 31 0D 0A 31 32 30 20 4D 32 3D 30 0D 0A 31 32 =1..120 M2=0..12
0001F0: 35 20 53 3D 30 0D 0A 31 33 30 20 43 3D 30 0D 0A 5 S=0..130 C=0..
Size : 512 (Real : 512)
000000: 59 20 56 41 4C 55 45 20 42 45 54 57 45 45 4E 22 Y VALUE BETWEEN"
000010: 0D 0A 34 36 35 20 50 52 49 4E 54 20 22 31 30 20 ..465 PRINT "10
000020: 41 4E 44 20 31 30 30 20 50 45 52 43 45 4E 54 2E AND 100 PERCENT.
000030: 22 0D 0A 34 37 30 20 50 52 49 4E 54 0D 0A 34 37 "..470 PRINT..47
000040: 35 20 50 52 49 4E 54 22 4E 45 47 41 54 49 56 45 5 PRINT"NEGATIVE
000050: 20 54 48 52 55 53 54 20 4F 52 20 54 49 4D 45 20 THRUST OR TIME
000060: 49 53 20 50 52 4F 48 49 42 49 54 45 44 2E 22 0D IS PROHIBITED.".
000070: 0A 34 38 30 20 50 52 49 4E 54 0D 0A 34 38 35 20 .480 PRINT..485
000080: 50 52 49 4E 54 0D 0A 34 39 30 20 50 52 49 4E 54 PRINT..490 PRINT
000090: 20 22 49 4E 50 55 54 3A 20 54 49 4D 45 20 49 4E "INPUT: TIME IN
0000A0: 54 45 52 56 41 4C 20 49 4E 20 53 45 43 4F 4E 44 TERVAL IN SECOND
0000B0: 53 20 2D 2D 2D 2D 2D 2D 20 28 54 29 22 0D 0A 34 S ------ (T)"..4
0000C0: 39 35 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 95 PRINT "
0000D0: 20 50 45 52 43 45 4E 54 41 47 45 20 4F 46 20 54 PERCENTAGE OF T
0000E0: 48 52 55 53 54 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D HRUST ----------
0000F0: 20 28 50 29 22 0D 0A 35 30 30 20 50 52 49 4E 54 (P)"..500 PRINT
000100: 20 22 20 20 20 20 20 20 20 41 54 54 49 54 55 44 " ATTITUD
000110: 45 20 41 4E 47 4C 45 20 49 4E 20 44 45 47 52 45 E ANGLE IN DEGRE
000120: 45 53 20 2D 2D 2D 2D 2D 20 28 41 29 22 0D 0A 35 ES ----- (A)"..5
000130: 30 35 20 50 52 49 4E 54 0D 0A 35 31 30 20 49 46 05 PRINT..510 IF
000140: 20 51 24 3D 22 59 45 53 22 20 54 48 45 4E 20 35 Q$="YES" THEN 5
000150: 33 35 0D 0A 35 31 35 20 50 52 49 4E 54 20 22 46 35..515 PRINT "F
000160: 4F 52 20 45 58 41 4D 50 4C 45 3A 22 0D 0A 35 32 OR EXAMPLE:"..52
000170: 30 20 50 52 49 4E 54 20 22 54 2C 50 2C 41 3F 20 0 PRINT "T,P,A?
000180: 31 30 2C 36 35 2C 2D 36 30 22 0D 0A 35 32 35 20 10,65,-60"..525
000190: 50 52 49 4E 54 20 22 54 4F 20 41 42 4F 52 54 20 PRINT "TO ABORT
0001A0: 54 48 45 20 4D 49 53 53 49 4F 4E 20 41 54 20 41 THE MISSION AT A
0001B0: 4E 59 20 54 49 4D 45 2C 20 45 4E 54 45 52 20 30 NY TIME, ENTER 0
0001C0: 2C 30 2C 30 22 0D 0A 35 33 30 20 50 52 49 4E 54 ,0,0"..530 PRINT
0001D0: 0D 0A 35 33 35 20 50 52 49 4E 54 20 22 4F 55 54 ..535 PRINT "OUT
0001E0: 50 55 54 3A 20 54 4F 54 41 4C 20 54 49 4D 45 20 PUT: TOTAL TIME
0001F0: 49 4E 20 45 4C 41 50 53 45 44 20 53 45 43 4F 4E IN ELAPSED SECON
Size : 512 (Real : 512)
000000: 39 30 20 47 4F 54 4F 20 35 37 35 0D 0A 39 39 35 90 GOTO 575..995
000010: 20 50 52 49 4E 54 0D 0A 31 30 30 30 20 50 52 49 PRINT..1000 PRI
000020: 4E 54 20 22 54 52 41 4E 51 55 49 4C 49 54 59 20 NT "TRANQUILITY
000030: 42 41 53 45 20 48 45 52 45 20 2D 2D 20 54 48 45 BASE HERE -- THE
000040: 20 45 41 47 4C 45 20 48 41 53 20 4C 41 4E 44 45 EAGLE HAS LANDE
000050: 44 2E 22 0D 0A 31 30 30 35 20 50 52 49 4E 54 20 D."..1005 PRINT
000060: 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 "CONGRATULATIONS
000070: 20 2D 2D 20 54 48 45 52 45 20 57 41 53 20 4E 4F -- THERE WAS NO
000080: 20 53 50 41 43 45 43 52 41 46 54 20 44 41 4D 41 SPACECRAFT DAMA
000090: 47 45 2E 22 0D 0A 31 30 31 30 20 50 52 49 4E 54 GE."..1010 PRINT
0000A0: 20 22 59 4F 55 20 4D 41 59 20 4E 4F 57 20 50 52 "YOU MAY NOW PR
0000B0: 4F 43 45 45 44 20 57 49 54 48 20 53 55 52 46 41 OCEED WITH SURFA
0000C0: 43 45 20 45 58 50 4C 4F 52 41 54 49 4F 4E 2E 22 CE EXPLORATION."
0000D0: 0D 0A 31 30 31 35 20 47 4F 54 4F 20 31 31 30 30 ..1015 GOTO 1100
0000E0: 0D 0A 31 30 32 30 20 50 52 49 4E 54 0D 0A 31 30 ..1020 PRINT..10
0000F0: 32 35 20 50 52 49 4E 54 20 22 43 52 41 53 48 20 25 PRINT "CRASH
000100: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000110: 22 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 22 59 "..1030 PRINT "Y
000120: 4F 55 52 20 49 4D 50 41 43 54 20 43 52 45 41 54 OUR IMPACT CREAT
000130: 45 44 20 41 20 43 52 41 54 45 52 22 3B 41 42 53 ED A CRATER";ABS
000140: 28 48 29 3B 4D 24 3B 22 20 44 45 45 50 2E 22 0D (H);M$;" DEEP.".
000150: 0A 31 30 33 35 20 58 31 3D 53 51 52 28 44 31 2A .1035 X1=SQR(D1*
000160: 44 31 2B 48 31 2A 48 31 29 2A 47 33 0D 0A 31 30 D1+H1*H1)*G3..10
000170: 34 30 20 50 52 49 4E 54 20 22 41 54 20 43 4F 4E 40 PRINT "AT CON
000180: 54 41 43 54 20 59 4F 55 20 57 45 52 45 20 54 52 TACT YOU WERE TR
000190: 41 56 45 4C 49 4E 47 22 3B 58 31 3B 4E 24 3B 22 AVELING";X1;N$;"
0001A0: 2F 48 52 22 0D 0A 31 30 34 35 20 47 4F 54 4F 20 /HR"..1045 GOTO
0001B0: 31 31 30 30 0D 0A 31 30 35 30 20 50 52 49 4E 54 1100..1050 PRINT
0001C0: 0D 0A 31 30 35 35 20 50 52 49 4E 54 20 22 59 4F ..1055 PRINT "YO
0001D0: 55 20 48 41 56 45 20 42 45 45 4E 20 4C 4F 53 54 U HAVE BEEN LOST
0001E0: 20 49 4E 20 53 50 41 43 45 20 57 49 54 48 20 4E IN SPACE WITH N
0001F0: 4F 20 48 4F 50 45 20 4F 46 20 52 45 43 4F 56 45 O HOPE OF RECOVE
Size : 512 (Real : 512)
000000: 44 53 22 0D 0A 35 34 30 20 50 52 49 4E 54 20 22 DS"..540 PRINT "
000010: 20 20 20 20 20 20 20 20 48 45 49 47 48 54 20 49 HEIGHT I
000020: 4E 20 22 3B 4D 24 0D 0A 35 34 35 20 50 52 49 4E N ";M$..545 PRIN
000030: 54 20 22 20 20 20 20 20 20 20 20 44 49 53 54 41 T " DISTA
000040: 4E 43 45 20 46 52 4F 4D 20 4C 41 4E 44 49 4E 47 NCE FROM LANDING
000050: 20 53 49 54 45 20 49 4E 20 22 3B 4D 24 0D 0A 35 SITE IN ";M$..5
000060: 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 50 PRINT "
000070: 20 20 56 45 52 54 49 43 41 4C 20 56 45 4C 4F 43 VERTICAL VELOC
000080: 49 54 59 20 49 4E 20 22 3B 4D 24 3B 22 2F 53 45 ITY IN ";M$;"/SE
000090: 43 4F 4E 44 22 0D 0A 35 35 35 20 50 52 49 4E 54 COND"..555 PRINT
0000A0: 20 22 20 20 20 20 20 20 20 20 48 4F 52 49 5A 4F " HORIZO
0000B0: 4E 54 41 4C 20 56 45 4C 4F 43 49 54 59 20 49 4E NTAL VELOCITY IN
0000C0: 20 22 3B 4D 24 3B 22 2F 53 45 43 4F 4E 44 22 0D ";M$;"/SECOND".
0000D0: 0A 35 36 30 20 50 52 49 4E 54 20 22 20 20 20 20 .560 PRINT "
0000E0: 20 20 20 20 46 55 45 4C 20 55 4E 49 54 53 20 52 FUEL UNITS R
0000F0: 45 4D 41 49 4E 49 4E 47 22 0D 0A 35 36 35 20 50 EMAINING"..565 P
000100: 52 49 4E 54 0D 0A 35 37 30 20 47 4F 54 4F 20 36 RINT..570 GOTO 6
000110: 37 30 0D 0A 35 37 35 20 50 52 49 4E 54 0D 0A 35 70..575 PRINT..5
000120: 38 30 20 50 52 49 4E 54 20 22 54 2C 50 2C 41 22 80 PRINT "T,P,A"
000130: 3B 0D 0A 35 38 35 20 49 4E 50 55 54 20 54 31 2C ;..585 INPUT T1,
000140: 46 2C 50 0D 0A 35 39 30 20 46 3D 46 2F 31 30 30 F,P..590 F=F/100
000150: 0D 0A 35 39 35 20 49 46 20 54 31 3C 30 20 54 48 ..595 IF T1<0 TH
000160: 45 4E 20 39 30 35 0D 0A 36 30 30 20 49 46 20 54 EN 905..600 IF T
000170: 31 3D 30 20 54 48 45 4E 20 31 30 39 30 0D 0A 36 1=0 THEN 1090..6
000180: 30 35 20 49 46 20 41 42 53 28 46 2D 2E 30 35 29 05 IF ABS(F-.05)
000190: 3E 31 20 54 48 45 4E 20 39 34 35 0D 0A 36 31 30 >1 THEN 945..610
0001A0: 20 49 46 20 41 42 53 28 46 2D 2E 30 35 29 3C 2E IF ABS(F-.05)<.
0001B0: 30 35 20 54 48 45 4E 20 39 34 35 0D 0A 36 31 35 05 THEN 945..615
0001C0: 20 49 46 20 41 42 53 28 50 29 3E 31 38 30 20 54 IF ABS(P)>180 T
0001D0: 48 45 4E 20 39 32 35 0D 0A 36 32 30 20 4E 3D 32 HEN 925..620 N=2
0001E0: 30 0D 0A 36 32 35 20 49 46 20 54 31 3C 34 30 30 0..625 IF T1<400
0001F0: 20 54 48 45 4E 20 36 33 35 0D 0A 36 33 30 20 4E THEN 635..630 N
Size : 512 (Real : 512)
000000: 52 59 2E 22 0D 0A 31 30 36 30 20 47 4F 54 4F 20 RY."..1060 GOTO
000010: 31 31 30 30 0D 0A 31 30 36 35 20 50 52 49 4E 54 1100..1065 PRINT
000020: 20 22 59 4F 55 20 41 52 45 20 44 4F 57 4E 20 53 "YOU ARE DOWN S
000030: 41 46 45 4C 59 20 2D 20 22 0D 0A 31 30 37 35 20 AFELY - "..1075
000040: 50 52 49 4E 54 0D 0A 31 30 38 30 20 50 52 49 4E PRINT..1080 PRIN
000050: 54 20 22 42 55 54 20 4D 49 53 53 45 44 20 54 48 T "BUT MISSED TH
000060: 45 20 4C 41 4E 44 49 4E 47 20 53 49 54 45 20 42 E LANDING SITE B
000070: 59 22 3B 41 42 53 28 44 2F 47 35 29 3B 4E 24 3B Y";ABS(D/G5);N$;
000080: 22 2E 22 0D 0A 31 30 38 35 20 47 4F 54 4F 20 31 "."..1085 GOTO 1
000090: 31 30 30 0D 0A 31 30 39 30 20 50 52 49 4E 54 0D 100..1090 PRINT.
0000A0: 0A 31 30 39 35 20 50 52 49 4E 54 20 22 4D 49 53 .1095 PRINT "MIS
0000B0: 53 49 4F 4E 20 41 42 45 4E 44 45 44 22 0D 0A 31 SION ABENDED"..1
0000C0: 31 30 30 20 50 52 49 4E 54 20 0D 0A 31 31 30 35 100 PRINT ..1105
0000D0: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
0000E0: 41 4E 54 20 54 4F 20 54 52 59 20 49 54 20 41 47 ANT TO TRY IT AG
0000F0: 41 49 4E 20 28 59 45 53 2F 4E 4F 29 3F 22 0D 0A AIN (YES/NO)?"..
000100: 31 31 31 30 20 49 4E 50 55 54 20 5A 24 0D 0A 31 1110 INPUT Z$..1
000110: 31 31 35 20 49 46 20 5A 24 3D 22 59 45 53 22 20 115 IF Z$="YES"
000120: 54 48 45 4E 20 32 30 0D 0A 31 31 32 30 20 49 46 THEN 20..1120 IF
000130: 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 31 Z$="NO" THEN 11
000140: 33 30 0D 0A 31 31 32 35 20 47 4F 54 4F 20 31 31 30..1125 GOTO 11
000150: 30 35 0D 0A 31 31 33 30 20 50 52 49 4E 54 0D 0A 05..1130 PRINT..
000160: 31 31 33 35 20 50 52 49 4E 54 20 22 54 4F 4F 20 1135 PRINT "TOO
000170: 42 41 44 2C 20 54 48 45 20 53 50 41 43 45 20 50 BAD, THE SPACE P
000180: 52 4F 47 52 41 4D 20 48 41 54 45 53 20 54 4F 20 ROGRAM HATES TO
000190: 4C 4F 53 45 20 45 58 50 45 52 49 45 4E 43 45 44 LOSE EXPERIENCED
0001A0: 22 0D 0A 31 31 34 30 20 50 52 49 4E 54 20 22 41 "..1140 PRINT "A
0001B0: 53 54 52 4F 4E 41 55 54 53 2E 22 0D 0A 31 31 34 STRONAUTS."..114
0001C0: 35 20 53 54 4F 50 0D 0A 31 31 35 30 20 50 52 49 5 STOP..1150 PRI
0001D0: 4E 54 0D 0A 31 31 35 35 20 50 52 49 4E 54 20 22 NT..1155 PRINT "
0001E0: 4F 4B 2C 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 OK, DO YOU WANT
0001F0: 54 48 45 20 43 4F 4D 50 4C 45 54 45 20 49 4E 53 THE COMPLETE INS
Size : 512 (Real : 512)
000000: 3D 54 31 2F 32 30 0D 0A 36 33 35 20 54 31 3D 54 =T1/20..635 T1=T
000010: 31 2F 4E 0D 0A 36 34 30 20 50 3D 50 2A 33 2E 31 1/N..640 P=P*3.1
000020: 34 31 35 39 2F 31 38 30 0D 0A 36 34 35 20 53 3D 4159/180..645 S=
000030: 53 49 4E 28 50 29 0D 0A 36 35 30 20 43 3D 43 4F SIN(P)..650 C=CO
000040: 53 28 50 29 0D 0A 36 35 35 20 4D 32 3D 4D 30 2A S(P)..655 M2=M0*
000050: 54 31 2A 46 2F 42 0D 0A 36 36 30 20 52 33 3D 2D T1*F/B..660 R3=-
000060: 2E 35 2A 52 30 2A 28 28 56 30 2F 52 29 5E 32 29 .5*R0*((V0/R)^2)
000070: 2B 52 2A 41 31 2A 41 31 0D 0A 36 36 35 20 41 33 +R*A1*A1..665 A3
000080: 3D 2D 32 2A 52 31 2A 41 31 2F 52 0D 0A 36 37 30 =-2*R1*A1/R..670
000090: 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 36 FOR I=1 TO N..6
0000A0: 37 35 20 49 46 20 4D 31 3D 30 20 54 48 45 4E 20 75 IF M1=0 THEN
0000B0: 37 31 35 0D 0A 36 38 30 20 4D 31 3D 4D 31 2D 4D 715..680 M1=M1-M
0000C0: 32 0D 0A 36 38 35 20 49 46 20 4D 31 3E 30 20 54 2..685 IF M1>0 T
0000D0: 48 45 4E 20 37 32 35 0D 0A 36 39 30 20 46 3D 46 HEN 725..690 F=F
0000E0: 2A 28 31 2B 4D 31 2F 4D 32 29 0D 0A 36 39 35 20 *(1+M1/M2)..695
0000F0: 4D 32 3D 4D 31 2B 4D 32 0D 0A 37 30 30 20 50 52 M2=M1+M2..700 PR
000100: 49 4E 54 20 22 59 4F 55 20 41 52 45 20 4F 55 54 INT "YOU ARE OUT
000110: 20 4F 46 20 46 55 45 4C 2E 22 0D 0A 37 30 35 20 OF FUEL."..705
000120: 4D 31 3D 30 0D 0A 37 31 30 20 47 4F 54 4F 20 37 M1=0..710 GOTO 7
000130: 32 35 0D 0A 37 31 35 20 46 3D 30 0D 0A 37 32 30 25..715 F=0..720
000140: 20 4D 32 3D 30 0D 0A 37 32 35 20 4D 3D 4D 2D 2E M2=0..725 M=M-.
000150: 35 2A 4D 32 0D 0A 37 33 30 20 52 34 3D 52 33 0D 5*M2..730 R4=R3.
000160: 0A 37 33 35 20 52 33 3D 2D 2E 35 2A 52 30 2A 28 .735 R3=-.5*R0*(
000170: 28 56 30 2F 52 29 5E 32 29 2B 52 2A 41 31 2A 41 (V0/R)^2)+R*A1*A
000180: 31 0D 0A 37 34 30 20 52 32 3D 28 33 2A 52 33 2D 1..740 R2=(3*R3-
000190: 52 34 29 2F 32 2B 2E 30 30 35 32 36 2A 46 31 2A R4)/2+.00526*F1*
0001A0: 46 2A 43 2F 4D 0D 0A 37 34 35 20 41 34 3D 41 33 F*C/M..745 A4=A3
0001B0: 0D 0A 37 35 30 20 41 33 3D 2D 32 2A 52 31 2A 41 ..750 A3=-2*R1*A
0001C0: 31 2F 52 0D 0A 37 35 35 20 41 32 3D 28 33 2A 41 1/R..755 A2=(3*A
0001D0: 33 2D 41 34 29 2F 32 2B 2E 30 30 35 36 2A 46 31 3-A4)/2+.0056*F1
0001E0: 2A 46 2A 53 2F 28 4D 2A 52 29 0D 0A 37 36 30 20 *F*S/(M*R)..760
0001F0: 58 3D 52 31 2A 54 31 2B 2E 35 2A 52 32 2A 54 31 X=R1*T1+.5*R2*T1
Size : 512 (Real : 512)
000000: 54 52 55 43 54 49 4F 4E 53 20 4F 52 20 54 48 45 TRUCTIONS OR THE
000010: 20 49 4E 50 55 54 20 2D 22 0D 0A 31 31 36 30 20 INPUT -"..1160
000020: 50 52 49 4E 54 20 22 4F 55 54 50 55 54 20 53 54 PRINT "OUTPUT ST
000030: 41 54 45 4D 45 4E 54 53 3F 22 0D 0A 31 31 36 35 ATEMENTS?"..1165
000040: 20 50 52 49 4E 54 20 22 31 3D 43 4F 4D 50 4C 45 PRINT "1=COMPLE
000050: 54 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 TE INSTRUCTIONS"
000060: 0D 0A 31 31 37 30 20 50 52 49 4E 54 20 22 32 3D ..1170 PRINT "2=
000070: 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 54 41 INPUT-OUTPUT STA
000080: 54 45 4D 45 4E 54 53 22 0D 0A 31 31 37 35 20 50 TEMENTS"..1175 P
000090: 52 49 4E 54 20 22 33 3D 4E 45 49 54 48 45 52 22 RINT "3=NEITHER"
0000A0: 0D 0A 31 31 38 30 20 49 4E 50 55 54 20 42 31 0D ..1180 INPUT B1.
0000B0: 0A 31 31 38 35 20 51 24 3D 22 4E 4F 22 0D 0A 31 .1185 Q$="NO"..1
0000C0: 31 39 30 20 49 46 20 42 31 3D 31 20 54 48 45 4E 190 IF B1=1 THEN
0000D0: 20 32 30 35 0D 0A 31 31 39 35 20 51 24 3D 22 59 205..1195 Q$="Y
0000E0: 45 53 22 0D 0A 31 32 30 30 20 49 46 20 42 31 3D ES"..1200 IF B1=
0000F0: 32 20 54 48 45 4E 20 31 39 30 0D 0A 31 32 30 35 2 THEN 190..1205
000100: 20 49 46 20 42 31 3D 33 20 54 48 45 4E 20 31 39 IF B1=3 THEN 19
000110: 30 0D 0A 31 32 31 30 20 47 4F 54 4F 20 31 31 36 0..1210 GOTO 116
000120: 35 0D 0A 31 32 31 35 20 45 4E 44 0D 0A 1A E5 E5 5..1215 END.....
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2A 54 31 0D 0A 37 36 35 20 52 3D 52 2B 58 0D 0A *T1..765 R=R+X..
000010: 37 37 30 20 48 30 3D 48 30 2B 58 0D 0A 37 37 35 770 H0=H0+X..775
000020: 20 52 31 3D 52 31 2B 52 32 2A 54 31 0D 0A 37 38 R1=R1+R2*T1..78
000030: 30 20 41 3D 41 2B 41 31 2A 54 31 2B 2E 35 2A 41 0 A=A+A1*T1+.5*A
000040: 32 2A 54 31 2A 54 31 0D 0A 37 38 35 20 41 31 3D 2*T1*T1..785 A1=
000050: 41 31 2B 41 32 2A 54 31 0D 0A 37 39 30 20 4D 3D A1+A2*T1..790 M=
000060: 4D 2D 2E 35 2A 4D 32 0D 0A 37 39 35 20 54 3D 54 M-.5*M2..795 T=T
000070: 2B 54 31 0D 0A 38 30 30 20 49 46 20 48 30 3C 33 +T1..800 IF H0<3
000080: 2E 32 38 37 38 32 38 45 2D 30 34 20 54 48 45 4E .287828E-04 THEN
000090: 20 38 31 30 0D 0A 38 30 35 20 4E 45 58 54 20 49 810..805 NEXT I
0000A0: 0D 0A 38 31 30 20 48 3D 48 30 2A 5A 0D 0A 38 31 ..810 H=H0*Z..81
0000B0: 35 20 48 31 3D 52 31 2A 5A 0D 0A 38 32 30 20 44 5 H1=R1*Z..820 D
0000C0: 3D 52 30 2A 41 2A 5A 0D 0A 38 32 35 20 44 31 3D =R0*A*Z..825 D1=
0000D0: 52 2A 41 31 2A 5A 0D 0A 38 33 30 20 54 32 3D 4D R*A1*Z..830 T2=M
0000E0: 31 2A 42 2F 4D 30 0D 0A 38 33 35 20 50 52 49 4E 1*B/M0..835 PRIN
0000F0: 54 20 22 20 22 3B 54 3B 54 41 42 28 31 30 29 3B T " ";T;TAB(10);
000100: 48 3B 54 41 42 28 32 33 29 3B 44 3B 0D 0A 38 34 H;TAB(23);D;..84
000110: 30 20 50 52 49 4E 54 20 54 41 42 28 33 37 29 3B 0 PRINT TAB(37);
000120: 48 31 3B 54 41 42 28 34 39 29 3B 44 31 3B 54 41 H1;TAB(49);D1;TA
000130: 42 28 36 30 29 3B 54 32 0D 0A 38 34 35 20 49 46 B(60);T2..845 IF
000140: 20 48 30 3C 33 2E 32 38 37 38 32 38 45 2D 30 34 H0<3.287828E-04
000150: 20 54 48 45 4E 20 38 38 30 0D 0A 38 35 30 20 49 THEN 880..850 I
000160: 46 20 52 30 2A 41 3E 31 36 34 2E 34 37 34 20 54 F R0*A>164.474 T
000170: 48 45 4E 20 31 30 35 30 0D 0A 38 35 35 20 49 46 HEN 1050..855 IF
000180: 20 4D 31 3E 30 20 54 48 45 4E 20 35 38 30 0D 0A M1>0 THEN 580..
000190: 38 36 30 20 54 31 3D 32 30 0D 0A 38 36 35 20 46 860 T1=20..865 F
0001A0: 3D 30 0D 0A 38 37 30 20 50 3D 30 0D 0A 38 37 35 =0..870 P=0..875
0001B0: 20 47 4F 54 4F 20 36 32 30 0D 0A 38 38 30 20 49 GOTO 620..880 I
0001C0: 46 20 52 31 3C 2D 38 2E 32 31 39 35 37 45 2D 30 F R1<-8.21957E-0
0001D0: 34 20 54 48 45 4E 20 31 30 32 30 0D 0A 38 38 35 4 THEN 1020..885
0001E0: 20 49 46 20 41 42 53 28 52 2A 41 31 29 3E 34 2E IF ABS(R*A1)>4.
0001F0: 39 33 31 37 34 45 2D 30 34 20 54 48 45 4E 20 31 93174E-04 THEN 1
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 32 30 0D 0A 38 39 30 20 49 46 20 48 30 3C 2D 020..890 IF H0<-
000010: 33 2E 32 38 37 38 32 38 45 2D 30 34 20 54 48 45 3.287828E-04 THE
000020: 4E 20 31 30 32 30 0D 0A 38 39 35 20 49 46 20 41 N 1020..895 IF A
000030: 42 53 28 44 29 3E 31 30 2A 5A 20 54 48 45 4E 20 BS(D)>10*Z THEN
000040: 31 30 36 35 0D 0A 39 30 30 20 47 4F 54 4F 20 39 1065..900 GOTO 9
000050: 39 35 0D 0A 39 30 35 20 50 52 49 4E 54 0D 0A 39 95..905 PRINT..9
000060: 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 53 10 PRINT "THIS S
000070: 50 41 43 45 43 52 41 46 54 20 49 53 20 4E 4F 54 PACECRAFT IS NOT
000080: 20 41 42 4C 45 20 54 4F 20 56 49 4F 4C 41 54 45 ABLE TO VIOLATE
000090: 20 54 48 45 20 53 50 41 43 45 2D 22 3B 0D 0A 39 THE SPACE-";..9
0000A0: 31 35 20 50 52 49 4E 54 20 22 54 49 4D 45 20 43 15 PRINT "TIME C
0000B0: 4F 4E 54 49 4E 55 55 4D 2E 22 0D 0A 39 32 30 20 ONTINUUM."..920
0000C0: 47 4F 54 4F 20 35 37 35 0D 0A 39 32 35 20 50 52 GOTO 575..925 PR
0000D0: 49 4E 54 0D 0A 39 33 30 20 50 52 49 4E 54 20 22 INT..930 PRINT "
0000E0: 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 IF YOU WANT TO S
0000F0: 50 49 4E 20 41 52 4F 55 4E 44 2C 20 47 4F 20 4F PIN AROUND, GO O
000100: 55 54 53 49 44 45 20 54 48 45 20 4D 4F 44 55 4C UTSIDE THE MODUL
000110: 45 22 0D 0A 39 33 35 20 50 52 49 4E 54 20 22 46 E"..935 PRINT "F
000120: 4F 52 20 41 4E 20 45 2E 56 2E 41 2E 22 0D 0A 39 OR AN E.V.A."..9
000130: 34 30 20 47 4F 54 4F 20 35 37 35 0D 0A 39 34 35 40 GOTO 575..945
000140: 20 50 52 49 4E 54 0D 0A 39 35 30 20 50 52 49 4E PRINT..950 PRIN
000150: 54 20 22 49 4D 50 4F 53 53 49 42 4C 45 20 54 48 T "IMPOSSIBLE TH
000160: 52 55 53 54 20 56 41 4C 55 45 20 22 3B 0D 0A 39 RUST VALUE ";..9
000170: 35 35 20 49 46 20 46 3C 30 20 54 48 45 4E 20 39 55 IF F<0 THEN 9
000180: 38 35 0D 0A 39 36 30 20 49 46 20 46 2D 2E 30 35 85..960 IF F-.05
000190: 3C 2E 30 35 20 54 48 45 4E 20 39 37 35 0D 0A 39 <.05 THEN 975..9
0001A0: 36 35 20 50 52 49 4E 54 20 22 54 4F 4F 20 4C 41 65 PRINT "TOO LA
0001B0: 52 47 45 22 0D 0A 39 37 30 20 47 4F 54 4F 20 35 RGE"..970 GOTO 5
0001C0: 37 35 0D 0A 39 37 35 20 50 52 49 4E 54 20 22 54 75..975 PRINT "T
0001D0: 4F 4F 20 53 4D 41 4C 4C 22 0D 0A 39 38 30 20 47 OO SMALL"..980 G
0001E0: 4F 54 4F 20 35 37 35 0D 0A 39 38 35 20 50 52 49 OTO 575..985 PRI
0001F0: 4E 54 20 22 4E 45 47 41 54 49 56 45 22 0D 0A 39 NT "NEGATIVE"..9
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 4C 45 54 54 45 52 22 0D 0A 32 30 20 50 52 ;"LETTER"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 31 30 30 20 50 52 49 4E 54 20 22 4C 45 54 54 45 100 PRINT "LETTE
000080: 52 20 47 55 45 53 53 49 4E 47 20 47 41 4D 45 22 R GUESSING GAME"
000090: 3A 20 50 52 49 4E 54 0D 0A 32 31 30 20 50 52 49 : PRINT..210 PRI
0000A0: 4E 54 20 22 49 27 4C 4C 20 54 48 49 4E 4B 20 4F NT "I'LL THINK O
0000B0: 46 20 41 20 4C 45 54 54 45 52 20 4F 46 20 54 48 F A LETTER OF TH
0000C0: 45 20 41 4C 50 48 41 42 45 54 2C 20 41 20 54 4F E ALPHABET, A TO
0000D0: 20 5A 2E 22 0D 0A 32 32 30 20 50 52 49 4E 54 20 Z."..220 PRINT
0000E0: 22 54 52 59 20 54 4F 20 47 55 45 53 53 20 4D 59 "TRY TO GUESS MY
0000F0: 20 4C 45 54 54 45 52 20 41 4E 44 20 49 27 4C 4C LETTER AND I'LL
000100: 20 47 49 56 45 20 59 4F 55 20 43 4C 55 45 53 22 GIVE YOU CLUES"
000110: 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 41 53 20 ..230 PRINT "AS
000120: 54 4F 20 48 4F 57 20 43 4C 4F 53 45 20 59 4F 55 TO HOW CLOSE YOU
000130: 27 52 45 20 47 45 54 54 49 4E 47 20 54 4F 20 4D 'RE GETTING TO M
000140: 59 20 4C 45 54 54 45 52 2E 22 0D 0A 33 31 30 20 Y LETTER."..310
000150: 4C 3D 36 35 2B 49 4E 54 28 52 4E 44 28 31 29 2A L=65+INT(RND(1)*
000160: 32 36 29 0D 0A 33 32 30 20 47 3D 30 0D 0A 33 34 26)..320 G=0..34
000170: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 0 PRINT: PRINT "
000180: 4F 2E 4B 2E 2C 20 49 20 48 41 56 45 20 41 20 4C O.K., I HAVE A L
000190: 45 54 54 45 52 2E 20 20 53 54 41 52 54 20 47 55 ETTER. START GU
0001A0: 45 53 53 49 4E 47 2E 22 0D 0A 34 31 30 20 50 52 ESSING."..410 PR
0001B0: 49 4E 54 3A 20 50 52 49 4E 54 20 22 57 48 41 54 INT: PRINT "WHAT
0001C0: 20 49 53 20 59 4F 55 52 20 47 55 45 53 53 22 3B IS YOUR GUESS";
0001D0: 0D 0A 34 32 30 20 47 3D 47 2B 31 0D 0A 34 33 30 ..420 G=G+1..430
0001E0: 20 49 4E 50 55 54 20 41 24 3A 20 41 3D 41 53 43 INPUT A$: A=ASC
0001F0: 28 41 24 29 3A 20 50 52 49 4E 54 0D 0A 34 34 30 (A$): PRINT..440
Size : 512 (Real : 512)
000000: 28 58 2C 59 29 3D 33 3A 50 3D 50 2B 31 0D 0A 36 (X,Y)=3:P=P+1..6
000010: 32 30 20 4E 45 58 54 20 59 0D 0A 36 33 30 20 4E 20 NEXT Y..630 N
000020: 45 58 54 20 58 0D 0A 36 33 35 20 58 31 3D 58 31 EXT X..635 X1=X1
000030: 2D 31 3A 59 31 3D 59 31 2D 31 3A 58 32 3D 58 32 -1:Y1=Y1-1:X2=X2
000040: 2B 31 3A 59 32 3D 59 32 2B 31 0D 0A 36 34 30 20 +1:Y2=Y2+1..640
000050: 47 4F 54 4F 20 32 31 30 0D 0A 36 35 30 20 45 4E GOTO 210..650 EN
000060: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 49 46 20 41 3D 4C 20 54 48 45 4E 20 35 30 30 IF A=L THEN 500
000010: 0D 0A 34 35 30 20 49 46 20 41 3E 4C 20 54 48 45 ..450 IF A>L THE
000020: 4E 20 34 38 30 0D 0A 34 36 30 20 50 52 49 4E 54 N 480..460 PRINT
000030: 20 22 54 4F 4F 20 4C 4F 57 2E 20 20 54 52 59 20 "TOO LOW. TRY
000040: 41 20 48 49 47 48 45 52 20 4C 45 54 54 45 52 2E A HIGHER LETTER.
000050: 22 3A 20 47 4F 54 4F 20 34 31 30 0D 0A 34 38 30 ": GOTO 410..480
000060: 20 50 52 49 4E 54 20 22 54 4F 4F 20 48 49 47 48 PRINT "TOO HIGH
000070: 2E 20 20 54 52 59 20 41 20 4C 4F 57 45 52 20 4C . TRY A LOWER L
000080: 45 54 54 45 52 2E 22 3A 20 47 4F 54 4F 20 34 31 ETTER.": GOTO 41
000090: 30 0D 0A 35 30 30 20 50 52 49 4E 54 3A 20 50 52 0..500 PRINT: PR
0000A0: 49 4E 54 20 22 59 4F 55 20 47 4F 54 20 49 54 20 INT "YOU GOT IT
0000B0: 49 4E 22 3B 47 3B 22 47 55 45 53 53 45 53 21 21 IN";G;"GUESSES!!
0000C0: 22 0D 0A 35 30 34 20 49 46 20 47 3C 3D 35 20 54 "..504 IF G<=5 T
0000D0: 48 45 4E 20 35 30 38 0D 0A 35 30 36 20 50 52 49 HEN 508..506 PRI
0000E0: 4E 54 20 22 42 55 54 20 49 54 20 53 48 4F 55 4C NT "BUT IT SHOUL
0000F0: 44 4E 27 54 20 54 41 4B 45 20 4D 4F 52 45 20 54 DN'T TAKE MORE T
000100: 48 41 4E 20 35 20 47 55 45 53 53 45 53 21 22 3A HAN 5 GUESSES!":
000110: 20 47 4F 54 4F 20 35 31 35 0D 0A 35 30 38 20 50 GOTO 515..508 P
000120: 52 49 4E 54 20 22 47 4F 4F 44 20 4A 4F 42 20 21 RINT "GOOD JOB !
000130: 21 21 21 21 22 0D 0A 35 31 30 20 46 4F 52 20 4E !!!!"..510 FOR N
000140: 3D 31 20 54 4F 20 31 35 3A 20 50 52 49 4E 54 20 =1 TO 15: PRINT
000150: 43 48 52 24 28 37 29 3B 3A 20 4E 45 58 54 20 4E CHR$(7);: NEXT N
000160: 0D 0A 35 31 35 20 50 52 49 4E 54 0D 0A 35 32 30 ..515 PRINT..520
000170: 20 50 52 49 4E 54 20 22 4C 45 54 27 53 20 50 4C PRINT "LET'S PL
000180: 41 4E 20 41 47 41 49 4E 2E 2E 2E 2E 2E 22 0D 0A AN AGAIN....."..
000190: 35 33 30 20 47 4F 54 4F 20 33 31 30 0D 0A 39 39 530 GOTO 310..99
0001A0: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 4C 49 46 45 32 22 0D 0A 34 20 50 52 49 4E 54 "LIFE2"..4 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 RSEY"..6 PRINT:
000060: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 37 20 PRINT: PRINT..7
000070: 44 49 4D 20 4E 28 36 2C 36 29 2C 4B 28 31 38 29 DIM N(6,6),K(18)
000080: 2C 41 28 31 36 29 2C 58 28 32 29 2C 59 28 32 29 ,A(16),X(2),Y(2)
000090: 0D 0A 38 20 44 41 54 41 20 33 2C 31 30 32 2C 31 ..8 DATA 3,102,1
0000A0: 30 33 2C 31 32 30 2C 31 33 30 2C 31 32 31 2C 31 03,120,130,121,1
0000B0: 31 32 2C 31 31 31 2C 31 32 0D 0A 39 20 44 41 54 12,111,12..9 DAT
0000C0: 41 20 32 31 2C 33 30 2C 31 30 32 30 2C 31 30 33 A 21,30,1020,103
0000D0: 30 2C 31 30 31 31 2C 31 30 32 31 2C 31 30 30 33 0,1011,1021,1003
0000E0: 2C 31 30 30 32 2C 31 30 31 32 0D 0A 31 30 20 46 ,1002,1012..10 F
0000F0: 4F 52 20 4D 3D 31 20 54 4F 20 31 38 3A 20 52 45 OR M=1 TO 18: RE
000100: 41 44 20 4B 28 4D 29 3A 20 4E 45 58 54 20 4D 0D AD K(M): NEXT M.
000110: 0A 31 33 20 44 41 54 41 20 2D 31 2C 30 2C 31 2C .13 DATA -1,0,1,
000120: 30 2C 30 2C 2D 31 2C 30 2C 31 2C 2D 31 2C 2D 31 0,0,-1,0,1,-1,-1
000130: 2C 31 2C 2D 31 2C 2D 31 2C 31 2C 31 2C 31 0D 0A ,1,-1,-1,1,1,1..
000140: 31 34 20 46 4F 52 20 4F 31 3D 20 31 20 54 4F 20 14 FOR O1= 1 TO
000150: 31 36 3A 20 52 45 41 44 20 41 28 4F 31 29 3A 20 16: READ A(O1):
000160: 4E 45 58 54 20 4F 31 0D 0A 32 30 20 47 4F 54 4F NEXT O1..20 GOTO
000170: 20 35 30 30 0D 0A 35 30 20 46 4F 52 20 4A 3D 31 500..50 FOR J=1
000180: 20 54 4F 20 35 0D 0A 35 31 20 46 4F 52 20 4B 3D TO 5..51 FOR K=
000190: 31 20 54 4F 20 35 0D 0A 35 35 20 49 46 20 4E 28 1 TO 5..55 IF N(
0001A0: 4A 2C 4B 29 3E 39 39 20 54 48 45 4E 20 47 4F 53 J,K)>99 THEN GOS
0001B0: 55 42 20 32 30 30 0D 0A 36 30 20 4E 45 58 54 20 UB 200..60 NEXT
0001C0: 4B 0D 0A 36 35 20 4E 45 58 54 20 4A 0D 0A 39 30 K..65 NEXT J..90
0001D0: 20 4B 3D 30 3A 20 4D 32 3D 30 3A 20 4D 33 3D 30 K=0: M2=0: M3=0
0001E0: 0D 0A 39 39 20 46 4F 52 20 4A 3D 30 20 54 4F 20 ..99 FOR J=0 TO
0001F0: 36 3A 20 50 52 49 4E 54 0D 0A 31 30 30 20 46 4F 6: PRINT..100 FO
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 2 PRINT TAB(34);
000010: 22 4C 49 46 45 22 0D 0A 34 20 50 52 49 4E 54 20 "LIFE"..4 PRINT
000020: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
000030: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
000040: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
000050: 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 50 SEY"..6 PRINT: P
000060: 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 38 20 50 RINT: PRINT..8 P
000070: 52 49 4E 54 20 22 45 4E 54 45 52 20 59 4F 55 52 RINT "ENTER YOUR
000080: 20 50 41 54 54 45 52 4E 3A 22 0D 0A 39 20 58 31 PATTERN:"..9 X1
000090: 3D 31 3A 20 59 31 3D 31 3A 20 58 32 3D 32 34 3A =1: Y1=1: X2=24:
0000A0: 20 59 32 3D 37 30 0D 0A 31 30 20 44 49 4D 20 41 Y2=70..10 DIM A
0000B0: 28 32 34 2C 37 30 29 2C 42 24 28 32 34 29 0D 0A (24,70),B$(24)..
0000C0: 32 30 20 43 3D 31 0D 0A 33 30 20 49 4E 50 55 54 20 C=1..30 INPUT
0000D0: 20 42 24 28 43 29 0D 0A 34 30 20 49 46 20 42 24 B$(C)..40 IF B$
0000E0: 28 43 29 3D 22 44 4F 4E 45 22 20 54 48 45 4E 20 (C)="DONE" THEN
0000F0: 42 24 28 43 29 3D 22 22 3A 20 47 4F 54 4F 20 38 B$(C)="": GOTO 8
000100: 30 0D 0A 35 30 20 49 46 20 4C 45 46 54 24 28 42 0..50 IF LEFT$(B
000110: 24 28 43 29 2C 31 29 3D 22 2E 22 20 54 48 45 4E $(C),1)="." THEN
000120: 20 42 24 28 43 29 3D 22 20 22 2B 52 49 47 48 54 B$(C)=" "+RIGHT
000130: 24 28 42 24 28 43 29 2C 4C 45 4E 28 42 24 28 43 $(B$(C),LEN(B$(C
000140: 29 29 2D 31 29 0D 0A 36 30 20 43 3D 43 2B 31 0D ))-1)..60 C=C+1.
000150: 0A 37 30 20 47 4F 54 4F 20 33 30 0D 0A 38 30 20 .70 GOTO 30..80
000160: 43 3D 43 2D 31 3A 20 4C 3D 30 0D 0A 39 30 20 46 C=C-1: L=0..90 F
000170: 4F 52 20 58 3D 31 20 54 4F 20 43 2D 31 0D 0A 31 OR X=1 TO C-1..1
000180: 30 30 20 49 46 20 4C 45 4E 28 42 24 28 58 29 29 00 IF LEN(B$(X))
000190: 3E 4C 20 54 48 45 4E 20 4C 3D 4C 45 4E 28 42 24 >L THEN L=LEN(B$
0001A0: 28 58 29 29 0D 0A 31 31 30 20 4E 45 58 54 20 58 (X))..110 NEXT X
0001B0: 0D 0A 31 32 30 20 58 31 3D 31 31 2D 43 2F 32 0D ..120 X1=11-C/2.
0001C0: 0A 31 33 30 20 59 31 3D 33 33 2D 4C 2F 32 0D 0A .130 Y1=33-L/2..
0001D0: 31 34 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 43 140 FOR X=1 TO C
0001E0: 0D 0A 31 35 30 20 46 4F 52 20 59 3D 31 20 54 4F ..150 FOR Y=1 TO
0001F0: 20 4C 45 4E 28 42 24 28 58 29 29 0D 0A 31 36 30 LEN(B$(X))..160
Size : 512 (Real : 512)
000000: 52 20 4B 3D 30 20 54 4F 20 36 0D 0A 31 30 31 20 R K=0 TO 6..101
000010: 49 46 20 4A 3C 3E 30 20 54 48 45 4E 20 49 46 20 IF J<>0 THEN IF
000020: 4A 3C 3E 36 20 54 48 45 4E 20 31 30 35 0D 0A 31 J<>6 THEN 105..1
000030: 30 32 20 49 46 20 4B 3D 36 20 54 48 45 4E 20 50 02 IF K=6 THEN P
000040: 52 49 4E 54 20 30 3B 3A 20 47 4F 54 4F 20 31 32 RINT 0;: GOTO 12
000050: 35 0D 0A 31 30 33 20 50 52 49 4E 54 20 4B 3B 3A 5..103 PRINT K;:
000060: 20 47 4F 54 4F 20 31 32 30 0D 0A 31 30 35 20 49 GOTO 120..105 I
000070: 46 20 4B 3C 3E 30 20 54 48 45 4E 20 49 46 20 4B F K<>0 THEN IF K
000080: 3C 3E 36 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 <>6 THEN 110..10
000090: 36 20 49 46 20 4A 3D 36 20 54 48 45 4E 20 50 52 6 IF J=6 THEN PR
0000A0: 49 4E 54 20 30 3A 20 47 4F 54 4F 20 31 32 36 0D INT 0: GOTO 126.
0000B0: 0A 31 30 37 20 50 52 49 4E 54 20 4A 3B 3A 20 47 .107 PRINT J;: G
0000C0: 4F 54 4F 20 31 32 30 0D 0A 31 31 30 20 47 4F 53 OTO 120..110 GOS
0000D0: 55 42 20 33 30 30 0D 0A 31 32 30 20 4E 45 58 54 UB 300..120 NEXT
0000E0: 20 4B 0D 0A 31 32 35 20 4E 45 58 54 20 4A 0D 0A K..125 NEXT J..
0000F0: 31 32 36 20 52 45 54 55 52 4E 0D 0A 32 30 30 20 126 RETURN..200
000100: 42 3D 31 3A 20 49 46 20 4E 28 4A 2C 4B 29 3E 39 B=1: IF N(J,K)>9
000110: 39 39 20 54 48 45 4E 20 42 3D 31 30 0D 0A 32 32 99 THEN B=10..22
000120: 30 20 46 4F 52 20 4F 31 3D 20 31 20 54 4F 20 31 0 FOR O1= 1 TO 1
000130: 35 20 53 54 45 50 20 32 0D 0A 32 33 30 20 4E 28 5 STEP 2..230 N(
000140: 4A 2B 41 28 4F 31 29 2C 4B 2B 41 28 4F 31 2B 31 J+A(O1),K+A(O1+1
000150: 29 29 3D 4E 28 4A 2B 41 28 4F 31 29 2C 4B 2B 41 ))=N(J+A(O1),K+A
000160: 28 4F 31 2B 31 29 29 2B 42 0D 0A 32 33 31 20 4E (O1+1))+B..231 N
000170: 45 58 54 20 4F 31 0D 0A 32 33 39 20 52 45 54 55 EXT O1..239 RETU
000180: 52 4E 0D 0A 33 30 30 20 49 46 20 4E 28 4A 2C 4B RN..300 IF N(J,K
000190: 29 3C 33 20 54 48 45 4E 20 33 39 39 0D 0A 33 30 )<3 THEN 399..30
0001A0: 35 20 46 4F 52 20 4F 31 3D 31 20 54 4F 20 31 38 5 FOR O1=1 TO 18
0001B0: 0D 0A 33 31 30 20 49 46 20 4E 28 4A 2C 4B 29 3D ..310 IF N(J,K)=
0001C0: 4B 28 4F 31 29 20 54 48 45 4E 20 33 35 30 0D 0A K(O1) THEN 350..
0001D0: 33 31 35 20 4E 45 58 54 20 4F 31 0D 0A 33 32 30 315 NEXT O1..320
0001E0: 20 47 4F 54 4F 20 33 39 39 0D 0A 33 35 30 20 49 GOTO 399..350 I
0001F0: 46 20 4F 31 3E 39 20 54 48 45 4E 20 33 36 30 0D F O1>9 THEN 360.
Size : 512 (Real : 512)
000000: 20 49 46 20 4D 49 44 24 28 42 24 28 58 29 2C 59 IF MID$(B$(X),Y
000010: 2C 31 29 3C 3E 22 20 22 20 54 48 45 4E 20 41 28 ,1)<>" " THEN A(
000020: 58 31 2B 58 2C 59 31 2B 59 29 3D 31 3A 50 3D 50 X1+X,Y1+Y)=1:P=P
000030: 2B 31 0D 0A 31 37 30 20 4E 45 58 54 20 59 0D 0A +1..170 NEXT Y..
000040: 31 38 30 20 4E 45 58 54 20 58 0D 0A 32 30 30 20 180 NEXT X..200
000050: 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E PRINT:PRINT:PRIN
000060: 54 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 47 45 T..210 PRINT "GE
000070: 4E 45 52 41 54 49 4F 4E 3A 22 3B 47 2C 22 50 4F NERATION:";G,"PO
000080: 50 55 4C 41 54 49 4F 4E 3A 22 3B 50 3B 3A 20 49 PULATION:";P;: I
000090: 46 20 49 39 20 54 48 45 4E 20 50 52 49 4E 54 20 F I9 THEN PRINT
0000A0: 22 49 4E 56 41 4C 49 44 21 22 3B 0D 0A 32 31 35 "INVALID!";..215
0000B0: 20 58 33 3D 32 34 3A 59 33 3D 37 30 3A 58 34 3D X3=24:Y3=70:X4=
0000C0: 31 3A 20 59 34 3D 31 3A 20 50 3D 30 0D 0A 32 32 1: Y4=1: P=0..22
0000D0: 30 20 47 3D 47 2B 31 0D 0A 32 32 35 20 46 4F 52 0 G=G+1..225 FOR
0000E0: 20 58 3D 31 20 54 4F 20 58 31 2D 31 3A 20 50 52 X=1 TO X1-1: PR
0000F0: 49 4E 54 3A 20 4E 45 58 54 20 58 0D 0A 32 33 30 INT: NEXT X..230
000100: 20 46 4F 52 20 58 3D 58 31 20 54 4F 20 58 32 0D FOR X=X1 TO X2.
000110: 0A 32 34 30 20 50 52 49 4E 54 0D 0A 32 35 30 20 .240 PRINT..250
000120: 46 4F 52 20 59 3D 59 31 20 54 4F 20 59 32 0D 0A FOR Y=Y1 TO Y2..
000130: 32 35 33 20 49 46 20 41 28 58 2C 59 29 3D 32 20 253 IF A(X,Y)=2
000140: 54 48 45 4E 20 41 28 58 2C 59 29 3D 30 3A 47 4F THEN A(X,Y)=0:GO
000150: 54 4F 20 32 37 30 0D 0A 32 35 36 20 49 46 20 41 TO 270..256 IF A
000160: 28 58 2C 59 29 3D 33 20 54 48 45 4E 20 41 28 58 (X,Y)=3 THEN A(X
000170: 2C 59 29 3D 31 3A 47 4F 54 4F 20 32 36 31 0D 0A ,Y)=1:GOTO 261..
000180: 32 36 30 20 49 46 20 41 28 58 2C 59 29 3C 3E 31 260 IF A(X,Y)<>1
000190: 20 54 48 45 4E 20 32 37 30 0D 0A 32 36 31 20 50 THEN 270..261 P
0001A0: 52 49 4E 54 20 54 41 42 28 59 29 3B 22 2A 22 3B RINT TAB(Y);"*";
0001B0: 0D 0A 32 36 32 20 49 46 20 58 3C 58 33 20 54 48 ..262 IF X<X3 TH
0001C0: 45 4E 20 58 33 3D 58 0D 0A 32 36 34 20 49 46 20 EN X3=X..264 IF
0001D0: 58 3E 58 34 20 54 48 45 4E 20 58 34 3D 58 0D 0A X>X4 THEN X4=X..
0001E0: 32 36 36 20 49 46 20 59 3C 59 33 20 54 48 45 4E 266 IF Y<Y3 THEN
0001F0: 20 59 33 3D 59 0D 0A 32 36 38 20 49 46 20 59 3E Y3=Y..268 IF Y>
Size : 512 (Real : 512)
000000: 0A 33 35 31 20 4E 28 4A 2C 4B 29 3D 31 30 30 3A .351 N(J,K)=100:
000010: 20 4D 32 3D 4D 32 2B 31 3A 20 50 52 49 4E 54 20 M2=M2+1: PRINT
000020: 22 20 2A 20 22 3B 0D 0A 33 35 35 20 52 45 54 55 " * ";..355 RETU
000030: 52 4E 0D 0A 33 36 30 20 4E 28 4A 2C 4B 29 3D 31 RN..360 N(J,K)=1
000040: 30 30 30 3A 20 4D 33 3D 4D 33 2B 31 3A 20 50 52 000: M3=M3+1: PR
000050: 49 4E 54 20 22 20 23 20 22 3B 0D 0A 33 36 35 20 INT " # ";..365
000060: 52 45 54 55 52 4E 0D 0A 33 39 39 20 4E 28 4A 2C RETURN..399 N(J,
000070: 4B 29 3D 30 3A 20 50 52 49 4E 54 20 22 20 20 20 K)=0: PRINT "
000080: 22 3B 3A 20 52 45 54 55 52 4E 0D 0A 35 30 30 20 ";: RETURN..500
000090: 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 55 PRINT TAB(10);"U
0000A0: 2E 42 2E 20 4C 49 46 45 20 47 41 4D 45 22 0D 0A .B. LIFE GAME"..
0000B0: 35 30 35 20 4D 32 3D 30 3A 20 4D 33 3D 30 0D 0A 505 M2=0: M3=0..
0000C0: 35 31 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 35 510 FOR J=1 TO 5
0000D0: 0D 0A 35 31 31 20 46 4F 52 20 4B 3D 31 20 54 4F ..511 FOR K=1 TO
0000E0: 20 35 0D 0A 35 31 35 20 4E 28 4A 2C 4B 29 3D 30 5..515 N(J,K)=0
0000F0: 0D 0A 35 31 36 20 4E 45 58 54 20 4B 0D 0A 35 31 ..516 NEXT K..51
000100: 37 20 4E 45 58 54 20 4A 0D 0A 35 31 39 20 46 4F 7 NEXT J..519 FO
000110: 52 20 42 3D 31 20 54 4F 20 32 3A 20 50 31 3D 33 R B=1 TO 2: P1=3
000120: 3A 20 49 46 20 42 3D 32 20 54 48 45 4E 20 50 31 : IF B=2 THEN P1
000130: 3D 33 30 0D 0A 35 32 30 20 50 52 49 4E 54 3A 50 =30..520 PRINT:P
000140: 52 49 4E 54 20 22 50 4C 41 59 45 52 22 3B 42 3B RINT "PLAYER";B;
000150: 22 20 2D 20 33 20 4C 49 56 45 20 50 49 45 43 45 " - 3 LIVE PIECE
000160: 53 2E 22 0D 0A 35 33 35 20 46 4F 52 20 4B 31 3D S."..535 FOR K1=
000170: 31 20 54 4F 20 33 3A 20 47 4F 53 55 42 20 37 30 1 TO 3: GOSUB 70
000180: 30 0D 0A 35 34 30 20 4E 28 58 28 42 29 2C 59 28 0..540 N(X(B),Y(
000190: 42 29 29 3D 50 31 3A 20 4E 45 58 54 20 4B 31 0D B))=P1: NEXT K1.
0001A0: 0A 35 34 32 20 4E 45 58 54 20 42 0D 0A 35 35 39 .542 NEXT B..559
0001B0: 20 47 4F 53 55 42 20 39 30 0D 0A 35 36 30 20 50 GOSUB 90..560 P
0001C0: 52 49 4E 54 3A 20 47 4F 53 55 42 20 35 30 0D 0A RINT: GOSUB 50..
0001D0: 35 37 30 20 49 46 20 4D 32 3D 30 20 54 48 45 4E 570 IF M2=0 THEN
0001E0: 20 49 46 20 4D 33 3D 30 20 54 48 45 4E 20 35 37 IF M3=0 THEN 57
0001F0: 34 0D 0A 35 37 31 20 49 46 20 4D 33 3D 30 20 54 4..571 IF M3=0 T
Size : 512 (Real : 512)
000000: 59 34 20 54 48 45 4E 20 59 34 3D 59 0D 0A 32 37 Y4 THEN Y4=Y..27
000010: 30 20 4E 45 58 54 20 59 0D 0A 32 39 30 20 4E 45 0 NEXT Y..290 NE
000020: 58 54 20 58 0D 0A 32 39 35 20 46 4F 52 20 58 3D XT X..295 FOR X=
000030: 58 32 2B 31 20 54 4F 20 32 34 3A 20 50 52 49 4E X2+1 TO 24: PRIN
000040: 54 3A 20 4E 45 58 54 20 58 0D 0A 32 39 39 20 58 T: NEXT X..299 X
000050: 31 3D 58 33 3A 20 58 32 3D 58 34 3A 20 59 31 3D 1=X3: X2=X4: Y1=
000060: 59 33 3A 20 59 32 3D 59 34 0D 0A 33 30 31 20 49 Y3: Y2=Y4..301 I
000070: 46 20 58 31 3C 33 20 54 48 45 4E 20 58 31 3D 33 F X1<3 THEN X1=3
000080: 3A 49 39 3D 2D 31 0D 0A 33 30 33 20 49 46 20 58 :I9=-1..303 IF X
000090: 32 3E 32 32 20 54 48 45 4E 20 58 32 3D 32 32 3A 2>22 THEN X2=22:
0000A0: 49 39 3D 2D 31 0D 0A 33 30 35 20 49 46 20 59 31 I9=-1..305 IF Y1
0000B0: 3C 33 20 54 48 45 4E 20 59 31 3D 33 3A 49 39 3D <3 THEN Y1=3:I9=
0000C0: 2D 31 0D 0A 33 30 37 20 49 46 20 59 32 3E 36 38 -1..307 IF Y2>68
0000D0: 20 54 48 45 4E 20 59 32 3D 36 38 3A 49 39 3D 2D THEN Y2=68:I9=-
0000E0: 31 0D 0A 33 30 39 20 50 3D 30 0D 0A 35 30 30 20 1..309 P=0..500
0000F0: 46 4F 52 20 58 3D 58 31 2D 31 20 54 4F 20 58 32 FOR X=X1-1 TO X2
000100: 2B 31 0D 0A 35 31 30 20 46 4F 52 20 59 3D 59 31 +1..510 FOR Y=Y1
000110: 2D 31 20 54 4F 20 59 32 2B 31 0D 0A 35 32 30 20 -1 TO Y2+1..520
000120: 43 3D 30 0D 0A 35 33 30 20 46 4F 52 20 49 3D 58 C=0..530 FOR I=X
000130: 2D 31 20 54 4F 20 58 2B 31 0D 0A 35 34 30 20 46 -1 TO X+1..540 F
000140: 4F 52 20 4A 3D 59 2D 31 20 54 4F 20 59 2B 31 0D OR J=Y-1 TO Y+1.
000150: 0A 35 35 30 20 49 46 20 41 28 49 2C 4A 29 3D 31 .550 IF A(I,J)=1
000160: 20 4F 52 20 41 28 49 2C 4A 29 3D 32 20 54 48 45 OR A(I,J)=2 THE
000170: 4E 20 43 3D 43 2B 31 0D 0A 35 36 30 20 4E 45 58 N C=C+1..560 NEX
000180: 54 20 4A 0D 0A 35 37 30 20 4E 45 58 54 20 49 0D T J..570 NEXT I.
000190: 0A 35 38 30 20 49 46 20 41 28 58 2C 59 29 3D 30 .580 IF A(X,Y)=0
0001A0: 20 54 48 45 4E 20 36 31 30 0D 0A 35 39 30 20 49 THEN 610..590 I
0001B0: 46 20 43 3C 33 20 4F 52 20 43 3E 34 20 54 48 45 F C<3 OR C>4 THE
0001C0: 4E 20 41 28 58 2C 59 29 3D 32 3A 20 47 4F 54 4F N A(X,Y)=2: GOTO
0001D0: 20 36 30 30 0D 0A 35 39 35 20 50 3D 50 2B 31 0D 600..595 P=P+1.
0001E0: 0A 36 30 30 20 47 4F 54 4F 20 36 32 30 0D 0A 36 .600 GOTO 620..6
0001F0: 31 30 20 49 46 20 43 3D 33 20 54 48 45 4E 20 41 10 IF C=3 THEN A
Size : 512 (Real : 512)
000000: 48 45 4E 20 42 3D 31 3A 20 47 4F 54 4F 20 35 37 HEN B=1: GOTO 57
000010: 35 0D 0A 35 37 32 20 49 46 20 4D 32 3D 30 20 54 5..572 IF M2=0 T
000020: 48 45 4E 20 42 3D 32 3A 20 47 4F 54 4F 20 35 37 HEN B=2: GOTO 57
000030: 35 0D 0A 35 37 33 20 47 4F 54 4F 20 35 38 30 0D 5..573 GOTO 580.
000040: 0A 35 37 34 20 50 52 49 4E 54 3A 20 50 52 49 4E .574 PRINT: PRIN
000050: 54 20 22 41 20 44 52 41 57 22 3A 47 4F 54 4F 20 T "A DRAW":GOTO
000060: 38 30 30 0D 0A 35 37 35 20 50 52 49 4E 54 3A 20 800..575 PRINT:
000070: 50 52 49 4E 54 20 22 50 4C 41 59 45 52 22 3B 42 PRINT "PLAYER";B
000080: 3B 22 49 53 20 54 48 45 20 57 49 4E 4E 45 52 22 ;"IS THE WINNER"
000090: 3A 47 4F 54 4F 20 38 30 30 0D 0A 35 38 30 20 46 :GOTO 800..580 F
0000A0: 4F 52 20 42 3D 31 20 54 4F 20 32 3A 20 50 52 49 OR B=1 TO 2: PRI
0000B0: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
0000C0: 20 22 50 4C 41 59 45 52 22 3B 42 3B 3A 20 47 4F "PLAYER";B;: GO
0000D0: 53 55 42 20 37 30 30 0D 0A 35 38 31 20 49 46 20 SUB 700..581 IF
0000E0: 42 3D 39 39 20 54 48 45 4E 20 35 36 30 0D 0A 35 B=99 THEN 560..5
0000F0: 38 32 20 4E 45 58 54 20 42 0D 0A 35 38 36 20 4E 82 NEXT B..586 N
000100: 28 58 28 31 29 2C 59 28 31 29 29 3D 31 30 30 3A (X(1),Y(1))=100:
000110: 20 4E 28 58 28 32 29 2C 59 28 32 29 29 3D 31 30 N(X(2),Y(2))=10
000120: 30 30 0D 0A 35 39 36 20 47 4F 54 4F 20 35 36 30 00..596 GOTO 560
000130: 0D 0A 37 30 30 20 50 52 49 4E 54 20 22 58 2C 59 ..700 PRINT "X,Y
000140: 22 3A 50 52 49 4E 54 22 58 58 58 58 58 58 22 3B ":PRINT"XXXXXX";
000150: 43 48 52 24 28 31 33 29 3B 22 24 24 24 24 24 24 CHR$(13);"$$$$$$
000160: 22 3B 43 48 52 24 28 31 33 29 3B 22 26 26 26 26 ";CHR$(13);"&&&&
000170: 26 26 22 3B 0D 0A 37 30 31 20 50 52 49 4E 54 20 &&";..701 PRINT
000180: 43 48 52 24 28 31 33 29 3B 3A 20 49 4E 50 55 54 CHR$(13);: INPUT
000190: 20 59 28 42 29 2C 58 28 42 29 0D 0A 37 30 35 20 Y(B),X(B)..705
0001A0: 49 46 20 58 28 42 29 3C 3D 35 20 54 48 45 4E 20 IF X(B)<=5 THEN
0001B0: 49 46 20 58 28 42 29 3E 30 20 54 48 45 4E 20 37 IF X(B)>0 THEN 7
0001C0: 30 38 0D 0A 37 30 36 20 47 4F 54 4F 20 37 35 30 08..706 GOTO 750
0001D0: 0D 0A 37 30 38 20 49 46 20 59 28 42 29 3C 3D 35 ..708 IF Y(B)<=5
0001E0: 20 54 48 45 4E 20 49 46 20 59 28 42 29 3E 30 20 THEN IF Y(B)>0
0001F0: 54 48 45 4E 20 37 31 35 0D 0A 37 31 30 20 47 4F THEN 715..710 GO
Size : 512 (Real : 512)
000000: 4B 53 2C 2E 2E 2E 54 4F 54 4F 20 57 41 53 20 48 KS,...TOTO WAS H
000010: 49 53 20 4E 41 4D 45 2E 22 3A 20 47 4F 54 4F 20 IS NAME.": GOTO
000020: 37 30 0D 0A 36 36 20 50 52 49 4E 54 20 22 59 45 70..66 PRINT "YE
000030: 41 21 20 20 59 4F 55 27 52 45 20 41 20 52 45 41 A! YOU'RE A REA
000040: 4C 20 4C 49 54 45 52 41 54 55 52 45 20 47 49 41 L LITERATURE GIA
000050: 4E 54 2E 22 0D 0A 36 37 20 52 3D 52 2B 31 0D 0A NT."..67 R=R+1..
000060: 37 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 70 PRINT:PRINT..
000070: 37 31 20 50 52 49 4E 54 20 22 57 48 4F 20 57 41 71 PRINT "WHO WA
000080: 53 20 54 48 45 20 46 41 49 52 20 4D 41 49 44 45 S THE FAIR MAIDE
000090: 4E 20 57 48 4F 20 41 54 45 20 54 48 45 20 50 4F N WHO ATE THE PO
0000A0: 49 53 4F 4E 20 41 50 50 4C 45 22 0D 0A 37 32 20 ISON APPLE"..72
0000B0: 50 52 49 4E 54 20 22 31 29 53 4C 45 45 50 49 4E PRINT "1)SLEEPIN
0000C0: 47 20 42 45 41 55 54 59 2C 20 32 29 43 49 4E 44 G BEAUTY, 2)CIND
0000D0: 45 52 45 4C 4C 41 2C 20 33 29 53 4E 4F 57 20 57 ERELLA, 3)SNOW W
0000E0: 48 49 54 45 2C 20 34 29 57 45 4E 44 59 22 3B 0D HITE, 4)WENDY";.
0000F0: 0A 37 33 20 49 4E 50 55 54 20 41 3A 20 49 46 20 .73 INPUT A: IF
000100: 41 3D 33 20 54 48 45 4E 20 37 36 0D 0A 37 34 20 A=3 THEN 76..74
000110: 50 52 49 4E 54 20 22 4F 48 2C 20 43 4F 4D 45 20 PRINT "OH, COME
000120: 4F 4E 20 4E 4F 57 2E 2E 2E 49 54 20 57 41 53 20 ON NOW...IT WAS
000130: 53 4E 4F 57 20 57 48 49 54 45 2E 22 0D 0A 37 35 SNOW WHITE."..75
000140: 20 47 4F 54 4F 20 38 30 0D 0A 37 36 20 50 52 49 GOTO 80..76 PRI
000150: 4E 54 20 22 47 4F 4F 44 20 4D 45 4D 4F 52 59 21 NT "GOOD MEMORY!
000160: 22 0D 0A 37 37 20 52 3D 52 2B 31 0D 0A 38 30 20 "..77 R=R+1..80
000170: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 38 35 20 PRINT:PRINT..85
000180: 49 46 20 52 3D 34 20 54 48 45 4E 20 31 30 30 0D IF R=4 THEN 100.
000190: 0A 39 30 20 49 46 20 52 3C 32 20 54 48 45 4E 20 .90 IF R<2 THEN
0001A0: 32 30 30 0D 0A 39 32 20 50 52 49 4E 54 20 22 4E 200..92 PRINT "N
0001B0: 4F 54 20 42 41 44 2C 20 42 55 54 20 59 4F 55 20 OT BAD, BUT YOU
0001C0: 4D 49 47 48 54 20 53 50 45 4E 44 20 41 20 4C 49 MIGHT SPEND A LI
0001D0: 54 54 4C 45 20 4D 4F 52 45 20 54 49 4D 45 22 0D TTLE MORE TIME".
0001E0: 0A 39 34 20 50 52 49 4E 54 20 22 52 45 41 44 49 .94 PRINT "READI
0001F0: 4E 47 20 54 48 45 20 4E 55 52 53 45 52 59 20 47 NG THE NURSERY G
Size : 512 (Real : 512)
000000: 54 4F 20 37 35 30 0D 0A 37 31 35 20 49 46 20 4E TO 750..715 IF N
000010: 28 58 28 42 29 2C 59 28 42 29 29 3C 3E 30 20 54 (X(B),Y(B))<>0 T
000020: 48 45 4E 20 37 35 30 0D 0A 37 32 30 20 49 46 20 HEN 750..720 IF
000030: 42 3D 31 20 54 48 45 4E 20 52 45 54 55 52 4E 0D B=1 THEN RETURN.
000040: 0A 37 32 35 20 49 46 20 58 28 31 29 3D 58 28 32 .725 IF X(1)=X(2
000050: 29 20 54 48 45 4E 20 49 46 20 59 28 31 29 3D 59 ) THEN IF Y(1)=Y
000060: 28 32 29 20 54 48 45 4E 20 37 34 30 0D 0A 37 33 (2) THEN 740..73
000070: 30 20 52 45 54 55 52 4E 0D 0A 37 34 30 20 50 52 0 RETURN..740 PR
000080: 49 4E 54 20 22 53 41 4D 45 20 43 4F 4F 52 44 2E INT "SAME COORD.
000090: 20 20 53 45 54 20 54 4F 20 30 22 0D 0A 37 34 31 SET TO 0"..741
0000A0: 20 4E 28 58 28 42 29 2B 31 2C 59 28 42 29 2B 31 N(X(B)+1,Y(B)+1
0000B0: 29 3D 30 3A 20 42 3D 39 39 3A 20 52 45 54 55 52 )=0: B=99: RETUR
0000C0: 4E 0D 0A 37 35 30 20 50 52 49 4E 54 20 22 49 4C N..750 PRINT "IL
0000D0: 4C 45 47 41 4C 20 43 4F 4F 52 44 53 2E 20 52 45 LEGAL COORDS. RE
0000E0: 54 59 50 45 22 3A 20 47 4F 54 4F 20 37 30 30 0D TYPE": GOTO 700.
0000F0: 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 .999 END........
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 45 41 54 53 2E 22 0D 0A 39 36 20 53 54 4F 50 REATS."..96 STOP
000010: 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 57 4F 57 ..100 PRINT "WOW
000020: 21 20 20 54 48 41 54 27 53 20 53 55 50 45 52 21 ! THAT'S SUPER!
000030: 20 20 59 4F 55 20 52 45 41 4C 4C 59 20 4B 4E 4F YOU REALLY KNO
000040: 57 20 59 4F 55 52 20 4E 55 52 53 45 52 59 22 0D W YOUR NURSERY".
000050: 0A 31 31 30 20 50 52 49 4E 54 20 22 59 4F 55 52 .110 PRINT "YOUR
000060: 20 4E 45 58 54 20 51 55 49 5A 20 57 49 4C 4C 20 NEXT QUIZ WILL
000070: 42 45 20 4F 4E 20 32 4E 44 20 43 45 4E 54 55 52 BE ON 2ND CENTUR
000080: 59 20 43 48 49 4E 45 53 45 22 0D 0A 31 32 30 20 Y CHINESE"..120
000090: 50 52 49 4E 54 20 22 4C 49 54 45 52 41 54 55 52 PRINT "LITERATUR
0000A0: 45 20 28 48 41 2C 20 48 41 2C 20 48 41 29 22 0D E (HA, HA, HA)".
0000B0: 0A 31 33 30 20 53 54 4F 50 0D 0A 32 30 30 20 50 .130 STOP..200 P
0000C0: 52 49 4E 54 20 22 55 47 48 2E 20 20 54 48 41 54 RINT "UGH. THAT
0000D0: 20 57 41 53 20 44 45 46 49 4E 49 54 45 4C 59 20 WAS DEFINITELY
0000E0: 4E 4F 54 20 54 4F 4F 20 53 57 49 46 54 2E 20 20 NOT TOO SWIFT.
0000F0: 42 41 43 4B 20 54 4F 22 0D 0A 32 30 35 20 50 52 BACK TO"..205 PR
000100: 49 4E 54 20 22 4E 55 52 53 45 52 59 20 53 43 48 INT "NURSERY SCH
000110: 4F 4F 4C 20 46 4F 52 20 59 4F 55 2C 20 4D 59 20 OOL FOR YOU, MY
000120: 46 52 49 45 4E 44 2E 22 0D 0A 39 39 39 20 45 4E FRIEND."..999 EN
000130: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 4C 4F 56 45 22 0D 0A 34 20 50 52 49 4E 54 20 "LOVE"..4 PRINT
000020: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
000030: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
000040: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
000050: 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 50 SEY"..6 PRINT: P
000060: 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 32 30 20 RINT: PRINT..20
000070: 50 52 49 4E 54 20 22 41 20 54 52 49 42 55 54 45 PRINT "A TRIBUTE
000080: 20 54 4F 20 54 48 45 20 47 52 45 41 54 20 41 4D TO THE GREAT AM
000090: 45 52 49 43 41 4E 20 41 52 54 49 53 54 2C 20 52 ERICAN ARTIST, R
0000A0: 4F 42 45 52 54 20 49 4E 44 49 41 4E 41 2E 22 0D OBERT INDIANA.".
0000B0: 0A 33 30 20 50 52 49 4E 54 20 22 48 49 53 20 47 .30 PRINT "HIS G
0000C0: 52 45 41 54 45 53 54 20 57 4F 52 4B 20 57 49 4C REATEST WORK WIL
0000D0: 4C 20 42 45 20 52 45 50 52 4F 44 55 43 45 44 20 L BE REPRODUCED
0000E0: 57 49 54 48 20 41 20 4D 45 53 53 41 47 45 20 4F WITH A MESSAGE O
0000F0: 46 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 59 4F F"..40 PRINT "YO
000100: 55 52 20 43 48 4F 49 43 45 20 55 50 20 54 4F 20 UR CHOICE UP TO
000110: 36 30 20 43 48 41 52 41 43 54 45 52 53 2E 20 20 60 CHARACTERS.
000120: 49 46 20 59 4F 55 20 43 41 4E 27 54 20 54 48 49 IF YOU CAN'T THI
000130: 4E 4B 20 4F 46 22 0D 0A 35 30 20 50 52 49 4E 54 NK OF"..50 PRINT
000140: 20 22 41 20 4D 45 53 53 41 47 45 2C 20 53 49 4D "A MESSAGE, SIM
000150: 50 4C 45 20 54 59 50 45 20 54 48 45 20 57 4F 52 PLE TYPE THE WOR
000160: 44 20 27 4C 4F 56 45 27 22 3A 20 50 52 49 4E 54 D 'LOVE'": PRINT
000170: 0D 0A 36 30 20 49 4E 50 55 54 20 22 59 4F 55 52 ..60 INPUT "YOUR
000180: 20 4D 45 53 53 41 47 45 2C 20 50 4C 45 41 53 45 MESSAGE, PLEASE
000190: 22 3B 41 24 3A 20 4C 3D 4C 45 4E 28 41 24 29 0D ";A$: L=LEN(A$).
0001A0: 0A 37 30 20 44 49 4D 20 54 24 28 31 32 30 29 3A .70 DIM T$(120):
0001B0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 3A 20 FOR I=1 TO 10:
0001C0: 50 52 49 4E 54 3A 20 4E 45 58 54 20 49 0D 0A 31 PRINT: NEXT I..1
0001D0: 30 30 20 46 4F 52 20 4A 3D 30 20 54 4F 20 49 4E 00 FOR J=0 TO IN
0001E0: 54 28 36 30 2F 4C 29 0D 0A 31 31 30 20 46 4F 52 T(60/L)..110 FOR
0001F0: 20 49 3D 31 20 54 4F 20 4C 0D 0A 31 32 30 20 54 I=1 TO L..120 T
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 32 35 29 3B 1 PRINT TAB(25);
000010: 22 4C 49 54 45 52 41 54 55 52 45 20 51 55 49 5A "LITERATURE QUIZ
000020: 22 0D 0A 32 20 50 52 49 4E 54 20 54 41 42 28 31 "..2 PRINT TAB(1
000030: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
000040: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
000050: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
000060: 0A 33 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 .3 PRINT:PRINT:P
000070: 52 49 4E 54 0D 0A 35 20 52 3D 30 0D 0A 31 30 20 RINT..5 R=0..10
000080: 50 52 49 4E 54 20 22 54 45 53 54 20 59 4F 55 52 PRINT "TEST YOUR
000090: 20 4B 4E 4F 57 4C 45 44 47 45 20 4F 46 20 43 48 KNOWLEDGE OF CH
0000A0: 49 4C 44 52 45 4E 27 53 20 4C 49 54 45 52 41 54 ILDREN'S LITERAT
0000B0: 55 52 45 2E 22 0D 0A 31 32 20 50 52 49 4E 54 3A URE."..12 PRINT:
0000C0: 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 PRINT "THIS IS
0000D0: 41 20 4D 55 4C 54 49 50 4C 45 2D 43 48 4F 49 43 A MULTIPLE-CHOIC
0000E0: 45 20 51 55 49 5A 2E 22 0D 0A 31 33 20 50 52 49 E QUIZ."..13 PRI
0000F0: 4E 54 20 22 54 59 50 45 20 41 20 31 2C 20 32 2C NT "TYPE A 1, 2,
000100: 20 33 2C 20 4F 52 20 34 20 41 46 54 45 52 20 54 3, OR 4 AFTER T
000110: 48 45 20 51 55 45 53 54 49 4F 4E 20 4D 41 52 4B HE QUESTION MARK
000120: 2E 22 0D 0A 31 35 20 50 52 49 4E 54 3A 20 50 52 ."..15 PRINT: PR
000130: 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 22 INT "GOOD LUCK!"
000140: 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A : PRINT: PRINT..
000150: 34 30 20 50 52 49 4E 54 20 22 49 4E 20 50 49 4E 40 PRINT "IN PIN
000160: 4F 43 43 48 49 4F 2C 20 57 48 41 54 20 57 41 53 OCCHIO, WHAT WAS
000170: 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 THE NAME OF THE
000180: 20 43 41 54 22 0D 0A 34 32 20 50 52 49 4E 54 20 CAT"..42 PRINT
000190: 22 31 29 54 49 47 47 45 52 2C 20 32 29 43 49 43 "1)TIGGER, 2)CIC
0001A0: 45 52 4F 2C 20 33 29 46 49 47 41 52 4F 2C 20 34 ERO, 3)FIGARO, 4
0001B0: 29 47 55 49 50 45 54 54 4F 22 3B 0D 0A 34 33 20 )GUIPETTO";..43
0001C0: 49 4E 50 55 54 20 41 3A 20 49 46 20 41 3D 33 20 INPUT A: IF A=3
0001D0: 54 48 45 4E 20 34 36 0D 0A 34 34 20 50 52 49 4E THEN 46..44 PRIN
0001E0: 54 20 22 53 4F 52 52 59 2E 2E 2E 46 49 47 41 52 T "SORRY...FIGAR
0001F0: 4F 20 57 41 53 20 48 49 53 20 4E 41 4D 45 2E 22 O WAS HIS NAME."
Size : 512 (Real : 512)
000000: 24 28 4A 2A 4C 2B 49 29 3D 4D 49 44 24 28 41 24 $(J*L+I)=MID$(A$
000010: 2C 49 2C 31 29 0D 0A 31 33 30 20 4E 45 58 54 20 ,I,1)..130 NEXT
000020: 49 3A 20 4E 45 58 54 20 4A 0D 0A 31 34 30 20 43 I: NEXT J..140 C
000030: 3D 30 0D 0A 32 30 30 20 41 31 3D 31 3A 20 50 3D =0..200 A1=1: P=
000040: 31 3A 20 43 3D 43 2B 31 3A 20 49 46 20 43 3D 33 1: C=C+1: IF C=3
000050: 37 20 54 48 45 4E 20 39 39 39 0D 0A 32 30 35 20 7 THEN 999..205
000060: 50 52 49 4E 54 0D 0A 32 31 30 20 52 45 41 44 20 PRINT..210 READ
000070: 41 3A 20 41 31 3D 41 31 2B 41 3A 20 49 46 20 50 A: A1=A1+A: IF P
000080: 3D 31 20 54 48 45 4E 20 33 30 30 0D 0A 32 34 30 =1 THEN 300..240
000090: 20 46 4F 52 20 49 3D 31 20 54 4F 20 41 3A 20 50 FOR I=1 TO A: P
0000A0: 52 49 4E 54 20 22 20 22 3B 3A 20 4E 45 58 54 20 RINT " ";: NEXT
0000B0: 49 3A 20 50 3D 31 3A 20 47 4F 54 4F 20 34 30 30 I: P=1: GOTO 400
0000C0: 0D 0A 33 30 30 20 46 4F 52 20 49 3D 41 31 2D 41 ..300 FOR I=A1-A
0000D0: 20 54 4F 20 41 31 2D 31 3A 20 50 52 49 4E 54 20 TO A1-1: PRINT
0000E0: 54 24 28 49 29 3B 3A 20 4E 45 58 54 20 49 3A 20 T$(I);: NEXT I:
0000F0: 50 3D 30 0D 0A 34 30 30 20 49 46 20 41 31 3E 36 P=0..400 IF A1>6
000100: 30 20 54 48 45 4E 20 32 30 30 0D 0A 34 31 30 20 0 THEN 200..410
000110: 47 4F 54 4F 20 32 31 30 0D 0A 36 30 30 20 44 41 GOTO 210..600 DA
000120: 54 41 20 36 30 2C 31 2C 31 32 2C 32 36 2C 39 2C TA 60,1,12,26,9,
000130: 31 32 2C 33 2C 38 2C 32 34 2C 31 37 2C 38 2C 34 12,3,8,24,17,8,4
000140: 2C 36 2C 32 33 2C 32 31 2C 36 2C 34 2C 36 2C 32 ,6,23,21,6,4,6,2
000150: 32 2C 31 32 2C 35 2C 36 2C 35 0D 0A 36 31 30 20 2,12,5,6,5..610
000160: 44 41 54 41 20 34 2C 36 2C 32 31 2C 31 31 2C 38 DATA 4,6,21,11,8
000170: 2C 36 2C 34 2C 34 2C 36 2C 32 31 2C 31 30 2C 31 ,6,4,4,6,21,10,1
000180: 30 2C 35 2C 34 2C 34 2C 36 2C 32 31 2C 39 2C 31 0,5,4,4,6,21,9,1
000190: 31 2C 35 2C 34 0D 0A 36 32 30 20 44 41 54 41 20 1,5,4..620 DATA
0001A0: 34 2C 36 2C 32 31 2C 38 2C 31 31 2C 36 2C 34 2C 4,6,21,8,11,6,4,
0001B0: 34 2C 36 2C 32 31 2C 37 2C 31 31 2C 37 2C 34 2C 4,6,21,7,11,7,4,
0001C0: 34 2C 36 2C 32 31 2C 36 2C 31 31 2C 38 2C 34 0D 4,6,21,6,11,8,4.
0001D0: 0A 36 33 30 20 44 41 54 41 20 34 2C 36 2C 31 39 .630 DATA 4,6,19
0001E0: 2C 31 2C 31 2C 35 2C 31 31 2C 39 2C 34 2C 34 2C ,1,1,5,11,9,4,4,
0001F0: 36 2C 31 39 2C 31 2C 31 2C 35 2C 31 30 2C 31 30 6,19,1,1,5,10,10
Size : 512 (Real : 512)
000000: 3A 20 47 4F 54 4F 20 35 30 0D 0A 34 36 20 50 52 : GOTO 50..46 PR
000010: 49 4E 54 20 22 56 45 52 59 20 47 4F 4F 44 21 20 INT "VERY GOOD!
000020: 20 48 45 52 45 27 53 20 41 4E 4F 54 48 45 52 2E HERE'S ANOTHER.
000030: 22 0D 0A 34 37 20 52 3D 52 2B 31 0D 0A 35 30 20 "..47 R=R+1..50
000040: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 35 31 PRINT: PRINT..51
000050: 20 50 52 49 4E 54 20 22 46 52 4F 4D 20 57 48 4F PRINT "FROM WHO
000060: 53 45 20 47 41 52 44 45 4E 20 44 49 44 20 42 55 SE GARDEN DID BU
000070: 47 53 20 42 55 4E 4E 59 20 53 54 45 41 4C 20 54 GS BUNNY STEAL T
000080: 48 45 20 43 41 52 52 4F 54 53 3F 22 0D 0A 35 32 HE CARROTS?"..52
000090: 20 50 52 49 4E 54 20 22 31 29 4D 52 2E 20 4E 49 PRINT "1)MR. NI
0000A0: 58 4F 4E 27 53 2C 20 32 29 45 4C 4D 45 52 20 46 XON'S, 2)ELMER F
0000B0: 55 44 44 27 53 2C 20 33 29 43 4C 45 4D 20 4A 55 UDD'S, 3)CLEM JU
0000C0: 44 44 27 53 2C 20 34 29 53 54 52 4F 4D 42 4F 4C DD'S, 4)STROMBOL
0000D0: 49 27 53 22 3B 0D 0A 35 33 20 49 4E 50 55 54 20 I'S";..53 INPUT
0000E0: 41 3A 20 49 46 20 41 3D 32 20 54 48 45 4E 20 35 A: IF A=2 THEN 5
0000F0: 36 0D 0A 35 34 20 50 52 49 4E 54 20 22 54 4F 4F 6..54 PRINT "TOO
000100: 20 42 41 44 2E 2E 2E 49 54 20 57 41 53 20 45 4C BAD...IT WAS EL
000110: 4D 45 52 20 46 55 44 44 27 53 20 47 41 52 44 45 MER FUDD'S GARDE
000120: 4E 2E 22 3A 20 47 4F 54 4F 20 36 30 0D 0A 35 36 N.": GOTO 60..56
000130: 20 50 52 49 4E 54 20 22 50 52 45 54 54 59 20 47 PRINT "PRETTY G
000140: 4F 4F 44 21 22 0D 0A 35 37 20 52 3D 52 2B 31 0D OOD!"..57 R=R+1.
000150: 0A 36 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 .60 PRINT: PRINT
000160: 0D 0A 36 31 20 50 52 49 4E 54 20 22 49 4E 20 54 ..61 PRINT "IN T
000170: 48 45 20 57 49 5A 41 52 44 20 4F 46 20 4F 53 2C HE WIZARD OF OS,
000180: 20 44 4F 52 4F 54 48 59 27 53 20 44 4F 47 20 57 DOROTHY'S DOG W
000190: 41 53 20 4E 41 4D 45 44 22 0D 0A 36 32 20 50 52 AS NAMED"..62 PR
0001A0: 49 4E 54 20 22 31 29 43 49 43 45 52 4F 2C 20 32 INT "1)CICERO, 2
0001B0: 29 54 52 49 58 49 41 2C 20 33 29 4B 49 4E 47 2C )TRIXIA, 3)KING,
0001C0: 20 34 29 54 4F 54 4F 22 3B 0D 0A 36 33 20 49 4E 4)TOTO";..63 IN
0001D0: 50 55 54 20 41 3A 20 49 46 20 41 3D 34 20 54 48 PUT A: IF A=4 TH
0001E0: 45 4E 20 36 36 0D 0A 36 34 20 50 52 49 4E 54 20 EN 66..64 PRINT
0001F0: 22 42 41 43 4B 20 54 4F 20 54 48 45 20 42 4F 4F "BACK TO THE BOO
Size : 512 (Real : 512)
000000: 2C 34 2C 34 2C 36 2C 31 38 2C 32 2C 31 2C 36 2C ,4,4,6,18,2,1,6,
000010: 38 2C 31 31 2C 34 0D 0A 36 34 30 20 44 41 54 41 8,11,4..640 DATA
000020: 20 34 2C 36 2C 31 37 2C 33 2C 31 2C 37 2C 35 2C 4,6,17,3,1,7,5,
000030: 31 33 2C 34 2C 34 2C 36 2C 31 35 2C 35 2C 32 2C 13,4,4,6,15,5,2,
000040: 32 33 2C 35 2C 31 2C 32 39 2C 35 2C 31 37 2C 38 23,5,1,29,5,17,8
000050: 0D 0A 36 35 30 20 44 41 54 41 20 31 2C 32 39 2C ..650 DATA 1,29,
000060: 39 2C 39 2C 31 32 2C 31 2C 31 33 2C 35 2C 34 30 9,9,12,1,13,5,40
000070: 2C 31 2C 31 2C 31 33 2C 35 2C 34 30 2C 31 2C 34 ,1,1,13,5,40,1,4
000080: 2C 36 2C 31 33 2C 33 2C 31 30 2C 36 2C 31 32 2C ,6,13,3,10,6,12,
000090: 35 2C 31 0D 0A 36 36 30 20 44 41 54 41 20 35 2C 5,1..660 DATA 5,
0000A0: 36 2C 31 31 2C 33 2C 31 31 2C 36 2C 31 34 2C 33 6,11,3,11,6,14,3
0000B0: 2C 31 2C 35 2C 36 2C 31 31 2C 33 2C 31 31 2C 36 ,1,5,6,11,3,11,6
0000C0: 2C 31 35 2C 32 2C 31 0D 0A 36 37 30 20 44 41 54 ,15,2,1..670 DAT
0000D0: 41 20 36 2C 36 2C 39 2C 33 2C 31 32 2C 36 2C 31 A 6,6,9,3,12,6,1
0000E0: 36 2C 31 2C 31 2C 36 2C 36 2C 39 2C 33 2C 31 32 6,1,1,6,6,9,3,12
0000F0: 2C 36 2C 37 2C 31 2C 31 30 0D 0A 36 38 30 20 44 ,6,7,1,10..680 D
000100: 41 54 41 20 37 2C 36 2C 37 2C 33 2C 31 33 2C 36 ATA 7,6,7,3,13,6
000110: 2C 36 2C 32 2C 31 30 2C 37 2C 36 2C 37 2C 33 2C ,6,2,10,7,6,7,3,
000120: 31 33 2C 31 34 2C 31 30 2C 38 2C 36 2C 35 2C 33 13,14,10,8,6,5,3
000130: 2C 31 34 2C 36 2C 36 2C 32 2C 31 30 0D 0A 36 39 ,14,6,6,2,10..69
000140: 30 20 44 41 54 41 20 38 2C 36 2C 35 2C 33 2C 31 0 DATA 8,6,5,3,1
000150: 34 2C 36 2C 37 2C 31 2C 31 30 2C 39 2C 36 2C 33 4,6,7,1,10,9,6,3
000160: 2C 33 2C 31 35 2C 36 2C 31 36 2C 31 2C 31 0D 0A ,3,15,6,16,1,1..
000170: 37 30 30 20 44 41 54 41 20 39 2C 36 2C 33 2C 33 700 DATA 9,6,3,3
000180: 2C 31 35 2C 36 2C 31 35 2C 32 2C 31 2C 31 30 2C ,15,6,15,2,1,10,
000190: 36 2C 31 2C 33 2C 31 36 2C 36 2C 31 34 2C 33 2C 6,1,3,16,6,14,3,
0001A0: 31 2C 31 30 2C 31 30 2C 31 36 2C 36 2C 31 32 2C 1,10,10,16,6,12,
0001B0: 35 2C 31 0D 0A 37 31 30 20 44 41 54 41 20 31 31 5,1..710 DATA 11
0001C0: 2C 38 2C 31 33 2C 32 37 2C 31 2C 31 31 2C 38 2C ,8,13,27,1,11,8,
0001D0: 31 33 2C 32 37 2C 31 2C 36 30 0D 0A 39 39 39 20 13,27,1,60..999
0001E0: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 3A 20 50 FOR I=1 TO 10: P
0001F0: 52 49 4E 54 3A 20 4E 45 58 54 20 49 3A 20 45 4E RINT: NEXT I: EN
Size : 512 (Real : 512)
000000: 54 20 22 49 4E 20 46 41 43 54 2C 20 59 4F 55 20 T "IN FACT, YOU
000010: 42 4C 41 53 54 45 44 20 41 20 4E 45 57 20 4C 55 BLASTED A NEW LU
000020: 4E 41 52 20 43 52 41 54 45 52 22 3B 57 2A 2E 32 NAR CRATER";W*.2
000030: 32 37 3B 22 46 45 45 54 20 44 45 45 50 21 22 0D 27;"FEET DEEP!".
000040: 0A 33 32 30 20 47 4F 54 4F 20 34 34 30 0D 0A 33 .320 GOTO 440..3
000050: 33 30 20 4C 3D 4C 2B 53 3A 20 54 3D 54 2D 53 3A 30 L=L+S: T=T-S:
000060: 20 4D 3D 4D 2D 53 2A 4B 3A 20 41 3D 49 3A 20 56 M=M-S*K: A=I: V
000070: 3D 4A 3A 20 52 45 54 55 52 4E 0D 0A 33 34 30 20 =J: RETURN..340
000080: 49 46 20 53 3C 35 45 2D 30 33 20 54 48 45 4E 20 IF S<5E-03 THEN
000090: 32 36 30 0D 0A 33 35 30 20 44 3D 56 2B 53 51 52 260..350 D=V+SQR
0000A0: 28 56 2A 56 2B 32 2A 41 2A 28 47 2D 5A 2A 4B 2F (V*V+2*A*(G-Z*K/
0000B0: 4D 29 29 3A 53 3D 32 2A 41 2F 44 0D 0A 33 36 30 M)):S=2*A/D..360
0000C0: 20 47 4F 53 55 42 20 34 32 30 3A 20 47 4F 53 55 GOSUB 420: GOSU
0000D0: 42 20 33 33 30 3A 20 47 4F 54 4F 20 33 34 30 0D B 330: GOTO 340.
0000E0: 0A 33 37 30 20 57 3D 28 31 2D 4D 2A 47 2F 28 5A .370 W=(1-M*G/(Z
0000F0: 2A 4B 29 29 2F 32 3A 20 53 3D 4D 2A 56 2F 28 5A *K))/2: S=M*V/(Z
000100: 2A 4B 2A 28 57 2B 53 51 52 28 57 2A 57 2B 56 2F *K*(W+SQR(W*W+V/
000110: 5A 29 29 29 2B 2E 30 35 3A 47 4F 53 55 42 20 34 Z)))+.05:GOSUB 4
000120: 32 30 0D 0A 33 38 30 20 49 46 20 49 3C 3D 30 20 20..380 IF I<=0
000130: 54 48 45 4E 20 33 34 30 0D 0A 33 39 30 20 47 4F THEN 340..390 GO
000140: 53 55 42 20 33 33 30 3A 20 49 46 20 4A 3E 30 20 SUB 330: IF J>0
000150: 54 48 45 4E 20 31 36 30 0D 0A 34 30 30 20 49 46 THEN 160..400 IF
000160: 20 56 3E 30 20 54 48 45 4E 20 33 37 30 0D 0A 34 V>0 THEN 370..4
000170: 31 30 20 47 4F 54 4F 20 31 36 30 0D 0A 34 32 30 10 GOTO 160..420
000180: 20 51 3D 53 2A 4B 2F 4D 3A 20 4A 3D 56 2B 47 2A Q=S*K/M: J=V+G*
000190: 53 2B 5A 2A 28 2D 51 2D 51 2A 51 2F 32 2D 51 5E S+Z*(-Q-Q*Q/2-Q^
0001A0: 33 2F 33 2D 51 5E 34 2F 34 2D 51 5E 35 2F 35 29 3/3-Q^4/4-Q^5/5)
0001B0: 0D 0A 34 33 30 20 49 3D 41 2D 47 2A 53 2A 53 2F ..430 I=A-G*S*S/
0001C0: 32 2D 56 2A 53 2B 5A 2A 53 2A 28 51 2F 32 2B 51 2-V*S+Z*S*(Q/2+Q
0001D0: 5E 32 2F 36 2B 51 5E 33 2F 31 32 2B 51 5E 34 2F ^2/6+Q^3/12+Q^4/
0001E0: 32 30 2B 51 5E 35 2F 33 30 29 3A 52 45 54 55 52 20+Q^5/30):RETUR
0001F0: 4E 0D 0A 34 34 30 20 50 52 49 4E 54 3A 50 52 49 N..440 PRINT:PRI
Size : 512 (Real : 512)
000000: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 NT:PRINT:PRINT "
000010: 54 52 59 20 41 47 41 49 4E 3F 3F 22 3A 20 47 4F TRY AGAIN??": GO
000020: 54 4F 20 37 30 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 TO 70...........
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 4C 55 4E 41 52 22 0D 0A 32 30 20 50 52 49 ;"LUNAR"..20 PRI
000020: 4E 54 20 54 41 42 28 6C 35 29 3B 22 43 52 45 41 NT TAB(l5);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 4D TIVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 20 0D 0A 32 35 20 50 52 49 4E ERSEY" ..25 PRIN
000060: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 33 T:PRINT:PRINT..3
000070: 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 0 PRINT "THIS IS
000080: 20 41 20 43 4F 4D 50 55 54 45 52 20 53 49 4D 55 A COMPUTER SIMU
000090: 4C 41 54 49 4F 4E 20 4F 46 20 41 4E 20 41 50 4F LATION OF AN APO
0000A0: 4C 4C 4F 20 4C 55 4E 41 52 22 20 0D 0A 34 30 20 LLO LUNAR" ..40
0000B0: 50 52 49 4E 54 20 22 4C 41 4E 44 49 4E 47 20 43 PRINT "LANDING C
0000C0: 41 50 53 55 4C 45 2E 22 3A 20 50 52 49 4E 54 3A APSULE.": PRINT:
0000D0: 20 50 52 49 4E 54 0D 0A 35 30 20 50 52 49 4E 54 PRINT..50 PRINT
0000E0: 20 22 54 48 45 20 4F 4E 2D 42 4F 41 52 44 20 43 "THE ON-BOARD C
0000F0: 4F 4D 50 55 54 45 52 20 48 41 53 20 46 41 49 4C OMPUTER HAS FAIL
000100: 45 44 20 28 49 54 20 57 41 53 20 4D 41 44 45 20 ED (IT WAS MADE
000110: 42 59 22 20 0D 0A 36 30 20 50 52 49 4E 54 20 22 BY" ..60 PRINT "
000120: 58 45 52 4F 58 29 20 53 4F 20 59 4F 55 20 48 41 XEROX) SO YOU HA
000130: 56 45 20 54 4F 20 4C 41 4E 44 20 54 48 45 20 43 VE TO LAND THE C
000140: 41 50 53 55 4C 45 20 4D 41 4E 55 41 4C 4C 59 2E APSULE MANUALLY.
000150: 22 0D 0A 37 30 20 50 52 49 4E 54 3A 20 50 52 49 "..70 PRINT: PRI
000160: 4E 54 20 22 53 45 54 20 42 55 52 4E 20 52 41 54 NT "SET BURN RAT
000170: 45 20 4F 46 20 52 45 54 52 4F 20 52 4F 43 4B 45 E OF RETRO ROCKE
000180: 54 53 20 54 4F 20 41 4E 59 20 56 41 4C 55 45 20 TS TO ANY VALUE
000190: 42 45 54 57 45 45 4E 22 20 0D 0A 38 30 20 50 52 BETWEEN" ..80 PR
0001A0: 49 4E 54 20 22 30 20 28 46 52 45 45 20 46 41 4C INT "0 (FREE FAL
0001B0: 4C 29 20 41 4E 44 20 32 30 30 20 28 4D 41 58 49 L) AND 200 (MAXI
0001C0: 4D 55 4D 20 42 55 52 4E 29 20 50 4F 55 4E 44 53 MUM BURN) POUNDS
0001D0: 20 50 45 52 20 53 45 43 4F 4E 44 2E 22 20 0D 0A PER SECOND." ..
0001E0: 39 30 20 50 52 49 4E 54 20 22 53 45 54 20 4E 45 90 PRINT "SET NE
0001F0: 57 20 42 55 52 4E 20 52 41 54 45 20 45 56 45 52 W BURN RATE EVER
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 59 20 31 30 20 53 45 43 4F 4E 44 53 2E 22 3A 20 Y 10 SECONDS.":
000010: 50 52 49 4E 54 20 0D 0A 31 30 30 20 50 52 49 4E PRINT ..100 PRIN
000020: 54 20 22 43 41 50 53 55 4C 45 20 57 45 49 47 48 T "CAPSULE WEIGH
000030: 54 20 33 32 2C 35 30 30 20 4C 42 53 3B 20 46 55 T 32,500 LBS; FU
000040: 45 4C 20 57 45 49 47 48 54 20 31 36 2C 35 30 30 EL WEIGHT 16,500
000050: 20 4C 42 53 2E 22 0D 0A 31 31 30 20 50 52 49 4E LBS."..110 PRIN
000060: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A T: PRINT: PRINT:
000070: 20 50 52 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 PRINT "GOOD LUC
000080: 4B 22 0D 0A 31 32 30 20 4C 3D 30 0D 0A 31 33 30 K"..120 L=0..130
000090: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 53 PRINT: PRINT "S
0000A0: 45 43 22 2C 22 4D 49 20 2B 20 46 54 22 2C 22 4D EC","MI + FT","M
0000B0: 50 48 22 2C 22 4C 42 20 46 55 45 4C 22 2C 22 42 PH","LB FUEL","B
0000C0: 55 52 4E 20 52 41 54 45 22 3A 50 52 49 4E 54 20 URN RATE":PRINT
0000D0: 0D 0A 31 34 30 20 41 3D 31 32 30 3A 56 3D 31 3A ..140 A=120:V=1:
0000E0: 4D 3D 33 33 30 30 30 3A 4E 3D 31 36 35 30 30 3A M=33000:N=16500:
0000F0: 47 3D 31 45 2D 30 33 3A 5A 3D 31 2E 38 0D 0A 31 G=1E-03:Z=1.8..1
000100: 35 30 20 50 52 49 4E 54 20 4C 2C 49 4E 54 28 41 50 PRINT L,INT(A
000110: 29 3B 49 4E 54 28 35 32 38 30 2A 28 41 2D 49 4E );INT(5280*(A-IN
000120: 54 28 41 29 29 29 2C 33 36 30 30 2A 56 2C 4D 2D T(A))),3600*V,M-
000130: 4E 2C 3A 49 4E 50 55 54 20 4B 3A 54 3D 31 30 20 N,:INPUT K:T=10
000140: 0D 0A 31 36 30 20 49 46 20 4D 2D 4E 3C 31 45 2D ..160 IF M-N<1E-
000150: 30 33 20 54 48 45 4E 20 32 34 30 0D 0A 31 37 30 03 THEN 240..170
000160: 20 49 46 20 54 3C 31 45 2D 30 33 20 54 48 45 4E IF T<1E-03 THEN
000170: 20 31 35 30 0D 0A 31 38 30 20 53 3D 54 3A 20 49 150..180 S=T: I
000180: 46 20 4D 3E 3D 4E 2B 53 2A 4B 20 54 48 45 4E 20 F M>=N+S*K THEN
000190: 32 30 30 0D 0A 31 39 30 20 53 3D 28 4D 2D 4E 29 200..190 S=(M-N)
0001A0: 2F 4B 0D 0A 32 30 30 20 47 4F 53 55 42 20 34 32 /K..200 GOSUB 42
0001B0: 30 3A 20 49 46 20 49 3C 3D 4F 20 54 48 45 4E 20 0: IF I<=O THEN
0001C0: 33 34 30 0D 0A 32 31 30 20 49 46 20 56 3C 3D 30 340..210 IF V<=0
0001D0: 20 54 48 45 4E 20 32 33 30 0D 0A 32 32 30 20 49 THEN 230..220 I
0001E0: 46 20 4A 3C 30 20 54 48 45 4E 20 33 37 30 0D 0A F J<0 THEN 370..
0001F0: 32 33 30 20 47 4F 53 55 42 20 33 33 30 3A 20 47 230 GOSUB 330: G
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
000010: 22 4D 41 53 54 45 52 4D 49 4E 44 22 0D 0A 34 20 "MASTERMIND"..4
000020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
000030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
000040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
000050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 EW JERSEY"..6 PR
000060: 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E INT: PRINT: PRIN
000070: 54 0D 0A 31 30 20 52 45 4D 0D 0A 32 30 20 52 45 T..10 REM..20 RE
000080: 4D 20 20 20 20 20 4D 41 53 54 45 52 4D 49 4E 44 M MASTERMIND
000090: 20 49 49 0D 0A 33 30 20 52 45 4D 20 20 20 20 20 II..30 REM
0000A0: 53 54 45 56 45 20 4E 4F 52 54 48 0D 0A 34 30 20 STEVE NORTH..40
0000B0: 52 45 4D 20 20 20 20 20 43 52 45 41 54 49 56 45 REM CREATIVE
0000C0: 20 43 4F 4D 50 55 54 49 4E 47 0D 0A 35 30 20 52 COMPUTING..50 R
0000D0: 45 4D 20 20 20 20 20 50 4F 20 42 4F 58 20 37 38 EM PO BOX 78
0000E0: 39 2D 4D 20 4D 4F 52 52 49 53 54 4F 57 4E 20 4E 9-M MORRISTOWN N
0000F0: 45 57 20 4A 45 52 53 45 59 20 30 37 39 36 30 0D EW JERSEY 07960.
000100: 0A 36 30 20 52 45 4D 0D 0A 37 30 20 52 45 4D 0D .60 REM..70 REM.
000110: 0A 38 30 20 49 4E 50 55 54 20 22 4E 55 4D 42 45 .80 INPUT "NUMBE
000120: 52 20 4F 46 20 43 4F 4C 4F 52 53 22 3B 43 39 0D R OF COLORS";C9.
000130: 0A 39 30 20 49 46 20 43 39 3E 38 20 54 48 45 4E .90 IF C9>8 THEN
000140: 20 50 52 49 4E 54 20 22 4E 4F 20 4D 4F 52 45 20 PRINT "NO MORE
000150: 54 48 41 4E 20 38 2C 20 50 4C 45 41 53 45 21 22 THAN 8, PLEASE!"
000160: 3A 47 4F 54 4F 20 38 30 0D 0A 31 30 30 20 49 4E :GOTO 80..100 IN
000170: 50 55 54 20 22 4E 55 4D 42 45 52 20 4F 46 20 50 PUT "NUMBER OF P
000180: 4F 53 49 54 49 4F 4E 53 22 3B 50 39 0D 0A 31 31 OSITIONS";P9..11
000190: 30 20 49 4E 50 55 54 20 22 4E 55 4D 42 45 52 20 0 INPUT "NUMBER
0001A0: 4F 46 20 52 4F 55 4E 44 53 22 3B 52 39 0D 0A 31 OF ROUNDS";R9..1
0001B0: 32 30 20 50 3D 43 39 5E 50 39 0D 0A 31 33 30 20 20 P=C9^P9..130
0001C0: 50 52 49 4E 54 20 22 54 4F 54 41 4C 20 50 4F 53 PRINT "TOTAL POS
0001D0: 53 49 42 49 4C 49 54 49 45 53 20 3D 22 3B 50 0D SIBILITIES =";P.
0001E0: 0A 31 34 30 20 48 3D 30 3A 43 3D 30 0D 0A 31 35 .140 H=0:C=0..15
0001F0: 30 20 44 49 4D 20 51 28 50 39 29 2C 53 28 31 30 0 DIM Q(P9),S(10
Size : 512 (Real : 512)
000000: 4F 54 4F 20 31 36 30 0D 0A 32 34 30 20 50 52 49 OTO 160..240 PRI
000010: 4E 54 20 22 46 55 45 4C 20 4F 55 54 20 41 54 22 NT "FUEL OUT AT"
000020: 3B 4C 3B 22 53 45 43 4F 4E 44 53 22 3A 53 3D 28 ;L;"SECONDS":S=(
000030: 2D 56 2B 53 51 52 28 56 2A 56 2B 32 2A 41 2A 47 -V+SQR(V*V+2*A*G
000040: 29 29 2F 47 0D 0A 32 35 30 20 56 3D 56 2B 47 2A ))/G..250 V=V+G*
000050: 53 3A 20 4C 3D 4C 2B 53 0D 0A 32 36 30 20 57 3D S: L=L+S..260 W=
000060: 33 36 30 30 2A 56 3A 20 50 52 49 4E 54 20 22 4F 3600*V: PRINT "O
000070: 4E 20 4D 4F 4F 4E 20 41 54 22 3B 4C 3B 22 53 45 N MOON AT";L;"SE
000080: 43 4F 4E 44 53 20 2D 20 49 4D 50 41 43 54 20 56 CONDS - IMPACT V
000090: 45 4C 4F 43 49 54 59 22 3B 57 3B 22 4D 50 48 22 ELOCITY";W;"MPH"
0000A0: 20 0D 0A 32 37 34 20 49 46 20 57 3C 3D 31 2E 32 ..274 IF W<=1.2
0000B0: 20 54 48 45 4E 20 50 52 49 4E 54 20 22 50 45 52 THEN PRINT "PER
0000C0: 46 45 43 54 20 4C 41 4E 44 49 4E 47 21 22 3A 20 FECT LANDING!":
0000D0: 47 4F 54 4F 20 34 34 30 20 0D 0A 32 38 30 20 49 GOTO 440 ..280 I
0000E0: 46 20 57 3C 3D 31 30 20 54 48 45 4E 20 50 52 49 F W<=10 THEN PRI
0000F0: 4E 54 20 22 47 4F 4F 44 20 4C 41 4E 44 49 4E 47 NT "GOOD LANDING
000100: 20 28 43 4F 55 4C 44 20 52 45 20 42 45 54 54 45 (COULD RE BETTE
000110: 52 29 22 3A 47 4F 54 4F 20 34 34 30 20 0D 0A 32 R)":GOTO 440 ..2
000120: 38 32 20 49 46 20 57 3E 36 30 20 54 48 45 4E 20 82 IF W>60 THEN
000130: 33 30 30 0D 0A 32 38 34 20 50 52 49 4E 54 20 22 300..284 PRINT "
000140: 43 52 41 46 54 20 44 41 4D 41 47 45 2E 2E 2E 20 CRAFT DAMAGE...
000150: 59 4F 55 27 52 45 20 53 54 52 41 4E 44 45 44 20 YOU'RE STRANDED
000160: 48 45 52 45 20 55 4E 54 49 4C 20 41 20 52 45 53 HERE UNTIL A RES
000170: 43 55 45 22 20 0D 0A 32 38 36 20 50 52 49 4E 54 CUE" ..286 PRINT
000180: 20 22 50 41 52 54 59 20 41 52 52 49 56 45 53 2E "PARTY ARRIVES.
000190: 20 48 4F 50 45 20 59 4F 55 20 48 41 56 45 20 45 HOPE YOU HAVE E
0001A0: 4E 4F 55 47 48 20 4F 58 59 47 45 4E 21 22 20 0D NOUGH OXYGEN!" .
0001B0: 0A 32 38 38 20 47 4F 54 4F 20 34 34 30 0D 0A 33 .288 GOTO 440..3
0001C0: 30 30 20 50 52 49 4E 54 20 22 53 4F 52 52 59 20 00 PRINT "SORRY
0001D0: 54 48 45 52 45 20 4E 45 52 45 20 4E 4F 20 53 55 THERE NERE NO SU
0001E0: 52 56 49 56 4F 52 53 2E 20 59 4F 55 20 42 4C 4F RVIVORS. YOU BLO
0001F0: 57 20 49 54 21 22 0D 0A 33 31 30 20 50 52 49 4E W IT!"..310 PRIN
Size : 512 (Real : 512)
000000: 2C 32 29 2C 53 24 28 31 30 29 2C 41 24 28 50 39 ,2),S$(10),A$(P9
000010: 29 2C 47 24 28 50 39 29 2C 49 28 50 29 2C 48 24 ),G$(P9),I(P),H$
000020: 28 50 39 29 0D 0A 31 36 30 20 4C 24 3D 22 42 57 (P9)..160 L$="BW
000030: 52 47 4F 59 50 54 22 0D 0A 31 37 30 20 50 52 49 RGOYPT"..170 PRI
000040: 4E 54 0D 0A 31 38 30 20 50 52 49 4E 54 0D 0A 31 NT..180 PRINT..1
000050: 39 30 20 50 52 49 4E 54 20 22 43 4F 4C 4F 52 20 90 PRINT "COLOR
000060: 20 20 20 20 4C 45 54 54 45 52 22 0D 0A 32 30 30 LETTER"..200
000070: 20 50 52 49 4E 54 20 22 3D 3D 3D 3D 3D 20 20 20 PRINT "=====
000080: 20 20 3D 3D 3D 3D 3D 3D 22 0D 0A 32 31 30 20 46 ======"..210 F
000090: 4F 52 20 58 3D 31 20 54 4F 20 43 39 0D 0A 32 32 OR X=1 TO C9..22
0000A0: 30 20 52 45 41 44 20 58 24 0D 0A 32 33 30 20 50 0 READ X$..230 P
0000B0: 52 49 4E 54 20 58 24 3B 54 41 42 28 31 33 29 3B RINT X$;TAB(13);
0000C0: 4D 49 44 24 28 4C 24 2C 58 2C 31 29 0D 0A 32 34 MID$(L$,X,1)..24
0000D0: 30 20 4E 45 58 54 20 58 0D 0A 32 35 30 20 50 52 0 NEXT X..250 PR
0000E0: 49 4E 54 0D 0A 32 36 30 20 46 4F 52 20 52 3D 31 INT..260 FOR R=1
0000F0: 20 54 4F 20 52 39 0D 0A 32 37 30 20 50 52 49 4E TO R9..270 PRIN
000100: 54 20 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 52 T ..280 PRINT "R
000110: 4F 55 4E 44 20 4E 55 4D 42 45 52 22 3B 52 3B 22 OUND NUMBER";R;"
000120: 2D 2D 2D 2D 22 0D 0A 32 39 30 20 50 52 49 4E 54 ----"..290 PRINT
000130: 0D 0A 33 30 30 20 50 52 49 4E 54 20 22 47 55 45 ..300 PRINT "GUE
000140: 53 53 20 4D 59 20 43 4F 4D 42 49 4E 41 54 49 4F SS MY COMBINATIO
000150: 4E 2E 22 3A 50 52 49 4E 54 0D 0A 33 31 30 20 52 N.":PRINT..310 R
000160: 45 4D 20 20 20 20 20 47 45 54 20 41 20 43 4F 4D EM GET A COM
000170: 42 49 4E 41 54 49 4F 4E 0D 0A 33 32 30 20 41 3D BINATION..320 A=
000180: 49 4E 54 28 50 2A 52 4E 44 28 31 29 2B 31 29 0D INT(P*RND(1)+1).
000190: 0A 33 33 30 20 47 4F 53 55 42 20 33 30 30 30 0D .330 GOSUB 3000.
0001A0: 0A 33 34 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 .340 FOR X=1 TO
0001B0: 41 0D 0A 33 35 30 20 47 4F 53 55 42 20 33 35 30 A..350 GOSUB 350
0001C0: 30 0D 0A 33 36 30 20 4E 45 58 54 20 58 0D 0A 33 0..360 NEXT X..3
0001D0: 37 30 20 46 4F 52 20 4D 3D 31 20 54 4F 20 31 30 70 FOR M=1 TO 10
0001E0: 0D 0A 33 38 30 20 50 52 49 4E 54 20 22 4D 4F 56 ..380 PRINT "MOV
0001F0: 45 20 23 20 22 3B 4D 3B 22 20 47 55 45 53 53 20 E # ";M;" GUESS
Size : 512 (Real : 512)
000000: 20 44 41 59 2E 22 0D 0A 31 31 31 30 20 47 4F 54 DAY."..1110 GOT
000010: 4F 20 31 31 33 30 0D 0A 31 31 32 30 20 50 52 49 O 1130..1120 PRI
000020: 4E 54 20 22 49 20 47 4F 54 20 49 54 20 49 4E 20 NT "I GOT IT IN
000030: 22 3B 4D 3B 22 20 4D 4F 56 45 53 21 22 0D 0A 31 ";M;" MOVES!"..1
000040: 31 33 30 20 43 3D 43 2B 4D 0D 0A 31 31 34 30 20 130 C=C+M..1140
000050: 47 4F 53 55 42 20 35 30 30 30 0D 0A 31 31 35 30 GOSUB 5000..1150
000060: 20 4E 45 58 54 20 52 0D 0A 31 31 36 30 20 50 52 NEXT R..1160 PR
000070: 49 4E 54 20 22 47 41 4D 45 20 4F 56 45 52 22 0D INT "GAME OVER".
000080: 0A 31 31 37 30 20 50 52 49 4E 54 20 22 46 49 4E .1170 PRINT "FIN
000090: 41 4C 20 53 43 4F 52 45 3A 22 0D 0A 31 31 38 30 AL SCORE:"..1180
0000A0: 20 47 4F 53 55 42 20 35 30 34 30 0D 0A 31 31 39 GOSUB 5040..119
0000B0: 30 20 53 54 4F 50 0D 0A 32 30 30 30 20 52 45 4D 0 STOP..2000 REM
0000C0: 0D 0A 32 30 31 30 20 52 45 4D 20 20 20 20 20 42 ..2010 REM B
0000D0: 4F 41 52 44 20 50 52 49 4E 54 4F 55 54 20 52 4F OARD PRINTOUT RO
0000E0: 55 54 49 4E 45 0D 0A 32 30 32 30 20 52 45 4D 0D UTINE..2020 REM.
0000F0: 0A 32 30 32 35 20 50 52 49 4E 54 0D 0A 32 30 33 .2025 PRINT..203
000100: 30 20 50 52 49 4E 54 20 22 42 4F 41 52 44 22 0D 0 PRINT "BOARD".
000110: 0A 32 30 34 30 20 50 52 49 4E 54 20 22 4D 4F 56 .2040 PRINT "MOV
000120: 45 20 20 20 20 20 47 55 45 53 53 20 20 20 20 20 E GUESS
000130: 20 20 20 20 20 42 4C 41 43 4B 20 20 20 20 20 57 BLACK W
000140: 48 49 54 45 22 0D 0A 32 30 35 30 20 46 4F 52 20 HITE"..2050 FOR
000150: 5A 3D 31 20 54 4F 20 4D 2D 31 0D 0A 32 30 36 30 Z=1 TO M-1..2060
000160: 20 50 52 49 4E 54 20 5A 3B 54 41 42 28 39 29 3B PRINT Z;TAB(9);
000170: 53 24 28 5A 29 3B 54 41 42 28 32 35 29 3B 53 28 S$(Z);TAB(25);S(
000180: 5A 2C 31 29 3B 54 41 42 28 33 35 29 3B 53 28 5A Z,1);TAB(35);S(Z
000190: 2C 32 29 0D 0A 32 30 37 30 20 4E 45 58 54 20 5A ,2)..2070 NEXT Z
0001A0: 0D 0A 32 30 37 35 20 50 52 49 4E 54 0D 0A 32 30 ..2075 PRINT..20
0001B0: 38 30 20 47 4F 54 4F 20 33 38 30 0D 0A 32 35 30 80 GOTO 380..250
0001C0: 30 20 52 45 4D 0D 0A 32 35 31 30 20 52 45 4D 20 0 REM..2510 REM
0001D0: 20 20 20 20 51 55 49 54 20 52 4F 55 54 49 4E 45 QUIT ROUTINE
0001E0: 0D 0A 32 35 32 30 20 52 45 4D 0D 0A 32 35 33 30 ..2520 REM..2530
0001F0: 20 50 52 49 4E 54 20 22 51 55 49 54 54 45 52 21 PRINT "QUITTER!
Size : 512 (Real : 512)
000000: 22 3B 3A 49 4E 50 55 54 20 58 24 0D 0A 33 39 30 ";:INPUT X$..390
000010: 20 49 46 20 58 24 3D 22 42 4F 41 52 44 22 20 54 IF X$="BOARD" T
000020: 48 45 4E 20 32 30 30 30 0D 0A 34 30 30 20 49 46 HEN 2000..400 IF
000030: 20 58 24 3D 22 51 55 49 54 22 20 54 48 45 4E 20 X$="QUIT" THEN
000040: 32 35 30 30 0D 0A 34 31 30 20 49 46 20 4C 45 4E 2500..410 IF LEN
000050: 28 58 24 29 3C 3E 50 39 20 54 48 45 4E 20 50 52 (X$)<>P9 THEN PR
000060: 49 4E 54 20 22 42 41 44 20 4E 55 4D 42 45 52 20 INT "BAD NUMBER
000070: 4F 46 20 50 4F 53 49 54 49 4F 4E 53 2E 22 3A 47 OF POSITIONS.":G
000080: 4F 54 4F 20 33 38 30 0D 0A 34 32 30 20 52 45 4D OTO 380..420 REM
000090: 20 20 20 20 20 55 4E 50 41 43 4B 20 58 24 20 49 UNPACK X$ I
0000A0: 4E 54 4F 20 47 24 28 31 2D 50 39 29 0D 0A 34 33 NTO G$(1-P9)..43
0000B0: 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 50 39 0D 0 FOR X=1 TO P9.
0000C0: 0A 34 34 30 20 46 4F 52 20 59 3D 31 20 54 4F 20 .440 FOR Y=1 TO
0000D0: 43 39 0D 0A 34 35 30 20 49 46 20 4D 49 44 24 28 C9..450 IF MID$(
0000E0: 58 24 2C 58 2C 31 29 3D 4D 49 44 24 28 4C 24 2C X$,X,1)=MID$(L$,
0000F0: 59 2C 31 29 20 54 48 45 4E 20 34 38 30 0D 0A 34 Y,1) THEN 480..4
000100: 36 30 20 4E 45 58 54 20 59 0D 0A 34 37 30 20 50 60 NEXT Y..470 P
000110: 52 49 4E 54 20 22 27 22 3B 20 4D 49 44 24 28 58 RINT "'"; MID$(X
000120: 24 2C 58 2C 31 29 3B 20 22 27 20 49 53 20 55 4E $,X,1); "' IS UN
000130: 52 45 43 4F 47 4E 49 5A 45 44 2E 22 3A 47 4F 54 RECOGNIZED.":GOT
000140: 4F 20 33 38 30 0D 0A 34 38 30 20 47 24 28 58 29 O 380..480 G$(X)
000150: 3D 4D 49 44 24 28 58 24 2C 58 2C 31 29 0D 0A 34 =MID$(X$,X,1)..4
000160: 39 30 20 4E 45 58 54 20 58 0D 0A 35 30 30 20 52 90 NEXT X..500 R
000170: 45 4D 20 20 20 20 20 4E 4F 57 20 57 45 20 43 4F EM NOW WE CO
000180: 4E 56 45 52 54 20 51 28 31 2D 50 39 29 20 49 4E NVERT Q(1-P9) IN
000190: 54 4F 20 41 24 28 31 2D 50 39 29 20 5B 41 43 54 TO A$(1-P9) [ACT
0001A0: 55 41 4C 20 47 55 45 53 53 5D 0D 0A 35 31 30 20 UAL GUESS]..510
0001B0: 47 4F 53 55 42 20 34 30 30 30 0D 0A 35 32 30 20 GOSUB 4000..520
0001C0: 52 45 4D 20 20 20 20 20 41 4E 44 20 47 45 54 20 REM AND GET
0001D0: 4E 55 4D 42 45 52 20 4F 46 20 42 4C 41 43 4B 53 NUMBER OF BLACKS
0001E0: 20 41 4E 44 20 57 48 49 54 45 53 0D 0A 35 33 30 AND WHITES..530
0001F0: 20 47 4F 53 55 42 20 34 35 30 30 0D 0A 35 34 30 GOSUB 4500..540
Size : 512 (Real : 512)
000000: 20 20 4D 59 20 43 4F 4D 42 49 4E 41 54 49 4F 4E MY COMBINATION
000010: 20 57 41 53 3A 20 22 3B 0D 0A 32 35 33 35 20 47 WAS: ";..2535 G
000020: 4F 53 55 42 20 34 30 30 30 0D 0A 32 35 34 30 20 OSUB 4000..2540
000030: 46 4F 52 20 58 3D 31 20 54 4F 20 50 39 0D 0A 32 FOR X=1 TO P9..2
000040: 35 35 30 20 50 52 49 4E 54 20 41 24 28 58 29 3B 550 PRINT A$(X);
000050: 0D 0A 32 35 36 30 20 4E 45 58 54 20 58 0D 0A 32 ..2560 NEXT X..2
000060: 35 36 35 20 50 52 49 4E 54 0D 0A 32 35 37 30 20 565 PRINT..2570
000070: 50 52 49 4E 54 20 22 47 4F 4F 44 20 42 59 45 22 PRINT "GOOD BYE"
000080: 0D 0A 32 35 38 30 20 53 54 4F 50 0D 0A 33 30 30 ..2580 STOP..300
000090: 30 20 52 45 4D 0D 0A 33 30 31 30 20 52 45 4D 20 0 REM..3010 REM
0000A0: 20 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 51 INITIALIZE Q
0000B0: 28 31 2D 50 39 29 20 54 4F 20 5A 45 52 4F 53 0D (1-P9) TO ZEROS.
0000C0: 0A 33 30 32 30 20 52 45 4D 0D 0A 33 30 33 30 20 .3020 REM..3030
0000D0: 46 4F 52 20 53 3D 31 20 54 4F 20 50 39 0D 0A 33 FOR S=1 TO P9..3
0000E0: 30 34 30 20 51 28 53 29 3D 30 0D 0A 33 30 35 30 040 Q(S)=0..3050
0000F0: 20 4E 45 58 54 20 53 0D 0A 33 30 36 30 20 52 45 NEXT S..3060 RE
000100: 54 55 52 4E 0D 0A 33 35 30 30 20 52 45 4D 0D 0A TURN..3500 REM..
000110: 33 35 31 30 20 52 45 4D 20 20 20 20 20 49 4E 43 3510 REM INC
000120: 52 45 4D 45 4E 54 20 51 28 31 2D 50 39 29 0D 0A REMENT Q(1-P9)..
000130: 33 35 32 30 20 52 45 4D 0D 0A 33 35 32 32 20 49 3520 REM..3522 I
000140: 46 20 51 28 31 29 3E 30 20 54 48 45 4E 20 33 35 F Q(1)>0 THEN 35
000150: 33 30 0D 0A 33 35 32 34 20 52 45 4D 20 20 49 46 30..3524 REM IF
000160: 20 5A 45 52 4F 2C 20 54 48 49 53 20 49 53 20 4F ZERO, THIS IS O
000170: 55 52 20 46 49 52 53 54 20 49 4E 43 52 45 4D 45 UR FIRST INCREME
000180: 4E 54 3A 20 4D 41 4B 45 20 41 4C 4C 20 4F 4E 45 NT: MAKE ALL ONE
000190: 53 0D 0A 33 35 32 36 20 46 4F 52 20 53 3D 31 20 S..3526 FOR S=1
0001A0: 54 4F 20 50 39 0D 0A 33 35 32 37 20 51 28 53 29 TO P9..3527 Q(S)
0001B0: 3D 31 0D 0A 33 35 32 38 20 4E 45 58 54 20 53 0D =1..3528 NEXT S.
0001C0: 0A 33 35 32 39 20 52 45 54 55 52 4E 0D 0A 33 35 .3529 RETURN..35
0001D0: 33 30 20 51 3D 31 0D 0A 33 35 34 30 20 51 28 51 30 Q=1..3540 Q(Q
0001E0: 29 3D 51 28 51 29 2B 31 0D 0A 33 35 35 30 20 49 )=Q(Q)+1..3550 I
0001F0: 46 20 51 28 51 29 3C 3D 43 39 20 54 48 45 4E 20 F Q(Q)<=C9 THEN
Size : 512 (Real : 512)
000000: 20 49 46 20 42 3D 50 39 20 54 48 45 4E 20 36 33 IF B=P9 THEN 63
000010: 30 0D 0A 35 35 30 20 52 45 4D 20 20 20 20 20 54 0..550 REM T
000020: 45 4C 4C 20 48 55 4D 41 4E 20 52 45 53 55 4C 54 ELL HUMAN RESULT
000030: 53 0D 0A 35 36 30 20 50 52 49 4E 54 20 22 59 4F S..560 PRINT "YO
000040: 55 20 48 41 56 45 20 22 3B 42 3B 22 20 42 4C 41 U HAVE ";B;" BLA
000050: 43 4B 53 20 41 4E 44 20 22 3B 57 3B 22 20 57 48 CKS AND ";W;" WH
000060: 49 54 45 53 2E 22 0D 0A 35 37 30 20 52 45 4D 20 ITES."..570 REM
000070: 20 20 20 20 53 41 56 45 20 41 4C 4C 20 54 48 49 SAVE ALL THI
000080: 53 20 53 54 55 46 46 20 46 4F 52 20 42 4F 41 52 S STUFF FOR BOAR
000090: 44 20 50 52 49 4E 54 4F 55 54 20 4C 41 54 45 52 D PRINTOUT LATER
0000A0: 0D 0A 35 38 30 20 53 24 28 4D 29 3D 58 24 0D 0A ..580 S$(M)=X$..
0000B0: 35 39 30 20 53 28 4D 2C 31 29 3D 42 0D 0A 36 30 590 S(M,1)=B..60
0000C0: 30 20 53 28 4D 2C 32 29 3D 57 0D 0A 36 31 30 20 0 S(M,2)=W..610
0000D0: 4E 45 58 54 20 4D 0D 0A 36 32 30 20 50 52 49 4E NEXT M..620 PRIN
0000E0: 54 20 22 59 4F 55 20 52 41 4E 20 4F 55 54 20 4F T "YOU RAN OUT O
0000F0: 46 20 4D 4F 56 45 53 21 20 20 54 48 41 54 27 53 F MOVES! THAT'S
000100: 20 41 4C 4C 20 59 4F 55 20 47 45 54 21 22 3A 47 ALL YOU GET!":G
000110: 4F 54 4F 20 36 34 30 0D 0A 36 32 32 20 47 4F 53 OTO 640..622 GOS
000120: 55 42 20 34 30 30 30 0D 0A 36 32 33 20 50 52 49 UB 4000..623 PRI
000130: 4E 54 20 22 54 48 45 20 41 43 54 55 41 4C 20 43 NT "THE ACTUAL C
000140: 4F 4D 42 49 4E 41 54 49 4F 4E 20 57 41 53 3A 20 OMBINATION WAS:
000150: 22 3B 0D 0A 36 32 34 20 46 4F 52 20 58 3D 31 20 ";..624 FOR X=1
000160: 54 4F 20 50 39 0D 0A 36 32 35 20 50 52 49 4E 54 TO P9..625 PRINT
000170: 20 41 24 28 58 29 3B 0D 0A 36 32 36 20 4E 45 58 A$(X);..626 NEX
000180: 54 20 58 0D 0A 36 32 37 20 50 52 49 4E 54 0D 0A T X..627 PRINT..
000190: 36 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 47 630 PRINT "YOU G
0001A0: 55 45 53 53 45 44 20 49 54 20 49 4E 20 22 3B 4D UESSED IT IN ";M
0001B0: 3B 22 20 4D 4F 56 45 53 21 22 0D 0A 36 34 30 20 ;" MOVES!"..640
0001C0: 48 3D 48 2B 4D 0D 0A 36 35 30 20 47 4F 53 55 42 H=H+M..650 GOSUB
0001D0: 20 35 30 30 30 0D 0A 36 36 30 20 52 45 4D 0D 0A 5000..660 REM..
0001E0: 36 37 30 20 52 45 4D 20 20 20 20 20 4E 4F 57 20 670 REM NOW
0001F0: 43 4F 4D 50 55 54 45 52 20 47 55 45 53 53 45 53 COMPUTER GUESSES
Size : 512 (Real : 512)
000000: 52 45 54 55 52 4E 0D 0A 33 35 36 30 20 51 28 51 RETURN..3560 Q(Q
000010: 29 3D 31 0D 0A 33 35 37 30 20 51 3D 51 2B 31 0D )=1..3570 Q=Q+1.
000020: 0A 33 35 38 30 20 47 4F 54 4F 20 33 35 34 30 0D .3580 GOTO 3540.
000030: 0A 34 30 30 30 20 52 45 4D 0D 0A 34 30 31 30 20 .4000 REM..4010
000040: 52 45 4D 20 20 20 20 20 43 4F 4E 56 45 52 54 20 REM CONVERT
000050: 51 28 31 2D 50 39 29 20 54 4F 20 41 24 28 31 2D Q(1-P9) TO A$(1-
000060: 50 39 29 0D 0A 34 30 32 30 20 52 45 4D 0D 0A 34 P9)..4020 REM..4
000070: 30 33 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 50 030 FOR S=1 TO P
000080: 39 0D 0A 34 30 34 30 20 41 24 28 53 29 3D 4D 49 9..4040 A$(S)=MI
000090: 44 24 28 4C 24 2C 51 28 53 29 2C 31 29 0D 0A 34 D$(L$,Q(S),1)..4
0000A0: 30 35 30 20 4E 45 58 54 20 53 0D 0A 34 30 36 30 050 NEXT S..4060
0000B0: 20 52 45 54 55 52 4E 0D 0A 34 35 30 30 20 52 45 RETURN..4500 RE
0000C0: 4D 0D 0A 34 35 31 30 20 52 45 4D 20 20 20 20 20 M..4510 REM
0000D0: 47 45 54 20 4E 55 4D 42 45 52 20 4F 46 20 42 4C GET NUMBER OF BL
0000E0: 41 43 4B 53 20 28 42 29 20 41 4E 44 20 57 48 49 ACKS (B) AND WHI
0000F0: 54 45 53 20 28 57 29 0D 0A 34 35 32 30 20 52 45 TES (W)..4520 RE
000100: 4D 20 20 20 20 20 4D 41 53 48 45 53 20 47 24 20 M MASHES G$
000110: 41 4E 44 20 41 24 20 49 4E 20 54 48 45 20 50 52 AND A$ IN THE PR
000120: 4F 43 45 53 53 0D 0A 34 35 33 30 20 52 45 4D 0D OCESS..4530 REM.
000130: 0A 34 35 34 30 20 42 3D 30 3A 57 3D 30 3A 46 3D .4540 B=0:W=0:F=
000140: 30 0D 0A 34 35 35 30 20 46 4F 52 20 53 3D 31 20 0..4550 FOR S=1
000150: 54 4F 20 50 39 0D 0A 34 35 36 30 20 49 46 20 47 TO P9..4560 IF G
000160: 24 28 53 29 3C 3E 41 24 28 53 29 20 54 48 45 4E $(S)<>A$(S) THEN
000170: 20 34 36 32 30 0D 0A 34 35 37 30 20 42 3D 42 2B 4620..4570 B=B+
000180: 31 0D 0A 34 35 38 30 20 47 24 28 53 29 3D 43 48 1..4580 G$(S)=CH
000190: 52 24 28 46 29 0D 0A 34 35 39 30 20 41 24 28 53 R$(F)..4590 A$(S
0001A0: 29 3D 43 48 52 24 28 46 2B 31 29 0D 0A 34 36 30 )=CHR$(F+1)..460
0001B0: 30 20 46 3D 46 2B 32 0D 0A 34 36 31 30 20 47 4F 0 F=F+2..4610 GO
0001C0: 54 4F 20 34 36 36 30 0D 0A 34 36 32 30 20 46 4F TO 4660..4620 FO
0001D0: 52 20 54 3D 31 20 54 4F 20 50 39 0D 0A 34 36 33 R T=1 TO P9..463
0001E0: 30 20 49 46 20 47 24 28 53 29 3C 3E 41 24 28 54 0 IF G$(S)<>A$(T
0001F0: 29 20 54 48 45 4E 20 34 36 35 30 0D 0A 34 36 34 ) THEN 4650..464
Size : 512 (Real : 512)
000000: 0D 0A 36 38 30 20 52 45 4D 0D 0A 36 39 30 20 46 ..680 REM..690 F
000010: 4F 52 20 58 3D 31 20 54 4F 20 50 0D 0A 37 30 30 OR X=1 TO P..700
000020: 20 49 28 58 29 3D 31 0D 0A 37 31 30 20 4E 45 58 I(X)=1..710 NEX
000030: 54 20 58 0D 0A 37 32 30 20 50 52 49 4E 54 20 22 T X..720 PRINT "
000040: 4E 4F 57 20 49 20 47 55 45 53 53 2E 20 20 54 48 NOW I GUESS. TH
000050: 49 4E 4B 20 4F 46 20 41 20 43 4F 4D 42 49 4E 41 INK OF A COMBINA
000060: 54 49 4F 4E 2E 22 0D 0A 37 33 30 20 49 4E 50 55 TION."..730 INPU
000070: 54 20 22 48 49 54 20 52 45 54 55 52 4E 20 57 48 T "HIT RETURN WH
000080: 45 4E 20 52 45 41 44 59 3A 22 3B 58 24 0D 0A 37 EN READY:";X$..7
000090: 34 30 20 46 4F 52 20 4D 3D 31 20 54 4F 20 31 30 40 FOR M=1 TO 10
0000A0: 0D 0A 37 35 30 20 47 4F 53 55 42 20 33 30 30 30 ..750 GOSUB 3000
0000B0: 0D 0A 37 36 30 20 52 45 4D 20 20 20 20 20 46 49 ..760 REM FI
0000C0: 4E 44 20 41 20 47 55 45 53 53 0D 0A 37 37 30 20 ND A GUESS..770
0000D0: 47 3D 49 4E 54 28 50 2A 52 4E 44 28 31 29 2B 31 G=INT(P*RND(1)+1
0000E0: 29 0D 0A 37 38 30 20 49 46 20 49 28 47 29 3D 31 )..780 IF I(G)=1
0000F0: 20 54 48 45 4E 20 38 39 30 0D 0A 37 39 30 20 46 THEN 890..790 F
000100: 4F 52 20 58 3D 47 20 54 4F 20 50 0D 0A 38 30 30 OR X=G TO P..800
000110: 20 49 46 20 49 28 58 29 3D 31 20 54 48 45 4E 20 IF I(X)=1 THEN
000120: 38 38 30 0D 0A 38 31 30 20 4E 45 58 54 20 58 0D 880..810 NEXT X.
000130: 0A 38 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 .820 FOR X=1 TO
000140: 47 0D 0A 38 33 30 20 49 46 20 49 28 58 29 3D 31 G..830 IF I(X)=1
000150: 20 54 48 45 4E 20 38 38 30 0D 0A 38 34 30 20 4E THEN 880..840 N
000160: 45 58 54 20 58 0D 0A 38 35 30 20 50 52 49 4E 54 EXT X..850 PRINT
000170: 20 22 59 4F 55 20 48 41 56 45 20 47 49 56 45 4E "YOU HAVE GIVEN
000180: 20 4D 45 20 49 4E 43 4F 4E 53 49 53 54 45 4E 54 ME INCONSISTENT
000190: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 2E 22 0D 0A INFORMATION."..
0001A0: 38 36 30 20 50 52 49 4E 54 20 22 54 52 59 20 41 860 PRINT "TRY A
0001B0: 47 41 49 4E 2C 20 41 4E 44 20 54 48 49 53 20 54 GAIN, AND THIS T
0001C0: 49 4D 45 20 50 4C 45 41 53 45 20 42 45 20 4D 4F IME PLEASE BE MO
0001D0: 52 45 20 43 41 52 45 46 55 4C 2E 22 0D 0A 38 37 RE CAREFUL."..87
0001E0: 30 20 47 4F 54 4F 20 36 36 30 0D 0A 38 38 30 20 0 GOTO 660..880
0001F0: 47 3D 58 0D 0A 38 39 30 20 52 45 4D 20 20 20 20 G=X..890 REM
Size : 512 (Real : 512)
000000: 30 20 49 46 20 47 24 28 54 29 3D 41 24 28 54 29 0 IF G$(T)=A$(T)
000010: 20 54 48 45 4E 20 34 36 35 30 0D 0A 34 36 34 35 THEN 4650..4645
000020: 20 57 3D 57 2B 31 3A 41 24 28 54 29 3D 43 48 52 W=W+1:A$(T)=CHR
000030: 24 28 46 29 3A 47 24 28 53 29 3D 43 48 52 24 28 $(F):G$(S)=CHR$(
000040: 46 2B 31 29 3A 46 3D 46 2B 32 3A 47 4F 54 4F 20 F+1):F=F+2:GOTO
000050: 34 36 36 30 0D 0A 34 36 35 30 20 4E 45 58 54 20 4660..4650 NEXT
000060: 54 0D 0A 34 36 36 30 20 4E 45 58 54 20 53 0D 0A T..4660 NEXT S..
000070: 34 36 37 30 20 52 45 54 55 52 4E 0D 0A 35 30 30 4670 RETURN..500
000080: 30 20 52 45 4D 0D 0A 35 30 31 30 20 52 45 4D 20 0 REM..5010 REM
000090: 20 20 20 20 50 52 49 4E 54 20 53 43 4F 52 45 0D PRINT SCORE.
0000A0: 0A 35 30 32 30 20 52 45 4D 0D 0A 35 30 33 30 20 .5020 REM..5030
0000B0: 50 52 49 4E 54 20 22 53 43 4F 52 45 3A 22 0D 0A PRINT "SCORE:"..
0000C0: 35 30 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 5040 PRINT "
0000D0: 20 43 4F 4D 50 55 54 45 52 20 22 3B 43 0D 0A 35 COMPUTER ";C..5
0000E0: 30 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 050 PRINT "
0000F0: 48 55 4D 41 4E 20 20 20 20 22 3B 48 0D 0A 35 30 HUMAN ";H..50
000100: 36 30 20 50 52 49 4E 54 0D 0A 35 30 37 30 20 52 60 PRINT..5070 R
000110: 45 54 55 52 4E 0D 0A 35 35 30 30 20 52 45 4D 0D ETURN..5500 REM.
000120: 0A 35 35 31 30 20 52 45 4D 20 20 20 20 20 43 4F .5510 REM CO
000130: 4E 56 45 52 54 20 51 28 31 2D 50 39 29 20 49 4E NVERT Q(1-P9) IN
000140: 54 4F 20 47 24 28 31 2D 50 39 29 0D 0A 35 35 32 TO G$(1-P9)..552
000150: 30 20 52 45 4D 0D 0A 35 35 33 30 20 46 4F 52 20 0 REM..5530 FOR
000160: 53 3D 31 20 54 4F 20 50 39 0D 0A 35 35 34 30 20 S=1 TO P9..5540
000170: 47 24 28 53 29 3D 4D 49 44 24 28 4C 24 2C 51 28 G$(S)=MID$(L$,Q(
000180: 53 29 2C 31 29 0D 0A 35 35 35 30 20 4E 45 58 54 S),1)..5550 NEXT
000190: 20 53 0D 0A 35 35 36 30 20 52 45 54 55 52 4E 0D S..5560 RETURN.
0001A0: 0A 36 30 30 30 20 52 45 4D 0D 0A 36 30 31 30 20 .6000 REM..6010
0001B0: 52 45 4D 20 20 20 20 20 43 4F 4E 56 45 52 54 20 REM CONVERT
0001C0: 51 28 31 2D 50 39 29 20 54 4F 20 48 24 28 31 2D Q(1-P9) TO H$(1-
0001D0: 50 39 29 0D 0A 36 30 32 30 20 52 45 4D 0D 0A 36 P9)..6020 REM..6
0001E0: 30 33 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 50 030 FOR S=1 TO P
0001F0: 39 0D 0A 36 30 34 30 20 48 24 28 53 29 3D 4D 49 9..6040 H$(S)=MI
Size : 512 (Real : 512)
000000: 20 4E 4F 57 20 57 45 20 43 4F 4E 56 45 52 54 20 NOW WE CONVERT
000010: 47 55 45 53 53 20 23 47 20 49 4E 54 4F 20 47 24 GUESS #G INTO G$
000020: 0D 0A 39 30 30 20 46 4F 52 20 58 3D 31 20 54 4F ..900 FOR X=1 TO
000030: 20 47 0D 0A 39 31 30 20 47 4F 53 55 42 20 33 35 G..910 GOSUB 35
000040: 30 30 0D 0A 39 32 30 20 4E 45 58 54 20 58 0D 0A 00..920 NEXT X..
000050: 39 33 30 20 47 4F 53 55 42 20 36 30 30 30 0D 0A 930 GOSUB 6000..
000060: 39 34 30 20 50 52 49 4E 54 20 22 4D 59 20 47 55 940 PRINT "MY GU
000070: 45 53 53 20 49 53 3A 20 22 3B 0D 0A 39 35 30 20 ESS IS: ";..950
000080: 46 4F 52 20 58 3D 31 20 54 4F 20 50 39 0D 0A 39 FOR X=1 TO P9..9
000090: 36 30 20 50 52 49 4E 54 20 48 24 28 58 29 3B 0D 60 PRINT H$(X);.
0000A0: 0A 39 37 30 20 4E 45 58 54 20 58 0D 0A 39 38 30 .970 NEXT X..980
0000B0: 20 49 4E 50 55 54 20 22 20 20 42 4C 41 43 4B 53 INPUT " BLACKS
0000C0: 2C 20 57 48 49 54 45 53 20 22 3B 42 31 2C 57 31 , WHITES ";B1,W1
0000D0: 0D 0A 39 39 30 20 49 46 20 42 31 3D 50 39 20 54 ..990 IF B1=P9 T
0000E0: 48 45 4E 20 31 31 32 30 0D 0A 31 30 30 30 20 47 HEN 1120..1000 G
0000F0: 4F 53 55 42 20 33 30 30 30 0D 0A 31 30 31 30 20 OSUB 3000..1010
000100: 46 4F 52 20 58 3D 31 20 54 4F 20 50 0D 0A 31 30 FOR X=1 TO P..10
000110: 32 30 20 47 4F 53 55 42 20 33 35 30 30 0D 0A 31 20 GOSUB 3500..1
000120: 30 33 30 20 49 46 20 49 28 58 29 3D 30 20 54 48 030 IF I(X)=0 TH
000130: 45 4E 20 31 30 37 30 0D 0A 31 30 33 35 20 47 4F EN 1070..1035 GO
000140: 53 55 42 20 36 35 30 30 0D 0A 31 30 34 30 20 47 SUB 6500..1040 G
000150: 4F 53 55 42 20 34 30 30 30 0D 0A 31 30 35 30 20 OSUB 4000..1050
000160: 47 4F 53 55 42 20 34 35 30 30 0D 0A 31 30 36 30 GOSUB 4500..1060
000170: 20 49 46 20 42 31 3C 3E 42 20 4F 52 20 57 31 3C IF B1<>B OR W1<
000180: 3E 57 20 54 48 45 4E 20 49 28 58 29 3D 30 0D 0A >W THEN I(X)=0..
000190: 31 30 37 30 20 4E 45 58 54 20 58 0D 0A 31 30 38 1070 NEXT X..108
0001A0: 30 20 4E 45 58 54 20 4D 0D 0A 31 30 39 30 20 50 0 NEXT M..1090 P
0001B0: 52 49 4E 54 20 22 49 20 55 53 45 44 20 55 50 20 RINT "I USED UP
0001C0: 41 4C 4C 20 4D 59 20 4D 4F 56 45 53 21 22 0D 0A ALL MY MOVES!"..
0001D0: 31 31 30 30 20 50 52 49 4E 54 20 22 49 20 47 55 1100 PRINT "I GU
0001E0: 45 53 53 20 4D 59 20 43 50 55 20 49 53 20 4A 55 ESS MY CPU IS JU
0001F0: 53 54 20 48 41 56 49 4E 47 20 41 4E 20 4F 46 46 ST HAVING AN OFF
Size : 512 (Real : 512)
000000: 44 24 28 4C 24 2C 51 28 53 29 2C 31 29 0D 0A 36 D$(L$,Q(S),1)..6
000010: 30 35 30 20 4E 45 58 54 20 53 0D 0A 36 30 36 30 050 NEXT S..6060
000020: 20 52 45 54 55 52 4E 0D 0A 36 35 30 30 20 52 45 RETURN..6500 RE
000030: 4D 0D 0A 36 35 31 30 20 52 45 4D 20 20 20 20 20 M..6510 REM
000040: 43 4F 50 59 20 48 24 20 49 4E 54 4F 20 47 24 0D COPY H$ INTO G$.
000050: 0A 36 35 32 30 20 52 45 4D 0D 0A 36 35 33 30 20 .6520 REM..6530
000060: 46 4F 52 20 53 3D 31 20 54 4F 20 50 39 0D 0A 36 FOR S=1 TO P9..6
000070: 35 34 30 20 47 24 28 53 29 3D 48 24 28 53 29 0D 540 G$(S)=H$(S).
000080: 0A 36 35 35 30 20 4E 45 58 54 20 53 0D 0A 36 35 .6550 NEXT S..65
000090: 36 30 20 52 45 54 55 52 4E 0D 0A 38 30 30 30 20 60 RETURN..8000
0000A0: 52 45 4D 20 20 20 20 20 50 52 4F 47 52 41 4D 20 REM PROGRAM
0000B0: 44 41 54 41 20 46 4F 52 20 43 4F 4C 4F 52 20 4E DATA FOR COLOR N
0000C0: 41 4D 45 53 0D 0A 38 30 31 30 20 44 41 54 41 20 AMES..8010 DATA
0000D0: 42 4C 41 43 4B 2C 57 48 49 54 45 2C 52 45 44 2C BLACK,WHITE,RED,
0000E0: 47 52 45 45 4E 2C 4F 52 41 4E 47 45 2C 59 45 4C GREEN,ORANGE,YEL
0000F0: 4C 4F 57 2C 50 55 52 50 4C 45 2C 54 41 4E 0D 0A LOW,PURPLE,TAN..
000100: 39 39 39 38 20 52 45 4D 20 20 20 2E 2E 2E 57 45 9998 REM ...WE
000110: 27 52 45 20 53 4F 52 52 59 20 42 55 54 20 49 54 'RE SORRY BUT IT
000120: 27 53 20 54 49 4D 45 20 54 4F 20 47 4F 2E 2E 2E 'S TIME TO GO...
000130: 0D 0A 39 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 ..9999 END......
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000010: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000020: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000030: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000040: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000050: 0D 0A 21 20 20 20 20 20 20 20 20 20 20 20 20 20 ..!
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 21 0D 0A 21 20 4D 49 4E 45 20 20 20 20 20 20 !..! MINE
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 21 0D 0A 21 20 20 20 20 20 20 20 20 20 !..!
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 21 0D 0A 21 20 4D 69 6E 65 20 69 !..! Mine i
000150: 73 20 74 68 65 20 63 6C 61 73 73 69 63 20 67 61 s the classic ga
000160: 6D 65 20 77 68 65 72 65 20 61 20 66 69 65 6C 64 me where a field
000170: 20 6F 66 20 68 69 64 64 65 6E 20 6D 69 6E 65 73 of hidden mines
000180: 20 69 73 20 70 72 65 73 65 6E 74 65 64 2C 20 61 is presented, a
000190: 6E 64 20 74 68 65 20 21 0D 0A 21 20 75 73 65 72 nd the !..! user
0001A0: 20 74 72 69 65 73 20 74 6F 20 66 69 6E 64 20 74 tries to find t
0001B0: 68 65 20 6D 69 6E 65 73 20 62 61 73 65 64 20 6F he mines based o
0001C0: 6E 20 6D 69 6E 65 20 63 6F 75 6E 74 73 20 69 6E n mine counts in
0001D0: 20 61 64 6A 61 63 65 6E 74 20 73 71 75 61 72 65 adjacent square
0001E0: 73 2E 20 20 20 20 20 20 20 21 0D 0A 21 20 20 20 s. !..!
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 10 PRINT TAB(31)
000010: 3B 22 4D 41 54 48 20 44 49 43 45 22 0D 0A 32 30 ;"MATH DICE"..20
000020: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
000030: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
000040: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
000050: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 NEW JERSEY"..30
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E PRINT:PRINT:PRIN
000070: 54 0D 0A 34 30 20 50 52 49 4E 54 20 22 54 48 49 T..40 PRINT "THI
000080: 53 20 50 52 4F 47 52 41 4D 20 47 45 4E 45 52 41 S PROGRAM GENERA
000090: 54 45 53 20 53 55 43 43 45 53 49 56 45 20 50 49 TES SUCCESIVE PI
0000A0: 43 54 55 52 45 53 20 4F 46 20 54 57 4F 20 44 49 CTURES OF TWO DI
0000B0: 43 45 2E 22 0D 0A 35 30 20 50 52 49 4E 54 20 22 CE."..50 PRINT "
0000C0: 57 48 45 4E 20 54 57 4F 20 44 49 43 45 20 41 4E WHEN TWO DICE AN
0000D0: 44 20 41 4E 20 45 51 55 41 4C 20 53 49 47 4E 20 D AN EQUAL SIGN
0000E0: 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 20 51 55 FOLLOWED BY A QU
0000F0: 45 53 54 49 4F 4E 22 0D 0A 36 30 20 50 52 49 4E ESTION"..60 PRIN
000100: 54 20 22 4D 41 52 4B 20 48 41 56 45 20 42 45 45 T "MARK HAVE BEE
000110: 4E 20 50 52 49 4E 54 45 44 2C 20 54 59 50 45 20 N PRINTED, TYPE
000120: 59 4F 55 52 20 41 4E 53 57 45 52 20 41 4E 44 20 YOUR ANSWER AND
000130: 54 48 45 20 52 45 54 55 52 4E 20 4B 45 59 2E 22 THE RETURN KEY."
000140: 0D 0A 37 30 20 50 52 49 4E 54 20 22 54 4F 20 43 ..70 PRINT "TO C
000150: 4F 4E 43 4C 55 44 45 20 54 48 45 20 4C 45 53 53 ONCLUDE THE LESS
000160: 4F 4E 2C 20 54 59 50 45 20 43 4F 4E 54 52 4F 4C ON, TYPE CONTROL
000170: 2D 43 20 41 53 20 59 4F 55 52 20 41 4E 53 57 45 -C AS YOUR ANSWE
000180: 52 2E 22 0D 0A 38 30 20 50 52 49 4E 54 0D 0A 39 R."..80 PRINT..9
000190: 30 20 50 52 49 4E 54 0D 0A 31 30 30 20 4E 3D 4E 0 PRINT..100 N=N
0001A0: 2B 31 0D 0A 31 31 30 20 44 3D 49 4E 54 28 36 2A +1..110 D=INT(6*
0001B0: 52 4E 44 28 31 29 2B 31 29 0D 0A 31 32 30 20 50 RND(1)+1)..120 P
0001C0: 52 49 4E 54 22 20 2D 2D 2D 2D 2D 20 22 0D 0A 31 RINT" ----- "..1
0001D0: 33 30 20 49 46 20 44 3D 31 20 54 48 45 4E 20 32 30 IF D=1 THEN 2
0001E0: 30 30 0D 0A 31 34 30 20 49 46 20 44 3D 32 20 54 00..140 IF D=2 T
0001F0: 48 45 4E 20 31 38 30 0D 0A 31 35 30 20 49 46 20 HEN 180..150 IF
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A 21 20 !..!
000040: 44 65 72 69 76 65 64 20 66 72 6F 6D 20 74 68 65 Derived from the
000050: 20 50 61 73 63 61 6C 20 76 65 72 73 69 6F 6E 2E Pascal version.
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0D 0A !..
000090: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 !
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 !
0000E0: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
0000F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000100: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000110: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000120: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000130: 21 21 0D 0A 0D 0A 21 20 68 65 6C 70 65 72 20 64 !!....! helper d
000140: 65 66 69 6E 65 73 0D 0A 0D 0A 66 61 6C 73 65 25 efines....false%
000150: 20 3D 20 30 0D 0A 74 72 75 65 25 20 3D 20 2D 31 = 0..true% = -1
000160: 0D 0A 0D 0A 21 20 63 6F 6C 6F 72 73 0D 0A 0D 0A ....! colors....
000170: 62 6C 61 63 6B 25 20 20 20 3D 20 30 0D 0A 77 68 black% = 0..wh
000180: 69 74 65 25 20 20 20 3D 20 31 0D 0A 72 65 64 25 ite% = 1..red%
000190: 20 20 20 20 20 3D 20 32 0D 0A 67 72 65 65 6E 25 = 2..green%
0001A0: 20 20 20 3D 20 33 0D 0A 62 6C 75 65 25 20 20 20 = 3..blue%
0001B0: 20 3D 20 34 0D 0A 63 79 61 6E 25 20 20 20 20 3D = 4..cyan% =
0001C0: 20 35 0D 0A 79 65 6C 6C 6F 77 25 20 20 3D 20 36 5..yellow% = 6
0001D0: 0D 0A 6D 61 67 65 6E 74 61 25 20 3D 20 37 0D 0A ..magenta% = 7..
0001E0: 0D 0A 21 20 65 76 65 6E 74 73 0D 0A 0D 0A 65 74 ..! events....et
0001F0: 63 68 61 72 25 20 20 20 20 3D 20 30 20 20 21 20 char% = 0 !
Size : 512 (Real : 512)
000000: 44 3D 33 20 54 48 45 4E 20 31 38 30 0D 0A 31 36 D=3 THEN 180..16
000010: 30 20 50 52 49 4E 54 20 22 49 20 2A 20 2A 20 49 0 PRINT "I * * I
000020: 22 0D 0A 31 37 30 20 47 4F 54 4F 20 32 31 30 0D "..170 GOTO 210.
000030: 0A 31 38 30 20 50 52 49 4E 54 20 22 49 20 2A 20 .180 PRINT "I *
000040: 20 20 49 22 0D 0A 31 39 30 20 47 4F 54 4F 20 32 I"..190 GOTO 2
000050: 31 30 0D 0A 32 30 30 20 50 52 49 4E 54 20 22 49 10..200 PRINT "I
000060: 20 20 20 20 20 49 22 0D 0A 32 31 30 20 49 46 20 I"..210 IF
000070: 44 3D 32 20 54 48 45 4E 20 32 36 30 0D 0A 32 32 D=2 THEN 260..22
000080: 30 20 49 46 20 44 3D 34 20 54 48 45 4E 20 32 36 0 IF D=4 THEN 26
000090: 30 0D 0A 32 33 30 20 49 46 20 44 3D 36 20 54 48 0..230 IF D=6 TH
0000A0: 45 4E 20 32 37 30 0D 0A 32 34 30 20 50 52 49 4E EN 270..240 PRIN
0000B0: 54 20 22 49 20 20 2A 20 20 49 22 0D 0A 32 35 30 T "I * I"..250
0000C0: 20 47 4F 54 4F 20 32 38 30 0D 0A 32 36 30 20 50 GOTO 280..260 P
0000D0: 52 49 4E 54 20 22 49 20 20 20 20 20 49 22 0D 0A RINT "I I"..
0000E0: 32 36 35 20 47 4F 54 4F 20 32 38 30 0D 0A 32 37 265 GOTO 280..27
0000F0: 30 20 50 52 49 4E 54 20 22 49 20 2A 20 2A 20 49 0 PRINT "I * * I
000100: 22 0D 0A 32 38 30 20 49 46 20 44 3D 31 20 54 48 "..280 IF D=1 TH
000110: 45 4E 20 33 35 30 0D 0A 32 39 30 20 49 46 20 44 EN 350..290 IF D
000120: 3D 32 20 54 48 45 4E 20 33 33 30 0D 0A 33 30 30 =2 THEN 330..300
000130: 20 49 46 20 44 3D 33 20 54 48 45 4E 20 33 33 30 IF D=3 THEN 330
000140: 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 49 20 2A ..310 PRINT "I *
000150: 20 2A 20 49 22 0D 0A 33 32 30 20 47 4F 54 4F 20 * I"..320 GOTO
000160: 33 36 30 0D 0A 33 33 30 20 50 52 49 4E 54 20 22 360..330 PRINT "
000170: 49 20 20 20 2A 20 49 22 0D 0A 33 34 30 20 47 4F I * I"..340 GO
000180: 54 4F 20 33 36 30 0D 0A 33 35 30 20 50 52 49 4E TO 360..350 PRIN
000190: 54 20 22 49 20 20 20 20 20 49 22 0D 0A 33 36 30 T "I I"..360
0001A0: 20 50 52 49 4E 54 20 22 20 2D 2D 2D 2D 2D 20 22 PRINT " ----- "
0001B0: 0D 0A 33 37 30 20 50 52 49 4E 54 0D 0A 33 37 35 ..370 PRINT..375
0001C0: 20 49 46 20 4E 3D 32 20 54 48 45 4E 20 35 30 30 IF N=2 THEN 500
0001D0: 0D 0A 33 38 30 20 50 52 49 4E 54 20 22 20 20 20 ..380 PRINT "
0001E0: 2B 22 0D 0A 33 38 31 20 50 52 49 4E 54 0D 0A 34 +"..381 PRINT..4
0001F0: 30 30 20 41 3D 44 0D 0A 34 31 30 20 47 4F 54 4F 00 A=D..410 GOTO
Size : 512 (Real : 512)
000000: 41 4E 53 49 20 63 68 61 72 61 63 74 65 72 20 72 ANSI character r
000010: 65 74 75 72 6E 65 64 0D 0A 65 74 75 70 25 20 20 eturned..etup%
000020: 20 20 20 20 3D 20 31 20 20 21 20 63 75 72 73 6F = 1 ! curso
000030: 72 20 75 70 20 6F 6E 65 20 6C 69 6E 65 0D 0A 65 r up one line..e
000040: 74 64 6F 77 6E 25 20 20 20 20 3D 20 32 20 20 21 tdown% = 2 !
000050: 20 64 6F 77 6E 20 6F 6E 65 20 6C 69 6E 65 0D 0A down one line..
000060: 65 74 6C 65 66 74 25 20 20 20 20 3D 20 33 20 20 etleft% = 3
000070: 21 20 6C 65 66 74 20 6F 6E 65 20 63 68 61 72 61 ! left one chara
000080: 63 74 65 72 0D 0A 65 74 72 69 67 68 74 25 20 20 cter..etright%
000090: 20 3D 20 34 20 20 21 20 72 69 67 68 74 20 6F 6E = 4 ! right on
0000A0: 65 20 63 68 61 72 61 63 74 65 72 0D 0A 65 74 6C e character..etl
0000B0: 65 66 74 77 25 20 20 20 3D 20 35 20 20 21 20 6C eftw% = 5 ! l
0000C0: 65 66 74 20 6F 6E 65 20 77 6F 72 64 0D 0A 65 74 eft one word..et
0000D0: 72 69 67 68 74 77 25 20 20 3D 20 36 20 20 21 20 rightw% = 6 !
0000E0: 72 69 67 68 74 20 6F 6E 65 20 77 6F 72 64 0D 0A right one word..
0000F0: 65 74 68 6F 6D 65 25 20 20 20 20 3D 20 37 20 20 ethome% = 7
000100: 21 20 68 6F 6D 65 20 6F 66 20 64 6F 63 75 6D 65 ! home of docume
000110: 6E 74 0D 0A 65 74 68 6F 6D 65 73 25 20 20 20 3D nt..ethomes% =
000120: 20 38 20 20 21 20 68 6F 6D 65 20 6F 66 20 73 63 8 ! home of sc
000130: 72 65 65 6E 0D 0A 65 74 68 6F 6D 65 6C 25 20 20 reen..ethomel%
000140: 20 3D 20 39 20 20 21 20 68 6F 6D 65 20 6F 66 20 = 9 ! home of
000150: 6C 69 6E 65 0D 0A 65 74 65 6E 64 25 20 20 20 20 line..etend%
000160: 20 3D 20 31 30 20 21 20 65 6E 64 20 6F 66 20 64 = 10 ! end of d
000170: 6F 63 75 6D 65 6E 74 0D 0A 65 74 65 6E 64 73 25 ocument..etends%
000180: 20 20 20 20 3D 20 31 31 20 21 20 65 6E 64 20 6F = 11 ! end o
000190: 66 20 73 63 72 65 65 6E 0D 0A 65 74 65 6E 64 6C f screen..etendl
0001A0: 25 20 20 20 20 3D 20 31 32 20 21 20 65 6E 64 20 % = 12 ! end
0001B0: 6F 66 20 6C 69 6E 65 0D 0A 65 74 73 63 72 6C 25 of line..etscrl%
0001C0: 20 20 20 20 3D 20 31 33 20 21 20 73 63 72 6F 6C = 13 ! scrol
0001D0: 6C 20 6C 65 66 74 20 6F 6E 65 20 63 68 61 72 61 l left one chara
0001E0: 63 74 65 72 0D 0A 65 74 73 63 72 72 25 20 20 20 cter..etscrr%
0001F0: 20 3D 20 31 34 20 21 20 73 63 72 6F 6C 6C 20 72 = 14 ! scroll r
Size : 512 (Real : 512)
000000: 20 31 30 30 0D 0A 35 30 30 20 54 3D 44 2B 41 0D 100..500 T=D+A.
000010: 0A 35 31 30 20 50 52 49 4E 54 20 22 20 20 20 20 .510 PRINT "
000020: 20 20 3D 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 =";..520 INPUT
000030: 20 54 31 0D 0A 35 33 30 20 49 46 20 54 31 3D 54 T1..530 IF T1=T
000040: 20 54 48 45 4E 20 35 39 30 0D 0A 35 34 30 20 50 THEN 590..540 P
000050: 52 49 4E 54 20 22 4E 4F 2C 20 43 4F 55 4E 54 20 RINT "NO, COUNT
000060: 54 48 45 20 53 50 4F 54 53 20 41 4E 44 20 47 49 THE SPOTS AND GI
000070: 56 45 20 41 4E 4F 54 48 45 52 20 41 4E 53 57 45 VE ANOTHER ANSWE
000080: 52 2E 22 0D 0A 35 34 31 20 50 52 49 4E 54 20 22 R."..541 PRINT "
000090: 20 20 20 20 20 20 3D 22 3B 0D 0A 35 35 30 20 49 =";..550 I
0000A0: 4E 50 55 54 20 54 32 0D 0A 35 36 30 20 49 46 20 NPUT T2..560 IF
0000B0: 54 32 3D 54 20 54 48 45 4E 20 35 39 30 0D 0A 35 T2=T THEN 590..5
0000C0: 37 30 20 50 52 49 4E 54 20 22 4E 4F 2C 20 54 48 70 PRINT "NO, TH
0000D0: 45 20 41 4E 53 57 45 52 20 49 53 22 3B 54 0D 0A E ANSWER IS";T..
0000E0: 35 38 30 20 47 4F 54 4F 20 36 30 30 0D 0A 35 39 580 GOTO 600..59
0000F0: 30 20 50 52 49 4E 54 20 22 52 49 47 48 54 21 22 0 PRINT "RIGHT!"
000100: 0D 0A 36 30 30 20 50 52 49 4E 54 0D 0A 36 30 31 ..600 PRINT..601
000110: 20 50 52 49 4E 54 20 22 54 48 45 20 44 49 43 45 PRINT "THE DICE
000120: 20 52 4F 4C 4C 20 41 47 41 49 4E 2E 2E 2E 22 0D ROLL AGAIN...".
000130: 0A 36 31 30 20 50 52 49 4E 54 0D 0A 36 31 35 20 .610 PRINT..615
000140: 4E 3D 30 0D 0A 36 32 30 20 47 4F 54 4F 20 31 30 N=0..620 GOTO 10
000150: 30 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 0..999 END......
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 69 67 68 74 20 6F 6E 65 20 63 68 61 72 61 63 74 ight one charact
000010: 65 72 0D 0A 65 74 73 63 72 75 25 20 20 20 20 3D er..etscru% =
000020: 20 31 35 20 21 20 73 63 72 6F 6C 6C 20 75 70 20 15 ! scroll up
000030: 6F 6E 65 20 6C 69 6E 65 0D 0A 65 74 73 63 72 64 one line..etscrd
000040: 25 20 20 20 20 3D 20 31 36 20 21 20 73 63 72 6F % = 16 ! scro
000050: 6C 6C 20 64 6F 77 6E 20 6F 6E 65 20 6C 69 6E 65 ll down one line
000060: 0D 0A 65 74 70 61 67 64 25 20 20 20 20 3D 20 31 ..etpagd% = 1
000070: 37 20 21 20 70 61 67 65 20 64 6F 77 6E 0D 0A 65 7 ! page down..e
000080: 74 70 61 67 75 25 20 20 20 20 3D 20 31 38 20 21 tpagu% = 18 !
000090: 20 70 61 67 65 20 75 70 0D 0A 65 74 74 61 62 25 page up..ettab%
0000A0: 20 20 20 20 20 3D 20 31 39 20 21 20 74 61 62 0D = 19 ! tab.
0000B0: 0A 65 74 65 6E 74 65 72 25 20 20 20 3D 20 32 30 .etenter% = 20
0000C0: 20 21 20 65 6E 74 65 72 20 6C 69 6E 65 0D 0A 65 ! enter line..e
0000D0: 74 69 6E 73 65 72 74 25 20 20 3D 20 32 31 20 21 tinsert% = 21 !
0000E0: 20 69 6E 73 65 72 74 20 62 6C 6F 63 6B 0D 0A 65 insert block..e
0000F0: 74 69 6E 73 65 72 74 6C 25 20 3D 20 32 32 20 21 tinsertl% = 22 !
000100: 20 69 6E 73 65 72 74 20 6C 69 6E 65 0D 0A 65 74 insert line..et
000110: 69 6E 73 65 72 74 74 25 20 3D 20 32 33 20 21 20 insertt% = 23 !
000120: 69 6E 73 65 72 74 20 74 6F 67 67 6C 65 0D 0A 65 insert toggle..e
000130: 74 64 65 6C 25 20 20 20 20 20 3D 20 32 34 20 21 tdel% = 24 !
000140: 20 64 65 6C 65 74 65 20 62 6C 6F 63 6B 0D 0A 65 delete block..e
000150: 74 64 65 6C 6C 25 20 20 20 20 3D 20 32 35 20 21 tdell% = 25 !
000160: 20 64 65 6C 65 74 65 20 6C 69 6E 65 0D 0A 65 74 delete line..et
000170: 64 65 6C 63 66 25 20 20 20 3D 20 32 36 20 21 20 delcf% = 26 !
000180: 64 65 6C 65 74 65 20 63 68 61 72 61 63 74 65 72 delete character
000190: 20 66 6F 72 77 61 72 64 0D 0A 65 74 64 65 6C 63 forward..etdelc
0001A0: 62 25 20 20 20 3D 20 32 37 20 21 20 64 65 6C 65 b% = 27 ! dele
0001B0: 74 65 20 63 68 61 72 61 63 74 65 72 20 62 61 63 te character bac
0001C0: 6B 77 61 72 64 0D 0A 65 74 63 6F 70 79 25 20 20 kward..etcopy%
0001D0: 20 20 3D 20 32 38 20 21 20 63 6F 70 79 20 62 6C = 28 ! copy bl
0001E0: 6F 63 6B 0D 0A 65 74 63 6F 70 79 6C 25 20 20 20 ock..etcopyl%
0001F0: 3D 20 32 39 20 21 20 63 6F 70 79 20 6C 69 6E 65 = 29 ! copy line
Size : 512 (Real : 512)
000000: 21 20 69 6E 64 65 78 20 66 6F 72 20 6D 6F 76 65 ! index for move
000010: 20 61 72 72 61 79 20 7D 0D 0A 20 0D 0A 6D 69 6E array }.. ..min
000020: 65 73 25 20 3D 20 30 20 21 20 63 6C 65 61 72 20 es% = 0 ! clear
000030: 6D 69 6E 65 20 63 6F 75 6E 74 0D 0A 66 6F 72 20 mine count..for
000040: 69 25 20 3D 20 31 20 74 6F 20 38 20 21 20 70 72 i% = 1 to 8 ! pr
000050: 6F 63 65 73 73 20 70 6F 69 6E 74 73 20 6F 66 20 ocess points of
000060: 74 68 65 20 63 6F 6D 70 61 73 73 0D 0A 0D 0A 20 the compass....
000070: 20 20 78 6E 25 20 3D 20 78 25 2B 78 6F 66 66 25 xn% = x%+xoff%
000080: 28 69 25 29 20 21 20 66 69 6E 64 20 6E 65 69 67 (i%) ! find neig
000090: 68 62 6F 72 20 6C 6F 63 61 74 69 6F 6E 73 0D 0A hbor locations..
0000A0: 20 20 20 79 6E 25 20 3D 20 79 25 2B 79 6F 66 66 yn% = y%+yoff
0000B0: 25 28 69 25 29 0D 0A 20 20 20 69 66 20 78 6E 25 %(i%).. if xn%
0000C0: 20 3E 3D 20 31 20 61 6E 64 20 78 6E 25 20 3C 3D >= 1 and xn% <=
0000D0: 20 6D 61 78 78 73 25 20 61 6E 64 20 79 6E 25 20 maxxs% and yn%
0000E0: 3E 3D 20 31 20 61 6E 64 20 79 6E 25 20 3C 3D 20 >= 1 and yn% <=
0000F0: 6D 61 78 79 73 25 20 74 68 65 6E 0D 0A 0D 0A 20 maxys% then....
000100: 20 20 20 20 20 21 20 76 61 6C 69 64 20 6C 6F 63 ! valid loc
000110: 61 74 69 6F 6E 0D 0A 20 20 20 20 20 20 69 66 20 ation.. if
000120: 6D 69 6E 65 25 28 78 6E 25 2C 20 79 6E 25 29 20 mine%(xn%, yn%)
000130: 74 68 65 6E 20 6D 69 6E 65 73 25 20 3D 20 6D 69 then mines% = mi
000140: 6E 65 73 25 2B 31 20 21 20 63 6F 75 6E 74 20 6D nes%+1 ! count m
000150: 69 6E 65 73 0D 0A 0D 0A 20 20 20 65 6E 64 69 66 ines.... endif
000160: 0D 0A 0D 0A 6E 65 78 74 20 69 25 0D 0A 0D 0A 65 ....next i%....e
000170: 6E 64 66 75 6E 63 20 6D 69 6E 65 73 25 20 21 20 ndfunc mines% !
000180: 72 65 74 75 72 6E 20 74 68 65 20 6E 75 6D 62 65 return the numbe
000190: 72 20 6F 66 20 6D 69 6E 65 73 0D 0A 0D 0A 21 21 r of mines....!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001E0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 0D 0A !!!!!!!!!!!!!!..
0001F0: 21 20 0D 0A 21 20 53 65 74 20 61 64 6A 61 63 65 ! ..! Set adjace
Size : 512 (Real : 512)
000000: 0D 0A 65 74 63 61 6E 25 20 20 20 20 20 3D 20 33 ..etcan% = 3
000010: 30 20 21 20 63 61 6E 63 65 6C 20 63 75 72 72 65 0 ! cancel curre
000020: 6E 74 20 6F 70 65 72 61 74 69 6F 6E 0D 0A 65 74 nt operation..et
000030: 73 74 6F 70 25 20 20 20 20 3D 20 33 31 20 21 20 stop% = 31 !
000040: 73 74 6F 70 20 63 75 72 72 65 6E 74 20 6F 70 65 stop current ope
000050: 72 61 74 69 6F 6E 0D 0A 65 74 63 6F 6E 74 25 20 ration..etcont%
000060: 20 20 20 3D 20 33 32 20 21 20 63 6F 6E 74 69 6E = 32 ! contin
000070: 75 65 20 63 75 72 72 65 6E 74 20 6F 70 65 72 61 ue current opera
000080: 74 69 6F 6E 0D 0A 65 74 70 72 69 6E 74 25 20 20 tion..etprint%
000090: 20 3D 20 33 33 20 21 20 70 72 69 6E 74 20 64 6F = 33 ! print do
0000A0: 63 75 6D 65 6E 74 0D 0A 65 74 70 72 69 6E 74 62 cument..etprintb
0000B0: 25 20 20 3D 20 33 34 20 21 20 70 72 69 6E 74 20 % = 34 ! print
0000C0: 62 6C 6F 63 6B 0D 0A 65 74 70 72 69 6E 74 73 25 block..etprints%
0000D0: 20 20 3D 20 33 35 20 21 20 70 72 69 6E 74 20 73 = 35 ! print s
0000E0: 63 72 65 65 6E 0D 0A 65 74 66 75 6E 25 20 20 20 creen..etfun%
0000F0: 20 20 3D 20 33 36 20 21 20 66 75 6E 63 74 69 6F = 36 ! functio
000100: 6E 20 6B 65 79 0D 0A 65 74 6D 65 6E 75 25 20 20 n key..etmenu%
000110: 20 20 3D 20 34 36 20 21 20 64 69 73 70 6C 61 79 = 46 ! display
000120: 20 6D 65 6E 75 0D 0A 65 74 6D 6F 75 62 61 25 20 menu..etmouba%
000130: 20 20 3D 20 34 37 20 21 20 6D 6F 75 73 65 20 62 = 47 ! mouse b
000140: 75 74 74 6F 6E 20 61 73 73 65 72 74 69 6F 6E 0D utton assertion.
000150: 0A 65 74 6D 6F 75 62 64 25 20 20 20 3D 20 35 31 .etmoubd% = 51
000160: 20 21 20 6D 6F 75 73 65 20 62 75 74 74 6F 6E 20 ! mouse button
000170: 64 65 61 73 73 65 72 74 69 6F 6E 0D 0A 65 74 6D deassertion..etm
000180: 6F 75 6D 6F 76 25 20 20 3D 20 35 35 20 21 20 6D oumov% = 55 ! m
000190: 6F 75 73 65 20 6D 6F 76 65 0D 0A 65 74 74 69 6D ouse move..ettim
0001A0: 25 20 20 20 20 20 3D 20 35 36 20 21 20 74 69 6D % = 56 ! tim
0001B0: 65 72 20 6D 61 74 75 72 65 73 0D 0A 65 74 6A 6F er matures..etjo
0001C0: 79 62 61 25 20 20 20 3D 20 35 37 20 21 20 6A 6F yba% = 57 ! jo
0001D0: 79 73 74 69 63 6B 20 62 75 74 74 6F 6E 20 61 73 ystick button as
0001E0: 73 65 72 74 69 6F 6E 0D 0A 65 74 6A 6F 79 62 64 sertion..etjoybd
0001F0: 25 20 20 20 3D 20 35 38 20 21 20 6A 6F 79 73 74 % = 58 ! joyst
Size : 512 (Real : 512)
000000: 6E 74 20 73 71 75 61 72 65 73 20 76 69 73 61 62 nt squares visab
000010: 6C 65 0D 0A 21 0D 0A 21 20 53 65 74 73 20 61 6C le..!..! Sets al
000020: 6C 20 6F 66 20 74 68 65 20 76 61 6C 69 64 20 61 l of the valid a
000030: 64 6A 61 63 65 6E 74 20 73 71 75 61 72 65 73 20 djacent squares
000040: 76 69 73 61 62 6C 65 2E 20 49 66 20 61 6E 79 20 visable. If any
000050: 6F 66 20 74 68 6F 73 65 20 73 71 75 61 72 65 73 of those squares
000060: 20 61 72 65 0D 0A 21 20 6E 6F 74 20 61 64 6A 61 are..! not adja
000070: 63 65 6E 74 20 74 6F 20 61 20 6D 69 6E 65 2C 20 cent to a mine,
000080: 74 68 65 6E 20 74 68 65 20 6E 65 69 67 68 62 6F then the neighbo
000090: 72 73 20 6F 66 20 74 68 61 74 20 73 71 75 61 72 rs of that squar
0000A0: 65 20 61 72 65 20 73 65 74 20 76 69 73 61 62 6C e are set visabl
0000B0: 65 2C 20 65 74 63 2E 0D 0A 21 20 28 72 65 63 75 e, etc...! (recu
0000C0: 72 73 69 76 65 6C 79 29 2E 0D 0A 21 20 54 68 69 rsively)...! Thi
0000D0: 73 20 69 73 20 64 6F 6E 65 20 74 6F 20 22 72 69 s is done to "ri
0000E0: 70 22 20 67 72 69 64 73 20 6F 66 20 6F 62 76 69 p" grids of obvi
0000F0: 6F 75 73 6C 79 20 65 6D 70 74 79 20 6E 65 69 67 ously empty neig
000100: 68 62 6F 72 73 20 6F 66 66 20 74 68 65 20 62 6F hbors off the bo
000110: 61 72 64 2E 0D 0A 21 20 0D 0A 21 21 21 21 21 21 ard...! ..!!!!!!
000120: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000130: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000140: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000150: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000160: 21 21 21 21 21 21 21 21 21 21 0D 0A 0D 0A 70 72 !!!!!!!!!!....pr
000170: 6F 63 65 64 75 72 65 20 76 69 73 61 64 6A 28 78 ocedure visadj(x
000180: 25 2C 20 79 25 29 0D 0A 0D 0A 64 69 6D 20 78 6E %, y%)....dim xn
000190: 25 2C 20 79 6E 25 20 21 20 6E 65 69 67 68 62 6F %, yn% ! neighbo
0001A0: 72 20 63 6F 6F 72 64 69 6E 61 74 65 73 0D 0A 64 r coordinates..d
0001B0: 69 6D 20 69 25 20 20 20 20 20 20 20 21 20 69 6E im i% ! in
0001C0: 64 65 78 20 66 6F 72 20 6D 6F 76 65 20 61 72 72 dex for move arr
0001D0: 61 79 0D 0A 20 0D 0A 66 6F 72 20 69 25 20 3D 20 ay.. ..for i% =
0001E0: 31 20 74 6F 20 38 20 21 20 70 72 6F 63 65 73 73 1 to 8 ! process
0001F0: 20 70 6F 69 6E 74 73 20 6F 66 20 74 68 65 20 63 points of the c
Size : 512 (Real : 512)
000000: 69 63 6B 20 62 75 74 74 6F 6E 20 64 65 61 73 73 ick button deass
000010: 65 72 74 69 6F 6E 0D 0A 65 74 6A 6F 79 6D 6F 76 ertion..etjoymov
000020: 25 20 20 3D 20 35 39 20 21 20 6A 6F 79 73 74 69 % = 59 ! joysti
000030: 63 6B 20 6D 6F 76 65 0D 0A 65 74 74 65 72 6D 25 ck move..etterm%
000040: 20 20 20 20 3D 20 36 30 20 21 20 74 65 72 6D 69 = 60 ! termi
000050: 6E 61 74 65 20 70 72 6F 67 72 61 6D 0D 0A 0D 0A nate program....
000060: 21 20 70 72 6F 67 72 61 6D 20 64 65 66 69 6E 65 ! program define
000070: 73 0D 0A 0D 0A 6D 61 78 78 73 25 20 20 20 3D 20 s....maxxs% =
000080: 38 20 21 20 73 69 7A 65 20 6F 66 20 67 72 69 64 8 ! size of grid
000090: 0D 0A 6D 61 78 79 73 25 20 20 20 3D 20 38 0D 0A ..maxys% = 8..
0000A0: 6D 61 78 6D 69 6E 65 25 20 3D 20 31 30 20 21 20 maxmine% = 10 !
0000B0: 6E 75 6D 62 65 72 20 6F 66 20 6D 69 6E 65 73 20 number of mines
0000C0: 74 6F 20 70 6C 61 63 65 0D 0A 0D 0A 64 69 6D 20 to place....dim
0000D0: 6D 69 6E 65 25 28 6D 61 78 78 73 25 2C 20 6D 61 mine%(maxxs%, ma
0000E0: 78 79 73 25 29 20 21 20 6D 69 6E 65 20 65 78 69 xys%) ! mine exi
0000F0: 73 74 73 20 6D 61 70 0D 0A 64 69 6D 20 76 69 73 sts map..dim vis
000100: 25 28 6D 61 78 78 73 25 2C 20 6D 61 78 79 73 25 %(maxxs%, maxys%
000110: 29 20 20 21 20 73 71 75 61 72 65 20 69 73 20 75 ) ! square is u
000120: 6E 63 6F 76 65 72 65 64 20 6D 61 70 0D 0A 64 69 ncovered map..di
000130: 6D 20 66 6C 61 67 25 28 6D 61 78 78 73 25 2C 20 m flag%(maxxs%,
000140: 6D 61 78 79 73 25 29 20 21 20 73 71 75 61 72 65 maxys%) ! square
000150: 20 69 73 20 66 6C 61 67 67 65 64 20 6D 61 70 0D is flagged map.
000160: 0A 0D 0A 21 20 43 6F 6E 74 72 75 63 74 20 74 61 ...! Contruct ta
000170: 62 6C 65 20 74 6F 20 63 61 6C 63 75 6C 61 74 65 ble to calculate
000180: 20 61 64 6A 61 63 65 6E 74 20 73 71 75 61 72 65 adjacent square
000190: 73 0D 0A 0D 0A 64 69 6D 20 78 6F 66 66 25 28 38 s....dim xoff%(8
0001A0: 29 20 21 20 78 20 6F 66 66 73 65 74 20 74 61 62 ) ! x offset tab
0001B0: 6C 65 0D 0A 64 69 6D 20 79 6F 66 66 25 28 38 29 le..dim yoff%(8)
0001C0: 20 21 20 79 20 6F 66 66 73 65 74 20 74 61 62 6C ! y offset tabl
0001D0: 65 0D 0A 0D 0A 78 6F 66 66 25 28 31 29 20 3D 20 e....xoff%(1) =
0001E0: 20 30 3A 20 79 6F 66 66 25 28 31 29 20 3D 20 2D 0: yoff%(1) = -
0001F0: 31 20 21 20 75 70 0D 0A 78 6F 66 66 25 28 32 29 1 ! up..xoff%(2)
Size : 512 (Real : 512)
000000: 6F 6D 70 61 73 73 0D 0A 0D 0A 20 20 20 78 6E 25 ompass.... xn%
000010: 20 3D 20 78 25 2B 78 6F 66 66 25 28 69 25 29 20 = x%+xoff%(i%)
000020: 21 20 66 69 6E 64 20 6E 65 69 67 68 62 6F 72 20 ! find neighbor
000030: 6C 6F 63 61 74 69 6F 6E 73 0D 0A 20 20 20 79 6E locations.. yn
000040: 25 20 3D 20 79 25 2B 79 6F 66 66 25 28 69 25 29 % = y%+yoff%(i%)
000050: 0D 0A 20 20 20 69 66 20 78 6E 25 20 3E 3D 20 31 .. if xn% >= 1
000060: 20 61 6E 64 20 78 6E 25 20 3C 3D 20 6D 61 78 78 and xn% <= maxx
000070: 73 25 20 61 6E 64 20 79 6E 25 20 3E 3D 20 31 20 s% and yn% >= 1
000080: 61 6E 64 20 79 6E 25 20 3C 3D 20 6D 61 78 79 73 and yn% <= maxys
000090: 25 20 74 68 65 6E 0D 0A 0D 0A 20 20 20 20 20 20 % then....
0000A0: 69 66 20 6E 6F 74 20 76 69 73 25 28 78 6E 25 2C if not vis%(xn%,
0000B0: 20 79 6E 25 29 20 74 68 65 6E 20 21 20 6E 6F 74 yn%) then ! not
0000C0: 20 61 6C 72 65 61 64 79 20 76 69 73 61 62 6C 65 already visable
0000D0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 21 20 76 .... ! v
0000E0: 61 6C 69 64 20 6C 6F 63 61 74 69 6F 6E 0D 0A 20 alid location..
0000F0: 20 20 20 20 20 20 20 20 76 69 73 25 28 78 6E 25 vis%(xn%
000100: 2C 20 79 6E 25 29 20 3D 20 74 72 75 65 25 20 21 , yn%) = true% !
000110: 20 73 65 74 20 76 69 73 61 62 6C 65 0D 0A 20 20 set visable..
000120: 20 20 20 20 20 20 20 69 66 20 61 64 6A 61 63 65 if adjace
000130: 6E 74 25 28 78 6E 25 2C 20 79 6E 25 29 20 3D 20 nt%(xn%, yn%) =
000140: 30 20 74 68 65 6E 20 76 69 73 61 64 6A 28 78 6E 0 then visadj(xn
000150: 25 2C 20 79 6E 25 29 20 21 20 70 65 72 66 6F 72 %, yn%) ! perfor
000160: 6D 20 72 65 63 75 72 73 69 76 65 6C 79 0D 0A 0D m recursively...
000170: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D 0A . endif....
000180: 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 6E 65 78 74 endif....next
000190: 20 69 25 0D 0A 0D 0A 65 6E 64 70 72 6F 63 0D 0A i%....endproc..
0001A0: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001E0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001F0: 21 21 0D 0A 21 20 0D 0A 21 20 44 69 73 70 6C 61 !!..! ..! Displa
Size : 512 (Real : 512)
000000: 20 3D 20 2B 31 3A 20 79 6F 66 66 25 28 32 29 20 = +1: yoff%(2)
000010: 3D 20 2D 31 20 21 20 75 70 70 65 72 20 72 69 67 = -1 ! upper rig
000020: 68 74 0D 0A 78 6F 66 66 25 28 33 29 20 3D 20 2B ht..xoff%(3) = +
000030: 31 3A 20 79 6F 66 66 25 28 33 29 20 3D 20 20 30 1: yoff%(3) = 0
000040: 20 21 20 72 69 67 68 74 0D 0A 78 6F 66 66 25 28 ! right..xoff%(
000050: 34 29 20 3D 20 2B 31 3A 20 79 6F 66 66 25 28 34 4) = +1: yoff%(4
000060: 29 20 3D 20 2B 31 20 21 20 6C 6F 77 65 72 20 72 ) = +1 ! lower r
000070: 69 67 68 74 0D 0A 78 6F 66 66 25 28 35 29 20 3D ight..xoff%(5) =
000080: 20 20 30 3A 20 79 6F 66 66 25 28 35 29 20 3D 20 0: yoff%(5) =
000090: 2B 31 20 21 20 64 6F 77 6E 0D 0A 78 6F 66 66 25 +1 ! down..xoff%
0000A0: 28 36 29 20 3D 20 2D 31 3A 20 79 6F 66 66 25 28 (6) = -1: yoff%(
0000B0: 36 29 20 3D 20 2B 31 20 21 20 6C 6F 77 65 72 20 6) = +1 ! lower
0000C0: 6C 65 66 74 0D 0A 78 6F 66 66 25 28 37 29 20 3D left..xoff%(7) =
0000D0: 20 2D 31 3A 20 79 6F 66 66 25 28 37 29 20 3D 20 -1: yoff%(7) =
0000E0: 20 30 20 21 20 6C 65 66 74 0D 0A 78 6F 66 66 25 0 ! left..xoff%
0000F0: 28 38 29 20 3D 20 2D 31 3A 20 79 6F 66 66 25 28 (8) = -1: yoff%(
000100: 38 29 20 3D 20 2D 31 20 21 20 75 70 70 65 72 20 8) = -1 ! upper
000110: 6C 65 66 74 0D 0A 0D 0A 21 20 64 65 63 6C 61 72 left....! declar
000120: 65 73 2C 20 6E 6F 74 20 72 65 71 75 69 72 65 64 es, not required
000130: 20 62 75 74 20 6E 69 63 65 0D 0A 0D 0A 64 69 6D but nice....dim
000140: 20 78 25 2C 20 79 25 20 20 20 20 21 20 75 73 65 x%, y% ! use
000150: 72 20 6D 6F 76 65 20 63 6F 6F 72 64 69 6E 61 74 r move coordinat
000160: 65 73 0D 0A 64 69 6D 20 64 6F 6E 65 25 20 20 20 es..dim done%
000170: 20 20 21 20 67 61 6D 65 20 6F 76 65 72 0D 0A 64 ! game over..d
000180: 69 6D 20 63 65 6E 74 65 72 78 25 20 20 21 20 63 im centerx% ! c
000190: 65 6E 74 65 72 20 6F 66 20 73 63 72 65 65 6E 20 enter of screen
0001A0: 70 6F 73 69 74 69 6F 6E 20 78 0D 0A 64 69 6D 20 position x..dim
0001B0: 63 65 6E 74 65 72 79 25 20 20 21 20 63 65 6E 74 centery% ! cent
0001C0: 65 72 20 6F 66 20 73 63 72 65 65 6E 20 70 6F 73 er of screen pos
0001D0: 69 74 69 6F 6E 20 79 0D 0A 64 69 6D 20 63 75 72 ition y..dim cur
0001E0: 73 6F 72 78 25 20 20 21 20 63 75 72 73 6F 72 20 sorx% ! cursor
0001F0: 6C 6F 63 61 74 69 6F 6E 20 78 0D 0A 64 69 6D 20 location x..dim
Size : 512 (Real : 512)
000000: 79 20 62 6F 61 72 64 0D 0A 21 20 0D 0A 21 20 44 y board..! ..! D
000010: 69 73 70 6C 61 79 73 20 74 68 65 20 70 6C 61 79 isplays the play
000020: 69 6E 67 20 62 6F 61 72 64 2E 0D 0A 21 20 0D 0A ing board...! ..
000030: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000040: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000050: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000060: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000070: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000080: 0D 0A 20 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 .. ..procedure d
000090: 69 73 70 6C 61 79 0D 0A 0D 0A 64 69 6D 20 78 25 isplay....dim x%
0000A0: 0D 0A 64 69 6D 20 79 25 0D 0A 64 69 6D 20 63 6E ..dim y%..dim cn
0000B0: 74 25 20 21 20 63 6F 75 6E 74 20 6F 66 20 61 64 t% ! count of ad
0000C0: 6A 61 63 65 6E 74 20 6D 69 6E 65 73 0D 0A 20 0D jacent mines.. .
0000D0: 0A 21 20 73 63 61 6E 20 73 63 72 65 65 6E 0D 0A .! scan screen..
0000E0: 62 63 6F 6C 6F 72 28 79 65 6C 6C 6F 77 25 29 20 bcolor(yellow%)
0000F0: 21 20 73 65 74 20 62 61 63 6B 67 72 6F 75 6E 64 ! set background
000100: 20 63 6F 6C 6F 72 0D 0A 66 6F 72 20 79 25 20 3D color..for y% =
000110: 20 31 20 74 6F 20 6D 61 78 79 73 25 0D 0A 0D 0A 1 to maxys%....
000120: 20 20 20 66 6F 72 20 78 25 20 3D 20 31 20 74 6F for x% = 1 to
000130: 20 6D 61 78 78 73 25 0D 0A 20 20 20 0D 0A 20 20 maxxs%.. ..
000140: 20 20 20 20 63 75 72 73 6F 72 28 63 65 6E 74 65 cursor(cente
000150: 72 78 25 2B 78 25 2D 31 2C 20 63 65 6E 74 65 72 rx%+x%-1, center
000160: 79 25 2B 79 25 2D 31 29 20 21 20 73 65 74 20 73 y%+y%-1) ! set s
000170: 74 61 72 74 20 6F 66 20 6E 65 78 74 20 6C 69 6E tart of next lin
000180: 65 0D 0A 20 20 20 20 20 20 69 66 20 76 69 73 25 e.. if vis%
000190: 28 78 25 2C 20 79 25 29 20 74 68 65 6E 0D 0A 0D (x%, y%) then...
0001A0: 0A 20 20 20 20 20 20 20 20 20 69 66 20 6D 69 6E . if min
0001B0: 65 25 28 78 25 2C 20 79 25 29 20 74 68 65 6E 20 e%(x%, y%) then
0001C0: 70 72 69 6E 74 20 22 2A 22 3B 20 65 6C 73 65 0D print "*"; else.
0001D0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 ... c
0001E0: 6E 74 25 20 3D 20 61 64 6A 61 63 65 6E 74 25 28 nt% = adjacent%(
0001F0: 78 25 2C 20 79 25 29 20 21 20 66 69 6E 64 20 61 x%, y%) ! find a
Size : 512 (Real : 512)
000000: 63 75 72 73 6F 72 79 25 20 20 21 20 63 75 72 73 cursory% ! curs
000010: 6F 72 20 6C 6F 63 61 74 69 6F 6E 20 79 0D 0A 64 or location y..d
000020: 69 6D 20 62 61 64 67 75 65 73 73 25 20 21 20 62 im badguess% ! b
000030: 61 64 20 67 75 65 73 73 20 64 69 73 70 6C 61 79 ad guess display
000040: 20 66 6C 61 67 0D 0A 64 69 6D 20 6D 6F 75 73 65 flag..dim mouse
000050: 78 25 20 20 20 21 20 6D 6F 75 73 65 20 70 6F 73 x% ! mouse pos
000060: 69 74 69 6F 6E 20 78 0D 0A 64 69 6D 20 6D 6F 75 ition x..dim mou
000070: 73 65 79 25 20 20 20 21 20 6D 6F 75 73 65 20 70 sey% ! mouse p
000080: 6F 73 69 74 69 6F 6E 20 79 0D 0A 0D 0A 21 21 21 osition y....!!!
000090: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 0D 0A 21 !!!!!!!!!!!!!..!
0000E0: 20 0D 0A 21 20 46 69 6E 64 20 61 64 6A 61 63 65 ..! Find adjace
0000F0: 6E 74 20 6D 69 6E 65 73 0D 0A 21 0D 0A 21 20 46 nt mines..!..! F
000100: 69 6E 64 73 20 74 68 65 20 6E 75 6D 62 65 72 20 inds the number
000110: 6F 66 20 6D 69 6E 65 73 20 61 64 6A 61 63 65 6E of mines adjacen
000120: 74 20 74 6F 20 61 20 67 69 76 65 6E 20 73 71 75 t to a given squ
000130: 61 72 65 2E 0D 0A 21 20 0D 0A 21 21 21 21 21 21 are...! ..!!!!!!
000140: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000150: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000160: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000170: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000180: 21 21 21 21 21 21 21 21 21 21 0D 0A 0D 0A 66 75 !!!!!!!!!!....fu
000190: 6E 63 74 69 6F 6E 20 61 64 6A 61 63 65 6E 74 25 nction adjacent%
0001A0: 28 78 25 2C 20 79 25 29 0D 0A 0D 0A 64 69 6D 20 (x%, y%)....dim
0001B0: 6D 69 6E 65 73 25 20 20 20 21 20 6E 75 6D 62 65 mines% ! numbe
0001C0: 72 20 6F 66 20 6D 69 6E 65 73 0D 0A 64 69 6D 20 r of mines..dim
0001D0: 78 6E 25 2C 20 79 6E 25 20 21 20 6E 65 69 67 68 xn%, yn% ! neigh
0001E0: 62 6F 72 20 63 6F 6F 72 64 69 6E 61 74 65 73 20 bor coordinates
0001F0: 7D 0D 0A 64 69 6D 20 69 25 20 20 20 20 20 20 20 }..dim i%
Size : 512 (Real : 512)
000000: 64 6A 61 63 65 6E 74 20 6D 69 6E 65 20 63 6F 75 djacent mine cou
000010: 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nt..
000020: 69 66 20 63 6E 74 25 20 3D 20 30 20 74 68 65 6E if cnt% = 0 then
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 70 72 69 6E 74 20 22 2E 22 20 21 20 6E 6F 20 print "." ! no
000050: 61 64 6A 61 63 65 6E 74 0D 0A 20 20 20 20 20 20 adjacent..
000060: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
000070: 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6E 74 print
000080: 20 63 68 72 24 28 63 6E 74 25 2B 61 73 63 28 22 chr$(cnt%+asc("
000090: 30 22 29 29 3B 20 21 20 70 6C 61 63 65 20 74 68 0")); ! place th
0000A0: 65 20 6E 75 6D 62 65 72 0D 0A 20 20 20 20 20 20 e number..
0000B0: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 20 endif....
0000C0: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D endif...
0000D0: 0A 20 20 20 20 20 20 65 6C 73 65 20 69 66 20 66 . else if f
0000E0: 6C 61 67 25 28 78 25 2C 20 79 25 29 20 74 68 65 lag%(x%, y%) the
0000F0: 6E 20 21 20 64 69 73 70 6C 61 79 20 66 6C 61 67 n ! display flag
000100: 67 65 64 20 6C 6F 63 61 74 69 6F 6E 0D 0A 0D 0A ged location....
000110: 20 20 20 20 20 20 20 20 20 69 66 20 62 61 64 67 if badg
000120: 75 65 73 73 25 20 74 68 65 6E 20 70 72 69 6E 74 uess% then print
000130: 20 22 58 22 3B 20 65 6C 73 65 20 70 72 69 6E 74 "X"; else print
000140: 20 22 4D 22 3B 0D 0A 0D 0A 20 20 20 20 20 20 65 "M";.... e
000150: 6C 73 65 20 70 72 69 6E 74 20 22 3D 22 3B 0D 0A lse print "=";..
000160: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 0D 0A 20 endif....
000170: 20 20 6E 65 78 74 20 78 25 0D 0A 0D 0A 6E 65 78 next x%....nex
000180: 74 20 79 25 0D 0A 70 72 69 6E 74 0D 0A 0D 0A 65 t y%..print....e
000190: 6E 64 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 ndproc....!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001E0: 21 21 21 21 21 21 21 21 21 21 0D 0A 21 20 0D 0A !!!!!!!!!!..! ..
0001F0: 21 20 49 6E 69 74 61 6C 69 7A 65 20 62 6F 61 72 ! Initalize boar
Size : 512 (Real : 512)
000000: 20 64 72 61 77 20 62 6F 78 20 74 6F 70 0D 0A 63 draw box top..c
000010: 75 72 73 6F 72 28 73 78 25 2C 20 65 79 25 29 20 ursor(sx%, ey%)
000020: 21 20 70 6F 73 69 74 69 6F 6E 20 61 74 20 62 6F ! position at bo
000030: 78 20 6C 6F 77 65 72 20 6C 65 66 74 0D 0A 66 6F x lower left..fo
000040: 72 20 78 25 20 3D 20 73 78 25 20 74 6F 20 65 78 r x% = sx% to ex
000050: 25 3A 20 70 72 69 6E 74 20 63 24 3B 3A 20 6E 65 %: print c$;: ne
000060: 78 74 20 78 25 20 21 20 64 72 61 77 20 62 6F 78 xt x% ! draw box
000070: 20 62 6F 74 74 6F 6D 0D 0A 66 6F 72 20 79 25 20 bottom..for y%
000080: 3D 20 73 79 25 2B 31 20 74 6F 20 65 79 25 2D 31 = sy%+1 to ey%-1
000090: 20 21 20 64 72 61 77 20 62 6F 78 20 6C 65 66 74 ! draw box left
0000A0: 20 73 69 64 65 0D 0A 0D 0A 20 20 20 63 75 72 73 side.... curs
0000B0: 6F 72 28 73 78 25 2C 20 79 25 29 20 21 20 70 6C or(sx%, y%) ! pl
0000C0: 61 63 65 20 63 75 72 73 6F 72 0D 0A 20 20 20 70 ace cursor.. p
0000D0: 72 69 6E 74 20 63 24 3B 20 21 20 70 6C 61 63 65 rint c$; ! place
0000E0: 20 63 68 61 72 61 63 74 65 72 0D 0A 0D 0A 6E 65 character....ne
0000F0: 78 74 20 79 25 0D 0A 66 6F 72 20 79 25 20 3D 20 xt y%..for y% =
000100: 73 79 25 2B 31 20 74 6F 20 65 79 25 2D 31 20 21 sy%+1 to ey%-1 !
000110: 20 64 72 61 77 20 62 6F 78 20 6C 65 66 74 20 73 draw box left s
000120: 69 64 65 0D 0A 0D 0A 20 20 20 63 75 72 73 6F 72 ide.... cursor
000130: 28 65 78 25 2C 20 79 25 29 20 21 20 70 6C 61 63 (ex%, y%) ! plac
000140: 65 20 63 75 72 73 6F 72 0D 0A 20 20 20 70 72 69 e cursor.. pri
000150: 6E 74 20 63 24 3B 20 21 20 70 6C 61 63 65 20 63 nt c$; ! place c
000160: 68 61 72 61 63 74 65 72 0D 0A 0D 0A 6E 65 78 74 haracter....next
000170: 20 79 25 0D 0A 0D 0A 65 6E 64 70 72 6F 63 0D 0A y%....endproc..
000180: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
000190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 0D 0A 21 0D 0A 21 20 43 68 65 63 6B 20 63 !!..!..! Check c
0001E0: 6F 6F 72 64 69 6E 61 74 65 73 20 6F 6E 20 62 6F oordinates on bo
0001F0: 61 72 64 0D 0A 21 0D 0A 21 20 43 68 65 63 6B 73 ard..!..! Checks
Size : 512 (Real : 512)
000000: 64 0D 0A 21 0D 0A 21 20 43 6C 65 61 72 73 20 61 d..!..! Clears a
000010: 6C 6C 20 62 6F 61 72 64 20 73 71 75 61 72 65 73 ll board squares
000020: 20 74 6F 20 6E 6F 20 6D 69 6E 65 73 2C 20 69 6E to no mines, in
000030: 76 69 73 69 62 6C 65 20 61 6E 64 20 6E 6F 74 20 visible and not
000040: 66 6C 61 67 67 65 64 2E 0D 0A 21 20 54 68 65 6E flagged...! Then
000050: 2C 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 , the specified
000060: 6E 75 6D 62 65 72 20 6F 66 20 6D 69 6E 65 73 20 number of mines
000070: 61 72 65 20 6C 61 79 65 64 20 6F 6E 20 74 68 65 are layed on the
000080: 20 62 6F 61 72 64 20 61 74 20 72 61 6E 64 6F 6D board at random
000090: 2E 0D 0A 21 20 0D 0A 21 21 21 21 21 21 21 21 21 ...! ..!!!!!!!!!
0000A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000E0: 21 21 21 21 21 21 21 0D 0A 20 0D 0A 70 72 6F 63 !!!!!!!.. ..proc
0000F0: 65 64 75 72 65 20 63 6C 72 62 72 64 0D 0A 20 0D edure clrbrd.. .
000100: 0A 64 69 6D 20 78 25 0D 0A 64 69 6D 20 79 25 0D .dim x%..dim y%.
000110: 0A 64 69 6D 20 6E 25 0D 0A 20 0D 0A 66 6F 72 20 .dim n%.. ..for
000120: 78 25 20 3D 20 31 20 74 6F 20 6D 61 78 78 73 25 x% = 1 to maxxs%
000130: 20 21 20 63 6C 65 61 72 20 6D 69 6E 65 66 69 65 ! clear minefie
000140: 6C 64 0D 0A 0D 0A 20 20 20 66 6F 72 20 79 25 20 ld.... for y%
000150: 3D 20 31 20 74 6F 20 6D 61 78 79 73 25 0D 0A 0D = 1 to maxys%...
000160: 0A 20 20 20 20 20 20 6D 69 6E 65 25 28 78 25 2C . mine%(x%,
000170: 20 79 25 29 20 3D 20 66 61 6C 73 65 20 21 20 73 y%) = false ! s
000180: 65 74 20 6E 6F 20 6D 69 6E 65 0D 0A 20 20 20 20 et no mine..
000190: 20 20 76 69 73 25 28 78 25 2C 20 79 25 29 20 3D vis%(x%, y%) =
0001A0: 20 66 61 6C 73 65 20 21 20 73 65 74 20 6E 6F 74 false ! set not
0001B0: 20 76 69 73 69 62 6C 65 0D 0A 20 20 20 20 20 20 visible..
0001C0: 66 6C 61 67 25 28 78 25 2C 20 79 25 29 20 3D 20 flag%(x%, y%) =
0001D0: 66 61 6C 73 65 20 21 20 73 65 74 20 6E 6F 74 20 false ! set not
0001E0: 66 6C 61 67 67 65 64 0D 0A 0D 0A 20 20 20 6E 65 flagged.... ne
0001F0: 78 74 20 79 25 0D 0A 0D 0A 6E 65 78 74 20 78 25 xt y%....next x%
Size : 512 (Real : 512)
000000: 20 69 66 20 74 68 65 20 67 69 76 65 6E 20 78 2C if the given x,
000010: 20 79 20 63 6F 6F 72 64 69 6E 61 74 65 73 20 61 y coordinates a
000020: 72 65 20 69 6E 20 74 68 65 20 76 61 6C 69 64 20 re in the valid
000030: 70 6C 61 79 69 6E 67 20 61 72 65 61 2E 2E 0D 0A playing area....
000040: 21 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 !..!!!!!!!!!!!!!
000050: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000060: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000070: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000080: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000090: 21 21 21 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 !!!....function
0000A0: 69 6E 73 71 75 61 72 65 25 28 78 25 2C 20 79 25 insquare%(x%, y%
0000B0: 29 0D 0A 0D 0A 64 69 6D 20 69 6E 78 25 20 21 20 )....dim inx% !
0000C0: 69 6E 73 69 64 65 20 78 0D 0A 64 69 6D 20 69 6E inside x..dim in
0000D0: 79 25 20 21 20 69 6E 73 69 64 65 20 79 0D 0A 0D y% ! inside y...
0000E0: 0A 69 6E 78 25 20 3D 20 6D 6F 75 73 65 78 25 20 .inx% = mousex%
0000F0: 3E 3D 20 63 65 6E 74 65 72 78 25 20 61 6E 64 20 >= centerx% and
000100: 6D 6F 75 73 65 78 25 20 3C 3D 20 63 65 6E 74 65 mousex% <= cente
000110: 72 78 25 2B 6D 61 78 78 73 25 2D 31 20 21 20 66 rx%+maxxs%-1 ! f
000120: 69 6E 64 20 78 0D 0A 69 6E 79 25 20 3D 20 6D 6F ind x..iny% = mo
000130: 75 73 65 79 25 20 3E 3D 20 63 65 6E 74 65 72 79 usey% >= centery
000140: 25 20 61 6E 64 20 6D 6F 75 73 65 79 25 20 3C 3D % and mousey% <=
000150: 20 63 65 6E 74 65 72 79 25 2B 6D 61 78 79 73 25 centery%+maxys%
000160: 2D 31 20 21 20 66 69 6E 64 20 79 0D 0A 0D 0A 65 -1 ! find y....e
000170: 6E 64 66 75 6E 63 20 69 6E 78 25 20 61 6E 64 20 ndfunc inx% and
000180: 69 6E 79 25 0D 0A 0D 0A 21 21 21 21 21 21 21 21 iny%....!!!!!!!!
000190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 43 !!!!!!!!..!..! C
0001E0: 68 65 63 6B 20 72 65 70 6C 61 79 0D 0A 21 0D 0A heck replay..!..
0001F0: 21 20 41 73 6B 73 20 74 68 65 20 75 73 65 72 20 ! Asks the user
Size : 512 (Real : 512)
000000: 0D 0A 66 6F 72 20 6E 25 20 3D 20 31 20 74 6F 20 ..for n% = 1 to
000010: 6D 61 78 6D 69 6E 65 20 21 20 70 6C 61 63 65 20 maxmine ! place
000020: 6D 69 6E 65 0D 0A 0D 0A 20 20 20 72 65 70 65 61 mine.... repea
000030: 74 0D 0A 0D 0A 20 20 20 20 20 20 78 25 20 3D 20 t.... x% =
000040: 72 6E 64 28 30 29 2A 6D 61 78 78 73 25 0D 0A 20 rnd(0)*maxxs%..
000050: 20 20 20 20 20 79 25 20 3D 20 72 6E 64 28 30 29 y% = rnd(0)
000060: 2A 6D 61 78 79 73 25 0D 0A 0D 0A 20 20 20 75 6E *maxys%.... un
000070: 74 69 6C 20 6E 6F 74 20 6D 69 6E 65 25 28 78 25 til not mine%(x%
000080: 2C 20 79 25 29 20 21 20 6E 6F 20 6D 69 6E 65 20 , y%) ! no mine
000090: 65 78 69 73 74 73 20 61 74 20 73 71 75 61 72 65 exists at square
0000A0: 0D 0A 20 20 20 6D 69 6E 65 25 28 78 25 2C 20 79 .. mine%(x%, y
0000B0: 25 29 20 3D 20 74 72 75 65 20 21 20 70 6C 61 63 %) = true ! plac
0000C0: 65 20 6D 69 6E 65 0D 0A 0D 0A 6E 65 78 74 20 6E e mine....next n
0000D0: 25 0D 0A 0D 0A 65 6E 64 70 72 6F 63 0D 0A 0D 0A %....endproc....
0000E0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000100: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000110: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000120: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000130: 0D 0A 21 0D 0A 21 20 43 6C 65 61 72 20 6C 69 6E ..!..! Clear lin
000140: 65 0D 0A 21 0D 0A 21 20 43 6C 65 61 72 73 20 74 e..!..! Clears t
000150: 68 65 20 73 70 65 63 69 66 69 65 64 20 6C 69 6E he specified lin
000160: 65 20 74 6F 20 73 70 61 63 65 73 20 69 6E 20 74 e to spaces in t
000170: 68 65 20 73 70 65 63 69 66 69 65 64 20 63 6F 6C he specified col
000180: 6F 72 2E 0D 0A 21 0D 0A 21 21 21 21 21 21 21 21 or...!..!!!!!!!!
000190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 21 21 21 21 21 21 0D 0A 0D 0A 70 72 6F 63 !!!!!!!!....proc
0001E0: 65 64 75 72 65 20 63 6C 72 6C 69 6E 28 79 25 2C edure clrlin(y%,
0001F0: 20 63 6C 72 25 29 0D 0A 0D 0A 64 69 6D 20 69 25 clr%)....dim i%
Size : 512 (Real : 512)
000000: 69 66 20 61 20 72 65 70 6C 61 79 20 69 73 20 64 if a replay is d
000010: 65 73 69 72 65 64 2C 20 74 68 65 6E 20 65 69 74 esired, then eit
000020: 68 65 72 20 63 61 6E 63 65 6C 73 20 74 68 65 20 her cancels the
000030: 67 61 6D 65 2C 20 6F 72 0D 0A 21 20 73 65 74 73 game, or..! sets
000040: 20 75 70 20 61 20 6E 65 77 20 67 61 6D 65 20 61 up a new game a
000050: 73 20 72 65 71 75 65 73 74 65 64 2E 0D 0A 21 0D s requested...!.
000060: 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 .!!!!!!!!!!!!!!!
000070: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000080: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000090: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000B0: 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 72 !....procedure r
0000C0: 65 70 6C 61 79 0D 0A 0D 0A 21 20 61 73 6B 20 75 eplay....! ask u
0000D0: 73 65 72 20 66 6F 72 20 72 65 70 6C 61 79 0D 0A ser for replay..
0000E0: 62 63 6F 6C 6F 72 28 63 79 61 6E 25 29 0D 0A 70 bcolor(cyan%)..p
0000F0: 72 74 6D 69 64 28 6D 61 78 79 25 2C 20 22 50 4C rtmid(maxy%, "PL
000100: 41 59 20 41 47 41 49 4E 20 28 59 2F 4E 29 20 3F AY AGAIN (Y/N) ?
000110: 22 29 0D 0A 72 65 70 65 61 74 20 21 20 77 61 69 ")..repeat ! wai
000120: 74 20 66 6F 72 20 72 65 73 70 6F 6E 73 65 0D 0A t for response..
000130: 0D 0A 20 20 20 21 20 77 61 69 74 20 74 69 6C 6C .. ! wait till
000140: 20 61 20 63 68 61 72 61 63 74 65 72 20 69 73 20 a character is
000150: 70 72 65 73 73 65 64 0D 0A 20 20 20 72 65 70 65 pressed.. repe
000160: 61 74 0D 0A 0D 0A 20 20 20 20 20 20 65 76 65 6E at.... even
000170: 74 28 6E 65 78 74 65 76 65 6E 74 29 0D 0A 0D 0A t(nextevent)....
000180: 20 20 20 75 6E 74 69 6C 20 6E 65 78 74 65 76 65 until nexteve
000190: 6E 74 2E 65 74 79 70 65 20 3D 20 65 74 63 68 61 nt.etype = etcha
0001A0: 72 25 20 6F 72 20 6E 65 78 74 65 76 65 6E 74 2E r% or nextevent.
0001B0: 65 74 79 70 65 20 3D 20 65 74 74 65 72 6D 25 0D etype = etterm%.
0001C0: 0A 20 20 20 69 66 20 6E 65 78 74 65 76 65 6E 74 . if nextevent
0001D0: 2E 65 74 79 70 65 20 3D 20 65 74 74 65 72 6D 25 .etype = etterm%
0001E0: 20 74 68 65 6E 20 64 6F 6E 65 25 20 3D 20 74 72 then done% = tr
0001F0: 75 65 25 20 21 20 66 6F 72 63 65 20 61 20 71 75 ue% ! force a qu
Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 63 75 72 73 6F 72 28 31 2C 20 79 25 ....cursor(1, y%
000010: 29 20 21 20 70 6F 73 69 74 69 6F 6E 20 74 6F 20 ) ! position to
000020: 73 70 65 63 69 66 69 65 64 20 6C 69 6E 65 0D 0A specified line..
000030: 62 63 6F 6C 6F 72 28 63 6C 72 25 29 20 21 20 73 bcolor(clr%) ! s
000040: 65 74 20 63 6F 6C 6F 72 0D 0A 66 6F 72 20 69 25 et color..for i%
000050: 20 3D 20 31 20 74 6F 20 6D 61 78 78 25 20 64 6F = 1 to maxx% do
000060: 20 70 72 69 6E 74 20 22 20 22 3B 20 21 20 63 6C print " "; ! cl
000070: 65 61 72 20 6C 69 6E 65 0D 0A 0D 0A 65 6E 64 70 ear line....endp
000080: 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 21 21 roc....!!!!!!!!!
000090: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000D0: 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 50 72 !!!!!!!..!..! Pr
0000E0: 69 6E 74 20 63 65 6E 74 65 72 65 64 20 73 74 72 int centered str
0000F0: 69 6E 67 0D 0A 21 0D 0A 21 20 50 72 69 6E 74 73 ing..!..! Prints
000100: 20 74 68 65 20 67 69 76 65 6E 20 73 74 72 69 6E the given strin
000110: 67 20 63 65 6E 74 65 72 65 64 20 6F 6E 20 74 68 g centered on th
000120: 65 20 67 69 76 65 6E 20 6C 69 6E 65 2E 0D 0A 21 e given line...!
000130: 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 ..!!!!!!!!!!!!!!
000140: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000150: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000160: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000170: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000180: 21 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 !!....procedure
000190: 70 72 74 6D 69 64 28 79 25 2C 20 73 24 29 0D 0A prtmid(y%, s$)..
0001A0: 0D 0A 63 75 72 73 6F 72 28 6D 61 78 78 25 20 64 ..cursor(maxx% d
0001B0: 69 76 20 32 2D 6C 65 6E 28 73 24 29 20 64 69 76 iv 2-len(s$) div
0001C0: 20 32 2C 20 79 25 29 20 21 20 70 6F 73 69 74 69 2, y%) ! positi
0001D0: 6F 6E 20 74 6F 20 73 74 61 72 74 0D 0A 70 72 69 on to start..pri
0001E0: 6E 74 20 73 24 3B 20 21 20 6F 75 74 70 75 74 20 nt s$; ! output
0001F0: 74 68 65 20 73 74 72 69 6E 67 0D 0A 0D 0A 65 6E the string....en
Size : 512 (Real : 512)
000000: 69 74 0D 0A 0D 0A 75 6E 74 69 6C 20 6C 63 61 73 it....until lcas
000010: 65 28 6E 65 78 74 65 76 65 6E 74 2E 63 68 61 72 e(nextevent.char
000020: 24 29 20 3D 20 22 79 22 20 6F 72 20 6C 63 61 73 $) = "y" or lcas
000030: 65 28 6E 65 78 74 65 76 65 6E 74 2E 63 68 61 72 e(nextevent.char
000040: 29 20 3D 20 22 6E 22 20 6F 72 20 64 6F 6E 65 25 ) = "n" or done%
000050: 0D 0A 69 66 20 6C 63 61 73 65 28 6E 65 78 74 65 ..if lcase(nexte
000060: 76 65 6E 74 2E 63 68 61 72 24 29 20 3D 20 22 6E vent.char$) = "n
000070: 22 20 6F 72 20 64 6F 6E 65 25 20 74 68 65 6E 20 " or done% then
000080: 64 6F 6E 65 25 20 3D 20 74 72 75 65 25 20 65 6C done% = true% el
000090: 73 65 0D 0A 0D 0A 20 20 20 21 20 63 6C 65 61 72 se.... ! clear
0000A0: 20 6F 6C 64 20 6D 65 73 73 61 67 65 73 0D 0A 20 old messages..
0000B0: 20 20 63 6C 72 6C 69 6E 28 6D 61 78 79 25 2D 32 clrlin(maxy%-2
0000C0: 2C 20 63 79 61 6E 25 29 0D 0A 20 20 20 63 6C 72 , cyan%).. clr
0000D0: 6C 69 6E 28 6D 61 78 79 25 2C 20 63 79 61 6E 25 lin(maxy%, cyan%
0000E0: 29 0D 0A 20 20 20 21 20 73 74 61 72 74 20 6E 65 ).. ! start ne
0000F0: 77 20 67 61 6D 65 0D 0A 20 20 20 63 6C 72 62 72 w game.. clrbr
000100: 64 20 21 20 73 65 74 20 75 70 20 62 6F 61 72 64 d ! set up board
000110: 0D 0A 20 20 20 63 75 72 73 6F 72 78 25 20 3D 20 .. cursorx% =
000120: 63 65 6E 74 65 72 78 25 20 21 20 73 65 74 20 69 centerx% ! set i
000130: 6E 69 74 61 6C 20 63 75 72 73 6F 72 20 70 6F 73 nital cursor pos
000140: 69 74 69 6F 6E 0D 0A 20 20 20 63 75 72 73 6F 72 ition.. cursor
000150: 79 25 20 3D 20 63 65 6E 74 65 72 79 25 0D 0A 20 y% = centery%..
000160: 20 20 62 61 64 67 75 65 73 73 25 20 3D 20 66 61 badguess% = fa
000170: 6C 73 65 25 20 21 20 73 65 74 20 62 61 64 20 67 lse% ! set bad g
000180: 75 65 73 73 65 73 20 69 6E 76 69 73 69 62 6C 65 uesses invisible
000190: 0D 0A 0D 0A 65 6E 64 69 66 0D 0A 0D 0A 65 6E 64 ....endif....end
0001A0: 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 21 proc....!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001E0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0001F0: 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 50 !!!!!!!!..!..! P
Size : 512 (Real : 512)
000000: 64 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 dproc....!!!!!!!
000010: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000020: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000030: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000040: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000050: 21 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 !!!!!!!!!..!..!
000060: 44 72 61 77 20 63 68 61 72 61 63 74 65 72 20 62 Draw character b
000070: 6F 78 0D 0A 21 0D 0A 21 20 44 72 61 77 73 20 61 ox..!..! Draws a
000080: 20 62 6F 78 20 6F 66 20 74 68 65 20 67 69 76 65 box of the give
000090: 6E 20 63 6F 6C 6F 72 20 61 6E 64 20 63 68 61 72 n color and char
0000A0: 61 63 74 65 72 20 74 6F 20 74 68 65 20 6C 6F 63 acter to the loc
0000B0: 61 74 69 6F 6E 2E 0D 0A 21 20 54 68 65 20 63 6F ation...! The co
0000C0: 6C 6F 72 73 20 61 72 65 20 6E 6F 74 20 73 61 76 lors are not sav
0000D0: 65 64 20 6F 72 20 72 65 73 74 6F 72 65 64 2E 0D ed or restored..
0000E0: 0A 21 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 .!..!!!!!!!!!!!!
0000F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000100: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000110: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000120: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000130: 21 21 21 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 !!!!....procedur
000140: 65 20 74 62 6F 78 28 73 78 25 2C 20 73 79 25 2C e tbox(sx%, sy%,
000150: 20 65 78 25 2C 20 65 79 25 2C 20 63 24 2C 20 62 ex%, ey%, c$, b
000160: 63 6C 72 25 2C 20 66 63 6C 72 25 29 0D 0A 0D 0A clr%, fclr%)....
000170: 64 69 6D 20 78 25 2C 20 79 25 20 21 20 63 6F 6F dim x%, y% ! coo
000180: 72 64 69 6E 61 74 65 73 0D 0A 0D 0A 62 63 6F 6C rdinates....bcol
000190: 6F 72 28 62 63 6C 72 25 29 0D 0A 66 63 6F 6C 6F or(bclr%)..fcolo
0001A0: 72 28 66 63 6C 72 25 29 0D 0A 63 75 72 73 6F 72 r(fclr%)..cursor
0001B0: 28 73 78 25 2C 20 73 79 25 29 20 21 20 70 6F 73 (sx%, sy%) ! pos
0001C0: 69 74 69 6F 6E 20 61 74 20 62 6F 78 20 74 6F 70 ition at box top
0001D0: 20 6C 65 66 74 0D 0A 66 6F 72 20 78 25 20 3D 20 left..for x% =
0001E0: 73 78 25 20 74 6F 20 65 78 25 3A 20 70 72 69 6E sx% to ex%: prin
0001F0: 74 20 63 24 3B 3A 20 6E 65 78 74 20 78 25 20 21 t c$;: next x% !
Size : 512 (Real : 512)
000000: 72 6F 63 65 73 73 20 73 71 75 61 72 65 20 22 68 rocess square "h
000010: 69 74 22 0D 0A 21 0D 0A 21 20 50 72 6F 63 65 73 it"..!..! Proces
000020: 73 65 73 20 61 20 22 68 69 74 22 20 6F 6E 20 61 ses a "hit" on a
000030: 20 73 71 75 61 72 65 2C 20 77 68 69 63 68 20 6D square, which m
000040: 65 61 6E 73 20 72 65 76 65 61 6C 69 6E 67 20 74 eans revealing t
000050: 68 61 74 20 73 71 75 61 72 65 2C 20 61 6E 64 20 hat square, and
000060: 70 6F 73 73 69 62 6C 79 0D 0A 21 20 74 72 69 67 possibly..! trig
000070: 67 65 72 69 6E 67 20 61 20 6D 69 6E 65 2E 0D 0A gering a mine...
000080: 21 0D 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 !..!!!!!!!!!!!!!
000090: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000C0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000D0: 21 21 21 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 !!!....procedure
0000E0: 20 68 69 74 28 78 25 2C 20 79 25 29 0D 0A 0D 0A hit(x%, y%)....
0000F0: 64 69 6D 20 78 69 25 2C 20 79 69 25 20 21 20 69 dim xi%, yi% ! i
000100: 6E 64 65 78 65 73 20 66 6F 72 20 62 6F 61 72 64 ndexes for board
000110: 0D 0A 64 69 6D 20 76 69 73 63 6E 74 25 20 21 20 ..dim viscnt% !
000120: 76 69 73 61 62 6C 65 20 73 71 75 61 72 65 73 20 visable squares
000130: 63 6F 75 6E 74 0D 0A 0D 0A 76 69 73 25 28 78 25 count....vis%(x%
000140: 2C 20 79 25 29 20 3D 20 74 72 75 65 25 20 21 20 , y%) = true% !
000150: 73 65 74 20 74 68 61 74 20 6C 6F 63 61 74 69 6F set that locatio
000160: 6E 20 76 69 73 61 62 6C 65 0D 0A 69 66 20 6D 69 n visable..if mi
000170: 6E 65 25 28 78 25 2C 20 79 25 29 20 74 68 65 6E ne%(x%, y%) then
000180: 20 21 20 6D 69 6E 65 20 66 6F 75 6E 64 0D 0A 0D ! mine found...
000190: 0A 20 20 20 21 20 6D 61 6B 65 20 61 6C 6C 20 6D . ! make all m
0001A0: 69 6E 65 73 20 76 69 73 61 62 6C 65 2C 20 61 6E ines visable, an
0001B0: 64 20 62 61 64 20 67 75 65 73 73 65 73 20 74 6F d bad guesses to
0001C0: 6F 2E 0D 0A 20 20 20 66 6F 72 20 79 69 25 20 3D o... for yi% =
0001D0: 20 31 20 74 6F 20 6D 61 78 79 73 25 0D 0A 0D 0A 1 to maxys%....
0001E0: 20 20 20 20 20 20 66 6F 72 20 78 69 20 3D 20 31 for xi = 1
0001F0: 20 74 6F 20 6D 61 78 78 73 25 0D 0A 0D 0A 20 20 to maxxs%....
Size : 512 (Real : 512)
000000: 65 78 74 20 65 76 65 6E 74 0D 0A 20 20 20 73 65 ext event.. se
000010: 6C 65 63 74 20 6E 65 78 74 65 76 65 6E 74 2E 65 lect nextevent.e
000020: 74 79 70 65 25 20 21 20 65 76 65 6E 74 0D 0A 0D type% ! event...
000030: 0A 20 20 20 20 20 20 63 61 73 65 20 65 74 74 61 . case etta
000040: 62 25 20 21 20 70 72 6F 63 65 73 73 20 66 6C 61 b% ! process fla
000050: 67 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 21 20 g.... !
000060: 72 65 76 65 72 73 65 20 66 6C 61 67 67 69 6E 67 reverse flagging
000070: 20 6F 6E 20 6C 6F 63 61 74 69 6F 6E 0D 0A 20 20 on location..
000080: 20 20 20 20 20 20 20 66 6C 61 67 28 78 25 2C 20 flag(x%,
000090: 79 25 29 20 3D 20 6E 6F 74 20 66 6C 61 67 28 78 y%) = not flag(x
0000A0: 25 2C 20 79 25 29 0D 0A 20 20 20 20 20 20 20 20 %, y%)..
0000B0: 20 64 69 73 70 6C 61 79 20 21 20 72 65 64 69 73 display ! redis
0000C0: 70 6C 61 79 20 62 6F 61 72 64 0D 0A 0D 0A 20 20 play board....
0000D0: 20 20 20 20 63 61 73 65 20 65 74 65 6E 74 65 72 case etenter
0000E0: 25 3A 20 68 69 74 28 78 25 2C 20 79 25 29 20 21 %: hit(x%, y%) !
0000F0: 20 70 72 6F 63 65 73 73 20 68 69 74 0D 0A 0D 0A process hit....
000100: 20 20 20 20 20 20 21 20 6D 6F 76 65 20 75 70 0D ! move up.
000110: 0A 20 20 20 20 20 20 63 61 73 65 20 65 74 75 70 . case etup
000120: 25 3A 20 69 66 20 63 75 72 73 6F 72 79 25 20 3E %: if cursory% >
000130: 20 63 65 6E 74 65 72 79 25 20 74 68 65 6E 20 63 centery% then c
000140: 75 72 73 6F 72 79 25 20 3D 20 63 75 72 73 6F 72 ursory% = cursor
000150: 79 25 2D 31 0D 0A 0D 0A 20 20 20 20 20 20 21 20 y%-1.... !
000160: 6D 6F 76 65 20 6C 65 66 74 0D 0A 20 20 20 20 20 move left..
000170: 20 63 61 73 65 20 65 74 6C 65 66 74 25 3A 20 69 case etleft%: i
000180: 66 20 63 75 72 73 6F 72 78 25 20 3E 20 63 65 6E f cursorx% > cen
000190: 74 65 72 78 25 20 74 68 65 6E 20 63 75 72 73 6F terx% then curso
0001A0: 72 78 25 20 3D 20 63 75 72 73 6F 72 78 25 2D 31 rx% = cursorx%-1
0001B0: 0D 0A 0D 0A 20 20 20 20 20 20 21 20 6D 6F 76 65 .... ! move
0001C0: 20 64 6F 77 6E 0D 0A 20 20 20 20 20 20 63 61 73 down.. cas
0001D0: 65 20 65 74 64 6F 77 6E 25 3A 20 69 66 20 63 75 e etdown%: if cu
0001E0: 72 73 6F 72 79 25 20 3C 20 63 65 6E 74 65 72 79 rsory% < centery
0001F0: 25 2B 6D 61 78 79 73 25 2D 31 20 74 68 65 6E 20 %+maxys%-1 then
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 69 66 20 6D 69 6E 65 25 28 if mine%(
000010: 78 69 25 2C 20 79 69 25 29 20 74 68 65 6E 20 76 xi%, yi%) then v
000020: 69 73 25 28 78 69 25 2C 20 79 69 25 29 20 3D 20 is%(xi%, yi%) =
000030: 74 72 75 65 25 0D 0A 0D 0A 20 20 20 20 20 20 6E true%.... n
000040: 65 78 74 20 78 69 25 0D 0A 0D 0A 20 20 20 6E 65 ext xi%.... ne
000050: 78 74 20 79 69 25 0D 0A 20 20 20 62 61 64 67 75 xt yi%.. badgu
000060: 65 73 73 25 20 3D 20 74 72 75 65 25 20 21 20 73 ess% = true% ! s
000070: 65 74 20 62 61 64 20 67 75 65 73 73 65 73 20 76 et bad guesses v
000080: 69 73 61 62 6C 65 0D 0A 20 20 20 64 69 73 70 6C isable.. displ
000090: 61 79 20 21 20 72 65 64 69 73 70 6C 61 79 20 62 ay ! redisplay b
0000A0: 6F 61 72 64 0D 0A 20 20 20 21 20 61 6E 6E 6F 75 oard.. ! annou
0000B0: 6E 63 65 20 74 68 61 74 20 74 6F 20 74 68 65 20 nce that to the
0000C0: 70 6C 61 79 65 72 0D 0A 20 20 20 62 63 6F 6C 6F player.. bcolo
0000D0: 72 28 72 65 64 25 29 0D 0A 20 20 20 70 72 74 6D r(red%).. prtm
0000E0: 69 64 28 6D 61 78 79 25 2D 32 2C 20 22 2A 2A 2A id(maxy%-2, "***
0000F0: 20 59 4F 55 20 48 49 54 20 41 20 4D 49 4E 45 20 YOU HIT A MINE
000100: 21 20 2A 2A 2A 22 29 0D 0A 20 20 20 72 65 70 6C ! ***").. repl
000110: 61 79 20 21 20 70 72 6F 63 65 73 73 20 72 65 70 ay ! process rep
000120: 6C 61 79 0D 0A 0D 0A 65 6C 73 65 20 21 20 76 61 lay....else ! va
000130: 6C 69 64 20 68 69 74 0D 0A 0D 0A 20 20 20 69 66 lid hit.... if
000140: 20 61 64 6A 61 63 65 6E 74 25 28 78 25 2C 20 79 adjacent%(x%, y
000150: 25 29 20 3D 20 30 20 74 68 65 6E 20 76 69 73 61 %) = 0 then visa
000160: 64 6A 28 78 25 2C 20 79 25 29 20 21 20 63 6C 65 dj(x%, y%) ! cle
000170: 61 6E 20 75 70 20 61 64 6A 61 63 65 6E 74 20 73 an up adjacent s
000180: 70 61 63 65 73 0D 0A 20 20 20 21 20 6E 6F 77 2C paces.. ! now,
000190: 20 74 68 65 20 70 6C 61 79 65 72 20 6D 61 79 20 the player may
0001A0: 68 61 76 65 20 77 6F 6E 2E 20 77 65 20 66 69 6E have won. we fin
0001B0: 64 20 74 68 69 73 20 6F 75 74 20 62 79 20 63 6F d this out by co
0001C0: 75 6E 74 69 6E 67 20 61 6C 6C 20 6F 66 20 74 68 unting all of th
0001D0: 65 0D 0A 20 20 20 21 20 76 69 73 61 62 6C 65 20 e.. ! visable
0001E0: 73 71 75 61 72 65 73 2C 20 61 6E 64 20 73 65 65 squares, and see
0001F0: 69 6E 67 20 69 66 20 74 68 65 20 6E 75 6D 62 65 ing if the numbe
Size : 512 (Real : 512)
000000: 63 75 72 73 6F 72 79 25 20 3D 20 63 75 72 73 6F cursory% = curso
000010: 72 79 25 2B 31 0D 0A 0D 0A 20 20 20 20 20 20 21 ry%+1.... !
000020: 20 6D 6F 76 65 20 72 69 67 68 74 0D 0A 20 20 20 move right..
000030: 20 20 20 63 61 73 65 20 65 74 72 69 67 68 74 25 case etright%
000040: 3A 20 69 66 20 63 75 72 73 6F 72 78 25 20 3C 20 : if cursorx% <
000050: 63 65 6E 74 65 72 78 25 2B 6D 61 78 78 73 25 2D centerx%+maxxs%-
000060: 31 20 74 68 65 6E 20 63 75 72 73 6F 72 78 25 20 1 then cursorx%
000070: 3D 20 63 75 72 73 6F 72 78 25 2B 31 0D 0A 0D 0A = cursorx%+1....
000080: 20 20 20 20 20 20 63 61 73 65 20 65 74 6D 6F 75 case etmou
000090: 6D 6F 76 25 20 21 20 6D 6F 75 73 65 20 6D 6F 76 mov% ! mouse mov
0000A0: 65 6D 65 6E 74 0D 0A 0D 0A 20 20 20 20 20 20 20 ement....
0000B0: 20 20 6D 6F 75 73 65 78 25 20 3D 20 6E 65 78 74 mousex% = next
0000C0: 65 76 65 6E 74 2E 6D 6F 75 70 78 25 20 21 20 73 event.moupx% ! s
0000D0: 65 74 20 6E 65 77 20 6D 6F 75 73 65 20 70 6F 73 et new mouse pos
0000E0: 69 74 69 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 ition..
0000F0: 6D 6F 75 73 65 79 25 20 3D 20 6E 65 78 74 65 76 mousey% = nextev
000100: 65 6E 74 2E 6D 6F 75 70 79 25 0D 0A 0D 0A 20 20 ent.moupy%....
000110: 20 20 20 20 63 61 73 65 20 65 74 6D 6F 75 62 61 case etmouba
000120: 20 21 20 6D 6F 75 73 65 20 62 75 74 74 6F 6E 20 ! mouse button
000130: 31 2C 20 68 69 74 0D 0A 0D 0A 20 20 20 20 20 20 1, hit....
000140: 20 20 20 69 66 20 6E 65 78 74 65 76 65 6E 74 2E if nextevent.
000150: 61 6D 6F 75 62 6E 25 20 3D 20 31 20 61 6E 64 20 amoubn% = 1 and
000160: 6F 6E 62 6F 61 72 64 25 28 6D 6F 75 73 65 78 25 onboard%(mousex%
000170: 2C 20 6D 6F 75 73 65 79 25 29 20 74 68 65 6E 0D , mousey%) then.
000180: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 21 ... !
000190: 20 6D 6F 75 73 65 20 70 6F 73 74 69 6F 6E 20 69 mouse postion i
0001A0: 6E 73 69 64 65 20 76 61 6C 69 64 20 73 71 75 61 nside valid squa
0001B0: 72 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 re..
0001C0: 63 75 72 73 6F 72 78 25 20 3D 20 6D 6F 75 73 65 cursorx% = mouse
0001D0: 78 25 20 21 20 73 65 74 20 63 75 72 72 65 6E 74 x% ! set current
0001E0: 20 70 6F 73 69 74 69 6F 6E 20 74 6F 20 74 68 61 position to tha
0001F0: 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 t.. c
Size : 512 (Real : 512)
000000: 72 20 6F 66 20 73 71 75 61 72 65 73 20 6C 65 66 r of squares lef
000010: 74 20 69 73 20 65 71 75 61 6C 0D 0A 20 20 20 21 t is equal.. !
000020: 20 74 6F 20 74 68 65 20 6E 75 6D 62 65 72 20 6F to the number o
000030: 66 20 6D 69 6E 65 73 0D 0A 20 20 20 76 69 73 63 f mines.. visc
000040: 6E 74 25 20 3D 20 30 0D 0A 20 20 20 66 6F 72 20 nt% = 0.. for
000050: 79 69 25 20 3D 20 31 20 74 6F 20 6D 61 78 79 73 yi% = 1 to maxys
000060: 25 0D 0A 0D 0A 20 20 20 20 20 20 66 6F 72 20 78 %.... for x
000070: 69 25 20 3D 20 31 20 74 6F 20 6D 61 78 78 73 25 i% = 1 to maxxs%
000080: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 .... if
000090: 76 69 73 25 28 78 69 25 2C 20 79 69 25 29 20 74 vis%(xi%, yi%) t
0000A0: 68 65 6E 20 76 69 73 63 6E 74 25 20 3D 20 76 69 hen viscnt% = vi
0000B0: 73 63 6E 74 25 2B 31 20 21 20 63 6F 75 6E 74 20 scnt%+1 ! count
0000C0: 76 69 73 69 62 6C 65 0D 0A 0D 0A 20 20 20 20 20 visible....
0000D0: 20 6E 65 78 74 20 78 69 25 0D 0A 0D 0A 20 20 20 next xi%....
0000E0: 6E 65 78 74 20 79 69 25 0D 0A 20 20 20 69 66 20 next yi%.. if
0000F0: 6D 61 78 78 73 25 2A 6D 61 78 79 73 25 2D 76 69 maxxs%*maxys%-vi
000100: 73 63 6E 74 25 20 3D 20 6D 61 78 6D 69 6E 65 25 scnt% = maxmine%
000110: 20 74 68 65 6E 20 21 20 70 6C 61 79 65 72 20 77 then ! player w
000120: 69 6E 73 0D 0A 0D 0A 20 20 20 20 20 20 64 69 73 ins.... dis
000130: 70 6C 61 79 20 21 20 72 65 64 69 73 70 6C 61 79 play ! redisplay
000140: 20 62 6F 61 72 64 0D 0A 20 20 20 20 20 20 21 20 board.. !
000150: 61 6E 6E 6F 75 6E 63 65 20 74 68 61 74 20 74 6F announce that to
000160: 20 74 68 65 20 70 6C 61 79 65 72 0D 0A 20 20 20 the player..
000170: 20 20 20 62 63 6F 6C 6F 72 28 72 65 64 25 29 0D bcolor(red%).
000180: 0A 20 20 20 20 20 20 70 72 74 6D 69 64 28 6D 61 . prtmid(ma
000190: 78 79 25 2D 32 2C 20 22 2A 2A 2A 20 59 4F 55 20 xy%-2, "*** YOU
0001A0: 57 49 4E 20 21 20 2A 2A 2A 22 29 0D 0A 20 20 20 WIN ! ***")..
0001B0: 20 20 20 72 65 70 6C 61 79 20 21 20 70 72 6F 63 replay ! proc
0001C0: 65 73 73 20 72 65 70 6C 61 79 0D 0A 0D 0A 20 20 ess replay....
0001D0: 20 65 6E 64 69 66 0D 0A 0D 0A 65 6E 64 69 66 0D endif....endif.
0001E0: 0A 64 69 73 70 6C 61 79 20 21 20 72 65 64 69 73 .display ! redis
0001F0: 70 6C 61 79 20 62 6F 61 72 64 0D 0A 0D 0A 65 6E play board....en
Size : 512 (Real : 512)
000000: 75 72 73 6F 72 79 25 20 3D 20 6D 6F 75 73 65 79 ursory% = mousey
000010: 25 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 78 %.. x
000020: 25 20 3D 20 63 75 72 73 6F 72 78 25 2D 63 65 6E % = cursorx%-cen
000030: 74 65 72 78 25 2B 31 20 21 20 73 65 74 20 6C 6F terx%+1 ! set lo
000040: 63 61 74 69 6F 6E 20 6F 6E 20 62 6F 61 72 64 0D cation on board.
000050: 0A 20 20 20 20 20 20 20 20 20 20 20 20 79 25 20 . y%
000060: 3D 20 63 75 72 73 6F 72 79 25 2D 63 65 6E 74 65 = cursory%-cente
000070: 72 79 25 2B 31 0D 0A 20 20 20 20 20 20 20 20 20 ry%+1..
000080: 20 20 20 68 69 74 28 78 25 2C 20 79 25 29 20 21 hit(x%, y%) !
000090: 20 70 72 6F 63 65 73 73 20 68 69 74 0D 0A 0D 0A process hit....
0000A0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 69 66 else if
0000B0: 20 6E 65 78 74 65 76 65 6E 74 2E 61 6D 6F 75 62 nextevent.amoub
0000C0: 6E 25 20 3D 20 32 20 61 6E 64 20 6F 6E 62 6F 61 n% = 2 and onboa
0000D0: 72 64 25 28 6D 6F 75 73 65 78 25 2C 20 6D 6F 75 rd%(mousex%, mou
0000E0: 73 65 79 25 29 20 74 68 65 6E 0D 0A 0D 0A 20 20 sey%) then....
0000F0: 20 20 20 20 20 20 20 20 20 20 21 20 6D 6F 75 73 ! mous
000100: 65 20 70 6F 73 74 69 6F 6E 20 69 6E 73 69 64 65 e postion inside
000110: 20 76 61 6C 69 64 20 73 71 75 61 72 65 0D 0A 20 valid square..
000120: 20 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6F curso
000130: 72 78 25 20 3D 20 6D 6F 75 73 65 78 25 20 21 20 rx% = mousex% !
000140: 73 65 74 20 63 75 72 72 65 6E 74 20 70 6F 73 69 set current posi
000150: 74 69 6F 6E 20 74 6F 20 74 68 61 74 0D 0A 20 20 tion to that..
000160: 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6F 72 cursor
000170: 79 25 20 3D 20 6D 6F 75 73 65 79 25 0D 0A 20 20 y% = mousey%..
000180: 20 20 20 20 20 20 20 20 20 20 78 25 20 3D 20 63 x% = c
000190: 75 72 73 6F 72 78 25 2D 63 65 6E 74 65 72 78 25 ursorx%-centerx%
0001A0: 2B 31 20 21 20 73 65 74 20 6C 6F 63 61 74 69 6F +1 ! set locatio
0001B0: 6E 20 6F 6E 20 62 6F 61 72 64 0D 0A 20 20 20 20 n on board..
0001C0: 20 20 20 20 20 20 20 20 79 25 20 3D 20 63 75 72 y% = cur
0001D0: 73 6F 72 79 25 2D 63 65 6E 74 65 72 79 25 2B 31 sory%-centery%+1
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 21 20 .. !
0001F0: 72 65 76 65 72 73 65 20 66 6C 61 67 67 69 6E 67 reverse flagging
Size : 512 (Real : 512)
000000: 64 70 72 6F 63 0D 0A 0D 0A 21 21 21 21 21 21 21 dproc....!!!!!!!
000010: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000020: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000030: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000040: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000050: 21 21 21 21 21 21 21 21 21 0D 0A 21 0D 0A 21 20 !!!!!!!!!..!..!
000060: 4D 61 69 6E 20 70 72 6F 63 65 73 73 0D 0A 21 0D Main process..!.
000070: 0A 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 .!!!!!!!!!!!!!!!
000080: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
000090: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0000C0: 21 0D 0A 0D 0A 61 75 74 6F 28 66 61 6C 73 65 25 !....auto(false%
0000D0: 29 20 21 20 74 75 72 6E 20 6F 66 66 20 73 63 72 ) ! turn off scr
0000E0: 6F 6C 6C 69 6E 67 0D 0A 62 63 6F 6C 6F 72 28 63 olling..bcolor(c
0000F0: 79 61 6E 25 29 20 21 20 63 6F 6C 6F 72 20 74 68 yan%) ! color th
000100: 65 20 62 61 63 6B 67 72 6F 75 6E 64 0D 0A 63 6C e background..cl
000110: 65 61 72 20 21 20 63 6C 65 61 72 20 74 6F 20 74 ear ! clear to t
000120: 68 61 74 0D 0A 62 63 6F 6C 6F 72 28 6D 61 67 65 hat..bcolor(mage
000130: 6E 74 61 25 29 0D 0A 70 72 74 6D 69 64 28 31 2C nta%)..prtmid(1,
000140: 20 22 2A 2A 2A 2A 2A 2A 2A 20 4D 69 6E 65 20 67 "******* Mine g
000150: 61 6D 65 20 31 2E 30 20 2A 2A 2A 2A 2A 2A 2A 2A ame 1.0 ********
000160: 22 29 20 21 20 6F 75 74 70 75 74 20 74 69 74 6C ") ! output titl
000170: 65 0D 0A 21 20 66 69 6E 64 20 63 65 6E 74 65 72 e..! find center
000180: 20 62 6F 61 72 64 20 70 6F 73 69 74 69 6F 6E 0D board position.
000190: 0A 63 65 6E 74 65 72 78 25 20 3D 20 6D 61 78 78 .centerx% = maxx
0001A0: 25 20 64 69 76 20 32 2D 6D 61 78 78 73 25 20 64 % div 2-maxxs% d
0001B0: 69 76 20 32 0D 0A 63 65 6E 74 65 72 79 25 20 3D iv 2..centery% =
0001C0: 20 6D 61 78 79 25 20 64 69 76 20 32 2D 6D 61 78 maxy% div 2-max
0001D0: 79 73 25 20 64 69 76 20 32 0D 0A 21 20 64 72 61 ys% div 2..! dra
0001E0: 77 20 61 20 62 6F 72 64 65 72 20 61 72 6F 75 6E w a border aroun
0001F0: 64 20 74 68 61 74 0D 0A 74 62 6F 78 28 63 65 6E d that..tbox(cen
Size : 512 (Real : 512)
000000: 20 6F 6E 20 6C 6F 63 61 74 69 6F 6E 0D 0A 20 20 on location..
000010: 20 20 20 20 20 20 20 20 20 20 66 6C 61 67 28 78 flag(x
000020: 25 2C 20 79 25 29 20 3D 20 66 6C 61 67 28 78 25 %, y%) = flag(x%
000030: 2C 20 79 25 29 0D 0A 20 20 20 20 20 20 20 20 20 , y%)..
000040: 20 20 20 64 69 73 70 6C 61 79 20 21 20 72 65 64 display ! red
000050: 69 73 70 6C 61 79 20 62 6F 61 72 64 0D 0A 0D 0A isplay board....
000060: 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A endif..
000070: 0D 0A 20 20 20 65 6E 64 73 65 6C 0D 0A 0D 0A 75 .. endsel....u
000080: 6E 74 69 6C 20 64 6F 6E 65 25 20 6F 72 20 6E 65 ntil done% or ne
000090: 78 74 65 76 65 6E 74 2E 65 74 79 70 65 25 20 3D xtevent.etype% =
0000A0: 20 65 74 74 65 72 6D 25 20 21 20 67 61 6D 65 20 etterm% ! game
0000B0: 63 6F 6D 70 6C 65 74 65 0D 0A 61 75 74 6F 28 74 complete..auto(t
0000C0: 72 75 65 25 29 20 21 20 74 75 72 6E 20 6F 66 66 rue%) ! turn off
0000D0: 20 73 63 72 6F 6C 6C 69 6E 67 0D 0A 62 63 6F 6C scrolling..bcol
0000E0: 6F 72 28 77 68 69 74 65 25 29 20 21 20 72 65 73 or(white%) ! res
0000F0: 74 6F 72 65 20 63 6F 6C 6F 72 73 0D 0A 66 63 6F tore colors..fco
000100: 6C 6F 72 28 62 6C 61 63 6B 25 29 0D 0A 63 6C 65 lor(black%)..cle
000110: 61 72 20 21 20 63 6C 65 61 72 20 73 63 72 65 65 ar ! clear scree
000120: 6E 0D 0A 0D 0A 65 6E 64 1A E5 E5 E5 E5 E5 E5 E5 n....end........
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 74 65 72 78 25 2D 31 2C 20 63 65 6E 74 65 72 79 terx%-1, centery
000010: 25 2D 31 2C 20 63 65 6E 74 65 72 78 25 2B 6D 61 %-1, centerx%+ma
000020: 78 78 73 25 2C 20 63 65 6E 74 65 72 79 25 2B 6D xxs%, centery%+m
000030: 61 78 79 73 25 2C 20 22 20 22 2C 20 62 6C 75 65 axys%, " ", blue
000040: 25 2C 20 62 6C 61 63 6B 25 29 0D 0A 62 63 6F 6C %, black%)..bcol
000050: 6F 72 28 77 68 69 74 65 25 29 20 21 20 72 65 73 or(white%) ! res
000060: 74 6F 72 65 20 74 68 65 20 62 61 63 6B 67 72 6F tore the backgro
000070: 75 6E 64 0D 0A 63 6C 72 62 72 64 20 21 20 73 65 und..clrbrd ! se
000080: 74 20 75 70 20 62 6F 61 72 64 0D 0A 64 69 73 70 t up board..disp
000090: 6C 61 79 20 21 20 20 64 69 73 70 6C 61 79 20 62 lay ! display b
0000A0: 6F 61 72 64 20 7D 0D 0A 64 6F 6E 65 25 20 3D 20 oard }..done% =
0000B0: 66 61 6C 73 65 25 20 21 20 73 65 74 20 67 61 6D false% ! set gam
0000C0: 65 20 69 6E 20 70 72 6F 67 72 65 73 73 0D 0A 63 e in progress..c
0000D0: 75 72 73 6F 72 78 25 20 3D 20 63 65 6E 74 65 72 ursorx% = center
0000E0: 78 25 20 21 20 73 65 74 20 69 6E 69 74 61 6C 20 x% ! set inital
0000F0: 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E 0D cursor position.
000100: 0A 63 75 72 73 6F 72 79 25 20 3D 20 63 65 6E 74 .cursory% = cent
000110: 65 72 79 25 0D 0A 62 61 64 67 75 65 73 73 25 20 ery%..badguess%
000120: 3D 20 66 61 6C 73 65 25 20 21 20 73 65 74 20 62 = false% ! set b
000130: 61 64 20 67 75 65 73 73 65 73 20 69 6E 76 69 73 ad guesses invis
000140: 69 62 6C 65 0D 0A 72 65 70 65 61 74 20 21 20 65 ible..repeat ! e
000150: 6E 74 65 72 20 75 73 65 72 20 6D 6F 76 65 73 0D nter user moves.
000160: 0A 0D 0A 20 20 20 63 75 72 73 6F 72 28 63 75 72 ... cursor(cur
000170: 73 6F 72 78 25 2C 20 63 75 72 73 6F 72 79 25 29 sorx%, cursory%)
000180: 20 21 20 70 6C 61 63 65 20 63 75 72 73 6F 72 0D ! place cursor.
000190: 0A 20 20 20 78 25 20 3D 20 63 75 72 73 6F 72 78 . x% = cursorx
0001A0: 25 2D 63 65 6E 74 65 72 78 25 2B 31 20 21 20 73 %-centerx%+1 ! s
0001B0: 65 74 20 6C 6F 63 61 74 69 6F 6E 20 6F 6E 20 62 et location on b
0001C0: 6F 61 72 64 0D 0A 20 20 20 79 25 20 3D 20 63 75 oard.. y% = cu
0001D0: 72 73 6F 72 79 2D 63 65 6E 74 65 72 79 2B 31 0D rsory-centery+1.
0001E0: 0A 20 20 20 65 76 65 6E 74 28 6E 65 78 74 65 76 . event(nextev
0001F0: 65 6E 74 29 20 21 20 67 65 74 20 74 68 65 20 6E ent) ! get the n
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 4D 55 47 57 55 4D 50 22 0D 0A 32 20 50 52 49 "MUGWUMP"..2 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 JERSEY"..3 PRINT
000060: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 :PRINT:PRINT..4
000070: 52 45 4D 20 20 20 20 20 43 4F 55 52 54 45 53 59 REM COURTESY
000080: 20 50 45 4F 50 4C 45 27 53 20 43 4F 4D 50 55 54 PEOPLE'S COMPUT
000090: 45 52 20 43 4F 4D 50 41 4E 59 0D 0A 31 30 20 44 ER COMPANY..10 D
0000A0: 49 4D 20 50 28 34 2C 32 29 0D 0A 32 30 20 50 52 IM P(4,2)..20 PR
0000B0: 49 4E 54 20 22 54 48 45 20 4F 42 4A 45 43 54 20 INT "THE OBJECT
0000C0: 4F 46 20 54 48 49 53 20 47 41 4D 45 20 49 53 20 OF THIS GAME IS
0000D0: 54 4F 20 46 49 4E 44 20 46 4F 55 52 20 4D 55 47 TO FIND FOUR MUG
0000E0: 57 55 4D 50 53 22 0D 0A 33 30 20 50 52 49 4E 54 WUMPS"..30 PRINT
0000F0: 20 22 48 49 44 44 45 4E 20 4F 4E 20 41 20 31 30 "HIDDEN ON A 10
000100: 20 42 59 20 31 30 20 47 52 49 44 2E 20 20 48 4F BY 10 GRID. HO
000110: 4D 45 42 41 53 45 20 49 53 20 50 4F 53 49 54 49 MEBASE IS POSITI
000120: 4F 4E 20 30 2C 30 2E 22 0D 0A 34 30 20 50 52 49 ON 0,0."..40 PRI
000130: 4E 54 20 22 41 4E 59 20 47 55 45 53 53 20 59 4F NT "ANY GUESS YO
000140: 55 20 4D 41 4B 45 20 4D 55 53 54 20 42 45 20 54 U MAKE MUST BE T
000150: 57 4F 20 4E 55 4D 42 45 52 53 20 57 49 54 48 20 WO NUMBERS WITH
000160: 45 41 43 48 22 0D 0A 35 30 20 50 52 49 4E 54 20 EACH"..50 PRINT
000170: 22 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 "NUMBER BETWEEN
000180: 30 20 41 4E 44 20 39 2C 20 49 4E 43 4C 55 53 49 0 AND 9, INCLUSI
000190: 56 45 2E 20 20 46 49 52 53 54 20 4E 55 4D 42 45 VE. FIRST NUMBE
0001A0: 52 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 49 53 R"..60 PRINT "IS
0001B0: 20 44 49 53 54 41 4E 43 45 20 54 4F 20 52 49 47 DISTANCE TO RIG
0001C0: 48 54 20 4F 46 20 48 4F 4D 45 42 41 53 45 20 41 HT OF HOMEBASE A
0001D0: 4E 44 20 53 45 43 4F 4E 44 20 4E 55 4D 42 45 52 ND SECOND NUMBER
0001E0: 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 49 53 20 "..70 PRINT "IS
0001F0: 44 49 53 54 41 4E 43 45 20 41 42 4F 56 45 20 48 DISTANCE ABOVE H
Size : 512 (Real : 512)
000000: 30 20 50 52 49 4E 54 20 22 42 55 54 20 49 20 4A 0 PRINT "BUT I J
000010: 55 53 54 20 4E 4F 54 49 43 45 44 20 59 4F 55 52 UST NOTICED YOUR
000020: 20 4C 45 54 54 45 52 53 20 41 52 45 20 4F 55 54 LETTERS ARE OUT
000030: 20 4F 46 20 4F 52 44 45 52 2E 22 0D 0A 39 30 20 OF ORDER."..90
000040: 50 52 49 4E 54 20 22 4C 45 54 27 53 20 50 55 54 PRINT "LET'S PUT
000050: 20 54 48 45 4D 20 49 4E 20 4F 52 44 45 52 20 4C THEM IN ORDER L
000060: 49 4B 45 20 54 48 49 53 3A 20 22 3B 0D 0A 31 30 IKE THIS: ";..10
000070: 30 20 46 4F 52 20 4A 3D 32 20 54 4F 20 4C 3A 20 0 FOR J=2 TO L:
000080: 49 3D 4A 2D 31 3A 20 54 24 3D 42 24 28 4A 29 0D I=J-1: T$=B$(J).
000090: 0A 31 31 30 20 49 46 20 54 24 3E 42 24 28 49 29 .110 IF T$>B$(I)
0000A0: 20 54 48 45 4E 20 31 33 30 0D 0A 31 32 30 20 42 THEN 130..120 B
0000B0: 24 28 49 2B 31 29 3D 42 24 28 49 29 3A 20 49 3D $(I+1)=B$(I): I=
0000C0: 49 2D 31 3A 20 49 46 20 49 3E 30 20 54 48 45 4E I-1: IF I>0 THEN
0000D0: 20 31 31 30 0D 0A 31 33 30 20 42 24 28 49 2B 31 110..130 B$(I+1
0000E0: 29 3D 54 24 3A 20 4E 45 58 54 20 4A 0D 0A 31 34 )=T$: NEXT J..14
0000F0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4C 3A 20 0 FOR I=1 TO L:
000100: 50 52 49 4E 54 20 42 24 28 49 29 3B 3A 20 4E 45 PRINT B$(I);: NE
000110: 58 54 20 49 3A 20 50 52 49 4E 54 3A 20 50 52 49 XT I: PRINT: PRI
000120: 4E 54 0D 0A 31 35 30 20 50 52 49 4E 54 20 22 44 NT..150 PRINT "D
000130: 4F 4E 27 54 20 59 4F 55 20 4C 49 4B 45 20 54 48 ON'T YOU LIKE TH
000140: 41 54 20 42 45 54 54 45 52 22 3B 3A 20 49 4E 50 AT BETTER";: INP
000150: 55 54 20 44 24 0D 0A 31 36 30 20 49 46 20 44 24 UT D$..160 IF D$
000160: 3D 22 59 45 53 22 20 54 48 45 4E 20 31 38 30 0D ="YES" THEN 180.
000170: 0A 31 37 30 20 50 52 49 4E 54 3A 20 50 52 49 4E .170 PRINT: PRIN
000180: 54 20 22 49 27 4D 20 53 4F 52 52 59 20 59 4F 55 T "I'M SORRY YOU
000190: 20 44 4F 4E 27 54 20 4C 49 4B 45 20 49 54 20 54 DON'T LIKE IT T
0001A0: 48 41 54 20 57 41 59 2E 22 3A 20 47 4F 54 4F 20 HAT WAY.": GOTO
0001B0: 32 30 30 0D 0A 31 38 30 20 50 52 49 4E 54 3A 20 200..180 PRINT:
0001C0: 50 52 49 4E 54 20 22 49 20 4B 4E 45 57 20 59 4F PRINT "I KNEW YO
0001D0: 55 27 44 20 41 47 52 45 45 21 21 22 0D 0A 32 30 U'D AGREE!!"..20
0001E0: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 0 PRINT: PRINT "
0001F0: 49 20 52 45 41 4C 4C 59 20 45 4E 4A 4F 59 45 44 I REALLY ENJOYED
Size : 512 (Real : 512)
000000: 4F 4D 45 42 41 53 45 2E 22 0D 0A 38 30 20 50 52 OMEBASE."..80 PR
000010: 49 4E 54 0D 0A 39 30 20 50 52 49 4E 54 20 22 59 INT..90 PRINT "Y
000020: 4F 55 20 47 45 54 20 31 30 20 54 52 49 45 53 2E OU GET 10 TRIES.
000030: 20 20 41 46 54 45 52 20 45 41 43 48 20 54 52 59 AFTER EACH TRY
000040: 2C 20 49 20 57 49 4C 4C 20 54 45 4C 4C 22 0D 0A , I WILL TELL"..
000050: 31 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 48 100 PRINT "YOU H
000060: 4F 57 20 46 41 52 20 59 4F 55 20 41 52 45 20 46 OW FAR YOU ARE F
000070: 52 4F 4D 20 45 41 43 48 20 4D 55 47 57 55 4D 50 ROM EACH MUGWUMP
000080: 2E 22 0D 0A 31 31 30 20 50 52 49 4E 54 0D 0A 32 ."..110 PRINT..2
000090: 34 30 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 32 40 GOSUB 1000..2
0000A0: 35 30 20 54 3D 30 0D 0A 32 36 30 20 54 3D 54 2B 50 T=0..260 T=T+
0000B0: 31 0D 0A 32 37 30 20 50 52 49 4E 54 0D 0A 32 37 1..270 PRINT..27
0000C0: 35 20 50 52 49 4E 54 0D 0A 32 39 30 20 50 52 49 5 PRINT..290 PRI
0000D0: 4E 54 20 22 54 55 52 4E 20 4E 4F 2E 22 3B 54 3B NT "TURN NO.";T;
0000E0: 22 2D 2D 20 57 48 41 54 20 49 53 20 59 4F 55 52 "-- WHAT IS YOUR
0000F0: 20 47 55 45 53 53 22 3B 0D 0A 33 30 30 20 49 4E GUESS";..300 IN
000100: 50 55 54 20 4D 2C 4E 0D 0A 33 31 30 20 46 4F 52 PUT M,N..310 FOR
000110: 20 49 3D 31 20 54 4F 20 34 0D 0A 33 32 30 20 49 I=1 TO 4..320 I
000120: 46 20 50 28 49 2C 31 29 3D 2D 31 20 54 48 45 4E F P(I,1)=-1 THEN
000130: 20 34 30 30 0D 0A 33 33 30 20 49 46 20 50 28 49 400..330 IF P(I
000140: 2C 31 29 3C 3E 4D 20 54 48 45 4E 20 33 38 30 0D ,1)<>M THEN 380.
000150: 0A 33 34 30 20 49 46 20 50 28 49 2C 32 29 3C 3E .340 IF P(I,2)<>
000160: 4E 20 54 48 45 4E 20 33 38 30 0D 0A 33 35 30 20 N THEN 380..350
000170: 50 28 49 2C 31 29 3D 2D 31 0D 0A 33 36 30 20 50 P(I,1)=-1..360 P
000180: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 46 RINT "YOU HAVE F
000190: 4F 55 4E 44 20 4D 55 47 57 55 4D 50 22 3B 49 0D OUND MUGWUMP";I.
0001A0: 0A 33 37 30 20 47 4F 54 4F 20 34 30 30 0D 0A 33 .370 GOTO 400..3
0001B0: 38 30 20 44 3D 53 51 52 28 28 50 28 49 2C 31 29 80 D=SQR((P(I,1)
0001C0: 2D 4D 29 5E 32 2B 28 50 28 49 2C 32 29 2D 4E 29 -M)^2+(P(I,2)-N)
0001D0: 5E 32 29 0D 0A 33 39 30 20 50 52 49 4E 54 20 22 ^2)..390 PRINT "
0001E0: 59 4F 55 20 41 52 45 22 3B 28 49 4E 54 28 44 2A YOU ARE";(INT(D*
0001F0: 31 30 29 29 2F 31 30 3B 22 55 4E 49 54 53 20 46 10))/10;"UNITS F
Size : 512 (Real : 512)
000000: 20 4D 45 45 54 49 4E 47 20 59 4F 55 20 22 3B 41 MEETING YOU ";A
000010: 24 3B 22 2E 22 0D 0A 32 31 30 20 50 52 49 4E 54 $;"."..210 PRINT
000020: 20 22 48 41 56 45 20 41 20 4E 49 43 45 20 44 41 "HAVE A NICE DA
000030: 59 21 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 Y!"..999 END....
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 4F 4D 20 4D 55 47 57 55 4D 50 22 3B 49 0D 0A ROM MUGWUMP";I..
000010: 34 30 30 20 4E 45 58 54 20 49 0D 0A 34 31 30 20 400 NEXT I..410
000020: 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 34 32 FOR J=1 TO 4..42
000030: 30 20 49 46 20 50 28 4A 2C 31 29 3C 3E 2D 31 20 0 IF P(J,1)<>-1
000040: 54 48 45 4E 20 34 37 30 0D 0A 34 33 30 20 4E 45 THEN 470..430 NE
000050: 58 54 20 4A 0D 0A 34 34 30 20 50 52 49 4E 54 0D XT J..440 PRINT.
000060: 0A 34 35 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .450 PRINT "YOU
000070: 47 4F 54 20 54 48 45 4D 20 41 4C 4C 20 49 4E 22 GOT THEM ALL IN"
000080: 3B 54 3B 22 54 55 52 4E 53 21 22 0D 0A 34 36 30 ;T;"TURNS!"..460
000090: 20 47 4F 54 4F 20 35 38 30 0D 0A 34 37 30 20 49 GOTO 580..470 I
0000A0: 46 20 54 3C 31 30 20 54 48 45 4E 20 32 36 30 0D F T<10 THEN 260.
0000B0: 0A 34 38 30 20 50 52 49 4E 54 0D 0A 34 39 30 20 .480 PRINT..490
0000C0: 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 54 48 PRINT "SORRY, TH
0000D0: 41 54 27 53 20 31 30 20 54 52 49 45 53 2E 20 20 AT'S 10 TRIES.
0000E0: 48 45 52 45 20 49 53 20 57 48 45 52 45 20 54 48 HERE IS WHERE TH
0000F0: 45 59 27 52 45 20 48 49 44 49 4E 47 3A 22 0D 0A EY'RE HIDING:"..
000100: 35 34 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 34 540 FOR I=1 TO 4
000110: 0D 0A 35 35 30 20 49 46 20 50 28 49 2C 31 29 3D ..550 IF P(I,1)=
000120: 2D 31 20 54 48 45 4E 20 35 37 30 0D 0A 35 36 30 -1 THEN 570..560
000130: 20 50 52 49 4E 54 20 22 4D 55 47 57 55 4D 50 22 PRINT "MUGWUMP"
000140: 3B 49 3B 22 49 53 20 41 54 20 28 22 3B 50 28 49 ;I;"IS AT (";P(I
000150: 2C 31 29 3B 22 2C 22 3B 50 28 49 2C 32 29 3B 22 ,1);",";P(I,2);"
000160: 29 22 0D 0A 35 37 30 20 4E 45 58 54 20 49 0D 0A )"..570 NEXT I..
000170: 35 38 30 20 50 52 49 4E 54 0D 0A 36 30 30 20 50 580 PRINT..600 P
000180: 52 49 4E 54 20 22 54 48 41 54 20 57 41 53 20 46 RINT "THAT WAS F
000190: 55 4E 21 20 4C 45 54 27 53 20 50 4C 41 59 20 41 UN! LET'S PLAY A
0001A0: 47 41 49 4E 2E 2E 2E 2E 2E 2E 2E 22 0D 0A 36 31 GAIN......."..61
0001B0: 30 20 50 52 49 4E 54 20 22 46 4F 55 52 20 4D 4F 0 PRINT "FOUR MO
0001C0: 52 45 20 4D 55 47 57 55 4D 50 53 20 41 52 45 20 RE MUGWUMPS ARE
0001D0: 4E 4F 57 20 49 4E 20 48 49 44 49 4E 47 2E 22 0D NOW IN HIDING.".
0001E0: 0A 36 33 30 20 47 4F 54 4F 20 32 34 30 0D 0A 31 .630 GOTO 240..1
0001F0: 30 30 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 32 000 FOR J=1 TO 2
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0D 0A 31 30 31 30 20 46 4F 52 20 49 3D 31 20 54 ..1010 FOR I=1 T
000010: 4F 20 34 0D 0A 31 30 32 30 20 50 28 49 2C 4A 29 O 4..1020 P(I,J)
000020: 3D 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 0D =INT(10*RND(1)).
000030: 0A 31 30 33 30 20 4E 45 58 54 20 49 0D 0A 31 30 .1030 NEXT I..10
000040: 34 30 20 4E 45 58 54 20 4A 0D 0A 31 30 35 30 20 40 NEXT J..1050
000050: 52 45 54 55 52 4E 0D 0A 31 30 39 39 20 45 4E 44 RETURN..1099 END
000060: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 4E 49 43 4F 4D 41 22 0D 0A 34 20 50 52 49 4E "NICOMA"..4 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A ERSEY"..6 PRINT:
000060: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 31 PRINT: PRINT..1
000070: 30 20 50 52 49 4E 54 20 22 42 4F 4F 4D 45 52 41 0 PRINT "BOOMERA
000080: 4E 47 20 50 55 5A 5A 4C 45 20 46 52 4F 4D 20 41 NG PUZZLE FROM A
000090: 52 49 54 48 4D 45 54 49 43 41 20 4F 46 20 4E 49 RITHMETICA OF NI
0000A0: 43 4F 4D 41 43 48 55 53 20 2D 2D 20 41 2E 44 2E COMACHUS -- A.D.
0000B0: 20 39 30 21 22 0D 0A 32 30 20 50 52 49 4E 54 0D 90!"..20 PRINT.
0000C0: 0A 33 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 .30 PRINT "PLEAS
0000D0: 45 20 54 48 49 4E 4B 20 4F 46 20 41 20 4E 55 4D E THINK OF A NUM
0000E0: 42 45 52 20 42 45 54 57 45 45 4E 20 31 20 41 4E BER BETWEEN 1 AN
0000F0: 44 20 31 30 30 2E 22 0D 0A 34 30 20 50 52 49 4E D 100."..40 PRIN
000100: 54 20 22 59 4F 55 52 20 4E 55 4D 42 45 52 20 44 T "YOUR NUMBER D
000110: 49 56 49 44 45 44 20 42 59 20 33 20 48 41 53 20 IVIDED BY 3 HAS
000120: 41 20 52 45 4D 41 49 4E 44 45 52 20 4F 46 22 3B A REMAINDER OF";
000130: 0D 0A 34 35 20 49 4E 50 55 54 20 41 0D 0A 35 30 ..45 INPUT A..50
000140: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 4E 55 4D PRINT "YOUR NUM
000150: 42 45 52 20 44 49 56 49 44 45 44 20 42 59 20 35 BER DIVIDED BY 5
000160: 20 48 41 53 20 41 20 52 45 4D 41 49 4E 44 45 52 HAS A REMAINDER
000170: 20 4F 46 22 3B 0D 0A 35 35 20 49 4E 50 55 54 20 OF";..55 INPUT
000180: 42 0D 0A 36 30 20 50 52 49 4E 54 20 22 59 4F 55 B..60 PRINT "YOU
000190: 52 20 4E 55 4D 42 45 52 20 44 49 56 49 44 45 44 R NUMBER DIVIDED
0001A0: 20 42 59 20 37 20 48 41 53 20 41 20 52 45 4D 41 BY 7 HAS A REMA
0001B0: 49 4E 44 45 52 20 4F 46 22 3B 0D 0A 36 35 20 49 INDER OF";..65 I
0001C0: 4E 50 55 54 20 43 0D 0A 37 30 20 50 52 49 4E 54 NPUT C..70 PRINT
0001D0: 0D 0A 38 30 20 50 52 49 4E 54 20 22 4C 45 54 20 ..80 PRINT "LET
0001E0: 4D 45 20 54 48 49 4E 4B 20 41 20 4D 4F 4D 45 4E ME THINK A MOMEN
0001F0: 54 2E 2E 2E 22 0D 0A 38 35 20 50 52 49 4E 54 0D T..."..85 PRINT.
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 1 PRINT TAB(34);
000010: 22 4E 41 4D 45 22 0D 0A 32 20 50 52 49 4E 54 20 "NAME"..2 PRINT
000020: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
000030: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
000040: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
000050: 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 20 50 SEY"..3 PRINT: P
000060: 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 35 20 44 RINT: PRINT..5 D
000070: 49 4D 20 42 24 28 34 30 29 0D 0A 31 30 20 50 52 IM B$(40)..10 PR
000080: 49 4E 54 20 22 48 45 4C 4C 4F 2E 22 3A 20 50 52 INT "HELLO.": PR
000090: 49 4E 54 20 22 4D 59 20 4E 41 4D 45 20 49 53 20 INT "MY NAME IS
0000A0: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 45 CREATIVE COMPUTE
0000B0: 52 2E 22 0D 0A 32 30 20 50 52 49 4E 54 20 22 57 R."..20 PRINT "W
0000C0: 48 41 54 27 53 20 59 4F 55 52 20 4E 41 4D 45 20 HAT'S YOUR NAME
0000D0: 28 46 49 52 53 54 20 41 4E 44 20 4C 41 53 54 22 (FIRST AND LAST"
0000E0: 3B 3A 20 49 4E 50 55 54 20 41 24 3A 20 4C 3D 4C ;: INPUT A$: L=L
0000F0: 45 4E 28 41 24 29 0D 0A 33 30 20 50 52 49 4E 54 EN(A$)..30 PRINT
000100: 3A 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 20 59 : PRINT "THANK Y
000110: 4F 55 2C 20 22 3B 0D 0A 34 30 20 46 4F 52 20 49 OU, ";..40 FOR I
000120: 3D 31 20 54 4F 20 4C 3A 20 42 24 28 49 29 3D 4D =1 TO L: B$(I)=M
000130: 49 44 24 28 41 24 2C 49 2C 31 29 3A 20 4E 45 58 ID$(A$,I,1): NEX
000140: 54 20 49 0D 0A 35 30 20 46 4F 52 20 49 3D 4C 20 T I..50 FOR I=L
000150: 54 4F 20 31 20 53 54 45 50 20 2D 31 3A 20 50 52 TO 1 STEP -1: PR
000160: 49 4E 54 20 42 24 28 49 29 3B 3A 20 4E 45 58 54 INT B$(I);: NEXT
000170: 20 49 0D 0A 36 30 20 50 52 49 4E 54 20 22 2E 22 I..60 PRINT "."
000180: 3A 20 50 52 49 4E 54 20 22 4F 4F 50 53 21 20 20 : PRINT "OOPS!
000190: 49 20 47 55 45 53 53 20 49 20 47 4F 54 20 49 54 I GUESS I GOT IT
0001A0: 20 42 41 43 4B 57 41 52 44 53 2E 20 20 41 20 53 BACKWARDS. A S
0001B0: 4D 41 52 54 22 0D 0A 37 30 20 50 52 49 4E 54 20 MART"..70 PRINT
0001C0: 22 43 4F 4D 50 55 54 45 52 20 4C 49 4B 45 20 4D "COMPUTER LIKE M
0001D0: 45 20 53 48 4F 55 4C 44 4E 27 54 20 4D 41 4B 45 E SHOULDN'T MAKE
0001E0: 20 41 20 4D 49 53 54 41 4B 45 20 4C 49 4B 45 20 A MISTAKE LIKE
0001F0: 54 48 41 54 21 22 3A 20 50 52 49 4E 54 0D 0A 38 THAT!": PRINT..8
Size : 512 (Real : 512)
000000: 0A 39 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 .90 FOR I=1 TO 1
000010: 35 30 30 3A 20 4E 45 58 54 20 49 0D 0A 31 30 30 500: NEXT I..100
000020: 20 44 3D 37 30 2A 41 2B 32 31 2A 42 2B 31 35 2A D=70*A+21*B+15*
000030: 43 0D 0A 31 31 30 20 49 46 20 44 3C 3D 31 30 35 C..110 IF D<=105
000040: 20 54 48 45 4E 20 31 34 30 0D 0A 31 32 30 20 44 THEN 140..120 D
000050: 3D 44 2D 31 30 35 0D 0A 31 33 30 20 47 4F 54 4F =D-105..130 GOTO
000060: 20 31 31 30 0D 0A 31 34 30 20 50 52 49 4E 54 20 110..140 PRINT
000070: 22 59 4F 55 52 20 4E 55 4D 42 45 52 20 57 41 53 "YOUR NUMBER WAS
000080: 22 3B 44 3B 22 2C 20 52 49 47 48 54 22 3B 0D 0A ";D;", RIGHT";..
000090: 31 36 30 20 49 4E 50 55 54 20 41 24 0D 0A 31 36 160 INPUT A$..16
0000A0: 35 20 50 52 49 4E 54 0D 0A 31 37 30 20 49 46 20 5 PRINT..170 IF
0000B0: 41 24 3D 22 59 45 53 22 20 54 48 45 4E 20 32 32 A$="YES" THEN 22
0000C0: 30 0D 0A 31 38 30 20 49 46 20 41 24 3D 22 4E 4F 0..180 IF A$="NO
0000D0: 22 20 54 48 45 4E 20 32 34 30 0D 0A 31 39 30 20 " THEN 240..190
0000E0: 50 52 49 4E 54 20 22 45 48 3F 20 20 49 20 44 4F PRINT "EH? I DO
0000F0: 4E 27 54 20 55 4E 44 45 52 53 54 41 4E 44 20 27 N'T UNDERSTAND '
000100: 22 3B 41 24 3B 22 27 20 20 54 52 59 20 27 59 45 ";A$;"' TRY 'YE
000110: 53 27 20 4F 52 20 27 4E 4F 27 2E 22 0D 0A 32 30 S' OR 'NO'."..20
000120: 30 20 47 4F 54 4F 20 31 36 30 0D 0A 32 32 30 20 0 GOTO 160..220
000130: 50 52 49 4E 54 20 22 48 4F 57 20 41 42 4F 55 54 PRINT "HOW ABOUT
000140: 20 54 48 41 54 21 21 22 0D 0A 32 33 30 20 47 4F THAT!!"..230 GO
000150: 54 4F 20 32 35 30 0D 0A 32 34 30 20 50 52 49 4E TO 250..240 PRIN
000160: 54 20 22 49 20 46 45 45 4C 20 59 4F 55 52 20 41 T "I FEEL YOUR A
000170: 52 49 54 48 4D 45 54 49 43 20 49 53 20 49 4E 20 RITHMETIC IS IN
000180: 45 52 52 4F 52 2E 22 0D 0A 32 35 30 20 50 52 49 ERROR."..250 PRI
000190: 4E 54 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 4C NT..260 PRINT "L
0001A0: 45 54 27 53 20 54 52 59 20 41 4E 4F 54 48 45 52 ET'S TRY ANOTHER
0001B0: 2E 22 0D 0A 32 37 30 20 47 4F 54 4F 20 32 30 0D ."..270 GOTO 20.
0001C0: 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 .999 END........
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 4D 41 43 48 49 4E 45 20 4C 4F RINT "MACHINE LO
000010: 53 45 53 22 0D 0A 38 31 30 20 47 4F 54 4F 20 31 SES"..810 GOTO 1
000020: 36 34 30 0D 0A 38 32 30 20 50 52 49 4E 54 20 22 640..820 PRINT "
000030: 4D 41 43 48 49 4E 45 20 57 49 4E 53 22 0D 0A 38 MACHINE WINS"..8
000040: 33 30 20 47 4F 54 4F 20 31 36 34 30 0D 0A 38 34 30 GOTO 1640..84
000050: 30 20 4C 45 54 20 43 3D 30 0D 0A 38 35 30 20 46 0 LET C=0..850 F
000060: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 38 36 30 OR I=1 TO N..860
000070: 20 49 46 20 41 28 49 29 3E 31 20 54 48 45 4E 20 IF A(I)>1 THEN
000080: 39 34 30 0D 0A 38 37 30 20 49 46 20 41 28 49 29 940..870 IF A(I)
000090: 3D 30 20 54 48 45 4E 20 38 39 30 0D 0A 38 38 30 =0 THEN 890..880
0000A0: 20 4C 45 54 20 43 3D 43 2B 31 0D 0A 38 39 30 20 LET C=C+1..890
0000B0: 4E 45 58 54 20 49 0D 0A 39 30 30 20 49 46 20 43 NEXT I..900 IF C
0000C0: 2F 32 3C 3E 49 4E 54 28 43 2F 32 29 20 54 48 45 /2<>INT(C/2) THE
0000D0: 4E 20 38 30 30 0D 0A 39 31 30 20 47 4F 54 4F 20 N 800..910 GOTO
0000E0: 39 34 30 0D 0A 39 32 30 20 49 46 20 41 28 44 28 940..920 IF A(D(
0000F0: 31 29 29 3D 31 20 54 48 45 4E 20 38 32 30 0D 0A 1))=1 THEN 820..
000100: 39 33 30 20 49 46 20 41 28 44 28 32 29 29 3D 31 930 IF A(D(2))=1
000110: 20 54 48 45 4E 20 38 32 30 0D 0A 39 34 30 20 46 THEN 820..940 F
000120: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 39 35 30 OR I=1 TO N..950
000130: 20 4C 45 54 20 45 3D 41 28 49 29 0D 0A 39 36 30 LET E=A(I)..960
000140: 20 46 4F 52 20 4A 3D 30 20 54 4F 20 31 30 0D 0A FOR J=0 TO 10..
000150: 39 37 30 20 4C 45 54 20 46 3D 45 2F 32 0D 0A 39 970 LET F=E/2..9
000160: 38 30 20 4C 45 54 20 42 28 49 2C 4A 29 3D 32 2A 80 LET B(I,J)=2*
000170: 28 46 2D 49 4E 54 28 46 29 29 0D 0A 39 39 30 20 (F-INT(F))..990
000180: 4C 45 54 20 45 3D 49 4E 54 28 46 29 0D 0A 31 30 LET E=INT(F)..10
000190: 30 30 20 4E 45 58 54 20 4A 0D 0A 31 30 31 30 20 00 NEXT J..1010
0001A0: 4E 45 58 54 20 49 0D 0A 31 30 32 30 20 46 4F 52 NEXT I..1020 FOR
0001B0: 20 4A 3D 31 30 20 54 4F 20 30 20 53 54 45 50 20 J=10 TO 0 STEP
0001C0: 2D 31 0D 0A 31 30 33 30 20 4C 45 54 20 43 3D 30 -1..1030 LET C=0
0001D0: 0D 0A 31 30 34 30 20 4C 45 54 20 48 3D 30 0D 0A ..1040 LET H=0..
0001E0: 31 30 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 1050 FOR I=1 TO
0001F0: 4E 0D 0A 31 30 36 30 20 49 46 20 42 28 49 2C 4A N..1060 IF B(I,J
Size : 512 (Real : 512)
000000: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 100 PRINT TAB(33
000010: 29 3B 22 4E 49 4D 22 0D 0A 31 31 30 20 50 52 49 );"NIM"..110 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 31 32 30 20 50 52 49 JERSEY"..120 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 32 31 30 20 44 49 4D 20 41 28 31 30 30 29 2C 42 210 DIM A(100),B
000080: 28 31 30 30 2C 31 30 29 2C 44 28 32 29 0D 0A 32 (100,10),D(2)..2
000090: 32 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 20 PRINT "THIS I
0000A0: 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 4E 49 S THE GAME OF NI
0000B0: 4D 2E 22 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 M."..230 PRINT "
0000C0: 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 DO YOU WANT INST
0000D0: 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 34 30 20 RUCTIONS";..240
0000E0: 49 4E 50 55 54 20 5A 24 0D 0A 32 35 30 20 49 46 INPUT Z$..250 IF
0000F0: 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 34 34 Z$="NO" THEN 44
000100: 30 0D 0A 32 36 30 20 49 46 20 5A 24 3D 22 6E 6F 0..260 IF Z$="no
000110: 22 20 54 48 45 4E 20 34 34 30 0D 0A 32 37 30 20 " THEN 440..270
000120: 49 46 20 5A 24 3D 22 59 45 53 22 20 54 48 45 4E IF Z$="YES" THEN
000130: 20 33 31 30 0D 0A 32 38 30 20 49 46 20 5A 24 3D 310..280 IF Z$=
000140: 22 79 65 73 22 20 54 48 45 4E 20 33 31 30 0D 0A "yes" THEN 310..
000150: 32 39 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 290 PRINT "PLEAS
000160: 45 20 41 4E 53 57 45 52 20 59 45 53 20 4F 52 20 E ANSWER YES OR
000170: 4E 4F 22 0D 0A 33 30 30 20 47 4F 54 4F 20 32 34 NO"..300 GOTO 24
000180: 30 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 54 48 0..310 PRINT "TH
000190: 45 20 47 41 4D 45 20 49 53 20 50 4C 41 59 45 44 E GAME IS PLAYED
0001A0: 20 57 49 54 48 20 41 20 4E 55 4D 42 45 52 20 4F WITH A NUMBER O
0001B0: 46 20 50 49 4C 45 53 20 4F 46 20 4F 42 4A 45 43 F PILES OF OBJEC
0001C0: 54 53 2E 22 0D 0A 33 32 30 20 50 52 49 4E 54 20 TS."..320 PRINT
0001D0: 22 41 4E 59 20 4E 55 4D 42 45 52 20 4F 46 20 4F "ANY NUMBER OF O
0001E0: 42 4A 45 43 54 53 20 41 52 45 20 52 45 4D 4F 56 BJECTS ARE REMOV
0001F0: 45 44 20 46 52 4F 4D 20 4F 4E 45 20 50 49 4C 45 ED FROM ONE PILE
Size : 512 (Real : 512)
000000: 29 3D 30 20 54 48 45 4E 20 31 31 31 30 0D 0A 31 )=0 THEN 1110..1
000010: 30 37 30 20 4C 45 54 20 43 3D 43 2B 31 0D 0A 31 070 LET C=C+1..1
000020: 30 38 30 20 49 46 20 41 28 49 29 3C 3D 48 20 54 080 IF A(I)<=H T
000030: 48 45 4E 20 31 31 31 30 0D 0A 31 30 39 30 20 4C HEN 1110..1090 L
000040: 45 54 20 48 3D 41 28 49 29 0D 0A 31 31 30 30 20 ET H=A(I)..1100
000050: 4C 45 54 20 47 3D 49 0D 0A 31 31 31 30 20 4E 45 LET G=I..1110 NE
000060: 58 54 20 49 0D 0A 31 31 32 30 20 49 46 20 43 2F XT I..1120 IF C/
000070: 32 3C 3E 49 4E 54 28 43 2F 32 29 20 54 48 45 4E 2<>INT(C/2) THEN
000080: 20 31 31 39 30 0D 0A 31 31 33 30 20 4E 45 58 54 1190..1130 NEXT
000090: 20 4A 0D 0A 31 31 34 30 20 4C 45 54 20 45 3D 49 J..1140 LET E=I
0000A0: 4E 54 28 4E 2A 52 4E 44 28 31 29 2B 31 29 0D 0A NT(N*RND(1)+1)..
0000B0: 31 31 35 30 20 49 46 20 41 28 45 29 3D 30 20 54 1150 IF A(E)=0 T
0000C0: 48 45 4E 20 31 31 34 30 0D 0A 31 31 36 30 20 4C HEN 1140..1160 L
0000D0: 45 54 20 46 3D 49 4E 54 28 41 28 45 29 2A 52 4E ET F=INT(A(E)*RN
0000E0: 44 28 31 29 2B 31 29 0D 0A 31 31 37 30 20 4C 45 D(1)+1)..1170 LE
0000F0: 54 20 41 28 45 29 3D 41 28 45 29 2D 46 0D 0A 31 T A(E)=A(E)-F..1
000100: 31 38 30 20 47 4F 54 4F 20 31 33 38 30 0D 0A 31 180 GOTO 1380..1
000110: 31 39 30 20 4C 45 54 20 41 28 47 29 3D 30 0D 0A 190 LET A(G)=0..
000120: 31 32 30 30 20 46 4F 52 20 4A 3D 30 20 54 4F 20 1200 FOR J=0 TO
000130: 31 30 0D 0A 31 32 31 30 20 4C 45 54 20 42 28 47 10..1210 LET B(G
000140: 2C 4A 29 3D 30 0D 0A 31 32 32 30 20 4C 45 54 20 ,J)=0..1220 LET
000150: 43 3D 30 0D 0A 31 32 33 30 20 46 4F 52 20 49 3D C=0..1230 FOR I=
000160: 31 20 54 4F 20 4E 0D 0A 31 32 34 30 20 49 46 20 1 TO N..1240 IF
000170: 42 28 49 2C 4A 29 3D 30 20 54 48 45 4E 20 31 32 B(I,J)=0 THEN 12
000180: 36 30 0D 0A 31 32 35 30 20 4C 45 54 20 43 3D 43 60..1250 LET C=C
000190: 2B 31 0D 0A 31 32 36 30 20 4E 45 58 54 20 49 0D +1..1260 NEXT I.
0001A0: 0A 31 32 37 30 20 4C 45 54 20 41 28 47 29 3D 41 .1270 LET A(G)=A
0001B0: 28 47 29 2B 32 2A 28 43 2F 32 2D 49 4E 54 28 43 (G)+2*(C/2-INT(C
0001C0: 2F 32 29 29 2A 32 5E 4A 0D 0A 31 32 38 30 20 4E /2))*2^J..1280 N
0001D0: 45 58 54 20 4A 0D 0A 31 32 39 30 20 49 46 20 57 EXT J..1290 IF W
0001E0: 3D 31 20 54 48 45 4E 20 31 33 38 30 0D 0A 31 33 =1 THEN 1380..13
0001F0: 30 30 20 4C 45 54 20 43 3D 30 0D 0A 31 33 31 30 00 LET C=0..1310
Size : 512 (Real : 512)
000000: 20 42 59 20 59 4F 55 20 41 4E 44 22 0D 0A 33 33 BY YOU AND"..33
000010: 30 20 50 52 49 4E 54 20 22 54 48 45 20 4D 41 43 0 PRINT "THE MAC
000020: 48 49 4E 45 20 41 4C 54 45 52 4E 41 54 45 4C 59 HINE ALTERNATELY
000030: 2E 20 20 4F 4E 20 59 4F 55 52 20 54 55 52 4E 2C . ON YOUR TURN,
000040: 20 59 4F 55 20 4D 41 59 20 54 41 4B 45 22 0D 0A YOU MAY TAKE"..
000050: 33 34 30 20 50 52 49 4E 54 20 22 41 4C 4C 20 54 340 PRINT "ALL T
000060: 48 45 20 4F 42 4A 45 43 54 53 20 54 48 41 54 20 HE OBJECTS THAT
000070: 52 45 4D 41 49 4E 20 49 4E 20 41 4E 59 20 50 49 REMAIN IN ANY PI
000080: 4C 45 2C 20 42 55 54 20 59 4F 55 20 4D 55 53 54 LE, BUT YOU MUST
000090: 22 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 54 41 "..350 PRINT "TA
0000A0: 4B 45 20 41 54 20 4C 45 41 53 54 20 4F 4E 45 20 KE AT LEAST ONE
0000B0: 4F 42 4A 45 43 54 2C 20 41 4E 44 20 59 4F 55 20 OBJECT, AND YOU
0000C0: 4D 41 59 20 54 41 4B 45 20 4F 42 4A 45 43 54 53 MAY TAKE OBJECTS
0000D0: 20 46 52 4F 4D 22 0D 0A 33 36 30 20 50 52 49 4E FROM"..360 PRIN
0000E0: 54 20 22 4F 4E 4C 59 20 4F 4E 45 20 50 49 4C 45 T "ONLY ONE PILE
0000F0: 20 4F 4E 20 41 20 53 49 4E 47 4C 45 20 54 55 52 ON A SINGLE TUR
000100: 4E 2E 20 20 59 4F 55 20 4D 55 53 54 20 53 50 45 N. YOU MUST SPE
000110: 43 49 46 59 20 57 48 45 54 48 45 52 22 0D 0A 33 CIFY WHETHER"..3
000120: 37 30 20 50 52 49 4E 54 20 22 57 49 4E 4E 49 4E 70 PRINT "WINNIN
000130: 47 20 49 53 20 44 45 46 49 4E 45 44 20 41 53 20 G IS DEFINED AS
000140: 54 41 4B 49 4E 47 20 4F 52 20 4E 4F 54 20 54 41 TAKING OR NOT TA
000150: 4B 49 4E 47 20 54 48 45 20 4C 41 53 54 20 4F 42 KING THE LAST OB
000160: 4A 45 43 54 2C 22 0D 0A 33 38 30 20 50 52 49 4E JECT,"..380 PRIN
000170: 54 20 22 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 T "THE NUMBER OF
000180: 20 50 49 4C 45 53 20 49 4E 20 54 48 45 20 47 41 PILES IN THE GA
000190: 4D 45 2C 20 41 4E 44 20 48 4F 57 20 4D 41 4E 59 ME, AND HOW MANY
0001A0: 20 4F 42 4A 45 43 54 53 20 41 52 45 22 0D 0A 33 OBJECTS ARE"..3
0001B0: 39 30 20 50 52 49 4E 54 20 22 4F 52 49 47 49 4E 90 PRINT "ORIGIN
0001C0: 41 4C 4C 59 20 49 4E 20 45 41 43 48 20 50 49 4C ALLY IN EACH PIL
0001D0: 45 2E 20 20 45 41 43 48 20 50 49 4C 45 20 4D 41 E. EACH PILE MA
0001E0: 59 20 43 4F 4E 54 41 49 4E 20 41 22 0D 0A 34 30 Y CONTAIN A"..40
0001F0: 30 20 50 52 49 4E 54 20 22 44 49 46 46 45 52 45 0 PRINT "DIFFERE
Size : 512 (Real : 512)
000000: 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 31 FOR I=1 TO N..1
000010: 33 32 30 20 49 46 20 41 28 49 29 3E 31 20 54 48 320 IF A(I)>1 TH
000020: 45 4E 20 31 33 38 30 0D 0A 31 33 33 30 20 49 46 EN 1380..1330 IF
000030: 20 41 28 49 29 3D 30 20 54 48 45 4E 20 31 33 35 A(I)=0 THEN 135
000040: 30 0D 0A 31 33 34 30 20 4C 45 54 20 43 3D 43 2B 0..1340 LET C=C+
000050: 31 0D 0A 31 33 35 30 20 4E 45 58 54 20 49 0D 0A 1..1350 NEXT I..
000060: 31 33 36 30 20 49 46 20 43 2F 32 3C 3E 49 4E 54 1360 IF C/2<>INT
000070: 28 43 2F 32 29 20 54 48 45 4E 20 31 33 38 30 0D (C/2) THEN 1380.
000080: 0A 31 33 37 30 20 4C 45 54 20 41 28 47 29 3D 31 .1370 LET A(G)=1
000090: 2D 41 28 47 29 0D 0A 31 33 38 30 20 50 52 49 4E -A(G)..1380 PRIN
0000A0: 54 20 22 50 49 4C 45 20 20 53 49 5A 45 22 0D 0A T "PILE SIZE"..
0000B0: 31 33 39 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 1390 FOR I=1 TO
0000C0: 4E 0D 0A 31 34 30 30 20 50 52 49 4E 54 20 49 3B N..1400 PRINT I;
0000D0: 41 28 49 29 0D 0A 31 34 31 30 20 4E 45 58 54 20 A(I)..1410 NEXT
0000E0: 49 0D 0A 31 34 32 30 20 49 46 20 57 3D 32 20 54 I..1420 IF W=2 T
0000F0: 48 45 4E 20 31 34 35 30 0D 0A 31 34 33 30 20 47 HEN 1450..1430 G
000100: 4F 53 55 42 20 31 35 37 30 0D 0A 31 34 34 30 20 OSUB 1570..1440
000110: 49 46 20 5A 3D 31 20 54 48 45 4E 20 38 32 30 0D IF Z=1 THEN 820.
000120: 0A 31 34 35 30 20 50 52 49 4E 54 20 22 59 4F 55 .1450 PRINT "YOU
000130: 52 20 4D 4F 56 45 20 2D 20 50 49 4C 45 2C 20 4E R MOVE - PILE, N
000140: 55 4D 42 45 52 20 54 4F 20 42 45 20 52 45 4D 4F UMBER TO BE REMO
000150: 56 45 44 22 3B 0D 0A 31 34 36 30 20 49 4E 50 55 VED";..1460 INPU
000160: 54 20 58 2C 59 0D 0A 31 34 37 30 20 49 46 20 58 T X,Y..1470 IF X
000170: 3E 4E 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 34 >N THEN 1450..14
000180: 38 30 20 49 46 20 58 3C 31 20 54 48 45 4E 20 31 80 IF X<1 THEN 1
000190: 34 35 30 0D 0A 31 34 39 30 20 49 46 20 58 3C 3E 450..1490 IF X<>
0001A0: 49 4E 54 28 58 29 20 54 48 45 4E 20 31 34 35 30 INT(X) THEN 1450
0001B0: 0D 0A 31 35 30 30 20 49 46 20 59 3E 41 28 58 29 ..1500 IF Y>A(X)
0001C0: 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 35 31 30 THEN 1450..1510
0001D0: 20 49 46 20 59 3C 31 20 54 48 45 4E 20 31 34 35 IF Y<1 THEN 145
0001E0: 30 0D 0A 31 35 32 30 20 49 46 20 59 3C 3E 49 4E 0..1520 IF Y<>IN
0001F0: 54 28 59 29 20 54 48 45 4E 20 31 34 35 30 0D 0A T(Y) THEN 1450..
Size : 512 (Real : 512)
000000: 4E 54 20 4E 55 4D 42 45 52 20 4F 46 20 4F 42 4A NT NUMBER OF OBJ
000010: 45 43 54 53 2E 22 0D 0A 34 31 30 20 50 52 49 4E ECTS."..410 PRIN
000020: 54 20 22 54 48 45 20 4D 41 43 48 49 4E 45 20 57 T "THE MACHINE W
000030: 49 4C 4C 20 53 48 4F 57 20 49 54 53 20 4D 4F 56 ILL SHOW ITS MOV
000040: 45 20 42 59 20 4C 49 53 54 49 4E 47 20 45 41 43 E BY LISTING EAC
000050: 48 20 50 49 4C 45 20 41 4E 44 20 54 48 45 22 0D H PILE AND THE".
000060: 0A 34 32 30 20 50 52 49 4E 54 20 22 4E 55 4D 42 .420 PRINT "NUMB
000070: 45 52 20 4F 46 20 4F 42 4A 45 43 54 53 20 52 45 ER OF OBJECTS RE
000080: 4D 41 49 4E 49 4E 47 20 49 4E 20 54 48 45 20 50 MAINING IN THE P
000090: 49 4C 45 53 20 41 46 54 45 52 20 20 45 41 43 48 ILES AFTER EACH
0000A0: 20 4F 46 20 49 54 53 22 0D 0A 34 33 30 20 50 52 OF ITS"..430 PR
0000B0: 49 4E 54 20 22 4D 4F 56 45 53 2E 22 0D 0A 34 34 INT "MOVES."..44
0000C0: 30 20 50 52 49 4E 54 0D 0A 34 35 30 20 50 52 49 0 PRINT..450 PRI
0000D0: 4E 54 20 22 45 4E 54 45 52 20 57 49 4E 20 4F 50 NT "ENTER WIN OP
0000E0: 54 49 4F 4E 20 2D 20 31 20 54 4F 20 54 41 4B 45 TION - 1 TO TAKE
0000F0: 20 4C 41 53 54 2C 20 32 20 54 4F 20 41 56 4F 49 LAST, 2 TO AVOI
000100: 44 20 4C 41 53 54 22 3B 0D 0A 34 36 30 20 49 4E D LAST";..460 IN
000110: 50 55 54 20 57 0D 0A 34 37 30 20 49 46 20 57 3D PUT W..470 IF W=
000120: 31 20 54 48 45 4E 20 34 39 30 0D 0A 34 38 30 20 1 THEN 490..480
000130: 49 46 20 57 3C 3E 32 20 54 48 45 4E 20 34 35 30 IF W<>2 THEN 450
000140: 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 45 4E 54 ..490 PRINT "ENT
000150: 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 50 49 4C ER NUMBER OF PIL
000160: 45 53 22 3B 0D 0A 35 30 30 20 49 4E 50 55 54 20 ES";..500 INPUT
000170: 4E 0D 0A 35 31 30 20 49 46 20 4E 3E 31 30 30 20 N..510 IF N>100
000180: 54 48 45 4E 20 34 39 30 0D 0A 35 32 30 20 49 46 THEN 490..520 IF
000190: 20 4E 3C 31 20 54 48 45 4E 20 34 39 30 0D 0A 35 N<1 THEN 490..5
0001A0: 33 30 20 49 46 20 4E 3C 3E 49 4E 54 28 4E 29 20 30 IF N<>INT(N)
0001B0: 54 48 45 4E 20 34 39 30 0D 0A 35 34 30 20 50 52 THEN 490..540 PR
0001C0: 49 4E 54 20 22 45 4E 54 45 52 20 50 49 4C 45 20 INT "ENTER PILE
0001D0: 53 49 5A 45 53 22 0D 0A 35 35 30 20 46 4F 52 20 SIZES"..550 FOR
0001E0: 49 3D 31 20 54 4F 20 4E 0D 0A 35 36 30 20 50 52 I=1 TO N..560 PR
0001F0: 49 4E 54 20 49 3B 0D 0A 35 37 30 20 49 4E 50 55 INT I;..570 INPU
Size : 512 (Real : 512)
000000: 31 35 33 30 20 4C 45 54 20 41 28 58 29 3D 41 28 1530 LET A(X)=A(
000010: 58 29 2D 59 0D 0A 31 35 34 30 20 47 4F 53 55 42 X)-Y..1540 GOSUB
000020: 20 31 35 37 30 0D 0A 31 35 35 30 20 49 46 20 5A 1570..1550 IF Z
000030: 3D 31 20 54 48 45 4E 20 38 30 30 0D 0A 31 35 36 =1 THEN 800..156
000040: 30 20 47 4F 54 4F 20 37 30 30 0D 0A 31 35 37 30 0 GOTO 700..1570
000050: 20 4C 45 54 20 5A 3D 30 0D 0A 31 35 38 30 20 46 LET Z=0..1580 F
000060: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 31 35 39 OR I=1 TO N..159
000070: 30 20 49 46 20 41 28 49 29 3D 30 20 54 48 45 4E 0 IF A(I)=0 THEN
000080: 20 31 36 31 30 0D 0A 31 36 30 30 20 52 45 54 55 1610..1600 RETU
000090: 52 4E 0D 0A 31 36 31 30 20 4E 45 58 54 20 49 0D RN..1610 NEXT I.
0000A0: 0A 31 36 32 30 20 4C 45 54 20 5A 3D 31 0D 0A 31 .1620 LET Z=1..1
0000B0: 36 33 30 20 52 45 54 55 52 4E 0D 0A 31 36 34 30 630 RETURN..1640
0000C0: 20 50 52 49 4E 54 20 22 64 6F 20 79 6F 75 20 77 PRINT "do you w
0000D0: 61 6E 74 20 74 6F 20 70 6C 61 79 20 61 6E 6F 74 ant to play anot
0000E0: 68 65 72 20 67 61 6D 65 22 3B 0D 0A 31 36 35 30 her game";..1650
0000F0: 20 49 4E 50 55 54 20 51 39 24 0D 0A 31 36 36 30 INPUT Q9$..1660
000100: 20 49 46 20 51 39 24 3D 22 59 45 53 22 20 54 48 IF Q9$="YES" TH
000110: 45 4E 20 31 37 32 30 0D 0A 31 36 37 30 20 49 46 EN 1720..1670 IF
000120: 20 51 39 24 3D 22 79 65 73 22 20 54 48 45 4E 20 Q9$="yes" THEN
000130: 31 37 32 30 0D 0A 31 36 38 30 20 49 46 20 51 39 1720..1680 IF Q9
000140: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 31 37 33 30 $="NO" THEN 1730
000150: 0D 0A 31 36 39 30 20 49 46 20 51 39 24 3D 22 6E ..1690 IF Q9$="n
000160: 6F 22 20 54 48 45 4E 20 31 37 33 30 0D 0A 31 37 o" THEN 1730..17
000170: 30 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 45 00 PRINT "PLEASE
000180: 2E 20 20 59 45 53 20 4F 52 20 4E 4F 2E 22 0D 0A . YES OR NO."..
000190: 31 37 31 30 20 47 4F 54 4F 20 31 36 35 30 20 0D 1710 GOTO 1650 .
0001A0: 0A 31 37 32 30 20 47 4F 54 4F 20 34 34 30 0D 0A .1720 GOTO 440..
0001B0: 31 37 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 1730 END........
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 20 41 28 49 29 0D 0A 35 38 30 20 49 46 20 41 T A(I)..580 IF A
000010: 28 49 29 3E 32 30 30 30 20 54 48 45 4E 20 35 36 (I)>2000 THEN 56
000020: 30 0D 0A 35 39 30 20 49 46 20 41 28 49 29 3C 31 0..590 IF A(I)<1
000030: 20 54 48 45 4E 20 35 36 30 0D 0A 36 30 30 20 49 THEN 560..600 I
000040: 46 20 41 28 49 29 3C 3E 49 4E 54 28 41 28 49 29 F A(I)<>INT(A(I)
000050: 29 20 54 48 45 4E 20 35 36 30 0D 0A 36 31 30 20 ) THEN 560..610
000060: 4E 45 58 54 20 49 0D 0A 36 32 30 20 50 52 49 4E NEXT I..620 PRIN
000070: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 T "DO YOU WANT T
000080: 4F 20 4D 4F 56 45 20 46 49 52 53 54 22 3B 0D 0A O MOVE FIRST";..
000090: 36 33 30 20 49 4E 50 55 54 20 51 39 24 0D 0A 36 630 INPUT Q9$..6
0000A0: 34 30 20 49 46 20 51 39 24 3D 22 59 45 53 22 20 40 IF Q9$="YES"
0000B0: 54 48 45 4E 20 31 34 35 30 0D 0A 36 35 30 20 49 THEN 1450..650 I
0000C0: 46 20 51 39 24 3D 22 79 65 73 22 20 54 48 45 4E F Q9$="yes" THEN
0000D0: 20 31 34 35 30 0D 0A 36 36 30 20 49 46 20 51 39 1450..660 IF Q9
0000E0: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 37 30 30 0D $="NO" THEN 700.
0000F0: 0A 36 37 30 20 49 46 20 51 39 24 3D 22 6E 6F 22 .670 IF Q9$="no"
000100: 20 54 48 45 4E 20 37 30 30 0D 0A 36 38 30 20 50 THEN 700..680 P
000110: 52 49 4E 54 20 22 50 4C 45 41 53 45 20 41 4E 53 RINT "PLEASE ANS
000120: 57 45 52 20 59 45 53 20 4F 52 20 4E 4F 2E 22 0D WER YES OR NO.".
000130: 0A 36 39 30 20 47 4F 54 4F 20 36 33 30 0D 0A 37 .690 GOTO 630..7
000140: 30 30 20 49 46 20 57 3D 31 20 54 48 45 4E 20 39 00 IF W=1 THEN 9
000150: 34 30 0D 0A 37 31 30 20 4C 45 54 20 43 3D 30 0D 40..710 LET C=0.
000160: 0A 37 32 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .720 FOR I=1 TO
000170: 4E 0D 0A 37 33 30 20 49 46 20 41 28 49 29 3D 30 N..730 IF A(I)=0
000180: 20 54 48 45 4E 20 37 37 30 0D 0A 37 34 30 20 4C THEN 770..740 L
000190: 45 54 20 43 3D 43 2B 31 0D 0A 37 35 30 20 49 46 ET C=C+1..750 IF
0001A0: 20 43 3D 33 20 54 48 45 4E 20 38 34 30 0D 0A 37 C=3 THEN 840..7
0001B0: 36 30 20 4C 45 54 20 44 28 43 29 3D 49 0D 0A 37 60 LET D(C)=I..7
0001C0: 37 30 20 4E 45 58 54 20 49 0D 0A 37 38 30 20 49 70 NEXT I..780 I
0001D0: 46 20 43 3D 32 20 54 48 45 4E 20 39 32 30 0D 0A F C=2 THEN 920..
0001E0: 37 39 30 20 49 46 20 41 28 44 28 31 29 29 3E 31 790 IF A(D(1))>1
0001F0: 20 54 48 45 4E 20 38 32 30 0D 0A 38 30 30 20 50 THEN 820..800 P
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 4E 55 4D 42 45 52 22 0D 0A 32 20 50 52 49 4E "NUMBER"..2 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A ERSEY"..3 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 PRINT:PRINT..4 P
000070: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 31 RINT "YOU HAVE 1
000080: 30 30 20 50 4F 49 4E 54 53 2E 20 20 42 59 20 47 00 POINTS. BY G
000090: 55 45 53 53 49 4E 47 20 4E 55 4D 42 45 52 53 20 UESSING NUMBERS
0000A0: 46 52 4F 4D 20 31 20 54 4F 20 35 2C 20 59 4F 55 FROM 1 TO 5, YOU
0000B0: 22 0D 0A 35 20 50 52 49 4E 54 20 22 43 41 4E 20 "..5 PRINT "CAN
0000C0: 47 41 49 4E 20 4F 52 20 4C 4F 53 45 20 50 4F 49 GAIN OR LOSE POI
0000D0: 4E 54 53 20 44 45 50 45 4E 44 49 4E 47 20 55 50 NTS DEPENDING UP
0000E0: 4F 4E 20 48 4F 57 20 43 4C 4F 53 45 20 59 4F 55 ON HOW CLOSE YOU
0000F0: 20 47 45 54 20 54 4F 22 0D 0A 36 20 50 52 49 4E GET TO"..6 PRIN
000100: 54 20 22 41 20 52 41 4E 44 4F 4D 20 4E 55 4D 42 T "A RANDOM NUMB
000110: 45 52 20 53 45 4C 45 43 54 45 44 20 42 59 20 54 ER SELECTED BY T
000120: 48 45 20 43 4F 4D 50 55 54 45 52 2E 22 3A 20 50 HE COMPUTER.": P
000130: 52 49 4E 54 0D 0A 37 20 50 52 49 4E 54 20 22 59 RINT..7 PRINT "Y
000140: 4F 55 20 4F 43 43 41 53 49 4F 4E 41 4C 4C 59 20 OU OCCASIONALLY
000150: 57 49 4C 4C 20 47 45 54 20 41 20 4A 41 43 4B 50 WILL GET A JACKP
000160: 4F 54 20 57 48 49 43 48 20 57 49 4C 4C 20 44 4F OT WHICH WILL DO
000170: 55 42 4C 45 28 21 29 22 0D 0A 38 20 50 52 49 4E UBLE(!)"..8 PRIN
000180: 54 20 22 59 4F 55 52 20 50 4F 49 4E 54 20 43 4F T "YOUR POINT CO
000190: 55 4E 54 2E 20 20 59 4F 55 20 57 49 4E 20 57 48 UNT. YOU WIN WH
0001A0: 45 4E 20 59 4F 55 20 47 45 54 20 35 30 30 20 50 EN YOU GET 500 P
0001B0: 4F 49 4E 54 53 2E 22 0D 0A 39 20 50 52 49 4E 54 OINTS."..9 PRINT
0001C0: 3A 20 50 3D 31 30 30 0D 0A 31 30 20 44 45 46 20 : P=100..10 DEF
0001D0: 46 4E 52 28 58 29 3D 49 4E 54 28 35 2A 52 4E 44 FNR(X)=INT(5*RND
0001E0: 28 31 29 2B 31 29 0D 0A 31 32 20 49 4E 50 55 54 (1)+1)..12 INPUT
0001F0: 20 22 47 55 45 53 53 20 41 20 4E 55 4D 42 45 52 "GUESS A NUMBER
Size : 512 (Real : 512)
000000: 30 20 54 48 45 4E 20 32 33 30 0D 0A 32 32 30 20 0 THEN 230..220
000010: 49 46 20 41 28 54 29 3D 31 20 54 48 45 4E 20 32 IF A(T)=1 THEN 2
000020: 33 30 0D 0A 32 32 35 20 47 4F 54 4F 20 32 35 30 30..225 GOTO 250
000030: 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 49 4C 4C ..230 PRINT "ILL
000040: 45 47 41 4C 20 4D 4F 56 45 2E 20 20 54 52 59 20 EGAL MOVE. TRY
000050: 41 47 41 49 4E 2E 2E 2E 22 0D 0A 32 34 30 20 47 AGAIN..."..240 G
000060: 4F 54 4F 20 31 30 30 0D 0A 32 34 35 20 52 45 4D OTO 100..245 REM
000070: 20 2A 2A 2A 20 55 50 44 41 54 45 20 42 4F 41 52 *** UPDATE BOAR
000080: 44 0D 0A 32 35 30 20 41 28 54 29 3D 31 0D 0A 32 D..250 A(T)=1..2
000090: 36 30 20 41 28 46 29 3D 30 0D 0A 32 37 30 20 41 60 A(F)=0..270 A
0000A0: 28 28 54 2B 46 29 2F 32 29 3D 30 0D 0A 32 39 30 ((T+F)/2)=0..290
0000B0: 20 4D 3D 4D 2B 31 0D 0A 33 31 30 20 52 45 4D 20 M=M+1..310 REM
0000C0: 2A 2A 2A 20 50 52 49 4E 54 20 42 4F 41 52 44 0D *** PRINT BOARD.
0000D0: 0A 33 34 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 .340 FOR J=1 TO
0000E0: 35 37 20 53 54 45 50 20 38 0D 0A 33 35 30 20 46 57 STEP 8..350 F
0000F0: 4F 52 20 49 3D 4A 20 54 4F 20 4A 2B 37 0D 0A 33 OR I=J TO J+7..3
000100: 36 30 20 50 52 49 4E 54 20 41 28 49 29 3B 0D 0A 60 PRINT A(I);..
000110: 33 37 30 20 4E 45 58 54 20 49 0D 0A 33 38 30 20 370 NEXT I..380
000120: 50 52 49 4E 54 0D 0A 33 39 30 20 4E 45 58 54 20 PRINT..390 NEXT
000130: 4A 0D 0A 34 30 30 20 50 52 49 4E 54 0D 0A 34 31 J..400 PRINT..41
000140: 30 20 47 4F 54 4F 20 31 30 30 0D 0A 34 39 30 20 0 GOTO 100..490
000150: 52 45 4D 20 2A 2A 2A 20 45 4E 44 20 47 41 4D 45 REM *** END GAME
000160: 20 53 55 4D 4D 41 52 59 0D 0A 35 30 30 20 53 3D SUMMARY..500 S=
000170: 30 0D 0A 35 31 30 20 46 4F 52 20 49 3D 31 20 54 0..510 FOR I=1 T
000180: 4F 20 36 34 0D 0A 35 32 30 20 53 3D 53 2B 41 28 O 64..520 S=S+A(
000190: 49 29 0D 0A 35 33 30 20 4E 45 58 54 20 49 0D 0A I)..530 NEXT I..
0001A0: 35 34 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 540 PRINT:PRINT
0001B0: 22 59 4F 55 20 4D 41 44 45 22 3B 4D 3B 22 4A 55 "YOU MADE";M;"JU
0001C0: 4D 50 53 20 41 4E 44 20 48 41 44 22 3B 53 3B 22 MPS AND HAD";S;"
0001D0: 50 49 45 43 45 53 22 0D 0A 35 35 30 20 50 52 49 PIECES"..550 PRI
0001E0: 4E 54 20 22 52 45 4D 41 49 4E 49 4E 47 20 4F 4E NT "REMAINING ON
0001F0: 20 54 48 45 20 42 4F 41 52 44 2E 22 0D 0A 35 36 THE BOARD."..56
Size : 512 (Real : 512)
000000: 20 46 52 4F 4D 20 31 20 54 4F 20 35 22 3B 47 0D FROM 1 TO 5";G.
000010: 0A 31 35 20 52 3D 46 4E 52 28 31 29 0D 0A 31 36 .15 R=FNR(1)..16
000020: 20 53 3D 46 4E 52 28 31 29 0D 0A 31 37 20 54 3D S=FNR(1)..17 T=
000030: 46 4E 52 28 31 29 0D 0A 31 38 20 55 3D 46 4E 52 FNR(1)..18 U=FNR
000040: 28 31 29 0D 0A 31 39 20 56 3D 46 4E 52 28 31 29 (1)..19 V=FNR(1)
000050: 0D 0A 32 30 20 49 46 20 47 3D 52 20 54 48 45 4E ..20 IF G=R THEN
000060: 20 33 30 0D 0A 32 31 20 49 46 20 47 3D 53 20 54 30..21 IF G=S T
000070: 48 45 4E 20 34 30 0D 0A 32 32 20 49 46 20 47 3D HEN 40..22 IF G=
000080: 54 20 54 48 45 4E 20 35 30 0D 0A 32 33 20 49 46 T THEN 50..23 IF
000090: 20 47 3D 55 20 54 48 45 4E 20 36 30 0D 0A 32 34 G=U THEN 60..24
0000A0: 20 49 46 20 47 3D 56 20 54 48 45 4E 20 37 30 0D IF G=V THEN 70.
0000B0: 0A 32 35 20 49 46 20 47 3E 35 20 54 48 45 4E 20 .25 IF G>5 THEN
0000C0: 31 32 0D 0A 33 30 20 50 3D 50 2D 35 0D 0A 33 35 12..30 P=P-5..35
0000D0: 20 47 4F 54 4F 20 38 30 0D 0A 34 30 20 50 3D 50 GOTO 80..40 P=P
0000E0: 2B 35 0D 0A 34 35 20 47 4F 54 4F 20 38 30 0D 0A +5..45 GOTO 80..
0000F0: 35 30 20 50 3D 50 2B 50 0D 0A 35 33 20 50 52 49 50 P=P+P..53 PRI
000100: 4E 54 20 22 59 4F 55 20 48 49 54 20 54 48 45 20 NT "YOU HIT THE
000110: 4A 41 43 4B 50 4F 54 21 21 21 22 0D 0A 35 35 20 JACKPOT!!!"..55
000120: 47 4F 54 4F 20 38 30 0D 0A 36 30 20 50 3D 50 2B GOTO 80..60 P=P+
000130: 31 0D 0A 36 35 20 47 4F 54 4F 20 38 30 0D 0A 37 1..65 GOTO 80..7
000140: 30 20 50 3D 50 2D 28 50 2A 2E 35 29 0D 0A 38 30 0 P=P-(P*.5)..80
000150: 20 49 46 20 50 3E 35 30 30 20 54 48 45 4E 20 39 IF P>500 THEN 9
000160: 30 0D 0A 38 32 20 50 52 49 4E 54 20 22 59 4F 55 0..82 PRINT "YOU
000170: 20 48 41 56 45 22 3B 50 3B 22 50 4F 49 4E 54 53 HAVE";P;"POINTS
000180: 2E 22 3A 50 52 49 4E 54 0D 0A 38 35 20 47 4F 54 .":PRINT..85 GOT
000190: 4F 20 31 32 0D 0A 39 30 20 50 52 49 4E 54 20 22 O 12..90 PRINT "
0001A0: 21 21 21 21 59 4F 55 20 57 49 4E 21 21 21 21 20 !!!!YOU WIN!!!!
0001B0: 57 49 54 48 20 22 3B 50 3B 22 50 4F 49 4E 54 53 WITH ";P;"POINTS
0001C0: 2E 22 0D 0A 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 ."..99 END......
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 20 50 52 49 4E 54 0D 0A 35 36 32 20 49 4E 50 0 PRINT..562 INP
000010: 55 54 20 22 54 52 59 20 41 47 41 49 4E 22 3B 41 UT "TRY AGAIN";A
000020: 24 0D 0A 35 37 30 20 49 46 20 41 24 3D 22 59 45 $..570 IF A$="YE
000030: 53 22 20 54 48 45 4E 20 37 30 0D 0A 35 37 35 20 S" THEN 70..575
000040: 49 46 20 41 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF A$="NO" THEN
000050: 36 30 30 0D 0A 35 38 30 20 50 52 49 4E 54 20 22 600..580 PRINT "
000060: 50 4C 45 41 53 45 20 41 4E 53 57 45 52 20 27 59 PLEASE ANSWER 'Y
000070: 45 53 27 20 4F 52 20 27 4E 4F 27 2E 22 0D 0A 35 ES' OR 'NO'."..5
000080: 39 30 20 47 4F 54 4F 20 35 36 32 0D 0A 36 30 30 90 GOTO 562..600
000090: 20 50 52 49 4E 54 0D 0A 36 31 30 20 50 52 49 4E PRINT..610 PRIN
0000A0: 54 20 22 4F 2E 4B 2E 20 20 48 4F 50 45 20 59 4F T "O.K. HOPE YO
0000B0: 55 20 48 41 44 20 46 55 4E 21 21 22 0D 0A 39 39 U HAD FUN!!"..99
0000C0: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
000010: 22 4F 4E 45 20 43 48 45 43 4B 22 0D 0A 34 20 50 "ONE CHECK"..4 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 W JERSEY"..6 PRI
000060: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
000070: 0D 0A 38 20 44 49 4D 20 41 28 36 34 29 0D 0A 31 ..8 DIM A(64)..1
000080: 30 20 50 52 49 4E 54 20 22 53 4F 4C 49 54 41 49 0 PRINT "SOLITAI
000090: 52 45 20 43 48 45 43 4B 45 52 20 50 55 5A 5A 4C RE CHECKER PUZZL
0000A0: 45 20 42 59 20 44 41 56 49 44 20 41 48 4C 22 0D E BY DAVID AHL".
0000B0: 0A 31 35 20 50 52 49 4E 54 0D 0A 32 30 20 50 52 .15 PRINT..20 PR
0000C0: 49 4E 54 20 22 34 38 20 43 48 45 43 4B 45 52 53 INT "48 CHECKERS
0000D0: 20 41 52 45 20 50 4C 41 43 45 44 20 4F 4E 20 54 ARE PLACED ON T
0000E0: 48 45 20 32 20 4F 55 54 53 49 44 45 20 53 50 41 HE 2 OUTSIDE SPA
0000F0: 43 45 53 20 4F 46 20 41 22 0D 0A 32 35 20 50 52 CES OF A"..25 PR
000100: 49 4E 54 20 22 53 54 41 4E 44 41 52 44 20 36 34 INT "STANDARD 64
000110: 2D 53 51 55 41 52 45 20 43 48 45 43 4B 45 52 42 -SQUARE CHECKERB
000120: 4F 41 52 44 2E 20 20 54 48 45 20 4F 42 4A 45 43 OARD. THE OBJEC
000130: 54 20 49 53 20 54 4F 22 0D 0A 33 30 20 50 52 49 T IS TO"..30 PRI
000140: 4E 54 20 22 52 45 4D 4F 56 45 20 41 53 20 4D 41 NT "REMOVE AS MA
000150: 4E 59 20 43 48 45 43 4B 45 52 53 20 41 53 20 50 NY CHECKERS AS P
000160: 4F 53 53 49 42 4C 45 20 42 59 20 44 49 41 47 4F OSSIBLE BY DIAGO
000170: 4E 41 4C 20 4A 55 4D 50 53 22 0D 0A 33 35 20 50 NAL JUMPS"..35 P
000180: 52 49 4E 54 20 22 28 41 53 20 49 4E 20 53 54 41 RINT "(AS IN STA
000190: 4E 44 41 52 44 20 43 48 45 43 4B 45 52 53 29 2E NDARD CHECKERS).
0001A0: 20 20 55 53 45 20 54 48 45 20 4E 55 4D 42 45 52 USE THE NUMBER
0001B0: 45 44 20 42 4F 41 52 44 20 54 4F 22 0D 0A 34 30 ED BOARD TO"..40
0001C0: 20 50 52 49 4E 54 20 22 49 4E 44 49 43 41 54 45 PRINT "INDICATE
0001D0: 20 54 48 45 20 53 51 55 41 52 45 20 59 4F 55 20 THE SQUARE YOU
0001E0: 57 49 53 48 20 54 4F 20 4A 55 4D 50 20 46 52 4F WISH TO JUMP FRO
0001F0: 4D 20 41 4E 44 20 54 4F 2E 20 20 4F 4E 22 0D 0A M AND TO. ON"..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 34 35 20 50 52 49 4E 54 20 22 54 48 45 20 42 4F 45 PRINT "THE BO
000010: 41 52 44 20 50 52 49 4E 54 45 44 20 4F 55 54 20 ARD PRINTED OUT
000020: 4F 4E 20 45 41 43 48 20 54 55 52 4E 20 27 31 27 ON EACH TURN '1'
000030: 20 49 4E 44 49 43 41 54 45 53 20 41 22 0D 0A 35 INDICATES A"..5
000040: 30 20 50 52 49 4E 54 20 22 43 48 45 43 4B 45 52 0 PRINT "CHECKER
000050: 20 41 4E 44 20 27 30 27 20 41 4E 20 45 4D 50 54 AND '0' AN EMPT
000060: 59 20 53 51 55 41 52 45 2E 20 20 57 48 45 4E 20 Y SQUARE. WHEN
000070: 59 4F 55 20 48 41 56 45 20 4E 4F 22 0D 0A 35 35 YOU HAVE NO"..55
000080: 20 50 52 49 4E 54 20 22 50 4F 53 53 49 42 4C 45 PRINT "POSSIBLE
000090: 20 4A 55 4D 50 53 20 52 45 4D 41 49 4E 49 4E 47 JUMPS REMAINING
0000A0: 2C 20 49 4E 50 55 54 20 41 20 27 30 27 20 49 4E , INPUT A '0' IN
0000B0: 20 52 45 53 50 4F 4E 53 45 20 54 4F 22 0D 0A 36 RESPONSE TO"..6
0000C0: 30 20 50 52 49 4E 54 20 22 51 55 45 53 54 49 4F 0 PRINT "QUESTIO
0000D0: 4E 20 27 4A 55 4D 50 20 46 52 4F 4D 20 3F 27 22 N 'JUMP FROM ?'"
0000E0: 0D 0A 36 32 20 50 52 49 4E 54 0D 0A 36 33 20 50 ..62 PRINT..63 P
0000F0: 52 49 4E 54 20 22 48 45 52 45 20 49 53 20 54 48 RINT "HERE IS TH
000100: 45 20 4E 55 4D 45 52 49 43 41 4C 20 42 4F 41 52 E NUMERICAL BOAR
000110: 44 3A 22 0D 0A 36 36 20 50 52 49 4E 54 0D 0A 37 D:"..66 PRINT..7
000120: 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 35 37 20 0 FOR J=1 TO 57
000130: 53 54 45 50 20 38 0D 0A 37 34 20 50 52 49 4E 54 STEP 8..74 PRINT
000140: 20 4A 3B 54 41 42 28 34 29 3B 4A 2B 31 3B 54 41 J;TAB(4);J+1;TA
000150: 42 28 38 29 3B 4A 2B 32 3B 54 41 42 28 31 32 29 B(8);J+2;TAB(12)
000160: 3B 4A 2B 33 3B 54 41 42 28 31 36 29 3B 4A 2B 34 ;J+3;TAB(16);J+4
000170: 3B 54 41 42 28 32 30 29 3B 4A 2B 35 3B 0D 0A 37 ;TAB(20);J+5;..7
000180: 35 20 50 52 49 4E 54 20 54 41 42 28 32 34 29 3B 5 PRINT TAB(24);
000190: 4A 2B 36 3B 54 41 42 28 32 38 29 3B 4A 2B 37 0D J+6;TAB(28);J+7.
0001A0: 0A 37 36 20 4E 45 58 54 20 4A 0D 0A 37 37 20 50 .76 NEXT J..77 P
0001B0: 52 49 4E 54 0D 0A 37 38 20 50 52 49 4E 54 20 22 RINT..78 PRINT "
0001C0: 41 4E 44 20 48 45 52 45 20 49 53 20 54 48 45 20 AND HERE IS THE
0001D0: 4F 50 45 4E 49 4E 47 20 50 4F 53 49 54 49 4F 4E OPENING POSITION
0001E0: 20 4F 46 20 54 48 45 20 43 48 45 43 4B 45 52 53 OF THE CHECKERS
0001F0: 2E 22 0D 0A 37 39 20 50 52 49 4E 54 0D 0A 38 30 ."..79 PRINT..80
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 4F 52 42 49 54 22 0D 0A 34 20 50 52 49 4E 54 "ORBIT"..4 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 50 RSEY"..6 PRINT:P
000060: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 50 RINT:PRINT..10 P
000070: 52 49 4E 54 20 22 53 4F 4D 45 57 48 45 52 45 20 RINT "SOMEWHERE
000080: 41 42 4F 56 45 20 59 4F 55 52 20 50 4C 41 4E 45 ABOVE YOUR PLANE
000090: 54 20 49 53 20 41 20 52 4F 4D 55 4C 41 4E 20 53 T IS A ROMULAN S
0000A0: 48 49 50 2E 22 0D 0A 31 35 20 50 52 49 4E 54 0D HIP."..15 PRINT.
0000B0: 0A 32 30 20 50 52 49 4E 54 20 22 54 48 45 20 53 .20 PRINT "THE S
0000C0: 48 49 50 20 49 53 20 49 4E 20 41 20 43 4F 4E 53 HIP IS IN A CONS
0000D0: 54 41 4E 54 20 50 4F 4C 41 52 20 4F 52 42 49 54 TANT POLAR ORBIT
0000E0: 2E 20 20 49 54 53 22 0D 0A 32 35 20 50 52 49 4E . ITS"..25 PRIN
0000F0: 54 20 22 44 49 53 54 41 4E 43 45 20 46 52 4F 4D T "DISTANCE FROM
000100: 20 54 48 45 20 43 45 4E 54 45 52 20 4F 46 20 59 THE CENTER OF Y
000110: 4F 55 52 20 50 4C 41 4E 45 54 20 49 53 20 46 52 OUR PLANET IS FR
000120: 4F 4D 22 0D 0A 33 30 20 50 52 49 4E 54 20 22 31 OM"..30 PRINT "1
000130: 30 2C 30 30 30 20 54 4F 20 33 30 2C 30 30 30 20 0,000 TO 30,000
000140: 4D 49 4C 45 53 20 41 4E 44 20 41 54 20 49 54 53 MILES AND AT ITS
000150: 20 50 52 45 53 45 4E 54 20 56 45 4C 4F 43 49 54 PRESENT VELOCIT
000160: 59 20 43 41 4E 22 0D 0A 33 31 20 50 52 49 4E 54 Y CAN"..31 PRINT
000170: 20 22 43 49 52 43 4C 45 20 59 4F 55 52 20 50 4C "CIRCLE YOUR PL
000180: 41 4E 45 54 20 4F 4E 43 45 20 45 56 45 52 59 20 ANET ONCE EVERY
000190: 31 32 20 54 4F 20 33 36 20 48 4F 55 52 53 2E 22 12 TO 36 HOURS."
0001A0: 0D 0A 33 35 20 50 52 49 4E 54 0D 0A 34 30 20 50 ..35 PRINT..40 P
0001B0: 52 49 4E 54 20 22 55 4E 46 4F 52 54 55 4E 41 54 RINT "UNFORTUNAT
0001C0: 45 4C 59 2C 20 54 48 45 59 20 41 52 45 20 55 53 ELY, THEY ARE US
0001D0: 49 4E 47 20 41 20 43 4C 4F 41 4B 49 4E 47 20 44 ING A CLOAKING D
0001E0: 45 56 49 43 45 20 53 4F 22 0D 0A 34 35 20 50 52 EVICE SO"..45 PR
0001F0: 49 4E 54 20 22 59 4F 55 20 41 52 45 20 55 4E 41 INT "YOU ARE UNA
Size : 512 (Real : 512)
000000: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 36 34 0D 0A FOR J=1 TO 64..
000010: 38 32 20 41 28 4A 29 3D 31 0D 0A 38 34 20 4E 45 82 A(J)=1..84 NE
000020: 58 54 20 4A 0D 0A 38 36 20 46 4F 52 20 4A 3D 31 XT J..86 FOR J=1
000030: 39 20 54 4F 20 34 33 20 53 54 45 50 20 38 0D 0A 9 TO 43 STEP 8..
000040: 38 38 20 46 4F 52 20 49 3D 4A 20 54 4F 20 4A 2B 88 FOR I=J TO J+
000050: 33 0D 0A 39 30 20 41 28 49 29 3D 30 0D 0A 39 32 3..90 A(I)=0..92
000060: 20 4E 45 58 54 20 49 0D 0A 39 34 20 4E 45 58 54 NEXT I..94 NEXT
000070: 20 4A 0D 0A 39 36 20 4D 3D 30 0D 0A 39 38 20 47 J..96 M=0..98 G
000080: 4F 54 4F 20 33 34 30 0D 0A 31 30 30 20 49 4E 50 OTO 340..100 INP
000090: 55 54 20 22 4A 55 4D 50 20 46 52 4F 4D 22 3B 46 UT "JUMP FROM";F
0000A0: 0D 0A 31 30 35 20 49 46 20 46 3D 30 20 54 48 45 ..105 IF F=0 THE
0000B0: 4E 20 35 30 30 0D 0A 31 31 30 20 49 4E 50 55 54 N 500..110 INPUT
0000C0: 20 22 54 4F 22 3B 54 0D 0A 31 31 32 20 50 52 49 "TO";T..112 PRI
0000D0: 4E 54 0D 0A 31 31 38 20 52 45 4D 20 2A 2A 2A 20 NT..118 REM ***
0000E0: 43 48 45 43 4B 20 4C 45 47 41 4C 49 54 59 20 4F CHECK LEGALITY O
0000F0: 46 20 4D 4F 56 45 0D 0A 31 32 30 20 46 31 3D 49 F MOVE..120 F1=I
000100: 4E 54 28 28 46 2D 31 29 2F 38 29 0D 0A 31 33 30 NT((F-1)/8)..130
000110: 20 46 32 3D 46 2D 38 2A 46 31 0D 0A 31 34 30 20 F2=F-8*F1..140
000120: 54 31 3D 49 4E 54 28 28 54 2D 31 29 2F 38 29 0D T1=INT((T-1)/8).
000130: 0A 31 35 30 20 54 32 3D 54 2D 38 2A 54 31 0D 0A .150 T2=T-8*T1..
000140: 31 36 30 20 49 46 20 46 31 3E 37 20 54 48 45 4E 160 IF F1>7 THEN
000150: 20 32 33 30 0D 0A 31 37 30 20 49 46 20 54 31 3E 230..170 IF T1>
000160: 37 20 54 48 45 4E 20 32 33 30 0D 0A 31 38 30 20 7 THEN 230..180
000170: 49 46 20 46 32 3E 38 20 54 48 45 4E 20 32 33 30 IF F2>8 THEN 230
000180: 0D 0A 31 39 30 20 49 46 20 54 32 3E 38 20 54 48 ..190 IF T2>8 TH
000190: 45 4E 20 32 33 30 0D 0A 32 30 30 20 49 46 20 41 EN 230..200 IF A
0001A0: 42 53 28 46 31 2D 54 31 29 3C 3E 32 20 54 48 45 BS(F1-T1)<>2 THE
0001B0: 4E 20 32 33 30 0D 0A 32 31 30 20 49 46 20 41 42 N 230..210 IF AB
0001C0: 53 28 46 32 2D 54 32 29 3C 3E 32 20 54 48 45 4E S(F2-T2)<>2 THEN
0001D0: 20 32 33 30 0D 0A 32 31 32 20 49 46 20 41 28 28 230..212 IF A((
0001E0: 54 2B 46 29 2F 32 29 3D 30 20 54 48 45 4E 20 32 T+F)/2)=0 THEN 2
0001F0: 33 30 0D 0A 32 31 35 20 49 46 20 41 28 46 29 3D 30..215 IF A(F)=
Size : 512 (Real : 512)
000000: 42 4C 45 20 54 4F 20 53 45 45 20 54 48 45 4D 2C BLE TO SEE THEM,
000010: 20 42 55 54 20 57 49 54 48 20 41 20 53 50 45 43 BUT WITH A SPEC
000020: 49 41 4C 22 0D 0A 35 30 20 50 52 49 4E 54 20 22 IAL"..50 PRINT "
000030: 49 4E 53 54 52 55 4D 45 4E 54 20 59 4F 55 20 43 INSTRUMENT YOU C
000040: 41 4E 20 54 45 4C 4C 20 48 4F 57 20 4E 45 41 52 AN TELL HOW NEAR
000050: 20 54 48 45 49 52 20 53 48 49 50 20 59 4F 55 52 THEIR SHIP YOUR
000060: 22 0D 0A 35 35 20 50 52 49 4E 54 20 22 50 48 4F "..55 PRINT "PHO
000070: 54 4F 4E 20 42 4F 4D 42 20 45 58 50 4C 4F 44 45 TON BOMB EXPLODE
000080: 44 2E 20 20 59 4F 55 20 48 41 56 45 20 53 45 56 D. YOU HAVE SEV
000090: 45 4E 20 48 4F 55 52 53 20 55 4E 54 49 4C 20 54 EN HOURS UNTIL T
0000A0: 48 45 59 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 HEY"..60 PRINT "
0000B0: 48 41 56 45 20 42 55 49 4C 54 20 55 50 20 53 55 HAVE BUILT UP SU
0000C0: 46 46 49 43 49 45 4E 54 20 50 4F 57 45 52 20 49 FFICIENT POWER I
0000D0: 4E 20 4F 52 44 45 52 20 54 4F 20 45 53 43 41 50 N ORDER TO ESCAP
0000E0: 45 22 0D 0A 36 35 20 50 52 49 4E 54 20 22 59 4F E"..65 PRINT "YO
0000F0: 55 52 20 50 4C 41 4E 45 54 27 53 20 47 52 41 56 UR PLANET'S GRAV
000100: 49 54 59 2E 22 0D 0A 37 30 20 50 52 49 4E 54 0D ITY."..70 PRINT.
000110: 0A 37 35 20 50 52 49 4E 54 20 22 59 4F 55 52 20 .75 PRINT "YOUR
000120: 50 4C 41 4E 45 54 20 48 41 53 20 45 4E 4F 55 47 PLANET HAS ENOUG
000130: 48 20 50 4F 57 45 52 20 54 4F 20 46 49 52 45 20 H POWER TO FIRE
000140: 4F 4E 45 20 42 4F 4D 42 20 41 4E 20 48 4F 55 52 ONE BOMB AN HOUR
000150: 2E 22 0D 0A 38 30 20 50 52 49 4E 54 0D 0A 38 35 ."..80 PRINT..85
000160: 20 50 52 49 4E 54 20 22 41 54 20 54 48 45 20 42 PRINT "AT THE B
000170: 45 47 49 4E 4E 49 4E 47 20 4F 46 20 45 41 43 48 EGINNING OF EACH
000180: 20 48 4F 55 52 20 59 4F 55 20 57 49 4C 4C 20 42 HOUR YOU WILL B
000190: 45 20 41 53 4B 45 44 20 54 4F 20 47 49 56 45 20 E ASKED TO GIVE
0001A0: 41 4E 22 0D 0A 39 30 20 50 52 49 4E 54 20 22 41 AN"..90 PRINT "A
0001B0: 4E 47 4C 45 20 28 42 45 54 57 45 45 4E 20 30 20 NGLE (BETWEEN 0
0001C0: 41 4E 44 20 33 36 30 29 20 41 4E 44 20 41 20 44 AND 360) AND A D
0001D0: 49 53 54 41 4E 43 45 20 49 4E 20 55 4E 49 54 53 ISTANCE IN UNITS
0001E0: 20 4F 46 22 0D 0A 39 35 20 50 52 49 4E 54 20 22 OF"..95 PRINT "
0001F0: 31 30 30 20 4D 49 4C 45 53 20 28 42 45 54 57 45 100 MILES (BETWE
Size : 512 (Real : 512)
000000: 20 53 45 4E 44 22 0D 0A 33 33 35 20 50 52 49 4E SEND"..335 PRIN
000010: 54 20 22 59 4F 55 52 20 50 48 4F 54 4F 4E 20 42 T "YOUR PHOTON B
000020: 4F 4D 42 22 3B 0D 0A 33 34 30 20 49 4E 50 55 54 OMB";..340 INPUT
000030: 20 41 31 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 A1..350 PRINT "
000040: 48 4F 57 20 46 41 52 20 4F 55 54 20 44 4F 20 59 HOW FAR OUT DO Y
000050: 4F 55 20 57 49 53 48 20 54 4F 20 44 45 54 4F 4E OU WISH TO DETON
000060: 41 54 45 20 49 54 22 3B 0D 0A 33 36 30 20 49 4E ATE IT";..360 IN
000070: 50 55 54 20 44 31 0D 0A 33 36 35 20 50 52 49 4E PUT D1..365 PRIN
000080: 54 0D 0A 33 36 36 20 50 52 49 4E 54 0D 0A 33 37 T..366 PRINT..37
000090: 30 20 41 3D 41 2B 52 0D 0A 33 38 30 20 49 46 20 0 A=A+R..380 IF
0000A0: 41 3C 33 36 30 20 54 48 45 4E 20 34 30 30 0D 0A A<360 THEN 400..
0000B0: 33 39 30 20 41 3D 41 2D 33 36 30 0D 0A 34 30 30 390 A=A-360..400
0000C0: 20 54 3D 41 42 53 28 41 2D 41 31 29 0D 0A 34 31 T=ABS(A-A1)..41
0000D0: 30 20 49 46 20 54 3C 31 38 30 20 54 48 45 4E 20 0 IF T<180 THEN
0000E0: 34 33 30 0D 0A 34 32 30 20 54 3D 33 36 30 2D 54 430..420 T=360-T
0000F0: 0D 0A 34 33 30 20 43 3D 53 51 52 28 44 2A 44 2B ..430 C=SQR(D*D+
000100: 44 31 2A 44 31 2D 32 2A 44 2A 44 31 2A 43 4F 53 D1*D1-2*D*D1*COS
000110: 28 54 2A 33 2E 31 34 31 35 39 2F 31 38 30 29 29 (T*3.14159/180))
000120: 0D 0A 34 34 30 20 50 52 49 4E 54 20 22 59 4F 55 ..440 PRINT "YOU
000130: 52 20 50 48 4F 54 4F 4E 20 42 4F 4D 42 20 45 58 R PHOTON BOMB EX
000140: 50 4C 4F 44 45 44 22 3B 43 3B 22 2A 31 30 5E 32 PLODED";C;"*10^2
000150: 20 4D 49 4C 45 53 20 46 52 4F 4D 20 54 48 45 22 MILES FROM THE"
000160: 0D 0A 34 34 35 20 50 52 49 4E 54 20 22 52 4F 4D ..445 PRINT "ROM
000170: 55 4C 41 4E 20 53 48 49 50 2E 22 0D 0A 34 35 30 ULAN SHIP."..450
000180: 20 49 46 20 43 3C 3D 35 30 20 54 48 45 4E 20 34 IF C<=50 THEN 4
000190: 37 30 0D 0A 34 36 30 20 47 4F 54 4F 20 33 31 30 70..460 GOTO 310
0001A0: 0D 0A 34 37 30 20 50 52 49 4E 54 20 22 59 4F 55 ..470 PRINT "YOU
0001B0: 20 48 41 56 45 20 53 55 43 43 45 53 46 55 4C 4C HAVE SUCCESFULL
0001C0: 59 20 43 4F 4D 50 4C 45 54 45 44 20 59 4F 55 52 Y COMPLETED YOUR
0001D0: 20 4D 49 53 53 49 4F 4E 2E 22 0D 0A 34 38 30 20 MISSION."..480
0001E0: 47 4F 54 4F 20 35 30 30 0D 0A 34 39 30 20 50 52 GOTO 500..490 PR
0001F0: 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 41 4C INT "YOU HAVE AL
Size : 512 (Real : 512)
000000: 45 4E 20 31 30 30 20 41 4E 44 20 33 30 30 29 2C EN 100 AND 300),
000010: 20 41 46 54 45 52 20 57 48 49 43 48 20 59 4F 55 AFTER WHICH YOU
000020: 52 20 42 4F 4D 42 27 53 22 0D 0A 31 30 30 20 50 R BOMB'S"..100 P
000030: 52 49 4E 54 20 22 44 49 53 54 41 4E 43 45 20 46 RINT "DISTANCE F
000040: 52 4F 4D 20 54 48 45 20 45 4E 45 4D 59 20 53 48 ROM THE ENEMY SH
000050: 49 50 20 57 49 4C 4C 20 42 45 20 47 49 56 45 4E IP WILL BE GIVEN
000060: 2E 22 0D 0A 31 30 35 20 50 52 49 4E 54 0D 0A 31 ."..105 PRINT..1
000070: 31 30 20 50 52 49 4E 54 20 22 41 4E 20 45 58 50 10 PRINT "AN EXP
000080: 4C 4F 53 49 4F 4E 20 57 49 54 48 49 4E 20 35 2C LOSION WITHIN 5,
000090: 30 30 30 20 4D 49 4C 45 53 20 4F 46 20 54 48 45 000 MILES OF THE
0000A0: 20 52 4F 4D 55 4C 41 4E 20 53 48 49 50 22 0D 0A ROMULAN SHIP"..
0000B0: 31 31 31 20 50 52 49 4E 54 20 22 57 49 4C 4C 20 111 PRINT "WILL
0000C0: 44 45 53 54 52 4F 59 20 49 54 2E 22 0D 0A 31 31 DESTROY IT."..11
0000D0: 34 20 50 52 49 4E 54 0D 0A 31 31 35 20 50 52 49 4 PRINT..115 PRI
0000E0: 4E 54 20 22 42 45 4C 4F 57 20 49 53 20 41 20 44 NT "BELOW IS A D
0000F0: 49 41 47 52 41 4D 20 54 4F 20 48 45 4C 50 20 59 IAGRAM TO HELP Y
000100: 4F 55 20 56 49 53 55 41 4C 49 5A 45 20 59 4F 55 OU VISUALIZE YOU
000110: 52 20 50 4C 49 47 48 54 2E 22 0D 0A 31 31 36 20 R PLIGHT."..116
000120: 50 52 49 4E 54 0D 0A 31 31 37 20 50 52 49 4E 54 PRINT..117 PRINT
000130: 0D 0A 31 36 38 20 50 52 49 4E 54 20 22 20 20 20 ..168 PRINT "
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 39 30 22 0D 0A 31 37 30 20 90"..170
000160: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
000170: 20 20 20 20 20 20 20 20 20 20 20 30 30 30 30 30 00000
000180: 30 30 30 30 30 30 30 30 22 0D 0A 31 37 31 20 50 00000000"..171 P
000190: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 RINT "
0001A0: 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 30 000000000
0001B0: 30 30 30 30 30 30 30 30 30 30 22 0D 0A 31 37 32 0000000000"..172
0001C0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
0001D0: 20 20 20 20 20 20 20 30 30 30 30 30 30 20 20 20 000000
0001E0: 20 20 20 20 20 20 20 20 30 30 30 30 30 30 22 0D 000000".
0001F0: 0A 31 37 33 20 50 52 49 4E 54 20 22 20 20 20 20 .173 PRINT "
Size : 512 (Real : 512)
000000: 4C 4F 57 45 44 20 54 48 45 20 52 4F 4D 55 4C 41 LOWED THE ROMULA
000010: 4E 53 20 54 4F 20 45 53 43 41 50 45 2E 22 0D 0A NS TO ESCAPE."..
000020: 35 30 30 20 50 52 49 4E 54 20 22 41 4E 4F 54 48 500 PRINT "ANOTH
000030: 45 52 20 52 4F 4D 55 4C 41 4E 20 53 48 49 50 20 ER ROMULAN SHIP
000040: 48 41 53 20 47 4F 4E 45 20 49 4E 54 4F 20 4F 52 HAS GONE INTO OR
000050: 42 49 54 2E 22 0D 0A 35 31 30 20 50 52 49 4E 54 BIT."..510 PRINT
000060: 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F "DO YOU WISH TO
000070: 20 54 52 59 20 54 4F 20 44 45 53 54 52 4F 59 20 TRY TO DESTROY
000080: 49 54 22 3B 0D 0A 35 32 30 20 49 4E 50 55 54 20 IT";..520 INPUT
000090: 43 24 0D 0A 35 33 30 20 49 46 20 43 24 3D 22 59 C$..530 IF C$="Y
0000A0: 45 53 22 20 54 48 45 4E 20 32 37 30 0D 0A 35 34 ES" THEN 270..54
0000B0: 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 20 42 59 0 PRINT "GOOD BY
0000C0: 45 2E 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E."..999 END....
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 30 30 30 30 30 20 20 00000
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0
000020: 30 30 30 30 22 0D 0A 31 37 34 20 50 52 49 4E 54 0000"..174 PRINT
000030: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 30 30 " 00
000040: 30 30 30 20 20 20 20 58 58 58 58 58 58 58 58 58 000 XXXXXXXXX
000050: 58 58 20 20 20 20 30 30 30 30 30 22 0D 0A 31 37 XX 00000"..17
000060: 35 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 5 PRINT "
000070: 20 20 20 20 30 30 30 30 30 20 20 20 20 58 58 58 00000 XXX
000080: 58 58 58 58 58 58 58 58 58 58 20 20 20 20 30 30 XXXXXXXXXX 00
000090: 30 30 30 22 0D 0A 31 37 36 20 50 52 49 4E 54 20 000"..176 PRINT
0000A0: 22 20 20 20 20 20 20 20 20 20 20 30 30 30 30 20 " 0000
0000B0: 20 20 20 20 58 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXXX
0000C0: 58 58 58 20 20 20 20 20 30 30 30 30 22 0D 0A 31 XXX 0000"..1
0000D0: 37 37 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 77 PRINT "
0000E0: 20 20 20 30 30 30 30 20 20 20 20 20 58 58 58 58 0000 XXXX
0000F0: 58 58 58 58 58 58 58 58 58 58 58 58 58 20 20 20 XXXXXXXXXXXXX
000100: 20 20 30 30 30 30 22 0D 0A 31 37 38 20 50 52 49 0000"..178 PRI
000110: 4E 54 20 22 20 20 20 20 20 20 20 20 30 30 30 30 NT " 0000
000120: 20 20 20 20 20 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXX
000130: 58 58 58 58 58 58 58 58 20 20 20 20 20 30 30 30 XXXXXXXX 000
000140: 30 22 0D 0A 31 37 39 20 50 52 49 4E 54 20 22 31 0"..179 PRINT "1
000150: 38 30 3C 3D 3D 20 30 30 30 30 30 20 20 20 20 20 80<== 00000
000160: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXXXXXXX
000170: 58 58 58 20 20 20 20 20 30 30 30 30 30 20 3D 3D XXX 00000 ==
000180: 3E 30 22 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 >0"..180 PRINT "
000190: 20 20 20 20 20 20 20 20 30 30 30 30 20 20 20 20 0000
0001A0: 20 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 XXXXXXXXXXXXXXX
0001B0: 58 58 58 58 20 20 20 20 20 30 30 30 30 22 0D 0A XXXX 0000"..
0001C0: 31 38 31 20 50 52 49 4E 54 20 22 20 20 20 20 20 181 PRINT "
0001D0: 20 20 20 20 30 30 30 30 20 20 20 20 20 58 58 58 0000 XXX
0001E0: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 20 20 XXXXXXXXXXXXXX
0001F0: 20 20 20 30 30 30 30 22 0D 0A 31 38 32 20 50 52 0000"..182 PR
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
000010: 22 50 49 5A 5A 41 22 0D 0A 31 30 20 50 52 49 4E "PIZZA"..10 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 31 35 20 50 52 49 4E 54 ERSEY"..15 PRINT
000060: 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A : PRINT: PRINT..
000070: 32 30 20 44 49 4D 20 53 24 28 31 36 29 2C 4D 24 20 DIM S$(16),M$
000080: 28 34 29 0D 0A 33 30 20 50 52 49 4E 54 20 22 50 (4)..30 PRINT "P
000090: 49 5A 5A 41 20 44 45 4C 49 56 45 52 59 20 47 41 IZZA DELIVERY GA
0000A0: 4D 45 22 3A 20 50 52 49 4E 54 0D 0A 35 30 20 49 ME": PRINT..50 I
0000B0: 4E 50 55 54 20 22 57 48 41 54 20 49 53 20 59 4F NPUT "WHAT IS YO
0000C0: 55 52 20 46 49 52 53 54 20 4E 41 4D 45 22 3B 4E UR FIRST NAME";N
0000D0: 24 3A 20 50 52 49 4E 54 0D 0A 38 30 20 50 52 49 $: PRINT..80 PRI
0000E0: 4E 54 20 22 48 49 2C 20 22 3B 4E 24 3B 22 2E 20 NT "HI, ";N$;".
0000F0: 20 49 4E 20 54 48 49 53 20 47 41 4D 45 20 59 4F IN THIS GAME YO
000100: 55 20 41 52 45 20 54 4F 20 54 41 4B 45 20 4F 52 U ARE TO TAKE OR
000110: 44 45 52 53 22 0D 0A 39 30 20 50 52 49 4E 54 20 DERS"..90 PRINT
000120: 22 46 4F 52 20 50 49 5A 5A 41 53 2E 20 20 54 48 "FOR PIZZAS. TH
000130: 45 4E 20 59 4F 55 20 41 52 45 20 54 4F 20 54 45 EN YOU ARE TO TE
000140: 4C 4C 20 41 20 44 45 4C 49 56 45 52 59 20 42 4F LL A DELIVERY BO
000150: 59 22 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 57 Y"..100 PRINT "W
000160: 48 45 52 45 20 54 4F 20 44 45 4C 49 56 45 52 20 HERE TO DELIVER
000170: 54 48 45 20 4F 52 44 45 52 45 44 20 50 49 5A 5A THE ORDERED PIZZ
000180: 41 53 2E 22 3A 20 50 52 49 4E 54 3A 20 50 52 49 AS.": PRINT: PRI
000190: 4E 54 0D 0A 31 34 30 20 46 4F 52 20 49 3D 31 20 NT..140 FOR I=1
0001A0: 54 4F 20 31 36 0D 0A 31 35 30 20 52 45 41 44 20 TO 16..150 READ
0001B0: 53 24 28 49 29 0D 0A 31 36 30 20 4E 45 58 54 20 S$(I)..160 NEXT
0001C0: 49 0D 0A 31 37 30 20 46 4F 52 20 49 3D 31 20 54 I..170 FOR I=1 T
0001D0: 4F 20 34 0D 0A 31 38 30 20 52 45 41 44 20 4D 24 O 4..180 READ M$
0001E0: 28 49 29 0D 0A 31 39 30 20 4E 45 58 54 20 49 0D (I)..190 NEXT I.
0001F0: 0A 32 30 30 20 44 41 54 41 20 22 41 22 2C 22 42 .200 DATA "A","B
Size : 512 (Real : 512)
000000: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 30 INT " 0
000010: 30 30 30 20 20 20 20 20 58 58 58 58 58 58 58 58 000 XXXXXXXX
000020: 58 58 58 58 58 58 58 20 20 20 20 20 30 30 30 30 XXXXXXX 0000
000030: 22 0D 0A 31 38 33 20 50 52 49 4E 54 20 22 20 20 "..183 PRINT "
000040: 20 20 20 20 20 20 20 20 20 30 30 30 30 30 20 20 00000
000050: 20 20 58 58 58 58 58 58 58 58 58 58 58 58 58 20 XXXXXXXXXXXXX
000060: 20 20 20 30 30 30 30 30 22 0D 0A 31 38 34 20 50 00000"..184 P
000070: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 RINT "
000080: 20 20 30 30 30 30 30 20 20 20 20 58 58 58 58 58 00000 XXXXX
000090: 58 58 58 58 58 58 20 20 20 20 30 30 30 30 30 22 XXXXXX 00000"
0000A0: 0D 0A 31 38 35 20 50 52 49 4E 54 20 22 20 20 20 ..185 PRINT "
0000B0: 20 20 20 20 20 20 20 20 20 20 30 30 30 30 30 20 00000
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 30 30 30 30 30 22 0D 0A 31 38 36 20 50 52 49 4E 00000"..186 PRIN
0000E0: 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 T "
0000F0: 20 20 30 30 30 30 30 30 20 20 20 20 20 20 20 20 000000
000100: 20 20 20 30 30 30 30 30 30 22 0D 0A 31 38 37 20 000000"..187
000110: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
000120: 20 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 00000000
000130: 30 30 30 30 30 30 30 30 30 30 30 22 0D 0A 31 38 00000000000"..18
000140: 38 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 8 PRINT "
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 30 000
000160: 30 30 30 30 30 30 30 30 30 30 22 0D 0A 31 39 30 0000000000"..190
000170: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 32 37 30 22 0D 0A 31 39 32 20 50 52 49 4E 54 270"..192 PRINT
0001A0: 0D 0A 31 39 35 20 50 52 49 4E 54 20 22 58 20 2D ..195 PRINT "X -
0001B0: 20 59 4F 55 52 20 50 4C 41 4E 45 54 22 0D 0A 31 YOUR PLANET"..1
0001C0: 39 36 20 50 52 49 4E 54 20 22 4F 20 2D 20 54 48 96 PRINT "O - TH
0001D0: 45 20 4F 52 42 49 54 20 4F 46 20 54 48 45 20 52 E ORBIT OF THE R
0001E0: 4F 4D 55 4C 41 4E 20 53 48 49 50 22 0D 0A 31 39 OMULAN SHIP"..19
0001F0: 37 20 50 52 49 4E 54 0D 0A 31 39 38 20 50 52 49 7 PRINT..198 PRI
Size : 512 (Real : 512)
000000: 22 2C 22 43 22 2C 22 44 22 2C 22 45 22 2C 22 46 ","C","D","E","F
000010: 22 2C 22 47 22 2C 22 48 22 2C 22 49 22 2C 22 4A ","G","H","I","J
000020: 22 2C 22 4B 22 2C 22 4C 22 2C 22 4D 22 2C 22 4E ","K","L","M","N
000030: 22 2C 22 4F 22 0D 0A 32 31 30 20 44 41 54 41 20 ","O"..210 DATA
000040: 22 50 22 2C 22 31 22 2C 22 32 22 2C 22 33 22 2C "P","1","2","3",
000050: 22 34 22 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 "4"..230 PRINT "
000060: 4D 41 50 20 4F 46 20 54 48 45 20 43 49 54 59 20 MAP OF THE CITY
000070: 4F 46 20 48 59 41 54 54 53 56 49 4C 4C 45 22 3A OF HYATTSVILLE":
000080: 20 50 52 49 4E 54 0D 0A 32 35 30 20 50 52 49 4E PRINT..250 PRIN
000090: 54 20 22 20 2D 2D 2D 2D 2D 31 2D 2D 2D 2D 2D 32 T " -----1-----2
0000A0: 2D 2D 2D 2D 2D 33 2D 2D 2D 2D 2D 34 2D 2D 2D 2D -----3-----4----
0000B0: 2D 22 0D 0A 32 36 30 20 4B 3D 34 0D 0A 32 37 30 -"..260 K=4..270
0000C0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 34 0D 0A 32 FOR I=1 TO 4..2
0000D0: 38 30 20 50 52 49 4E 54 20 22 2D 22 3A 20 50 52 80 PRINT "-": PR
0000E0: 49 4E 54 20 22 2D 22 3A 20 50 52 49 4E 54 22 2D INT "-": PRINT"-
0000F0: 22 3A 20 50 52 49 4E 54 20 22 2D 22 0D 0A 33 32 ": PRINT "-"..32
000100: 30 20 50 52 49 4E 54 20 4D 24 28 4B 29 3B 0D 0A 0 PRINT M$(K);..
000110: 33 33 30 20 53 31 3D 31 36 2D 34 2A 49 2B 31 0D 330 S1=16-4*I+1.
000120: 0A 33 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 .340 PRINT "
000130: 20 22 3B 53 24 28 53 31 29 3B 22 20 20 20 20 20 ";S$(S1);"
000140: 22 3B 53 24 28 53 31 2B 31 29 3B 22 20 20 20 20 ";S$(S1+1);"
000150: 20 22 3B 53 24 28 53 31 2B 32 29 3B 22 20 20 20 ";S$(S1+2);"
000160: 20 20 22 3B 0D 0A 33 35 30 20 50 52 49 4E 54 20 ";..350 PRINT
000170: 53 24 28 53 31 2B 33 29 3B 22 20 20 20 20 20 22 S$(S1+3);" "
000180: 3B 4D 24 28 4B 29 0D 0A 33 38 30 20 4B 3D 4B 2D ;M$(K)..380 K=K-
000190: 31 0D 0A 33 39 30 20 4E 45 58 54 20 49 0D 0A 34 1..390 NEXT I..4
0001A0: 30 30 20 50 52 49 4E 54 20 22 2D 22 3A 20 50 52 00 PRINT "-": PR
0001B0: 49 4E 54 20 22 2D 22 3A 20 50 52 49 4E 54 20 22 INT "-": PRINT "
0001C0: 2D 22 3A 20 50 52 49 4E 54 20 22 2D 22 0D 0A 34 -": PRINT "-"..4
0001D0: 34 30 20 50 52 49 4E 54 20 22 20 2D 2D 2D 2D 2D 40 PRINT " -----
0001E0: 31 2D 2D 2D 2D 2D 32 2D 2D 2D 2D 2D 33 2D 2D 2D 1-----2-----3---
0001F0: 2D 2D 34 2D 2D 2D 2D 2D 22 3A 20 50 52 49 4E 54 --4-----": PRINT
Size : 512 (Real : 512)
000000: 4E 54 20 22 4F 4E 20 54 48 45 20 41 42 4F 56 45 NT "ON THE ABOVE
000010: 20 44 49 41 47 52 41 4D 2C 20 54 48 45 20 52 4F DIAGRAM, THE RO
000020: 4D 55 4C 41 4E 20 53 48 49 50 20 49 53 20 43 49 MULAN SHIP IS CI
000030: 52 43 4C 49 4E 47 22 0D 0A 31 39 39 20 50 52 49 RCLING"..199 PRI
000040: 4E 54 20 22 43 4F 55 4E 54 45 52 43 4C 4F 43 4B NT "COUNTERCLOCK
000050: 57 49 53 45 20 41 52 4F 55 4E 44 20 59 4F 55 52 WISE AROUND YOUR
000060: 20 50 4C 41 4E 45 54 2E 20 20 44 4F 4E 27 54 20 PLANET. DON'T
000070: 46 4F 52 47 45 54 20 54 48 41 54 22 0D 0A 32 30 FORGET THAT"..20
000080: 30 20 50 52 49 4E 54 20 22 57 49 54 48 4F 55 54 0 PRINT "WITHOUT
000090: 20 53 55 46 46 49 43 49 45 4E 54 20 50 4F 57 45 SUFFICIENT POWE
0000A0: 52 20 54 48 45 20 52 4F 4D 55 4C 41 4E 20 53 48 R THE ROMULAN SH
0000B0: 49 50 27 53 20 41 4C 54 49 54 55 44 45 22 0D 0A IP'S ALTITUDE"..
0000C0: 32 31 30 20 50 52 49 4E 54 20 22 41 4E 44 20 4F 210 PRINT "AND O
0000D0: 52 42 49 54 41 4C 20 52 41 54 45 20 57 49 4C 4C RBITAL RATE WILL
0000E0: 20 52 45 4D 41 49 4E 20 43 4F 4E 53 54 41 4E 54 REMAIN CONSTANT
0000F0: 2E 22 0D 0A 32 32 30 20 50 52 49 4E 54 20 0D 0A ."..220 PRINT ..
000100: 32 33 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 20 230 PRINT "GOOD
000110: 4C 55 43 4B 2E 20 20 54 48 45 20 46 45 44 45 52 LUCK. THE FEDER
000120: 41 54 49 4F 4E 20 49 53 20 43 4F 55 4E 54 49 4E ATION IS COUNTIN
000130: 47 20 4F 4E 20 59 4F 55 2E 22 0D 0A 32 37 30 20 G ON YOU."..270
000140: 41 3D 49 4E 54 28 33 36 30 2A 52 4E 44 28 31 29 A=INT(360*RND(1)
000150: 29 0D 0A 32 38 30 20 44 3D 49 4E 54 28 32 30 30 )..280 D=INT(200
000160: 2A 52 4E 44 28 31 29 2B 32 30 30 29 0D 0A 32 39 *RND(1)+200)..29
000170: 30 20 52 3D 49 4E 54 28 32 30 2A 52 4E 44 28 31 0 R=INT(20*RND(1
000180: 29 2B 31 30 29 0D 0A 33 30 30 20 48 3D 30 0D 0A )+10)..300 H=0..
000190: 33 31 30 20 49 46 20 48 3D 37 20 54 48 45 4E 20 310 IF H=7 THEN
0001A0: 34 39 30 0D 0A 33 32 30 20 48 3D 48 2B 31 0D 0A 490..320 H=H+1..
0001B0: 33 32 35 20 50 52 49 4E 54 0D 0A 33 32 36 20 50 325 PRINT..326 P
0001C0: 52 49 4E 54 0D 0A 33 33 30 20 50 52 49 4E 54 20 RINT..330 PRINT
0001D0: 22 54 48 49 53 20 49 53 20 48 4F 55 52 22 3B 48 "THIS IS HOUR";H
0001E0: 3B 22 2C 20 41 54 20 57 48 41 54 20 41 4E 47 4C ;", AT WHAT ANGL
0001F0: 45 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F E DO YOU WISH TO
Size : 512 (Real : 512)
000000: 0D 0A 34 36 30 20 50 52 49 4E 54 20 22 54 48 45 ..460 PRINT "THE
000010: 20 4F 55 54 50 55 54 20 49 53 20 41 20 4D 41 50 OUTPUT IS A MAP
000020: 20 4F 46 20 54 48 45 20 48 4F 4D 45 53 20 57 48 OF THE HOMES WH
000030: 45 52 45 22 0D 0A 34 37 30 20 50 52 49 4E 54 20 ERE"..470 PRINT
000040: 22 59 4F 55 20 41 52 45 20 54 4F 20 53 45 4E 44 "YOU ARE TO SEND
000050: 20 50 49 5A 5A 41 53 2E 22 3A 20 50 52 49 4E 54 PIZZAS.": PRINT
000060: 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 59 4F 55 ..490 PRINT "YOU
000070: 52 20 4A 4F 42 20 49 53 20 54 4F 20 47 49 56 45 R JOB IS TO GIVE
000080: 20 41 20 54 52 55 43 4B 20 44 52 49 56 45 52 22 A TRUCK DRIVER"
000090: 0D 0A 35 30 30 20 50 52 49 4E 54 20 22 54 48 45 ..500 PRINT "THE
0000A0: 20 4C 4F 43 41 54 49 4F 4E 20 4F 52 20 43 4F 4F LOCATION OR COO
0000B0: 52 44 49 4E 41 54 45 53 20 4F 46 20 54 48 45 22 RDINATES OF THE"
0000C0: 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 48 4F 4D ..510 PRINT "HOM
0000D0: 45 20 4F 52 44 45 52 49 4E 47 20 54 48 45 20 50 E ORDERING THE P
0000E0: 49 5A 5A 41 2E 22 3A 20 50 52 49 4E 54 0D 0A 35 IZZA.": PRINT..5
0000F0: 32 30 20 49 4E 50 55 54 20 22 44 4F 20 59 4F 55 20 INPUT "DO YOU
000100: 20 4E 45 45 44 20 4D 4F 52 45 20 44 49 52 45 43 NEED MORE DIREC
000110: 54 49 4F 4E 53 22 3B 41 24 0D 0A 35 33 30 20 49 TIONS";A$..530 I
000120: 46 20 41 24 3D 22 59 45 53 22 20 54 48 45 4E 20 F A$="YES" THEN
000130: 35 39 30 0D 0A 35 34 30 20 49 46 20 41 24 3D 22 590..540 IF A$="
000140: 4E 4F 22 20 54 48 45 4E 20 37 35 30 0D 0A 35 35 NO" THEN 750..55
000150: 30 20 50 52 49 4E 54 20 22 27 59 45 53 27 20 4F 0 PRINT "'YES' O
000160: 52 20 27 4E 4F 27 20 50 4C 45 41 53 45 2C 20 4E R 'NO' PLEASE, N
000170: 4F 57 20 54 48 45 4E 2C 22 3A 20 47 4F 54 4F 20 OW THEN,": GOTO
000180: 35 32 30 0D 0A 35 39 30 20 50 52 49 4E 54 3A 20 520..590 PRINT:
000190: 50 52 49 4E 54 20 22 53 4F 4D 45 42 4F 44 59 20 PRINT "SOMEBODY
0001A0: 57 49 4C 4C 20 41 53 4B 20 46 4F 52 20 41 20 50 WILL ASK FOR A P
0001B0: 49 5A 5A 41 20 54 4F 20 42 45 22 0D 0A 36 30 30 IZZA TO BE"..600
0001C0: 20 50 52 49 4E 54 20 22 44 45 4C 49 56 45 52 45 PRINT "DELIVERE
0001D0: 44 2E 20 20 54 48 45 4E 20 41 20 44 45 4C 49 56 D. THEN A DELIV
0001E0: 45 52 59 20 42 4F 59 20 57 49 4C 4C 22 0D 0A 36 ERY BOY WILL"..6
0001F0: 31 30 20 50 52 49 4E 54 20 22 41 53 4B 20 59 4F 10 PRINT "ASK YO
Size : 512 (Real : 512)
000000: 32 31 30 0D 0A 31 31 35 20 50 52 49 4E 54 20 22 210..115 PRINT "
000010: 42 55 52 4E 45 44 22 3B 3A 47 4F 54 4F 20 32 31 BURNED";:GOTO 21
000020: 30 0D 0A 31 32 30 20 4F 4E 20 49 20 47 4F 54 4F 0..120 ON I GOTO
000030: 20 31 32 31 2C 31 32 32 2C 31 32 33 2C 31 32 34 121,122,123,124
000040: 2C 31 32 35 0D 0A 31 32 31 20 50 52 49 4E 54 20 ,125..121 PRINT
000050: 22 41 4E 44 20 4D 59 20 53 4F 55 4C 22 3B 3A 47 "AND MY SOUL";:G
000060: 4F 54 4F 20 32 31 30 0D 0A 31 32 32 20 50 52 49 OTO 210..122 PRI
000070: 4E 54 20 22 44 41 52 4B 4E 45 53 53 20 54 48 45 NT "DARKNESS THE
000080: 52 45 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 RE";:GOTO 210..1
000090: 32 33 20 50 52 49 4E 54 20 22 53 48 41 4C 4C 20 23 PRINT "SHALL
0000A0: 42 45 20 4C 49 46 54 45 44 22 3B 3A 47 4F 54 4F BE LIFTED";:GOTO
0000B0: 20 32 31 30 0D 0A 31 32 34 20 50 52 49 4E 54 20 210..124 PRINT
0000C0: 22 51 55 4F 54 48 20 54 48 45 20 52 41 56 45 4E "QUOTH THE RAVEN
0000D0: 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 32 35 ";:GOTO 210..125
0000E0: 20 49 46 20 55 3D 30 20 54 48 45 4E 20 32 31 30 IF U=0 THEN 210
0000F0: 0D 0A 31 32 36 20 50 52 49 4E 54 20 22 53 49 47 ..126 PRINT "SIG
000100: 4E 20 4F 46 20 50 41 52 54 49 4E 47 22 3B 3A 47 N OF PARTING";:G
000110: 4F 54 4F 20 32 31 30 0D 0A 31 33 30 20 4F 4E 20 OTO 210..130 ON
000120: 49 20 47 4F 54 4F 20 31 33 31 2C 31 33 32 2C 31 I GOTO 131,132,1
000130: 33 33 2C 31 33 34 2C 31 33 35 0D 0A 31 33 31 20 33,134,135..131
000140: 50 52 49 4E 54 20 22 4E 4F 54 48 49 4E 47 20 4D PRINT "NOTHING M
000150: 4F 52 45 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A ORE";:GOTO 210..
000160: 31 33 32 20 50 52 49 4E 54 20 22 59 45 54 20 41 132 PRINT "YET A
000170: 47 41 49 4E 22 3B 3A 47 4F 54 4F 20 32 31 30 0D GAIN";:GOTO 210.
000180: 0A 31 33 33 20 50 52 49 4E 54 20 22 53 4C 4F 57 .133 PRINT "SLOW
000190: 4C 59 20 43 52 45 45 50 49 4E 47 22 3B 3A 47 4F LY CREEPING";:GO
0001A0: 54 4F 20 32 31 30 0D 0A 31 33 34 20 50 52 49 4E TO 210..134 PRIN
0001B0: 54 20 22 2E 2E 2E 45 56 45 52 4D 4F 52 45 22 3B T "...EVERMORE";
0001C0: 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 33 35 20 50 :GOTO 210..135 P
0001D0: 52 49 4E 54 20 22 4E 45 56 45 52 4D 4F 52 45 22 RINT "NEVERMORE"
0001E0: 3B 0D 0A 32 31 30 20 49 46 20 55 3D 30 20 4F 52 ;..210 IF U=0 OR
0001F0: 20 52 4E 44 28 31 29 3E 2E 31 39 20 54 48 45 4E RND(1)>.19 THEN
Size : 512 (Real : 512)
000000: 55 20 46 4F 52 20 54 48 45 20 4C 4F 43 41 54 49 U FOR THE LOCATI
000010: 4F 4E 2E 22 3A 50 52 49 4E 54 20 22 20 20 20 20 ON.":PRINT "
000020: 20 45 58 41 4D 50 4C 45 3A 22 0D 0A 36 32 30 20 EXAMPLE:"..620
000030: 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 4A PRINT "THIS IS J
000040: 2E 20 20 50 4C 45 41 53 45 20 53 45 4E 44 20 41 . PLEASE SEND A
000050: 20 50 49 5A 5A 41 2E 22 0D 0A 36 34 30 20 50 52 PIZZA."..640 PR
000060: 49 4E 54 20 22 44 52 49 56 45 52 20 54 4F 20 22 INT "DRIVER TO "
000070: 3B 4E 24 3B 22 2E 20 20 57 48 45 52 45 20 44 4F ;N$;". WHERE DO
000080: 45 53 20 4A 20 4C 49 56 45 3F 22 0D 0A 36 35 30 ES J LIVE?"..650
000090: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 41 4E 53 PRINT "YOUR ANS
0000A0: 57 45 52 20 57 4F 55 4C 44 20 42 45 20 32 2C 33 WER WOULD BE 2,3
0000B0: 22 3A 20 50 52 49 4E 54 0D 0A 36 36 30 20 49 4E ": PRINT..660 IN
0000C0: 50 55 54 20 22 55 4E 44 45 52 53 54 41 4E 44 22 PUT "UNDERSTAND"
0000D0: 3B 41 24 0D 0A 36 37 30 20 49 46 20 41 24 3D 22 ;A$..670 IF A$="
0000E0: 59 45 53 22 20 54 48 45 4E 20 36 39 30 0D 0A 36 YES" THEN 690..6
0000F0: 38 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 4A 80 PRINT "THIS J
000100: 4F 42 20 49 53 20 44 45 46 49 4E 49 54 45 4C 59 OB IS DEFINITELY
000110: 20 54 4F 4F 20 44 49 46 46 49 43 55 4C 54 20 46 TOO DIFFICULT F
000120: 4F 52 20 59 4F 55 2E 20 54 48 41 4E 4B 53 20 41 OR YOU. THANKS A
000130: 4E 59 57 41 59 22 0D 0A 36 38 35 20 47 4F 54 4F NYWAY"..685 GOTO
000140: 20 39 39 39 0D 0A 36 39 30 20 50 52 49 4E 54 20 999..690 PRINT
000150: 22 47 4F 4F 44 2E 20 20 59 4F 55 20 41 52 45 20 "GOOD. YOU ARE
000160: 4E 4F 57 20 52 45 41 44 59 20 54 4F 20 53 54 41 NOW READY TO STA
000170: 52 54 20 54 41 4B 49 4E 47 20 4F 52 44 45 52 53 RT TAKING ORDERS
000180: 2E 22 3A 20 50 52 49 4E 54 0D 0A 37 30 30 20 50 .": PRINT..700 P
000190: 52 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 RINT "GOOD LUCK!
0001A0: 21 22 3A 20 50 52 49 4E 54 0D 0A 37 35 30 20 46 !": PRINT..750 F
0001B0: 4F 52 20 49 3D 31 20 54 4F 20 35 0D 0A 37 36 30 OR I=1 TO 5..760
0001C0: 20 53 3D 49 4E 54 28 52 4E 44 28 31 29 2A 31 36 S=INT(RND(1)*16
0001D0: 2B 31 29 3A 20 50 52 49 4E 54 0D 0A 37 37 30 20 +1): PRINT..770
0001E0: 50 52 49 4E 54 20 22 48 45 4C 4C 4F 20 22 3B 4E PRINT "HELLO ";N
0001F0: 24 3B 22 27 53 20 50 49 5A 5A 41 2E 20 20 54 48 $;"'S PIZZA. TH
Size : 512 (Real : 512)
000000: 20 32 31 32 0D 0A 32 31 31 20 50 52 49 4E 54 20 212..211 PRINT
000010: 22 2C 22 3B 3A 55 3D 32 0D 0A 32 31 32 20 49 46 ",";:U=2..212 IF
000020: 20 52 4E 44 28 31 29 3E 2E 36 35 20 54 48 45 4E RND(1)>.65 THEN
000030: 20 32 31 34 0D 0A 32 31 33 20 50 52 49 4E 54 20 214..213 PRINT
000040: 22 20 22 3B 3A 55 3D 55 2B 31 3A 47 4F 54 4F 20 " ";:U=U+1:GOTO
000050: 32 31 35 0D 0A 32 31 34 20 50 52 49 4E 54 20 3A 215..214 PRINT :
000060: 20 55 3D 30 0D 0A 32 31 35 20 49 3D 49 4E 54 28 U=0..215 I=INT(
000070: 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 2F 32 INT(10*RND(1))/2
000080: 29 2B 31 0D 0A 32 32 30 20 4A 3D 4A 2B 31 20 3A )+1..220 J=J+1 :
000090: 20 4B 3D 4B 2B 31 0D 0A 32 33 30 20 49 46 20 55 K=K+1..230 IF U
0000A0: 3E 30 20 4F 52 20 49 4E 54 28 4A 2F 32 29 3C 3E >0 OR INT(J/2)<>
0000B0: 4A 2F 32 20 54 48 45 4E 20 32 34 30 0D 0A 32 33 J/2 THEN 240..23
0000C0: 35 20 50 52 49 4E 54 20 22 20 20 20 20 20 22 3B 5 PRINT " ";
0000D0: 0D 0A 32 34 30 20 4F 4E 20 4A 20 47 4F 54 4F 20 ..240 ON J GOTO
0000E0: 39 30 2C 31 31 30 2C 31 32 30 2C 31 33 30 2C 32 90,110,120,130,2
0000F0: 35 30 0D 0A 32 35 30 20 4A 3D 30 20 3A 20 50 52 50..250 J=0 : PR
000100: 49 4E 54 20 3A 20 49 46 20 4B 3E 32 30 20 54 48 INT : IF K>20 TH
000110: 45 4E 20 32 37 30 0D 0A 32 36 30 20 47 4F 54 4F EN 270..260 GOTO
000120: 20 32 31 35 0D 0A 32 37 30 20 50 52 49 4E 54 20 215..270 PRINT
000130: 3A 20 55 3D 30 20 3A 20 4B 3D 30 20 3A 20 47 4F : U=0 : K=0 : GO
000140: 54 4F 20 31 31 30 0D 0A 39 39 39 20 45 4E 44 0D TO 110..999 END.
000150: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 49 53 20 49 53 20 22 3B 53 24 28 53 29 3B 22 2E IS IS ";S$(S);".
000010: 22 3B 0D 0A 37 37 35 20 50 52 49 4E 54 20 22 20 ";..775 PRINT "
000020: 20 50 4C 45 41 53 45 20 53 45 4E 44 20 41 20 50 PLEASE SEND A P
000030: 49 5A 5A 41 2E 22 0D 0A 37 38 30 20 50 52 49 4E IZZA."..780 PRIN
000040: 54 20 22 20 20 44 52 49 56 45 52 20 54 4F 20 22 T " DRIVER TO "
000050: 3B 4E 24 3B 22 3A 20 20 57 48 45 52 45 20 44 4F ;N$;": WHERE DO
000060: 45 53 20 22 3B 53 24 28 53 29 3B 22 20 4C 49 56 ES ";S$(S);" LIV
000070: 45 22 3B 0D 0A 37 39 30 20 49 4E 50 55 54 20 41 E";..790 INPUT A
000080: 28 31 29 2C 41 28 32 29 0D 0A 38 37 30 20 54 3D (1),A(2)..870 T=
000090: 41 28 31 29 2B 28 41 28 32 29 2D 31 29 2A 34 0D A(1)+(A(2)-1)*4.
0000A0: 0A 38 38 30 20 49 46 20 54 3D 53 20 54 48 45 4E .880 IF T=S THEN
0000B0: 20 39 32 30 0D 0A 38 39 30 20 50 52 49 4E 54 20 920..890 PRINT
0000C0: 22 54 48 49 53 20 49 53 20 22 3B 53 24 28 54 29 "THIS IS ";S$(T)
0000D0: 3B 22 2E 20 20 49 20 44 49 44 20 4E 4F 54 20 4F ;". I DID NOT O
0000E0: 52 44 45 52 20 41 20 50 49 5A 5A 41 2E 22 0D 0A RDER A PIZZA."..
0000F0: 39 30 30 20 50 52 49 4E 54 20 22 49 20 4C 49 56 900 PRINT "I LIV
000100: 45 20 41 54 20 22 3B 41 28 31 29 3B 22 2C 22 3B E AT ";A(1);",";
000110: 41 28 32 29 0D 0A 39 31 30 20 47 4F 54 4F 20 37 A(2)..910 GOTO 7
000120: 38 30 0D 0A 39 32 30 20 50 52 49 4E 54 20 22 48 80..920 PRINT "H
000130: 45 4C 4C 4F 20 22 4E 24 3B 22 2E 20 20 54 48 49 ELLO "N$;". THI
000140: 53 20 49 53 20 22 3B 53 24 28 53 29 3B 22 2C 20 S IS ";S$(S);",
000150: 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 50 THANKS FOR THE P
000160: 49 5A 5A 41 2E 22 0D 0A 39 33 30 20 4E 45 58 54 IZZA."..930 NEXT
000170: 20 49 0D 0A 39 34 30 20 50 52 49 4E 54 3A 20 49 I..940 PRINT: I
000180: 4E 50 55 54 20 22 44 4F 20 59 4F 55 20 57 41 4E NPUT "DO YOU WAN
000190: 54 20 54 4F 20 44 45 4C 49 56 45 52 20 4D 4F 52 T TO DELIVER MOR
0001A0: 45 20 50 49 5A 5A 41 53 22 3B 41 24 0D 0A 39 36 E PIZZAS";A$..96
0001B0: 30 20 49 46 20 41 24 3D 22 59 45 53 22 20 54 48 0 IF A$="YES" TH
0001C0: 45 4E 20 37 35 30 0D 0A 39 37 30 20 50 52 49 4E EN 750..970 PRIN
0001D0: 54 3A 20 50 52 49 4E 54 20 22 4F 2E 4B 2E 20 22 T: PRINT "O.K. "
0001E0: 3B 4E 24 3B 22 2C 20 53 45 45 20 59 4F 55 20 4C ;N$;", SEE YOU L
0001F0: 41 54 45 52 21 22 3A 50 52 49 4E 54 0D 0A 39 39 ATER!":PRINT..99
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 50 4F 4B 45 52 22 0D 0A 34 20 50 52 49 4E 54 "POKER"..4 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 RSEY"..6 PRINT:
000060: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 31 30 PRINT: PRINT..10
000070: 20 44 49 4D 20 41 28 35 30 29 2C 42 28 31 35 29 DIM A(50),B(15)
000080: 0D 0A 32 30 20 44 45 46 20 46 4E 41 28 58 29 3D ..20 DEF FNA(X)=
000090: 49 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 0D 0A INT(10*RND(1))..
0000A0: 33 30 20 44 45 46 20 46 4E 42 28 58 29 3D 58 2D 30 DEF FNB(X)=X-
0000B0: 31 30 30 2A 49 4E 54 28 58 2F 31 30 30 29 0D 0A 100*INT(X/100)..
0000C0: 34 30 20 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 40 PRINT "WELCOM
0000D0: 45 20 54 4F 20 54 48 45 20 43 41 53 49 4E 4F 2E E TO THE CASINO.
0000E0: 20 20 57 45 20 45 41 43 48 20 48 41 56 45 20 24 WE EACH HAVE $
0000F0: 32 30 30 2E 22 0D 0A 35 30 20 50 52 49 4E 54 20 200."..50 PRINT
000100: 22 49 20 57 49 4C 4C 20 4F 50 45 4E 20 54 48 45 "I WILL OPEN THE
000110: 20 42 45 54 54 49 4E 47 20 42 45 46 4F 52 45 20 BETTING BEFORE
000120: 54 48 45 20 44 52 41 57 3B 20 59 4F 55 20 4F 50 THE DRAW; YOU OP
000130: 45 4E 20 41 46 54 45 52 2E 22 0D 0A 36 30 20 50 EN AFTER."..60 P
000140: 52 49 4E 54 20 22 54 4F 20 46 4F 4C 44 20 42 45 RINT "TO FOLD BE
000150: 54 20 30 3B 20 54 4F 20 43 48 45 43 4B 20 42 45 T 0; TO CHECK BE
000160: 54 20 2E 35 2E 22 0D 0A 37 30 20 50 52 49 4E 54 T .5."..70 PRINT
000170: 20 22 45 4E 4F 55 47 48 20 54 41 4C 4B 20 2D 2D "ENOUGH TALK --
000180: 20 4C 45 54 27 53 20 47 45 54 20 44 4F 57 4E 20 LET'S GET DOWN
000190: 54 4F 20 42 55 53 49 4E 45 53 53 2E 22 0D 0A 38 TO BUSINESS."..8
0001A0: 30 20 50 52 49 4E 54 0D 0A 39 30 20 4C 45 54 20 0 PRINT..90 LET
0001B0: 4F 3D 31 0D 0A 31 30 30 20 4C 45 54 20 43 3D 32 O=1..100 LET C=2
0001C0: 30 30 0D 0A 31 31 30 20 4C 45 54 20 53 3D 32 30 00..110 LET S=20
0001D0: 30 0D 0A 31 32 30 20 4C 45 54 20 50 3D 30 0D 0A 0..120 LET P=0..
0001E0: 31 33 30 20 52 45 4D 0D 0A 31 34 30 20 50 52 49 130 REM..140 PRI
0001F0: 4E 54 0D 0A 31 35 30 20 49 46 20 43 3C 3D 35 20 NT..150 IF C<=5
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
000010: 3B 22 50 4F 45 54 52 59 22 0D 0A 32 30 20 50 52 ;"POETRY"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 39 30 20 4F 4E 20 49 20 47 4F 54 4F 20 31 30 30 90 ON I GOTO 100
000080: 2C 31 30 31 2C 31 30 32 2C 31 30 33 2C 31 30 34 ,101,102,103,104
000090: 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 4D 49 44 ..100 PRINT "MID
0000A0: 4E 49 47 48 54 20 44 52 45 41 52 59 22 3B 3A 47 NIGHT DREARY";:G
0000B0: 4F 54 4F 20 32 31 30 0D 0A 31 30 31 20 50 52 49 OTO 210..101 PRI
0000C0: 4E 54 20 22 46 49 45 52 59 20 45 59 45 53 22 3B NT "FIERY EYES";
0000D0: 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 30 32 20 50 :GOTO 210..102 P
0000E0: 52 49 4E 54 20 22 42 49 52 44 20 4F 52 20 46 49 RINT "BIRD OR FI
0000F0: 45 4E 44 22 3B 3A 47 4F 54 4F 20 32 31 30 0D 0A END";:GOTO 210..
000100: 31 30 33 20 50 52 49 4E 54 20 22 54 48 49 4E 47 103 PRINT "THING
000110: 20 4F 46 20 45 56 49 4C 22 3B 3A 47 4F 54 4F 20 OF EVIL";:GOTO
000120: 32 31 30 0D 0A 31 30 34 20 50 52 49 4E 54 20 22 210..104 PRINT "
000130: 50 52 4F 50 48 45 54 22 3B 3A 47 4F 54 4F 20 32 PROPHET";:GOTO 2
000140: 31 30 0D 0A 31 31 30 20 4F 4E 20 49 20 47 4F 54 10..110 ON I GOT
000150: 4F 20 31 31 31 2C 31 31 32 2C 31 31 33 2C 31 31 O 111,112,113,11
000160: 34 2C 31 31 35 0D 0A 31 31 31 20 50 52 49 4E 54 4,115..111 PRINT
000170: 20 22 42 45 47 55 49 4C 49 4E 47 20 4D 45 22 3B "BEGUILING ME";
000180: 3A 55 3D 32 3A 47 4F 54 4F 20 32 31 30 0D 0A 31 :U=2:GOTO 210..1
000190: 31 32 20 50 52 49 4E 54 20 22 54 48 52 49 4C 4C 12 PRINT "THRILL
0001A0: 45 44 20 4D 45 22 3B 3A 47 4F 54 4F 20 32 31 30 ED ME";:GOTO 210
0001B0: 0D 0A 31 31 33 20 50 52 49 4E 54 20 22 53 54 49 ..113 PRINT "STI
0001C0: 4C 4C 20 53 49 54 54 49 4E 47 2E 2E 2E 2E 22 3B LL SITTING....";
0001D0: 3A 47 4F 54 4F 20 32 31 32 0D 0A 31 31 34 20 50 :GOTO 212..114 P
0001E0: 52 49 4E 54 20 22 4E 45 56 45 52 20 46 4C 49 54 RINT "NEVER FLIT
0001F0: 54 49 4E 47 22 3B 3A 55 3D 32 3A 47 4F 54 4F 20 TING";:U=2:GOTO
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 33 36 37 30 0D 0A 31 36 30 20 50 THEN 3670..160 P
000010: 52 49 4E 54 20 22 54 48 45 20 41 4E 54 45 20 49 RINT "THE ANTE I
000020: 53 20 24 35 2E 20 20 49 20 57 49 4C 4C 20 44 45 S $5. I WILL DE
000030: 41 4C 3A 22 0D 0A 31 37 30 20 50 52 49 4E 54 0D AL:"..170 PRINT.
000040: 0A 31 38 30 20 49 46 20 53 3E 35 20 54 48 45 4E .180 IF S>5 THEN
000050: 20 32 30 30 0D 0A 31 39 30 20 47 4F 53 55 42 20 200..190 GOSUB
000060: 33 38 33 30 0D 0A 32 30 30 20 4C 45 54 20 50 3D 3830..200 LET P=
000070: 50 2B 31 30 0D 0A 32 31 30 20 4C 45 54 20 53 3D P+10..210 LET S=
000080: 53 2D 35 0D 0A 32 32 30 20 4C 45 54 20 43 3D 43 S-5..220 LET C=C
000090: 2D 35 0D 0A 32 33 30 20 46 4F 52 20 5A 3D 31 20 -5..230 FOR Z=1
0000A0: 54 4F 20 31 30 0D 0A 32 34 30 20 47 4F 53 55 42 TO 10..240 GOSUB
0000B0: 20 31 37 34 30 0D 0A 32 35 30 20 4E 45 58 54 20 1740..250 NEXT
0000C0: 5A 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 59 4F Z..260 PRINT "YO
0000D0: 55 52 20 48 41 4E 44 3A 22 0D 0A 32 37 30 20 4E UR HAND:"..270 N
0000E0: 3D 31 0D 0A 32 38 30 20 47 4F 53 55 42 20 31 38 =1..280 GOSUB 18
0000F0: 35 30 0D 0A 32 39 30 20 4E 3D 36 0D 0A 33 30 30 50..290 N=6..300
000100: 20 49 3D 32 0D 0A 33 31 30 20 47 4F 53 55 42 20 I=2..310 GOSUB
000110: 32 31 37 30 0D 0A 33 32 30 20 50 52 49 4E 54 0D 2170..320 PRINT.
000120: 0A 33 33 30 20 49 46 20 49 3C 3E 36 20 54 48 45 .330 IF I<>6 THE
000130: 4E 20 34 37 30 0D 0A 33 34 30 20 49 46 20 46 4E N 470..340 IF FN
000140: 41 28 30 29 3C 3D 37 20 54 48 45 4E 20 33 37 30 A(0)<=7 THEN 370
000150: 0D 0A 33 35 30 20 4C 45 54 20 58 3D 31 31 31 30 ..350 LET X=1110
000160: 30 0D 0A 33 36 30 20 47 4F 54 4F 20 34 32 30 0D 0..360 GOTO 420.
000170: 0A 33 37 30 20 49 46 20 46 4E 41 28 30 29 3C 3D .370 IF FNA(0)<=
000180: 37 20 54 48 45 4E 20 34 30 30 0D 0A 33 38 30 20 7 THEN 400..380
000190: 4C 45 54 20 58 3D 31 31 31 31 30 0D 0A 33 39 30 LET X=11110..390
0001A0: 20 47 4F 54 4F 20 34 32 30 0D 0A 34 30 30 20 49 GOTO 420..400 I
0001B0: 46 20 46 4E 41 28 30 29 3E 3D 31 20 54 48 45 4E F FNA(0)>=1 THEN
0001C0: 20 34 35 30 0D 0A 34 31 30 20 58 3D 31 31 31 31 450..410 X=1111
0001D0: 31 0D 0A 34 32 30 20 49 3D 37 0D 0A 34 33 30 20 1..420 I=7..430
0001E0: 5A 3D 32 33 0D 0A 34 34 30 20 47 4F 54 4F 20 35 Z=23..440 GOTO 5
0001F0: 38 30 0D 0A 34 35 30 20 5A 3D 31 0D 0A 34 36 30 80..450 Z=1..460
Size : 512 (Real : 512)
000000: 48 41 56 45 20 22 3B 0D 0A 31 35 37 30 20 4B 3D HAVE ";..1570 K=
000010: 44 0D 0A 31 35 38 30 20 47 4F 53 55 42 20 33 36 D..1580 GOSUB 36
000020: 39 30 0D 0A 31 35 39 30 20 48 24 3D 4A 24 0D 0A 90..1590 H$=J$..
000030: 31 36 30 30 20 49 24 3D 4B 24 0D 0A 31 36 31 30 1600 I$=K$..1610
000040: 20 4B 3D 4D 0D 0A 31 36 32 30 20 50 52 49 4E 54 K=M..1620 PRINT
000050: 20 22 41 4E 44 20 49 20 48 41 56 45 20 22 3B 0D "AND I HAVE ";.
000060: 0A 31 36 33 30 20 47 4F 53 55 42 20 33 36 39 30 .1630 GOSUB 3690
000070: 0D 0A 31 36 34 30 20 49 46 20 42 3E 55 20 54 48 ..1640 IF B>U TH
000080: 45 4E 20 36 37 30 0D 0A 31 36 35 30 20 49 46 20 EN 670..1650 IF
000090: 55 3E 42 20 54 48 45 4E 20 37 38 30 0D 0A 31 36 U>B THEN 780..16
0000A0: 36 30 20 49 46 20 48 24 3D 22 41 20 46 4C 55 53 60 IF H$="A FLUS
0000B0: 22 20 54 48 45 4E 20 31 37 30 30 0D 0A 31 36 36 " THEN 1700..166
0000C0: 32 20 49 46 20 46 4E 42 28 4D 29 3C 46 4E 42 28 2 IF FNB(M)<FNB(
0000D0: 44 29 20 54 48 45 4E 20 37 38 30 0D 0A 31 36 36 D) THEN 780..166
0000E0: 34 20 49 46 20 46 4E 42 28 4D 29 3E 46 4E 42 28 4 IF FNB(M)>FNB(
0000F0: 44 29 20 54 48 45 4E 20 36 37 30 0D 0A 31 36 37 D) THEN 670..167
000100: 30 20 50 52 49 4E 54 20 22 54 48 45 20 48 41 4E 0 PRINT "THE HAN
000110: 44 20 49 53 20 44 52 41 57 4E 2E 22 0D 0A 31 36 D IS DRAWN."..16
000120: 38 30 20 50 52 49 4E 54 20 22 41 4C 4C 20 24 22 80 PRINT "ALL $"
000130: 50 22 52 45 4D 41 49 4E 53 20 49 4E 20 54 48 45 P"REMAINS IN THE
000140: 20 50 4F 54 2E 22 0D 0A 31 36 39 30 20 47 4F 54 POT."..1690 GOT
000150: 4F 20 31 34 30 0D 0A 31 37 30 30 20 49 46 20 46 O 140..1700 IF F
000160: 4E 42 28 4D 29 3E 46 4E 42 28 44 29 20 54 48 45 NB(M)>FNB(D) THE
000170: 4E 20 36 37 30 0D 0A 31 37 31 30 20 49 46 20 46 N 670..1710 IF F
000180: 4E 42 28 44 29 3E 46 4E 42 28 4D 29 20 54 48 45 NB(D)>FNB(M) THE
000190: 4E 20 37 38 30 0D 0A 31 37 32 30 20 47 4F 54 4F N 780..1720 GOTO
0001A0: 20 31 36 37 30 0D 0A 31 37 33 30 20 5A 3D 5A 2B 1670..1730 Z=Z+
0001B0: 31 0D 0A 31 37 34 30 20 41 28 5A 29 3D 31 30 30 1..1740 A(Z)=100
0001C0: 2A 49 4E 54 28 34 2A 52 4E 44 28 31 29 29 2B 49 *INT(4*RND(1))+I
0001D0: 4E 54 28 31 30 30 2A 52 4E 44 28 31 29 29 0D 0A NT(100*RND(1))..
0001E0: 31 37 35 30 20 49 46 20 49 4E 54 28 41 28 5A 29 1750 IF INT(A(Z)
0001F0: 2F 31 30 30 29 3E 33 20 54 48 45 4E 20 31 37 34 /100)>3 THEN 174
Size : 512 (Real : 512)
000000: 20 47 4F 54 4F 20 35 31 30 0D 0A 34 37 30 20 49 GOTO 510..470 I
000010: 46 20 55 3E 3D 31 33 20 54 48 45 4E 20 35 34 30 F U>=13 THEN 540
000020: 0D 0A 34 38 30 20 49 46 20 46 4E 41 28 30 29 3E ..480 IF FNA(0)>
000030: 3D 32 20 54 48 45 4E 20 35 30 30 0D 0A 34 39 30 =2 THEN 500..490
000040: 20 47 4F 54 4F 20 34 32 30 0D 0A 35 30 30 20 5A GOTO 420..500 Z
000050: 3D 30 0D 0A 35 31 30 20 4B 3D 30 0D 0A 35 32 30 =0..510 K=0..520
000060: 20 50 52 49 4E 54 20 22 49 20 43 48 45 43 4B 2E PRINT "I CHECK.
000070: 22 0D 0A 35 33 30 20 47 4F 54 4F 20 36 32 30 0D "..530 GOTO 620.
000080: 0A 35 34 30 20 49 46 20 55 3C 3D 31 36 20 54 48 .540 IF U<=16 TH
000090: 45 4E 20 35 37 30 0D 0A 35 35 30 20 5A 3D 32 0D EN 570..550 Z=2.
0000A0: 0A 35 36 30 20 49 46 20 46 4E 41 28 30 29 3E 3D .560 IF FNA(0)>=
0000B0: 31 20 54 48 45 4E 20 35 38 30 0D 0A 35 37 30 20 1 THEN 580..570
0000C0: 5A 3D 33 35 0D 0A 35 38 30 20 56 3D 5A 2B 46 4E Z=35..580 V=Z+FN
0000D0: 41 28 30 29 0D 0A 35 39 30 20 47 4F 53 55 42 20 A(0)..590 GOSUB
0000E0: 33 34 38 30 0D 0A 36 30 30 20 50 52 49 4E 54 20 3480..600 PRINT
0000F0: 22 49 27 4C 4C 20 4F 50 45 4E 20 57 49 54 48 20 "I'LL OPEN WITH
000100: 24 22 56 0D 0A 36 31 30 20 4B 3D 56 0D 0A 36 32 $"V..610 K=V..62
000110: 30 20 47 4F 53 55 42 20 33 30 35 30 0D 0A 36 33 0 GOSUB 3050..63
000120: 30 20 47 4F 53 55 42 20 36 35 30 0D 0A 36 34 30 0 GOSUB 650..640
000130: 20 47 4F 54 4F 20 38 32 30 0D 0A 36 35 30 20 49 GOTO 820..650 I
000140: 46 20 49 3C 3E 33 20 54 48 45 4E 20 37 36 30 0D F I<>3 THEN 760.
000150: 0A 36 36 30 20 50 52 49 4E 54 0D 0A 36 37 30 20 .660 PRINT..670
000160: 50 52 49 4E 54 20 22 49 20 57 49 4E 2E 22 0D 0A PRINT "I WIN."..
000170: 36 38 30 20 43 3D 43 2B 50 0D 0A 36 39 30 20 50 680 C=C+P..690 P
000180: 52 49 4E 54 20 22 4E 4F 57 20 49 20 48 41 56 45 RINT "NOW I HAVE
000190: 20 24 22 43 22 41 4E 44 20 59 4F 55 20 48 41 56 $"C"AND YOU HAV
0001A0: 45 20 24 22 53 0D 0A 37 30 30 20 50 52 49 4E 54 E $"S..700 PRINT
0001B0: 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F "DO YOU WISH TO
0001C0: 20 43 4F 4E 54 49 4E 55 45 22 3B 0D 0A 37 31 30 CONTINUE";..710
0001D0: 20 49 4E 50 55 54 20 48 24 0D 0A 37 32 30 20 49 INPUT H$..720 I
0001E0: 46 20 48 24 3D 22 59 45 53 22 20 54 48 45 4E 20 F H$="YES" THEN
0001F0: 31 32 30 0D 0A 37 33 30 20 49 46 20 48 24 3D 22 120..730 IF H$="
Size : 512 (Real : 512)
000000: 30 0D 0A 31 37 36 30 20 49 46 20 41 28 5A 29 2D 0..1760 IF A(Z)-
000010: 31 30 30 2A 49 4E 54 28 41 28 5A 29 2F 31 30 30 100*INT(A(Z)/100
000020: 29 3E 31 32 20 54 48 45 4E 20 31 37 34 30 0D 0A )>12 THEN 1740..
000030: 31 37 36 35 20 49 46 20 5A 3D 31 20 54 48 45 4E 1765 IF Z=1 THEN
000040: 20 31 38 34 30 0D 0A 31 37 37 30 20 46 4F 52 20 1840..1770 FOR
000050: 4B 3D 31 20 54 4F 20 5A 2D 31 0D 0A 31 37 38 30 K=1 TO Z-1..1780
000060: 20 49 46 20 41 28 5A 29 3D 41 28 4B 29 20 54 48 IF A(Z)=A(K) TH
000070: 45 4E 20 31 37 34 30 0D 0A 31 37 39 30 20 4E 45 EN 1740..1790 NE
000080: 58 54 20 4B 0D 0A 31 38 30 30 20 49 46 20 5A 3C XT K..1800 IF Z<
000090: 3D 31 30 20 54 48 45 4E 20 31 38 34 30 0D 0A 31 =10 THEN 1840..1
0000A0: 38 31 30 20 4E 3D 41 28 55 29 0D 0A 31 38 32 30 810 N=A(U)..1820
0000B0: 20 41 28 55 29 3D 41 28 5A 29 0D 0A 31 38 33 30 A(U)=A(Z)..1830
0000C0: 20 41 28 5A 29 3D 4E 0D 0A 31 38 34 30 20 52 45 A(Z)=N..1840 RE
0000D0: 54 55 52 4E 0D 0A 31 38 35 30 20 46 4F 52 20 5A TURN..1850 FOR Z
0000E0: 3D 4E 20 54 4F 20 4E 2B 34 0D 0A 31 38 36 30 20 =N TO N+4..1860
0000F0: 50 52 49 4E 54 20 5A 22 2D 2D 20 20 22 3B 0D 0A PRINT Z"-- ";..
000100: 31 38 37 30 20 47 4F 53 55 42 20 31 39 35 30 0D 1870 GOSUB 1950.
000110: 0A 31 38 38 30 20 50 52 49 4E 54 20 22 20 4F 46 .1880 PRINT " OF
000120: 22 3B 0D 0A 31 38 39 30 20 47 4F 53 55 42 20 32 ";..1890 GOSUB 2
000130: 30 37 30 0D 0A 31 39 30 30 20 49 46 20 5A 2F 32 070..1900 IF Z/2
000140: 3C 3E 49 4E 54 28 5A 2F 32 29 20 54 48 45 4E 20 <>INT(Z/2) THEN
000150: 31 39 32 30 0D 0A 31 39 31 30 20 50 52 49 4E 54 1920..1910 PRINT
000160: 0D 0A 31 39 32 30 20 4E 45 58 54 20 5A 0D 0A 31 ..1920 NEXT Z..1
000170: 39 33 30 20 50 52 49 4E 54 0D 0A 31 39 34 30 20 930 PRINT..1940
000180: 52 45 54 55 52 4E 0D 0A 31 39 35 30 20 4B 3D 46 RETURN..1950 K=F
000190: 4E 42 28 41 28 5A 29 29 0D 0A 31 39 36 30 20 49 NB(A(Z))..1960 I
0001A0: 46 20 4B 3C 3E 39 20 54 48 45 4E 20 31 39 38 30 F K<>9 THEN 1980
0001B0: 0D 0A 31 39 37 30 20 50 52 49 4E 54 20 22 4A 41 ..1970 PRINT "JA
0001C0: 43 4B 22 3B 0D 0A 31 39 38 30 20 49 46 20 4B 3C CK";..1980 IF K<
0001D0: 3E 31 30 20 54 48 45 4E 20 32 30 30 30 0D 0A 31 >10 THEN 2000..1
0001E0: 39 39 30 20 50 52 49 4E 54 20 22 51 55 45 45 4E 990 PRINT "QUEEN
0001F0: 22 3B 0D 0A 32 30 30 30 20 49 46 20 4B 3C 3E 31 ";..2000 IF K<>1
Size : 512 (Real : 512)
000000: 4E 4F 22 20 54 48 45 4E 20 34 31 30 30 0D 0A 37 NO" THEN 4100..7
000010: 34 30 20 50 52 49 4E 54 20 22 41 4E 53 57 45 52 40 PRINT "ANSWER
000020: 20 59 45 53 20 4F 52 20 4E 4F 2C 20 50 4C 45 41 YES OR NO, PLEA
000030: 53 45 2E 22 0D 0A 37 35 30 20 47 4F 54 4F 20 37 SE."..750 GOTO 7
000040: 30 30 0D 0A 37 36 30 20 49 46 20 49 3C 3E 34 20 00..760 IF I<>4
000050: 54 48 45 4E 20 38 31 30 0D 0A 37 37 30 20 50 52 THEN 810..770 PR
000060: 49 4E 54 0D 0A 37 38 30 20 50 52 49 4E 54 20 22 INT..780 PRINT "
000070: 59 4F 55 20 57 49 4E 2E 22 0D 0A 37 39 30 20 53 YOU WIN."..790 S
000080: 3D 53 2B 50 0D 0A 38 30 30 20 47 4F 54 4F 20 36 =S+P..800 GOTO 6
000090: 39 30 0D 0A 38 31 30 20 52 45 54 55 52 4E 0D 0A 90..810 RETURN..
0000A0: 38 32 30 20 50 52 49 4E 54 0D 0A 38 33 30 20 50 820 PRINT..830 P
0000B0: 52 49 4E 54 20 22 4E 4F 57 20 57 45 20 44 52 41 RINT "NOW WE DRA
0000C0: 57 20 2D 2D 20 48 4F 57 20 4D 41 4E 59 20 43 41 W -- HOW MANY CA
0000D0: 52 44 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 22 RDS DO YOU WANT"
0000E0: 3B 0D 0A 38 34 30 20 49 4E 50 55 54 20 54 0D 0A ;..840 INPUT T..
0000F0: 38 35 30 20 49 46 20 54 3D 30 20 54 48 45 4E 20 850 IF T=0 THEN
000100: 39 38 30 0D 0A 38 36 30 20 5A 3D 31 30 0D 0A 38 980..860 Z=10..8
000110: 37 30 20 49 46 20 54 3C 34 20 54 48 45 4E 20 39 70 IF T<4 THEN 9
000120: 30 30 0D 0A 38 38 30 20 50 52 49 4E 54 20 22 59 00..880 PRINT "Y
000130: 4F 55 20 43 41 4E 27 54 20 44 52 41 57 20 4D 4F OU CAN'T DRAW MO
000140: 52 45 20 54 48 41 4E 20 54 48 52 45 45 20 43 41 RE THAN THREE CA
000150: 52 44 53 2E 22 0D 0A 38 39 30 20 47 4F 54 4F 20 RDS."..890 GOTO
000160: 38 34 30 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 840..900 PRINT "
000170: 57 48 41 54 20 41 52 45 20 54 48 45 49 52 20 4E WHAT ARE THEIR N
000180: 55 4D 42 45 52 53 3A 22 0D 0A 39 31 30 20 46 4F UMBERS:"..910 FO
000190: 52 20 51 3D 31 20 54 4F 20 54 0D 0A 39 32 30 20 R Q=1 TO T..920
0001A0: 49 4E 50 55 54 20 55 0D 0A 39 33 30 20 47 4F 53 INPUT U..930 GOS
0001B0: 55 42 20 31 37 33 30 0D 0A 39 34 30 20 4E 45 58 UB 1730..940 NEX
0001C0: 54 20 51 0D 0A 39 35 30 20 50 52 49 4E 54 20 22 T Q..950 PRINT "
0001D0: 59 4F 55 52 20 4E 45 57 20 48 41 4E 44 3A 22 0D YOUR NEW HAND:".
0001E0: 0A 39 36 30 20 4E 3D 31 0D 0A 39 37 30 20 47 4F .960 N=1..970 GO
0001F0: 53 55 42 20 31 38 35 30 0D 0A 39 38 30 20 5A 3D SUB 1850..980 Z=
Size : 512 (Real : 512)
000000: 31 20 54 48 45 4E 20 32 30 32 30 0D 0A 32 30 31 1 THEN 2020..201
000010: 30 20 50 52 49 4E 54 20 22 4B 49 4E 47 22 3B 0D 0 PRINT "KING";.
000020: 0A 32 30 32 30 20 49 46 20 4B 3C 3E 31 32 20 54 .2020 IF K<>12 T
000030: 48 45 4E 20 32 30 34 30 0D 0A 32 30 33 30 20 50 HEN 2040..2030 P
000040: 52 49 4E 54 20 22 41 43 45 22 3B 0D 0A 32 30 34 RINT "ACE";..204
000050: 30 20 49 46 20 4B 3E 3D 39 20 54 48 45 4E 20 32 0 IF K>=9 THEN 2
000060: 30 36 30 0D 0A 32 30 35 30 20 50 52 49 4E 54 20 060..2050 PRINT
000070: 4B 2B 32 3B 0D 0A 32 30 36 30 20 52 45 54 55 52 K+2;..2060 RETUR
000080: 4E 0D 0A 32 30 37 30 20 4B 3D 49 4E 54 28 41 28 N..2070 K=INT(A(
000090: 5A 29 2F 31 30 30 29 0D 0A 32 30 38 30 20 49 46 Z)/100)..2080 IF
0000A0: 20 4B 3C 3E 30 20 54 48 45 4E 20 32 31 30 30 0D K<>0 THEN 2100.
0000B0: 0A 32 30 39 30 20 50 52 49 4E 54 20 22 20 43 4C .2090 PRINT " CL
0000C0: 55 42 53 22 2C 0D 0A 32 31 30 30 20 49 46 20 4B UBS",..2100 IF K
0000D0: 3C 3E 31 20 54 48 45 4E 20 32 31 32 30 0D 0A 32 <>1 THEN 2120..2
0000E0: 31 31 30 20 50 52 49 4E 54 20 22 20 44 49 41 4D 110 PRINT " DIAM
0000F0: 4F 4E 44 53 22 2C 0D 0A 32 31 32 30 20 49 46 20 ONDS",..2120 IF
000100: 4B 3C 3E 32 20 54 48 45 4E 20 32 31 34 30 0D 0A K<>2 THEN 2140..
000110: 32 31 33 30 20 50 52 49 4E 54 20 22 20 48 45 41 2130 PRINT " HEA
000120: 52 54 53 22 2C 0D 0A 32 31 34 30 20 49 46 20 4B RTS",..2140 IF K
000130: 3C 3E 33 20 54 48 45 4E 20 32 31 36 30 0D 0A 32 <>3 THEN 2160..2
000140: 31 35 30 20 50 52 49 4E 54 20 22 20 53 50 41 44 150 PRINT " SPAD
000150: 45 53 22 2C 0D 0A 32 31 36 30 20 52 45 54 55 52 ES",..2160 RETUR
000160: 4E 0D 0A 32 31 37 30 20 55 3D 30 0D 0A 32 31 38 N..2170 U=0..218
000170: 30 20 46 4F 52 20 5A 3D 4E 20 54 4F 20 4E 2B 34 0 FOR Z=N TO N+4
000180: 0D 0A 32 31 39 30 20 42 28 5A 29 3D 46 4E 42 28 ..2190 B(Z)=FNB(
000190: 41 28 5A 29 29 0D 0A 32 32 30 30 20 49 46 20 5A A(Z))..2200 IF Z
0001A0: 3D 4E 2B 34 20 54 48 45 4E 20 32 32 33 30 0D 0A =N+4 THEN 2230..
0001B0: 32 32 31 30 20 49 46 20 49 4E 54 28 41 28 5A 29 2210 IF INT(A(Z)
0001C0: 2F 31 30 30 29 3C 3E 49 4E 54 28 41 28 5A 2B 31 /100)<>INT(A(Z+1
0001D0: 29 2F 31 30 30 29 20 54 48 45 4E 20 32 32 33 30 )/100) THEN 2230
0001E0: 0D 0A 32 32 32 30 20 55 3D 55 2B 31 0D 0A 32 32 ..2220 U=U+1..22
0001F0: 33 30 20 4E 45 58 54 20 5A 0D 0A 32 32 34 30 20 30 NEXT Z..2240
Size : 512 (Real : 512)
000000: 31 30 2B 54 0D 0A 39 39 30 20 46 4F 52 20 55 3D 10+T..990 FOR U=
000010: 36 20 54 4F 20 31 30 0D 0A 31 30 30 30 20 49 46 6 TO 10..1000 IF
000020: 20 49 4E 54 28 58 2F 31 30 5E 28 55 2D 36 29 29 INT(X/10^(U-6))
000030: 3C 3E 31 30 2A 49 4E 54 28 58 2F 31 30 5E 28 55 <>10*INT(X/10^(U
000040: 2D 35 29 29 20 54 48 45 4E 20 31 30 32 30 0D 0A -5)) THEN 1020..
000050: 31 30 31 30 20 47 4F 53 55 42 20 31 37 33 30 0D 1010 GOSUB 1730.
000060: 0A 31 30 32 30 20 4E 45 58 54 20 55 0D 0A 31 30 .1020 NEXT U..10
000070: 33 30 20 50 52 49 4E 54 0D 0A 31 30 34 30 20 50 30 PRINT..1040 P
000080: 52 49 4E 54 20 22 49 20 41 4D 20 54 41 4B 49 4E RINT "I AM TAKIN
000090: 47 22 5A 2D 31 30 2D 54 22 43 41 52 44 22 3B 0D G"Z-10-T"CARD";.
0000A0: 0A 31 30 35 30 20 49 46 20 5A 3D 31 31 2B 54 20 .1050 IF Z=11+T
0000B0: 54 48 45 4E 20 31 30 39 30 0D 0A 31 30 36 30 20 THEN 1090..1060
0000C0: 50 52 49 4E 54 20 22 53 22 0D 0A 31 30 37 30 20 PRINT "S"..1070
0000D0: 50 52 49 4E 54 0D 0A 31 30 38 30 20 47 4F 54 4F PRINT..1080 GOTO
0000E0: 20 31 31 30 30 0D 0A 31 30 39 30 20 50 52 49 4E 1100..1090 PRIN
0000F0: 54 0D 0A 31 31 30 30 20 4E 3D 36 0D 0A 31 31 31 T..1100 N=6..111
000100: 30 20 56 3D 49 0D 0A 31 31 32 30 20 49 3D 31 0D 0 V=I..1120 I=1.
000110: 0A 31 31 33 30 20 47 4F 53 55 42 20 32 31 37 30 .1130 GOSUB 2170
000120: 0D 0A 31 31 34 30 20 42 3D 55 0D 0A 31 31 35 30 ..1140 B=U..1150
000130: 20 4D 3D 44 0D 0A 31 31 36 30 20 49 46 20 56 3C M=D..1160 IF V<
000140: 3E 37 20 54 48 45 4E 20 31 31 39 30 0D 0A 31 31 >7 THEN 1190..11
000150: 37 30 20 5A 3D 32 38 0D 0A 31 31 38 30 20 47 4F 70 Z=28..1180 GO
000160: 54 4F 20 31 33 33 30 0D 0A 31 31 39 30 20 49 46 TO 1330..1190 IF
000170: 20 49 3C 3E 36 20 54 48 45 4E 20 31 32 32 30 0D I<>6 THEN 1220.
000180: 0A 31 32 30 30 20 5A 3D 31 0D 0A 31 32 31 30 20 .1200 Z=1..1210
000190: 47 4F 54 4F 20 31 33 33 30 0D 0A 31 32 32 30 20 GOTO 1330..1220
0001A0: 49 46 20 55 3E 3D 31 33 20 54 48 45 4E 20 31 32 IF U>=13 THEN 12
0001B0: 37 30 0D 0A 31 32 33 30 20 5A 3D 32 0D 0A 31 32 70..1230 Z=2..12
0001C0: 34 30 20 49 46 20 46 4E 41 28 30 29 3C 3E 36 20 40 IF FNA(0)<>6
0001D0: 54 48 45 4E 20 31 32 36 30 0D 0A 31 32 35 30 20 THEN 1260..1250
0001E0: 5A 3D 31 39 0D 0A 31 32 36 30 20 47 4F 54 4F 20 Z=19..1260 GOTO
0001F0: 31 33 33 30 0D 0A 31 32 37 30 20 49 46 20 55 3E 1330..1270 IF U>
Size : 512 (Real : 512)
000000: 49 46 20 55 3C 3E 34 20 54 48 45 4E 20 32 33 31 IF U<>4 THEN 231
000010: 30 0D 0A 32 32 35 30 20 58 3D 31 31 31 31 31 0D 0..2250 X=11111.
000020: 0A 32 32 36 30 20 44 3D 41 28 4E 29 0D 0A 32 32 .2260 D=A(N)..22
000030: 37 30 20 48 24 3D 22 41 20 46 4C 55 53 22 0D 0A 70 H$="A FLUS"..
000040: 32 32 38 30 20 49 24 3D 22 48 20 49 4E 22 0D 0A 2280 I$="H IN"..
000050: 32 32 39 30 20 55 3D 31 35 0D 0A 32 33 30 30 20 2290 U=15..2300
000060: 52 45 54 55 52 4E 0D 0A 32 33 31 30 20 46 4F 52 RETURN..2310 FOR
000070: 20 5A 3D 4E 20 54 4F 20 4E 2B 33 0D 0A 32 33 32 Z=N TO N+3..232
000080: 30 20 46 4F 52 20 4B 3D 5A 2B 31 20 54 4F 20 4E 0 FOR K=Z+1 TO N
000090: 2B 34 0D 0A 32 33 33 30 20 49 46 20 42 28 5A 29 +4..2330 IF B(Z)
0000A0: 3C 3D 42 28 4B 29 20 54 48 45 4E 20 32 33 39 30 <=B(K) THEN 2390
0000B0: 0D 0A 32 33 34 30 20 58 3D 41 28 5A 29 0D 0A 32 ..2340 X=A(Z)..2
0000C0: 33 35 30 20 41 28 5A 29 3D 41 28 4B 29 0D 0A 32 350 A(Z)=A(K)..2
0000D0: 33 36 30 20 42 28 5A 29 3D 42 28 4B 29 0D 0A 32 360 B(Z)=B(K)..2
0000E0: 33 37 30 20 41 28 4B 29 3D 58 0D 0A 32 33 38 30 370 A(K)=X..2380
0000F0: 20 42 28 4B 29 3D 41 28 4B 29 2D 31 30 30 2A 49 B(K)=A(K)-100*I
000100: 4E 54 28 41 28 4B 29 2F 31 30 30 29 0D 0A 32 33 NT(A(K)/100)..23
000110: 39 30 20 4E 45 58 54 20 4B 0D 0A 32 34 30 30 20 90 NEXT K..2400
000120: 4E 45 58 54 20 5A 0D 0A 32 34 31 30 20 58 3D 30 NEXT Z..2410 X=0
000130: 0D 0A 32 34 32 30 20 46 4F 52 20 5A 3D 4E 20 54 ..2420 FOR Z=N T
000140: 4F 20 4E 2B 33 0D 0A 32 34 33 30 20 49 46 20 42 O N+3..2430 IF B
000150: 28 5A 29 3C 3E 42 28 5A 2B 31 29 20 54 48 45 4E (Z)<>B(Z+1) THEN
000160: 20 32 34 37 30 0D 0A 32 34 34 30 20 58 3D 58 2B 2470..2440 X=X+
000170: 31 31 2A 31 30 5E 28 5A 2D 4E 29 0D 0A 32 34 35 11*10^(Z-N)..245
000180: 30 20 44 3D 41 28 5A 29 0D 0A 32 34 36 30 20 47 0 D=A(Z)..2460 G
000190: 4F 53 55 42 20 32 37 36 30 0D 0A 32 34 37 30 20 OSUB 2760..2470
0001A0: 4E 45 58 54 20 5A 0D 0A 32 34 38 30 20 49 46 20 NEXT Z..2480 IF
0001B0: 58 3C 3E 30 20 54 48 45 4E 20 32 36 32 30 0D 0A X<>0 THEN 2620..
0001C0: 32 34 39 30 20 49 46 20 42 28 4E 29 2B 33 3C 3E 2490 IF B(N)+3<>
0001D0: 42 28 4E 2B 33 29 20 54 48 45 4E 20 32 35 32 30 B(N+3) THEN 2520
0001E0: 0D 0A 32 35 30 30 20 58 3D 31 31 31 31 0D 0A 32 ..2500 X=1111..2
0001F0: 35 31 30 20 55 3D 31 30 0D 0A 32 35 32 30 20 49 510 U=10..2520 I
Size : 512 (Real : 512)
000000: 3D 31 36 20 54 48 45 4E 20 31 33 32 30 0D 0A 31 =16 THEN 1320..1
000010: 32 38 30 20 5A 3D 31 39 0D 0A 31 32 39 30 20 49 280 Z=19..1290 I
000020: 46 20 46 4E 41 28 30 29 3C 3E 38 20 54 48 45 4E F FNA(0)<>8 THEN
000030: 20 31 33 31 30 0D 0A 31 33 30 30 20 5A 3D 31 31 1310..1300 Z=11
000040: 0D 0A 31 33 31 30 20 47 4F 54 4F 20 31 33 33 30 ..1310 GOTO 1330
000050: 0D 0A 31 33 32 30 20 5A 3D 32 0D 0A 31 33 33 30 ..1320 Z=2..1330
000060: 20 4B 3D 30 0D 0A 31 33 34 30 20 47 4F 53 55 42 K=0..1340 GOSUB
000070: 20 33 30 35 30 0D 0A 31 33 35 30 20 49 46 20 54 3050..1350 IF T
000080: 3C 3E 2E 35 20 54 48 45 4E 20 31 34 35 30 0D 0A <>.5 THEN 1450..
000090: 31 33 36 30 20 49 46 20 56 3D 37 20 54 48 45 4E 1360 IF V=7 THEN
0000A0: 20 31 34 30 30 0D 0A 31 33 37 30 20 49 46 20 49 1400..1370 IF I
0000B0: 3C 3E 36 20 54 48 45 4E 20 31 34 30 30 0D 0A 31 <>6 THEN 1400..1
0000C0: 33 38 30 20 50 52 49 4E 54 20 22 49 27 4C 4C 20 380 PRINT "I'LL
0000D0: 43 48 45 43 4B 22 0D 0A 31 33 39 30 20 47 4F 54 CHECK"..1390 GOT
0000E0: 4F 20 31 34 36 30 0D 0A 31 34 30 30 20 56 3D 5A O 1460..1400 V=Z
0000F0: 2B 46 4E 41 28 30 29 0D 0A 31 34 31 30 20 47 4F +FNA(0)..1410 GO
000100: 53 55 42 20 33 34 38 30 0D 0A 31 34 32 30 20 50 SUB 3480..1420 P
000110: 52 49 4E 54 20 22 49 27 4C 4C 20 42 45 54 20 24 RINT "I'LL BET $
000120: 22 56 0D 0A 31 34 33 30 20 4B 3D 56 0D 0A 31 34 "V..1430 K=V..14
000130: 34 30 20 47 4F 53 55 42 20 33 30 36 30 0D 0A 31 40 GOSUB 3060..1
000140: 34 35 30 20 47 4F 53 55 42 20 36 35 30 0D 0A 31 450 GOSUB 650..1
000150: 34 36 30 20 50 52 49 4E 54 0D 0A 31 34 37 30 20 460 PRINT..1470
000160: 50 52 49 4E 54 20 22 4E 4F 57 20 57 45 20 43 4F PRINT "NOW WE CO
000170: 4D 50 41 52 45 20 48 41 4E 44 53 3A 22 0D 0A 31 MPARE HANDS:"..1
000180: 34 38 30 20 4A 24 3D 48 24 0D 0A 31 34 39 30 20 480 J$=H$..1490
000190: 4B 24 3D 49 24 0D 0A 31 35 30 30 20 50 52 49 4E K$=I$..1500 PRIN
0001A0: 54 20 22 4D 59 20 48 41 4E 44 3A 22 0D 0A 31 35 T "MY HAND:"..15
0001B0: 31 30 20 4E 3D 36 0D 0A 31 35 32 30 20 47 4F 53 10 N=6..1520 GOS
0001C0: 55 42 20 31 38 35 30 0D 0A 31 35 33 30 20 4E 3D UB 1850..1530 N=
0001D0: 31 0D 0A 31 35 34 30 20 47 4F 53 55 42 20 32 31 1..1540 GOSUB 21
0001E0: 37 30 0D 0A 31 35 35 30 20 50 52 49 4E 54 0D 0A 70..1550 PRINT..
0001F0: 31 35 36 30 20 50 52 49 4E 54 20 22 59 4F 55 20 1560 PRINT "YOU
Size : 512 (Real : 512)
000000: 46 20 42 28 4E 2B 31 29 2B 33 3C 3E 42 28 4E 2B F B(N+1)+3<>B(N+
000010: 34 29 20 54 48 45 4E 20 32 36 32 30 0D 0A 32 35 4) THEN 2620..25
000020: 33 30 20 49 46 20 55 3C 3E 31 30 20 54 48 45 4E 30 IF U<>10 THEN
000030: 20 32 36 30 30 0D 0A 32 35 34 30 20 55 3D 31 34 2600..2540 U=14
000040: 0D 0A 32 35 35 30 20 48 24 3D 22 53 54 52 41 49 ..2550 H$="STRAI
000050: 47 22 0D 0A 32 35 36 30 20 49 24 3D 22 48 54 22 G"..2560 I$="HT"
000060: 0D 0A 32 35 37 30 20 58 3D 31 31 31 31 31 0D 0A ..2570 X=11111..
000070: 32 35 38 30 20 44 3D 41 28 4E 2B 34 29 0D 0A 32 2580 D=A(N+4)..2
000080: 35 39 30 20 52 45 54 55 52 4E 0D 0A 32 36 30 30 590 RETURN..2600
000090: 20 55 3D 31 30 0D 0A 32 36 31 30 20 58 3D 31 31 U=10..2610 X=11
0000A0: 31 31 30 0D 0A 32 36 32 30 20 49 46 20 55 3E 3D 110..2620 IF U>=
0000B0: 31 30 20 54 48 45 4E 20 32 36 39 30 0D 0A 32 36 10 THEN 2690..26
0000C0: 33 30 20 44 3D 41 28 4E 2B 34 29 0D 0A 32 36 34 30 D=A(N+4)..264
0000D0: 30 20 48 24 3D 22 53 43 48 4D 41 4C 22 0D 0A 32 0 H$="SCHMAL"..2
0000E0: 36 35 30 20 49 24 3D 22 54 5A 2C 20 22 0D 0A 32 650 I$="TZ, "..2
0000F0: 36 36 30 20 55 3D 39 0D 0A 32 36 37 30 20 58 3D 660 U=9..2670 X=
000100: 31 31 30 30 30 0D 0A 32 36 38 30 20 47 4F 54 4F 11000..2680 GOTO
000110: 20 32 37 34 30 0D 0A 32 36 39 30 20 49 46 20 55 2740..2690 IF U
000120: 3C 3E 31 30 20 54 48 45 4E 20 32 37 32 30 0D 0A <>10 THEN 2720..
000130: 32 37 30 30 20 49 46 20 49 3D 31 20 54 48 45 4E 2700 IF I=1 THEN
000140: 20 32 37 34 30 0D 0A 32 37 31 30 20 47 4F 54 4F 2740..2710 GOTO
000150: 20 32 37 35 30 0D 0A 32 37 32 30 20 49 46 20 55 2750..2720 IF U
000160: 3E 31 32 20 54 48 45 4E 20 32 37 35 30 0D 0A 32 >12 THEN 2750..2
000170: 37 33 30 20 49 46 20 46 4E 42 28 44 29 3E 36 20 730 IF FNB(D)>6
000180: 54 48 45 4E 20 32 37 35 30 0D 0A 32 37 34 30 20 THEN 2750..2740
000190: 49 3D 36 0D 0A 32 37 35 30 20 52 45 54 55 52 4E I=6..2750 RETURN
0001A0: 0D 0A 32 37 36 30 20 49 46 20 55 3E 3D 31 31 20 ..2760 IF U>=11
0001B0: 54 48 45 4E 20 32 38 31 30 0D 0A 32 37 37 30 20 THEN 2810..2770
0001C0: 55 3D 31 31 0D 0A 32 37 38 30 20 48 24 3D 22 41 U=11..2780 H$="A
0001D0: 20 50 41 49 52 22 0D 0A 32 37 39 30 20 49 24 3D PAIR"..2790 I$=
0001E0: 22 20 4F 46 20 22 0D 0A 32 38 30 30 20 52 45 54 " OF "..2800 RET
0001F0: 55 52 4E 0D 0A 32 38 31 30 20 49 46 20 55 3C 3E URN..2810 IF U<>
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 27 53 22 0D 0A 33 38 32 30 PRINT "'S"..3820
000010: 20 52 45 54 55 52 4E 0D 0A 33 38 33 30 20 50 52 RETURN..3830 PR
000020: 49 4E 54 0D 0A 33 38 34 30 20 50 52 49 4E 54 20 INT..3840 PRINT
000030: 22 59 4F 55 20 43 41 4E 27 54 20 42 45 54 20 57 "YOU CAN'T BET W
000040: 49 54 48 20 57 48 41 54 20 59 4F 55 20 48 41 56 ITH WHAT YOU HAV
000050: 45 4E 27 54 20 47 4F 54 2E 22 0D 0A 33 38 35 30 EN'T GOT."..3850
000060: 20 49 46 20 4F 2F 32 3D 49 4E 54 28 4F 2F 32 29 IF O/2=INT(O/2)
000070: 20 54 48 45 4E 20 33 39 37 30 0D 0A 33 38 36 30 THEN 3970..3860
000080: 20 50 52 49 4E 54 20 22 57 4F 55 4C 44 20 59 4F PRINT "WOULD YO
000090: 55 20 4C 49 4B 45 20 54 4F 20 53 45 4C 4C 20 59 U LIKE TO SELL Y
0000A0: 4F 55 52 20 57 41 54 43 48 22 3B 0D 0A 33 38 37 OUR WATCH";..387
0000B0: 30 20 49 4E 50 55 54 20 4A 24 0D 0A 33 38 38 30 0 INPUT J$..3880
0000C0: 20 49 46 20 4C 45 46 54 24 28 4A 24 2C 31 29 3D IF LEFT$(J$,1)=
0000D0: 22 4E 22 20 54 48 45 4E 20 33 39 37 30 0D 0A 33 "N" THEN 3970..3
0000E0: 38 39 30 20 49 46 20 46 4E 41 28 30 29 3E 3D 37 890 IF FNA(0)>=7
0000F0: 20 54 48 45 4E 20 33 39 33 30 0D 0A 33 39 30 30 THEN 3930..3900
000100: 20 50 52 49 4E 54 20 22 49 27 4C 4C 20 47 49 56 PRINT "I'LL GIV
000110: 45 20 59 4F 55 20 24 37 35 20 46 4F 52 20 49 54 E YOU $75 FOR IT
000120: 2E 22 0D 0A 33 39 31 30 20 53 3D 53 2B 37 35 0D ."..3910 S=S+75.
000130: 0A 33 39 32 30 20 47 4F 54 4F 20 33 39 35 30 0D .3920 GOTO 3950.
000140: 0A 33 39 33 30 20 50 52 49 4E 54 20 22 54 48 41 .3930 PRINT "THA
000150: 54 27 53 20 41 20 50 52 45 54 54 59 20 43 52 55 T'S A PRETTY CRU
000160: 4D 4D 59 20 57 41 54 43 48 20 2D 20 49 27 4C 4C MMY WATCH - I'LL
000170: 20 47 49 56 45 20 59 4F 55 20 24 32 35 2E 22 0D GIVE YOU $25.".
000180: 0A 33 39 34 30 20 53 3D 53 2B 32 35 0D 0A 33 39 .3940 S=S+25..39
000190: 35 30 20 4F 3D 4F 2A 32 0D 0A 33 39 36 30 20 52 50 O=O*2..3960 R
0001A0: 45 54 55 52 4E 0D 0A 33 39 37 30 20 49 46 20 4F ETURN..3970 IF O
0001B0: 2F 33 3C 3E 49 4E 54 28 4F 2F 33 29 20 54 48 45 /3<>INT(O/3) THE
0001C0: 4E 20 34 30 39 30 0D 0A 33 39 38 30 20 50 52 49 N 4090..3980 PRI
0001D0: 4E 54 20 22 57 49 4C 4C 20 59 4F 55 20 50 41 52 NT "WILL YOU PAR
0001E0: 54 20 57 49 54 48 20 54 48 41 54 20 44 49 41 4D T WITH THAT DIAM
0001F0: 4F 4E 44 20 54 49 45 20 54 41 43 4B 22 3A 0D 0A OND TIE TACK":..
Size : 512 (Real : 512)
000000: 31 31 20 54 48 45 4E 20 32 39 31 30 0D 0A 32 38 11 THEN 2910..28
000010: 32 30 20 49 46 20 42 28 5A 29 3C 3E 42 28 5A 2D 20 IF B(Z)<>B(Z-
000020: 31 29 20 54 48 45 4E 20 32 38 37 30 0D 0A 32 38 1) THEN 2870..28
000030: 33 30 20 48 24 3D 22 54 48 52 45 45 22 0D 0A 32 30 H$="THREE"..2
000040: 38 34 30 20 49 24 3D 22 20 22 0D 0A 32 38 35 30 840 I$=" "..2850
000050: 20 55 3D 31 33 0D 0A 32 38 36 30 20 52 45 54 55 U=13..2860 RETU
000060: 52 4E 0D 0A 32 38 37 30 20 48 24 3D 22 54 57 4F RN..2870 H$="TWO
000070: 20 50 22 0D 0A 32 38 38 30 20 49 24 3D 22 41 49 P"..2880 I$="AI
000080: 52 2C 20 22 0D 0A 32 38 39 30 20 55 3D 31 32 0D R, "..2890 U=12.
000090: 0A 32 39 30 30 20 52 45 54 55 52 4E 0D 0A 32 39 .2900 RETURN..29
0000A0: 31 30 20 49 46 20 55 3E 31 32 20 54 48 45 4E 20 10 IF U>12 THEN
0000B0: 32 39 36 30 0D 0A 32 39 32 30 20 55 3D 31 36 0D 2960..2920 U=16.
0000C0: 0A 32 39 33 30 20 48 24 3D 22 46 55 4C 4C 20 48 .2930 H$="FULL H
0000D0: 22 0D 0A 32 39 34 30 20 49 24 3D 22 4F 55 53 45 "..2940 I$="OUSE
0000E0: 2C 20 22 0D 0A 32 39 35 30 20 52 45 54 55 52 4E , "..2950 RETURN
0000F0: 0D 0A 32 39 36 30 20 49 46 20 42 28 5A 29 3C 3E ..2960 IF B(Z)<>
000100: 42 28 5A 2D 31 29 20 54 48 45 4E 20 33 30 31 30 B(Z-1) THEN 3010
000110: 0D 0A 32 39 37 30 20 55 3D 31 37 0D 0A 32 39 38 ..2970 U=17..298
000120: 30 20 48 24 3D 22 46 4F 55 52 22 0D 0A 32 39 39 0 H$="FOUR"..299
000130: 30 20 49 24 3D 22 20 22 0D 0A 33 30 30 30 20 52 0 I$=" "..3000 R
000140: 45 54 55 52 4E 0D 0A 33 30 31 30 20 55 3D 31 36 ETURN..3010 U=16
000150: 0D 0A 33 30 32 30 20 48 24 3D 22 46 55 4C 4C 20 ..3020 H$="FULL
000160: 48 22 0D 0A 33 30 33 30 20 49 24 3D 22 4F 55 53 H"..3030 I$="OUS
000170: 45 2C 20 22 0D 0A 33 30 34 30 20 52 45 54 55 52 E, "..3040 RETUR
000180: 4E 0D 0A 33 30 35 30 20 47 3D 30 0D 0A 33 30 36 N..3050 G=0..306
000190: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 57 0 PRINT:PRINT "W
0001A0: 48 41 54 20 49 53 20 59 4F 55 52 20 42 45 54 22 HAT IS YOUR BET"
0001B0: 3B 0D 0A 33 30 37 30 20 49 4E 50 55 54 20 54 0D ;..3070 INPUT T.
0001C0: 0A 33 30 38 30 20 49 46 20 54 2D 49 4E 54 28 54 .3080 IF T-INT(T
0001D0: 29 3D 30 20 54 48 45 4E 20 33 31 34 30 0D 0A 33 )=0 THEN 3140..3
0001E0: 30 39 30 20 49 46 20 4B 3C 3E 30 20 54 48 45 4E 090 IF K<>0 THEN
0001F0: 20 33 31 32 30 0D 0A 33 31 30 30 20 49 46 20 47 3120..3100 IF G
Size : 512 (Real : 512)
000000: 33 39 39 30 20 49 4E 50 55 54 20 4A 24 0D 0A 34 3990 INPUT J$..4
000010: 30 30 30 20 49 46 20 4C 45 46 54 24 28 4A 24 2C 000 IF LEFT$(J$,
000020: 31 29 3D 22 4E 22 20 54 48 45 4E 20 34 30 38 30 1)="N" THEN 4080
000030: 0D 0A 34 30 31 30 20 49 46 20 46 4E 41 28 30 29 ..4010 IF FNA(0)
000040: 3E 3D 36 20 54 48 45 4E 20 34 30 35 30 0D 0A 34 >=6 THEN 4050..4
000050: 30 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 41 020 PRINT "YOU A
000060: 52 45 20 4E 4F 57 20 24 31 30 30 20 52 49 43 48 RE NOW $100 RICH
000070: 45 52 2E 22 0D 0A 34 30 33 30 20 53 3D 53 2B 31 ER."..4030 S=S+1
000080: 30 30 0D 0A 34 30 34 30 20 47 4F 54 4F 20 34 30 00..4040 GOTO 40
000090: 37 30 0D 0A 34 30 35 30 20 50 52 49 4E 54 20 22 70..4050 PRINT "
0000A0: 49 54 27 53 20 50 41 53 54 45 2E 20 20 24 32 35 IT'S PASTE. $25
0000B0: 2E 22 0D 0A 34 30 36 30 20 53 3D 53 2B 32 35 0D ."..4060 S=S+25.
0000C0: 0A 34 30 37 30 20 4F 3D 4F 2A 33 0D 0A 34 30 38 .4070 O=O*3..408
0000D0: 30 20 52 45 54 55 52 4E 0D 0A 34 30 39 30 20 50 0 RETURN..4090 P
0000E0: 52 49 4E 54 20 22 59 4F 55 52 20 57 41 44 20 49 RINT "YOUR WAD I
0000F0: 53 20 53 48 4F 54 2E 20 20 53 4F 20 4C 4F 4E 47 S SHOT. SO LONG
000100: 2C 20 53 55 43 4B 45 52 21 22 0D 0A 34 31 30 30 , SUCKER!"..4100
000110: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 3C 3E 30 20 54 48 45 4E 20 33 31 32 30 0D 0A 33 <>0 THEN 3120..3
000010: 31 31 30 20 49 46 20 54 3D 2E 35 20 54 48 45 4E 110 IF T=.5 THEN
000020: 20 33 34 31 30 0D 0A 33 31 32 30 20 50 52 49 4E 3410..3120 PRIN
000030: 54 20 22 4E 4F 20 53 4D 41 4C 4C 20 43 48 41 4E T "NO SMALL CHAN
000040: 47 45 2C 20 50 4C 45 41 53 45 2E 22 0D 0A 33 31 GE, PLEASE."..31
000050: 33 30 20 47 4F 54 4F 20 33 30 36 30 0D 0A 33 31 30 GOTO 3060..31
000060: 34 30 20 49 46 20 53 2D 47 2D 54 3E 3D 30 20 54 40 IF S-G-T>=0 T
000070: 48 45 4E 20 33 31 37 30 0D 0A 33 31 35 30 20 47 HEN 3170..3150 G
000080: 4F 53 55 42 20 33 38 33 30 0D 0A 33 31 36 30 20 OSUB 3830..3160
000090: 47 4F 54 4F 20 33 30 36 30 0D 0A 33 31 37 30 20 GOTO 3060..3170
0000A0: 49 46 20 54 3C 3E 30 20 54 48 45 4E 20 33 32 30 IF T<>0 THEN 320
0000B0: 30 0D 0A 33 31 38 30 20 49 3D 33 0D 0A 33 31 39 0..3180 I=3..319
0000C0: 30 20 47 4F 54 4F 20 33 33 38 30 0D 0A 33 32 30 0 GOTO 3380..320
0000D0: 30 20 49 46 20 47 2B 54 3E 3D 4B 20 54 48 45 4E 0 IF G+T>=K THEN
0000E0: 20 33 32 33 30 0D 0A 33 32 31 30 20 50 52 49 4E 3230..3210 PRIN
0000F0: 54 20 22 49 46 20 59 4F 55 20 43 41 4E 27 54 20 T "IF YOU CAN'T
000100: 53 45 45 20 4D 59 20 42 45 54 2C 20 54 48 45 4E SEE MY BET, THEN
000110: 20 46 4F 4C 44 2E 22 0D 0A 33 32 32 30 20 47 4F FOLD."..3220 GO
000120: 54 4F 20 33 30 36 30 0D 0A 33 32 33 30 20 47 3D TO 3060..3230 G=
000130: 47 2B 54 0D 0A 33 32 34 30 20 49 46 20 47 3D 4B G+T..3240 IF G=K
000140: 20 54 48 45 4E 20 33 33 38 30 0D 0A 33 32 35 30 THEN 3380..3250
000150: 20 49 46 20 5A 3C 3E 31 20 54 48 45 4E 20 33 34 IF Z<>1 THEN 34
000160: 32 30 0D 0A 33 32 36 30 20 49 46 20 47 3E 35 20 20..3260 IF G>5
000170: 54 48 45 4E 20 33 33 30 30 0D 0A 33 32 37 30 20 THEN 3300..3270
000180: 49 46 20 5A 3E 3D 32 20 54 48 45 4E 20 33 33 35 IF Z>=2 THEN 335
000190: 30 0D 0A 33 32 38 30 20 56 3D 35 0D 0A 33 32 39 0..3280 V=5..329
0001A0: 30 20 47 4F 54 4F 20 33 34 32 30 0D 0A 33 33 30 0 GOTO 3420..330
0001B0: 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 33 33 0 IF Z=1 THEN 33
0001C0: 32 30 0D 0A 33 33 31 30 20 49 46 20 54 3C 3D 32 20..3310 IF T<=2
0001D0: 35 20 54 48 45 4E 20 33 33 35 30 0D 0A 33 33 32 5 THEN 3350..332
0001E0: 30 20 49 3D 34 0D 0A 33 33 33 30 20 50 52 49 4E 0 I=4..3330 PRIN
0001F0: 54 20 22 49 20 46 4F 4C 44 2E 22 0D 0A 33 33 34 T "I FOLD."..334
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 20 52 45 54 55 52 4E 0D 0A 33 33 35 30 20 49 0 RETURN..3350 I
000010: 46 20 5A 3D 32 20 54 48 45 4E 20 33 34 33 30 0D F Z=2 THEN 3430.
000020: 0A 33 33 36 30 20 50 52 49 4E 54 20 22 49 27 4C .3360 PRINT "I'L
000030: 4C 20 53 45 45 20 59 4F 55 2E 22 0D 0A 33 33 37 L SEE YOU."..337
000040: 30 20 4B 3D 47 0D 0A 33 33 38 30 20 53 3D 53 2D 0 K=G..3380 S=S-
000050: 47 0D 0A 33 33 39 30 20 43 3D 43 2D 4B 0D 0A 33 G..3390 C=C-K..3
000060: 34 30 30 20 50 3D 50 2B 47 2B 4B 0D 0A 33 34 31 400 P=P+G+K..341
000070: 30 20 52 45 54 55 52 4E 0D 0A 33 34 32 30 20 49 0 RETURN..3420 I
000080: 46 20 47 3E 33 2A 5A 20 54 48 45 4E 20 33 33 35 F G>3*Z THEN 335
000090: 30 0D 0A 33 34 33 30 20 56 3D 47 2D 4B 2B 46 4E 0..3430 V=G-K+FN
0000A0: 41 28 30 29 0D 0A 33 34 34 30 20 47 4F 53 55 42 A(0)..3440 GOSUB
0000B0: 20 33 34 38 30 0D 0A 33 34 35 30 20 50 52 49 4E 3480..3450 PRIN
0000C0: 54 20 22 49 27 4C 4C 20 53 45 45 20 59 4F 55 2C T "I'LL SEE YOU,
0000D0: 20 41 4E 44 20 52 41 49 53 45 20 59 4F 55 22 56 AND RAISE YOU"V
0000E0: 0D 0A 33 34 36 30 20 4B 3D 47 2B 56 0D 0A 33 34 ..3460 K=G+V..34
0000F0: 37 30 20 47 4F 54 4F 20 33 30 36 30 0D 0A 33 34 70 GOTO 3060..34
000100: 38 30 20 49 46 20 43 2D 47 2D 56 3E 3D 30 20 54 80 IF C-G-V>=0 T
000110: 48 45 4E 20 33 36 36 30 0D 0A 33 34 39 30 20 49 HEN 3660..3490 I
000120: 46 20 47 3C 3E 30 20 54 48 45 4E 20 33 35 32 30 F G<>0 THEN 3520
000130: 0D 0A 33 35 30 30 20 56 3D 43 0D 0A 33 35 31 30 ..3500 V=C..3510
000140: 20 52 45 54 55 52 4E 0D 0A 33 35 32 30 20 49 46 RETURN..3520 IF
000150: 20 43 2D 47 3E 3D 30 20 54 48 45 4E 20 33 33 36 C-G>=0 THEN 336
000160: 30 0D 0A 33 35 33 30 20 49 46 20 28 4F 2F 32 29 0..3530 IF (O/2)
000170: 3C 3E 49 4E 54 28 4F 2F 32 29 20 54 48 45 4E 20 <>INT(O/2) THEN
000180: 33 36 30 30 0D 0A 33 35 34 30 20 50 52 49 4E 54 3600..3540 PRINT
000190: 20 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 "WOULD YOU LIKE
0001A0: 20 54 4F 20 42 55 59 20 42 41 43 4B 20 59 4F 55 TO BUY BACK YOU
0001B0: 52 20 57 41 54 43 48 20 46 4F 52 20 24 35 30 22 R WATCH FOR $50"
0001C0: 3B 0D 0A 33 35 35 30 20 49 4E 50 55 54 20 4A 24 ;..3550 INPUT J$
0001D0: 0D 0A 33 35 36 30 20 49 46 20 4C 45 46 54 24 28 ..3560 IF LEFT$(
0001E0: 4A 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E 20 33 J$,1)="N" THEN 3
0001F0: 36 30 30 0D 0A 33 35 37 30 20 43 3D 43 2B 35 30 600..3570 C=C+50
Size : 512 (Real : 512)
000000: 35 30 20 50 52 49 4E 54 20 43 48 52 24 28 32 36 50 PRINT CHR$(26
000010: 29 3A 52 45 4D 20 57 49 44 54 48 20 38 30 0D 0A ):REM WIDTH 80..
000020: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 100 PRINT TAB(33
000030: 29 3B 22 51 55 42 49 43 22 3A 50 52 49 4E 54 0D );"QUBIC":PRINT.
000040: 0A 31 31 30 20 50 52 49 4E 54 20 54 41 42 28 31 .110 PRINT TAB(1
000050: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
000060: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
000070: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
000080: 0A 31 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .120 PRINT:PRINT
000090: 3A 50 52 49 4E 54 0D 0A 32 31 30 20 50 52 49 4E :PRINT..210 PRIN
0000A0: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 T "DO YOU WANT I
0000B0: 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 NSTRUCTIONS";..2
0000C0: 32 30 20 49 4E 50 55 54 20 43 24 0D 0A 32 33 30 20 INPUT C$..230
0000D0: 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 3D IF LEFT$(C$,1)=
0000E0: 22 4E 22 20 54 48 45 4E 20 33 31 35 0D 0A 32 34 "N" THEN 315..24
0000F0: 30 20 49 46 20 4C 45 46 54 24 28 43 24 2C 31 29 0 IF LEFT$(C$,1)
000100: 3D 22 59 22 20 54 48 45 4E 20 32 36 35 0D 0A 32 ="Y" THEN 265..2
000110: 35 30 20 50 52 49 4E 54 20 22 49 4E 43 4F 52 52 50 PRINT "INCORR
000120: 45 43 54 20 41 4E 53 57 45 52 2E 20 20 50 4C 45 ECT ANSWER. PLE
000130: 41 53 45 20 54 59 50 45 20 27 59 45 53 27 20 4F ASE TYPE 'YES' O
000140: 52 20 27 4E 4F 27 22 3B 0D 0A 32 36 30 20 47 4F R 'NO'";..260 GO
000150: 54 4F 20 32 32 30 0D 0A 32 36 35 20 50 52 49 4E TO 220..265 PRIN
000160: 54 0D 0A 32 37 30 20 50 52 49 4E 54 20 22 54 48 T..270 PRINT "TH
000170: 45 20 47 41 4D 45 20 49 53 20 54 49 43 2D 54 41 E GAME IS TIC-TA
000180: 43 2D 54 4F 45 20 49 4E 20 41 20 34 20 58 20 34 C-TOE IN A 4 X 4
000190: 20 58 20 34 20 43 55 42 45 2E 22 0D 0A 32 38 30 X 4 CUBE."..280
0001A0: 20 50 52 49 4E 54 20 22 45 41 43 48 20 4D 4F 56 PRINT "EACH MOV
0001B0: 45 20 49 53 20 49 4E 44 49 43 41 54 45 44 20 42 E IS INDICATED B
0001C0: 59 20 41 20 33 20 44 49 47 49 54 20 4E 55 4D 42 Y A 3 DIGIT NUMB
0001D0: 45 52 2C 20 57 49 54 48 20 45 41 43 48 22 0D 0A ER, WITH EACH"..
0001E0: 32 39 30 20 50 52 49 4E 54 20 22 44 49 47 49 54 290 PRINT "DIGIT
0001F0: 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 34 BETWEEN 1 AND 4
Size : 512 (Real : 512)
000000: 0D 0A 33 35 38 30 20 4F 3D 4F 2F 32 0D 0A 33 35 ..3580 O=O/2..35
000010: 39 30 20 52 45 54 55 52 4E 0D 0A 33 36 30 30 20 90 RETURN..3600
000020: 49 46 20 4F 2F 33 3C 3E 49 4E 54 28 4F 2F 33 29 IF O/3<>INT(O/3)
000030: 20 54 48 45 4E 20 33 36 37 30 0D 0A 33 36 31 30 THEN 3670..3610
000040: 20 50 52 49 4E 54 20 22 57 4F 55 4C 44 20 59 4F PRINT "WOULD YO
000050: 55 20 4C 49 4B 45 20 54 4F 20 42 55 59 20 42 41 U LIKE TO BUY BA
000060: 43 4B 20 59 4F 55 52 20 54 49 45 20 54 41 43 4B CK YOUR TIE TACK
000070: 20 46 4F 52 20 24 35 30 22 3B 0D 0A 33 36 32 30 FOR $50";..3620
000080: 20 49 4E 50 55 54 20 4A 24 0D 0A 33 36 33 30 20 INPUT J$..3630
000090: 49 46 20 4C 45 46 54 24 28 4A 24 2C 31 29 3D 22 IF LEFT$(J$,1)="
0000A0: 4E 22 20 54 48 45 4E 20 33 36 37 30 0D 0A 33 36 N" THEN 3670..36
0000B0: 34 30 20 43 3D 43 2B 35 30 0D 0A 33 36 35 30 20 40 C=C+50..3650
0000C0: 4F 3D 4F 2F 33 0D 0A 33 36 36 30 20 52 45 54 55 O=O/3..3660 RETU
0000D0: 52 4E 0D 0A 33 36 37 30 20 50 52 49 4E 54 20 22 RN..3670 PRINT "
0000E0: 49 27 4D 20 42 55 53 54 45 44 2E 20 20 43 4F 4E I'M BUSTED. CON
0000F0: 47 52 41 54 55 4C 41 54 49 4F 4E 53 21 22 0D 0A GRATULATIONS!"..
000100: 33 36 38 30 20 53 54 4F 50 0D 0A 33 36 39 30 20 3680 STOP..3690
000110: 50 52 49 4E 54 20 48 24 3B 49 24 3B 0D 0A 33 37 PRINT H$;I$;..37
000120: 30 30 20 49 46 20 48 24 3C 3E 22 41 20 46 4C 55 00 IF H$<>"A FLU
000130: 53 22 20 54 48 45 4E 20 33 37 35 30 0D 0A 33 37 S" THEN 3750..37
000140: 31 30 20 4B 3D 49 4E 54 28 4B 2F 31 30 30 29 0D 10 K=INT(K/100).
000150: 0A 33 37 32 30 20 47 4F 53 55 42 20 32 30 38 30 .3720 GOSUB 2080
000160: 0D 0A 33 37 33 30 20 50 52 49 4E 54 0D 0A 33 37 ..3730 PRINT..37
000170: 34 30 20 52 45 54 55 52 4E 0D 0A 33 37 35 30 20 40 RETURN..3750
000180: 4B 3D 46 4E 42 28 4B 29 0D 0A 33 37 36 30 20 47 K=FNB(K)..3760 G
000190: 4F 53 55 42 20 31 39 36 30 0D 0A 33 37 37 30 20 OSUB 1960..3770
0001A0: 49 46 20 48 24 3D 22 53 43 48 4D 41 4C 22 20 54 IF H$="SCHMAL" T
0001B0: 48 45 4E 20 33 37 39 30 0D 0A 33 37 38 30 20 49 HEN 3790..3780 I
0001C0: 46 20 48 24 3C 3E 22 53 54 52 41 49 47 22 20 54 F H$<>"STRAIG" T
0001D0: 48 45 4E 20 33 38 31 30 0D 0A 33 37 39 30 20 50 HEN 3810..3790 P
0001E0: 52 49 4E 54 20 22 20 48 49 47 48 22 0D 0A 33 38 RINT " HIGH"..38
0001F0: 30 30 20 52 45 54 55 52 4E 0D 0A 33 38 31 30 20 00 RETURN..3810
Size : 512 (Real : 512)
000000: 20 49 4E 43 4C 55 53 49 56 45 2E 20 20 54 48 45 INCLUSIVE. THE
000010: 20 44 49 47 49 54 53 20 49 4E 44 49 43 41 54 45 DIGITS INDICATE
000020: 20 54 48 45 22 0D 0A 33 30 30 20 50 52 49 4E 54 THE"..300 PRINT
000030: 20 22 4C 45 56 45 4C 2C 20 52 4F 57 2C 20 41 4E "LEVEL, ROW, AN
000040: 44 20 43 4F 4C 55 4D 4E 2C 20 52 45 53 50 45 43 D COLUMN, RESPEC
000050: 54 49 56 45 4C 59 2C 20 4F 46 20 54 48 45 20 4F TIVELY, OF THE O
000060: 43 43 55 50 49 45 44 22 0D 0A 33 30 35 20 50 52 CCUPIED"..305 PR
000070: 49 4E 54 20 22 50 4C 41 43 45 2E 20 20 22 0D 0A INT "PLACE. "..
000080: 33 30 36 20 50 52 49 4E 54 0D 0A 33 30 37 20 50 306 PRINT..307 P
000090: 52 49 4E 54 20 22 54 4F 20 50 52 49 4E 54 20 54 RINT "TO PRINT T
0000A0: 48 45 20 50 4C 41 59 49 4E 47 20 42 4F 41 52 44 HE PLAYING BOARD
0000B0: 2C 20 54 59 50 45 20 30 20 28 5A 45 52 4F 29 20 , TYPE 0 (ZERO)
0000C0: 41 53 20 59 4F 55 52 20 4D 4F 56 45 2E 22 0D 0A AS YOUR MOVE."..
0000D0: 33 30 38 20 50 52 49 4E 54 20 22 54 48 45 20 50 308 PRINT "THE P
0000E0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E ROGRAM WILL PRIN
0000F0: 54 20 54 48 45 20 42 4F 41 52 44 20 57 49 54 48 T THE BOARD WITH
000100: 20 59 4F 55 52 20 4D 4F 56 45 53 20 49 4E 44 49 YOUR MOVES INDI
000110: 2D 22 0D 0A 33 30 39 20 50 52 49 4E 54 20 22 43 -"..309 PRINT "C
000120: 41 54 45 44 20 57 49 54 48 20 41 20 28 59 29 2C ATED WITH A (Y),
000130: 20 54 48 45 20 4D 41 43 48 49 4E 45 27 53 20 4D THE MACHINE'S M
000140: 4F 56 45 53 20 57 49 54 48 20 41 4E 20 28 4D 29 OVES WITH AN (M)
000150: 2C 20 41 4E 44 22 0D 0A 33 31 30 20 50 52 49 4E , AND"..310 PRIN
000160: 54 20 22 55 4E 55 53 45 44 20 53 51 55 41 52 45 T "UNUSED SQUARE
000170: 53 20 57 49 54 48 20 41 20 28 20 29 2E 20 20 4F S WITH A ( ). O
000180: 55 54 50 55 54 20 49 53 20 4F 4E 20 50 41 50 45 UTPUT IS ON PAPE
000190: 52 2E 22 0D 0A 33 31 31 20 50 52 49 4E 54 0D 0A R."..311 PRINT..
0001A0: 33 31 32 20 50 52 49 4E 54 20 22 54 4F 20 53 54 312 PRINT "TO ST
0001B0: 4F 50 20 54 48 45 20 50 52 4F 47 52 41 4D 20 52 OP THE PROGRAM R
0001C0: 55 4E 2C 20 54 59 50 45 20 31 20 41 53 20 59 4F UN, TYPE 1 AS YO
0001D0: 55 52 20 4D 4F 56 45 2E 22 0D 0A 33 31 33 20 50 UR MOVE."..313 P
0001E0: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 33 31 35 20 RINT:PRINT..315
0001F0: 44 49 4D 20 58 28 36 34 29 2C 4C 28 37 36 29 2C DIM X(64),L(76),
Size : 512 (Real : 512)
000000: 20 58 28 59 28 5A 29 29 3D 30 20 54 48 45 4E 20 X(Y(Z))=0 THEN
000010: 31 32 35 30 0D 0A 31 32 32 30 20 4C 45 54 20 5A 1250..1220 LET Z
000020: 3D 5A 2B 31 0D 0A 31 32 33 30 20 49 46 20 5A 3C =Z+1..1230 IF Z<
000030: 3E 31 37 20 54 48 45 4E 20 31 32 31 30 0D 0A 31 >17 THEN 1210..1
000040: 32 34 30 20 47 4F 54 4F 20 31 37 32 30 0D 0A 31 240 GOTO 1720..1
000050: 32 35 30 20 4C 45 54 20 4D 3D 59 28 5A 29 0D 0A 250 LET M=Y(Z)..
000060: 31 32 36 30 20 4C 45 54 20 58 28 4D 29 3D 35 0D 1260 LET X(M)=5.
000070: 0A 31 32 37 30 20 50 52 49 4E 54 20 22 4D 41 43 .1270 PRINT "MAC
000080: 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D HINE MOVES TO";.
000090: 0A 31 32 38 30 20 47 4F 53 55 42 20 31 35 37 30 .1280 GOSUB 1570
0000A0: 0D 0A 31 32 39 30 20 47 4F 54 4F 20 35 30 30 0D ..1290 GOTO 500.
0000B0: 0A 31 33 30 30 20 4C 45 54 20 58 3D 58 0D 0A 31 .1300 LET X=X..1
0000C0: 33 31 30 20 49 3D 31 0D 0A 31 33 32 30 20 4C 45 310 I=1..1320 LE
0000D0: 54 20 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 T L(I)=X(M(I,1))
0000E0: 2B 58 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 +X(M(I,2))+X(M(I
0000F0: 2C 33 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A ,3))+X(M(I,4))..
000100: 31 33 33 30 20 4C 45 54 20 4C 3D 4C 28 49 29 0D 1330 LET L=L(I).
000110: 0A 31 33 34 30 20 49 46 20 4C 3C 31 30 20 54 48 .1340 IF L<10 TH
000120: 45 4E 20 31 34 31 30 0D 0A 31 33 35 30 20 49 46 EN 1410..1350 IF
000130: 20 4C 3E 3D 31 31 20 54 48 45 4E 20 31 34 31 30 L>=11 THEN 1410
000140: 0D 0A 31 33 36 30 20 49 46 20 4C 3E 31 30 20 54 ..1360 IF L>10 T
000150: 48 45 4E 20 32 32 33 30 0D 0A 31 33 37 30 20 46 HEN 2230..1370 F
000160: 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 31 33 38 OR J=1 TO 4..138
000170: 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 3C 3E 0 IF X(M(I,J))<>
000180: 30 20 54 48 45 4E 20 31 34 30 30 0D 0A 31 33 39 0 THEN 1400..139
000190: 30 20 4C 45 54 20 58 28 4D 28 49 2C 4A 29 29 3D 0 LET X(M(I,J))=
0001A0: 31 2F 38 0D 0A 31 34 30 30 20 4E 45 58 54 20 4A 1/8..1400 NEXT J
0001B0: 0D 0A 31 34 31 30 20 49 3D 49 2B 31 3A 20 49 46 ..1410 I=I+1: IF
0001C0: 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 33 32 30 I<=76 THEN 1320
0001D0: 0D 0A 31 34 32 30 20 47 4F 53 55 42 20 31 36 34 ..1420 GOSUB 164
0001E0: 30 0D 0A 31 34 33 30 20 49 3D 31 0D 0A 31 34 34 0..1430 I=1..144
0001F0: 30 20 49 46 20 4C 28 49 29 3D 2E 35 20 54 48 45 0 IF L(I)=.5 THE
Size : 512 (Real : 512)
000000: 4D 28 37 36 2C 34 29 2C 59 28 31 36 29 0D 0A 33 M(76,4),Y(16)..3
000010: 32 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 20 FOR I = 1 TO
000020: 31 36 0D 0A 33 33 30 20 52 45 41 44 20 59 28 49 16..330 READ Y(I
000030: 29 0D 0A 33 34 30 20 4E 45 58 54 20 49 0D 0A 33 )..340 NEXT I..3
000040: 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 37 36 50 FOR I=1 TO 76
000050: 0D 0A 33 36 30 20 46 4F 52 20 4A 20 3D 20 31 20 ..360 FOR J = 1
000060: 54 4F 20 34 0D 0A 33 37 30 20 52 45 41 44 20 4D TO 4..370 READ M
000070: 28 49 2C 4A 29 0D 0A 33 38 30 20 4E 45 58 54 20 (I,J)..380 NEXT
000080: 4A 0D 0A 33 39 30 20 4E 45 58 54 20 49 0D 0A 34 J..390 NEXT I..4
000090: 30 30 20 46 4F 52 20 49 20 3D 20 31 20 54 4F 20 00 FOR I = 1 TO
0000A0: 36 34 0D 0A 34 31 30 20 4C 45 54 20 58 20 28 49 64..410 LET X (I
0000B0: 29 20 3D 30 0D 0A 34 32 30 20 4E 45 58 54 20 49 ) =0..420 NEXT I
0000C0: 0D 0A 34 33 30 20 4C 45 54 20 5A 3D 31 0D 0A 34 ..430 LET Z=1..4
0000D0: 34 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 40 PRINT "DO YOU
0000E0: 20 57 41 4E 54 20 54 4F 20 4D 4F 56 45 20 46 49 WANT TO MOVE FI
0000F0: 52 53 54 22 3B 0D 0A 34 35 30 20 49 4E 50 55 54 RST";..450 INPUT
000100: 20 53 24 0D 0A 34 36 30 20 49 46 20 4C 45 46 54 S$..460 IF LEFT
000110: 24 28 53 24 2C 31 29 3D 22 4E 22 20 54 48 45 4E $(S$,1)="N" THEN
000120: 20 36 33 30 0D 0A 34 37 30 20 49 46 20 4C 45 46 630..470 IF LEF
000130: 54 24 28 53 24 2C 31 29 3D 22 59 22 20 54 48 45 T$(S$,1)="Y" THE
000140: 4E 20 35 30 30 0D 0A 34 38 30 20 50 52 49 4E 54 N 500..480 PRINT
000150: 20 22 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 "INCORRECT ANSW
000160: 45 52 2E 20 20 50 4C 45 41 53 45 20 54 59 50 45 ER. PLEASE TYPE
000170: 20 27 59 45 53 27 20 4F 52 20 27 4E 4F 27 2E 22 'YES' OR 'NO'."
000180: 3B 0D 0A 34 39 30 20 47 4F 54 4F 20 34 35 30 0D ;..490 GOTO 450.
000190: 0A 35 30 30 20 50 52 49 4E 54 20 22 20 22 0D 0A .500 PRINT " "..
0001A0: 35 31 30 20 50 52 49 4E 54 20 22 59 4F 55 52 20 510 PRINT "YOUR
0001B0: 4D 4F 56 45 22 3B 0D 0A 35 32 30 20 49 4E 50 55 MOVE";..520 INPU
0001C0: 54 20 4A 31 0D 0A 35 32 31 20 49 46 20 4A 31 3D T J1..521 IF J1=
0001D0: 31 20 54 48 45 4E 20 32 37 37 30 0D 0A 35 32 32 1 THEN 2770..522
0001E0: 20 49 46 20 4A 31 3C 3E 30 20 54 48 45 4E 20 35 IF J1<>0 THEN 5
0001F0: 32 35 0D 0A 35 32 33 20 47 4F 53 55 42 20 32 35 25..523 GOSUB 25
Size : 512 (Real : 512)
000000: 4E 20 32 33 36 30 0D 0A 31 34 35 30 20 49 46 20 N 2360..1450 IF
000010: 4C 28 49 29 3D 35 2B 33 2F 38 20 54 48 45 4E 20 L(I)=5+3/8 THEN
000020: 32 33 36 30 0D 0A 31 34 36 30 20 49 3D 49 2B 31 2360..1460 I=I+1
000030: 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 20 : IF I<=76 THEN
000040: 31 34 34 30 0D 0A 31 34 37 30 20 47 4F 53 55 42 1440..1470 GOSUB
000050: 20 32 35 30 30 0D 0A 31 34 38 30 20 47 4F 54 4F 2500..1480 GOTO
000060: 20 31 30 33 30 0D 0A 31 34 39 30 20 50 52 49 4E 1030..1490 PRIN
000070: 54 20 22 20 22 0D 0A 31 35 30 30 20 50 52 49 4E T " "..1500 PRIN
000080: 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 T "DO YOU WANT T
000090: 4F 20 54 52 59 20 41 4E 4F 54 48 45 52 20 47 41 O TRY ANOTHER GA
0000A0: 4D 45 22 3B 0D 0A 31 35 31 30 20 49 4E 50 55 54 ME";..1510 INPUT
0000B0: 20 58 24 0D 0A 31 35 32 30 20 49 46 20 4C 45 46 X$..1520 IF LEF
0000C0: 54 24 28 58 24 2C 31 29 3D 22 59 22 20 54 48 45 T$(X$,1)="Y" THE
0000D0: 4E 20 34 30 30 0D 0A 31 35 33 30 20 49 46 20 4C N 400..1530 IF L
0000E0: 45 46 54 24 28 58 24 2C 31 29 3D 22 4E 22 20 54 EFT$(X$,1)="N" T
0000F0: 48 45 4E 20 31 35 36 30 0D 0A 31 35 34 30 20 50 HEN 1560..1540 P
000100: 52 49 4E 54 20 22 49 4E 43 4F 52 52 45 43 54 20 RINT "INCORRECT
000110: 41 4E 53 57 45 52 2E 20 50 4C 45 41 53 45 20 54 ANSWER. PLEASE T
000120: 59 50 45 20 27 59 45 53 27 20 4F 52 20 27 4E 4F YPE 'YES' OR 'NO
000130: 27 22 3B 0D 0A 31 35 35 30 20 47 4F 54 4F 20 31 '";..1550 GOTO 1
000140: 35 31 30 0D 0A 31 35 36 30 20 45 4E 44 0D 0A 31 510..1560 END..1
000150: 35 37 30 20 4C 45 54 20 4B 31 3D 49 4E 54 28 28 570 LET K1=INT((
000160: 4D 2D 31 29 2F 31 36 29 2B 31 0D 0A 31 35 38 30 M-1)/16)+1..1580
000170: 20 4C 45 54 20 4A 32 3D 4D 2D 31 36 2A 28 4B 31 LET J2=M-16*(K1
000180: 2D 31 29 0D 0A 31 35 39 30 20 4C 45 54 20 4B 32 -1)..1590 LET K2
000190: 3D 49 4E 54 28 28 4A 32 2D 31 29 2F 34 29 2B 31 =INT((J2-1)/4)+1
0001A0: 0D 0A 31 36 30 30 20 4C 45 54 20 4B 33 3D 4D 2D ..1600 LET K3=M-
0001B0: 28 4B 31 2D 31 29 2A 31 36 2D 28 4B 32 2D 31 29 (K1-1)*16-(K2-1)
0001C0: 2A 34 0D 0A 31 36 31 30 20 4C 45 54 20 4D 3D 4B *4..1610 LET M=K
0001D0: 31 2A 31 30 30 2B 4B 32 2A 31 30 2B 4B 33 0D 0A 1*100+K2*10+K3..
0001E0: 31 36 32 30 20 50 52 49 4E 54 20 4D 3B 0D 0A 31 1620 PRINT M;..1
0001F0: 36 33 30 20 52 45 54 55 52 4E 0D 0A 31 36 34 30 630 RETURN..1640
Size : 512 (Real : 512)
000000: 35 30 0D 0A 35 32 34 20 47 4F 54 4F 20 35 30 30 50..524 GOTO 500
000010: 0D 0A 35 32 35 20 49 46 20 4A 31 3C 31 31 31 20 ..525 IF J1<111
000020: 54 48 45 4E 20 32 37 35 30 0D 0A 35 32 36 20 49 THEN 2750..526 I
000030: 46 20 4A 31 3E 34 34 34 20 54 48 45 4E 20 32 37 F J1>444 THEN 27
000040: 35 30 0D 0A 35 33 30 20 47 4F 53 55 42 20 32 35 50..530 GOSUB 25
000050: 30 30 0D 0A 35 34 30 20 4C 45 54 20 4B 31 3D 49 00..540 LET K1=I
000060: 4E 54 28 4A 31 2F 31 30 30 29 0D 0A 35 35 30 20 NT(J1/100)..550
000070: 4C 45 54 20 4A 32 3D 28 4A 31 2D 4B 31 2A 31 30 LET J2=(J1-K1*10
000080: 30 29 0D 0A 35 36 30 20 4C 45 54 20 4B 32 3D 49 0)..560 LET K2=I
000090: 4E 54 28 4A 32 2F 31 30 29 0D 0A 35 37 30 20 4C NT(J2/10)..570 L
0000A0: 45 54 20 4B 33 3D 20 4A 31 20 2D 20 4B 31 2A 31 ET K3= J1 - K1*1
0000B0: 30 30 20 2D 4B 32 2A 31 30 0D 0A 35 38 30 20 4C 00 -K2*10..580 L
0000C0: 45 54 20 4D 3D 31 36 2A 4B 31 2B 34 2A 4B 32 2B ET M=16*K1+4*K2+
0000D0: 4B 33 2D 32 30 0D 0A 35 39 30 20 49 46 20 58 28 K3-20..590 IF X(
0000E0: 4D 29 3D 30 20 54 48 45 4E 20 36 32 30 0D 0A 36 M)=0 THEN 620..6
0000F0: 30 30 20 50 52 49 4E 54 20 22 54 48 41 54 20 53 00 PRINT "THAT S
000100: 51 55 41 52 45 20 49 53 20 55 53 45 44 2C 20 54 QUARE IS USED, T
000110: 52 59 20 41 47 41 49 4E 2E 22 0D 0A 36 31 30 20 RY AGAIN."..610
000120: 47 4F 54 4F 20 35 30 30 0D 0A 36 32 30 20 4C 45 GOTO 500..620 LE
000130: 54 20 58 28 4D 29 3D 31 0D 0A 36 33 30 20 47 4F T X(M)=1..630 GO
000140: 53 55 42 20 31 36 34 30 0D 0A 36 34 30 20 4A 3D SUB 1640..640 J=
000150: 31 0D 0A 36 35 30 20 49 3D 31 0D 0A 36 36 30 20 1..650 I=1..660
000160: 49 46 20 4A 3D 31 20 54 48 45 4E 20 37 32 30 0D IF J=1 THEN 720.
000170: 0A 36 37 30 20 49 46 20 4A 3D 32 20 54 48 45 4E .670 IF J=2 THEN
000180: 20 37 39 30 0D 0A 36 38 30 20 49 46 20 4A 3D 33 790..680 IF J=3
000190: 20 54 48 45 4E 20 39 33 30 0D 0A 36 39 30 20 49 THEN 930..690 I
0001A0: 3D 49 2B 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 =I+1: IF I<=76 T
0001B0: 48 45 4E 20 36 36 30 0D 0A 37 30 30 20 4A 3D 4A HEN 660..700 J=J
0001C0: 2B 31 3A 20 49 46 20 4A 3C 3D 33 20 54 48 45 4E +1: IF J<=3 THEN
0001D0: 20 36 35 30 0D 0A 37 31 30 20 47 4F 54 4F 20 31 650..710 GOTO 1
0001E0: 33 30 30 0D 0A 37 32 30 20 49 46 20 4C 28 49 29 300..720 IF L(I)
0001F0: 3C 3E 34 20 54 48 45 4E 20 36 39 30 0D 0A 37 33 <>4 THEN 690..73
Size : 512 (Real : 512)
000000: 20 46 4F 52 20 53 3D 31 20 54 4F 20 37 36 0D 0A FOR S=1 TO 76..
000010: 31 36 35 30 20 4C 45 54 20 4A 31 20 3D 20 4D 28 1650 LET J1 = M(
000020: 53 2C 31 29 0D 0A 31 36 36 30 20 4C 45 54 20 4A S,1)..1660 LET J
000030: 32 3D 4D 28 53 2C 32 29 0D 0A 31 36 37 30 20 4C 2=M(S,2)..1670 L
000040: 45 54 20 4A 33 3D 4D 28 53 2C 33 29 0D 0A 31 36 ET J3=M(S,3)..16
000050: 38 30 20 4C 45 54 20 4A 34 3D 4D 28 53 2C 34 29 80 LET J4=M(S,4)
000060: 0D 0A 31 36 39 30 20 4C 45 54 20 4C 28 53 29 3D ..1690 LET L(S)=
000070: 58 28 4A 31 29 2B 58 28 4A 32 29 2B 58 28 4A 33 X(J1)+X(J2)+X(J3
000080: 29 2B 58 28 4A 34 29 0D 0A 31 37 30 30 20 4E 45 )+X(J4)..1700 NE
000090: 58 54 20 53 0D 0A 31 37 31 30 20 52 45 54 55 52 XT S..1710 RETUR
0000A0: 4E 0D 0A 31 37 32 30 20 46 4F 52 20 49 3D 31 20 N..1720 FOR I=1
0000B0: 54 4F 20 36 34 0D 0A 31 37 33 30 20 49 46 20 58 TO 64..1730 IF X
0000C0: 28 49 29 3C 3E 30 20 54 48 45 4E 20 31 38 30 30 (I)<>0 THEN 1800
0000D0: 0D 0A 31 37 34 30 20 4C 45 54 20 58 28 49 29 3D ..1740 LET X(I)=
0000E0: 35 0D 0A 31 37 35 30 20 4C 45 54 20 4D 3D 49 0D 5..1750 LET M=I.
0000F0: 0A 31 37 36 30 20 50 52 49 4E 54 20 22 4D 41 43 .1760 PRINT "MAC
000100: 48 49 4E 45 20 4C 49 4B 45 53 22 3B 0D 0A 31 37 HINE LIKES";..17
000110: 37 30 20 47 4F 53 55 42 20 31 35 37 30 0D 0A 31 70 GOSUB 1570..1
000120: 37 38 30 20 50 52 49 4E 54 20 22 20 22 0D 0A 31 780 PRINT " "..1
000130: 37 39 30 20 47 4F 54 4F 20 35 30 30 0D 0A 31 38 790 GOTO 500..18
000140: 30 30 20 4E 45 58 54 20 49 0D 0A 31 38 31 30 20 00 NEXT I..1810
000150: 50 52 49 4E 54 20 22 54 48 45 20 47 41 4D 45 20 PRINT "THE GAME
000160: 49 53 20 41 20 44 52 41 57 2E 22 0D 0A 31 38 32 IS A DRAW."..182
000170: 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A 31 38 33 0 GOTO 1490..183
000180: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 31 38 0D 0 FOR K=1 TO 18.
000190: 0A 31 38 34 30 20 4C 45 54 20 50 3D 30 0D 0A 31 .1840 LET P=0..1
0001A0: 38 35 30 20 46 4F 52 20 49 3D 34 2A 4B 2D 33 20 850 FOR I=4*K-3
0001B0: 54 4F 20 34 2A 4B 0D 0A 31 38 36 30 20 46 4F 52 TO 4*K..1860 FOR
0001C0: 20 4A 3D 31 20 54 4F 20 34 0D 0A 31 38 37 30 20 J=1 TO 4..1870
0001D0: 4C 45 54 20 50 3D 50 2B 58 28 4D 28 49 2C 4A 29 LET P=P+X(M(I,J)
0001E0: 29 0D 0A 31 38 38 30 20 4E 45 58 54 20 4A 0D 0A )..1880 NEXT J..
0001F0: 31 38 39 30 20 4E 45 58 54 20 49 0D 0A 31 39 30 1890 NEXT I..190
Size : 512 (Real : 512)
000000: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4E 0 PRINT "YOU WIN
000010: 20 41 53 20 46 4F 4C 4C 4F 57 53 22 3B 0D 0A 37 AS FOLLOWS";..7
000020: 34 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 40 FOR J=1 TO 4.
000030: 0A 37 35 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A .750 LET M=M(I,J
000040: 29 0D 0A 37 36 30 20 47 4F 53 55 42 20 31 35 37 )..760 GOSUB 157
000050: 30 0D 0A 37 37 30 20 4E 45 58 54 20 4A 0D 0A 37 0..770 NEXT J..7
000060: 38 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A 37 39 80 GOTO 1490..79
000070: 30 20 49 46 20 4C 28 49 29 3C 3E 31 35 20 54 48 0 IF L(I)<>15 TH
000080: 45 4E 20 36 39 30 0D 0A 38 30 30 20 46 4F 52 20 EN 690..800 FOR
000090: 4A 3D 31 20 54 4F 20 34 0D 0A 38 31 30 20 4C 45 J=1 TO 4..810 LE
0000A0: 54 20 4D 3D 4D 28 49 2C 4A 29 0D 0A 38 32 30 20 T M=M(I,J)..820
0000B0: 49 46 20 58 28 4D 29 3C 3E 30 20 54 48 45 4E 20 IF X(M)<>0 THEN
0000C0: 38 36 30 0D 0A 38 33 30 20 4C 45 54 20 58 28 4D 860..830 LET X(M
0000D0: 29 3D 35 0D 0A 38 34 30 20 50 52 49 4E 54 20 22 )=5..840 PRINT "
0000E0: 4D 41 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F MACHINE MOVES TO
0000F0: 22 3B 0D 0A 38 35 30 20 47 4F 53 55 42 20 31 35 ";..850 GOSUB 15
000100: 37 30 0D 0A 38 36 30 20 4E 45 58 54 20 4A 0D 0A 70..860 NEXT J..
000110: 38 37 30 20 50 52 49 4E 54 20 22 2C 20 41 4E 44 870 PRINT ", AND
000120: 20 57 49 4E 53 20 41 53 20 46 4F 4C 4C 4F 57 53 WINS AS FOLLOWS
000130: 22 0D 0A 38 38 30 20 46 4F 52 20 4A 3D 31 20 54 "..880 FOR J=1 T
000140: 4F 20 34 0D 0A 38 39 30 20 4C 45 54 20 4D 3D 4D O 4..890 LET M=M
000150: 28 49 2C 4A 29 0D 0A 39 30 30 20 47 4F 53 55 42 (I,J)..900 GOSUB
000160: 20 31 35 37 30 0D 0A 39 31 30 20 4E 45 58 54 20 1570..910 NEXT
000170: 4A 0D 0A 39 32 30 20 47 4F 54 4F 20 31 34 39 30 J..920 GOTO 1490
000180: 0D 0A 39 33 30 20 49 46 20 4C 28 49 29 3C 3E 33 ..930 IF L(I)<>3
000190: 20 54 48 45 4E 20 36 39 30 0D 0A 39 34 30 20 50 THEN 690..940 P
0001A0: 52 49 4E 54 20 22 4E 49 43 45 20 54 52 59 2E 20 RINT "NICE TRY.
0001B0: 4D 41 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F MACHINE MOVES TO
0001C0: 22 3B 0D 0A 39 35 30 20 46 4F 52 20 4A 3D 31 20 ";..950 FOR J=1
0001D0: 54 4F 20 34 20 0D 0A 39 36 30 20 4C 45 54 20 4D TO 4 ..960 LET M
0001E0: 3D 4D 28 49 2C 4A 29 0D 0A 39 37 30 20 49 46 20 =M(I,J)..970 IF
0001F0: 58 28 4D 29 3C 3E 30 20 54 48 45 4E 20 31 30 31 X(M)<>0 THEN 101
Size : 512 (Real : 512)
000000: 30 20 49 46 20 50 3C 34 20 54 48 45 4E 20 31 39 0 IF P<4 THEN 19
000010: 34 30 0D 0A 31 39 31 30 20 49 46 20 50 3C 35 20 40..1910 IF P<5
000020: 54 48 45 4E 20 31 39 37 30 0D 0A 31 39 32 30 20 THEN 1970..1920
000030: 49 46 20 50 3C 39 20 54 48 45 4E 20 31 39 34 30 IF P<9 THEN 1940
000040: 0D 0A 31 39 33 30 20 49 46 20 50 3C 31 30 20 54 ..1930 IF P<10 T
000050: 48 45 4E 20 31 39 37 30 0D 0A 31 39 34 30 20 4E HEN 1970..1940 N
000060: 45 58 54 20 4B 0D 0A 31 39 35 30 20 47 4F 53 55 EXT K..1950 GOSU
000070: 42 20 32 35 30 30 0D 0A 31 39 36 30 20 47 4F 54 B 2500..1960 GOT
000080: 4F 20 31 32 30 30 0D 0A 31 39 37 30 20 4C 45 54 O 1200..1970 LET
000090: 20 53 3D 31 2F 38 0D 0A 31 39 38 30 20 46 4F 52 S=1/8..1980 FOR
0000A0: 20 49 3D 34 2A 4B 2D 33 20 54 4F 20 34 2A 4B 0D I=4*K-3 TO 4*K.
0000B0: 0A 31 39 39 30 20 47 4F 54 4F 20 32 33 37 30 0D .1990 GOTO 2370.
0000C0: 0A 32 30 30 30 20 4E 45 58 54 20 49 0D 0A 32 30 .2000 NEXT I..20
0000D0: 31 30 20 4C 45 54 20 53 3D 30 0D 0A 32 30 32 30 10 LET S=0..2020
0000E0: 20 47 4F 54 4F 20 31 39 38 30 0D 0A 32 30 33 30 GOTO 1980..2030
0000F0: 20 44 41 54 41 20 31 2C 34 39 2C 35 32 2C 34 2C DATA 1,49,52,4,
000100: 31 33 2C 36 31 2C 36 34 2C 31 36 2C 32 32 2C 33 13,61,64,16,22,3
000110: 39 2C 32 33 2C 33 38 2C 32 36 2C 34 32 2C 32 37 9,23,38,26,42,27
000120: 2C 34 33 0D 0A 32 30 34 30 20 44 41 54 41 20 31 ,43..2040 DATA 1
000130: 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 ,2,3,4,5,6,7,8,9
000140: 2C 31 30 2C 31 31 2C 31 32 2C 31 33 2C 31 34 2C ,10,11,12,13,14,
000150: 31 35 2C 31 36 2C 31 37 2C 31 38 2C 31 39 2C 32 15,16,17,18,19,2
000160: 30 0D 0A 32 30 35 30 20 44 41 54 41 20 32 31 2C 0..2050 DATA 21,
000170: 32 32 2C 32 33 2C 32 34 2C 32 35 2C 32 36 2C 32 22,23,24,25,26,2
000180: 37 2C 32 38 2C 32 39 2C 33 30 2C 33 31 2C 33 32 7,28,29,30,31,32
000190: 2C 33 33 2C 33 34 2C 33 35 2C 33 36 2C 33 37 2C ,33,34,35,36,37,
0001A0: 33 38 0D 0A 32 30 36 30 20 44 41 54 41 20 33 39 38..2060 DATA 39
0001B0: 2C 34 30 2C 34 31 2C 34 32 2C 34 33 2C 34 34 2C ,40,41,42,43,44,
0001C0: 34 35 2C 34 36 2C 34 37 2C 34 38 2C 34 39 2C 35 45,46,47,48,49,5
0001D0: 30 2C 35 31 2C 35 32 2C 35 33 2C 35 34 2C 35 35 0,51,52,53,54,55
0001E0: 2C 35 36 0D 0A 32 30 37 30 20 44 41 54 41 20 35 ,56..2070 DATA 5
0001F0: 37 2C 35 38 2C 35 39 2C 36 30 2C 36 31 2C 36 32 7,58,59,60,61,62
Size : 512 (Real : 512)
000000: 30 0D 0A 39 38 30 20 4C 45 54 20 58 28 4D 29 3D 0..980 LET X(M)=
000010: 35 0D 0A 39 39 30 20 47 4F 53 55 42 20 31 35 37 5..990 GOSUB 157
000020: 30 0D 0A 31 30 30 30 20 47 4F 54 4F 20 35 30 30 0..1000 GOTO 500
000030: 0D 0A 31 30 31 30 20 4E 45 58 54 20 4A 0D 0A 31 ..1010 NEXT J..1
000040: 30 32 30 20 47 4F 54 4F 20 31 33 30 30 0D 0A 31 020 GOTO 1300..1
000050: 30 33 30 20 49 3D 31 0D 0A 31 30 34 30 20 4C 45 030 I=1..1040 LE
000060: 54 20 4C 28 49 29 3D 58 28 4D 28 49 2C 31 29 29 T L(I)=X(M(I,1))
000070: 2B 58 28 4D 28 49 2C 32 29 29 2B 58 28 4D 28 49 +X(M(I,2))+X(M(I
000080: 2C 33 29 29 2B 58 28 4D 28 49 2C 34 29 29 0D 0A ,3))+X(M(I,4))..
000090: 31 30 35 30 20 4C 45 54 20 4C 20 3D 20 4C 28 49 1050 LET L = L(I
0000A0: 29 0D 0A 31 30 36 30 20 49 46 20 4C 20 3C 32 20 )..1060 IF L <2
0000B0: 54 48 45 4E 20 31 31 33 30 0D 0A 31 30 37 30 20 THEN 1130..1070
0000C0: 49 46 20 4C 3E 3D 33 20 54 48 45 4E 20 31 31 33 IF L>=3 THEN 113
0000D0: 30 0D 0A 31 30 38 30 20 49 46 20 4C 3E 32 20 54 0..1080 IF L>2 T
0000E0: 48 45 4E 20 32 32 33 30 0D 0A 31 30 39 30 20 46 HEN 2230..1090 F
0000F0: 4F 52 20 4A 20 3D 20 31 20 54 4F 20 34 0D 0A 31 OR J = 1 TO 4..1
000100: 31 30 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 100 IF X(M(I,J))
000110: 3C 3E 30 20 54 48 45 4E 20 31 31 32 30 0D 0A 31 <>0 THEN 1120..1
000120: 31 31 30 20 4C 45 54 20 58 28 4D 28 49 2C 4A 29 110 LET X(M(I,J)
000130: 29 3D 31 2F 38 0D 0A 31 31 32 30 20 4E 45 58 54 )=1/8..1120 NEXT
000140: 20 4A 0D 0A 31 31 33 30 20 49 3D 49 2B 31 3A 20 J..1130 I=I+1:
000150: 49 46 20 49 3C 3D 37 36 20 54 48 45 4E 20 31 30 IF I<=76 THEN 10
000160: 34 30 0D 0A 31 31 34 30 20 47 4F 53 55 42 20 31 40..1140 GOSUB 1
000170: 36 34 30 0D 0A 31 31 35 30 20 49 3D 31 0D 0A 31 640..1150 I=1..1
000180: 31 36 30 20 49 46 20 4C 28 49 29 3D 31 2F 32 20 160 IF L(I)=1/2
000190: 54 48 45 4E 20 32 33 36 30 0D 0A 31 31 37 30 20 THEN 2360..1170
0001A0: 49 46 20 4C 28 49 29 3D 31 2B 33 2F 38 20 54 48 IF L(I)=1+3/8 TH
0001B0: 45 4E 20 32 33 36 30 0D 0A 31 31 38 30 20 49 3D EN 2360..1180 I=
0001C0: 49 2B 31 3A 20 49 46 20 49 3C 3D 37 36 20 54 48 I+1: IF I<=76 TH
0001D0: 45 4E 20 31 31 36 30 0D 0A 31 31 39 30 20 47 4F EN 1160..1190 GO
0001E0: 54 4F 20 31 38 33 30 0D 0A 31 32 30 30 20 4C 45 TO 1830..1200 LE
0001F0: 54 20 5A 20 3D 20 31 0D 0A 31 32 31 30 20 49 46 T Z = 1..1210 IF
Size : 512 (Real : 512)
000000: 2C 36 33 2C 36 34 0D 0A 32 30 38 30 20 44 41 54 ,63,64..2080 DAT
000010: 41 20 31 2C 31 37 2C 33 33 2C 34 39 2C 35 2C 32 A 1,17,33,49,5,2
000020: 31 2C 33 37 2C 35 33 2C 39 2C 32 35 2C 34 31 2C 1,37,53,9,25,41,
000030: 35 37 2C 31 33 2C 32 39 2C 34 35 2C 36 31 0D 0A 57,13,29,45,61..
000040: 32 30 39 30 20 44 41 54 41 20 32 2C 31 38 2C 33 2090 DATA 2,18,3
000050: 34 2C 35 30 2C 36 2C 32 32 2C 33 38 2C 35 34 2C 4,50,6,22,38,54,
000060: 31 30 2C 32 36 2C 34 32 2C 35 38 2C 31 34 2C 33 10,26,42,58,14,3
000070: 30 2C 34 36 2C 36 32 0D 0A 32 31 30 30 20 44 41 0,46,62..2100 DA
000080: 54 41 20 33 2C 31 39 2C 33 35 2C 35 31 2C 37 2C TA 3,19,35,51,7,
000090: 32 33 2C 33 39 2C 35 35 2C 31 31 2C 32 37 2C 34 23,39,55,11,27,4
0000A0: 33 2C 35 39 2C 31 35 2C 33 31 2C 34 37 2C 36 33 3,59,15,31,47,63
0000B0: 0D 0A 32 31 31 30 20 44 41 54 41 20 34 2C 32 30 ..2110 DATA 4,20
0000C0: 2C 33 36 2C 35 32 2C 38 2C 32 34 2C 34 30 2C 35 ,36,52,8,24,40,5
0000D0: 36 2C 31 32 2C 32 38 2C 34 34 2C 36 30 2C 31 36 6,12,28,44,60,16
0000E0: 2C 33 32 2C 34 38 2C 36 34 0D 0A 32 31 32 30 20 ,32,48,64..2120
0000F0: 44 41 54 41 20 31 2C 35 2C 39 2C 31 33 2C 31 37 DATA 1,5,9,13,17
000100: 2C 32 31 2C 32 35 2C 32 39 2C 33 33 2C 33 37 2C ,21,25,29,33,37,
000110: 34 31 2C 34 35 2C 34 39 2C 35 33 2C 35 37 2C 36 41,45,49,53,57,6
000120: 31 0D 0A 32 31 33 30 20 44 41 54 41 20 32 2C 36 1..2130 DATA 2,6
000130: 2C 31 30 2C 31 34 2C 31 38 2C 32 32 2C 32 36 2C ,10,14,18,22,26,
000140: 33 30 2C 33 34 2C 33 38 2C 34 32 2C 34 36 2C 35 30,34,38,42,46,5
000150: 30 2C 35 34 2C 35 38 2C 36 32 0D 0A 32 31 34 30 0,54,58,62..2140
000160: 20 44 41 54 41 20 33 2C 37 2C 31 31 2C 31 35 2C DATA 3,7,11,15,
000170: 31 39 2C 32 33 2C 32 37 2C 33 31 2C 33 35 2C 33 19,23,27,31,35,3
000180: 39 2C 34 33 2C 34 37 2C 35 31 2C 35 35 2C 35 39 9,43,47,51,55,59
000190: 2C 36 33 0D 0A 32 31 35 30 20 44 41 54 41 20 34 ,63..2150 DATA 4
0001A0: 2C 38 2C 31 32 2C 31 36 2C 32 30 2C 32 34 2C 32 ,8,12,16,20,24,2
0001B0: 38 2C 33 32 2C 33 36 2C 34 30 2C 34 34 2C 34 38 8,32,36,40,44,48
0001C0: 2C 35 32 2C 35 36 2C 36 30 2C 36 34 0D 0A 32 31 ,52,56,60,64..21
0001D0: 36 30 20 44 41 54 41 20 31 2C 36 2C 31 31 2C 31 60 DATA 1,6,11,1
0001E0: 36 2C 31 37 2C 32 32 2C 32 37 2C 33 32 2C 33 33 6,17,22,27,32,33
0001F0: 2C 33 38 2C 34 33 2C 34 38 2C 34 39 2C 35 34 2C ,38,43,48,49,54,
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 39 2C 36 34 0D 0A 32 31 37 30 20 44 41 54 41 59,64..2170 DATA
000010: 20 31 33 2C 31 30 2C 37 2C 34 2C 32 39 2C 32 36 13,10,7,4,29,26
000020: 2C 32 33 2C 32 30 2C 34 35 2C 34 32 2C 33 39 2C ,23,20,45,42,39,
000030: 33 36 2C 36 31 2C 35 38 2C 35 35 2C 35 32 0D 0A 36,61,58,55,52..
000040: 32 31 38 30 20 44 41 54 41 20 31 2C 32 31 2C 34 2180 DATA 1,21,4
000050: 31 2C 36 31 2C 32 2C 32 32 2C 34 32 2C 36 32 2C 1,61,2,22,42,62,
000060: 33 2C 32 33 2C 34 33 2C 36 33 2C 34 2C 32 34 2C 3,23,43,63,4,24,
000070: 34 34 2C 36 34 0D 0A 32 31 39 30 20 44 41 54 41 44,64..2190 DATA
000080: 20 34 39 2C 33 37 2C 32 35 2C 31 33 2C 35 30 2C 49,37,25,13,50,
000090: 33 38 2C 32 36 2C 31 34 2C 35 31 2C 33 39 2C 32 38,26,14,51,39,2
0000A0: 37 2C 31 35 2C 35 32 2C 34 30 2C 32 38 2C 31 36 7,15,52,40,28,16
0000B0: 0D 0A 32 32 30 30 20 44 41 54 41 20 31 2C 31 38 ..2200 DATA 1,18
0000C0: 2C 33 35 2C 35 32 2C 35 2C 32 32 2C 33 39 2C 35 ,35,52,5,22,39,5
0000D0: 36 2C 39 2C 32 36 2C 34 33 2C 36 30 2C 31 33 2C 6,9,26,43,60,13,
0000E0: 33 30 2C 34 37 2C 36 34 0D 0A 32 32 31 30 20 44 30,47,64..2210 D
0000F0: 41 54 41 20 34 39 2C 33 34 2C 31 39 2C 34 2C 35 ATA 49,34,19,4,5
000100: 33 2C 33 38 2C 32 33 2C 38 2C 35 37 2C 34 32 2C 3,38,23,8,57,42,
000110: 32 37 2C 31 32 2C 36 31 2C 34 36 2C 33 31 2C 31 27,12,61,46,31,1
000120: 36 0D 0A 32 32 32 30 20 44 41 54 41 20 31 2C 32 6..2220 DATA 1,2
000130: 32 2C 34 33 2C 36 34 2C 31 36 2C 32 37 2C 33 38 2,43,64,16,27,38
000140: 2C 34 39 2C 34 2C 32 33 2C 34 32 2C 36 31 2C 31 ,49,4,23,42,61,1
000150: 33 2C 32 36 2C 33 39 2C 35 32 0D 0A 32 32 33 30 3,26,39,52..2230
000160: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 0D 0A 32 FOR J=1 TO 4..2
000170: 32 34 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 240 IF X(M(I,J))
000180: 3C 3E 31 2F 38 20 54 48 45 4E 20 32 33 33 30 0D <>1/8 THEN 2330.
000190: 0A 32 32 35 30 20 4C 45 54 20 58 28 4D 28 49 2C .2250 LET X(M(I,
0001A0: 4A 29 29 3D 35 0D 0A 32 32 36 30 20 49 46 20 4C J))=5..2260 IF L
0001B0: 28 49 29 3C 35 20 54 48 45 4E 20 32 32 39 30 0D (I)<5 THEN 2290.
0001C0: 0A 32 32 37 30 20 50 52 49 4E 54 20 22 4C 45 54 .2270 PRINT "LET
0001D0: 27 53 20 53 45 45 20 59 4F 55 20 47 45 54 20 4F 'S SEE YOU GET O
0001E0: 55 54 20 4F 46 20 54 48 49 53 3A 20 20 4D 41 43 UT OF THIS: MAC
0001F0: 48 49 4E 45 20 4D 4F 56 45 53 20 54 4F 22 3B 0D HINE MOVES TO";.
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 51 55 45 45 4E 22 0D 0A 32 20 50 52 49 4E 54 "QUEEN"..2 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 RSEY"..3 PRINT:P
000060: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 44 RINT:PRINT..10 D
000070: 49 4D 20 53 28 36 34 29 0D 0A 31 31 20 46 4F 52 IM S(64)..11 FOR
000080: 20 49 3D 31 20 54 4F 20 36 34 0D 0A 31 32 20 52 I=1 TO 64..12 R
000090: 45 41 44 20 53 28 49 29 0D 0A 31 33 20 4E 45 58 EAD S(I)..13 NEX
0000A0: 54 20 49 0D 0A 31 34 20 44 41 54 41 20 20 38 31 T I..14 DATA 81
0000B0: 2C 20 20 37 31 2C 20 20 36 31 2C 20 20 35 31 2C , 71, 61, 51,
0000C0: 20 20 34 31 2C 20 20 33 31 2C 20 20 32 31 2C 20 41, 31, 21,
0000D0: 20 31 31 0D 0A 31 35 20 44 41 54 41 20 20 39 32 11..15 DATA 92
0000E0: 2C 20 20 38 32 2C 20 20 37 32 2C 20 20 36 32 2C , 82, 72, 62,
0000F0: 20 20 35 32 2C 20 20 34 32 2C 20 20 33 32 2C 20 52, 42, 32,
000100: 20 32 32 0D 0A 31 36 20 44 41 54 41 20 31 30 33 22..16 DATA 103
000110: 2C 20 20 39 33 2C 20 20 38 33 2C 20 20 37 33 2C , 93, 83, 73,
000120: 20 20 36 33 2C 20 20 35 33 2C 20 20 34 33 2C 20 63, 53, 43,
000130: 20 33 33 0D 0A 31 37 20 44 41 54 41 20 31 31 34 33..17 DATA 114
000140: 2C 20 31 30 34 2C 20 20 39 34 2C 20 20 38 34 2C , 104, 94, 84,
000150: 20 20 37 34 2C 20 20 36 34 2C 20 20 35 34 2C 20 74, 64, 54,
000160: 20 34 34 0D 0A 31 38 20 44 41 54 41 20 31 32 35 44..18 DATA 125
000170: 2C 20 31 31 35 2C 20 31 30 35 2C 20 20 39 35 2C , 115, 105, 95,
000180: 20 20 38 35 2C 20 20 37 35 2C 20 20 36 35 2C 20 85, 75, 65,
000190: 20 35 35 0D 0A 31 39 20 44 41 54 41 20 31 33 36 55..19 DATA 136
0001A0: 2C 20 31 32 36 2C 20 31 31 36 2C 20 31 30 36 2C , 126, 116, 106,
0001B0: 20 20 39 36 2C 20 20 38 36 2C 20 20 37 36 2C 20 96, 86, 76,
0001C0: 20 36 36 0D 0A 32 30 20 44 41 54 41 20 31 34 37 66..20 DATA 147
0001D0: 2C 20 31 33 37 2C 20 31 32 37 2C 20 31 31 37 2C , 137, 127, 117,
0001E0: 20 31 30 37 2C 20 20 39 37 2C 20 20 38 37 2C 20 107, 97, 87,
0001F0: 20 37 37 0D 0A 32 31 20 44 41 54 41 20 31 35 38 77..21 DATA 158
Size : 512 (Real : 512)
000000: 0A 32 32 38 30 20 47 4F 54 4F 20 32 33 30 30 0D .2280 GOTO 2300.
000010: 0A 32 32 39 30 20 50 52 49 4E 54 20 22 59 4F 55 .2290 PRINT "YOU
000020: 20 46 4F 58 2E 20 20 4A 55 53 54 20 49 4E 20 54 FOX. JUST IN T
000030: 48 45 20 4E 49 43 4B 20 4F 46 20 54 49 4D 45 2C HE NICK OF TIME,
000040: 20 4D 41 43 48 49 4E 45 20 4D 4F 56 45 53 20 54 MACHINE MOVES T
000050: 4F 22 3B 0D 0A 32 33 30 30 20 4C 45 54 20 4D 3D O";..2300 LET M=
000060: 4D 28 49 2C 4A 29 0D 0A 32 33 31 30 20 47 4F 53 M(I,J)..2310 GOS
000070: 55 42 20 31 35 37 30 0D 0A 32 33 32 30 20 47 4F UB 1570..2320 GO
000080: 54 4F 20 35 30 30 0D 0A 32 33 33 30 20 4E 45 58 TO 500..2330 NEX
000090: 54 20 4A 0D 0A 32 33 34 30 20 50 52 49 4E 54 20 T J..2340 PRINT
0000A0: 22 4D 41 43 48 49 4E 45 20 43 4F 4E 43 45 44 45 "MACHINE CONCEDE
0000B0: 53 20 54 48 49 53 20 47 41 4D 45 2E 22 0D 0A 32 S THIS GAME."..2
0000C0: 33 35 30 20 47 4F 54 4F 20 31 34 39 30 0D 0A 32 350 GOTO 1490..2
0000D0: 33 36 30 20 4C 45 54 20 53 3D 31 2F 38 0D 0A 32 360 LET S=1/8..2
0000E0: 33 37 30 20 49 46 20 49 2D 49 4E 54 28 49 2F 34 370 IF I-INT(I/4
0000F0: 29 2A 34 3E 31 20 54 48 45 4E 20 32 34 30 30 0D )*4>1 THEN 2400.
000100: 0A 32 33 38 30 20 4C 45 54 20 41 3D 31 0D 0A 32 .2380 LET A=1..2
000110: 33 39 30 20 47 4F 54 4F 20 32 34 31 30 0D 0A 32 390 GOTO 2410..2
000120: 34 30 30 20 4C 45 54 20 41 3D 32 0D 0A 32 34 31 400 LET A=2..241
000130: 30 20 46 4F 52 20 4A 3D 41 20 54 4F 20 35 2D 41 0 FOR J=A TO 5-A
000140: 20 53 54 45 50 20 35 2D 32 2A 41 0D 0A 32 34 32 STEP 5-2*A..242
000150: 30 20 49 46 20 58 28 4D 28 49 2C 4A 29 29 3D 53 0 IF X(M(I,J))=S
000160: 20 54 48 45 4E 20 32 34 35 30 0D 0A 32 34 33 30 THEN 2450..2430
000170: 20 4E 45 58 54 20 4A 0D 0A 32 34 34 30 20 47 4F NEXT J..2440 GO
000180: 54 4F 20 32 30 30 30 0D 0A 32 34 35 30 20 4C 45 TO 2000..2450 LE
000190: 54 20 58 28 4D 28 49 2C 4A 29 29 3D 35 0D 0A 32 T X(M(I,J))=5..2
0001A0: 34 36 30 20 4C 45 54 20 4D 3D 4D 28 49 2C 4A 29 460 LET M=M(I,J)
0001B0: 0D 0A 32 34 37 30 20 50 52 49 4E 54 20 22 4D 41 ..2470 PRINT "MA
0001C0: 43 48 49 4E 45 20 54 41 4B 45 53 22 3B 0D 0A 32 CHINE TAKES";..2
0001D0: 34 38 30 20 47 4F 53 55 42 20 31 35 37 30 0D 0A 480 GOSUB 1570..
0001E0: 32 34 39 30 20 47 4F 54 4F 20 35 30 30 0D 0A 32 2490 GOTO 500..2
0001F0: 35 30 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 36 500 FOR I=1 TO 6
Size : 512 (Real : 512)
000000: 2C 20 31 34 38 2C 20 31 33 38 2C 20 31 32 38 2C , 148, 138, 128,
000010: 20 31 31 38 2C 20 31 30 38 2C 20 20 39 38 2C 20 118, 108, 98,
000020: 20 38 38 0D 0A 32 32 20 49 4E 50 55 54 20 22 44 88..22 INPUT "D
000030: 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 52 O YOU WANT INSTR
000040: 55 43 54 49 4F 4E 53 22 3B 57 24 0D 0A 32 33 20 UCTIONS";W$..23
000050: 49 46 20 57 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF W$="NO" THEN
000060: 33 30 0D 0A 32 34 20 49 46 20 57 24 3D 22 59 45 30..24 IF W$="YE
000070: 53 22 20 54 48 45 4E 20 32 38 0D 0A 32 35 20 50 S" THEN 28..25 P
000080: 52 49 4E 54 20 22 50 4C 45 41 53 45 20 41 4E 53 RINT "PLEASE ANS
000090: 57 45 52 20 27 59 45 53 27 20 4F 52 20 27 4E 4F WER 'YES' OR 'NO
0000A0: 27 2E 22 0D 0A 32 36 20 47 4F 54 4F 20 32 32 0D '."..26 GOTO 22.
0000B0: 0A 32 38 20 47 4F 53 55 42 20 35 30 30 30 0D 0A .28 GOSUB 5000..
0000C0: 32 39 20 47 4F 54 4F 20 31 30 30 0D 0A 33 30 20 29 GOTO 100..30
0000D0: 47 4F 53 55 42 20 35 31 36 30 0D 0A 39 30 20 52 GOSUB 5160..90 R
0000E0: 45 4D 20 20 20 20 20 45 52 52 4F 52 20 43 48 45 EM ERROR CHE
0000F0: 43 4B 53 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 CKS..100 PRINT "
000100: 57 48 45 52 45 20 57 4F 55 4C 44 20 59 4F 55 20 WHERE WOULD YOU
000110: 4C 49 4B 45 20 54 4F 20 53 54 41 52 54 22 3B 0D LIKE TO START";.
000120: 0A 31 31 30 20 49 4E 50 55 54 20 4D 31 0D 0A 31 .110 INPUT M1..1
000130: 31 35 20 49 46 20 4D 31 3D 30 20 54 48 45 4E 20 15 IF M1=0 THEN
000140: 32 33 32 0D 0A 31 32 30 20 54 31 3D 49 4E 54 28 232..120 T1=INT(
000150: 4D 31 2F 31 30 29 0D 0A 31 33 30 20 55 31 3D 4D M1/10)..130 U1=M
000160: 31 2D 31 30 2A 54 31 0D 0A 31 34 30 20 49 46 20 1-10*T1..140 IF
000170: 55 31 3D 31 20 54 48 45 4E 20 32 30 30 0D 0A 31 U1=1 THEN 200..1
000180: 35 30 20 49 46 20 55 31 3D 54 31 20 54 48 45 4E 50 IF U1=T1 THEN
000190: 20 32 30 30 0D 0A 31 36 30 20 50 52 49 4E 54 20 200..160 PRINT
0001A0: 22 50 4C 45 41 53 45 20 52 45 41 44 20 54 48 45 "PLEASE READ THE
0001B0: 20 44 49 52 45 43 54 49 4F 4E 53 20 41 47 41 49 DIRECTIONS AGAI
0001C0: 4E 2E 22 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 N."..170 PRINT "
0001D0: 59 4F 55 20 48 41 56 45 20 42 45 47 55 4E 20 49 YOU HAVE BEGUN I
0001E0: 4C 4C 45 47 41 4C 4C 59 2E 22 0D 0A 31 37 35 20 LLEGALLY."..175
0001F0: 50 52 49 4E 54 0D 0A 31 38 30 20 47 4F 54 4F 20 PRINT..180 GOTO
Size : 512 (Real : 512)
000000: 34 0D 0A 32 35 31 30 20 49 46 20 58 28 49 29 3C 4..2510 IF X(I)<
000010: 3E 31 2F 38 20 54 48 45 4E 20 32 35 33 30 0D 0A >1/8 THEN 2530..
000020: 32 35 32 30 20 4C 45 54 20 58 28 49 29 3D 30 0D 2520 LET X(I)=0.
000030: 0A 32 35 33 30 20 4E 45 58 54 20 49 0D 0A 32 35 .2530 NEXT I..25
000040: 34 30 20 52 45 54 55 52 4E 0D 0A 32 35 35 30 20 40 RETURN..2550
000050: 46 4F 52 20 58 58 3D 31 20 54 4F 20 39 3A 50 52 FOR XX=1 TO 9:PR
000060: 49 4E 54 3A 4E 45 58 54 3A 46 4F 52 20 49 3D 31 INT:NEXT:FOR I=1
000070: 20 54 4F 20 34 0D 0A 32 35 36 30 20 46 4F 52 20 TO 4..2560 FOR
000080: 4A 3D 31 20 54 4F 20 34 0D 0A 32 35 36 32 20 46 J=1 TO 4..2562 F
000090: 4F 52 20 49 31 3D 31 20 54 4F 20 4A 0D 0A 32 35 OR I1=1 TO J..25
0000A0: 36 34 20 50 52 49 4E 54 22 20 20 20 22 3B 0D 0A 64 PRINT" ";..
0000B0: 32 35 36 36 20 4E 45 58 54 20 49 31 0D 0A 32 35 2566 NEXT I1..25
0000C0: 37 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 34 0D 70 FOR K=1 TO 4.
0000D0: 0A 32 36 30 30 20 4C 45 54 20 51 3D 31 36 2A 49 .2600 LET Q=16*I
0000E0: 2B 34 2A 4A 2B 4B 2D 32 30 0D 0A 32 36 31 30 20 +4*J+K-20..2610
0000F0: 49 46 20 58 28 51 29 3C 3E 4F 20 54 48 45 4E 20 IF X(Q)<>O THEN
000100: 32 36 33 30 0D 0A 32 36 32 30 20 50 52 49 4E 54 2630..2620 PRINT
000110: 22 28 20 29 20 20 20 20 20 20 22 3B 0D 0A 32 36 "( ) ";..26
000120: 33 30 20 49 46 20 58 28 51 29 3C 3E 35 20 54 48 30 IF X(Q)<>5 TH
000130: 45 4E 20 32 36 35 30 0D 0A 32 36 34 30 20 50 52 EN 2650..2640 PR
000140: 49 4E 54 22 28 4D 29 20 20 20 20 20 20 22 3B 0D INT"(M) ";.
000150: 0A 32 36 35 30 20 49 46 20 58 28 51 29 3C 3E 31 .2650 IF X(Q)<>1
000160: 20 54 48 45 4E 20 32 36 36 30 0D 0A 32 36 35 35 THEN 2660..2655
000170: 20 50 52 49 4E 54 22 28 59 29 20 20 20 20 20 20 PRINT"(Y)
000180: 22 3B 0D 0A 32 36 36 30 20 49 46 20 58 28 51 29 ";..2660 IF X(Q)
000190: 3C 3E 31 2F 38 20 54 48 45 4E 20 32 36 37 30 0D <>1/8 THEN 2670.
0001A0: 0A 32 36 36 35 20 50 52 49 4E 54 22 28 20 29 20 .2665 PRINT"( )
0001B0: 20 20 20 20 20 22 3B 0D 0A 32 36 37 30 20 4E 45 ";..2670 NE
0001C0: 58 54 20 4B 0D 0A 32 36 38 30 20 50 52 49 4E 54 XT K..2680 PRINT
0001D0: 0D 0A 32 36 39 30 20 50 52 49 4E 54 0D 0A 32 37 ..2690 PRINT..27
0001E0: 30 30 20 4E 45 58 54 20 4A 0D 0A 32 37 31 30 20 00 NEXT J..2710
0001F0: 50 52 49 4E 54 0D 0A 32 37 32 30 20 50 52 49 4E PRINT..2720 PRIN
Size : 512 (Real : 512)
000000: 31 30 30 0D 0A 32 30 30 20 47 4F 53 55 42 20 32 100..200 GOSUB 2
000010: 30 30 30 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 000..210 PRINT "
000020: 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 54 COMPUTER MOVES T
000030: 4F 20 53 51 55 41 52 45 22 3B 4D 0D 0A 32 31 35 O SQUARE";M..215
000040: 20 49 46 20 4D 3D 31 35 38 20 54 48 45 4E 20 33 IF M=158 THEN 3
000050: 34 30 30 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 400..220 PRINT "
000060: 57 48 41 54 20 49 53 20 59 4F 55 52 20 4D 4F 56 WHAT IS YOUR MOV
000070: 45 22 3B 0D 0A 32 33 30 20 49 4E 50 55 54 20 4D E";..230 INPUT M
000080: 31 0D 0A 32 33 31 20 49 46 20 4D 31 3C 3E 30 20 1..231 IF M1<>0
000090: 54 48 45 4E 20 32 33 39 0D 0A 32 33 32 20 50 52 THEN 239..232 PR
0000A0: 49 4E 54 0D 0A 32 33 33 20 50 52 49 4E 54 20 22 INT..233 PRINT "
0000B0: 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 20 49 20 IT LOOKS LIKE I
0000C0: 48 41 56 45 20 57 4F 4E 20 42 59 20 46 4F 52 46 HAVE WON BY FORF
0000D0: 45 49 54 2E 22 0D 0A 32 33 34 20 50 52 49 4E 54 EIT."..234 PRINT
0000E0: 0D 0A 32 33 35 20 47 4F 54 4F 20 34 30 30 30 0D ..235 GOTO 4000.
0000F0: 0A 32 33 39 20 49 46 20 4D 31 3C 3D 4D 20 54 48 .239 IF M1<=M TH
000100: 45 4E 20 33 32 30 30 0D 0A 32 34 30 20 54 31 3D EN 3200..240 T1=
000110: 49 4E 54 28 4D 31 2F 31 30 29 0D 0A 32 35 30 20 INT(M1/10)..250
000120: 55 31 3D 4D 31 2D 31 30 2A 54 31 0D 0A 32 36 30 U1=M1-10*T1..260
000130: 20 50 3D 55 31 2D 55 0D 0A 32 37 30 20 49 46 20 P=U1-U..270 IF
000140: 50 3C 3E 30 20 54 48 45 4E 20 33 30 30 0D 0A 32 P<>0 THEN 300..2
000150: 38 30 20 4C 3D 54 31 2D 54 0D 0A 32 39 30 20 49 80 L=T1-T..290 I
000160: 46 20 4C 3C 3D 30 20 54 48 45 4E 20 33 32 30 30 F L<=0 THEN 3200
000170: 0D 0A 32 39 35 20 47 4F 54 4F 20 32 30 30 0D 0A ..295 GOTO 200..
000180: 33 30 30 20 49 46 20 54 31 2D 54 20 3C 3E 50 20 300 IF T1-T <>P
000190: 54 48 45 4E 20 33 32 30 0D 0A 33 31 30 20 47 4F THEN 320..310 GO
0001A0: 54 4F 20 32 30 30 0D 0A 33 32 30 20 49 46 20 54 TO 200..320 IF T
0001B0: 31 2D 54 20 3C 3E 32 2A 50 20 54 48 45 4E 20 33 1-T <>2*P THEN 3
0001C0: 32 30 30 0D 0A 33 33 30 20 47 4F 54 4F 20 32 30 200..330 GOTO 20
0001D0: 30 0D 0A 31 39 39 30 20 52 45 4D 20 20 20 20 20 0..1990 REM
0001E0: 4C 4F 43 41 54 45 20 4D 4F 56 45 20 46 4F 52 20 LOCATE MOVE FOR
0001F0: 43 4F 4D 50 55 54 45 52 0D 0A 32 30 30 30 20 49 COMPUTER..2000 I
Size : 512 (Real : 512)
000000: 54 0D 0A 32 37 33 30 20 4E 45 58 54 20 49 0D 0A T..2730 NEXT I..
000010: 32 37 33 35 20 52 45 4D 20 50 52 49 4E 54 20 43 2735 REM PRINT C
000020: 48 52 24 28 31 32 29 0D 0A 32 37 34 30 20 52 45 HR$(12)..2740 RE
000030: 54 55 52 4E 0D 0A 32 37 35 30 20 50 52 49 4E 54 TURN..2750 PRINT
000040: 22 49 4E 43 4F 52 52 45 43 54 20 4D 4F 56 45 2C "INCORRECT MOVE,
000050: 20 52 45 54 59 50 45 20 49 54 2D 2D 22 3B 0D 0A RETYPE IT--";..
000060: 32 37 36 30 20 47 4F 54 4F 20 35 32 30 0D 0A 32 2760 GOTO 520..2
000070: 37 37 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 770 END.........
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 46 20 4D 31 3D 34 31 20 54 48 45 4E 20 32 31 38 F M1=41 THEN 218
000010: 30 0D 0A 32 30 31 30 20 49 46 20 4D 31 3D 34 34 0..2010 IF M1=44
000020: 20 54 48 45 4E 20 32 31 38 30 0D 0A 32 30 32 30 THEN 2180..2020
000030: 20 49 46 20 4D 31 3D 37 33 20 54 48 45 4E 20 32 IF M1=73 THEN 2
000040: 31 38 30 0D 0A 32 30 33 30 20 49 46 20 4D 31 3D 180..2030 IF M1=
000050: 37 35 20 54 48 45 4E 20 32 31 38 30 0D 0A 32 30 75 THEN 2180..20
000060: 34 30 20 49 46 20 4D 31 3D 31 32 36 20 54 48 45 40 IF M1=126 THE
000070: 4E 20 32 31 38 30 0D 0A 32 30 35 30 20 49 46 20 N 2180..2050 IF
000080: 4D 31 3D 31 32 37 20 54 48 45 4E 20 32 31 38 30 M1=127 THEN 2180
000090: 0D 0A 32 30 36 30 20 49 46 20 4D 31 3D 31 35 38 ..2060 IF M1=158
0000A0: 20 54 48 45 4E 20 33 33 30 30 0D 0A 32 30 36 35 THEN 3300..2065
0000B0: 20 43 3D 30 0D 0A 32 30 37 30 20 46 4F 52 20 4B C=0..2070 FOR K
0000C0: 3D 37 20 54 4F 20 31 20 53 54 45 50 20 2D 31 0D =7 TO 1 STEP -1.
0000D0: 0A 32 30 38 30 20 55 3D 55 31 0D 0A 32 30 39 30 .2080 U=U1..2090
0000E0: 20 54 3D 54 31 2B 4B 0D 0A 32 31 30 30 20 47 4F T=T1+K..2100 GO
0000F0: 53 55 42 20 33 35 30 30 0D 0A 32 31 30 35 20 49 SUB 3500..2105 I
000100: 46 20 43 3D 31 20 54 48 45 4E 20 32 31 36 30 0D F C=1 THEN 2160.
000110: 0A 32 31 31 30 20 55 3D 55 2B 4B 0D 0A 32 31 32 .2110 U=U+K..212
000120: 30 20 47 4F 53 55 42 20 33 35 30 30 0D 0A 32 31 0 GOSUB 3500..21
000130: 32 35 20 49 46 20 43 3D 31 20 54 48 45 4E 20 32 25 IF C=1 THEN 2
000140: 31 36 30 0D 0A 32 31 33 30 20 54 3D 54 2B 4B 0D 160..2130 T=T+K.
000150: 0A 32 31 34 30 20 47 4F 53 55 42 20 33 35 30 30 .2140 GOSUB 3500
000160: 0D 0A 32 31 34 35 20 49 46 20 43 3D 31 20 54 48 ..2145 IF C=1 TH
000170: 45 4E 20 32 31 36 30 0D 0A 32 31 35 30 20 4E 45 EN 2160..2150 NE
000180: 58 54 20 4B 0D 0A 32 31 35 35 20 47 4F 54 4F 20 XT K..2155 GOTO
000190: 32 31 38 30 0D 0A 32 31 36 30 20 43 3D 30 0D 0A 2180..2160 C=0..
0001A0: 32 31 37 30 20 52 45 54 55 52 4E 0D 0A 32 31 38 2170 RETURN..218
0001B0: 30 20 47 4F 53 55 42 20 33 30 30 30 0D 0A 32 31 0 GOSUB 3000..21
0001C0: 39 30 20 52 45 54 55 52 4E 0D 0A 32 39 39 30 20 90 RETURN..2990
0001D0: 52 45 4D 20 20 20 20 20 52 41 4E 44 4F 4D 20 4D REM RANDOM M
0001E0: 4F 56 45 0D 0A 33 30 30 30 20 5A 3D 52 4E 44 28 OVE..3000 Z=RND(
0001F0: 31 29 0D 0A 33 30 31 30 20 49 46 20 5A 3E 2E 36 1)..3010 IF Z>.6
Size : 512 (Real : 512)
000000: 30 20 46 4F 52 20 41 3D 30 20 54 4F 20 37 0D 0A 0 FOR A=0 TO 7..
000010: 35 31 38 30 20 46 4F 52 20 42 3D 31 20 54 4F 20 5180 FOR B=1 TO
000020: 38 0D 0A 35 31 38 35 20 49 3D 38 2A 41 2B 42 0D 8..5185 I=8*A+B.
000030: 0A 35 31 39 30 20 50 52 49 4E 54 20 53 28 49 29 .5190 PRINT S(I)
000040: 3B 0D 0A 35 32 30 30 20 4E 45 58 54 20 42 0D 0A ;..5200 NEXT B..
000050: 35 32 31 30 20 50 52 49 4E 54 0D 0A 35 32 32 30 5210 PRINT..5220
000060: 20 50 52 49 4E 54 0D 0A 35 32 33 30 20 50 52 49 PRINT..5230 PRI
000070: 4E 54 0D 0A 35 32 34 30 20 4E 45 58 54 20 41 0D NT..5240 NEXT A.
000080: 0A 35 32 35 30 20 50 52 49 4E 54 0D 0A 35 32 36 .5250 PRINT..526
000090: 30 20 52 45 54 55 52 4E 0D 0A 39 39 39 39 20 45 0 RETURN..9999 E
0000A0: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 54 48 45 4E 20 33 31 31 30 0D 0A 33 30 32 30 THEN 3110..3020
000010: 20 49 46 20 5A 3E 2E 33 20 54 48 45 4E 20 33 30 IF Z>.3 THEN 30
000020: 37 30 0D 0A 33 30 33 30 20 55 3D 55 31 0D 0A 33 70..3030 U=U1..3
000030: 30 34 30 20 54 3D 54 31 2B 31 0D 0A 33 30 35 30 040 T=T1+1..3050
000040: 20 4D 3D 31 30 2A 54 2B 55 0D 0A 33 30 36 30 20 M=10*T+U..3060
000050: 52 45 54 55 52 4E 0D 0A 33 30 37 30 20 55 3D 55 RETURN..3070 U=U
000060: 31 2B 31 0D 0A 33 30 38 30 20 54 3D 54 31 2B 32 1+1..3080 T=T1+2
000070: 0D 0A 33 30 39 30 20 4D 3D 31 30 2A 54 2B 55 0D ..3090 M=10*T+U.
000080: 0A 33 31 30 30 20 52 45 54 55 52 4E 0D 0A 33 31 .3100 RETURN..31
000090: 31 30 20 55 3D 55 31 2B 31 0D 0A 33 31 32 30 20 10 U=U1+1..3120
0000A0: 54 3D 54 31 2B 31 0D 0A 33 31 33 30 20 4D 3D 31 T=T1+1..3130 M=1
0000B0: 30 2A 54 2B 55 0D 0A 33 31 34 30 20 52 45 54 55 0*T+U..3140 RETU
0000C0: 52 4E 0D 0A 33 31 39 30 20 52 45 4D 20 20 20 20 RN..3190 REM
0000D0: 20 49 4C 4C 45 47 41 4C 20 4D 4F 56 45 20 4D 45 ILLEGAL MOVE ME
0000E0: 53 53 41 47 45 0D 0A 33 32 30 30 20 50 52 49 4E SSAGE..3200 PRIN
0000F0: 54 0D 0A 33 32 31 30 20 50 52 49 4E 54 20 22 59 T..3210 PRINT "Y
000100: 20 4F 20 55 20 20 20 43 20 48 20 45 20 41 20 54 O U C H E A T
000110: 20 2E 20 2E 20 2E 20 20 54 52 59 20 41 47 41 49 . . . TRY AGAI
000120: 4E 22 3B 0D 0A 33 32 32 30 20 47 4F 54 4F 20 32 N";..3220 GOTO 2
000130: 33 30 0D 0A 33 32 39 30 20 52 45 4D 20 20 20 20 30..3290 REM
000140: 20 50 4C 41 59 45 52 20 57 49 4E 53 0D 0A 33 33 PLAYER WINS..33
000150: 30 30 20 50 52 49 4E 54 0D 0A 33 33 31 30 20 50 00 PRINT..3310 P
000160: 52 49 4E 54 20 22 43 20 4F 20 4E 20 47 20 52 20 RINT "C O N G R
000170: 41 20 54 20 55 20 4C 20 41 20 54 20 49 20 4F 20 A T U L A T I O
000180: 4E 20 53 20 2E 20 2E 20 2E 22 0D 0A 33 33 32 30 N S . . ."..3320
000190: 20 50 52 49 4E 54 20 0D 0A 33 33 33 30 20 50 52 PRINT ..3330 PR
0001A0: 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 57 4F INT "YOU HAVE WO
0001B0: 4E 2D 2D 56 45 52 59 20 57 45 4C 4C 20 50 4C 41 N--VERY WELL PLA
0001C0: 59 45 44 2E 22 0D 0A 33 33 34 30 20 50 52 49 4E YED."..3340 PRIN
0001D0: 54 20 22 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 T "IT LOOKS LIKE
0001E0: 20 49 20 48 41 56 45 20 4D 45 54 20 4D 59 20 4D I HAVE MET MY M
0001F0: 41 54 43 48 2E 22 0D 0A 33 33 35 30 20 50 52 49 ATCH."..3350 PRI
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4E 54 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 50 NT "THANKS FOR P
000010: 4C 41 59 49 4E 47 2D 2D 2D 49 20 43 41 4E 27 54 LAYING---I CAN'T
000020: 20 57 49 4E 20 41 4C 4C 20 54 48 45 20 54 49 4D WIN ALL THE TIM
000030: 45 2E 22 0D 0A 33 33 36 30 20 50 52 49 4E 54 0D E."..3360 PRINT.
000040: 0A 33 33 37 30 20 47 4F 54 4F 20 34 30 30 30 0D .3370 GOTO 4000.
000050: 0A 33 33 39 30 20 52 45 4D 20 20 20 20 20 43 4F .3390 REM CO
000060: 4D 50 55 54 45 52 20 57 49 4E 53 0D 0A 33 34 30 MPUTER WINS..340
000070: 30 20 50 52 49 4E 54 0D 0A 33 34 31 30 20 50 52 0 PRINT..3410 PR
000080: 49 4E 54 20 22 4E 49 43 45 20 54 52 59 2C 20 42 INT "NICE TRY, B
000090: 55 54 20 49 54 20 4C 4F 4F 4B 53 20 4C 49 4B 45 UT IT LOOKS LIKE
0000A0: 20 49 20 48 41 56 45 20 57 4F 4E 2E 22 0D 0A 33 I HAVE WON."..3
0000B0: 34 32 30 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 420 PRINT "THANK
0000C0: 53 20 46 4F 52 20 50 4C 41 59 49 4E 47 2E 22 0D S FOR PLAYING.".
0000D0: 0A 33 34 33 30 20 50 52 49 4E 54 0D 0A 33 34 34 .3430 PRINT..344
0000E0: 30 20 47 4F 54 4F 20 34 30 30 30 0D 0A 33 34 39 0 GOTO 4000..349
0000F0: 30 20 52 45 4D 20 20 20 20 20 54 45 53 54 20 46 0 REM TEST F
000100: 4F 52 20 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 OR COMPUTER MOVE
000110: 0D 0A 33 35 30 30 20 4D 3D 31 30 2A 54 2B 55 0D ..3500 M=10*T+U.
000120: 0A 33 35 31 30 20 49 46 20 4D 3D 31 35 38 20 54 .3510 IF M=158 T
000130: 48 45 4E 20 33 35 37 30 0D 0A 33 35 32 30 20 49 HEN 3570..3520 I
000140: 46 20 4D 3D 31 32 37 20 54 48 45 4E 20 33 35 37 F M=127 THEN 357
000150: 30 0D 0A 33 35 33 30 20 49 46 20 4D 3D 31 32 36 0..3530 IF M=126
000160: 20 54 48 45 4E 20 33 35 37 30 0D 0A 33 35 34 30 THEN 3570..3540
000170: 20 49 46 20 4D 3D 37 35 20 54 48 45 4E 20 33 35 IF M=75 THEN 35
000180: 37 30 0D 0A 33 35 35 30 20 49 46 20 4D 3D 37 33 70..3550 IF M=73
000190: 20 54 48 45 4E 20 33 35 37 30 0D 0A 33 35 36 30 THEN 3570..3560
0001A0: 20 52 45 54 55 52 4E 0D 0A 33 35 37 30 20 43 3D RETURN..3570 C=
0001B0: 31 0D 0A 33 35 38 30 20 47 4F 54 4F 20 33 35 36 1..3580 GOTO 356
0001C0: 30 0D 0A 33 39 39 30 20 52 45 4D 20 20 20 20 20 0..3990 REM
0001D0: 41 4E 4F 54 48 45 52 20 47 41 4D 45 3F 3F 3F 0D ANOTHER GAME???.
0001E0: 0A 34 30 30 30 20 50 52 49 4E 54 20 22 41 4E 59 .4000 PRINT "ANY
0001F0: 4F 4E 45 20 45 4C 53 45 20 43 41 52 45 20 54 4F ONE ELSE CARE TO
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
000010: 3B 22 52 45 56 45 52 53 45 22 0D 0A 32 30 20 50 ;"REVERSE"..20 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 W JERSEY"..30 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 31 30 30 20 50 52 49 4E 54 20 22 52 45 56 45 .100 PRINT "REVE
000080: 52 53 45 20 2D 2D 20 41 20 47 41 4D 45 20 4F 46 RSE -- A GAME OF
000090: 20 53 4B 49 4C 4C 22 3A 20 50 52 49 4E 54 0D 0A SKILL": PRINT..
0000A0: 31 33 30 20 44 49 4D 20 41 28 32 30 29 0D 0A 31 130 DIM A(20)..1
0000B0: 34 30 20 52 45 4D 20 2A 2A 2A 20 4E 3D 4E 55 4D 40 REM *** N=NUM
0000C0: 42 45 52 20 4F 46 20 4E 55 4D 42 45 52 53 0D 0A BER OF NUMBERS..
0000D0: 31 35 30 20 4E 3D 39 0D 0A 31 36 30 20 50 52 49 150 N=9..160 PRI
0000E0: 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 NT "DO YOU WANT
0000F0: 54 48 45 20 52 55 4C 45 53 22 3B 0D 0A 31 37 30 THE RULES";..170
000100: 20 49 4E 50 55 54 20 41 24 0D 0A 31 38 30 20 49 INPUT A$..180 I
000110: 46 20 41 24 3D 22 4E 4F 22 20 54 48 45 4E 20 32 F A$="NO" THEN 2
000120: 31 30 0D 0A 31 39 30 20 47 4F 53 55 42 20 37 31 10..190 GOSUB 71
000130: 30 0D 0A 32 30 30 20 52 45 4D 20 2A 2A 2A 20 4D 0..200 REM *** M
000140: 41 4B 45 20 41 20 52 41 4E 44 4F 4D 20 4C 49 53 AKE A RANDOM LIS
000150: 54 20 41 28 31 29 20 54 4F 20 41 28 4E 29 0D 0A T A(1) TO A(N)..
000160: 32 31 30 20 41 28 31 29 3D 49 4E 54 28 28 4E 2D 210 A(1)=INT((N-
000170: 31 29 2A 52 4E 44 28 31 29 2B 32 29 0D 0A 32 32 1)*RND(1)+2)..22
000180: 30 20 46 4F 52 20 4B 3D 32 20 54 4F 20 4E 0D 0A 0 FOR K=2 TO N..
000190: 32 33 30 20 41 28 4B 29 3D 49 4E 54 28 4E 2A 52 230 A(K)=INT(N*R
0001A0: 4E 44 28 31 29 2B 31 29 0D 0A 32 34 30 20 46 4F ND(1)+1)..240 FO
0001B0: 52 20 4A 3D 31 20 54 4F 20 4B 2D 31 0D 0A 32 35 R J=1 TO K-1..25
0001C0: 30 20 49 46 20 41 28 4B 29 3D 41 28 4A 29 20 54 0 IF A(K)=A(J) T
0001D0: 48 45 4E 20 32 33 30 0D 0A 32 36 30 20 4E 45 58 HEN 230..260 NEX
0001E0: 54 20 4A 3A 4E 45 58 54 20 4B 0D 0A 32 38 30 20 T J:NEXT K..280
0001F0: 52 45 4D 20 2A 2A 2A 20 50 52 49 4E 54 20 4F 52 REM *** PRINT OR
Size : 512 (Real : 512)
000000: 20 54 52 59 22 3B 0D 0A 34 30 31 30 20 49 4E 50 TRY";..4010 INP
000010: 55 54 20 51 24 0D 0A 34 30 32 30 20 50 52 49 4E UT Q$..4020 PRIN
000020: 54 0D 0A 34 30 33 30 20 49 46 20 51 24 3D 22 59 T..4030 IF Q$="Y
000030: 45 53 22 20 54 48 45 4E 20 33 30 20 0D 0A 34 30 ES" THEN 30 ..40
000040: 34 30 20 49 46 20 51 24 3D 22 4E 4F 22 20 54 48 40 IF Q$="NO" TH
000050: 45 4E 20 34 30 35 30 0D 0A 34 30 34 32 20 50 52 EN 4050..4042 PR
000060: 49 4E 54 20 22 50 4C 45 41 53 45 20 41 4E 53 57 INT "PLEASE ANSW
000070: 45 52 20 27 59 45 53 27 20 4F 52 20 27 4E 4F 27 ER 'YES' OR 'NO'
000080: 2E 22 0D 0A 34 30 34 35 20 47 4F 54 4F 20 34 30 ."..4045 GOTO 40
000090: 30 30 0D 0A 34 30 35 30 20 50 52 49 4E 54 3A 50 00..4050 PRINT:P
0000A0: 52 49 4E 54 20 22 4F 4B 20 2D 2D 2D 20 54 48 41 RINT "OK --- THA
0000B0: 4E 4B 53 20 41 47 41 49 4E 2E 22 0D 0A 34 30 36 NKS AGAIN."..406
0000C0: 30 20 53 54 4F 50 0D 0A 34 39 39 30 20 52 45 4D 0 STOP..4990 REM
0000D0: 20 20 20 20 20 44 49 52 45 43 54 49 4F 4E 53 0D DIRECTIONS.
0000E0: 0A 35 30 30 30 20 50 52 49 4E 54 20 22 57 45 20 .5000 PRINT "WE
0000F0: 41 52 45 20 47 4F 49 4E 47 20 54 4F 20 50 4C 41 ARE GOING TO PLA
000100: 59 20 41 20 47 41 4D 45 20 42 41 53 45 44 20 4F Y A GAME BASED O
000110: 4E 20 4F 4E 45 20 4F 46 20 54 48 45 20 43 48 45 N ONE OF THE CHE
000120: 53 53 22 0D 0A 35 30 31 30 20 50 52 49 4E 54 20 SS"..5010 PRINT
000130: 22 4D 4F 56 45 53 2E 20 20 4F 55 52 20 51 55 45 "MOVES. OUR QUE
000140: 45 4E 20 57 49 4C 4C 20 42 45 20 41 42 4C 45 20 EN WILL BE ABLE
000150: 54 4F 20 4D 4F 56 45 20 4F 4E 4C 59 20 54 4F 20 TO MOVE ONLY TO
000160: 54 48 45 20 4C 45 46 54 2C 22 0D 0A 35 30 32 30 THE LEFT,"..5020
000170: 20 50 52 49 4E 54 20 22 44 4F 57 4E 2C 20 4F 52 PRINT "DOWN, OR
000180: 20 44 49 41 47 4F 4E 41 4C 4C 59 20 44 4F 57 4E DIAGONALLY DOWN
000190: 20 41 4E 44 20 54 4F 20 54 48 45 20 4C 45 46 54 AND TO THE LEFT
0001A0: 2E 22 0D 0A 35 30 33 30 20 50 52 49 4E 54 0D 0A ."..5030 PRINT..
0001B0: 35 30 34 30 20 50 52 49 4E 54 20 22 54 48 45 20 5040 PRINT "THE
0001C0: 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 OBJECT OF THE GA
0001D0: 4D 45 20 49 53 20 54 4F 20 50 4C 41 43 45 20 54 ME IS TO PLACE T
0001E0: 48 45 20 51 55 45 45 4E 20 49 4E 20 54 48 45 20 HE QUEEN IN THE
0001F0: 4C 4F 57 45 52 22 0D 0A 35 30 35 30 20 50 52 49 LOWER"..5050 PRI
Size : 512 (Real : 512)
000000: 49 47 49 4E 41 4C 20 4C 49 53 54 20 41 4E 44 20 IGINAL LIST AND
000010: 53 54 41 52 54 20 47 41 4D 45 0D 0A 32 39 30 20 START GAME..290
000020: 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 48 45 PRINT: PRINT "HE
000030: 52 45 20 57 45 20 47 4F 20 2E 2E 2E 20 54 48 45 RE WE GO ... THE
000040: 20 4C 49 53 54 20 49 53 3A 22 0D 0A 33 31 30 20 LIST IS:"..310
000050: 54 3D 30 0D 0A 33 32 30 20 47 4F 53 55 42 20 36 T=0..320 GOSUB 6
000060: 31 30 0D 0A 33 33 30 20 50 52 49 4E 54 20 22 48 10..330 PRINT "H
000070: 4F 57 20 4D 41 4E 59 20 53 48 41 4C 4C 20 49 20 OW MANY SHALL I
000080: 52 45 56 45 52 53 45 22 3B 0D 0A 33 34 30 20 49 REVERSE";..340 I
000090: 4E 50 55 54 20 52 0D 0A 33 35 30 20 49 46 20 52 NPUT R..350 IF R
0000A0: 3D 30 20 54 48 45 4E 20 35 32 30 0D 0A 33 36 30 =0 THEN 520..360
0000B0: 20 49 46 20 52 3C 3D 4E 20 54 48 45 4E 20 33 39 IF R<=N THEN 39
0000C0: 30 0D 0A 33 37 30 20 50 52 49 4E 54 20 22 4F 4F 0..370 PRINT "OO
0000D0: 50 53 21 20 54 4F 4F 20 4D 41 4E 59 21 20 49 20 PS! TOO MANY! I
0000E0: 43 41 4E 20 52 45 56 45 52 53 45 20 41 54 20 4D CAN REVERSE AT M
0000F0: 4F 53 54 22 3B 4E 3A 47 4F 54 4F 20 33 33 30 0D OST";N:GOTO 330.
000100: 0A 33 39 30 20 54 3D 54 2B 31 0D 0A 34 30 30 20 .390 T=T+1..400
000110: 52 45 4D 20 2A 2A 2A 20 52 45 56 45 52 53 45 20 REM *** REVERSE
000120: 52 20 4E 55 4D 42 45 52 53 20 41 4E 44 20 50 52 R NUMBERS AND PR
000130: 49 4E 54 20 4E 45 57 20 4C 49 53 54 0D 0A 34 31 INT NEW LIST..41
000140: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 49 4E 54 0 FOR K=1 TO INT
000150: 28 52 2F 32 29 0D 0A 34 32 30 20 5A 3D 41 28 4B (R/2)..420 Z=A(K
000160: 29 0D 0A 34 33 30 20 41 28 4B 29 3D 41 28 52 2D )..430 A(K)=A(R-
000170: 4B 2B 31 29 0D 0A 34 34 30 20 41 28 52 2D 4B 2B K+1)..440 A(R-K+
000180: 31 29 3D 5A 0D 0A 34 35 30 20 4E 45 58 54 20 4B 1)=Z..450 NEXT K
000190: 0D 0A 34 36 30 20 47 4F 53 55 42 20 36 31 30 0D ..460 GOSUB 610.
0001A0: 0A 34 37 30 20 52 45 4D 20 2A 2A 2A 20 43 48 45 .470 REM *** CHE
0001B0: 43 4B 20 46 4F 52 20 41 20 57 49 4E 0D 0A 34 38 CK FOR A WIN..48
0001C0: 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 0 FOR K=1 TO N..
0001D0: 34 39 30 20 49 46 20 41 28 4B 29 3C 3E 4B 20 54 490 IF A(K)<>K T
0001E0: 48 45 4E 20 33 33 30 0D 0A 35 30 30 20 4E 45 58 HEN 330..500 NEX
0001F0: 54 20 4B 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 T K..510 PRINT "
Size : 512 (Real : 512)
000000: 4E 54 20 22 4C 45 46 54 20 48 41 4E 44 20 53 51 NT "LEFT HAND SQ
000010: 55 41 52 45 20 42 59 20 41 4C 54 45 52 4E 41 54 UARE BY ALTERNAT
000020: 49 4E 47 20 4D 4F 56 45 53 20 42 45 54 57 45 45 ING MOVES BETWEE
000030: 4E 20 59 4F 55 20 41 4E 44 20 54 48 45 22 0D 0A N YOU AND THE"..
000040: 35 30 36 30 20 50 52 49 4E 54 20 22 43 4F 4D 50 5060 PRINT "COMP
000050: 55 54 45 52 2E 20 20 54 48 45 20 46 49 52 53 54 UTER. THE FIRST
000060: 20 4F 4E 45 20 54 4F 20 50 4C 41 43 45 20 54 48 ONE TO PLACE TH
000070: 45 20 51 55 45 45 4E 20 54 48 45 52 45 20 57 49 E QUEEN THERE WI
000080: 4E 53 2E 22 0D 0A 35 30 37 30 20 50 52 49 4E 54 NS."..5070 PRINT
000090: 0D 0A 35 30 38 30 20 50 52 49 4E 54 20 22 59 4F ..5080 PRINT "YO
0000A0: 55 20 47 4F 20 46 49 52 53 54 20 41 4E 44 20 50 U GO FIRST AND P
0000B0: 4C 41 43 45 20 54 48 45 20 51 55 45 45 4E 20 49 LACE THE QUEEN I
0000C0: 4E 20 41 4E 59 20 4F 4E 45 20 4F 46 20 54 48 45 N ANY ONE OF THE
0000D0: 20 53 51 55 41 52 45 53 22 0D 0A 35 30 39 30 20 SQUARES"..5090
0000E0: 50 52 49 4E 54 20 22 4F 4E 20 54 48 45 20 54 4F PRINT "ON THE TO
0000F0: 50 20 52 4F 57 20 4F 52 20 52 49 47 48 54 20 48 P ROW OR RIGHT H
000100: 41 4E 44 20 43 4F 4C 55 4D 4E 2E 22 0D 0A 35 31 AND COLUMN."..51
000110: 30 30 20 50 52 49 4E 54 20 22 54 48 41 54 20 57 00 PRINT "THAT W
000120: 49 4C 4C 20 42 45 20 59 4F 55 52 20 46 49 52 53 ILL BE YOUR FIRS
000130: 54 20 4D 4F 56 45 2E 22 0D 0A 35 31 31 30 20 50 T MOVE."..5110 P
000140: 52 49 4E 54 20 22 57 45 20 41 4C 54 45 52 4E 41 RINT "WE ALTERNA
000150: 54 45 20 4D 4F 56 45 53 2E 22 0D 0A 35 31 32 30 TE MOVES."..5120
000160: 20 50 52 49 4E 54 20 22 59 4F 55 20 4D 41 59 20 PRINT "YOU MAY
000170: 46 4F 52 46 45 49 54 20 42 59 20 54 59 50 49 4E FORFEIT BY TYPIN
000180: 47 20 27 30 27 20 41 53 20 59 4F 55 52 20 4D 4F G '0' AS YOUR MO
000190: 56 45 2E 22 0D 0A 35 31 33 30 20 50 52 49 4E 54 VE."..5130 PRINT
0001A0: 20 22 42 45 20 53 55 52 45 20 54 4F 20 50 52 45 "BE SURE TO PRE
0001B0: 53 53 20 54 48 45 20 52 45 54 55 52 4E 20 4B 45 SS THE RETURN KE
0001C0: 59 20 41 46 54 45 52 20 45 41 43 48 20 52 45 53 Y AFTER EACH RES
0001D0: 50 4F 4E 53 45 2E 22 0D 0A 35 31 34 30 20 50 52 PONSE."..5140 PR
0001E0: 49 4E 54 0D 0A 35 31 35 30 20 50 52 49 4E 54 0D INT..5150 PRINT.
0001F0: 0A 35 31 36 30 20 50 52 49 4E 54 0D 0A 35 31 37 .5160 PRINT..517
Size : 512 (Real : 512)
000000: 59 4F 55 20 57 4F 4E 20 49 54 20 49 4E 22 3B 54 YOU WON IT IN";T
000010: 3B 22 4D 4F 56 45 53 21 21 21 22 3A 50 52 49 4E ;"MOVES!!!":PRIN
000020: 54 0D 0A 35 32 30 20 50 52 49 4E 54 0D 0A 35 33 T..520 PRINT..53
000030: 30 20 50 52 49 4E 54 20 22 54 52 59 20 41 47 41 0 PRINT "TRY AGA
000040: 49 4E 20 28 59 45 53 20 4F 52 20 4E 4F 29 22 3B IN (YES OR NO)";
000050: 0D 0A 35 34 30 20 49 4E 50 55 54 20 41 24 0D 0A ..540 INPUT A$..
000060: 35 35 30 20 49 46 20 41 24 3D 22 59 45 53 22 20 550 IF A$="YES"
000070: 54 48 45 4E 20 32 31 30 0D 0A 35 36 30 20 50 52 THEN 210..560 PR
000080: 49 4E 54 3A 20 50 52 49 4E 54 20 22 4F 2E 4B 2E INT: PRINT "O.K.
000090: 20 48 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 HOPE YOU HAD FU
0000A0: 4E 21 21 22 3A 47 4F 54 4F 20 39 39 39 0D 0A 36 N!!":GOTO 999..6
0000B0: 30 30 20 52 45 4D 20 2A 2A 2A 20 53 55 42 52 4F 00 REM *** SUBRO
0000C0: 55 54 49 4E 45 20 54 4F 20 50 52 49 4E 54 20 4C UTINE TO PRINT L
0000D0: 49 53 54 0D 0A 36 31 30 20 50 52 49 4E 54 3A 46 IST..610 PRINT:F
0000E0: 4F 52 20 4B 3D 31 20 54 4F 20 4E 3A 50 52 49 4E OR K=1 TO N:PRIN
0000F0: 54 20 41 28 4B 29 3B 3A 4E 45 58 54 20 4B 0D 0A T A(K);:NEXT K..
000100: 36 35 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 650 PRINT:PRINT:
000110: 52 45 54 55 52 4E 0D 0A 37 30 30 20 52 45 4D 20 RETURN..700 REM
000120: 2A 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 20 54 *** SUBROUTINE T
000130: 4F 20 50 52 49 4E 54 20 54 48 45 20 52 55 4C 45 O PRINT THE RULE
000140: 53 0D 0A 37 31 30 20 50 52 49 4E 54 3A 50 52 49 S..710 PRINT:PRI
000150: 4E 54 20 22 54 48 49 53 20 49 53 20 54 48 45 20 NT "THIS IS THE
000160: 47 41 4D 45 20 4F 46 20 27 52 45 56 45 52 53 45 GAME OF 'REVERSE
000170: 27 2E 20 20 54 4F 20 57 49 4E 2C 20 41 4C 4C 20 '. TO WIN, ALL
000180: 59 4F 55 20 48 41 56 45 22 0D 0A 37 32 30 20 50 YOU HAVE"..720 P
000190: 52 49 4E 54 20 22 54 4F 20 44 4F 20 49 53 20 41 RINT "TO DO IS A
0001A0: 52 52 41 4E 47 45 20 41 20 4C 49 53 54 20 4F 46 RRANGE A LIST OF
0001B0: 20 4E 55 4D 42 45 52 53 20 28 31 20 54 48 52 4F NUMBERS (1 THRO
0001C0: 55 47 48 22 3B 4E 3B 22 29 22 0D 0A 37 33 30 20 UGH";N;")"..730
0001D0: 50 52 49 4E 54 20 22 49 4E 20 4E 55 4D 45 52 49 PRINT "IN NUMERI
0001E0: 43 41 4C 20 4F 52 44 45 52 20 46 52 4F 4D 20 4C CAL ORDER FROM L
0001F0: 45 46 54 20 54 4F 20 52 49 47 48 54 2E 20 20 54 EFT TO RIGHT. T
Size : 512 (Real : 512)
000000: 20 4F 20 4F 20 44 20 20 4C 20 55 20 43 20 4B 20 O O D L U C K
000010: 21 20 21 20 21 22 0D 0A 34 32 30 20 50 52 49 4E ! ! !"..420 PRIN
000020: 54 3A 50 52 49 4E 54 0D 0A 34 33 30 20 50 52 49 T:PRINT..430 PRI
000030: 4E 54 22 53 45 43 20 20 46 45 45 54 20 20 20 20 NT"SEC FEET
000040: 20 20 53 50 45 45 44 20 20 20 20 20 46 55 45 4C SPEED FUEL
000050: 20 20 20 20 20 50 4C 4F 54 20 4F 46 20 44 49 53 PLOT OF DIS
000060: 54 41 4E 43 45 22 0D 0A 34 35 30 20 50 52 49 4E TANCE"..450 PRIN
000070: 54 0D 0A 34 35 35 20 54 3D 30 3A 48 3D 31 30 30 T..455 T=0:H=100
000080: 30 3A 56 3D 35 30 3A 46 3D 31 35 30 0D 0A 34 39 0:V=50:F=150..49
000090: 30 20 50 52 49 4E 54 20 54 3B 54 41 42 28 36 29 0 PRINT T;TAB(6)
0000A0: 3B 48 3B 54 41 42 28 31 36 29 3B 56 3B 54 41 42 ;H;TAB(16);V;TAB
0000B0: 28 32 36 29 3B 46 3B 54 41 42 28 33 35 29 3B 22 (26);F;TAB(35);"
0000C0: 49 22 3B 54 41 42 28 48 2F 31 35 29 3B 22 2A 22 I";TAB(H/15);"*"
0000D0: 0D 0A 35 30 30 20 49 4E 50 55 54 20 42 0D 0A 35 ..500 INPUT B..5
0000E0: 31 30 20 49 46 20 42 3C 30 20 54 48 45 4E 20 36 10 IF B<0 THEN 6
0000F0: 35 30 0D 0A 35 32 30 20 49 46 20 42 3E 33 30 20 50..520 IF B>30
000100: 54 48 45 4E 20 42 3D 33 30 0D 0A 35 33 30 20 49 THEN B=30..530 I
000110: 46 20 42 3E 46 20 54 48 45 4E 20 42 3D 46 0D 0A F B>F THEN B=F..
000120: 35 34 30 20 56 31 3D 56 2D 42 2B 35 0D 0A 35 36 540 V1=V-B+5..56
000130: 30 20 46 3D 46 2D 42 0D 0A 35 37 30 20 48 3D 48 0 F=F-B..570 H=H
000140: 2D 20 2E 35 2A 28 56 2B 56 31 29 0D 0A 35 38 30 - .5*(V+V1)..580
000150: 20 49 46 20 48 3C 3D 30 20 54 48 45 4E 20 36 37 IF H<=0 THEN 67
000160: 30 0D 0A 35 39 30 20 54 3D 54 2B 31 0D 0A 36 30 0..590 T=T+1..60
000170: 30 20 56 3D 56 31 0D 0A 36 31 30 20 49 46 20 46 0 V=V1..610 IF F
000180: 3E 30 20 54 48 45 4E 20 34 39 30 0D 0A 36 31 35 >0 THEN 490..615
000190: 20 49 46 20 42 3D 30 20 54 48 45 4E 20 36 34 30 IF B=0 THEN 640
0001A0: 0D 0A 36 32 30 20 50 52 49 4E 54 22 2A 2A 2A 2A ..620 PRINT"****
0001B0: 20 4F 55 54 20 4F 46 20 46 55 45 4C 20 2A 2A 2A OUT OF FUEL ***
0001C0: 2A 22 0D 0A 36 34 30 20 50 52 49 4E 54 20 54 3B *"..640 PRINT T;
0001D0: 54 41 42 28 34 29 3B 48 3B 54 41 42 28 31 32 29 TAB(4);H;TAB(12)
0001E0: 3B 56 3B 54 41 42 28 32 30 29 3B 46 3B 54 41 42 ;V;TAB(20);F;TAB
0001F0: 28 32 39 29 3B 22 49 22 3B 54 41 42 28 48 2F 31 (29);"I";TAB(H/1
Size : 512 (Real : 512)
000000: 4F 20 4D 4F 56 45 2C 20 59 4F 55 22 0D 0A 37 34 O MOVE, YOU"..74
000010: 30 20 50 52 49 4E 54 20 22 54 45 4C 4C 20 4D 45 0 PRINT "TELL ME
000020: 20 48 4F 57 20 4D 41 4E 59 20 4E 55 4D 42 45 52 HOW MANY NUMBER
000030: 53 20 28 43 4F 55 4E 54 49 4E 47 20 46 52 4F 4D S (COUNTING FROM
000040: 20 54 48 45 20 4C 45 46 54 29 20 54 4F 22 0D 0A THE LEFT) TO"..
000050: 37 35 30 20 50 52 49 4E 54 20 22 52 45 56 45 52 750 PRINT "REVER
000060: 53 45 2E 20 20 46 4F 52 20 45 58 41 4D 50 4C 45 SE. FOR EXAMPLE
000070: 2C 20 49 46 20 54 48 45 20 43 55 52 52 45 4E 54 , IF THE CURRENT
000080: 20 4C 49 53 54 20 49 53 3A 22 0D 0A 37 36 30 20 LIST IS:"..760
000090: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 32 20 33 PRINT:PRINT "2 3
0000A0: 20 34 20 35 20 31 20 36 20 37 20 38 20 39 22 0D 4 5 1 6 7 8 9".
0000B0: 0A 37 37 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .770 PRINT:PRINT
0000C0: 20 22 41 4E 44 20 59 4F 55 20 52 45 56 45 52 53 "AND YOU REVERS
0000D0: 45 20 34 2C 20 54 48 45 20 52 45 53 55 4C 54 20 E 4, THE RESULT
0000E0: 57 49 4C 4C 20 42 45 3A 22 0D 0A 37 38 30 20 50 WILL BE:"..780 P
0000F0: 52 49 4E 54 3A 50 52 49 4E 54 20 22 35 20 34 20 RINT:PRINT "5 4
000100: 33 20 32 20 31 20 36 20 37 20 38 20 39 22 0D 0A 3 2 1 6 7 8 9"..
000110: 37 39 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 790 PRINT:PRINT
000120: 22 4E 4F 57 20 49 46 20 59 4F 55 20 52 45 56 45 "NOW IF YOU REVE
000130: 52 53 45 20 35 2C 20 59 4F 55 20 57 49 4E 21 22 RSE 5, YOU WIN!"
000140: 0D 0A 38 30 30 20 50 52 49 4E 54 3A 50 52 49 4E ..800 PRINT:PRIN
000150: 54 20 22 31 20 32 20 33 20 34 20 35 20 36 20 37 T "1 2 3 4 5 6 7
000160: 20 38 20 39 22 3A 50 52 49 4E 54 0D 0A 38 31 30 8 9":PRINT..810
000170: 20 50 52 49 4E 54 20 22 4E 4F 20 44 4F 55 42 54 PRINT "NO DOUBT
000180: 20 59 4F 55 20 57 49 4C 4C 20 4C 49 4B 45 20 54 YOU WILL LIKE T
000190: 48 49 53 20 47 41 4D 45 2C 20 42 55 54 22 0D 0A HIS GAME, BUT"..
0001A0: 38 32 30 20 50 52 49 4E 54 20 22 49 46 20 59 4F 820 PRINT "IF YO
0001B0: 55 20 57 41 4E 54 20 54 4F 20 51 55 49 54 2C 20 U WANT TO QUIT,
0001C0: 52 45 56 45 52 53 45 20 30 20 28 5A 45 52 4F 29 REVERSE 0 (ZERO)
0001D0: 2E 22 3A 50 52 49 4E 54 3A 20 52 45 54 55 52 4E .":PRINT: RETURN
0001E0: 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 ..999 END.......
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 2B 32 39 29 3B 22 2A 22 0D 0A 36 35 30 20 42 2+29);"*"..650 B
000010: 3D 30 0D 0A 36 36 30 20 47 4F 54 4F 20 35 34 30 =0..660 GOTO 540
000020: 0D 0A 36 37 30 20 50 52 49 4E 54 22 2A 2A 2A 2A ..670 PRINT"****
000030: 2A 20 43 4F 4E 54 41 43 54 20 2A 2A 2A 2A 2A 22 * CONTACT *****"
000040: 0D 0A 36 38 30 20 48 3D 48 2B 20 2E 35 2A 28 56 ..680 H=H+ .5*(V
000050: 31 2B 56 29 0D 0A 36 39 30 20 49 46 20 42 3D 35 1+V)..690 IF B=5
000060: 20 54 48 45 4E 20 37 32 30 0D 0A 37 30 30 20 44 THEN 720..700 D
000070: 3D 28 2D 56 2B 53 51 52 28 56 2A 56 2B 48 2A 28 =(-V+SQR(V*V+H*(
000080: 31 30 2D 32 2A 42 29 29 29 2F 28 35 2D 42 29 0D 10-2*B)))/(5-B).
000090: 0A 37 31 30 20 47 4F 54 4F 20 37 33 30 0D 0A 37 .710 GOTO 730..7
0000A0: 32 30 20 44 3D 48 2F 56 0D 0A 37 33 30 20 56 31 20 D=H/V..730 V1
0000B0: 3D 56 2B 28 35 2D 42 29 2A 44 0D 0A 37 36 30 20 =V+(5-B)*D..760
0000C0: 50 52 49 4E 54 22 54 4F 55 43 48 44 4F 57 4E 20 PRINT"TOUCHDOWN
0000D0: 41 54 22 3B 54 2B 44 3B 22 53 45 43 4F 4E 44 53 AT";T+D;"SECONDS
0000E0: 2E 22 0D 0A 37 37 30 20 50 52 49 4E 54 22 4C 41 ."..770 PRINT"LA
0000F0: 4E 44 49 4E 47 20 56 45 4C 4F 43 49 54 59 3D 22 NDING VELOCITY="
000100: 3B 56 31 3B 22 46 45 45 54 2F 53 45 43 2E 22 0D ;V1;"FEET/SEC.".
000110: 0A 37 38 30 20 50 52 49 4E 54 20 46 3B 22 55 4E .780 PRINT F;"UN
000120: 49 54 53 20 4F 46 20 46 55 45 4C 20 52 45 4D 41 ITS OF FUEL REMA
000130: 49 4E 49 4E 47 2E 22 0D 0A 37 39 30 20 49 46 20 INING."..790 IF
000140: 56 31 3C 3E 30 20 54 48 45 4E 20 38 31 30 0D 0A V1<>0 THEN 810..
000150: 38 30 30 20 50 52 49 4E 54 22 43 4F 4E 47 52 41 800 PRINT"CONGRA
000160: 54 55 4C 41 54 49 4F 4E 53 21 20 41 20 50 45 52 TULATIONS! A PER
000170: 46 45 43 54 20 4C 41 4E 44 49 4E 47 21 21 22 0D FECT LANDING!!".
000180: 0A 38 30 35 20 50 52 49 4E 54 22 59 4F 55 52 20 .805 PRINT"YOUR
000190: 4C 49 43 45 4E 53 45 20 57 49 4C 4C 20 42 45 20 LICENSE WILL BE
0001A0: 52 45 4E 45 57 45 44 2E 2E 2E 2E 2E 2E 2E 4C 41 RENEWED.......LA
0001B0: 54 45 52 2E 22 0D 0A 38 31 30 20 49 46 20 41 42 TER."..810 IF AB
0001C0: 53 28 56 31 29 3C 32 20 54 48 45 4E 20 38 34 30 S(V1)<2 THEN 840
0001D0: 0D 0A 38 32 30 20 50 52 49 4E 54 22 2A 2A 2A 2A ..820 PRINT"****
0001E0: 2A 20 53 4F 52 52 59 2C 20 42 55 54 20 59 4F 55 * SORRY, BUT YOU
0001F0: 20 42 4C 45 57 20 49 54 21 21 21 21 22 0D 0A 38 BLEW IT!!!!"..8
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
000010: 3B 20 22 52 4F 43 4B 45 54 22 0D 0A 32 30 20 50 ; "ROCKET"..20 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 W JERSEY"..30 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 37 30 20 50 52 49 4E 54 20 22 4C 55 4E 41 52 .70 PRINT "LUNAR
000080: 20 4C 41 4E 44 49 4E 47 20 53 49 4D 55 4C 41 54 LANDING SIMULAT
000090: 49 4F 4E 22 0D 0A 38 30 20 50 52 49 4E 54 20 22 ION"..80 PRINT "
0000A0: 2D 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 20 2D 2D ----- ------- --
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 20 50 52 49 4E 54 --------": PRINT
0000C0: 0D 0A 31 30 30 20 49 4E 50 55 54 20 22 44 4F 20 ..100 INPUT "DO
0000D0: 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 52 55 43 YOU WANT INSTRUC
0000E0: 54 49 4F 4E 53 20 28 59 45 53 20 4F 52 20 4E 4F TIONS (YES OR NO
0000F0: 29 22 3B 41 24 0D 0A 31 31 30 20 49 46 20 41 24 )";A$..110 IF A$
000100: 3D 22 4E 4F 22 20 54 48 45 4E 20 33 39 30 0D 0A ="NO" THEN 390..
000110: 31 36 30 20 50 52 49 4E 54 0D 0A 32 30 30 20 50 160 PRINT..200 P
000120: 52 49 4E 54 22 59 4F 55 20 41 52 45 20 4C 41 4E RINT"YOU ARE LAN
000130: 44 49 4E 47 20 4F 4E 20 54 48 45 20 4D 4F 4F 4E DING ON THE MOON
000140: 20 41 4E 44 20 41 4E 44 20 48 41 56 45 20 54 41 AND AND HAVE TA
000150: 4B 45 4E 20 4F 56 45 52 20 4D 41 4E 55 41 4C 22 KEN OVER MANUAL"
000160: 0D 0A 32 31 30 20 50 52 49 4E 54 22 43 4F 4E 54 ..210 PRINT"CONT
000170: 52 4F 4C 20 31 30 30 30 20 46 45 45 54 20 41 42 ROL 1000 FEET AB
000180: 4F 56 45 20 41 20 47 4F 4F 44 20 4C 41 4E 44 49 OVE A GOOD LANDI
000190: 4E 47 20 53 50 4F 54 2E 20 59 4F 55 20 48 41 56 NG SPOT. YOU HAV
0001A0: 45 20 41 20 44 4F 57 4E 2D 22 0D 0A 32 32 30 20 E A DOWN-"..220
0001B0: 50 52 49 4E 54 22 57 41 52 44 20 56 45 4C 4F 43 PRINT"WARD VELOC
0001C0: 49 54 59 20 4F 46 20 35 30 20 46 45 45 54 2F 53 ITY OF 50 FEET/S
0001D0: 45 43 2E 20 31 35 30 20 55 4E 49 54 53 20 4F 46 EC. 150 UNITS OF
0001E0: 20 46 55 45 4C 20 52 45 4D 41 49 4E 2E 22 0D 0A FUEL REMAIN."..
0001F0: 32 32 35 20 50 52 49 4E 54 0D 0A 32 33 30 20 50 225 PRINT..230 P
Size : 512 (Real : 512)
000000: 33 30 20 50 52 49 4E 54 22 41 50 50 52 4F 50 52 30 PRINT"APPROPR
000010: 49 41 54 45 20 43 4F 4E 44 4F 4C 45 4E 43 45 53 IATE CONDOLENCES
000020: 20 57 49 4C 4C 20 42 45 20 53 45 4E 54 20 54 4F WILL BE SENT TO
000030: 20 59 4F 55 52 20 4E 45 58 54 20 4F 46 20 4B 49 YOUR NEXT OF KI
000040: 4E 2E 22 0D 0A 38 34 30 20 50 52 49 4E 54 3A 50 N."..840 PRINT:P
000050: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 38 35 30 20 RINT:PRINT..850
000060: 49 4E 50 55 54 20 22 41 4E 4F 54 48 45 52 20 4D INPUT "ANOTHER M
000070: 49 53 53 49 4F 4E 22 3B 41 24 0D 0A 38 36 30 20 ISSION";A$..860
000080: 49 46 20 41 24 3D 22 59 45 53 22 20 54 48 45 4E IF A$="YES" THEN
000090: 20 33 39 30 0D 0A 38 37 30 20 50 52 49 4E 54 3A 390..870 PRINT:
0000A0: 20 50 52 49 4E 54 20 22 43 4F 4E 54 52 4F 4C 20 PRINT "CONTROL
0000B0: 4F 55 54 2E 22 3A 20 50 52 49 4E 54 0D 0A 39 39 OUT.": PRINT..99
0000C0: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 49 4E 54 22 48 45 52 45 20 41 52 45 20 54 48 RINT"HERE ARE TH
000010: 45 20 52 55 4C 45 53 20 54 48 41 54 20 47 4F 56 E RULES THAT GOV
000020: 45 52 4E 20 59 4F 55 52 20 41 50 4F 4C 4C 4F 20 ERN YOUR APOLLO
000030: 53 50 41 43 45 2D 43 52 41 46 54 3A 22 3A 20 50 SPACE-CRAFT:": P
000040: 52 49 4E 54 0D 0A 32 34 30 20 50 52 49 4E 54 22 RINT..240 PRINT"
000050: 28 31 29 20 41 46 54 45 52 20 45 41 43 48 20 53 (1) AFTER EACH S
000060: 45 43 4F 4E 44 20 54 48 45 20 48 45 49 47 48 54 ECOND THE HEIGHT
000070: 2C 20 56 45 4C 4F 43 49 54 59 2C 20 41 4E 44 20 , VELOCITY, AND
000080: 52 45 4D 41 49 4E 49 4E 47 20 46 55 45 4C 22 0D REMAINING FUEL".
000090: 0A 32 35 30 20 50 52 49 4E 54 22 20 20 20 20 57 .250 PRINT" W
0000A0: 49 4C 4C 20 42 45 20 52 45 50 4F 52 54 45 44 20 ILL BE REPORTED
0000B0: 56 49 41 20 44 49 47 42 59 20 59 4F 55 52 20 4F VIA DIGBY YOUR O
0000C0: 4E 2D 42 4F 41 52 44 20 43 4F 4D 50 55 54 45 52 N-BOARD COMPUTER
0000D0: 2E 22 0D 0A 32 36 30 20 50 52 49 4E 54 22 28 32 ."..260 PRINT"(2
0000E0: 29 20 41 46 54 45 52 20 54 48 45 20 52 45 50 4F ) AFTER THE REPO
0000F0: 52 54 20 41 20 27 3F 27 20 57 49 4C 4C 20 41 50 RT A '?' WILL AP
000100: 50 45 41 52 2E 20 45 4E 54 45 52 20 54 48 45 20 PEAR. ENTER THE
000110: 4E 55 4D 42 45 52 22 0D 0A 32 37 30 20 50 52 49 NUMBER"..270 PRI
000120: 4E 54 22 20 20 20 20 4F 46 20 55 4E 49 54 53 20 NT" OF UNITS
000130: 4F 46 20 46 55 45 4C 20 59 4F 55 20 57 49 53 48 OF FUEL YOU WISH
000140: 20 54 4F 20 42 55 52 4E 20 44 55 52 49 4E 47 20 TO BURN DURING
000150: 54 48 45 20 4E 45 58 54 22 0D 0A 32 38 30 20 50 THE NEXT"..280 P
000160: 52 49 4E 54 22 20 20 20 20 53 45 43 4F 4E 44 2E RINT" SECOND.
000170: 20 45 41 43 48 20 55 4E 49 54 20 4F 46 20 46 55 EACH UNIT OF FU
000180: 45 4C 20 57 49 4C 4C 20 53 4C 4F 57 20 59 4F 55 EL WILL SLOW YOU
000190: 52 20 44 45 53 43 45 4E 54 20 42 59 22 0D 0A 32 R DESCENT BY"..2
0001A0: 39 30 20 50 52 49 4E 54 22 20 20 20 20 31 20 46 90 PRINT" 1 F
0001B0: 4F 4F 54 2F 53 45 43 2E 22 0D 0A 33 31 30 20 50 OOT/SEC."..310 P
0001C0: 52 49 4E 54 22 28 33 29 20 54 48 45 20 4D 41 58 RINT"(3) THE MAX
0001D0: 49 4D 55 4D 20 54 48 52 55 53 54 20 4F 46 20 59 IMUM THRUST OF Y
0001E0: 4F 55 52 20 45 4E 47 49 4E 45 20 49 53 20 33 30 OUR ENGINE IS 30
0001F0: 20 46 45 45 54 2F 53 45 43 2F 53 45 43 22 0D 0A FEET/SEC/SEC"..
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 31 29 10 PRINT TAB(21)
000010: 3B 22 47 41 4D 45 20 4F 46 20 52 4F 43 4B 2C 20 ;"GAME OF ROCK,
000020: 53 43 49 53 53 4F 52 53 2C 20 50 41 50 45 52 22 SCISSORS, PAPER"
000030: 0D 0A 32 30 20 50 52 49 4E 54 20 54 41 42 28 31 ..20 PRINT TAB(1
000040: 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 5);"CREATIVE COM
000050: 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F PUTING MORRISTO
000060: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D WN, NEW JERSEY".
000070: 0A 32 35 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A .25 PRINT:PRINT:
000080: 50 52 49 4E 54 0D 0A 33 30 20 49 4E 50 55 54 20 PRINT..30 INPUT
000090: 22 48 4F 57 20 4D 41 4E 59 20 47 41 4D 45 53 22 "HOW MANY GAMES"
0000A0: 3B 51 0D 0A 34 30 20 49 46 20 51 3C 31 31 20 54 ;Q..40 IF Q<11 T
0000B0: 48 45 4E 20 36 30 0D 0A 35 30 20 50 52 49 4E 54 HEN 60..50 PRINT
0000C0: 20 22 53 4F 52 52 59 2C 20 42 55 54 20 57 45 20 "SORRY, BUT WE
0000D0: 41 52 45 4E 27 54 20 41 4C 4C 4F 57 45 44 20 54 AREN'T ALLOWED T
0000E0: 4F 20 50 4C 41 59 20 54 48 41 54 20 4D 41 4E 59 O PLAY THAT MANY
0000F0: 2E 22 3A 20 47 4F 54 4F 20 33 30 0D 0A 36 30 20 .": GOTO 30..60
000100: 46 4F 52 20 47 3D 31 20 54 4F 20 51 0D 0A 37 30 FOR G=1 TO Q..70
000110: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 47 PRINT: PRINT "G
000120: 41 4D 45 20 4E 55 4D 42 45 52 22 3B 47 0D 0A 38 AME NUMBER";G..8
000130: 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 33 0 X=INT(RND(1)*3
000140: 2B 31 29 0D 0A 39 30 20 50 52 49 4E 54 20 22 33 +1)..90 PRINT "3
000150: 3D 52 4F 43 4B 2E 2E 2E 32 3D 53 43 49 53 53 4F =ROCK...2=SCISSO
000160: 52 53 2E 2E 2E 31 3D 50 41 50 45 52 22 0D 0A 31 RS...1=PAPER"..1
000170: 30 30 20 49 4E 50 55 54 20 22 31 2E 2E 2E 32 2E 00 INPUT "1...2.
000180: 2E 2E 33 2E 2E 2E 57 48 41 54 27 53 20 59 4F 55 ..3...WHAT'S YOU
000190: 52 20 43 48 4F 49 43 45 22 3B 4B 0D 0A 31 31 30 R CHOICE";K..110
0001A0: 20 49 46 20 28 4B 2D 31 29 2A 28 4B 2D 32 29 2A IF (K-1)*(K-2)*
0001B0: 28 4B 2D 33 29 3C 3E 30 20 54 48 45 4E 20 50 52 (K-3)<>0 THEN PR
0001C0: 49 4E 54 20 22 49 4E 56 41 4C 49 44 2E 22 3A 20 INT "INVALID.":
0001D0: 47 4F 54 4F 20 39 30 0D 0A 31 32 30 20 50 52 49 GOTO 90..120 PRI
0001E0: 4E 54 20 22 54 48 49 53 20 49 53 20 4D 59 20 43 NT "THIS IS MY C
0001F0: 48 4F 49 43 45 2E 2E 2E 22 0D 0A 31 33 30 20 4F HOICE..."..130 O
Size : 512 (Real : 512)
000000: 33 32 30 20 50 52 49 4E 54 22 20 20 20 20 4F 52 320 PRINT" OR
000010: 20 33 30 20 55 4E 49 54 53 20 4F 46 20 46 55 45 30 UNITS OF FUE
000020: 4C 20 50 45 52 20 53 45 43 4F 4E 44 2E 22 0D 0A L PER SECOND."..
000030: 33 33 30 20 50 52 49 4E 54 22 28 34 29 20 57 48 330 PRINT"(4) WH
000040: 45 4E 20 59 4F 55 20 43 4F 4E 54 41 43 54 20 54 EN YOU CONTACT T
000050: 48 45 20 4C 55 4E 41 52 20 53 55 52 46 41 43 45 HE LUNAR SURFACE
000060: 2E 20 59 4F 55 52 20 44 45 53 43 45 4E 54 20 45 . YOUR DESCENT E
000070: 4E 47 49 4E 45 22 0D 0A 33 34 30 20 50 52 49 4E NGINE"..340 PRIN
000080: 54 22 20 20 20 20 57 49 4C 4C 20 41 55 54 4F 4D T" WILL AUTOM
000090: 41 54 49 43 41 4C 4C 59 20 53 48 55 54 20 44 4F ATICALLY SHUT DO
0000A0: 57 4E 20 41 4E 44 20 59 4F 55 20 57 49 4C 4C 20 WN AND YOU WILL
0000B0: 42 45 20 47 49 56 45 4E 20 41 22 0D 0A 33 35 30 BE GIVEN A"..350
0000C0: 20 50 52 49 4E 54 22 20 20 20 20 52 45 50 4F 52 PRINT" REPOR
0000D0: 54 20 4F 46 20 59 4F 55 52 20 4C 41 4E 44 49 4E T OF YOUR LANDIN
0000E0: 47 20 53 50 45 45 44 20 41 4E 44 20 52 45 4D 41 G SPEED AND REMA
0000F0: 49 4E 49 4E 47 20 46 55 45 4C 2E 22 0D 0A 33 36 INING FUEL."..36
000100: 30 20 50 52 49 4E 54 22 28 35 29 20 49 46 20 59 0 PRINT"(5) IF Y
000110: 4F 55 20 52 55 4E 20 4F 55 54 20 4F 46 20 46 55 OU RUN OUT OF FU
000120: 45 4C 20 54 48 45 20 27 3F 27 20 57 49 4C 4C 20 EL THE '?' WILL
000130: 4E 4F 20 4C 4F 4E 47 45 52 20 41 50 50 45 41 52 NO LONGER APPEAR
000140: 22 0D 0A 33 37 30 20 50 52 49 4E 54 22 20 20 20 "..370 PRINT"
000150: 20 42 55 54 20 59 4F 55 52 20 53 45 43 4F 4E 44 BUT YOUR SECOND
000160: 20 42 59 20 53 45 43 4F 4E 44 20 52 45 50 4F 52 BY SECOND REPOR
000170: 54 20 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 20 T WILL CONTINUE
000180: 55 4E 54 49 4C 22 0D 0A 33 38 30 20 50 52 49 4E UNTIL"..380 PRIN
000190: 54 22 20 20 20 20 59 4F 55 20 43 4F 4E 54 41 43 T" YOU CONTAC
0001A0: 54 20 54 48 45 20 4C 55 4E 41 52 20 53 55 52 46 T THE LUNAR SURF
0001B0: 41 43 45 2E 22 3A 50 52 49 4E 54 0D 0A 33 39 30 ACE.":PRINT..390
0001C0: 20 50 52 49 4E 54 22 42 45 47 49 4E 4E 49 4E 47 PRINT"BEGINNING
0001D0: 20 4C 41 4E 44 49 4E 47 20 50 52 4F 43 45 44 55 LANDING PROCEDU
0001E0: 52 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 50 52 RE..........":PR
0001F0: 49 4E 54 0D 0A 34 30 30 20 50 52 49 4E 54 22 47 INT..400 PRINT"G
Size : 512 (Real : 512)
000000: 4E 20 58 20 47 4F 54 4F 20 31 34 30 2C 31 35 30 N X GOTO 140,150
000010: 2C 31 36 30 0D 0A 31 34 30 20 50 52 49 4E 54 20 ,160..140 PRINT
000020: 22 2E 2E 2E 50 41 50 45 52 22 3A 20 47 4F 54 4F "...PAPER": GOTO
000030: 20 31 37 30 0D 0A 31 35 30 20 50 52 49 4E 54 20 170..150 PRINT
000040: 22 2E 2E 2E 53 43 49 53 53 4F 52 53 22 3A 20 47 "...SCISSORS": G
000050: 4F 54 4F 20 31 37 30 0D 0A 31 36 30 20 50 52 49 OTO 170..160 PRI
000060: 4E 54 20 22 2E 2E 2E 52 4F 43 4B 22 0D 0A 31 37 NT "...ROCK"..17
000070: 30 20 49 46 20 58 3D 4B 20 54 48 45 4E 20 32 35 0 IF X=K THEN 25
000080: 30 0D 0A 31 38 30 20 49 46 20 58 3E 4B 20 54 48 0..180 IF X>K TH
000090: 45 4E 20 32 33 30 0D 0A 31 39 30 20 49 46 20 58 EN 230..190 IF X
0000A0: 3D 31 20 54 48 45 4E 20 32 31 30 0D 0A 32 30 30 =1 THEN 210..200
0000B0: 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4E 21 PRINT "YOU WIN!
0000C0: 21 21 22 3A 48 3D 48 2B 31 3A 20 47 4F 54 4F 20 !!":H=H+1: GOTO
0000D0: 32 36 30 0D 0A 32 31 30 20 49 46 20 4B 3C 3E 33 260..210 IF K<>3
0000E0: 20 54 48 45 4E 20 32 30 30 0D 0A 32 32 30 20 50 THEN 200..220 P
0000F0: 52 49 4E 54 20 22 57 4F 57 21 20 20 49 20 57 49 RINT "WOW! I WI
000100: 4E 21 21 21 22 3A 43 3D 43 2B 31 3A 47 4F 54 4F N!!!":C=C+1:GOTO
000110: 20 32 36 30 0D 0A 32 33 30 20 49 46 20 4B 3C 3E 260..230 IF K<>
000120: 31 20 4F 52 20 58 3C 3E 33 20 54 48 45 4E 20 32 1 OR X<>3 THEN 2
000130: 32 30 0D 0A 32 34 30 20 47 4F 54 4F 20 32 30 30 20..240 GOTO 200
000140: 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 54 49 45 ..250 PRINT "TIE
000150: 20 47 41 4D 45 2E 20 20 4E 4F 20 57 49 4E 4E 45 GAME. NO WINNE
000160: 52 2E 22 0D 0A 32 36 30 20 4E 45 58 54 20 47 0D R."..260 NEXT G.
000170: 0A 32 37 30 20 50 52 49 4E 54 3A 20 50 52 49 4E .270 PRINT: PRIN
000180: 54 20 22 48 45 52 45 20 49 53 20 54 48 45 20 46 T "HERE IS THE F
000190: 49 4E 41 4C 20 47 41 4D 45 20 53 43 4F 52 45 3A INAL GAME SCORE:
0001A0: 22 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 49 20 "..280 PRINT "I
0001B0: 48 41 56 45 20 57 4F 4E 22 3B 43 3B 22 47 41 4D HAVE WON";C;"GAM
0001C0: 45 28 53 29 2E 22 0D 0A 32 39 30 20 50 52 49 4E E(S)."..290 PRIN
0001D0: 54 20 22 59 4F 55 20 48 41 56 45 20 57 4F 4E 22 T "YOU HAVE WON"
0001E0: 3B 48 3B 22 47 41 4D 45 28 53 29 2E 22 0D 0A 33 ;H;"GAME(S)."..3
0001F0: 30 30 20 50 52 49 4E 54 20 22 41 4E 44 22 3B 51 00 PRINT "AND";Q
Size : 512 (Real : 512)
000000: 55 4D 42 45 52 53 20 31 20 54 4F 20 33 36 20 53 UMBERS 1 TO 36 S
000010: 49 47 4E 49 46 59 20 41 20 53 54 52 41 49 47 48 IGNIFY A STRAIGH
000020: 54 20 42 45 54 22 0D 0A 31 33 31 30 20 50 52 49 T BET"..1310 PRI
000030: 4E 54 20 22 4F 4E 20 54 48 41 54 20 4E 55 4D 42 NT "ON THAT NUMB
000040: 45 52 2E 22 0D 0A 31 33 32 30 20 50 52 49 4E 54 ER."..1320 PRINT
000050: 20 22 54 48 45 53 45 20 50 41 59 20 4F 46 46 20 "THESE PAY OFF
000060: 33 35 3A 31 22 0D 0A 31 33 33 30 20 50 52 49 4E 35:1"..1330 PRIN
000070: 54 20 0D 0A 31 33 34 30 20 50 52 49 4E 54 20 22 T ..1340 PRINT "
000080: 54 48 45 20 32 3A 31 20 42 45 54 53 20 41 52 45 THE 2:1 BETS ARE
000090: 3A 22 0D 0A 31 33 35 30 20 50 52 49 4E 54 20 22 :"..1350 PRINT "
0000A0: 20 33 37 29 20 31 2D 31 32 20 20 20 20 20 34 30 37) 1-12 40
0000B0: 29 20 46 49 52 53 54 20 43 4F 4C 55 4D 4E 22 0D ) FIRST COLUMN".
0000C0: 0A 31 33 36 30 20 50 52 49 4E 54 20 22 20 33 38 .1360 PRINT " 38
0000D0: 29 20 31 33 2D 32 34 20 20 20 20 34 31 29 20 53 ) 13-24 41) S
0000E0: 45 43 4F 4E 44 20 43 4F 4C 55 4D 4E 22 0D 0A 31 ECOND COLUMN"..1
0000F0: 33 37 30 20 50 52 49 4E 54 20 22 20 33 39 29 20 370 PRINT " 39)
000100: 32 35 2D 33 36 20 20 20 20 34 32 29 20 54 48 49 25-36 42) THI
000110: 52 44 20 43 4F 4C 55 4D 4E 22 0D 0A 31 33 38 30 RD COLUMN"..1380
000120: 20 50 52 49 4E 54 20 0D 0A 31 33 39 30 20 50 52 PRINT ..1390 PR
000130: 49 4E 54 20 22 54 48 45 20 45 56 45 4E 20 4D 4F INT "THE EVEN MO
000140: 4E 45 59 20 42 45 54 53 20 41 52 45 3A 22 0D 0A NEY BETS ARE:"..
000150: 31 34 30 30 20 50 52 49 4E 54 20 22 20 34 33 29 1400 PRINT " 43)
000160: 20 31 2D 31 38 20 20 20 20 20 34 36 29 20 4F 44 1-18 46) OD
000170: 44 22 0D 0A 31 34 31 30 20 50 52 49 4E 54 20 22 D"..1410 PRINT "
000180: 20 34 34 29 20 31 39 2D 33 36 20 20 20 20 34 37 44) 19-36 47
000190: 29 20 52 45 44 22 0D 0A 31 34 32 30 20 50 52 49 ) RED"..1420 PRI
0001A0: 4E 54 20 22 20 34 35 29 20 45 56 45 4E 20 20 20 NT " 45) EVEN
0001B0: 20 20 34 38 29 20 42 4C 41 43 4B 22 0D 0A 31 34 48) BLACK"..14
0001C0: 33 30 20 50 52 49 4E 54 20 0D 0A 31 34 34 30 20 30 PRINT ..1440
0001D0: 50 52 49 4E 54 20 22 20 34 39 29 30 20 41 4E 44 PRINT " 49)0 AND
0001E0: 20 35 30 29 30 30 20 50 41 59 20 4F 46 46 20 33 50)00 PAY OFF 3
0001F0: 35 3A 31 22 0D 0A 31 34 35 30 20 50 52 49 4E 54 5:1"..1450 PRINT
Size : 512 (Real : 512)
000000: 2D 28 43 2B 48 29 3B 22 47 41 4D 45 28 53 29 20 -(C+H);"GAME(S)
000010: 45 4E 44 45 44 20 49 4E 20 41 20 54 49 45 2E 22 ENDED IN A TIE."
000020: 0D 0A 33 31 30 20 50 52 49 4E 54 3A 20 50 52 49 ..310 PRINT: PRI
000030: 4E 54 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 50 NT "THANKS FOR P
000040: 4C 41 59 49 4E 47 21 21 22 0D 0A 33 32 30 20 45 LAYING!!"..320 E
000050: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 22 20 4E 4F 54 45 3A 20 30 20 41 4E 44 20 30 " NOTE: 0 AND 0
000010: 30 20 44 4F 20 4E 4F 54 20 43 4F 55 4E 54 20 55 0 DO NOT COUNT U
000020: 4E 44 45 52 20 41 4E 59 22 0D 0A 31 34 36 30 20 NDER ANY"..1460
000030: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 42 45 PRINT " BE
000040: 54 53 20 45 58 43 45 50 54 20 54 48 45 49 52 20 TS EXCEPT THEIR
000050: 4F 57 4E 2E 22 0D 0A 31 34 37 30 20 50 52 49 4E OWN."..1470 PRIN
000060: 54 0D 0A 31 34 38 30 20 50 52 49 4E 54 20 22 57 T..1480 PRINT "W
000070: 48 45 4E 20 49 20 41 53 4B 20 46 4F 52 20 45 41 HEN I ASK FOR EA
000080: 43 48 20 42 45 54 2C 20 54 59 50 45 20 54 48 45 CH BET, TYPE THE
000090: 20 4E 55 4D 42 45 52 22 0D 0A 31 34 39 30 20 50 NUMBER"..1490 P
0000A0: 52 49 4E 54 20 22 41 4E 44 20 54 48 45 20 41 4D RINT "AND THE AM
0000B0: 4F 55 4E 54 2C 20 53 45 50 41 52 41 54 45 44 20 OUNT, SEPARATED
0000C0: 42 59 20 41 20 43 4F 4D 4D 41 2E 22 0D 0A 31 35 BY A COMMA."..15
0000D0: 30 30 20 50 52 49 4E 54 20 22 46 4F 52 20 45 58 00 PRINT "FOR EX
0000E0: 41 4D 50 4C 45 3A 20 54 4F 20 42 45 54 20 24 35 AMPLE: TO BET $5
0000F0: 30 30 20 4F 4E 20 42 4C 41 43 4B 2C 20 54 59 50 00 ON BLACK, TYP
000100: 45 20 34 38 2C 35 30 30 22 0D 0A 31 35 31 30 20 E 48,500"..1510
000110: 50 52 49 4E 54 20 22 57 48 45 4E 20 49 20 41 53 PRINT "WHEN I AS
000120: 4B 20 46 4F 52 20 41 20 42 45 54 2E 22 0D 0A 31 K FOR A BET."..1
000130: 35 32 30 20 50 52 49 4E 54 20 0D 0A 31 35 33 30 520 PRINT ..1530
000140: 20 50 52 49 4E 54 20 22 54 48 45 20 4D 49 4E 49 PRINT "THE MINI
000150: 4D 55 4D 20 42 45 54 20 49 53 20 24 35 2C 20 54 MUM BET IS $5, T
000160: 48 45 20 4D 41 58 49 4D 55 4D 20 49 53 20 24 35 HE MAXIMUM IS $5
000170: 30 30 2E 22 0D 0A 31 35 34 30 20 50 52 49 4E 54 00."..1540 PRINT
000180: 20 0D 0A 31 35 35 30 20 52 45 4D 2D 50 52 4F 47 ..1550 REM-PROG
000190: 52 41 4D 20 42 45 47 49 4E 53 20 48 45 52 45 0D RAM BEGINS HERE.
0001A0: 0A 31 35 36 30 20 52 45 4D 2D 54 59 50 45 20 4F .1560 REM-TYPE O
0001B0: 46 20 42 45 54 28 4E 55 4D 42 45 52 29 20 4F 44 F BET(NUMBER) OD
0001C0: 44 53 0D 0A 31 35 37 30 20 52 45 4D 20 20 44 4F DS..1570 REM DO
0001D0: 4E 27 54 20 4E 45 45 44 20 54 4F 20 44 49 4D 45 N'T NEED TO DIME
0001E0: 4E 53 49 4F 4E 20 53 54 52 49 4E 47 53 0D 0A 31 NSION STRINGS..1
0001F0: 35 38 30 20 44 49 4D 20 42 28 31 30 30 29 2C 43 580 DIM B(100),C
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 28 31 30 30 29 2C 54 28 31 30 30 29 2C 58 28 33 (100),T(100),X(3
000010: 38 29 0D 0A 31 35 39 30 20 44 49 4D 20 41 28 35 8)..1590 DIM A(5
000020: 30 29 0D 0A 31 36 30 30 20 46 4F 52 20 49 3D 31 0)..1600 FOR I=1
000030: 20 54 4F 20 33 38 3A 20 58 28 49 29 3D 30 3A 20 TO 38: X(I)=0:
000040: 4E 45 58 54 20 49 3A 20 52 45 4D 20 20 4D 41 54 NEXT I: REM MAT
000050: 20 58 3D 5A 45 52 0D 0A 31 36 31 30 20 50 3D 31 X=ZER..1610 P=1
000060: 30 30 30 0D 0A 31 36 32 30 20 44 3D 31 30 30 30 000..1620 D=1000
000070: 30 30 2E 0D 0A 31 36 33 30 20 50 52 49 4E 54 20 00...1630 PRINT
000080: 22 48 4F 57 20 4D 41 4E 59 20 42 45 54 53 22 3B "HOW MANY BETS";
000090: 0D 0A 31 36 34 30 20 49 4E 50 55 54 20 59 0D 0A ..1640 INPUT Y..
0000A0: 31 36 35 30 20 49 46 20 59 3C 31 20 4F 52 20 59 1650 IF Y<1 OR Y
0000B0: 3C 3E 49 4E 54 28 59 29 20 54 48 45 4E 20 31 36 <>INT(Y) THEN 16
0000C0: 33 30 0D 0A 31 36 36 30 20 46 4F 52 20 49 3D 31 30..1660 FOR I=1
0000D0: 20 54 4F 20 35 30 3A 20 41 28 49 29 3D 30 3A 20 TO 50: A(I)=0:
0000E0: 4E 45 58 54 20 49 3A 20 52 45 4D 20 20 4D 41 54 NEXT I: REM MAT
0000F0: 20 41 3D 5A 45 52 0D 0A 31 36 37 30 20 46 4F 52 A=ZER..1670 FOR
000100: 20 43 3D 31 20 54 4F 20 59 0D 0A 31 36 38 30 20 C=1 TO Y..1680
000110: 50 52 49 4E 54 20 22 4E 55 4D 42 45 52 22 3B 43 PRINT "NUMBER";C
000120: 3B 0D 0A 31 36 39 30 20 49 4E 50 55 54 20 58 2C ;..1690 INPUT X,
000130: 5A 0D 0A 31 37 30 30 20 42 28 43 29 3D 5A 0D 0A Z..1700 B(C)=Z..
000140: 31 37 31 30 20 54 28 43 29 3D 58 0D 0A 31 37 32 1710 T(C)=X..172
000150: 30 20 49 46 20 58 3C 31 20 4F 52 20 58 3E 35 30 0 IF X<1 OR X>50
000160: 20 4F 52 20 58 3C 3E 49 4E 54 28 58 29 20 54 48 OR X<>INT(X) TH
000170: 45 4E 20 31 36 38 30 0D 0A 31 37 33 30 20 49 46 EN 1680..1730 IF
000180: 20 5A 3C 31 20 4F 52 20 5A 3C 3E 49 4E 54 28 5A Z<1 OR Z<>INT(Z
000190: 29 20 54 48 45 4E 20 31 36 38 30 0D 0A 31 37 34 ) THEN 1680..174
0001A0: 30 20 49 46 20 5A 3C 35 20 4F 52 20 5A 3E 35 30 0 IF Z<5 OR Z>50
0001B0: 30 20 54 48 45 4E 20 31 36 38 30 0D 0A 31 37 35 0 THEN 1680..175
0001C0: 30 20 49 46 20 41 28 58 29 3D 30 20 54 48 45 4E 0 IF A(X)=0 THEN
0001D0: 20 31 37 38 30 0D 0A 31 37 36 30 20 50 52 49 4E 1780..1760 PRIN
0001E0: 54 20 22 59 4F 55 20 4D 41 44 45 20 54 48 41 54 T "YOU MADE THAT
0001F0: 20 42 45 54 20 4F 4E 43 45 20 41 4C 52 45 41 44 BET ONCE ALREAD
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
000010: 3B 22 52 4F 55 4C 45 54 54 45 22 0D 0A 32 30 20 ;"ROULETTE"..20
000020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
000030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
000040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
000050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 EW JERSEY"..30 P
000060: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
000070: 0D 0A 34 30 20 50 52 49 4E 54 20 22 45 4E 54 45 ..40 PRINT "ENTE
000080: 52 20 54 48 45 20 43 55 52 52 45 4E 54 20 44 41 R THE CURRENT DA
000090: 54 45 20 28 41 53 20 49 4E 20 27 4A 41 4E 55 41 TE (AS IN 'JANUA
0000A0: 52 59 20 32 33 2C 20 31 39 37 39 27 29 20 2D 22 RY 23, 1979') -"
0000B0: 3B 0D 0A 35 30 20 49 4E 50 55 54 20 44 24 2C 45 ;..50 INPUT D$,E
0000C0: 24 0D 0A 31 30 30 30 20 52 45 4D 2D 52 4F 55 4C $..1000 REM-ROUL
0000D0: 45 54 54 45 0D 0A 31 30 31 30 20 52 45 4D 2D 44 ETTE..1010 REM-D
0000E0: 41 56 49 44 20 4A 4F 53 4C 49 4E 0D 0A 31 30 32 AVID JOSLIN..102
0000F0: 30 20 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 45 0 PRINT "WELCOME
000100: 20 54 4F 20 54 48 45 20 52 4F 55 4C 45 54 54 45 TO THE ROULETTE
000110: 20 54 41 42 4C 45 22 0D 0A 31 30 33 30 20 50 52 TABLE"..1030 PR
000120: 49 4E 54 20 0D 0A 31 30 34 30 20 50 52 49 4E 54 INT ..1040 PRINT
000130: 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E "DO YOU WANT IN
000140: 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 31 30 STRUCTIONS";..10
000150: 35 30 20 49 4E 50 55 54 20 59 24 0D 0A 31 30 36 50 INPUT Y$..106
000160: 30 20 49 46 20 4C 45 46 54 24 28 59 24 2C 31 29 0 IF LEFT$(Y$,1)
000170: 3D 22 4E 22 20 54 48 45 4E 20 31 35 35 30 0D 0A ="N" THEN 1550..
000180: 31 30 37 30 20 50 52 49 4E 54 0D 0A 31 30 38 30 1070 PRINT..1080
000190: 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 PRINT "THIS IS
0001A0: 54 48 45 20 42 45 54 54 49 4E 47 20 4C 41 59 4F THE BETTING LAYO
0001B0: 55 54 22 0D 0A 31 30 39 30 20 50 52 49 4E 54 20 UT"..1090 PRINT
0001C0: 22 20 20 28 2A 3D 52 45 44 29 22 0D 0A 31 31 30 " (*=RED)"..110
0001D0: 30 20 50 52 49 4E 54 20 0D 0A 31 31 31 30 20 50 0 PRINT ..1110 P
0001E0: 52 49 4E 54 20 22 20 31 2A 20 20 20 20 32 20 20 RINT " 1* 2
0001F0: 20 20 20 33 2A 22 0D 0A 31 31 32 30 20 50 52 49 3*"..1120 PRI
Size : 512 (Real : 512)
000000: 59 2C 44 55 4D 2D 44 55 4D 22 0D 0A 31 37 37 30 Y,DUM-DUM"..1770
000010: 20 47 4F 54 4F 20 31 36 38 30 0D 0A 31 37 38 30 GOTO 1680..1780
000020: 20 41 28 58 29 3D 31 0D 0A 31 37 39 30 20 4E 45 A(X)=1..1790 NE
000030: 58 54 20 43 0D 0A 31 38 30 30 20 50 52 49 4E 54 XT C..1800 PRINT
000040: 20 22 53 50 49 4E 4E 49 4E 47 22 0D 0A 31 38 31 "SPINNING"..181
000050: 30 20 50 52 49 4E 54 20 0D 0A 31 38 32 30 20 50 0 PRINT ..1820 P
000060: 52 49 4E 54 20 0D 0A 31 38 33 30 20 53 3D 49 4E RINT ..1830 S=IN
000070: 54 28 52 4E 44 28 31 29 2A 31 30 30 29 0D 0A 31 T(RND(1)*100)..1
000080: 38 34 30 20 49 46 20 53 3D 30 20 4F 52 20 53 3E 840 IF S=0 OR S>
000090: 33 38 20 54 48 45 4E 20 31 38 33 30 0D 0A 31 38 38 THEN 1830..18
0000A0: 35 30 20 58 28 53 29 3D 58 28 53 29 2B 31 0D 0A 50 X(S)=X(S)+1..
0000B0: 31 38 36 30 20 49 46 20 53 3C 33 37 20 54 48 45 1860 IF S<37 THE
0000C0: 4E 20 31 39 32 30 0D 0A 31 38 37 30 20 49 46 20 N 1920..1870 IF
0000D0: 53 3D 33 37 20 54 48 45 4E 20 31 39 30 30 0D 0A S=37 THEN 1900..
0000E0: 31 38 38 30 20 50 52 49 4E 54 20 22 30 30 22 0D 1880 PRINT "00".
0000F0: 0A 31 38 39 30 20 47 4F 54 4F 20 32 30 32 30 0D .1890 GOTO 2020.
000100: 0A 31 39 30 30 20 50 52 49 4E 54 20 22 30 22 0D .1900 PRINT "0".
000110: 0A 31 39 31 30 20 47 4F 54 4F 20 32 30 32 30 0D .1910 GOTO 2020.
000120: 0A 31 39 32 30 20 52 45 53 54 4F 52 45 20 0D 0A .1920 RESTORE ..
000130: 31 39 33 30 20 46 4F 52 20 49 31 3D 31 20 54 4F 1930 FOR I1=1 TO
000140: 20 31 38 0D 0A 31 39 34 30 20 52 45 41 44 20 52 18..1940 READ R
000150: 0D 0A 31 39 35 30 20 49 46 20 52 3D 53 20 54 48 ..1950 IF R=S TH
000160: 45 4E 20 32 30 30 30 0D 0A 31 39 36 30 20 4E 45 EN 2000..1960 NE
000170: 58 54 20 49 31 0D 0A 31 39 37 30 20 41 24 3D 22 XT I1..1970 A$="
000180: 42 4C 41 43 4B 22 0D 0A 31 39 38 30 20 50 52 49 BLACK"..1980 PRI
000190: 4E 54 20 53 3B 41 24 0D 0A 31 39 39 30 20 47 4F NT S;A$..1990 GO
0001A0: 54 4F 20 32 30 32 30 0D 0A 32 30 30 30 20 41 24 TO 2020..2000 A$
0001B0: 3D 22 52 45 44 22 0D 0A 32 30 31 30 20 47 4F 54 ="RED"..2010 GOT
0001C0: 4F 20 31 39 38 30 0D 0A 32 30 32 30 20 50 52 49 O 1980..2020 PRI
0001D0: 4E 54 0D 0A 32 30 33 30 20 46 4F 52 20 43 3D 31 NT..2030 FOR C=1
0001E0: 20 54 4F 20 59 0D 0A 32 30 34 30 20 49 46 20 54 TO Y..2040 IF T
0001F0: 28 43 29 3C 33 37 20 54 48 45 4E 20 32 37 31 30 (C)<37 THEN 2710
Size : 512 (Real : 512)
000000: 4E 54 20 22 20 34 20 20 20 20 20 35 2A 20 20 20 NT " 4 5*
000010: 20 36 20 22 0D 0A 31 31 33 30 20 50 52 49 4E 54 6 "..1130 PRINT
000020: 20 22 20 37 2A 20 20 20 20 38 20 20 20 20 20 39 " 7* 8 9
000030: 2A 22 0D 0A 31 31 34 30 20 50 52 49 4E 54 20 22 *"..1140 PRINT "
000040: 31 30 20 20 20 20 31 31 20 20 20 20 31 32 2A 22 10 11 12*"
000050: 0D 0A 31 31 35 30 20 50 52 49 4E 54 20 22 2D 2D ..1150 PRINT "--
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A -------------"..
000070: 31 31 36 30 20 50 52 49 4E 54 20 22 31 33 20 20 1160 PRINT "13
000080: 20 20 31 34 2A 20 20 20 31 35 20 22 0D 0A 31 31 14* 15 "..11
000090: 37 30 20 50 52 49 4E 54 20 22 31 36 2A 20 20 20 70 PRINT "16*
0000A0: 31 37 20 20 20 20 31 38 2A 22 0D 0A 31 31 38 30 17 18*"..1180
0000B0: 20 50 52 49 4E 54 20 22 31 39 2A 20 20 20 32 30 PRINT "19* 20
0000C0: 20 20 20 20 32 31 2A 22 0D 0A 31 31 39 30 20 50 21*"..1190 P
0000D0: 52 49 4E 54 20 22 32 32 20 20 20 20 32 33 2A 20 RINT "22 23*
0000E0: 20 20 32 34 20 22 0D 0A 31 32 30 30 20 50 52 49 24 "..1200 PRI
0000F0: 4E 54 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D NT "------------
000100: 2D 2D 2D 22 0D 0A 31 32 31 30 20 50 52 49 4E 54 ---"..1210 PRINT
000110: 20 22 32 35 2A 20 20 20 32 36 20 20 20 20 32 37 "25* 26 27
000120: 2A 22 0D 0A 31 32 32 30 20 50 52 49 4E 54 20 22 *"..1220 PRINT "
000130: 32 38 20 20 20 20 32 39 20 20 20 20 33 30 2A 22 28 29 30*"
000140: 0D 0A 31 32 33 30 20 50 52 49 4E 54 20 22 33 31 ..1230 PRINT "31
000150: 20 20 20 20 33 32 2A 20 20 20 33 33 20 22 0D 0A 32* 33 "..
000160: 31 32 34 30 20 50 52 49 4E 54 20 22 33 34 2A 20 1240 PRINT "34*
000170: 20 20 33 35 20 20 20 20 33 36 2A 22 0D 0A 31 32 35 36*"..12
000180: 35 30 20 50 52 49 4E 54 20 22 2D 2D 2D 2D 2D 2D 50 PRINT "------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 32 36 30 ---------"..1260
0001A0: 20 50 52 49 4E 54 20 22 20 20 20 20 30 30 20 20 PRINT " 00
0001B0: 20 20 30 20 20 20 20 22 0D 0A 31 32 37 30 20 50 0 "..1270 P
0001C0: 52 49 4E 54 0D 0A 31 32 38 30 20 50 52 49 4E 54 RINT..1280 PRINT
0001D0: 20 22 54 59 50 45 53 20 4F 46 20 42 45 54 53 22 "TYPES OF BETS"
0001E0: 0D 0A 31 32 39 30 20 50 52 49 4E 54 20 0D 0A 31 ..1290 PRINT ..1
0001F0: 33 30 30 20 50 52 49 4E 54 20 22 54 48 45 20 4E 300 PRINT "THE N
Size : 512 (Real : 512)
000000: 0D 0A 32 30 35 30 20 4F 4E 20 54 28 43 29 2D 33 ..2050 ON T(C)-3
000010: 36 20 47 4F 54 4F 20 32 30 39 30 2C 32 31 39 30 6 GOTO 2090,2190
000020: 2C 32 32 32 30 2C 32 32 35 30 2C 32 33 30 30 2C ,2220,2250,2300,
000030: 32 33 35 30 2C 32 34 30 30 2C 32 34 37 30 2C 32 2350,2400,2470,2
000040: 35 30 30 0D 0A 32 30 36 30 20 4F 4E 20 54 28 43 500..2060 ON T(C
000050: 29 2D 34 35 20 47 4F 54 4F 20 32 35 33 30 2C 32 )-45 GOTO 2530,2
000060: 35 36 30 2C 32 36 33 30 0D 0A 32 30 37 30 20 47 560,2630..2070 G
000070: 4F 54 4F 20 32 37 31 30 0D 0A 32 30 38 30 20 53 OTO 2710..2080 S
000080: 54 4F 50 0D 0A 32 30 39 30 20 52 45 4D 20 20 31 TOP..2090 REM 1
000090: 2D 31 32 28 33 37 29 20 32 3A 31 0D 0A 32 31 30 -12(37) 2:1..210
0000A0: 30 20 49 46 20 53 20 3C 3D 20 31 32 20 54 48 45 0 IF S <= 12 THE
0000B0: 4E 20 32 31 35 30 0D 0A 32 31 31 30 20 50 52 49 N 2150..2110 PRI
0000C0: 4E 54 20 22 59 4F 55 20 4C 4F 53 45 22 3B 42 28 NT "YOU LOSE";B(
0000D0: 43 29 3B 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 C);"DOLLARS ON B
0000E0: 45 54 22 3B 43 0D 0A 32 31 32 30 20 44 3D 44 2B ET";C..2120 D=D+
0000F0: 42 28 43 29 0D 0A 32 31 33 30 20 50 3D 50 2D 42 B(C)..2130 P=P-B
000100: 28 43 29 0D 0A 32 31 34 30 20 47 4F 54 4F 20 32 (C)..2140 GOTO 2
000110: 31 38 30 0D 0A 32 31 35 30 20 50 52 49 4E 54 20 180..2150 PRINT
000120: 22 59 4F 55 20 57 49 4E 22 3B 42 28 43 29 2A 32 "YOU WIN";B(C)*2
000130: 3B 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 45 54 ;"DOLLARS ON BET
000140: 22 43 0D 0A 32 31 36 30 20 44 3D 44 2D 42 28 43 "C..2160 D=D-B(C
000150: 29 2A 32 0D 0A 32 31 37 30 20 50 3D 50 2B 42 28 )*2..2170 P=P+B(
000160: 43 29 2A 32 0D 0A 32 31 38 30 20 47 4F 54 4F 20 C)*2..2180 GOTO
000170: 32 38 31 30 0D 0A 32 31 39 30 20 52 45 4D 20 20 2810..2190 REM
000180: 31 33 2D 32 34 28 33 38 29 20 32 3A 31 0D 0A 32 13-24(38) 2:1..2
000190: 32 30 30 20 49 46 20 53 3E 31 32 20 41 4E 44 20 200 IF S>12 AND
0001A0: 53 3C 32 35 20 54 48 45 4E 20 32 31 35 30 0D 0A S<25 THEN 2150..
0001B0: 32 32 31 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 2210 GOTO 2110..
0001C0: 32 32 32 30 20 52 45 4D 20 20 32 35 2D 33 36 28 2220 REM 25-36(
0001D0: 33 39 29 20 32 3A 31 0D 0A 32 32 33 30 20 49 46 39) 2:1..2230 IF
0001E0: 20 53 3E 32 34 20 41 4E 44 20 53 3C 33 37 20 54 S>24 AND S<37 T
0001F0: 48 45 4E 20 32 31 35 30 0D 0A 32 32 34 30 20 47 HEN 2150..2240 G
Size : 512 (Real : 512)
000000: 30 30 20 50 52 49 4E 54 20 0D 0A 33 31 31 30 20 00 PRINT ..3110
000010: 50 52 49 4E 54 20 54 41 42 28 31 30 29 2C 22 54 PRINT TAB(10),"T
000020: 48 45 20 4D 45 4D 4F 52 59 20 42 41 4E 4B 20 4F HE MEMORY BANK O
000030: 46 20 4E 45 57 20 59 4F 52 4B 22 0D 0A 33 31 32 F NEW YORK"..312
000040: 30 20 50 52 49 4E 54 20 0D 0A 33 31 33 30 20 50 0 PRINT ..3130 P
000050: 52 49 4E 54 20 54 41 42 28 34 30 29 2C 22 54 48 RINT TAB(40),"TH
000060: 45 20 43 4F 4D 50 55 54 45 52 22 0D 0A 33 31 34 E COMPUTER"..314
000070: 30 20 50 52 49 4E 54 20 54 41 42 28 34 30 29 22 0 PRINT TAB(40)"
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 58 2D 2D 2D 2D 2D ----------X-----
000090: 22 0D 0A 33 31 35 30 20 50 52 49 4E 54 20 0D 0A "..3150 PRINT ..
0000A0: 33 31 36 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 3160 FOR I=1 TO
0000B0: 36 32 3A 20 50 52 49 4E 54 20 22 2D 22 3B 3A 20 62: PRINT "-";:
0000C0: 4E 45 58 54 20 49 0D 0A 33 31 37 30 20 50 52 49 NEXT I..3170 PRI
0000D0: 4E 54 20 22 43 4F 4D 45 20 42 41 43 4B 20 53 4F NT "COME BACK SO
0000E0: 4F 4E 21 22 0D 0A 33 31 38 30 20 47 4F 54 4F 20 ON!"..3180 GOTO
0000F0: 33 32 31 30 0D 0A 33 31 39 30 20 50 52 49 4E 54 3210..3190 PRINT
000100: 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 59 4F 55 "THANKS FOR YOU
000110: 52 20 4D 4F 4E 45 59 2E 22 0D 0A 33 32 30 30 20 R MONEY."..3200
000120: 50 52 49 4E 54 20 22 49 27 4C 4C 20 55 53 45 20 PRINT "I'LL USE
000130: 49 54 20 54 4F 20 42 55 59 20 41 20 53 4F 4C 49 IT TO BUY A SOLI
000140: 44 20 47 4F 4C 44 20 52 4F 55 4C 45 54 54 45 20 D GOLD ROULETTE
000150: 57 48 45 45 4C 22 0D 0A 33 32 31 30 20 50 52 49 WHEEL"..3210 PRI
000160: 4E 54 20 0D 0A 33 32 32 30 20 47 4F 54 4F 20 33 NT ..3220 GOTO 3
000170: 34 32 30 0D 0A 33 32 33 30 20 52 45 4D 0D 0A 33 420..3230 REM..3
000180: 32 34 30 20 52 45 4D 20 20 20 20 20 54 48 49 53 240 REM THIS
000190: 20 52 4F 55 54 49 4E 45 20 52 45 54 55 52 4E 53 ROUTINE RETURNS
0001A0: 20 54 48 45 20 43 55 52 52 45 4E 54 20 44 41 54 THE CURRENT DAT
0001B0: 45 20 49 4E 20 4D 24 0D 0A 33 32 35 30 20 52 45 E IN M$..3250 RE
0001C0: 4D 20 20 20 20 20 49 46 20 59 4F 55 20 48 41 56 M IF YOU HAV
0001D0: 45 20 53 59 53 54 45 4D 20 46 55 4E 43 54 49 4F E SYSTEM FUNCTIO
0001E0: 4E 53 20 54 4F 20 48 41 4E 44 4C 45 20 54 48 49 NS TO HANDLE THI
0001F0: 53 0D 0A 33 32 36 30 20 52 45 4D 20 20 20 20 20 S..3260 REM
Size : 512 (Real : 512)
000000: 4F 54 4F 20 32 31 31 30 0D 0A 32 32 35 30 20 52 OTO 2110..2250 R
000010: 45 4D 20 20 46 49 52 53 54 20 43 4F 4C 55 4D 4E EM FIRST COLUMN
000020: 28 34 30 29 20 32 3A 31 0D 0A 32 32 36 30 20 46 (40) 2:1..2260 F
000030: 4F 52 20 49 3D 31 20 54 4F 20 33 34 20 53 54 45 OR I=1 TO 34 STE
000040: 50 20 33 0D 0A 32 32 37 30 20 49 46 20 53 3D 49 P 3..2270 IF S=I
000050: 20 54 48 45 4E 20 32 31 35 30 0D 0A 32 32 38 30 THEN 2150..2280
000060: 20 4E 45 58 54 20 49 0D 0A 32 32 39 30 20 47 4F NEXT I..2290 GO
000070: 54 4F 20 32 31 31 30 0D 0A 32 33 30 30 20 52 45 TO 2110..2300 RE
000080: 4D 20 20 53 45 43 4F 4E 44 20 43 4F 4C 55 4D 4E M SECOND COLUMN
000090: 28 34 31 29 20 32 3A 31 0D 0A 32 33 31 30 20 46 (41) 2:1..2310 F
0000A0: 4F 52 20 49 3D 32 20 54 4F 20 33 35 20 53 54 45 OR I=2 TO 35 STE
0000B0: 50 20 33 0D 0A 32 33 32 30 20 49 46 20 53 3D 49 P 3..2320 IF S=I
0000C0: 20 54 48 45 4E 20 32 31 35 30 0D 0A 32 33 33 30 THEN 2150..2330
0000D0: 20 4E 45 58 54 20 49 0D 0A 32 33 34 30 20 47 4F NEXT I..2340 GO
0000E0: 54 4F 20 32 31 31 30 0D 0A 32 33 35 30 20 52 45 TO 2110..2350 RE
0000F0: 4D 20 20 54 48 49 52 44 20 43 4F 4C 55 4D 4E 28 M THIRD COLUMN(
000100: 34 32 29 20 32 3A 31 0D 0A 32 33 36 30 20 46 4F 42) 2:1..2360 FO
000110: 52 20 49 3D 33 20 54 4F 20 33 36 20 53 54 45 50 R I=3 TO 36 STEP
000120: 20 33 0D 0A 32 33 37 30 20 49 46 20 53 3D 49 20 3..2370 IF S=I
000130: 54 48 45 4E 20 32 31 35 30 0D 0A 32 33 38 30 20 THEN 2150..2380
000140: 4E 45 58 54 20 49 0D 0A 32 33 39 30 20 47 4F 54 NEXT I..2390 GOT
000150: 4F 20 32 31 31 30 0D 0A 32 34 30 30 20 52 45 4D O 2110..2400 REM
000160: 20 20 31 2D 31 38 28 34 33 29 20 31 3A 31 0D 0A 1-18(43) 1:1..
000170: 32 34 31 30 20 49 46 20 53 3C 31 39 20 54 48 45 2410 IF S<19 THE
000180: 4E 20 32 34 33 30 0D 0A 32 34 32 30 20 47 4F 54 N 2430..2420 GOT
000190: 4F 20 32 31 31 30 0D 0A 32 34 33 30 20 50 52 49 O 2110..2430 PRI
0001A0: 4E 54 20 22 59 4F 55 20 57 49 4E 22 3B 42 28 43 NT "YOU WIN";B(C
0001B0: 29 3B 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 45 );"DOLLARS ON BE
0001C0: 54 22 3B 43 0D 0A 32 34 34 30 20 44 3D 44 2D 42 T";C..2440 D=D-B
0001D0: 28 43 29 0D 0A 32 34 35 30 20 50 3D 50 2B 42 28 (C)..2450 P=P+B(
0001E0: 43 29 0D 0A 32 34 36 30 20 47 4F 54 4F 20 32 38 C)..2460 GOTO 28
0001F0: 31 30 0D 0A 32 34 37 30 20 52 45 4D 20 20 31 39 10..2470 REM 19
Size : 512 (Real : 512)
000000: 54 48 45 59 20 43 41 4E 20 42 45 20 55 53 45 44 THEY CAN BE USED
000010: 20 48 45 52 45 2E 20 20 48 4F 57 45 56 45 52 20 HERE. HOWEVER
000020: 49 4E 20 54 48 49 53 0D 0A 33 32 37 30 20 52 45 IN THIS..3270 RE
000030: 4D 20 20 20 20 20 50 52 4F 47 52 41 4D 2C 20 57 M PROGRAM, W
000040: 45 20 4A 55 53 54 20 49 4E 50 55 54 20 54 48 45 E JUST INPUT THE
000050: 20 44 41 54 45 20 41 54 20 54 48 45 20 53 54 41 DATE AT THE STA
000060: 52 54 0D 0A 33 32 38 30 20 52 45 4D 20 20 20 20 RT..3280 REM
000070: 20 54 48 45 20 47 41 4D 45 0D 0A 33 32 39 30 20 THE GAME..3290
000080: 52 45 4D 0D 0A 33 33 30 30 20 52 45 4D 20 20 20 REM..3300 REM
000090: 20 20 54 48 45 20 44 41 54 45 20 49 53 20 52 45 THE DATE IS RE
0000A0: 54 55 52 4E 45 44 20 49 4E 20 56 41 52 49 41 42 TURNED IN VARIAB
0000B0: 4C 45 20 4D 24 0D 0A 33 33 31 30 20 4D 24 3D 44 LE M$..3310 M$=D
0000C0: 24 2B 22 2C 20 22 2B 45 24 0D 0A 33 33 32 30 20 $+", "+E$..3320
0000D0: 52 45 54 55 52 4E 0D 0A 33 34 32 30 20 45 4E 44 RETURN..3420 END
0000E0: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2D 33 36 28 34 34 29 20 31 3A 31 0D 0A 32 34 38 -36(44) 1:1..248
000010: 30 20 49 46 20 53 3C 33 37 20 41 4E 44 20 53 3E 0 IF S<37 AND S>
000020: 31 38 20 54 48 45 4E 20 32 34 33 30 0D 0A 32 34 18 THEN 2430..24
000030: 39 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 32 35 90 GOTO 2110..25
000040: 30 30 20 52 45 4D 20 20 45 56 45 4E 28 34 35 29 00 REM EVEN(45)
000050: 20 31 3A 31 0D 0A 32 35 31 30 20 49 46 20 53 2F 1:1..2510 IF S/
000060: 32 3D 49 4E 54 28 53 2F 32 29 20 41 4E 44 20 53 2=INT(S/2) AND S
000070: 3C 33 37 20 54 48 45 4E 20 32 34 33 30 0D 0A 32 <37 THEN 2430..2
000080: 35 32 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 32 520 GOTO 2110..2
000090: 35 33 30 20 52 45 4D 20 20 4F 44 44 28 34 36 29 530 REM ODD(46)
0000A0: 20 31 3A 31 0D 0A 32 35 34 30 20 49 46 20 53 2F 1:1..2540 IF S/
0000B0: 32 3C 3E 49 4E 54 28 53 2F 32 29 20 41 4E 44 20 2<>INT(S/2) AND
0000C0: 53 3C 33 37 20 54 48 45 4E 20 32 34 33 30 0D 0A S<37 THEN 2430..
0000D0: 32 35 35 30 20 47 4F 54 4F 20 32 31 31 30 0D 0A 2550 GOTO 2110..
0000E0: 32 35 36 30 20 52 45 4D 20 20 52 45 44 28 34 37 2560 REM RED(47
0000F0: 29 20 31 3A 31 0D 0A 32 35 37 30 20 52 45 53 54 ) 1:1..2570 REST
000100: 4F 52 45 20 0D 0A 32 35 38 30 20 46 4F 52 20 49 ORE ..2580 FOR I
000110: 3D 31 20 54 4F 20 31 38 0D 0A 32 35 39 30 20 52 =1 TO 18..2590 R
000120: 45 41 44 20 52 0D 0A 32 36 30 30 20 49 46 20 53 EAD R..2600 IF S
000130: 3D 52 20 54 48 45 4E 20 32 34 33 30 0D 0A 32 36 =R THEN 2430..26
000140: 31 30 20 4E 45 58 54 20 49 0D 0A 32 36 32 30 20 10 NEXT I..2620
000150: 47 4F 54 4F 20 32 31 31 30 0D 0A 32 36 33 30 20 GOTO 2110..2630
000160: 52 45 4D 20 20 42 4C 41 43 4B 28 34 38 29 20 31 REM BLACK(48) 1
000170: 3A 31 0D 0A 32 36 34 30 20 52 45 53 54 4F 52 45 :1..2640 RESTORE
000180: 20 0D 0A 32 36 35 30 20 46 4F 52 20 49 3D 31 20 ..2650 FOR I=1
000190: 54 4F 20 31 38 0D 0A 32 36 36 30 20 52 45 41 44 TO 18..2660 READ
0001A0: 20 52 0D 0A 32 36 37 30 20 49 46 20 53 3D 52 20 R..2670 IF S=R
0001B0: 54 48 45 4E 20 32 31 31 30 0D 0A 32 36 38 30 20 THEN 2110..2680
0001C0: 4E 45 58 54 20 49 0D 0A 32 36 39 30 20 49 46 20 NEXT I..2690 IF
0001D0: 53 3E 33 36 20 54 48 45 4E 20 32 31 31 30 0D 0A S>36 THEN 2110..
0001E0: 32 37 30 30 20 47 4F 54 4F 20 32 34 33 30 0D 0A 2700 GOTO 2430..
0001F0: 32 37 31 30 20 52 45 4D 2D 2D 31 54 4F 33 36 2C 2710 REM--1TO36,
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 2C 30 30 28 31 2D 33 36 2C 34 39 2C 35 30 29 0,00(1-36,49,50)
000010: 33 35 3A 31 0D 0A 32 37 32 30 20 49 46 20 54 28 35:1..2720 IF T(
000020: 43 29 3C 34 39 20 54 48 45 4E 20 32 37 36 30 0D C)<49 THEN 2760.
000030: 0A 32 37 33 30 20 49 46 20 54 28 43 29 3D 34 39 .2730 IF T(C)=49
000040: 20 41 4E 44 20 53 3D 33 37 20 54 48 45 4E 20 32 AND S=37 THEN 2
000050: 37 38 30 0D 0A 32 37 34 30 20 49 46 20 54 28 43 780..2740 IF T(C
000060: 29 3D 35 30 20 41 4E 44 20 53 3D 33 38 20 54 48 )=50 AND S=38 TH
000070: 45 4E 20 32 37 38 30 0D 0A 32 37 35 30 20 47 4F EN 2780..2750 GO
000080: 54 4F 20 32 31 31 30 0D 0A 32 37 36 30 20 49 46 TO 2110..2760 IF
000090: 20 54 28 43 29 3D 53 20 54 48 45 4E 20 32 37 38 T(C)=S THEN 278
0000A0: 30 0D 0A 32 37 37 30 20 47 4F 54 4F 20 32 31 31 0..2770 GOTO 211
0000B0: 30 0D 0A 32 37 38 30 20 50 52 49 4E 54 20 22 59 0..2780 PRINT "Y
0000C0: 4F 55 20 57 49 4E 22 3B 42 28 43 29 2A 33 35 3B OU WIN";B(C)*35;
0000D0: 22 44 4F 4C 4C 41 52 53 20 4F 4E 20 42 45 54 22 "DOLLARS ON BET"
0000E0: 3B 43 0D 0A 32 37 39 30 20 44 3D 44 2D 42 28 43 ;C..2790 D=D-B(C
0000F0: 29 2A 33 35 0D 0A 32 38 30 30 20 50 3D 50 2B 42 )*35..2800 P=P+B
000100: 28 43 29 2A 33 35 0D 0A 32 38 31 30 20 4E 45 58 (C)*35..2810 NEX
000110: 54 20 43 0D 0A 32 38 32 30 20 50 52 49 4E 54 20 T C..2820 PRINT
000120: 0D 0A 32 38 33 30 20 50 52 49 4E 54 20 22 54 4F ..2830 PRINT "TO
000130: 54 41 4C 53 3A 22 2C 22 4D 45 22 2C 22 59 4F 55 TALS:","ME","YOU
000140: 22 0D 0A 32 38 34 30 20 50 52 49 4E 54 20 22 20 "..2840 PRINT "
000150: 22 2C 44 2C 50 0D 0A 32 38 35 30 20 49 46 20 50 ",D,P..2850 IF P
000160: 3E 30 20 54 48 45 4E 20 32 38 38 30 0D 0A 32 38 >0 THEN 2880..28
000170: 36 30 20 50 52 49 4E 54 20 22 4F 4F 50 53 21 20 60 PRINT "OOPS!
000180: 59 4F 55 20 4A 55 53 54 20 53 50 45 4E 54 20 59 YOU JUST SPENT Y
000190: 4F 55 52 20 4C 41 53 54 20 44 4F 4C 4C 41 52 21 OUR LAST DOLLAR!
0001A0: 22 0D 0A 32 38 37 30 20 47 4F 54 4F 20 33 31 39 "..2870 GOTO 319
0001B0: 30 0D 0A 32 38 38 30 20 49 46 20 44 3E 30 20 54 0..2880 IF D>0 T
0001C0: 48 45 4E 20 32 39 32 30 0D 0A 32 38 39 30 20 50 HEN 2920..2890 P
0001D0: 52 49 4E 54 20 22 59 4F 55 20 42 52 4F 4B 45 20 RINT "YOU BROKE
0001E0: 54 48 45 20 48 4F 55 53 45 21 22 0D 0A 32 39 30 THE HOUSE!"..290
0001F0: 30 20 50 3D 31 30 31 30 30 30 2E 0D 0A 32 39 31 0 P=101000...291
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 32 38 29 3B 1 PRINT TAB(28);
000010: 22 52 55 53 53 49 41 4E 20 52 4F 55 4C 45 54 54 "RUSSIAN ROULETT
000020: 45 22 0D 0A 32 20 50 52 49 4E 54 20 54 41 42 28 E"..2 PRINT TAB(
000030: 31 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 4F 15);"CREATIVE CO
000040: 4D 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 MPUTING MORRIST
000050: 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 OWN, NEW JERSEY"
000060: 0D 0A 33 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A ..3 PRINT:PRINT:
000070: 50 52 49 4E 54 0D 0A 35 20 50 52 49 4E 54 20 22 PRINT..5 PRINT "
000080: 54 48 49 53 20 49 53 20 41 20 47 41 4D 45 20 4F THIS IS A GAME O
000090: 46 20 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 52 55 53 53 F >>>>>>>>>>RUSS
0000A0: 49 41 4E 20 52 4F 55 4C 45 54 54 45 2E 22 0D 0A IAN ROULETTE."..
0000B0: 31 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 10 PRINT:PRINT "
0000C0: 48 45 52 45 20 49 53 20 41 20 52 45 56 4F 4C 56 HERE IS A REVOLV
0000D0: 45 52 2E 22 0D 0A 32 30 20 50 52 49 4E 54 20 22 ER."..20 PRINT "
0000E0: 54 59 50 45 20 27 31 27 20 54 4F 20 53 50 49 4E TYPE '1' TO SPIN
0000F0: 20 43 48 41 4D 42 45 52 20 41 4E 44 20 50 55 4C CHAMBER AND PUL
000100: 4C 20 54 52 49 47 47 45 52 2E 22 0D 0A 32 32 20 L TRIGGER."..22
000110: 50 52 49 4E 54 20 22 54 59 50 45 20 27 32 27 20 PRINT "TYPE '2'
000120: 54 4F 20 47 49 56 45 20 55 50 2E 22 0D 0A 32 33 TO GIVE UP."..23
000130: 20 50 52 49 4E 54 20 22 47 4F 22 3B 0D 0A 32 35 PRINT "GO";..25
000140: 20 4E 3D 30 0D 0A 33 30 20 49 4E 50 55 54 20 49 N=0..30 INPUT I
000150: 0D 0A 33 31 20 49 46 20 49 3C 3E 32 20 54 48 45 ..31 IF I<>2 THE
000160: 4E 20 33 35 0D 0A 33 32 20 50 52 49 4E 54 20 22 N 35..32 PRINT "
000170: 20 20 20 20 20 43 48 49 43 4B 45 4E 21 21 21 21 CHICKEN!!!!
000180: 21 22 0D 0A 33 33 20 47 4F 54 4F 20 37 32 0D 0A !"..33 GOTO 72..
000190: 33 35 20 4E 3D 4E 2B 31 0D 0A 34 30 20 49 46 20 35 N=N+1..40 IF
0001A0: 52 4E 44 28 31 29 3E 2E 38 33 33 33 33 33 20 54 RND(1)>.833333 T
0001B0: 48 45 4E 20 37 30 0D 0A 34 35 20 49 46 20 4E 3E HEN 70..45 IF N>
0001C0: 31 30 20 54 48 45 4E 20 38 30 0D 0A 35 30 20 50 10 THEN 80..50 P
0001D0: 52 49 4E 54 20 22 2D 20 43 4C 49 43 4B 20 2D 22 RINT "- CLICK -"
0001E0: 0D 0A 36 30 20 50 52 49 4E 54 3A 20 47 4F 54 4F ..60 PRINT: GOTO
0001F0: 20 33 30 0D 0A 37 30 20 50 52 49 4E 54 20 22 20 30..70 PRINT "
Size : 512 (Real : 512)
000000: 30 20 47 4F 54 4F 20 32 39 36 30 0D 0A 32 39 32 0 GOTO 2960..292
000010: 30 20 50 52 49 4E 54 20 22 41 47 41 49 4E 22 3B 0 PRINT "AGAIN";
000020: 0D 0A 32 39 33 30 20 49 4E 50 55 54 20 59 24 0D ..2930 INPUT Y$.
000030: 0A 32 39 34 30 20 49 46 20 4C 45 46 54 24 28 59 .2940 IF LEFT$(Y
000040: 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 31 36 $,1)="Y" THEN 16
000050: 33 30 0D 0A 32 39 35 30 20 44 41 54 41 20 31 2C 30..2950 DATA 1,
000060: 33 2C 35 2C 37 2C 39 2C 31 32 2C 31 34 2C 31 36 3,5,7,9,12,14,16
000070: 2C 31 38 2C 31 39 2C 32 31 2C 32 33 2C 32 35 2C ,18,19,21,23,25,
000080: 32 37 2C 33 30 2C 33 32 2C 33 34 2C 33 36 0D 0A 27,30,32,34,36..
000090: 32 39 36 30 20 49 46 20 50 3C 31 20 54 48 45 4E 2960 IF P<1 THEN
0000A0: 20 33 31 39 30 0D 0A 32 39 37 30 20 50 52 49 4E 3190..2970 PRIN
0000B0: 54 20 22 54 4F 20 57 48 4F 4D 20 53 48 41 4C 4C T "TO WHOM SHALL
0000C0: 20 49 20 4D 41 4B 45 20 54 48 45 20 43 48 45 43 I MAKE THE CHEC
0000D0: 4B 22 3B 0D 0A 32 39 38 30 20 49 4E 50 55 54 20 K";..2980 INPUT
0000E0: 42 24 0D 0A 32 39 39 30 20 50 52 49 4E 54 20 0D B$..2990 PRINT .
0000F0: 0A 33 30 30 30 20 46 4F 52 20 49 3D 31 20 54 4F .3000 FOR I=1 TO
000100: 20 37 32 3A 20 50 52 49 4E 54 20 22 2D 22 3B 3A 72: PRINT "-";:
000110: 20 4E 45 58 54 20 49 3A 20 52 45 4D 20 50 52 49 NEXT I: REM PRI
000120: 4E 54 20 37 32 20 44 41 53 48 45 53 0D 0A 33 30 NT 72 DASHES..30
000130: 31 30 20 50 52 49 4E 54 20 54 41 42 28 35 30 29 10 PRINT TAB(50)
000140: 3B 22 43 48 45 43 4B 20 4E 4F 2E 20 22 3B 49 4E ;"CHECK NO. ";IN
000150: 54 28 52 4E 44 28 31 29 2A 31 30 30 29 0D 0A 33 T(RND(1)*100)..3
000160: 30 32 30 20 50 52 49 4E 54 20 0D 0A 33 30 33 30 020 PRINT ..3030
000170: 20 47 4F 53 55 42 20 33 32 33 30 0D 0A 33 30 34 GOSUB 3230..304
000180: 30 20 50 52 49 4E 54 20 54 41 42 28 34 30 29 3B 0 PRINT TAB(40);
000190: 4D 24 0D 0A 33 30 35 30 20 50 52 49 4E 54 20 0D M$..3050 PRINT .
0001A0: 0A 33 30 36 30 20 50 52 49 4E 54 20 0D 0A 33 30 .3060 PRINT ..30
0001B0: 37 30 20 50 52 49 4E 54 20 22 50 41 59 20 54 4F 70 PRINT "PAY TO
0001C0: 20 54 48 45 20 4F 52 44 45 52 20 4F 46 2D 2D 2D THE ORDER OF---
0001D0: 2D 2D 22 3B 42 24 3B 22 2D 2D 2D 2D 2D 24 20 22 --";B$;"-----$ "
0001E0: 3B 0D 0A 33 30 38 30 20 50 52 49 4E 54 20 50 0D ;..3080 PRINT P.
0001F0: 0A 33 30 39 30 20 50 52 49 4E 54 20 0D 0A 33 31 .3090 PRINT ..31
Size : 512 (Real : 512)
000000: 20 20 20 20 42 41 4E 47 21 21 21 21 21 20 20 20 BANG!!!!!
000010: 59 4F 55 27 52 45 20 44 45 41 44 21 22 0D 0A 37 YOU'RE DEAD!"..7
000020: 31 20 50 52 49 4E 54 20 22 43 4F 4E 44 4F 4C 45 1 PRINT "CONDOLE
000030: 4E 43 45 53 20 57 49 4C 4C 20 42 45 20 53 45 4E NCES WILL BE SEN
000040: 54 20 54 4F 20 59 4F 55 52 20 52 45 4C 41 54 49 T TO YOUR RELATI
000050: 56 45 53 2E 22 0D 0A 37 32 20 50 52 49 4E 54 3A VES."..72 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 37 35 20 PRINT:PRINT..75
000070: 50 52 49 4E 54 20 22 2E 2E 2E 4E 45 58 54 20 56 PRINT "...NEXT V
000080: 49 43 54 49 4D 2E 2E 2E 22 3A 47 4F 54 4F 20 32 ICTIM...":GOTO 2
000090: 30 0D 0A 38 30 20 50 52 49 4E 54 20 22 59 4F 55 0..80 PRINT "YOU
0000A0: 20 57 49 4E 21 21 21 21 21 22 0D 0A 38 35 20 50 WIN!!!!!"..85 P
0000B0: 52 49 4E 54 20 22 4C 45 54 20 53 4F 4D 45 4F 4E RINT "LET SOMEON
0000C0: 45 20 45 4C 53 45 20 42 4C 4F 57 20 48 49 53 20 E ELSE BLOW HIS
0000D0: 42 52 41 49 4E 53 20 4F 55 54 2E 22 0D 0A 39 30 BRAINS OUT."..90
0000E0: 20 47 4F 54 4F 20 31 30 0D 0A 39 39 20 45 4E 44 GOTO 10..99 END
0000F0: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 37 31 30 0D 0A 31 38 39 30 20 43 3D 30 0D 0A 31 710..1890 C=0..1
000010: 39 30 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 900 PRINT "DO YO
000020: 55 20 57 41 4E 54 20 54 4F 20 53 45 45 20 4D 59 U WANT TO SEE MY
000030: 20 53 48 4F 54 53 22 3B 0D 0A 31 39 31 30 20 49 SHOTS";..1910 I
000040: 4E 50 55 54 20 4B 24 0D 0A 31 39 32 30 20 50 52 NPUT K$..1920 PR
000050: 49 4E 54 0D 0A 31 39 33 30 20 49 46 20 4A 24 3C INT..1930 IF J$<
000060: 3E 22 59 45 53 22 20 54 48 45 4E 20 32 36 32 30 >"YES" THEN 2620
000070: 0D 0A 31 39 34 30 20 52 45 4D 2A 2A 2A 2A 2A 2A ..1940 REM******
000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 54 41 *************STA
000090: 52 54 0D 0A 31 39 35 30 20 49 46 20 4A 24 3C 3E RT..1950 IF J$<>
0000A0: 22 59 45 53 22 20 54 48 45 4E 20 31 39 39 30 0D "YES" THEN 1990.
0000B0: 0A 31 39 36 30 20 43 3D 43 2B 31 0D 0A 31 39 37 .1960 C=C+1..197
0000C0: 30 20 50 52 49 4E 54 0D 0A 31 39 38 30 20 50 52 0 PRINT..1980 PR
0000D0: 49 4E 54 20 22 54 55 52 4E 22 3B 43 0D 0A 31 39 INT "TURN";C..19
0000E0: 39 30 20 41 3D 30 0D 0A 32 30 30 30 20 46 4F 52 90 A=0..2000 FOR
0000F0: 20 57 3D 2E 35 20 54 4F 20 33 20 53 54 45 50 20 W=.5 TO 3 STEP
000100: 2E 35 0D 0A 32 30 31 30 20 46 4F 52 20 58 3D 31 .5..2010 FOR X=1
000110: 20 54 4F 20 31 30 0D 0A 32 30 32 30 20 46 4F 52 TO 10..2020 FOR
000120: 20 59 3D 31 20 54 4F 20 31 30 0D 0A 32 30 33 30 Y=1 TO 10..2030
000130: 20 49 46 20 42 28 58 2C 59 29 3D 57 20 54 48 45 IF B(X,Y)=W THE
000140: 4E 20 32 30 37 30 0D 0A 32 30 34 30 20 4E 45 58 N 2070..2040 NEX
000150: 54 20 59 0D 0A 32 30 35 30 20 4E 45 58 54 20 58 T Y..2050 NEXT X
000160: 0D 0A 32 30 36 30 20 47 4F 54 4F 20 32 30 38 30 ..2060 GOTO 2080
000170: 0D 0A 32 30 37 30 20 41 3D 41 2B 49 4E 54 28 57 ..2070 A=A+INT(W
000180: 2B 2E 35 29 0D 0A 32 30 38 30 20 4E 45 58 54 20 +.5)..2080 NEXT
000190: 57 0D 0A 32 30 39 30 20 46 4F 52 20 57 3D 31 20 W..2090 FOR W=1
0001A0: 54 4F 20 37 0D 0A 32 31 30 30 20 43 28 57 29 3D TO 7..2100 C(W)=
0001B0: 30 0D 0A 32 31 31 30 20 44 28 57 29 3D 30 0D 0A 0..2110 D(W)=0..
0001C0: 32 31 32 30 20 46 28 57 29 3D 30 0D 0A 32 31 33 2120 F(W)=0..213
0001D0: 30 20 47 28 57 29 3D 30 0D 0A 32 31 34 30 20 4E 0 G(W)=0..2140 N
0001E0: 45 58 54 20 57 0D 0A 32 31 35 30 20 50 33 3D 30 EXT W..2150 P3=0
0001F0: 0D 0A 32 31 36 30 20 46 4F 52 20 58 3D 31 20 54 ..2160 FOR X=1 T
Size : 512 (Real : 512)
000000: 31 30 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 1000 PRINT TAB(3
000010: 33 29 3B 22 53 41 4C 56 4F 22 0D 0A 31 30 31 30 3);"SALVO"..1010
000020: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
000030: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
000040: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
000050: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 31 30 32 NEW JERSEY"..102
000060: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 0 PRINT:PRINT:PR
000070: 49 4E 54 0D 0A 31 30 33 30 20 52 45 4D 0D 0A 31 INT..1030 REM..1
000080: 30 34 30 20 44 49 4D 20 41 28 31 30 2C 31 30 29 040 DIM A(10,10)
000090: 2C 42 28 31 30 2C 31 30 29 2C 43 28 37 29 2C 44 ,B(10,10),C(7),D
0000A0: 28 37 29 2C 45 28 31 32 29 2C 46 28 31 32 29 2C (7),E(12),F(12),
0000B0: 47 28 31 32 29 2C 48 28 31 32 29 2C 4B 28 31 30 G(12),H(12),K(10
0000C0: 2C 31 30 29 0D 0A 31 30 35 30 20 5A 38 3D 30 0D ,10)..1050 Z8=0.
0000D0: 0A 31 30 36 30 20 46 4F 52 20 57 3D 31 20 54 4F .1060 FOR W=1 TO
0000E0: 20 31 32 0D 0A 31 30 37 30 20 45 28 57 29 3D 2D 12..1070 E(W)=-
0000F0: 31 0D 0A 31 30 38 30 20 48 28 57 29 3D 2D 31 0D 1..1080 H(W)=-1.
000100: 0A 31 30 39 30 20 4E 45 58 54 20 57 0D 0A 31 31 .1090 NEXT W..11
000110: 30 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 31 30 00 FOR X=1 TO 10
000120: 0D 0A 31 31 31 30 20 46 4F 52 20 59 3D 31 20 54 ..1110 FOR Y=1 T
000130: 4F 20 31 30 0D 0A 31 31 32 30 20 42 28 58 2C 59 O 10..1120 B(X,Y
000140: 29 3D 30 0D 0A 31 31 33 30 20 4E 45 58 54 20 59 )=0..1130 NEXT Y
000150: 0D 0A 31 31 34 30 20 4E 45 58 54 20 58 0D 0A 31 ..1140 NEXT X..1
000160: 31 35 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 31 150 FOR X=1 TO 1
000170: 32 0D 0A 31 31 36 30 20 46 28 58 29 3D 30 0D 0A 2..1160 F(X)=0..
000180: 31 31 37 30 20 47 28 58 29 3D 30 0D 0A 31 31 38 1170 G(X)=0..118
000190: 30 20 4E 45 58 54 20 58 0D 0A 31 31 39 30 20 46 0 NEXT X..1190 F
0001A0: 4F 52 20 58 3D 31 20 54 4F 20 31 30 0D 0A 31 32 OR X=1 TO 10..12
0001B0: 30 30 20 46 4F 52 20 59 3D 31 20 54 4F 20 31 30 00 FOR Y=1 TO 10
0001C0: 0D 0A 31 32 31 30 20 41 28 58 2C 59 29 3D 30 0D ..1210 A(X,Y)=0.
0001D0: 0A 31 32 32 30 20 4E 45 58 54 20 59 0D 0A 31 32 .1220 NEXT Y..12
0001E0: 33 30 20 4E 45 58 54 20 58 0D 0A 31 32 34 30 20 30 NEXT X..1240
0001F0: 46 4F 52 20 4B 3D 34 20 54 4F 20 31 20 53 54 45 FOR K=4 TO 1 STE
Size : 512 (Real : 512)
000000: 4F 20 31 30 0D 0A 32 31 37 30 20 46 4F 52 20 59 O 10..2170 FOR Y
000010: 3D 31 20 54 4F 20 31 30 0D 0A 32 31 38 30 20 49 =1 TO 10..2180 I
000020: 46 20 41 28 58 2C 59 29 3E 31 30 20 54 48 45 4E F A(X,Y)>10 THEN
000030: 20 32 32 30 30 0D 0A 32 31 39 30 20 50 33 3D 50 2200..2190 P3=P
000040: 33 2B 31 0D 0A 32 32 30 30 20 4E 45 58 54 20 59 3+1..2200 NEXT Y
000050: 0D 0A 32 32 31 30 20 4E 45 58 54 20 58 0D 0A 32 ..2210 NEXT X..2
000060: 32 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 48 220 PRINT "YOU H
000070: 41 56 45 22 3B 41 3B 22 53 48 4F 54 53 2E 22 0D AVE";A;"SHOTS.".
000080: 0A 32 32 33 30 20 49 46 20 50 33 3E 3D 41 20 54 .2230 IF P3>=A T
000090: 48 45 4E 20 32 32 36 30 0D 0A 32 32 34 30 20 50 HEN 2260..2240 P
0000A0: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 4D RINT "YOU HAVE M
0000B0: 4F 52 45 20 53 48 4F 54 53 20 54 48 41 4E 20 54 ORE SHOTS THAN T
0000C0: 48 45 52 45 20 41 52 45 20 42 4C 41 4E 4B 20 53 HERE ARE BLANK S
0000D0: 51 55 41 52 45 53 2E 22 0D 0A 32 32 35 30 20 47 QUARES."..2250 G
0000E0: 4F 54 4F 20 32 38 39 30 0D 0A 32 32 36 30 20 49 OTO 2890..2260 I
0000F0: 46 20 41 3C 3E 30 20 54 48 45 4E 20 32 32 39 30 F A<>0 THEN 2290
000100: 0D 0A 32 32 37 30 20 50 52 49 4E 54 20 22 49 20 ..2270 PRINT "I
000110: 48 41 56 45 20 57 4F 4E 2E 22 0D 0A 32 32 38 30 HAVE WON."..2280
000120: 20 53 54 4F 50 0D 0A 32 32 39 30 20 46 4F 52 20 STOP..2290 FOR
000130: 57 3D 31 20 54 4F 20 41 0D 0A 32 33 30 30 20 49 W=1 TO A..2300 I
000140: 4E 50 55 54 20 58 2C 59 0D 0A 32 33 31 30 20 49 NPUT X,Y..2310 I
000150: 46 20 58 3C 3E 49 4E 54 28 58 29 20 54 48 45 4E F X<>INT(X) THEN
000160: 20 32 33 37 30 0D 0A 32 33 32 30 20 49 46 20 58 2370..2320 IF X
000170: 3E 31 30 20 54 48 45 4E 20 32 33 37 30 0D 0A 32 >10 THEN 2370..2
000180: 33 33 30 20 49 46 20 58 3C 31 20 54 48 45 4E 20 330 IF X<1 THEN
000190: 32 33 37 30 0D 0A 32 33 34 30 20 49 46 20 59 3C 2370..2340 IF Y<
0001A0: 3E 49 4E 54 28 59 29 20 54 48 45 4E 20 32 33 37 >INT(Y) THEN 237
0001B0: 30 0D 0A 32 33 35 30 20 49 46 20 59 3E 31 30 20 0..2350 IF Y>10
0001C0: 54 48 45 4E 20 32 33 37 30 0D 0A 32 33 36 30 20 THEN 2370..2360
0001D0: 49 46 20 59 3E 3D 31 20 54 48 45 4E 20 32 33 39 IF Y>=1 THEN 239
0001E0: 30 0D 0A 32 33 37 30 20 50 52 49 4E 54 20 22 49 0..2370 PRINT "I
0001F0: 4C 4C 45 47 41 4C 2C 20 45 4E 54 45 52 20 41 47 LLEGAL, ENTER AG
Size : 512 (Real : 512)
000000: 50 20 2D 31 0D 0A 31 32 35 30 20 55 36 3D 30 0D P -1..1250 U6=0.
000010: 0A 31 32 36 30 20 47 4F 53 55 42 20 32 39 31 30 .1260 GOSUB 2910
000020: 0D 0A 31 32 37 30 20 44 45 46 20 46 4E 41 28 4B ..1270 DEF FNA(K
000030: 29 3D 28 35 2D 4B 29 2A 33 2D 32 2A 49 4E 54 28 )=(5-K)*3-2*INT(
000040: 4B 2F 34 29 2B 53 47 4E 28 4B 2D 31 29 2D 31 0D K/4)+SGN(K-1)-1.
000050: 0A 31 32 38 30 20 44 45 46 20 46 4E 42 28 4B 29 .1280 DEF FNB(K)
000060: 3D 4B 2B 49 4E 54 28 4B 2F 34 29 2D 53 47 4E 28 =K+INT(K/4)-SGN(
000070: 4B 2D 31 29 0D 0A 31 32 39 30 20 49 46 20 56 2B K-1)..1290 IF V+
000080: 56 32 2B 56 2A 56 32 3D 30 20 54 48 45 4E 20 31 V2+V*V2=0 THEN 1
000090: 32 36 30 0D 0A 31 33 30 30 20 49 46 20 59 2B 56 260..1300 IF Y+V
0000A0: 2A 46 4E 42 28 4B 29 3E 31 30 20 54 48 45 4E 20 *FNB(K)>10 THEN
0000B0: 31 32 36 30 0D 0A 31 33 31 30 20 49 46 20 59 2B 1260..1310 IF Y+
0000C0: 56 2A 46 4E 42 28 4B 29 3C 31 20 54 48 45 4E 20 V*FNB(K)<1 THEN
0000D0: 31 32 36 30 0D 0A 31 33 32 30 20 49 46 20 58 2B 1260..1320 IF X+
0000E0: 56 32 2A 46 4E 42 28 4B 29 3E 31 30 20 54 48 45 V2*FNB(K)>10 THE
0000F0: 4E 20 31 32 36 30 0D 0A 31 33 33 30 20 49 46 20 N 1260..1330 IF
000100: 58 2B 56 32 2A 46 4E 42 28 4B 29 3C 31 20 54 48 X+V2*FNB(K)<1 TH
000110: 45 4E 20 31 32 36 30 0D 0A 31 33 34 30 20 55 36 EN 1260..1340 U6
000120: 3D 55 36 2B 31 0D 0A 31 33 35 30 20 49 46 20 55 =U6+1..1350 IF U
000130: 36 3E 32 35 20 54 48 45 4E 20 31 31 39 30 0D 0A 6>25 THEN 1190..
000140: 31 33 36 30 20 46 4F 52 20 5A 3D 30 20 54 4F 20 1360 FOR Z=0 TO
000150: 46 4E 42 28 4B 29 0D 0A 31 33 37 30 20 46 28 5A FNB(K)..1370 F(Z
000160: 2B 46 4E 41 28 4B 29 29 3D 58 2B 56 32 2A 5A 0D +FNA(K))=X+V2*Z.
000170: 0A 31 33 38 30 20 47 28 5A 2B 46 4E 41 28 4B 29 .1380 G(Z+FNA(K)
000180: 29 3D 59 2B 56 2A 5A 0D 0A 31 33 39 30 20 4E 45 )=Y+V*Z..1390 NE
000190: 58 54 20 5A 0D 0A 31 34 30 30 20 55 38 3D 46 4E XT Z..1400 U8=FN
0001A0: 41 28 4B 29 0D 0A 31 34 30 35 20 49 46 20 55 38 A(K)..1405 IF U8
0001B0: 3E 55 38 2B 46 4E 42 28 4B 29 20 54 48 45 4E 20 >U8+FNB(K) THEN
0001C0: 31 34 36 30 0D 0A 31 34 31 30 20 46 4F 52 20 5A 1460..1410 FOR Z
0001D0: 32 3D 20 55 38 20 54 4F 20 55 38 2B 46 4E 42 28 2= U8 TO U8+FNB(
0001E0: 4B 29 0D 0A 31 34 31 35 20 49 46 20 55 38 3C 32 K)..1415 IF U8<2
0001F0: 20 54 48 45 4E 20 31 34 35 30 0D 0A 31 34 32 30 THEN 1450..1420
Size : 512 (Real : 512)
000000: 41 49 4E 2E 22 0D 0A 32 33 38 30 20 47 4F 54 4F AIN."..2380 GOTO
000010: 20 32 33 30 30 0D 0A 32 33 39 30 20 49 46 20 41 2300..2390 IF A
000020: 28 58 2C 59 29 3E 31 30 20 54 48 45 4E 20 32 34 (X,Y)>10 THEN 24
000030: 34 30 0D 0A 32 34 30 30 20 43 28 57 29 3D 58 0D 40..2400 C(W)=X.
000040: 0A 32 34 31 30 20 44 28 57 29 3D 59 0D 0A 32 34 .2410 D(W)=Y..24
000050: 32 30 20 4E 45 58 54 20 57 0D 0A 32 34 33 30 20 20 NEXT W..2430
000060: 47 4F 54 4F 20 32 34 36 30 0D 0A 32 34 34 30 20 GOTO 2460..2440
000070: 50 52 49 4E 54 20 22 59 4F 55 20 53 48 4F 54 20 PRINT "YOU SHOT
000080: 54 48 45 52 45 20 42 45 46 4F 52 45 20 4F 4E 20 THERE BEFORE ON
000090: 54 55 52 4E 22 3B 41 28 58 2C 59 29 2D 31 30 0D TURN";A(X,Y)-10.
0000A0: 0A 32 34 35 30 20 47 4F 54 4F 20 32 33 30 30 0D .2450 GOTO 2300.
0000B0: 0A 32 34 36 30 20 46 4F 52 20 57 3D 31 20 54 4F .2460 FOR W=1 TO
0000C0: 20 41 0D 0A 32 34 37 30 20 49 46 20 41 28 43 28 A..2470 IF A(C(
0000D0: 57 29 2C 44 28 57 29 29 3D 33 20 54 48 45 4E 20 W),D(W))=3 THEN
0000E0: 32 35 34 30 0D 0A 32 34 38 30 20 49 46 20 41 28 2540..2480 IF A(
0000F0: 43 28 57 29 2C 44 28 57 29 29 3D 32 20 54 48 45 C(W),D(W))=2 THE
000100: 4E 20 32 35 36 30 0D 0A 32 34 39 30 20 49 46 20 N 2560..2490 IF
000110: 41 28 43 28 57 29 2C 44 28 57 29 29 3D 31 20 54 A(C(W),D(W))=1 T
000120: 48 45 4E 20 32 35 38 30 0D 0A 32 35 30 30 20 49 HEN 2580..2500 I
000130: 46 20 41 28 43 28 57 29 2C 44 28 57 29 29 3D 2E F A(C(W),D(W))=.
000140: 35 20 54 48 45 4E 20 32 36 30 30 0D 0A 32 35 31 5 THEN 2600..251
000150: 30 20 41 28 43 28 57 29 2C 44 28 57 29 29 3D 31 0 A(C(W),D(W))=1
000160: 30 2B 43 0D 0A 32 35 32 30 20 4E 45 58 54 20 57 0+C..2520 NEXT W
000170: 0D 0A 32 35 33 30 20 47 4F 54 4F 20 32 36 32 30 ..2530 GOTO 2620
000180: 0D 0A 32 35 34 30 20 50 52 49 4E 54 20 22 59 4F ..2540 PRINT "YO
000190: 55 20 48 49 54 20 4D 59 20 42 41 54 54 4C 45 53 U HIT MY BATTLES
0001A0: 48 49 50 2E 22 0D 0A 32 35 35 30 20 47 4F 54 4F HIP."..2550 GOTO
0001B0: 20 32 35 31 30 0D 0A 32 35 36 30 20 50 52 49 4E 2510..2560 PRIN
0001C0: 54 20 22 59 4F 55 20 48 49 54 20 4D 59 20 43 52 T "YOU HIT MY CR
0001D0: 55 49 53 45 52 2E 22 0D 0A 32 35 37 30 20 47 4F UISER."..2570 GO
0001E0: 54 4F 20 32 35 31 30 0D 0A 32 35 38 30 20 50 52 TO 2510..2580 PR
0001F0: 49 4E 54 20 22 59 4F 55 20 48 49 54 20 4D 59 20 INT "YOU HIT MY
Size : 512 (Real : 512)
000000: 20 46 4F 52 20 5A 33 3D 31 20 54 4F 20 55 38 2D FOR Z3=1 TO U8-
000010: 31 0D 0A 31 34 33 30 20 49 46 20 53 51 52 28 28 1..1430 IF SQR((
000020: 46 28 5A 33 29 2D 46 28 5A 32 29 29 5E 32 20 2B F(Z3)-F(Z2))^2 +
000030: 20 28 47 28 5A 33 29 2D 47 28 5A 32 29 29 5E 32 (G(Z3)-G(Z2))^2
000040: 29 20 3C 20 33 2E 35 39 20 54 48 45 4E 20 31 32 ) < 3.59 THEN 12
000050: 36 30 0D 0A 31 34 34 30 20 4E 45 58 54 20 5A 33 60..1440 NEXT Z3
000060: 0D 0A 31 34 35 30 20 4E 45 58 54 20 5A 32 0D 0A ..1450 NEXT Z2..
000070: 31 34 36 30 20 46 4F 52 20 5A 3D 30 20 54 4F 20 1460 FOR Z=0 TO
000080: 46 4E 42 28 4B 29 0D 0A 31 34 37 30 20 41 28 46 FNB(K)..1470 A(F
000090: 28 5A 2B 55 38 29 2C 47 28 5A 2B 55 38 29 29 3D (Z+U8),G(Z+U8))=
0000A0: 2E 35 2B 53 47 4E 28 4B 2D 31 29 2A 28 4B 2D 31 .5+SGN(K-1)*(K-1
0000B0: 2E 35 29 0D 0A 31 34 38 30 20 4E 45 58 54 20 5A .5)..1480 NEXT Z
0000C0: 0D 0A 31 34 39 30 20 4E 45 58 54 20 4B 0D 0A 31 ..1490 NEXT K..1
0000D0: 35 30 30 20 50 52 49 4E 54 20 22 45 4E 54 45 52 500 PRINT "ENTER
0000E0: 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 46 4F 52 COORDINATES FOR
0000F0: 2E 2E 2E 22 0D 0A 31 35 31 30 20 50 52 49 4E 54 ..."..1510 PRINT
000100: 20 22 42 41 54 54 4C 45 53 48 49 50 22 0D 0A 31 "BATTLESHIP"..1
000110: 35 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 35 520 FOR X=1 TO 5
000120: 0D 0A 31 35 33 30 20 49 4E 50 55 54 20 59 2C 5A ..1530 INPUT Y,Z
000130: 0D 0A 31 35 34 30 20 42 28 59 2C 5A 29 3D 33 0D ..1540 B(Y,Z)=3.
000140: 0A 31 35 35 30 20 4E 45 58 54 20 58 0D 0A 31 35 .1550 NEXT X..15
000150: 36 30 20 50 52 49 4E 54 20 22 43 52 55 49 53 45 60 PRINT "CRUISE
000160: 52 22 0D 0A 31 35 37 30 20 46 4F 52 20 58 3D 31 R"..1570 FOR X=1
000170: 20 54 4F 20 33 0D 0A 31 35 38 30 20 49 4E 50 55 TO 3..1580 INPU
000180: 54 20 59 2C 5A 0D 0A 31 35 39 30 20 42 28 59 2C T Y,Z..1590 B(Y,
000190: 5A 29 3D 32 0D 0A 31 36 30 30 20 4E 45 58 54 20 Z)=2..1600 NEXT
0001A0: 58 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 22 44 X..1610 PRINT "D
0001B0: 45 53 54 52 4F 59 45 52 3C 41 3E 22 0D 0A 31 36 ESTROYER<A>"..16
0001C0: 32 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 32 0D 20 FOR X=1 TO 2.
0001D0: 0A 31 36 33 30 20 49 4E 50 55 54 20 59 2C 5A 0D .1630 INPUT Y,Z.
0001E0: 0A 31 36 34 30 20 42 28 59 2C 5A 29 3D 31 0D 0A .1640 B(Y,Z)=1..
0001F0: 31 36 35 30 20 4E 45 58 54 20 58 0D 0A 31 36 36 1650 NEXT X..166
Size : 512 (Real : 512)
000000: 44 45 53 54 52 4F 59 45 52 3C 41 3E 2E 22 0D 0A DESTROYER<A>."..
000010: 32 35 39 30 20 47 4F 54 4F 20 32 35 31 30 0D 0A 2590 GOTO 2510..
000020: 32 36 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 2600 PRINT "YOU
000030: 48 49 54 20 4D 59 20 44 45 53 54 52 4F 59 45 52 HIT MY DESTROYER
000040: 3C 42 3E 2E 22 0D 0A 32 36 31 30 20 47 4F 54 4F <B>."..2610 GOTO
000050: 20 32 35 31 30 0D 0A 32 36 32 30 20 41 3D 30 0D 2510..2620 A=0.
000060: 0A 32 36 33 30 20 49 46 20 4A 24 3D 22 59 45 53 .2630 IF J$="YES
000070: 22 20 54 48 45 4E 20 32 36 37 30 0D 0A 32 36 34 " THEN 2670..264
000080: 30 20 43 3D 43 2B 31 0D 0A 32 36 35 30 20 50 52 0 C=C+1..2650 PR
000090: 49 4E 54 0D 0A 32 36 36 30 20 50 52 49 4E 54 20 INT..2660 PRINT
0000A0: 22 54 55 52 4E 22 3B 43 0D 0A 32 36 37 30 20 41 "TURN";C..2670 A
0000B0: 3D 30 0D 0A 32 36 38 30 20 46 4F 52 20 57 3D 2E =0..2680 FOR W=.
0000C0: 35 20 54 4F 20 33 20 53 54 45 50 20 2E 35 0D 0A 5 TO 3 STEP .5..
0000D0: 32 36 39 30 20 46 4F 52 20 58 3D 31 20 54 4F 20 2690 FOR X=1 TO
0000E0: 31 30 0D 0A 32 37 30 30 20 46 4F 52 20 59 3D 31 10..2700 FOR Y=1
0000F0: 20 54 4F 20 31 30 0D 0A 32 37 31 30 20 49 46 20 TO 10..2710 IF
000100: 41 28 58 2C 59 29 3D 57 20 54 48 45 4E 20 32 37 A(X,Y)=W THEN 27
000110: 35 30 0D 0A 32 37 32 30 20 4E 45 58 54 20 59 0D 50..2720 NEXT Y.
000120: 0A 32 37 33 30 20 4E 45 58 54 20 58 0D 0A 32 37 .2730 NEXT X..27
000130: 34 30 20 47 4F 54 4F 20 32 37 36 30 0D 0A 32 37 40 GOTO 2760..27
000140: 35 30 20 41 3D 41 2B 49 4E 54 28 57 2B 2E 35 29 50 A=A+INT(W+.5)
000150: 0D 0A 32 37 36 30 20 4E 45 58 54 20 57 0D 0A 32 ..2760 NEXT W..2
000160: 37 37 30 20 50 33 3D 30 0D 0A 32 37 38 30 20 46 770 P3=0..2780 F
000170: 4F 52 20 58 3D 31 20 54 4F 20 31 30 0D 0A 32 37 OR X=1 TO 10..27
000180: 39 30 20 46 4F 52 20 59 3D 31 20 54 4F 20 31 30 90 FOR Y=1 TO 10
000190: 0D 0A 32 38 30 30 20 49 46 20 41 28 58 2C 59 29 ..2800 IF A(X,Y)
0001A0: 3E 31 30 20 54 48 45 4E 20 32 38 32 30 0D 0A 32 >10 THEN 2820..2
0001B0: 38 31 30 20 50 33 3D 50 33 2B 31 0D 0A 32 38 32 810 P3=P3+1..282
0001C0: 30 20 4E 45 58 54 20 59 0D 0A 32 38 33 30 20 4E 0 NEXT Y..2830 N
0001D0: 45 58 54 20 58 0D 0A 32 38 34 30 20 50 52 49 4E EXT X..2840 PRIN
0001E0: 54 20 22 49 20 48 41 56 45 22 3B 41 3B 22 53 48 T "I HAVE";A;"SH
0001F0: 4F 54 53 2E 22 0D 0A 32 38 35 30 20 49 46 20 50 OTS."..2850 IF P
Size : 512 (Real : 512)
000000: 30 20 50 52 49 4E 54 20 22 44 45 53 54 52 4F 59 0 PRINT "DESTROY
000010: 45 52 3C 42 3E 22 0D 0A 31 36 37 30 20 46 4F 52 ER<B>"..1670 FOR
000020: 20 58 3D 31 20 54 4F 20 32 0D 0A 31 36 38 30 20 X=1 TO 2..1680
000030: 49 4E 50 55 54 20 59 2C 5A 0D 0A 31 36 39 30 20 INPUT Y,Z..1690
000040: 42 28 59 2C 5A 29 3D 2E 35 0D 0A 31 37 30 30 20 B(Y,Z)=.5..1700
000050: 4E 45 58 54 20 58 0D 0A 31 37 31 30 20 50 52 49 NEXT X..1710 PRI
000060: 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 NT "DO YOU WANT
000070: 54 4F 20 53 54 41 52 54 22 3B 0D 0A 31 37 32 30 TO START";..1720
000080: 20 49 4E 50 55 54 20 4A 24 0D 0A 31 37 33 30 20 INPUT J$..1730
000090: 49 46 20 4A 24 3C 3E 22 57 48 45 52 45 20 41 52 IF J$<>"WHERE AR
0000A0: 45 20 59 4F 55 52 20 53 48 49 50 53 3F 22 20 54 E YOUR SHIPS?" T
0000B0: 48 45 4E 20 31 38 39 30 0D 0A 31 37 34 30 20 50 HEN 1890..1740 P
0000C0: 52 49 4E 54 20 22 42 41 54 54 4C 45 53 48 49 50 RINT "BATTLESHIP
0000D0: 22 0D 0A 31 37 35 30 20 46 4F 52 20 5A 3D 31 20 "..1750 FOR Z=1
0000E0: 54 4F 20 35 0D 0A 31 37 36 30 20 50 52 49 4E 54 TO 5..1760 PRINT
0000F0: 20 46 28 5A 29 3B 47 28 5A 29 0D 0A 31 37 37 30 F(Z);G(Z)..1770
000100: 20 4E 45 58 54 20 5A 0D 0A 31 37 38 30 20 50 52 NEXT Z..1780 PR
000110: 49 4E 54 20 22 43 52 55 49 53 45 52 22 0D 0A 31 INT "CRUISER"..1
000120: 37 39 30 20 50 52 49 4E 54 20 46 28 36 29 3B 47 790 PRINT F(6);G
000130: 28 36 29 0D 0A 31 38 30 30 20 50 52 49 4E 54 20 (6)..1800 PRINT
000140: 46 28 37 29 3B 47 28 37 29 0D 0A 31 38 31 30 20 F(7);G(7)..1810
000150: 50 52 49 4E 54 20 46 28 38 29 3B 47 28 38 29 0D PRINT F(8);G(8).
000160: 0A 31 38 32 30 20 50 52 49 4E 54 20 22 44 45 53 .1820 PRINT "DES
000170: 54 52 4F 59 45 52 3C 41 3E 22 0D 0A 31 38 33 30 TROYER<A>"..1830
000180: 20 50 52 49 4E 54 20 46 28 39 29 3B 47 28 39 29 PRINT F(9);G(9)
000190: 0D 0A 31 38 34 30 20 50 52 49 4E 54 20 46 28 31 ..1840 PRINT F(1
0001A0: 30 29 3B 47 28 31 30 29 0D 0A 31 38 35 30 20 50 0);G(10)..1850 P
0001B0: 52 49 4E 54 20 22 44 45 53 54 52 4F 59 45 52 3C RINT "DESTROYER<
0001C0: 42 3E 22 0D 0A 31 38 36 30 20 50 52 49 4E 54 20 B>"..1860 PRINT
0001D0: 46 28 31 31 29 3B 47 28 31 31 29 0D 0A 31 38 37 F(11);G(11)..187
0001E0: 30 20 50 52 49 4E 54 20 46 28 31 32 29 3B 47 28 0 PRINT F(12);G(
0001F0: 31 32 29 0D 0A 31 38 38 30 20 47 4F 54 4F 20 31 12)..1880 GOTO 1
Size : 512 (Real : 512)
000000: 33 3E 41 20 54 48 45 4E 20 32 38 38 30 0D 0A 32 3>A THEN 2880..2
000010: 38 36 30 20 50 52 49 4E 54 20 22 49 20 48 41 56 860 PRINT "I HAV
000020: 45 20 4D 4F 52 45 20 53 48 4F 54 53 20 54 48 41 E MORE SHOTS THA
000030: 4E 20 42 4C 41 4E 4B 20 53 51 55 41 52 45 53 2E N BLANK SQUARES.
000040: 22 0D 0A 32 38 37 30 20 47 4F 54 4F 20 32 32 37 "..2870 GOTO 227
000050: 30 0D 0A 32 38 38 30 20 49 46 20 41 3C 3E 30 20 0..2880 IF A<>0
000060: 54 48 45 4E 20 32 39 36 30 0D 0A 32 38 39 30 20 THEN 2960..2890
000070: 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 PRINT "YOU HAVE
000080: 57 4F 4E 2E 22 0D 0A 32 39 30 30 20 53 54 4F 50 WON."..2900 STOP
000090: 0D 0A 32 39 31 30 20 58 3D 49 4E 54 28 52 4E 44 ..2910 X=INT(RND
0000A0: 28 31 29 2A 31 30 2B 31 29 0D 0A 32 39 32 30 20 (1)*10+1)..2920
0000B0: 59 3D 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 2B Y=INT(RND(1)*10+
0000C0: 31 29 0D 0A 32 39 33 30 20 56 3D 49 4E 54 28 33 1)..2930 V=INT(3
0000D0: 2A 52 4E 44 28 31 29 2D 31 29 0D 0A 32 39 34 30 *RND(1)-1)..2940
0000E0: 20 56 32 3D 49 4E 54 28 33 2A 52 4E 44 28 31 29 V2=INT(3*RND(1)
0000F0: 2D 31 29 0D 0A 32 39 35 30 20 52 45 54 55 52 4E -1)..2950 RETURN
000100: 0D 0A 32 39 36 30 20 46 4F 52 20 57 3D 31 20 54 ..2960 FOR W=1 T
000110: 4F 20 31 32 0D 0A 32 39 37 30 20 49 46 20 48 28 O 12..2970 IF H(
000120: 57 29 3E 30 20 54 48 45 4E 20 33 38 30 30 0D 0A W)>0 THEN 3800..
000130: 32 39 38 30 20 4E 45 58 54 20 57 0D 0A 32 39 39 2980 NEXT W..299
000140: 30 20 52 45 4D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0 REM***********
000150: 2A 2A 2A 2A 2A 2A 2A 2A 52 41 4E 44 4F 4D 0D 0A ********RANDOM..
000160: 33 30 30 30 20 57 3D 30 0D 0A 33 30 31 30 20 52 3000 W=0..3010 R
000170: 33 3D 30 0D 0A 33 30 32 30 20 47 4F 53 55 42 20 3=0..3020 GOSUB
000180: 32 39 31 30 0D 0A 33 30 33 30 20 52 45 53 54 4F 2910..3030 RESTO
000190: 52 45 0D 0A 33 30 34 30 20 52 32 3D 30 0D 0A 33 RE..3040 R2=0..3
0001A0: 30 35 30 20 52 33 3D 52 33 2B 31 0D 0A 33 30 36 050 R3=R3+1..306
0001B0: 30 20 49 46 20 52 33 3E 31 30 30 20 54 48 45 4E 0 IF R3>100 THEN
0001C0: 20 33 30 31 30 0D 0A 33 30 37 30 20 49 46 20 58 3010..3070 IF X
0001D0: 3E 31 30 20 54 48 45 4E 20 33 31 31 30 0D 0A 33 >10 THEN 3110..3
0001E0: 30 38 30 20 49 46 20 58 3E 30 20 54 48 45 4E 20 080 IF X>0 THEN
0001F0: 33 31 32 30 0D 0A 33 30 39 30 20 58 3D 31 2B 49 3120..3090 X=1+I
Size : 512 (Real : 512)
000000: 0D 0A 33 39 39 30 20 4E 45 58 54 20 4D 0D 0A 34 ..3990 NEXT M..4
000010: 30 30 30 20 4E 45 58 54 20 53 0D 0A 34 30 31 30 000 NEXT S..4010
000020: 20 4E 45 58 54 20 52 0D 0A 34 30 32 30 20 4E 45 NEXT R..4020 NE
000030: 58 54 20 55 0D 0A 34 30 33 30 20 46 4F 52 20 52 XT U..4030 FOR R
000040: 3D 31 20 54 4F 20 41 0D 0A 34 30 34 30 20 46 28 =1 TO A..4040 F(
000050: 52 29 3D 52 0D 0A 34 30 35 30 20 47 28 52 29 3D R)=R..4050 G(R)=
000060: 52 0D 0A 34 30 36 30 20 4E 45 58 54 20 52 0D 0A R..4060 NEXT R..
000070: 34 30 37 30 20 46 4F 52 20 52 3D 31 20 54 4F 20 4070 FOR R=1 TO
000080: 31 30 0D 0A 34 30 38 30 20 46 4F 52 20 53 3D 31 10..4080 FOR S=1
000090: 20 54 4F 20 31 30 0D 0A 34 30 39 30 20 51 39 3D TO 10..4090 Q9=
0000A0: 31 0D 0A 34 31 30 30 20 46 4F 52 20 4D 3D 31 20 1..4100 FOR M=1
0000B0: 54 4F 20 41 0D 0A 34 31 31 30 20 49 46 20 4B 28 TO A..4110 IF K(
0000C0: 46 28 4D 29 2C 47 28 4D 29 29 3E 3D 4B 28 46 28 F(M),G(M))>=K(F(
0000D0: 51 39 29 2C 47 28 51 39 29 29 20 54 48 45 4E 20 Q9),G(Q9)) THEN
0000E0: 34 31 33 30 0D 0A 34 31 32 30 20 51 39 3D 4D 0D 4130..4120 Q9=M.
0000F0: 0A 34 31 33 30 20 4E 45 58 54 20 4D 0D 0A 34 31 .4130 NEXT M..41
000100: 33 31 20 49 46 20 52 3E 41 20 54 48 45 4E 20 34 31 IF R>A THEN 4
000110: 31 34 30 0D 0A 34 31 33 32 20 49 46 20 52 3D 53 140..4132 IF R=S
000120: 20 54 48 45 4E 20 34 32 31 30 0D 0A 34 31 34 30 THEN 4210..4140
000130: 20 49 46 20 4B 28 52 2C 53 29 3C 4B 28 46 28 51 IF K(R,S)<K(F(Q
000140: 39 29 2C 47 28 51 39 29 29 20 54 48 45 4E 20 34 9),G(Q9)) THEN 4
000150: 32 31 30 0D 0A 34 31 35 30 20 46 4F 52 20 4D 3D 210..4150 FOR M=
000160: 31 20 54 4F 20 41 0D 0A 34 31 36 30 20 49 46 20 1 TO A..4160 IF
000170: 46 28 4D 29 3C 3E 52 20 54 48 45 4E 20 34 31 39 F(M)<>R THEN 419
000180: 30 0D 0A 34 31 37 30 20 49 46 20 47 28 4D 29 3D 0..4170 IF G(M)=
000190: 53 20 54 48 45 4E 20 34 32 31 30 0D 0A 34 31 38 S THEN 4210..418
0001A0: 30 20 4E 45 58 54 20 4D 0D 0A 34 31 39 30 20 46 0 NEXT M..4190 F
0001B0: 28 51 39 29 3D 52 0D 0A 34 32 30 30 20 47 28 51 (Q9)=R..4200 G(Q
0001C0: 39 29 3D 53 0D 0A 34 32 31 30 20 4E 45 58 54 20 9)=S..4210 NEXT
0001D0: 53 0D 0A 34 32 32 30 20 4E 45 58 54 20 52 0D 0A S..4220 NEXT R..
0001E0: 34 32 33 30 20 47 4F 54 4F 20 33 33 38 30 0D 0A 4230 GOTO 3380..
0001F0: 34 32 34 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 4240 END........
Size : 512 (Real : 512)
000000: 4E 54 28 52 4E 44 28 31 29 2A 32 2E 35 29 0D 0A NT(RND(1)*2.5)..
000010: 33 31 30 30 20 47 4F 54 4F 20 33 31 32 30 0D 0A 3100 GOTO 3120..
000020: 33 31 31 30 20 58 3D 31 30 2D 49 4E 54 28 52 4E 3110 X=10-INT(RN
000030: 44 28 31 29 2A 32 2E 35 29 0D 0A 33 31 32 30 20 D(1)*2.5)..3120
000040: 49 46 20 59 3E 31 30 20 54 48 45 4E 20 33 31 36 IF Y>10 THEN 316
000050: 30 0D 0A 33 31 33 30 20 49 46 20 59 3E 30 20 54 0..3130 IF Y>0 T
000060: 48 45 4E 20 33 32 37 30 0D 0A 33 31 34 30 20 59 HEN 3270..3140 Y
000070: 3D 31 2B 49 4E 54 28 52 4E 44 28 31 29 2A 32 2E =1+INT(RND(1)*2.
000080: 35 29 0D 0A 33 31 35 30 20 47 4F 54 4F 20 33 32 5)..3150 GOTO 32
000090: 37 30 0D 0A 33 31 36 30 20 59 3D 31 30 2D 49 4E 70..3160 Y=10-IN
0000A0: 54 28 52 4E 44 28 31 29 2A 32 2E 35 29 0D 0A 33 T(RND(1)*2.5)..3
0000B0: 31 37 30 20 47 4F 54 4F 20 33 32 37 30 0D 0A 33 170 GOTO 3270..3
0000C0: 31 38 30 20 46 28 57 29 3D 58 0D 0A 33 31 39 30 180 F(W)=X..3190
0000D0: 20 47 28 57 29 3D 59 0D 0A 33 32 30 30 20 49 46 G(W)=Y..3200 IF
0000E0: 20 57 3D 41 20 54 48 45 4E 20 33 33 38 30 0D 0A W=A THEN 3380..
0000F0: 33 32 31 30 20 49 46 20 52 32 3D 36 20 54 48 45 3210 IF R2=6 THE
000100: 4E 20 33 30 33 30 0D 0A 33 32 32 30 20 52 45 41 N 3030..3220 REA
000110: 44 20 58 31 2C 59 31 0D 0A 33 32 33 30 20 52 32 D X1,Y1..3230 R2
000120: 3D 52 32 2B 31 0D 0A 33 32 34 30 20 44 41 54 41 =R2+1..3240 DATA
000130: 20 31 2C 31 2C 2D 31 2C 31 2C 31 2C 2D 33 2C 31 1,1,-1,1,1,-3,1
000140: 2C 31 2C 30 2C 32 2C 2D 31 2C 31 0D 0A 33 32 35 ,1,0,2,-1,1..325
000150: 30 20 58 3D 58 2B 58 31 0D 0A 33 32 36 30 20 59 0 X=X+X1..3260 Y
000160: 3D 59 2B 59 31 0D 0A 33 32 37 30 20 49 46 20 58 =Y+Y1..3270 IF X
000170: 3E 31 30 20 54 48 45 4E 20 33 32 31 30 0D 0A 33 >10 THEN 3210..3
000180: 32 38 30 20 49 46 20 58 3C 31 20 54 48 45 4E 20 280 IF X<1 THEN
000190: 33 32 31 30 0D 0A 33 32 39 30 20 49 46 20 59 3E 3210..3290 IF Y>
0001A0: 31 30 20 54 48 45 4E 20 33 32 31 30 0D 0A 33 33 10 THEN 3210..33
0001B0: 30 30 20 49 46 20 59 3C 31 20 54 48 45 4E 20 33 00 IF Y<1 THEN 3
0001C0: 32 31 30 0D 0A 33 33 31 30 20 49 46 20 42 28 58 210..3310 IF B(X
0001D0: 2C 59 29 3E 31 30 20 54 48 45 4E 20 33 32 31 30 ,Y)>10 THEN 3210
0001E0: 0D 0A 33 33 32 30 20 46 4F 52 20 51 39 3D 31 20 ..3320 FOR Q9=1
0001F0: 54 4F 20 57 0D 0A 33 33 33 30 20 49 46 20 46 28 TO W..3330 IF F(
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
000010: 3B 22 53 49 4E 45 20 57 41 56 45 22 0D 0A 32 30 ;"SINE WAVE"..20
000020: 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 PRINT TAB(15);"
000030: 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 CREATIVE COMPUTI
000040: 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 NG MORRISTOWN,
000050: 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 NEW JERSEY"..30
000060: 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 PRINT: PRINT: PR
000070: 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E INT: PRINT: PRIN
000080: 54 0D 0A 34 30 20 52 45 4D 41 52 4B 41 42 4C 45 T..40 REMARKABLE
000090: 20 50 52 4F 47 52 41 4D 20 42 59 20 44 41 56 49 PROGRAM BY DAVI
0000A0: 44 20 41 48 4C 0D 0A 35 30 20 42 3D 30 0D 0A 31 D AHL..50 B=0..1
0000B0: 30 30 20 52 45 4D 20 20 53 54 41 52 54 20 4C 4F 00 REM START LO
0000C0: 4E 47 20 4C 4F 4F 50 0D 0A 31 31 30 20 46 4F 52 NG LOOP..110 FOR
0000D0: 20 54 3D 30 20 54 4F 20 34 30 20 53 54 45 50 20 T=0 TO 40 STEP
0000E0: 2E 32 35 0D 0A 31 32 30 20 41 3D 49 4E 54 28 32 .25..120 A=INT(2
0000F0: 36 2B 32 35 2A 53 49 4E 28 54 29 29 0D 0A 31 33 6+25*SIN(T))..13
000100: 30 20 50 52 49 4E 54 20 54 41 42 28 41 29 3B 0D 0 PRINT TAB(A);.
000110: 0A 31 34 30 20 49 46 20 42 3D 31 20 54 48 45 4E .140 IF B=1 THEN
000120: 20 31 38 30 0D 0A 31 35 30 20 50 52 49 4E 54 20 180..150 PRINT
000130: 22 43 52 45 41 54 49 56 45 22 0D 0A 31 36 30 20 "CREATIVE"..160
000140: 42 3D 31 0D 0A 31 37 30 20 47 4F 54 4F 20 32 30 B=1..170 GOTO 20
000150: 30 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 43 4F 0..180 PRINT "CO
000160: 4D 50 55 54 49 4E 47 22 0D 0A 31 39 30 20 42 3D MPUTING"..190 B=
000170: 30 0D 0A 32 30 30 20 4E 45 58 54 20 54 0D 0A 39 0..200 NEXT T..9
000180: 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 99 END..........
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 51 39 29 3C 3E 58 20 54 48 45 4E 20 33 33 35 30 Q9)<>X THEN 3350
000010: 0D 0A 33 33 34 30 20 49 46 20 47 28 51 39 29 3D ..3340 IF G(Q9)=
000020: 59 20 54 48 45 4E 20 33 32 31 30 0D 0A 33 33 35 Y THEN 3210..335
000030: 30 20 4E 45 58 54 20 51 39 0D 0A 33 33 36 30 20 0 NEXT Q9..3360
000040: 57 3D 57 2B 31 0D 0A 33 33 37 30 20 47 4F 54 4F W=W+1..3370 GOTO
000050: 20 33 31 38 30 0D 0A 33 33 38 30 20 49 46 20 4B 3180..3380 IF K
000060: 24 3C 3E 22 59 45 53 22 20 54 48 45 4E 20 33 34 $<>"YES" THEN 34
000070: 32 30 0D 0A 33 33 39 30 20 46 4F 52 20 5A 35 3D 20..3390 FOR Z5=
000080: 31 20 54 4F 20 41 0D 0A 33 34 30 30 20 50 52 49 1 TO A..3400 PRI
000090: 4E 54 20 46 28 5A 35 29 3B 47 28 5A 35 29 0D 0A NT F(Z5);G(Z5)..
0000A0: 33 34 31 30 20 4E 45 58 54 20 5A 35 0D 0A 33 34 3410 NEXT Z5..34
0000B0: 32 30 20 46 4F 52 20 57 3D 31 20 54 4F 20 41 0D 20 FOR W=1 TO A.
0000C0: 0A 33 34 33 30 20 49 46 20 42 28 46 28 57 29 2C .3430 IF B(F(W),
0000D0: 47 28 57 29 29 3D 33 20 54 48 45 4E 20 33 35 30 G(W))=3 THEN 350
0000E0: 30 0D 0A 33 34 34 30 20 49 46 20 42 28 46 28 57 0..3440 IF B(F(W
0000F0: 29 2C 47 28 57 29 29 3D 32 20 54 48 45 4E 20 33 ),G(W))=2 THEN 3
000100: 35 32 30 0D 0A 33 34 35 30 20 49 46 20 42 28 46 520..3450 IF B(F
000110: 28 57 29 2C 47 28 57 29 29 3D 31 20 54 48 45 4E (W),G(W))=1 THEN
000120: 20 33 35 36 30 0D 0A 33 34 36 30 20 49 46 20 42 3560..3460 IF B
000130: 28 46 28 57 29 2C 47 28 57 29 29 3D 2E 35 20 54 (F(W),G(W))=.5 T
000140: 48 45 4E 20 33 35 34 30 0D 0A 33 34 37 30 20 42 HEN 3540..3470 B
000150: 28 46 28 57 29 2C 47 28 57 29 29 3D 31 30 2B 43 (F(W),G(W))=10+C
000160: 0D 0A 33 34 38 30 20 4E 45 58 54 20 57 0D 0A 33 ..3480 NEXT W..3
000170: 34 39 30 20 47 4F 54 4F 20 31 39 35 30 0D 0A 33 490 GOTO 1950..3
000180: 35 30 30 20 50 52 49 4E 54 20 22 49 20 48 49 54 500 PRINT "I HIT
000190: 20 59 4F 55 52 20 42 41 54 54 4C 45 53 48 49 50 YOUR BATTLESHIP
0001A0: 22 0D 0A 33 35 31 30 20 47 4F 54 4F 20 33 35 37 "..3510 GOTO 357
0001B0: 30 0D 0A 33 35 32 30 20 50 52 49 4E 54 20 22 49 0..3520 PRINT "I
0001C0: 20 48 49 54 20 59 4F 55 52 20 43 52 55 49 53 45 HIT YOUR CRUISE
0001D0: 52 22 0D 0A 33 35 33 30 20 47 4F 54 4F 20 33 35 R"..3530 GOTO 35
0001E0: 37 30 0D 0A 33 35 34 30 20 50 52 49 4E 54 20 22 70..3540 PRINT "
0001F0: 49 20 48 49 54 20 59 4F 55 52 20 44 45 53 54 52 I HIT YOUR DESTR
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4F 59 45 52 3C 42 3E 22 0D 0A 33 35 35 30 20 47 OYER<B>"..3550 G
000010: 4F 54 4F 20 33 35 37 30 0D 0A 33 35 36 30 20 50 OTO 3570..3560 P
000020: 52 49 4E 54 20 22 49 20 48 49 54 20 59 4F 55 52 RINT "I HIT YOUR
000030: 20 44 45 53 54 52 4F 59 45 52 3C 41 3E 22 0D 0A DESTROYER<A>"..
000040: 33 35 37 30 20 46 4F 52 20 51 3D 31 20 54 4F 20 3570 FOR Q=1 TO
000050: 31 32 0D 0A 33 35 38 30 20 49 46 20 45 28 51 29 12..3580 IF E(Q)
000060: 3C 3E 2D 31 20 54 48 45 4E 20 33 37 33 30 0D 0A <>-1 THEN 3730..
000070: 33 35 39 30 20 45 28 51 29 3D 31 30 2B 43 0D 0A 3590 E(Q)=10+C..
000080: 33 36 30 30 20 48 28 51 29 3D 42 28 46 28 57 29 3600 H(Q)=B(F(W)
000090: 2C 47 28 57 29 29 0D 0A 33 36 31 30 20 4D 33 3D ,G(W))..3610 M3=
0000A0: 30 0D 0A 33 36 32 30 20 46 4F 52 20 4D 32 3D 31 0..3620 FOR M2=1
0000B0: 20 54 4F 20 31 32 0D 0A 33 36 33 30 20 49 46 20 TO 12..3630 IF
0000C0: 48 28 4D 32 29 3C 3E 48 28 51 29 20 54 48 45 4E H(M2)<>H(Q) THEN
0000D0: 20 33 36 35 30 0D 0A 33 36 34 30 20 4D 33 3D 4D 3650..3640 M3=M
0000E0: 33 2B 31 0D 0A 33 36 35 30 20 4E 45 58 54 20 4D 3+1..3650 NEXT M
0000F0: 32 0D 0A 33 36 36 30 20 49 46 20 4D 33 3C 3E 49 2..3660 IF M3<>I
000100: 4E 54 28 48 28 51 29 2B 2E 35 29 2B 31 2B 49 4E NT(H(Q)+.5)+1+IN
000110: 54 28 49 4E 54 28 48 28 51 29 2B 2E 35 29 2F 33 T(INT(H(Q)+.5)/3
000120: 29 20 54 48 45 4E 20 33 34 37 30 0D 0A 33 36 37 ) THEN 3470..367
000130: 30 20 46 4F 52 20 4D 32 3D 31 20 54 4F 20 31 32 0 FOR M2=1 TO 12
000140: 0D 0A 33 36 38 30 20 49 46 20 48 28 4D 32 29 3C ..3680 IF H(M2)<
000150: 3E 48 28 51 29 20 54 48 45 4E 20 33 37 31 30 0D >H(Q) THEN 3710.
000160: 0A 33 36 39 30 20 45 28 4D 32 29 3D 2D 31 0D 0A .3690 E(M2)=-1..
000170: 33 37 30 30 20 48 28 4D 32 29 3D 2D 31 0D 0A 33 3700 H(M2)=-1..3
000180: 37 31 30 20 4E 45 58 54 20 4D 32 0D 0A 33 37 32 710 NEXT M2..372
000190: 30 20 47 4F 54 4F 20 33 34 37 30 0D 0A 33 37 33 0 GOTO 3470..373
0001A0: 30 20 4E 45 58 54 20 51 0D 0A 33 37 34 30 20 50 0 NEXT Q..3740 P
0001B0: 52 49 4E 54 20 22 50 52 4F 47 52 41 4D 20 41 42 RINT "PROGRAM AB
0001C0: 4F 52 54 3A 22 0D 0A 33 37 35 30 20 46 4F 52 20 ORT:"..3750 FOR
0001D0: 51 3D 31 20 54 4F 20 31 32 0D 0A 33 37 36 30 20 Q=1 TO 12..3760
0001E0: 50 52 49 4E 54 20 22 45 28 22 3B 51 3B 22 29 20 PRINT "E(";Q;")
0001F0: 3D 22 3B 45 28 51 29 0D 0A 33 37 37 30 20 50 52 =";E(Q)..3770 PR
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 53 4C 41 4C 4F 4D 22 0D 0A 32 30 20 50 52 ;"SLALOM"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 33 31 30 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 310 PRINT "HOW M
000080: 41 4E 59 20 47 41 54 45 53 20 44 4F 45 53 20 54 ANY GATES DOES T
000090: 48 49 53 20 43 4F 55 52 53 45 20 48 41 56 45 20 HIS COURSE HAVE
0000A0: 28 31 20 54 4F 20 32 35 29 22 3B 0D 0A 33 32 30 (1 TO 25)";..320
0000B0: 20 49 4E 50 55 54 20 56 0D 0A 33 33 30 20 49 46 INPUT V..330 IF
0000C0: 20 56 3E 32 35 20 54 48 45 4E 20 33 36 30 0D 0A V>25 THEN 360..
0000D0: 33 34 30 20 49 46 20 56 3C 31 20 54 48 45 4E 20 340 IF V<1 THEN
0000E0: 33 39 30 0D 0A 33 35 30 20 47 4F 54 4F 20 31 34 390..350 GOTO 14
0000F0: 34 30 0D 0A 33 36 30 20 50 52 49 4E 54 20 22 32 40..360 PRINT "2
000100: 35 20 49 53 20 54 48 45 20 4C 49 4D 49 54 2E 22 5 IS THE LIMIT."
000110: 0D 0A 33 37 30 20 4C 45 54 20 56 3D 32 35 0D 0A ..370 LET V=25..
000120: 33 38 30 20 47 4F 54 4F 20 31 34 34 30 0D 0A 33 380 GOTO 1440..3
000130: 39 30 20 50 52 49 4E 54 20 22 54 52 59 20 41 47 90 PRINT "TRY AG
000140: 41 49 4E 2C 22 0D 0A 34 30 30 20 47 4F 54 4F 20 AIN,"..400 GOTO
000150: 33 31 30 0D 0A 34 31 30 20 50 52 49 4E 54 20 22 310..410 PRINT "
000160: 52 41 54 45 20 59 4F 55 52 53 45 4C 46 20 41 53 RATE YOURSELF AS
000170: 20 41 20 53 4B 49 45 52 2C 20 28 31 3D 57 4F 52 A SKIER, (1=WOR
000180: 53 54 2C 20 33 3D 42 45 53 54 29 22 3B 0D 0A 34 ST, 3=BEST)";..4
000190: 32 30 20 49 4E 50 55 54 20 41 0D 0A 34 33 30 20 20 INPUT A..430
0001A0: 49 46 20 41 3C 31 20 54 48 45 4E 20 34 36 30 0D IF A<1 THEN 460.
0001B0: 0A 34 34 30 20 49 46 20 41 3E 33 20 54 48 45 4E .440 IF A>3 THEN
0001C0: 20 34 36 30 0D 0A 34 35 30 20 47 4F 54 4F 20 34 460..450 GOTO 4
0001D0: 38 30 0D 0A 34 36 30 20 50 52 49 4E 54 20 22 54 80..460 PRINT "T
0001E0: 48 45 20 42 4F 55 4E 44 53 20 41 52 45 20 31 2D HE BOUNDS ARE 1-
0001F0: 33 22 0D 0A 34 37 30 20 47 4F 54 4F 20 34 31 30 3"..470 GOTO 410
Size : 512 (Real : 512)
000000: 49 4E 54 20 22 48 28 22 3B 51 3B 22 29 20 3D 22 INT "H(";Q;") ="
000010: 3B 48 28 51 29 0D 0A 33 37 38 30 20 4E 45 58 54 ;H(Q)..3780 NEXT
000020: 20 51 0D 0A 33 37 39 30 20 53 54 4F 50 0D 0A 33 Q..3790 STOP..3
000030: 38 30 30 20 52 45 4D 2A 2A 2A 2A 2A 2A 2A 2A 2A 800 REM*********
000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 55 ***************U
000050: 53 49 4E 47 45 41 52 52 41 59 0D 0A 33 38 31 30 SINGEARRAY..3810
000060: 20 46 4F 52 20 52 3D 31 20 54 4F 20 31 30 0D 0A FOR R=1 TO 10..
000070: 33 38 32 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 3820 FOR S=1 TO
000080: 31 30 0D 0A 33 38 33 30 20 4B 28 52 2C 53 29 3D 10..3830 K(R,S)=
000090: 30 0D 0A 33 38 34 30 20 4E 45 58 54 20 53 0D 0A 0..3840 NEXT S..
0000A0: 33 38 35 30 20 4E 45 58 54 20 52 0D 0A 33 38 36 3850 NEXT R..386
0000B0: 30 20 46 4F 52 20 55 3D 31 20 54 4F 20 31 32 0D 0 FOR U=1 TO 12.
0000C0: 0A 33 38 37 30 20 49 46 20 45 28 55 29 3C 31 30 .3870 IF E(U)<10
0000D0: 20 54 48 45 4E 20 34 30 32 30 0D 0A 33 38 38 30 THEN 4020..3880
0000E0: 20 46 4F 52 20 52 3D 31 20 54 4F 20 31 30 0D 0A FOR R=1 TO 10..
0000F0: 33 38 39 30 20 46 4F 52 20 53 3D 31 20 54 4F 20 3890 FOR S=1 TO
000100: 31 30 0D 0A 33 39 30 30 20 49 46 20 42 28 52 2C 10..3900 IF B(R,
000110: 53 29 3C 31 30 20 54 48 45 4E 20 33 39 33 30 0D S)<10 THEN 3930.
000120: 0A 33 39 31 30 20 4B 28 52 2C 53 29 3D 2D 31 30 .3910 K(R,S)=-10
000130: 30 30 30 30 30 30 0D 0A 33 39 32 30 20 47 4F 54 000000..3920 GOT
000140: 4F 20 34 30 30 30 0D 0A 33 39 33 30 20 46 4F 52 O 4000..3930 FOR
000150: 20 4D 3D 53 47 4E 28 31 2D 52 29 20 54 4F 20 53 M=SGN(1-R) TO S
000160: 47 4E 28 31 30 2D 52 29 0D 0A 33 39 34 30 20 46 GN(10-R)..3940 F
000170: 4F 52 20 4E 3D 53 47 4E 28 31 2D 53 29 20 54 4F OR N=SGN(1-S) TO
000180: 20 53 47 4E 28 31 30 2D 53 29 0D 0A 33 39 35 30 SGN(10-S)..3950
000190: 20 49 46 20 4E 2B 4D 2B 4E 2A 4D 3D 30 20 54 48 IF N+M+N*M=0 TH
0001A0: 45 4E 20 33 39 38 30 0D 0A 33 39 36 30 20 49 46 EN 3980..3960 IF
0001B0: 20 42 28 52 2B 4D 2C 53 2B 4E 29 3C 3E 45 28 55 B(R+M,S+N)<>E(U
0001C0: 29 20 54 48 45 4E 20 33 39 38 30 0D 0A 33 39 37 ) THEN 3980..397
0001D0: 30 20 4B 28 52 2C 53 29 3D 4B 28 52 2C 53 29 2B 0 K(R,S)=K(R,S)+
0001E0: 45 28 55 29 2D 53 2A 49 4E 54 28 48 28 55 29 2B E(U)-S*INT(H(U)+
0001F0: 2E 35 29 0D 0A 33 39 38 30 20 4E 45 58 54 20 4E .5)..3980 NEXT N
Size : 512 (Real : 512)
000000: 0D 0A 34 38 30 20 50 52 49 4E 54 22 54 48 45 20 ..480 PRINT"THE
000010: 53 54 41 52 54 45 52 20 43 4F 55 4E 54 53 20 44 STARTER COUNTS D
000020: 4F 57 4E 2E 2E 2E 35 2E 2E 2E 34 2E 2E 2E 33 2E OWN...5...4...3.
000030: 2E 2E 32 2E 2E 2E 31 2E 2E 2E 47 4F 21 22 3B 0D ..2...1...GO!";.
000040: 0A 34 39 30 20 52 45 4D 0D 0A 35 30 30 20 4C 45 .490 REM..500 LE
000050: 54 20 54 3D 30 0D 0A 35 31 30 20 4C 45 54 20 53 T T=0..510 LET S
000060: 3D 49 4E 54 28 52 4E 44 28 31 29 2A 28 31 38 2D =INT(RND(1)*(18-
000070: 39 29 2B 39 29 0D 0A 35 32 30 20 50 52 49 4E 54 9)+9)..520 PRINT
000080: 0D 0A 35 32 35 20 50 52 49 4E 54 20 22 59 4F 55 ..525 PRINT "YOU
000090: 27 52 45 20 4F 46 46 21 22 0D 0A 35 33 30 20 46 'RE OFF!"..530 F
0000A0: 4F 52 20 4F 3D 31 20 54 4F 20 56 0D 0A 35 34 30 OR O=1 TO V..540
0000B0: 20 20 20 20 52 45 41 44 20 51 0D 0A 35 35 30 20 READ Q..550
0000C0: 20 20 20 50 52 49 4E 54 0D 0A 35 35 35 20 20 20 PRINT..555
0000D0: 20 50 52 49 4E 54 20 22 48 45 52 45 20 43 4F 4D PRINT "HERE COM
0000E0: 45 53 20 47 41 54 45 20 23 22 3B 53 54 52 24 28 ES GATE #";STR$(
0000F0: 4F 29 3B 22 3A 22 0D 0A 35 36 30 20 20 20 20 50 O);":"..560 P
000100: 52 49 4E 54 20 53 3B 22 4D 2E 50 2E 48 2E 22 0D RINT S;"M.P.H.".
000110: 0A 35 37 30 20 20 20 20 4C 45 54 20 53 31 3D 53 .570 LET S1=S
000120: 0D 0A 35 38 30 20 20 20 20 50 52 49 4E 54 20 22 ..580 PRINT "
000130: 4F 50 54 49 4F 4E 22 3B 0D 0A 35 39 30 20 20 20 OPTION";..590
000140: 20 49 4E 50 55 54 20 4F 31 0D 0A 36 30 30 20 20 INPUT O1..600
000150: 20 20 49 46 20 4F 31 3D 30 20 54 48 45 4E 20 39 IF O1=0 THEN 9
000160: 37 30 0D 0A 36 31 30 20 20 20 49 46 20 4F 31 3E 70..610 IF O1>
000170: 38 20 54 48 45 4E 20 31 34 32 30 0D 0A 36 32 30 8 THEN 1420..620
000180: 20 20 20 20 49 46 20 4F 31 3C 31 20 54 48 45 4E IF O1<1 THEN
000190: 20 31 34 32 30 0D 0A 36 33 30 20 20 20 20 47 4F 1420..630 GO
0001A0: 53 55 42 20 39 39 30 0D 0A 36 34 30 20 20 20 20 SUB 990..640
0001B0: 49 46 20 53 3C 37 20 54 48 45 4E 20 31 33 39 30 IF S<7 THEN 1390
0001C0: 0D 0A 36 35 30 20 20 20 20 4C 45 54 20 54 3D 54 ..650 LET T=T
0001D0: 2B 28 51 2D 53 2B 31 29 0D 0A 36 36 30 20 20 20 +(Q-S+1)..660
0001E0: 20 49 46 20 53 3E 51 20 54 48 45 4E 20 31 36 33 IF S>Q THEN 163
0001F0: 30 0D 0A 36 37 30 20 4E 45 58 54 20 4F 0D 0A 36 0..670 NEXT O..6
Size : 512 (Real : 512)
000000: 36 30 20 50 52 49 4E 54 20 22 41 4E 20 4F 46 46 60 PRINT "AN OFF
000010: 49 43 49 41 4C 20 43 41 55 47 48 54 20 59 4F 55 ICIAL CAUGHT YOU
000020: 21 22 0D 0A 31 32 37 30 20 50 52 49 4E 54 20 22 !"..1270 PRINT "
000030: 59 4F 55 20 54 4F 4F 4B 22 3B 28 54 2B 52 4E 44 YOU TOOK";(T+RND
000040: 28 31 29 29 3B 22 53 45 43 4F 4E 44 53 2E 22 0D (1));"SECONDS.".
000050: 0A 31 32 38 30 20 47 4F 54 4F 20 37 34 30 0D 0A .1280 GOTO 740..
000060: 31 32 39 30 20 49 46 20 52 4E 44 28 31 29 3C 28 1290 IF RND(1)<(
000070: 28 53 2D 51 29 2A 2E 31 29 2B 2E 32 20 54 48 45 (S-Q)*.1)+.2 THE
000080: 4E 20 31 33 32 30 0D 0A 31 33 30 30 20 50 52 49 N 1320..1300 PRI
000090: 4E 54 20 22 59 4F 55 20 57 45 4E 54 20 4F 56 45 NT "YOU WENT OVE
0000A0: 52 20 54 48 45 20 4E 41 58 49 4D 55 4D 20 53 50 R THE NAXIMUM SP
0000B0: 45 45 44 20 41 4E 44 20 4D 41 44 45 20 49 54 21 EED AND MADE IT!
0000C0: 22 0D 0A 31 33 31 30 20 52 45 54 55 52 4E 0D 0A "..1310 RETURN..
0000D0: 31 33 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 1320 PRINT "YOU
0000E0: 57 45 4E 54 20 4F 56 45 52 20 54 48 45 20 4D 41 WENT OVER THE MA
0000F0: 58 49 4D 55 4D 20 53 50 45 45 44 20 41 4E 44 20 XIMUM SPEED AND
000100: 22 3B 0D 0A 31 33 33 30 20 49 46 20 52 4E 44 28 ";..1330 IF RND(
000110: 31 29 3C 2E 35 20 54 48 45 4E 20 31 33 37 30 0D 1)<.5 THEN 1370.
000120: 0A 31 33 34 30 20 50 52 49 4E 54 20 22 57 49 50 .1340 PRINT "WIP
000130: 45 44 20 4F 55 54 21 22 0D 0A 31 33 35 30 20 50 ED OUT!"..1350 P
000140: 52 49 4E 54 20 22 59 4F 55 20 54 4F 4F 4B 22 3B RINT "YOU TOOK";
000150: 28 54 2B 52 4E 44 28 31 29 29 3B 22 53 45 43 4F (T+RND(1));"SECO
000160: 4E 44 53 22 0D 0A 31 33 36 30 20 47 4F 54 4F 20 NDS"..1360 GOTO
000170: 37 34 30 0D 0A 31 33 37 30 20 50 52 49 4E 54 20 740..1370 PRINT
000180: 22 53 4E 41 47 47 45 44 20 41 20 46 4C 41 47 21 "SNAGGED A FLAG!
000190: 22 0D 0A 31 33 38 30 20 47 4F 54 4F 20 31 33 35 "..1380 GOTO 135
0001A0: 30 0D 0A 31 33 39 30 20 50 52 49 4E 54 20 22 4C 0..1390 PRINT "L
0001B0: 45 54 27 53 20 42 45 20 52 45 41 4C 49 53 54 49 ET'S BE REALISTI
0001C0: 43 2C 20 4F 4B 3F 20 20 4C 45 54 27 53 20 47 4F C, OK? LET'S GO
0001D0: 20 42 41 43 4B 20 41 4E 44 20 54 52 59 20 41 47 BACK AND TRY AG
0001E0: 41 49 4E 2E 2E 2E 22 0D 0A 31 34 30 30 20 4C 45 AIN..."..1400 LE
0001F0: 54 20 53 3D 53 31 0D 0A 31 34 31 30 20 47 4F 54 T S=S1..1410 GOT
Size : 512 (Real : 512)
000000: 38 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 80 PRINT:PRINT "
000010: 59 4F 55 20 54 4F 4F 4B 22 3B 28 54 2B 52 4E 44 YOU TOOK";(T+RND
000020: 28 31 29 29 3B 22 53 45 43 4F 4E 44 53 2E 22 0D (1));"SECONDS.".
000030: 0A 36 39 30 20 4C 45 54 20 4D 3D 54 0D 0A 37 30 .690 LET M=T..70
000040: 30 20 4C 45 54 20 4D 3D 4D 2F 56 0D 0A 37 31 30 0 LET M=M/V..710
000050: 20 49 46 20 4D 3C 31 2E 35 2D 28 41 2A 2E 31 29 IF M<1.5-(A*.1)
000060: 20 54 48 45 4E 20 31 36 35 30 0D 0A 37 32 30 20 THEN 1650..720
000070: 49 46 20 4D 3C 32 2E 39 2D 28 41 2A 2E 31 29 20 IF M<2.9-(A*.1)
000080: 54 48 45 4E 20 31 36 38 30 0D 0A 37 33 30 20 49 THEN 1680..730 I
000090: 46 20 4D 3C 34 2E 34 2D 28 41 2A 2E 30 31 29 20 F M<4.4-(A*.01)
0000A0: 54 48 45 4E 20 31 37 31 30 0D 0A 37 34 30 20 50 THEN 1710..740 P
0000B0: 52 49 4E 54 3A 50 52 49 4E 54 20 22 44 4F 20 59 RINT:PRINT "DO Y
0000C0: 4F 55 20 57 41 4E 54 20 54 4F 20 52 41 43 45 20 OU WANT TO RACE
0000D0: 41 47 41 49 4E 22 3B 0D 0A 37 35 30 20 49 4E 50 AGAIN";..750 INP
0000E0: 55 54 20 42 24 0D 0A 37 36 30 20 52 45 4D 0D 0A UT B$..760 REM..
0000F0: 37 37 30 20 49 46 20 42 24 3D 22 4E 4F 22 20 54 770 IF B$="NO" T
000100: 48 45 4E 20 31 37 34 30 0D 0A 37 38 30 20 49 46 HEN 1740..780 IF
000110: 20 42 24 3D 22 59 45 53 22 20 54 48 45 4E 20 34 B$="YES" THEN 4
000120: 38 30 0D 0A 37 39 30 20 50 52 49 4E 54 20 22 50 80..790 PRINT "P
000130: 4C 45 41 53 45 20 54 59 50 45 20 27 59 45 53 27 LEASE TYPE 'YES'
000140: 20 4F 52 20 27 4E 4F 27 22 0D 0A 38 30 30 20 47 OR 'NO'"..800 G
000150: 4F 54 4F 20 37 34 30 0D 0A 38 31 30 20 53 54 4F OTO 740..810 STO
000160: 50 0D 0A 38 32 30 20 50 52 49 4E 54 0D 0A 38 32 P..820 PRINT..82
000170: 35 20 50 52 49 4E 54 20 22 2A 2A 2A 20 53 4C 41 5 PRINT "*** SLA
000180: 4C 4F 4D 3A 20 54 48 49 53 20 49 53 20 54 48 45 LOM: THIS IS THE
000190: 20 31 39 37 36 20 57 49 4E 54 45 52 20 4F 4C 59 1976 WINTER OLY
0001A0: 4D 50 49 43 20 47 49 41 4E 54 20 53 4C 41 4C 4F MPIC GIANT SLALO
0001B0: 4D 2E 20 20 59 4F 55 20 41 52 45 22 0D 0A 38 33 M. YOU ARE"..83
0001C0: 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 0 PRINT "
0001D0: 20 20 20 20 20 54 48 45 20 41 4D 45 52 49 43 41 THE AMERICA
0001E0: 4E 20 54 45 41 4D 27 53 20 4F 4E 4C 59 20 48 4F N TEAM'S ONLY HO
0001F0: 50 45 20 4F 46 20 41 20 47 4F 4C 44 20 4D 45 44 PE OF A GOLD MED
Size : 512 (Real : 512)
000000: 4F 20 35 35 30 0D 0A 31 34 32 30 20 50 52 49 4E O 550..1420 PRIN
000010: 54 20 22 57 48 41 54 3F 22 0D 0A 31 34 33 30 20 T "WHAT?"..1430
000020: 47 4F 54 4F 20 35 38 30 0D 0A 31 34 34 30 20 50 GOTO 580..1440 P
000030: 52 49 4E 54 0D 0A 31 34 34 35 20 50 52 49 4E 54 RINT..1445 PRINT
000040: 20 22 54 59 50 45 20 22 3B 43 48 52 24 28 33 34 "TYPE ";CHR$(34
000050: 29 3B 22 49 4E 53 22 3B 43 48 52 24 28 33 34 29 );"INS";CHR$(34)
000060: 3B 22 20 46 4F 52 20 49 4E 53 54 52 55 43 54 49 ;" FOR INSTRUCTI
000070: 4F 4E 53 22 0D 0A 31 34 35 30 20 50 52 49 4E 54 ONS"..1450 PRINT
000080: 20 22 54 59 50 45 20 22 3B 43 48 52 24 28 33 34 "TYPE ";CHR$(34
000090: 29 3B 22 4D 41 58 22 3B 43 48 52 24 28 33 34 29 );"MAX";CHR$(34)
0000A0: 3B 22 20 46 4F 52 20 41 50 50 52 4F 58 49 4D 41 ;" FOR APPROXIMA
0000B0: 54 45 20 4D 41 58 49 4D 55 4D 20 53 50 45 45 44 TE MAXIMUM SPEED
0000C0: 53 22 0D 0A 31 34 36 30 20 50 52 49 4E 54 20 22 S"..1460 PRINT "
0000D0: 54 59 50 45 20 22 3B 43 48 52 24 28 33 34 29 3B TYPE ";CHR$(34);
0000E0: 22 52 55 4E 22 3B 43 48 52 24 28 33 34 29 3B 22 "RUN";CHR$(34);"
0000F0: 20 46 4F 52 20 54 48 45 20 42 45 47 49 4E 4E 49 FOR THE BEGINNI
000100: 4E 47 20 4F 46 20 54 48 45 20 52 41 43 45 22 0D NG OF THE RACE".
000110: 0A 31 34 37 30 20 50 52 49 4E 54 20 22 43 4F 4D .1470 PRINT "COM
000120: 4D 41 4E 44 2D 2D 22 3B 0D 0A 31 34 38 30 20 49 MAND--";..1480 I
000130: 4E 50 55 54 20 41 24 0D 0A 31 34 39 30 20 52 45 NPUT A$..1490 RE
000140: 4D 0D 0A 31 35 30 30 20 49 46 20 41 24 3D 22 49 M..1500 IF A$="I
000150: 4E 53 22 20 54 48 45 4E 20 38 32 30 0D 0A 31 35 NS" THEN 820..15
000160: 31 30 20 49 46 20 41 24 3D 22 4D 41 58 22 20 54 10 IF A$="MAX" T
000170: 48 45 4E 20 31 35 35 30 0D 0A 31 35 32 30 20 49 HEN 1550..1520 I
000180: 46 20 41 24 3D 22 52 55 4E 22 20 54 48 45 4E 20 F A$="RUN" THEN
000190: 34 31 30 0D 0A 31 35 33 30 20 50 52 49 4E 54 20 410..1530 PRINT
0001A0: 43 48 52 24 28 33 34 29 3B 41 24 3B 43 48 52 24 CHR$(34);A$;CHR$
0001B0: 28 33 34 29 3B 22 20 49 53 20 41 4E 20 49 4C 4C (34);" IS AN ILL
0001C0: 45 47 41 4C 20 43 4F 4D 4D 41 4E 44 2D 2D 52 45 EGAL COMMAND--RE
0001D0: 54 52 59 22 3B 0D 0A 31 35 34 30 20 47 4F 54 4F TRY";..1540 GOTO
0001E0: 20 31 34 38 30 0D 0A 31 35 35 30 20 50 52 49 4E 1480..1550 PRIN
0001F0: 54 20 22 47 41 54 45 20 4D 41 58 22 0D 0A 31 35 T "GATE MAX"..15
Size : 512 (Real : 512)
000000: 41 4C 2E 22 0D 0A 38 34 30 20 50 52 49 4E 54 0D AL."..840 PRINT.
000010: 0A 38 34 35 20 50 52 49 4E 54 20 22 20 20 20 20 .845 PRINT "
000020: 20 30 20 2D 2D 20 54 59 50 45 20 54 48 49 53 20 0 -- TYPE THIS
000030: 49 53 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 IS YOU WANT TO S
000040: 45 45 20 48 4F 57 20 4C 4F 4E 47 20 59 4F 55 27 EE HOW LONG YOU'
000050: 56 45 20 54 41 4B 45 4E 2E 22 0D 0A 38 35 30 20 VE TAKEN."..850
000060: 50 52 49 4E 54 20 22 20 20 20 20 20 31 20 2D 2D PRINT " 1 --
000070: 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 4F TYPE THIS IF YO
000080: 55 20 57 41 4E 54 20 54 4F 20 53 50 45 45 44 20 U WANT TO SPEED
000090: 55 50 20 41 20 4C 4F 54 2E 22 0D 0A 38 36 30 20 UP A LOT."..860
0000A0: 50 52 49 4E 54 20 22 20 20 20 20 20 32 20 2D 2D PRINT " 2 --
0000B0: 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 4F TYPE THIS IF YO
0000C0: 55 20 57 41 4E 54 20 54 4F 20 53 50 45 45 44 20 U WANT TO SPEED
0000D0: 55 50 20 41 20 4C 49 54 54 4C 45 2E 22 0D 0A 38 UP A LITTLE."..8
0000E0: 37 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 33 70 PRINT " 3
0000F0: 20 2D 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 -- TYPE THIS IF
000100: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 50 45 YOU WANT TO SPE
000110: 45 44 20 55 50 20 41 20 54 45 45 4E 53 59 2E 22 ED UP A TEENSY."
000120: 0D 0A 38 38 30 20 50 52 49 4E 54 20 22 20 20 20 ..880 PRINT "
000130: 20 20 34 20 2D 2D 20 54 59 50 45 20 54 48 49 53 4 -- TYPE THIS
000140: 20 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 IF YOU WANT TO
000150: 4B 45 45 50 20 47 4F 49 4E 47 20 54 48 45 20 53 KEEP GOING THE S
000160: 41 4D 45 20 53 50 45 45 44 2E 22 0D 0A 38 39 30 AME SPEED."..890
000170: 20 50 52 49 4E 54 20 22 20 20 20 20 20 35 20 2D PRINT " 5 -
000180: 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 - TYPE THIS IF Y
000190: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 45 43 4B OU WANT TO CHECK
0001A0: 20 41 20 54 45 45 4E 53 59 2E 22 0D 0A 39 30 30 A TEENSY."..900
0001B0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 36 20 2D PRINT " 6 -
0001C0: 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 - TYPE THIS IF Y
0001D0: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 45 43 4B OU WANT TO CHECK
0001E0: 20 41 20 4C 49 54 54 4C 45 2E 22 0D 0A 39 31 30 A LITTLE."..910
0001F0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 37 20 2D PRINT " 7 -
Size : 512 (Real : 512)
000000: 36 30 20 50 52 49 4E 54 20 22 20 23 20 20 4D 2E 60 PRINT " # M.
000010: 50 2E 48 2E 22 0D 0A 31 35 37 30 20 50 52 49 4E P.H."..1570 PRIN
000020: 54 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 T"----------"..1
000030: 35 38 30 20 46 4F 52 20 42 3D 31 20 54 4F 20 56 580 FOR B=1 TO V
000040: 0D 0A 31 35 39 30 20 20 20 20 52 45 41 44 20 51 ..1590 READ Q
000050: 0D 0A 31 36 30 30 20 20 20 20 50 52 49 4E 54 20 ..1600 PRINT
000060: 42 3B 22 20 20 22 3B 51 0D 0A 31 36 31 30 20 4E B;" ";Q..1610 N
000070: 45 58 54 20 42 0D 0A 31 36 32 30 20 47 4F 54 4F EXT B..1620 GOTO
000080: 20 31 34 37 30 0D 0A 31 36 33 30 20 4C 45 54 20 1470..1630 LET
000090: 54 3D 54 2B 2E 35 0D 0A 31 36 34 30 20 47 4F 54 T=T+.5..1640 GOT
0000A0: 4F 20 36 37 30 0D 0A 31 36 35 30 20 50 52 49 4E O 670..1650 PRIN
0000B0: 54 20 22 59 4F 55 20 57 4F 4E 20 41 20 47 4F 4C T "YOU WON A GOL
0000C0: 44 20 4D 45 44 41 4C 21 22 0D 0A 31 36 36 30 20 D MEDAL!"..1660
0000D0: 4C 45 54 20 47 28 31 29 3D 47 28 31 29 2B 31 0D LET G(1)=G(1)+1.
0000E0: 0A 31 36 37 30 20 47 4F 54 4F 20 31 37 33 30 0D .1670 GOTO 1730.
0000F0: 0A 31 36 38 30 20 50 52 49 4E 54 20 22 59 4F 55 .1680 PRINT "YOU
000100: 20 57 4F 4E 20 41 20 53 49 4C 56 45 52 20 4D 45 WON A SILVER ME
000110: 44 41 4C 22 0D 0A 31 36 39 30 20 4C 45 54 20 53 DAL"..1690 LET S
000120: 28 31 29 3D 53 28 31 29 2B 31 0D 0A 31 37 30 30 (1)=S(1)+1..1700
000130: 20 47 4F 54 4F 20 31 37 33 30 0D 0A 31 37 31 30 GOTO 1730..1710
000140: 20 50 52 49 4E 54 20 22 59 4F 55 20 57 4F 4E 20 PRINT "YOU WON
000150: 41 20 42 52 4F 4E 5A 45 20 4D 45 44 41 4C 22 0D A BRONZE MEDAL".
000160: 0A 31 37 32 30 20 4C 45 54 20 42 28 31 29 3D 42 .1720 LET B(1)=B
000170: 28 31 29 2B 31 0D 0A 31 37 33 30 20 47 4F 54 4F (1)+1..1730 GOTO
000180: 20 37 34 30 0D 0A 31 37 34 30 20 50 52 49 4E 54 740..1740 PRINT
000190: 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 "THANKS FOR THE
0001A0: 20 52 41 43 45 22 0D 0A 31 37 35 30 20 49 46 20 RACE"..1750 IF
0001B0: 47 28 31 29 3C 31 20 54 48 45 4E 20 31 37 37 30 G(1)<1 THEN 1770
0001C0: 0D 0A 31 37 36 30 20 50 52 49 4E 54 20 22 47 4F ..1760 PRINT "GO
0001D0: 4C 44 20 4D 45 44 41 4C 53 3A 22 3B 47 28 31 29 LD MEDALS:";G(1)
0001E0: 0D 0A 31 37 37 30 20 49 46 20 53 28 31 29 3C 31 ..1770 IF S(1)<1
0001F0: 20 54 48 45 4E 20 31 37 39 30 0D 0A 31 37 38 30 THEN 1790..1780
Size : 512 (Real : 512)
000000: 2D 20 54 59 50 45 20 54 48 49 53 20 49 46 20 59 - TYPE THIS IF Y
000010: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 45 43 4B OU WANT TO CHECK
000020: 20 41 20 4C 4F 54 2E 22 0D 0A 39 32 30 20 50 52 A LOT."..920 PR
000030: 49 4E 54 20 22 20 20 20 20 20 38 20 2D 2D 20 54 INT " 8 -- T
000040: 59 50 45 20 54 48 49 53 20 49 46 20 59 4F 55 20 YPE THIS IF YOU
000050: 57 41 4E 54 20 54 4F 20 43 48 45 41 54 20 41 4E WANT TO CHEAT AN
000060: 44 20 54 52 59 20 54 4F 20 53 4B 49 50 20 41 20 D TRY TO SKIP A
000070: 47 41 54 45 2E 22 0D 0A 39 33 30 20 50 52 49 4E GATE."..930 PRIN
000080: 54 0D 0A 39 33 35 20 50 52 49 4E 54 20 22 20 54 T..935 PRINT " T
000090: 48 45 20 50 4C 41 43 45 20 54 4F 20 55 53 45 20 HE PLACE TO USE
0000A0: 54 48 45 53 45 20 4F 50 54 49 4F 4E 53 20 49 53 THESE OPTIONS IS
0000B0: 20 57 48 45 4E 20 54 48 45 20 43 4F 4D 50 55 54 WHEN THE COMPUT
0000C0: 45 52 20 41 53 4B 53 3A 22 0D 0A 39 34 30 20 50 ER ASKS:"..940 P
0000D0: 52 49 4E 54 0D 0A 39 34 35 20 50 52 49 4E 54 20 RINT..945 PRINT
0000E0: 22 4F 50 54 49 4F 4E 3F 22 0D 0A 39 35 30 20 50 "OPTION?"..950 P
0000F0: 52 49 4E 54 0D 0A 39 35 35 20 50 52 49 4E 54 20 RINT..955 PRINT
000100: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
000110: 20 47 4F 4F 44 20 4C 55 43 4B 21 22 0D 0A 39 35 GOOD LUCK!"..95
000120: 37 20 50 52 49 4E 54 0D 0A 39 36 30 20 47 4F 54 7 PRINT..960 GOT
000130: 4F 20 31 34 37 30 0D 0A 39 37 30 20 50 52 49 4E O 1470..970 PRIN
000140: 54 20 22 59 4F 55 27 56 45 20 54 41 4B 45 4E 22 T "YOU'VE TAKEN"
000150: 3B 28 54 2B 52 4E 44 28 31 29 29 3B 22 53 45 43 ;(T+RND(1));"SEC
000160: 4F 4E 44 53 2E 22 0D 0A 39 38 30 20 47 4F 54 4F ONDS."..980 GOTO
000170: 20 35 38 30 0D 0A 39 39 30 20 4F 4E 20 4F 31 20 580..990 ON O1
000180: 47 4F 54 4F 20 31 31 33 30 2C 31 30 31 30 2C 31 GOTO 1130,1010,1
000190: 31 37 30 2C 31 30 38 30 2C 31 31 39 30 2C 31 31 170,1080,1190,11
0001A0: 30 30 2C 31 31 35 30 2C 31 32 31 30 0D 0A 31 30 00,1150,1210..10
0001B0: 30 30 20 53 54 4F 50 0D 0A 31 30 31 30 20 4C 45 00 STOP..1010 LE
0001C0: 54 20 53 3D 53 2B 49 4E 54 28 52 4E 44 28 31 29 T S=S+INT(RND(1)
0001D0: 2A 28 35 2D 33 29 2B 33 29 0D 0A 31 30 32 30 20 *(5-3)+3)..1020
0001E0: 50 52 49 4E 54 20 53 3B 22 4D 2E 50 2E 48 2E 22 PRINT S;"M.P.H."
0001F0: 0D 0A 31 30 33 30 20 49 46 20 53 3E 51 20 54 48 ..1030 IF S>Q TH
Size : 512 (Real : 512)
000000: 20 50 52 49 4E 54 20 22 53 49 4C 56 45 52 20 4D PRINT "SILVER M
000010: 45 44 41 4C 53 3A 22 3B 53 28 31 29 0D 0A 31 37 EDALS:";S(1)..17
000020: 39 30 20 49 46 20 42 28 31 29 3C 31 20 54 48 45 90 IF B(1)<1 THE
000030: 4E 20 31 38 33 30 0D 0A 31 38 30 30 20 50 52 49 N 1830..1800 PRI
000040: 4E 54 20 22 42 52 4F 4E 5A 45 20 4D 45 44 41 4C NT "BRONZE MEDAL
000050: 53 3A 22 3B 42 28 31 29 0D 0A 31 38 31 30 20 44 S:";B(1)..1810 D
000060: 41 54 41 20 31 34 2C 31 38 2C 32 36 2C 32 39 2C ATA 14,18,26,29,
000070: 31 38 2C 32 35 2C 32 38 2C 33 32 2C 32 39 2C 32 18,25,28,32,29,2
000080: 30 2C 32 39 2C 32 39 2C 32 35 2C 32 31 2C 32 36 0,29,29,25,21,26
000090: 2C 32 39 2C 32 30 2C 32 31 2C 32 30 0D 0A 31 38 ,29,20,21,20..18
0000A0: 32 30 20 44 41 54 41 20 31 38 2C 32 36 2C 32 35 20 DATA 18,26,25
0000B0: 2C 33 33 2C 33 31 2C 32 32 0D 0A 31 38 33 30 20 ,33,31,22..1830
0000C0: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 45 4E 20 31 32 39 30 0D 0A 31 30 34 30 20 49 46 EN 1290..1040 IF
000010: 20 53 3E 51 2D 31 20 54 48 45 4E 20 31 30 36 30 S>Q-1 THEN 1060
000020: 0D 0A 31 30 35 30 20 52 45 54 55 52 4E 0D 0A 31 ..1050 RETURN..1
000030: 30 36 30 20 50 52 49 4E 54 20 22 43 4C 4F 53 45 060 PRINT "CLOSE
000040: 20 4F 4E 45 21 22 0D 0A 31 30 37 30 20 52 45 54 ONE!"..1070 RET
000050: 55 52 4E 0D 0A 31 30 38 30 20 50 52 49 4E 54 20 URN..1080 PRINT
000060: 53 3B 22 4D 2E 50 2E 48 2E 22 0D 0A 31 30 39 30 S;"M.P.H."..1090
000070: 20 47 4F 54 4F 20 31 30 33 30 0D 0A 31 31 30 30 GOTO 1030..1100
000080: 20 4C 45 54 20 53 3D 53 2D 49 4E 54 28 52 4E 44 LET S=S-INT(RND
000090: 28 31 29 2A 28 35 2D 33 29 2B 33 29 0D 0A 31 31 (1)*(5-3)+3)..11
0000A0: 31 30 20 50 52 49 4E 54 20 53 3B 22 4D 2E 50 2E 10 PRINT S;"M.P.
0000B0: 48 2E 22 0D 0A 31 31 32 30 20 47 4F 54 4F 20 31 H."..1120 GOTO 1
0000C0: 30 33 30 0D 0A 31 31 33 30 20 4C 45 54 20 53 3D 030..1130 LET S=
0000D0: 53 2B 49 4E 54 28 52 4E 44 28 31 29 2A 28 31 30 S+INT(RND(1)*(10
0000E0: 2D 35 29 2B 35 29 0D 0A 31 31 34 30 20 47 4F 54 -5)+5)..1140 GOT
0000F0: 4F 20 31 30 38 30 0D 0A 31 31 35 30 20 4C 45 54 O 1080..1150 LET
000100: 20 53 3D 53 2D 49 4E 54 28 52 4E 44 28 31 29 2A S=S-INT(RND(1)*
000110: 28 31 30 2D 35 29 2B 35 29 0D 0A 31 31 36 30 20 (10-5)+5)..1160
000120: 47 4F 54 4F 20 31 31 31 30 0D 0A 31 31 37 30 20 GOTO 1110..1170
000130: 4C 45 54 20 53 3D 53 2B 49 4E 54 28 52 4E 44 28 LET S=S+INT(RND(
000140: 31 29 2A 28 34 2D 31 29 2B 31 29 0D 0A 31 31 38 1)*(4-1)+1)..118
000150: 30 20 47 4F 54 4F 20 31 31 31 30 0D 0A 31 31 39 0 GOTO 1110..119
000160: 30 20 4C 45 54 20 53 3D 53 2D 49 4E 54 28 52 4E 0 LET S=S-INT(RN
000170: 44 28 31 29 2A 28 34 2D 31 29 2B 31 29 0D 0A 31 D(1)*(4-1)+1)..1
000180: 32 30 30 20 47 4F 54 4F 20 31 31 31 30 0D 0A 31 200 GOTO 1110..1
000190: 32 31 30 20 50 52 49 4E 54 20 22 2A 2A 2A 43 48 210 PRINT "***CH
0001A0: 45 41 54 22 0D 0A 31 32 32 30 20 49 46 20 52 4E EAT"..1220 IF RN
0001B0: 44 28 31 29 3C 2E 37 20 54 48 45 4E 20 31 32 36 D(1)<.7 THEN 126
0001C0: 30 0D 0A 31 32 33 30 20 50 52 49 4E 54 20 22 59 0..1230 PRINT "Y
0001D0: 4F 55 20 4D 41 44 45 20 49 54 21 07 22 0D 0A 31 OU MADE IT!."..1
0001E0: 32 34 30 20 4C 45 54 20 54 3D 54 2B 31 2E 35 0D 240 LET T=T+1.5.
0001F0: 0A 31 32 35 30 20 52 45 54 55 52 4E 0D 0A 31 32 .1250 RETURN..12
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 54 52 41 49 4E 22 0D 0A 32 20 50 52 49 4E 54 "TRAIN"..2 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 20 RSEY"..3 PRINT:
000060: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 34 20 PRINT: PRINT..4
000070: 50 52 49 4E 54 20 22 54 49 4D 45 20 2D 20 53 50 PRINT "TIME - SP
000080: 45 45 44 20 44 49 53 54 41 4E 43 45 20 45 58 45 EED DISTANCE EXE
000090: 52 43 49 53 45 22 3A 20 50 52 49 4E 54 0D 0A 31 RCISE": PRINT..1
0000A0: 30 20 43 3D 49 4E 54 28 32 35 2A 52 4E 44 28 31 0 C=INT(25*RND(1
0000B0: 29 29 2B 34 30 0D 0A 31 35 20 44 3D 49 4E 54 28 ))+40..15 D=INT(
0000C0: 31 35 2A 52 4E 44 28 31 29 29 2B 35 0D 0A 32 30 15*RND(1))+5..20
0000D0: 20 54 3D 49 4E 54 28 31 39 2A 52 4E 44 28 31 29 T=INT(19*RND(1)
0000E0: 29 2B 32 30 0D 0A 32 35 20 50 52 49 4E 54 20 22 )+20..25 PRINT "
0000F0: 20 41 20 43 41 52 20 54 52 41 56 45 4C 49 4E 47 A CAR TRAVELING
000100: 22 3B 43 3B 22 4D 50 48 20 43 41 4E 20 4D 41 4B ";C;"MPH CAN MAK
000110: 45 20 41 20 43 45 52 54 41 49 4E 20 54 52 49 50 E A CERTAIN TRIP
000120: 20 49 4E 22 0D 0A 33 30 20 50 52 49 4E 54 20 44 IN"..30 PRINT D
000130: 3B 22 48 4F 55 52 53 20 4C 45 53 53 20 54 48 41 ;"HOURS LESS THA
000140: 4E 20 41 20 54 52 41 49 4E 20 54 52 41 56 45 4C N A TRAIN TRAVEL
000150: 49 4E 47 20 41 54 22 3B 54 3B 22 4D 50 48 2E 22 ING AT";T;"MPH."
000160: 0D 0A 33 35 20 50 52 49 4E 54 20 22 48 4F 57 20 ..35 PRINT "HOW
000170: 4C 4F 4E 47 20 44 4F 45 53 20 54 48 45 20 54 52 LONG DOES THE TR
000180: 49 50 20 54 41 4B 45 20 42 59 20 43 41 52 22 3B IP TAKE BY CAR";
000190: 0D 0A 34 30 20 49 4E 50 55 54 20 41 0D 0A 34 35 ..40 INPUT A..45
0001A0: 20 56 3D 44 2A 54 2F 28 43 2D 54 29 0D 0A 35 30 V=D*T/(C-T)..50
0001B0: 20 45 3D 49 4E 54 28 41 42 53 28 28 56 2D 41 29 E=INT(ABS((V-A)
0001C0: 2A 31 30 30 2F 41 29 2B 2E 35 29 0D 0A 35 35 20 *100/A)+.5)..55
0001D0: 49 46 20 45 3E 35 20 54 48 45 4E 20 37 30 0D 0A IF E>5 THEN 70..
0001E0: 36 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 21 20 60 PRINT "GOOD!
0001F0: 41 4E 53 57 45 52 20 57 49 54 48 49 4E 22 3B 45 ANSWER WITHIN";E
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 3B 22 50 45 52 43 45 4E 54 2E 22 0D 0A 36 35 20 ;"PERCENT."..65
000010: 47 4F 54 4F 20 38 30 0D 0A 37 30 20 50 52 49 4E GOTO 80..70 PRIN
000020: 54 20 22 53 4F 52 52 59 2E 20 20 59 4F 55 20 57 T "SORRY. YOU W
000030: 45 52 45 20 4F 46 46 20 42 59 22 3B 45 3B 22 50 ERE OFF BY";E;"P
000040: 45 52 43 45 4E 54 2E 22 0D 0A 38 30 20 50 52 49 ERCENT."..80 PRI
000050: 4E 54 20 22 43 4F 52 52 45 43 54 20 41 4E 53 57 NT "CORRECT ANSW
000060: 45 52 20 49 53 22 3B 56 3B 22 48 4F 55 52 53 2E ER IS";V;"HOURS.
000070: 22 0D 0A 39 30 20 50 52 49 4E 54 0D 0A 39 35 20 "..90 PRINT..95
000080: 50 52 49 4E 54 20 22 41 4E 4F 54 48 45 52 20 50 PRINT "ANOTHER P
000090: 52 4F 42 4C 45 4D 20 28 59 45 53 20 4F 52 20 4E ROBLEM (YES OR N
0000A0: 4F 29 22 3B 0D 0A 31 30 30 20 49 4E 50 55 54 20 O)";..100 INPUT
0000B0: 41 24 0D 0A 31 30 35 20 50 52 49 4E 54 0D 0A 31 A$..105 PRINT..1
0000C0: 31 30 20 49 46 20 41 24 3D 22 59 45 53 22 20 54 10 IF A$="YES" T
0000D0: 48 45 4E 20 31 30 0D 0A 39 39 39 20 45 4E 44 0D HEN 10..999 END.
0000E0: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan