BILLIARDS!
FILE INFORMATION
FILENAME(S): BILLIARDS!
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
8d2e475b6eeb60580072d1595622048354570ef86778cb74575b37dca85b9d25
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT NR | BILLIARDS! | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 0 | DOWNLOAD FILE |
| HORRORLAND 128 | BILLIARDS! | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1B 04 0A 00 8F 20 33 20 43 55 53 48 49 4F |....... 3 CUSHIO| 00000010: 4E 20 42 49 4C 4C 49 41 52 44 53 00 43 04 0F 00 |N BILLIARDS.C...| 00000020: 8F 20 43 4F 50 49 45 44 20 46 52 4F 4D 20 4B 49 |. COPIED FROM KI| 00000030: 4C 4F 42 41 55 44 2C 4A 41 4E 55 41 52 59 2D 31 |LOBAUD,JANUARY-1| 00000040: 39 37 39 00 75 04 14 00 8F 3A 43 4F 50 59 52 49 |979.u....:COPYRI| 00000050: 47 48 54 20 31 39 37 38 20 42 59 20 50 48 49 4C |GHT 1978 BY PHIL| 00000060: 20 46 45 4C 44 4D 41 4E 20 41 4E 44 20 54 4F 4D | FELDMAN AND TOM| 00000070: 20 52 55 47 47 00 98 04 1B 00 8F 20 41 44 41 50 | RUGG...... ADAP| 00000080: 54 45 44 20 46 4F 52 20 50 55 47 20 42 59 20 42 |TED FOR PUG BY B| 00000090: 55 44 20 54 52 59 4F 4E 00 CE 04 1C 00 99 22 93 |UD TRYON......".| 000000A0: 22 3A 99 22 11 11 11 11 11 22 3A 99 20 22 20 20 |":.".....":. " | 000000B0: 20 20 20 20 20 20 20 20 20 12 20 42 20 49 20 4C | . B I L| 000000C0: 20 4C 20 49 20 41 20 52 20 44 20 53 20 22 00 EE | L I A R D S "..| 000000D0: 04 1E 00 99 A3 32 31 31 29 3B 22 4E 45 45 44 20 |.....211);"NEED | 000000E0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 00 04 |INSTRUCTIONS?"..| 000000F0: 05 23 00 A1 20 49 24 3A 8B 20 49 24 B2 22 22 20 |.#.. I$:. I$."" | 00000100: A7 20 33 35 00 17 05 28 00 8B 20 49 24 B2 22 4E |. 35...(.. I$."N| 00000110: 22 20 A7 20 34 30 30 00 4B 05 32 00 99 22 93 22 |" . 400.K.2.."."| 00000120: 3A 99 22 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 |:."THE OBJECT OF| 00000130: 20 54 48 45 20 47 41 4D 45 20 49 53 20 54 4F 20 | THE GAME IS TO | 00000140: 44 49 52 45 43 54 20 54 48 45 22 00 77 05 33 00 |DIRECT THE".w.3.| 00000150: 99 22 43 55 45 20 42 41 4C 4C 20 41 54 20 41 4E |."CUE BALL AT AN| 00000160: 20 41 4E 47 4C 45 20 53 4F 20 54 48 41 54 20 49 | ANGLE SO THAT I| 00000170: 54 20 48 49 54 53 22 00 A5 05 34 00 99 22 41 20 |T HITS"...4.."A | 00000180: 43 4F 4D 42 49 4E 41 54 49 4F 4E 20 4F 46 20 42 |COMBINATION OF B| 00000190: 4F 54 48 20 4F 42 4A 45 43 54 20 42 41 4C 4C 53 |OTH OBJECT BALLS| 000001A0: 20 41 4E 44 22 00 D2 05 35 00 99 22 54 48 52 45 | AND"...5.."THRE| 000001B0: 45 20 43 55 53 48 49 4F 4E 53 2E 20 59 4F 55 20 |E CUSHIONS. YOU | 000001C0: 4D 55 53 54 20 48 49 54 20 41 54 20 4C 45 41 53 |MUST HIT AT LEAS| 000001D0: 54 22 00 02 06 36 00 99 22 4F 4E 45 20 43 55 53 |T"...6.."ONE CUS| 000001E0: 48 49 4F 4E 20 42 45 46 4F 52 45 20 48 49 54 54 |HION BEFORE HITT| 000001F0: 49 4E 47 20 12 42 4F 54 48 92 20 42 41 4C 4C 53 |ING .BOTH. BALLS| 00000200: 2E 22 00 20 06 37 00 99 22 53 43 4F 52 49 4E 47 |.". .7.."SCORING| 00000210: 20 49 53 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 | IS AS FOLLOWS:"| 00000220: 00 55 06 38 00 99 3A 99 3A 99 3A 99 22 42 4F 54 |.U.8..:.:.:."BOT| 00000230: 48 20 42 41 4C 4C 53 20 41 4E 44 20 33 20 43 55 |H BALLS AND 3 CU| 00000240: 53 48 49 4F 4E 53 20 20 20 20 20 20 3D 20 33 20 |SHIONS = 3 | 00000250: 50 54 53 2E 22 00 86 06 39 00 99 3A 99 22 42 4F |PTS."...9..:."BO| 00000260: 54 48 20 42 41 4C 4C 53 20 41 4E 44 20 32 20 4F |TH BALLS AND 2 O| 00000270: 52 20 34 20 43 55 53 48 49 4F 4E 53 20 3D 20 32 |R 4 CUSHIONS = 2| 00000280: 20 50 54 53 2E 22 00 B6 06 3A 00 99 3A 99 22 42 | PTS."...:..:."B| 00000290: 4F 54 48 20 42 41 4C 4C 53 20 41 4E 44 20 31 20 |OTH BALLS AND 1 | 000002A0: 4F 52 20 35 20 43 55 53 48 49 4F 4E 53 20 3D 20 |OR 5 CUSHIONS = | 000002B0: 31 20 50 54 2E 22 00 E7 06 3B 00 99 3A 99 22 41 |1 PT."...;..:."A| 000002C0: 4E 59 20 4F 54 48 45 52 20 43 4F 4D 42 49 4E 41 |NY OTHER COMBINA| 000002D0: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 3D 20 |TION = | 000002E0: 30 20 50 54 53 2E 22 00 10 07 3C 00 99 22 1D 1D |0 PTS."...<.."..| 000002F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 |................| 00000300: 12 50 52 45 53 53 20 20 41 4E 59 20 4B 45 59 22 |.PRESS ANY KEY"| 00000310: 00 26 07 3D 00 A1 20 41 24 3A 8B 20 41 24 B2 22 |.&.=.. A$:. A$."| 00000320: 22 20 A7 20 36 31 00 3C 07 3E 00 99 22 93 1D 1D |" . 61.<.>.."...| 00000330: 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 22 00 6B 07 41 |...........".k.A| 00000340: 00 99 22 54 4F 20 41 49 4D 20 59 4F 55 52 20 53 |.."TO AIM YOUR S| 00000350: 48 4F 54 2C 20 55 53 45 20 54 48 45 20 46 4F 4C |HOT, USE THE FOL| 00000360: 4C 4F 57 49 4E 47 20 41 53 20 22 00 89 07 43 00 |LOWING AS "...C.| 00000370: 99 22 59 4F 55 52 20 41 4E 47 4C 45 20 44 49 52 |."YOUR ANGLE DIR| 00000380: 45 43 54 49 4F 4E 53 3A 22 00 A2 07 46 00 99 3A |ECTIONS:"...F..:| 00000390: 99 A3 31 34 29 3B 22 39 30 20 44 45 47 52 45 45 |..14);"90 DEGREE| 000003A0: 53 22 00 BE 07 47 00 99 22 20 20 20 20 20 20 20 |S"...G.." | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 5E 22 00 D9 | ^"..| 000003C0: 07 48 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |.H.." | 000003D0: 20 20 20 20 20 20 20 20 DD 00 F4 07 49 00 99 22 | ....I.."| 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 DD 00 0F 08 4A 00 99 22 20 20 20 20 20 | ....J.." | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 | ..| 00000410: 3E 08 4B 00 99 22 31 38 30 20 44 45 47 52 45 45 |>.K.."180 DEGREE| 00000420: 53 20 3C C3 C3 C3 C3 C3 C3 D1 C3 C3 C3 C3 C3 C3 |S <.............| 00000430: 3E 20 30 30 30 20 44 45 47 52 45 45 53 22 00 59 |> 000 DEGREES".Y| 00000440: 08 4C 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |.L.." | 00000450: 20 20 20 20 20 20 20 20 DD 00 74 08 4D 00 99 22 | ..t.M.."| 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000470: 20 20 20 DD 00 8F 08 4E 00 99 22 20 20 20 20 20 | ....N.." | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 | ..| 00000490: AB 08 4F 00 99 22 20 20 20 20 20 20 20 20 20 20 |..O.." | 000004A0: 20 20 20 20 20 20 20 20 20 56 22 00 CE 08 50 00 | V"...P.| 000004B0: 99 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |.:." | 000004C0: 20 20 32 37 30 20 44 45 47 52 45 45 53 22 00 D8 | 270 DEGREES"..| 000004D0: 08 55 00 99 22 11 11 22 00 F5 08 5A 00 99 3A 99 |.U..".."...Z..:.| 000004E0: A3 31 33 29 3B 22 12 50 52 45 53 53 20 41 4E 59 |.13);".PRESS ANY| 000004F0: 20 4B 45 59 22 00 0B 09 5F 00 A1 20 41 24 3A 8B | KEY"..._.. A$:.| 00000500: 20 41 24 B2 22 22 20 A7 20 39 35 00 31 09 90 01 | A$."" . 95.1...| 00000510: 8D 20 31 30 30 30 3A 8F 20 49 4E 49 54 49 41 4C |. 1000:. INITIAL| 00000520: 49 5A 45 20 52 45 47 20 56 41 52 49 41 42 4C 45 |IZE REG VARIABLE| 00000530: 53 00 59 09 9A 01 8D 20 39 30 30 30 3A 8F 20 53 |S.Y.... 9000:. S| 00000540: 45 54 20 55 53 45 52 20 44 45 46 49 4E 45 44 20 |ET USER DEFINED | 00000550: 56 41 52 49 41 42 4C 45 53 00 72 09 A4 01 8D 20 |VARIABLES.r.... | 00000560: 31 35 30 30 3A 8F 20 53 45 54 20 55 50 20 47 41 |1500:. SET UP GA| 00000570: 4D 45 00 8F 09 F4 01 50 B2 50 AA 31 3A 8B 20 50 |ME.....P.P.1:. P| 00000580: B1 4E 50 20 A7 20 50 B2 31 3A 49 B2 49 AA 31 00 |.NP . P.1:I.I.1.| 00000590: AC 09 FE 01 8B 20 49 B1 4E 49 20 A7 20 37 35 30 |..... I.NI . 750| 000005A0: 30 3A 8F 20 45 4E 44 20 47 41 4D 45 00 CC 09 08 |0:. END GAME....| 000005B0: 02 8D 20 32 30 30 30 3A 8F 20 50 52 4F 4D 50 54 |.. 2000:. PROMPT| 000005C0: 20 4E 45 58 54 20 50 4C 41 59 45 52 00 E4 09 12 | NEXT PLAYER....| 000005D0: 02 8D 20 32 35 30 30 3A 8F 20 46 52 41 57 20 54 |.. 2500:. FRAW T| 000005E0: 41 42 4C 45 00 05 0A 1C 02 8D 20 33 30 30 30 3A |ABLE...... 3000:| 000005F0: 8F 20 50 49 43 4B 20 42 41 4C 4C 20 4C 4F 43 41 |. PICK BALL LOCA| 00000600: 54 49 4F 4E 53 00 1D 0A 26 02 8D 20 33 35 30 30 |TIONS...&.. 3500| 00000610: 3A 8F 20 44 52 41 57 20 42 41 4C 4C 53 00 45 0A |:. DRAW BALLS.E.| 00000620: 30 02 8D 20 34 30 30 30 3A 8F 20 47 45 54 20 53 |0.. 4000:. GET S| 00000630: 48 4F 54 20 41 4E 47 4C 45 20 46 52 4F 4D 20 50 |HOT ANGLE FROM P| 00000640: 4C 41 59 45 52 00 62 0A 3A 02 8D 20 34 35 30 30 |LAYER.b.:.. 4500| 00000650: 3A 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 53 48 |:. INITIALIZE SH| 00000660: 4F 54 00 89 0A BC 02 8D 20 35 30 30 30 3A 8F 20 |OT...... 5000:. | 00000670: 4D 4F 56 45 20 43 55 52 53 4F 52 20 4F 4E 45 20 |MOVE CURSOR ONE | 00000680: 54 49 4D 45 20 53 54 45 50 00 AC 0A C6 02 8D 20 |TIME STEP...... | 00000690: 35 35 30 30 3A 8F 20 43 48 45 43 4B 20 42 41 4C |5500:. CHECK BAL| 000006A0: 4C 20 43 4F 4C 4C 49 53 49 4F 4E 53 00 D3 0A D0 |L COLLISIONS....| 000006B0: 02 8B 20 4E 42 B1 B2 33 20 A7 20 8D 20 36 30 30 |.. NB..3 . . 600| 000006C0: 30 3A 89 20 35 30 30 3A 8F 20 53 48 4F 54 20 4F |0:. 500:. SHOT O| 000006D0: 56 45 52 00 F5 0A DA 02 8D 20 36 35 30 30 3A 8F |VER...... 6500:.| 000006E0: 20 43 48 45 43 4B 20 49 46 20 43 55 53 48 49 4F | CHECK IF CUSHIO| 000006F0: 4E 20 48 49 54 00 1B 0B E4 02 8B 20 43 55 B1 B2 |N HIT...... CU..| 00000700: 36 20 A7 20 8D 20 36 30 30 30 3A 89 20 35 30 30 |6 . . 6000:. 500| 00000710: 3A 8F 53 48 4F 54 20 4F 56 45 52 00 25 0B EE 02 |:.SHOT OVER.%...| 00000720: 89 20 37 30 30 00 42 0B E8 03 8F 20 2A 2A 49 4E |. 700.B.... **IN| 00000730: 49 54 49 41 4C 49 5A 45 20 56 41 52 49 41 42 4C |ITIALIZE VARIABL| 00000740: 45 53 00 82 0B F2 03 52 58 B2 30 3A 44 58 B2 30 |ES.....RX.0:DX.0| 00000750: 3A 52 59 B2 30 3A 44 59 B2 30 3A 54 58 B2 30 3A |:RY.0:DY.0:TX.0:| 00000760: 54 59 B2 30 3A 58 52 B2 30 3A 59 55 B2 30 3A 43 |TY.0:XR.0:YU.0:C| 00000770: 55 B2 30 3A 49 58 B2 30 3A 49 59 B2 30 3A 58 31 |U.0:IX.0:IY.0:X1| 00000780: B2 30 00 BE 0B FC 03 59 31 B2 30 3A 58 32 B2 30 |.0.....Y1.0:X2.0| 00000790: 3A 59 32 B2 30 3A 41 B2 30 3A 42 B2 30 3A 4E 42 |:Y2.0:A.0:B.0:NB| 000007A0: B2 30 3A 49 B2 30 3A 53 31 B2 30 3A 53 32 B2 30 |.0:I.0:S1.0:S2.0| 000007B0: 3A 50 B2 32 3A 86 20 50 24 28 32 29 3A 8E 00 D2 |:P.2:. P$(2):...| 000007C0: 0B DC 05 8F 20 2A 2A 53 45 54 20 55 50 20 47 41 |.... **SET UP GA| 000007D0: 4D 45 00 E4 0B E6 05 8D 20 38 38 30 30 3A 8D 20 |ME...... 8800:. | 000007E0: 38 34 30 30 00 11 0C EB 05 99 3A 99 3A 99 3A 99 |8400......:.:.:.| 000007F0: A3 31 30 29 3B 22 12 20 33 20 43 55 53 48 49 4F |.10);". 3 CUSHIO| 00000800: 4E 20 42 49 4C 4C 49 41 52 44 53 20 22 3A 99 3A |N BILLIARDS ":.:| 00000810: 99 00 35 0C F0 05 85 22 48 4F 57 20 4D 41 4E 59 |..5...."HOW MANY| 00000820: 20 50 4C 41 59 45 52 53 20 28 31 20 4F 52 20 32 | PLAYERS (1 OR 2| 00000830: 29 22 3B 4E 50 00 57 0C FA 05 4E 50 B2 B5 28 4E |)";NP.W...NP..(N| 00000840: 50 29 3A 8B 20 4E 50 B3 31 20 B0 20 4E 50 B1 32 |P):. NP.1 . NP.2| 00000850: 20 A7 20 31 35 32 30 00 7E 0C 04 06 8B 20 4E 50 | . 1520.~.... NP| 00000860: B2 31 20 A7 20 85 22 59 4F 55 52 20 4E 41 4D 45 |.1 . ."YOUR NAME| 00000870: 22 3B 50 24 28 31 29 3A 89 20 31 35 36 30 00 BB |";P$(1):. 1560..| 00000880: 0C 0E 06 85 20 22 4E 41 4D 45 20 4F 46 20 50 4C |.... "NAME OF PL| 00000890: 41 59 45 52 20 4F 4E 45 22 3B 50 24 28 31 29 3A |AYER ONE";P$(1):| 000008A0: 85 22 4E 41 4D 45 20 4F 46 20 50 4C 41 59 45 52 |."NAME OF PLAYER| 000008B0: 20 54 57 4F 22 3B 50 24 28 32 29 00 E3 0C 18 06 | TWO";P$(2).....| 000008C0: 85 22 48 4F 57 20 4D 41 4E 59 20 49 4E 4E 49 4E |."HOW MANY INNIN| 000008D0: 47 53 20 46 4F 52 20 54 48 45 20 47 41 4D 45 22 |GS FOR THE GAME"| 000008E0: 3B 4E 49 00 0B 0D 22 06 99 3A 99 20 22 54 41 42 |;NI..."..:. "TAB| 000008F0: 4C 45 20 4C 45 4E 47 54 48 20 41 4E 44 20 54 41 |LE LENGTH AND TA| 00000900: 42 4C 45 20 48 45 49 47 54 48 22 00 30 0D 26 06 |BLE HEIGTH".0.&.| 00000910: 99 22 28 33 35 2C 31 38 20 49 53 20 4D 41 58 49 |."(35,18 IS MAXI| 00000920: 4D 55 4D 20 44 49 46 46 49 43 55 4C 54 59 29 22 |MUM DIFFICULTY)"| 00000930: 00 55 0D 27 06 99 22 28 32 36 2C 31 34 20 49 53 |.U.'.."(26,14 IS| 00000940: 20 4D 45 44 49 55 4D 20 20 44 49 46 46 49 43 55 | MEDIUM DIFFICU| 00000950: 4C 54 59 29 22 00 82 0D 28 06 99 22 28 31 38 2C |LTY)"...(.."(18,| 00000960: 31 30 20 49 53 20 4D 49 4E 49 4D 55 4D 20 44 49 |10 IS MINIMUM DI| 00000970: 46 46 49 43 55 4C 54 59 29 22 3B 3A 85 4E 58 2C |FFICULTY)";:.NX,| 00000980: 4E 59 00 9B 0D 29 06 8B 20 4E 58 B1 33 35 B0 4E |NY...).. NX.35.N| 00000990: 59 B1 31 38 20 A7 20 31 35 37 30 00 C4 0D 2A 06 |Y.18 . 1570...*.| 000009A0: 8B 20 4E 58 B3 31 38 B0 4E 59 B3 31 30 A7 20 99 |. NX.18.NY.10. .| 000009B0: 22 54 4F 4F 20 53 4D 41 4C 4C 91 91 22 3A 89 20 |"TOO SMALL..":. | 000009C0: 31 35 37 30 00 D1 0D 2C 06 53 52 B2 2E 37 35 38 |1570...,.SR..758| 000009D0: 36 00 05 0E 36 06 85 20 22 41 20 52 41 4E 44 4F |6...6.. "A RANDO| 000009E0: 4D 20 4E 55 4D 42 45 52 20 50 4C 45 41 53 45 22 |M NUMBER PLEASE"| 000009F0: 3B 4B 3A 4B B2 BB 28 AB B6 28 4B 29 29 3A 58 52 |;K:K..(..(K)):XR| 00000A00: B2 4E 58 AB 32 00 13 0E 40 06 59 55 B2 4E 59 AB |.NX.2...@.YU.NY.| 00000A10: 32 3A 8E 00 2F 0E D0 07 8F 20 2A 2A 20 50 52 4F |2:../.... ** PRO| 00000A20: 4D 50 54 20 4E 45 58 54 20 50 4C 41 59 45 52 00 |MPT NEXT PLAYER.| 00000A30: 52 0E DA 07 8D 20 38 38 30 30 3A 8D 20 38 34 30 |R.... 8800:. 840| 00000A40: 30 3A 99 22 4F 4B 20 22 3B 50 24 28 50 29 3A 99 |0:."OK ";P$(P):.| 00000A50: 3A 99 00 82 0E E4 07 99 22 20 20 20 20 20 20 20 |:......." | 00000A60: 20 43 48 41 4C 4B 20 55 50 20 59 4F 55 52 20 43 | CHALK UP YOUR C| 00000A70: 55 45 21 22 3A 8D 20 38 39 30 30 3A 8D 20 38 38 |UE!":. 8900:. 88| 00000A80: 30 30 00 91 0E EE 07 8D 20 38 34 30 30 3A 99 3A |00...... 8400:.:| 00000A90: 99 00 C7 0E F8 07 99 22 49 4E 4E 49 4E 47 22 3B |......."INNING";| 00000AA0: 49 3B 22 20 4F 46 22 3B 4E 49 3B 22 20 2D 2D 20 |I;" OF";NI;" -- | 00000AB0: 4E 4F 57 20 53 48 4F 4F 54 49 4E 47 3A 20 22 3B |NOW SHOOTING: ";| 00000AC0: 50 24 28 50 29 3A 99 00 00 0F 02 08 99 22 53 43 |P$(P):......."SC| 00000AD0: 4F 52 45 3A 20 22 3B 50 24 28 31 29 3B 22 2D 22 |ORE: ";P$(1);"-"| 00000AE0: 3B 53 31 3B 3A 8B 20 4E 50 B2 32 20 A7 20 99 22 |;S1;:. NP.2 . ."| 00000AF0: 20 20 22 3B 50 24 28 32 29 3B 22 2D 22 3B 53 32 | ";P$(2);"-";S2| 00000B00: 00 06 0F 0C 08 8E 00 23 0F C4 09 8F 20 2A 2A 20 |.......#.... ** | 00000B10: 44 52 41 57 20 54 41 42 4C 45 20 4E 58 20 42 59 |DRAW TABLE NX BY| 00000B20: 20 4E 59 00 52 0F CE 09 8D 20 38 36 30 30 3A 41 | NY.R.... 8600:A| 00000B30: B2 58 3A 81 20 4B B2 31 20 A4 20 4E 58 3A 8D 20 |.X:. K.1 . NX:. | 00000B40: 38 31 30 30 3A 82 3A 41 B2 4C 3A 42 B2 55 3A 43 |8100:.:A.L:B.U:C| 00000B50: B2 58 00 7E 0F D8 09 81 20 4B B2 31 20 A4 4E 59 |.X.~.... K.1 .NY| 00000B60: AB 31 3A 8D 20 38 33 30 30 3A 82 3A 8D 20 38 36 |.1:. 8300:.:. 86| 00000B70: 30 30 3A 41 B2 55 3A 42 B2 58 3A 43 B2 4C 00 B0 |00:A.U:B.X:C.L..| 00000B80: 0F E2 09 81 20 4B B2 31 20 A4 20 4E 59 AB 31 3A |.... K.1 . NY.1:| 00000B90: 8D 20 38 33 30 30 3A 82 3A 41 B2 58 3A 81 20 4B |. 8300:.:A.X:. K| 00000BA0: B2 31 20 A4 20 4E 58 AB 31 3A 8D 20 38 31 30 30 |.1 . NX.1:. 8100| 00000BB0: 00 B8 0F EC 09 82 3A 8E 00 D5 0F B8 0B 8F 20 2A |......:....... *| 00000BC0: 2A 20 50 49 43 4B 20 42 41 4C 4C 20 4C 4F 43 41 |* PICK BALL LOCA| 00000BD0: 54 49 4F 4E 53 00 01 10 C2 0B 58 31 B2 B5 28 BB |TIONS.....X1..(.| 00000BE0: 28 31 29 AC 28 4E 58 AB 33 29 29 AA 31 3A 59 31 |(1).(NX.3)).1:Y1| 00000BF0: B2 B5 28 BB 28 31 29 AC 28 4E 59 AB 33 29 29 AA |..(.(1).(NY.3)).| 00000C00: 32 00 2D 10 CC 0B 58 32 B2 B5 28 BB 28 31 29 AC |2.-...X2..(.(1).| 00000C10: 28 4E 58 AB 33 29 29 AA 31 3A 59 32 B2 B5 28 BB |(NX.3)).1:Y2..(.| 00000C20: 28 31 29 AC 28 4E 59 AB 33 29 29 AA 32 00 5A 10 |(1).(NY.3)).2.Z.| 00000C30: D6 0B 4B B2 B6 28 58 31 AB 58 32 29 3A 51 B2 B6 |..K..(X1.X2):Q..| 00000C40: 28 59 31 AB 59 32 29 3A 8B 20 4B B3 33 20 AF 20 |(Y1.Y2):. K.3 . | 00000C50: 51 B3 33 20 A7 20 33 30 32 30 00 86 10 E0 0B 58 |Q.3 . 3020.....X| 00000C60: 42 B2 B5 28 BB 28 31 29 AC 28 4E 58 AB 34 29 29 |B..(.(1).(NX.4))| 00000C70: AA 32 3A 59 42 B2 B5 28 BB 28 31 29 AC 28 4E 59 |.2:YB..(.(1).(NY| 00000C80: AB 34 29 29 AA 32 00 AD 10 EA 0B 4B B2 28 58 31 |.4)).2.....K.(X1| 00000C90: AB 58 42 29 AE 32 AA 28 59 31 AB 59 42 29 AE 32 |.XB).2.(Y1.YB).2| 00000CA0: 3A 8B 20 4B B3 34 20 A7 20 33 30 34 30 00 D4 10 |:. K.4 . 3040...| 00000CB0: F4 0B 4B B2 28 58 32 AB 58 42 29 AE 32 AA 28 59 |..K.(X2.XB).2.(Y| 00000CC0: 32 AB 59 42 29 AE 32 3A 8B 20 4B B3 34 20 A7 20 |2.YB).2:. K.4 . | 00000CD0: 33 30 34 30 00 DA 10 FE 0B 8E 00 EE 10 AC 0D 8F |3040............| 00000CE0: 20 2A 2A 20 44 52 41 57 20 42 41 4C 4C 53 00 18 | ** DRAW BALLS..| 00000CF0: 11 B6 0D 4C 58 B2 58 31 3A 4C 59 B2 59 31 3A 8D |...LX.X1:LY.Y1:.| 00000D00: 20 37 30 30 30 3A 41 B2 32 31 33 3A 42 B2 32 30 | 7000:A.213:B.20| 00000D10: 31 3A 8D 20 38 32 30 30 00 42 11 C0 0D 41 B2 4C |1:. 8200.B...A.L| 00000D20: 3A 42 B2 4C 3A 43 B2 44 3A 8D 20 38 33 30 30 3A |:B.L:C.D:. 8300:| 00000D30: 41 B2 32 30 32 3A 42 B2 32 30 33 3A 8D 20 38 32 |A.202:B.203:. 82| 00000D40: 30 30 00 6C 11 CA 0D 4C 58 B2 58 32 3A 4C 59 B2 |00.l...LX.X2:LY.| 00000D50: 59 32 3A 8D 20 37 30 30 30 3A 41 B2 32 31 33 3A |Y2:. 7000:A.213:| 00000D60: 42 B2 32 30 31 3A 8D 20 38 32 30 30 00 96 11 D4 |B.201:. 8200....| 00000D70: 0D 41 B2 4C 3A 42 B2 4C 3A 43 B2 44 3A 8D 20 38 |.A.L:B.L:C.D:. 8| 00000D80: 33 30 30 3A 41 B2 32 30 32 3A 42 B2 32 30 33 3A |300:A.202:B.203:| 00000D90: 8D 20 38 32 30 30 00 BA 11 DE 0D 4C 58 B2 58 42 |. 8200.....LX.XB| 00000DA0: 3A 4C 59 B2 59 42 3A 8D 37 30 30 30 3A 41 B2 41 |:LY.YB:.7000:A.A| 00000DB0: 53 3A 8D 20 38 31 30 30 3A 8E 00 DD 11 A0 0F 8F |S:. 8100:.......| 00000DC0: 20 2A 2A 47 45 54 20 41 4E 47 4C 45 20 41 4E 44 | **GET ANGLE AND| 00000DD0: 20 4E 4F 52 4D 41 4C 49 5A 45 20 49 54 00 E7 11 | NORMALIZE IT...| 00000DE0: AA 0F 8D 38 34 30 30 00 0B 12 AD 0F 85 22 53 48 |...8400......"SH| 00000DF0: 4F 54 20 41 4E 47 4C 45 20 28 30 2D 33 36 30 20 |OT ANGLE (0-360 | 00000E00: 44 45 47 52 45 45 53 29 22 3B 47 00 29 12 AF 0F |DEGREES)";G.)...| 00000E10: 8B 20 47 B3 30 B0 47 B1 33 36 30 20 A7 20 99 22 |. G.0.G.360 . ."| 00000E20: 13 22 3A 89 20 34 30 31 33 00 3D 12 B1 0F 47 B2 |.":. 4013.=...G.| 00000E30: 47 AC 33 2E 31 34 31 35 39 AD 31 38 30 00 63 12 |G.3.14159.180.c.| 00000E40: B4 0F 44 58 B2 BE 28 47 29 3A 44 59 B2 BF 28 47 |..DX..(G):DY..(G| 00000E50: 29 3A 8B 20 53 52 B1 31 20 A7 20 44 58 B2 44 58 |):. SR.1 . DX.DX| 00000E60: AD 53 52 00 79 12 BE 0F 8B 20 53 52 B3 31 20 A7 |.SR.y.... SR.1 .| 00000E70: 20 44 59 B2 44 59 AC 53 52 00 AE 12 C8 0F 8B 20 | DY.DY.SR...... | 00000E80: B6 28 44 58 29 B3 30 2E 35 20 AF 20 B6 28 44 59 |.(DX).0.5 . .(DY| 00000E90: 29 B3 30 2E 35 20 A7 20 44 58 B2 44 58 AC 32 3A |).0.5 . DX.DX.2:| 00000EA0: 44 59 B2 44 59 AC 32 3A 89 20 34 30 34 30 00 B4 |DY.DY.2:. 4040..| 00000EB0: 12 D2 0F 8E 00 CC 12 94 11 8F 2A 2A 20 49 4E 49 |..........** INI| 00000EC0: 54 49 41 4C 49 5A 45 20 53 48 4F 54 00 0D 13 9E |TIALIZE SHOT....| 00000ED0: 11 4C 58 B2 58 42 3A 4C 59 B2 59 42 3A 8D 20 37 |.LX.XB:LY.YB:. 7| 00000EE0: 30 30 30 3A 4E 42 B2 30 3A 43 55 B2 30 3A 49 58 |000:NB.0:CU.0:IX| 00000EF0: B2 58 42 3A 49 59 B2 59 42 3A 52 58 B2 58 42 AA |.XB:IY.YB:RX.XB.| 00000F00: 2E 34 39 3A 52 59 B2 59 42 AA 2E 34 39 00 37 13 |.49:RY.YB..49.7.| 00000F10: A8 11 8D 20 38 39 30 30 3A 41 B2 53 50 3A 42 B2 |... 8900:A.SP:B.| 00000F20: 4C 3A 5A 31 B2 32 30 30 3A 8D 39 31 30 30 3A 8D |L:Z1.200:.9100:.| 00000F30: 20 38 32 30 30 3A 8E 00 5E 13 88 13 8F 20 2A 2A | 8200:..^.... **| 00000F40: 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 46 4F 52 | MOVE CURSOR FOR| 00000F50: 20 4F 4E 45 20 54 49 4D 45 20 53 54 45 50 00 86 | ONE TIME STEP..| 00000F60: 13 92 13 52 58 B2 52 58 AA 44 58 3A 52 59 B2 52 |...RX.RX.DX:RY.R| 00000F70: 59 AA 44 59 3A 54 58 B2 B5 28 52 58 29 3A 54 59 |Y.DY:TX..(RX):TY| 00000F80: B2 B5 28 52 59 29 00 A7 13 9C 13 41 B2 4E 3A 42 |..(RY).....A.N:B| 00000F90: B2 4E 3A 8B 20 54 58 B1 49 58 20 A7 20 41 B2 52 |.N:. TX.IX . A.R| 00000FA0: 3A 89 20 35 30 34 30 00 B9 13 A6 13 8B 20 54 58 |:. 5040...... TX| 00000FB0: B3 49 58 20 A7 20 41 B2 4C 00 D2 13 B0 13 8B 20 |.IX . A.L...... | 00000FC0: 54 59 B1 49 59 20 A7 20 42 B2 55 3A 89 20 35 30 |TY.IY . B.U:. 50| 00000FD0: 36 30 00 E4 13 BA 13 8B 20 54 59 B3 49 59 20 A7 |60...... TY.IY .| 00000FE0: 20 42 B2 44 00 FB 13 C4 13 8D 20 38 32 30 30 3A | B.D...... 8200:| 00000FF0: 49 58 B2 54 58 3A 49 59 B2 54 59 00 0F 14 CE 13 |IX.TX:IY.TY.....| 00001000: 41 B2 41 53 3A 42 B2 4C 3A 8D 20 38 32 30 30 00 |A.AS:B.L:. 8200.| 00001010: 25 14 D8 13 41 B2 53 50 3A 42 B2 4C 3A 8D 20 38 |%...A.SP:B.L:. 8| 00001020: 32 30 30 3A 8E 00 50 14 7C 15 8F 20 2A 2A 20 43 |200:..P.|.. ** C| 00001030: 48 45 43 4B 20 41 4E 44 20 50 52 4F 43 45 53 53 |HECK AND PROCESS| 00001040: 20 42 41 4C 4C 20 43 4F 4C 4C 49 53 49 4F 4E 53 | BALL COLLISIONS| 00001050: 00 62 14 86 15 8B 20 4E 42 B1 31 20 A7 20 35 35 |.b.... NB.1 . 55| 00001060: 34 30 00 91 14 90 15 8B 20 49 58 B3 58 32 20 B0 |40...... IX.X2 .| 00001070: 20 49 58 B1 58 32 AA 31 20 B0 20 49 59 B3 59 32 | IX.X2.1 . IY.Y2| 00001080: AB 31 20 B0 20 49 59 B1 59 32 20 A7 20 35 35 34 |.1 . IY.Y2 . 554| 00001090: 30 00 B9 14 9A 15 41 B2 50 4C 3A 42 B2 4C 3A 5A |0.....A.PL:B.L:Z| 000010A0: 31 B2 37 35 3A 8D 39 31 30 30 3A 8D 20 38 32 30 |1.75:.9100:. 820| 000010B0: 30 3A 4E 42 B2 4E 42 AA 32 00 D2 14 A4 15 8B 20 |0:NB.NB.2...... | 000010C0: 4E 42 B2 31 20 B0 20 4E 42 B2 33 20 A7 20 35 35 |NB.1 . NB.3 . 55| 000010D0: 37 30 00 01 15 AE 15 8B 20 49 58 B3 58 31 20 B0 |70...... IX.X1 .| 000010E0: 20 49 58 B1 58 31 AA 31 20 B0 20 49 59 B3 59 31 | IX.X1.1 . IY.Y1| 000010F0: AB 31 20 B0 20 49 59 B1 59 31 20 A7 20 35 35 37 |.1 . IY.Y1 . 557| 00001100: 30 00 29 15 B8 15 41 B2 50 4C 3A 42 B2 4C 3A 5A |0.)...A.PL:B.L:Z| 00001110: 31 B2 37 35 3A 8D 39 31 30 30 3A 8D 20 38 32 30 |1.75:.9100:. 820| 00001120: 30 3A 4E 42 B2 4E 42 AA 31 00 2F 15 C2 15 8E 00 |0:NB.NB.1./.....| 00001130: 50 15 70 17 8F 20 2A 2A 20 53 48 4F 54 20 4F 56 |P.p.. ** SHOT OV| 00001140: 45 52 20 2D 2D 20 53 48 4F 57 20 53 43 4F 52 45 |ER -- SHOW SCORE| 00001150: 00 62 15 7A 17 8D 20 38 34 30 30 3A 53 43 B2 30 |.b.z.. 8400:SC.0| 00001160: 3A 99 00 90 15 84 17 8B 20 4E 42 B3 33 20 A7 20 |:....... NB.3 . | 00001170: 99 22 13 11 11 11 11 11 11 4E 4F 20 53 43 4F 52 |.".......NO SCOR| 00001180: 45 22 3B 3A 8D 39 33 30 30 3A 89 20 36 30 37 30 |E";:.9300:. 6070| 00001190: 00 B0 15 8E 17 53 43 B2 33 AB B6 28 43 55 AB 33 |.....SC.3..(CU.3| 000011A0: 29 3A 8B 20 53 43 B2 30 20 A7 20 8D 39 33 30 30 |):. SC.0 . .9300| 000011B0: 00 D2 15 90 17 99 22 13 11 11 11 11 11 11 54 48 |......".......TH| 000011C0: 41 54 20 53 48 4F 54 20 53 43 4F 52 45 44 22 3B |AT SHOT SCORED";| 000011D0: 53 43 00 E3 15 92 17 8B 20 53 43 B2 30 A7 20 36 |SC...... SC.0. 6| 000011E0: 30 33 38 00 FA 15 94 17 8D 39 32 30 30 3A 8B 20 |038......9200:. | 000011F0: 53 43 B2 33 A7 8D 39 34 30 30 00 0C 16 96 17 8B |SC.3..9400......| 00001200: 50 B2 31 A7 53 31 B2 53 31 AA 53 43 00 21 16 98 |P.1.S1.S1.SC.!..| 00001210: 17 8B 20 50 B2 32 20 A7 20 53 32 B2 53 32 AA 53 |.. P.2 . S2.S2.S| 00001220: 43 00 3A 16 B6 17 81 20 51 B2 31 20 A4 20 32 3A |C.:.... Q.1 . 2:| 00001230: 8D 20 38 39 30 30 3A 82 3A 8E 00 58 16 64 19 8F |. 8900:.:..X.d..| 00001240: 20 2A 2A 20 50 52 4F 43 45 53 53 20 43 55 53 48 | ** PROCESS CUSH| 00001250: 49 4F 4E 20 48 49 54 53 00 72 16 6E 19 8B 20 49 |ION HITS.r.n.. I| 00001260: 58 B1 31 20 AF 20 49 58 B3 58 52 20 A7 20 36 35 |X.1 . IX.XR . 65| 00001270: 33 30 00 9E 16 78 19 43 55 B2 43 55 AA 31 3A 41 |30...x.CU.CU.1:A| 00001280: B2 42 4C 3A 5A 31 B2 32 35 34 3A 8D 39 31 30 30 |.BL:Z1.254:.9100| 00001290: 3A 8D 20 38 31 30 30 3A 44 58 B2 AB 44 58 00 B8 |:. 8100:DX..DX..| 000012A0: 16 82 19 8B 20 49 59 B1 31 20 AF 20 49 59 B3 59 |.... IY.1 . IY.Y| 000012B0: 55 20 A7 20 36 35 35 30 00 E4 16 8C 19 43 55 B2 |U . 6550.....CU.| 000012C0: 43 55 AA 31 3A 41 B2 42 4C 3A 5A 31 B2 32 35 34 |CU.1:A.BL:Z1.254| 000012D0: 3A 8D 39 31 30 30 3A 8D 20 38 31 30 30 3A 44 59 |:.9100:. 8100:DY| 000012E0: B2 AB 44 59 00 EA 16 96 19 8E 00 08 17 58 1B 8F |..DY.........X..| 000012F0: 20 2A 2A 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 | ** MOVE CURSOR | 00001300: 54 4F 20 4C 58 2C 4C 59 00 29 17 62 1B 8D 20 38 |TO LX,LY.).b.. 8| 00001310: 36 30 30 3A 41 B2 52 3A 81 4B B2 31 20 A4 4C 58 |600:A.R:.K.1 .LX| 00001320: 3A 8D 20 38 31 30 30 3A 82 00 47 17 6C 1B 41 B2 |:. 8100:..G.l.A.| 00001330: 55 3A 81 20 4B B2 31 20 A4 20 4C 59 3A 8D 20 38 |U:. K.1 . LY:. 8| 00001340: 31 30 30 3A 82 3A 8E 00 62 17 4C 1D 8F 20 2A 2A |100:.:..b.L.. **| 00001350: 20 4D 4F 50 55 50 20 2D 2D 20 45 4E 44 20 47 41 | MOPUP -- END GA| 00001360: 4D 45 00 6B 17 56 1D 99 22 93 22 00 8E 17 60 1D |ME.k.V.."."...`.| 00001370: 99 A3 39 29 3B 22 54 48 41 54 27 53 20 49 54 20 |..9);"THAT'S IT | 00001380: 2D 2D 20 47 4F 4F 44 20 47 41 4D 45 21 22 00 B1 |-- GOOD GAME!"..| 00001390: 17 6A 1D 99 22 11 11 11 22 3A 99 A3 31 34 29 3B |.j.."...":..14);| 000013A0: 22 12 20 46 49 4E 41 4C 20 53 43 4F 52 45 20 92 |". FINAL SCORE .| 000013B0: 22 00 C5 17 74 1D 8B 20 4E 50 B2 32 20 A7 20 89 |"...t.. NP.2 . .| 000013C0: 20 37 36 30 30 00 D0 17 79 1D 99 22 11 11 11 22 | 7600...y.."..."| 000013D0: 00 E7 17 7E 1D 99 A3 31 34 29 3B 50 24 28 31 29 |...~...14);P$(1)| 000013E0: 3B A3 32 35 29 53 31 00 FE 17 88 1D 8D 20 39 32 |;.25)S1...... 92| 000013F0: 30 30 3A 97 20 35 39 34 36 37 2C 30 3A 80 00 1A |00:. 59467,0:...| 00001400: 18 B0 1D 99 22 11 11 11 22 A3 31 34 29 3B 50 24 |...."...".14);P$| 00001410: 28 31 29 3B A3 32 35 29 53 31 00 36 18 BA 1D 99 |(1);.25)S1.6....| 00001420: 22 11 11 11 22 A3 31 34 29 3B 50 24 28 32 29 3B |"...".14);P$(2);| 00001430: A3 32 35 29 53 32 00 4D 18 C4 1D 8D 20 39 32 30 |.25)S2.M.... 920| 00001440: 30 3A 97 20 35 39 34 36 37 2C 30 3A 80 00 53 18 |0:. 59467,0:..S.| 00001450: 40 1F 8F 00 7C 18 A4 1F 8F 20 2A 2A 20 53 45 4E |@...|.... ** SEN| 00001460: 44 4F 4E 45 20 43 48 41 52 41 43 54 45 52 20 49 |DONE CHARACTER I| 00001470: 4E 20 56 41 52 49 41 42 4C 45 20 41 00 8A 18 AE |N VARIABLE A....| 00001480: 1F 99 20 C7 28 41 29 3B 3A 8E 00 B7 18 08 20 8F |.. .(A);:..... .| 00001490: 20 2A 2A 53 45 4E 44 20 54 57 4F 20 43 48 41 52 | **SEND TWO CHAR| 000014A0: 41 43 54 45 52 53 20 49 4E 20 56 41 52 49 41 42 |ACTERS IN VARIAB| 000014B0: 4C 45 53 20 41 2C 42 00 C9 18 12 20 99 C7 28 41 |LES A,B.... ..(A| 000014C0: 29 3B C7 28 42 29 3B 3A 8E 00 FB 18 6C 20 8F 20 |);.(B);:....l . | 000014D0: 2A 2A 20 53 45 4E 44 20 54 48 52 45 45 20 43 48 |** SEND THREE CH| 000014E0: 41 52 41 43 54 45 52 53 20 49 4E 20 56 41 52 49 |ARACTERS IN VARI| 000014F0: 41 42 4C 45 53 20 41 2C 42 2C 43 00 0B 19 76 20 |ABLES A,B,C...v | 00001500: 99 C7 28 41 29 3B C7 28 42 29 3B 00 18 19 80 20 |..(A);.(B);.... | 00001510: 99 C7 28 43 29 3B 3A 8E 00 29 19 D0 20 8F 20 2A |..(C);:..).. . *| 00001520: 2A 20 48 4F 4D 45 20 55 50 00 3B 19 DA 20 41 B2 |* HOME UP.;.. A.| 00001530: 31 39 3A 8D 20 38 31 30 30 3A 8E 00 4E 19 98 21 |19:. 8100:..N..!| 00001540: 8F 20 2A 2A 20 48 4F 4D 45 20 44 4F 57 4E 00 72 |. ** HOME DOWN.r| 00001550: 19 A2 21 8D 38 34 30 30 3A 41 B2 31 37 3A 81 20 |..!.8400:A.17:. | 00001560: 4B B2 31 20 A4 20 32 34 3A 8D 38 31 30 30 3A 82 |K.1 . 24:.8100:.| 00001570: 3A 8E 00 88 19 60 22 8F 20 2A 2A 20 43 4C 45 41 |:....`". ** CLEA| 00001580: 52 20 53 43 52 45 45 4E 00 9B 19 6A 22 41 B2 31 |R SCREEN...j"A.1| 00001590: 34 37 3A 8D 20 38 31 30 30 3A 8E 00 B8 19 C4 22 |47:. 8100:....."| 000015A0: 8F 20 2A 2A 20 54 49 4D 45 20 57 41 53 54 45 52 |. ** TIME WASTER| 000015B0: 20 52 4F 55 54 49 4E 45 00 CB 19 CE 22 81 20 4B | ROUTINE....". K| 000015C0: B2 31 A4 32 30 30 30 3A 82 3A 8E 00 D1 19 D8 22 |.1.2000:.:....."| 000015D0: 8F 00 D7 19 28 23 8F 00 F1 19 50 23 52 B2 32 39 |....(#....P#R.29| 000015E0: 3A 4C B2 31 35 37 3A 55 B2 31 34 35 3A 44 B2 31 |:L.157:U.145:D.1| 000015F0: 37 00 1D 1A 5A 23 58 B2 31 36 36 3A 4F 48 B2 37 |7...Z#X.166:OH.7| 00001600: 39 3A 41 53 B2 32 30 39 3A 53 50 B2 33 32 3A 42 |9:AS.209:SP.32:B| 00001610: 4C B2 30 3A 4E B2 30 3A 50 4C B2 34 33 00 23 1A |L.0:N.0:PL.43.#.| 00001620: 64 23 8F 00 29 1A 6E 23 8E 00 4D 1A 8C 23 97 20 |d#..).n#..M..#. | 00001630: 35 39 34 36 37 2C 31 36 3A 97 20 35 39 34 36 34 |59467,16:. 59464| 00001640: 2C 5A 31 3A 97 35 39 34 36 36 2C 31 35 00 5D 1A |,Z1:.59466,15.].| 00001650: 96 23 81 20 5A 32 B2 31 A4 32 35 3A 82 00 6D 1A |.#. Z2.1.25:..m.| 00001660: A0 23 97 20 35 39 34 36 37 2C 30 3A 8E 00 79 1A |.#. 59467,0:..y.| 00001670: F0 23 8F 20 53 43 4F 52 45 00 82 1A F5 23 5A 35 |.#. SCORE....#Z5| 00001680: B2 30 00 90 1A FA 23 97 35 39 34 36 37 2C 31 36 |.0....#.59467,16| 00001690: 00 9F 1A 04 24 97 20 35 39 34 36 36 2C 31 35 00 |....$. 59466,15.| 000016A0: B1 1A 0E 24 81 46 B2 32 30 30 A4 31 30 A9 AB 31 |...$.F.200.10..1| 000016B0: 31 00 BE 1A 18 24 97 35 39 34 36 34 2C 46 00 C5 |1....$.59464,F..| 000016C0: 1A 22 24 82 46 00 D1 1A 27 24 5A 35 B2 5A 35 AA |."$.F...'$Z5.Z5.| 000016D0: 31 00 E4 1A 2C 24 8B 20 5A 35 20 B3 35 20 A7 20 |1...,$. Z5 .5 . | 000016E0: 39 32 31 30 00 F4 1A 36 24 97 20 35 39 34 36 36 |9210...6$. 59466| 000016F0: 2C 30 3A 8E 00 03 1B 54 24 8F 20 4E 4F 20 53 43 |,0:....T$. NO SC| 00001700: 4F 52 45 00 0C 1B 5E 24 5A 35 B2 30 00 1A 1B 68 |ORE...^$Z5.0...h| 00001710: 24 97 35 39 34 36 37 2C 31 36 00 28 1B 72 24 97 |$.59467,16.(.r$.| 00001720: 35 39 34 36 36 2C 31 35 00 38 1B 7C 24 81 20 46 |59466,15.8.|$. F| 00001730: B2 31 37 35 A4 32 35 34 00 46 1B 86 24 97 20 35 |.175.254.F..$. 5| 00001740: 39 34 36 34 2C 46 00 4D 1B 90 24 82 46 00 59 1B |9464,F.M..$.F.Y.| 00001750: 9A 24 5A 35 B2 5A 35 AA 31 00 6B 1B A4 24 8B 20 |.$Z5.Z5.1.k..$. | 00001760: 5A 35 B1 32 20 A7 20 39 33 34 30 00 7C 1B A9 24 |Z5.2 . 9340.|..$| 00001770: 81 20 5A 36 B2 30 A4 35 30 30 3A 82 00 8B 1B AE |. Z6.0.500:.....| 00001780: 24 97 35 39 34 36 37 2C 30 3A 8E 00 A1 1B B8 24 |$.59467,0:.....$| 00001790: 8F 20 33 20 43 55 53 48 49 4F 4E 20 53 43 4F 52 |. 3 CUSHION SCOR| 000017A0: 45 00 B2 1B C2 24 43 B2 35 33 3A 81 20 4B B2 31 |E....$C.53:. K.1| 000017B0: A4 36 00 CD 1B CC 24 97 20 35 39 34 30 39 2C 43 |.6....$. 59409,C| 000017C0: 3A 43 B2 31 31 33 AB 43 3A 54 B2 54 49 00 E2 1B |:C.113.C:T.TI...| 000017D0: D6 24 8B 20 54 49 AB 54 B3 31 30 20 A7 20 39 34 |.$. TI.T.10 . 94| 000017E0: 33 30 00 EA 1B E0 24 82 3A 8E 00 00 00 24 1D |30....$.:....$. |
....... 3 CUSHION BILLIARDS.C.... COPIED
FROM KILOBAUD,JANUARY-1979.U....:COPYRI
GHT 1978 BY PHIL FELDMAN AND TOM RUGG...
... ADAPTED FOR PUG BY BUD TRYON.N....".
":.".....":. " . B I L L I A R
D S ".......211);"NEED INSTRUCTIONS?"..
.#.. I$:. I$."" . 35...(.. I$."N" . 400.
K.2..".":."THE OBJECT OF THE GAME IS TO
DIRECT THE".W.3.."CUE BALL AT AN ANGLE S
O THAT IT HITS"...4.."A COMBINATION OF B
OTH OBJECT BALLS AND".R.5.."THREE CUSHIO
NS. YOU MUST HIT AT LEAST"...6.."ONE CUS
HION BEFORE HITTING .BOTH. BALLS.". .7..
"SCORING IS AS FOLLOWS:".U.8..:.:.:."BOT
H BALLS AND 3 CUSHIONS = 3 PTS."...
9..:."BOTH BALLS AND 2 OR 4 CUSHIONS = 2
PTS."...:..:."BOTH BALLS AND 1 OR 5 CUS
HIONS = 1 PT."...;..:."ANY OTHER COMBINA
TION = 0 PTS."...<.."..........
.........PRESS ANY KEY".&.=.. A$:. A$."
" . 61.<.>.."..............".K.A.."TO AI
M YOUR SHOT, USE THE FOLLOWING AS "...C.
."YOUR ANGLE DIRECTIONS:"...F..:..14);"9
0 DEGREES"...G.." ^".Y
.H.." ....I.."
....J.." ..
>.K.."180 DEGREES <CCCCCCQCCCCCC> 000 DE
GREES".Y.L.." ..T.M.."
....N.."
....O.." V".N.P.
.:." 270 DEGREES".X.U..".."
...Z..:..13);".PRESS ANY KEY"..._.. A$:.
A$."" . 95.1.... 1000:. INITIALIZE REG
VARIABLES.Y.... 9000:. SET USER DEFINED
VARIABLES.R.... 1500:. SET UP GAME.....P
.P.1:. P.NP . P.1:I.I.1...... I.NI . 750
0:. END GAME.L.... 2000:. PROMPT NEXT PL
AYER...... 2500:. FRAW TABLE...... 3000:
. PICK BALL LOCATIONS...&.. 3500:. DRAW
BALLS.E.0.. 4000:. GET SHOT ANGLE FROM P
LAYER.B.:.. 4500:. INITIALIZE SHOT......
5000:. MOVE CURSOR ONE TIME STEP...F..
5500:. CHECK BALL COLLISIONS.S.P.. NB..3
. . 6000:. 500:. SHOT OVER...Z.. 6500:.
CHECK IF CUSHION HIT...... CU..6 . . 60
00:. 500:.SHOT OVER.%.... 700.B.... **IN
ITIALIZE VARIABLES.....RX.0:DX.0:RY.0:DY
.0:TX.0:TY.0:XR.0:YU.0:CU.0:IX.0:IY.0:X1
.0.....Y1.0:X2.0:Y2.0:A.0:B.0:NB.0:I.0:S
1.0:S2.0:P.2:. P$(2):..R.... **SET UP GA
ME...... 8800:. 8400......:.:.:..10);".
3 CUSHION BILLIARDS ":.:..5...."HOW MANY
PLAYERS (1 OR 2)";NP.W...NP..(NP):. NP.
1 . NP.2 . 1520.~.... NP.1 . ."YOUR NAME
";P$(1):. 1560...... "NAME OF PLAYER ONE
";P$(1):."NAME OF PLAYER TWO";P$(2).....
."HOW MANY INNINGS FOR THE GAME";NI...".
.:. "TABLE LENGTH AND TABLE HEIGTH".0.&.
."(35,18 IS MAXIMUM DIFFICULTY)".U.'.."(
26,14 IS MEDIUM DIFFICULTY)"...(.."(18,
10 IS MINIMUM DIFFICULTY)";:.NX,NY...)..
NX.35.NY.18 . 1570.D.*.. NX.18.NY.10. .
"TOO SMALL..":. 1570.Q.,.SR..7586...6..
"A RANDOM NUMBER PLEASE";K:K..(..(K)):XR
.NX.2...@.YU.NY.2:../.P.. ** PROMPT NEXT
PLAYER.R.Z.. 8800:. 8400:."OK ";P$(P):.
:......." CHALK UP YOUR CUE!":. 8
900:. 8800...... 8400:.:..G...."INNING";
I;" OF";NI;" -- NOW SHOOTING: ";P$(P):..
....."SCORE: ";P$(1);"-";S1;:. NP.2 . ."
";P$(2);"-";S2.......#.D.. ** DRAW TAB
LE NX BY NY.R.N.. 8600:A.X:. K.1 . NX:.
8100:.:A.L:B.U:C.X.~.X.. K.1 .NY.1:. 830
0:.:. 8600:A.U:B.X:C.L...... K.1 . NY.1:
. 8300:.:A.X:. K.1 . NX.1:. 8100......:.
.U.... ** PICK BALL LOCATIONS...B.X1..(.
(1).(NX.3)).1:Y1..(.(1).(NY.3)).2.-.L.X2
..(.(1).(NX.3)).1:Y2..(.(1).(NY.3)).2.Z.
V.K..(X1.X2):Q..(Y1.Y2):. K.3 . Q.3 . 30
20.....XB..(.(1).(NX.4)).2:YB..(.(1).(NY
.4)).2.....K.(X1.XB).2.(Y1.YB).2:. K.4 .
3040.T...K.(X2.XB).2.(Y2.YB).2:. K.4 .
3040.Z.......... ** DRAW BALLS.....LX.X1
:LY.Y1:. 7000:A.213:B.201:. 8200.B...A.L
:B.L:C.D:. 8300:A.202:B.203:. 8200.L.J.L
X.X2:LY.Y2:. 7000:A.213:B.201:. 8200...T
.A.L:B.L:C.D:. 8300:A.202:B.203:. 8200..
...LX.XB:LY.YB:.7000:A.AS:. 8100:.... ..
**GET ANGLE AND NORMALIZE IT......8400.
....."SHOT ANGLE (0-360 DEGREES)";G.)...
. G.0.G.360 . .".":. 4013.=...G.G.3.1415
9.180.C...DX..(G):DY..(G):. SR.1 . DX.DX
.SR.Y.... SR.1 . DY.DY.SR...H.. .(DX).0.
5 . .(DY).0.5 . DX.DX.2:DY.DY.2:. 4040..
.R...L....** INITIALIZE SHOT.....LX.XB:L
Y.YB:. 7000:NB.0:CU.0:IX.XB:IY.YB:RX.XB.
.49:RY.YB..49.7.... 8900:A.SP:B.L:Z1.200
:.9100:. 8200:..^.... ** MOVE CURSOR FOR
ONE TIME STEP.....RX.RX.DX:RY.RY.DY:TX.
.(RX):TY..(RY).....A.N:B.N:. TX.IX . A.R
:. 5040...... TX.IX . A.L.R.... TY.IY .
B.U:. 5060...... TY.IY . B.D...D.. 8200:
IX.TX:IY.TY...N.A.AS:B.L:. 8200.%.X.A.SP
:B.L:. 8200:..P.|.. ** CHECK AND PROCESS
BALL COLLISIONS.B.... NB.1 . 5540......
IX.X2 . IX.X2.1 . IY.Y2.1 . IY.Y2 . 554
0.....A.PL:B.L:Z1.75:.9100:. 8200:NB.NB.
2.R.... NB.1 . NB.3 . 5570...... IX.X1 .
IX.X1.1 . IY.Y1.1 . IY.Y1 . 5570.)...A.
PL:B.L:Z1.75:.9100:. 8200:NB.NB.1./.B...
P.P.. ** SHOT OVER -- SHOW SCORE.B.Z.. 8
400:SC.0:....... NB.3 . .".......NO SCOR
E";:.9300:. 6070.....SC.3..(CU.3):. SC.0
. .9300.R....".......THAT SHOT SCORED";
SC...... SC.0. 6038......9200:. SC.3..94
00......P.1.S1.S1.SC.!.... P.2 . S2.S2.S
C.:.... Q.1 . 2:. 8900:.:..X.D.. ** PROC
ESS CUSHION HITS.R.N.. IX.1 . IX.XR . 65
30...X.CU.CU.1:A.BL:Z1.254:.9100:. 8100:
DX..DX...... IY.1 . IY.YU . 6550.....CU.
CU.1:A.BL:Z1.254:.9100:. 8100:DY..DY....
.....X.. ** MOVE CURSOR TO LX,LY.).B.. 8
600:A.R:.K.1 .LX:. 8100:..G.L.A.U:. K.1
. LY:. 8100:.:..B.L.. ** MOPUP -- END GA
ME.K.V.."."...`...9);"THAT'S IT -- GOOD
GAME!"...J.."...":..14);". FINAL SCORE .
".E.T.. NP.2 . . 7600.P.Y.."..."...~...1
4);P$(1);.25)S1...... 9200:. 59467,0:...
...."...".14);P$(1);.25)S1.6...."...".14
);P$(2);.25)S2.M.D.. 9200:. 59467,0:..S.
@...|.... ** SENDONE CHARACTER IN VARIAB
LE A...... G(A);:..... . **SEND TWO CHAR
ACTERS IN VARIABLES A,B.I.. .G(A);G(B);:
....L . ** SEND THREE CHARACTERS IN VARI
ABLES A,B,C...V .G(A);G(B);.... .G(C);:.
.).P . ** HOME UP.;.Z A.19:. 8100:..N..!
. ** HOME DOWN.R..!.8400:A.17:. K.1 . 24
:.8100:.:....`". ** CLEAR SCREEN...J"A.1
47:. 8100:....D". ** TIME WASTER ROUTINE
.K.N". K.1.2000:.:..Q.X"..W.(#....P#R.29
:L.157:U.145:D.17...Z#X.166:OH.79:AS.209
:SP.32:BL.0:N.0:PL.43.#.D#..).N#..M..#.
59467,16:. 59464,Z1:.59466,15.]..#. Z2.1
.25:..M. #. 59467,0:..Y..#. SCORE....#Z5
.0....#.59467,16....$. 59466,15....$.F.2
00.10..11....$.59464,F.E."$.F.Q.'$Z5.Z5.
1...,$. Z5 .5 . 9210...6$. 59466,0:....T
$. NO SCORE...^$Z5.0...H$.59467,16.(.R$.
59466,15.8.|$. F.175.254.F..$. 59464,F.M
..$.F.Y..$Z5.Z5.1.K..$. Z5.2 . 9340.|..$
. Z6.0.500:.....$.59467,0:.....$. 3 CUSH
ION SCORE...B$C.53:. K.1.6.M.L$. 59409,C
:C.113.C:T.TI...V$. TI.T.10 . 9430....$.
:....$.
> CLICK IMAGE PREVIEW FOR FULL MODAL