/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / BOWLING / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 20 42 59 | 20 4a 4f 53 45 50 48 20 |1 REM BY| JOSEPH |
|00000010| 47 41 4e 43 49 0a 32 20 | 52 45 4d 20 43 4f 4d 50 |GANCI.2 |REM COMP|
|00000020| 55 54 21 27 53 20 47 41 | 5a 5a 45 54 54 45 20 44 |UT!'S GA|ZZETTE D|
|00000030| 45 43 45 4d 42 45 52 20 | 31 39 38 33 0a 33 20 52 |ECEMBER |1983.3 R|
|00000040| 45 4d 20 55 50 47 52 41 | 44 45 44 20 42 59 20 4d |EM UPGRA|DED BY M|
|00000050| 49 4b 45 20 46 4c 41 56 | 45 4c 0a 31 30 20 4c 28 |IKE FLAV|EL.10 L(|
|00000060| 31 29 3d 31 31 39 33 3a | 4c 28 32 29 3d 31 32 37 |1)=1193:|L(2)=127|
|00000070| 33 3a 4c 28 33 29 3d 31 | 33 35 33 3a 43 24 28 31 |3:L(3)=1|353:C$(1|
|00000080| 29 3d 22 13 11 11 11 11 | 11 11 11 11 11 11 11 1d |)=".....|........|
|00000090| 1d 1d 1d 1d 1d 1d 1d 22 | 0a 31 31 20 43 24 28 32 |......."|.11 C$(2|
|000000a0| 29 3d 43 24 28 31 29 2b | 22 1d 1d 1d 1d 1d 1d 1d |)=C$(1)+|".......|
|000000b0| 1d 1d 1d 1d 1d 1d 22 3a | 43 24 28 33 29 3d 43 24 |......":|C$(3)=C$|
|000000c0| 28 32 29 2b 22 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 1d |(2)+"...|........|
|000000d0| 1d 1d 22 3a 43 24 3d 43 | 24 28 31 29 0a 31 32 20 |..":C$=C|$(1).12 |
|000000e0| 42 4f 3d 35 33 32 38 30 | 3a 53 43 3d 35 33 32 38 |BO=53280|:SC=5328|
|000000f0| 31 3a 43 4f 3d 35 34 32 | 37 32 3a 53 43 28 31 29 |1:CO=542|72:SC(1)|
|00000100| 3d 31 35 3a 53 43 28 32 | 29 3d 30 3a 53 43 28 33 |=15:SC(2|)=0:SC(3|
|00000110| 29 3d 37 3a 42 4f 28 31 | 29 3d 31 33 3a 42 4f 28 |)=7:BO(1|)=13:BO(|
|00000120| 32 29 3d 32 0a 31 35 20 | 42 4f 28 33 29 3d 39 0a |2)=2.15 |BO(3)=9.|
|00000130| 31 37 20 46 4f 52 54 3d | 43 4f 54 4f 43 4f 2b 32 |17 FORT=|COTOCO+2|
|00000140| 34 3a 50 4f 4b 45 54 2c | 30 3a 4e 45 58 54 3a 50 |4:POKET,|0:NEXT:P|
|00000150| 4f 4b 45 43 4f 2b 32 34 | 2c 31 35 3a 50 4f 4b 45 |OKECO+24|,15:POKE|
|00000160| 43 4f 2b 35 2c 31 37 3a | 50 4f 4b 45 43 4f 2b 36 |CO+5,17:|POKECO+6|
|00000170| 2c 32 34 31 3a 50 4f 4b | 45 43 4f 2c 33 30 0a 31 |,241:POK|ECO,30.1|
|00000180| 38 20 50 4f 4b 45 43 4f | 2b 31 2c 31 30 0a 31 31 |8 POKECO|+1,10.11|
|00000190| 30 20 50 4f 4b 45 42 4f | 2c 36 3a 50 4f 4b 45 53 |0 POKEBO|,6:POKES|
|000001a0| 43 2c 37 3a 50 52 49 4e | 54 22 93 90 22 43 24 22 |C,7:PRIN|T".."C$"|
|000001b0| 91 91 91 91 91 1d 1d 1d | 1d 1d 1d 1d 1d 42 4f 57 |........|.....BOW|
|000001c0| 4c 49 4e 47 21 22 0a 31 | 31 32 20 50 52 49 4e 54 |LING!".1|12 PRINT|
|000001d0| 22 11 11 11 11 11 1d 1d | 1d 1d 1d 1d 1d 1d 1d 48 |".......|.......H|
|000001e0| 4f 57 20 4d 41 4e 59 20 | 50 4c 41 59 45 52 53 20 |OW MANY |PLAYERS |
|000001f0| 28 31 2d 33 29 22 0a 31 | 31 33 20 47 45 54 41 24 |(1-3)".1|13 GETA$|
|00000200| 3a 41 3d 56 41 4c 28 41 | 24 29 3a 49 46 41 3c 31 |:A=VAL(A|$):IFA<1|
|00000210| 4f 52 41 3e 33 54 48 45 | 4e 31 31 33 0a 31 31 35 |ORA>3THE|N113.115|
|00000220| 20 58 24 3d 22 4e 41 4d | 45 53 22 3a 49 46 41 3d | X$="NAM|ES":IFA=|
|00000230| 31 54 48 45 4e 58 24 3d | 22 4e 41 4d 45 22 0a 31 |1THENX$=|"NAME".1|
|00000240| 31 38 20 50 52 49 4e 54 | 22 93 11 11 11 1d 1d 1d |18 PRINT|".......|
|00000250| 1d 54 59 50 45 20 49 4e | 20 59 4f 55 52 20 22 3b |.TYPE IN| YOUR ";|
|00000260| 58 24 0a 31 32 30 20 46 | 4f 52 58 3d 31 54 4f 41 |X$.120 F|ORX=1TOA|
|00000270| 0a 31 32 31 20 50 52 49 | 4e 54 22 11 1d 1d 1d 1d |.121 PRI|NT".....|
|00000280| 1d 50 4c 41 59 45 52 22 | 58 22 3a 22 3b 0a 31 32 |.PLAYER"|X":";.12|
|00000290| 32 20 49 4e 50 55 54 41 | 24 28 58 29 0a 31 32 33 |2 INPUTA|$(X).123|
|000002a0| 20 41 24 28 58 29 3d 4c | 45 46 54 24 28 41 24 28 | A$(X)=L|EFT$(A$(|
|000002b0| 58 29 2c 36 29 3a 4e 45 | 58 54 0a 31 32 38 20 50 |X),6):NE|XT.128 P|
|000002c0| 52 49 4e 54 22 93 11 1d | 1d 1d 1d 1d 1d 1d 1d 12 |RINT"...|........|
|000002d0| 90 31 20 32 20 33 20 34 | 20 35 20 36 20 37 20 38 |.1 2 3 4| 5 6 7 8|
|000002e0| 20 39 20 31 30 20 20 92 | 1c 22 3a 50 52 49 4e 54 | 9 10  .|.":PRINT|
|000002f0| 22 1d 1d 1d 1d 1d 1d 1d | 1d 1d 22 3b 0a 31 32 39 |".......|..";.129|
|00000300| 20 46 4f 52 58 3d 31 54 | 4f 31 30 3a 50 52 49 4e | FORX=1T|O10:PRIN|
|00000310| 54 22 12 31 92 32 22 3b | 3a 4e 45 58 54 3a 50 52 |T".1.2";|:NEXT:PR|
|00000320| 49 4e 54 22 12 33 92 22 | 0a 31 33 32 20 50 52 49 |INT".3."|.132 PRI|
|00000330| 4e 54 54 41 42 28 38 29 | 22 90 c4 c4 c4 c4 c4 c4 |NTTAB(8)|".......|
|00000340| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000350| 22 3a 50 52 49 4e 54 54 | 41 42 28 38 29 22 11 c4 |":PRINTT|AB(8)"..|
|00000360| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000370| c4 c4 c4 c4 c4 22 0a 31 | 33 33 20 4f 4e 2d 28 41 |.....".1|33 ON-(A|
|00000380| 3d 31 29 47 4f 54 4f 31 | 33 38 0a 31 33 34 20 50 |=1)GOTO1|38.134 P|
|00000390| 52 49 4e 54 54 41 42 28 | 37 29 22 20 11 c4 c4 c4 |RINTTAB(|7)" ....|
|000003a0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000003b0| c4 c4 c4 22 3a 4f 4e 2d | 28 41 3d 32 29 47 4f 54 |...":ON-|(A=2)GOT|
|000003c0| 4f 31 33 38 0a 31 33 36 | 20 50 52 49 4e 54 54 41 |O138.136| PRINTTA|
|000003d0| 42 28 37 29 22 20 11 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |B(7)" ..|........|
|000003e0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 22 0a 31 |........|.....".1|
|000003f0| 33 38 20 50 52 49 4e 54 | 4c 45 46 54 24 28 43 24 |38 PRINT|LEFT$(C$|
|00000400| 2c 31 32 29 2b 22 20 22 | 2b 41 24 28 31 29 22 3a |,12)+" "|+A$(1)":|
|00000410| 22 0a 31 34 36 20 49 46 | 41 3e 31 54 48 45 4e 50 |".146 IF|A>1THENP|
|00000420| 52 49 4e 54 54 41 42 28 | 31 34 29 2b 22 91 22 2b |RINTTAB(|14)+"."+|
|00000430| 41 24 28 32 29 22 3a 22 | 0a 31 35 30 20 49 46 41 |A$(2)":"|.150 IFA|
|00000440| 3e 32 54 48 45 4e 50 52 | 49 4e 54 54 41 42 28 32 |>2THENPR|INTTAB(2|
|00000450| 37 29 2b 22 91 22 2b 41 | 24 28 33 29 22 3a 22 0a |7)+"."+A|$(3)":".|
|00000460| 31 35 34 20 50 52 49 4e | 54 4c 45 46 54 24 28 43 |154 PRIN|TLEFT$(C|
|00000470| 24 2c 31 32 29 22 11 11 | 90 c6 c6 c6 c6 c6 c6 c6 |$,12)"..|........|
|00000480| c6 c6 c6 c6 c6 c6 c6 c6 | c6 c6 c6 c6 c6 c6 c6 c6 |........|........|
|00000490| c6 c6 c6 c6 c6 c6 c6 c6 | c6 c6 c6 c6 c6 c6 c6 c6 |........|........|
|000004a0| 22 0a 31 35 36 20 50 52 | 49 4e 54 22 11 11 11 11 |".156 PR|INT"....|
|000004b0| 11 11 11 11 11 c5 c5 c5 | c5 c5 c5 c5 c5 c5 c5 c5 |........|........|
|000004c0| c5 c5 c5 c5 c5 c5 c5 c5 | c5 c5 c5 c5 c5 c5 c5 c5 |........|........|
|000004d0| c5 c5 c5 c5 c5 c5 c5 c5 | c5 c5 c5 c5 22 0a 31 36 |........|....".16|
|000004e0| 30 20 46 4f 52 51 3d 31 | 54 4f 31 30 0a 31 36 36 |0 FORQ=1|TO10.166|
|000004f0| 20 46 4f 52 5a 39 3d 31 | 54 4f 41 3a 50 4f 4b 45 | FORZ9=1|TOA:POKE|
|00000500| 53 43 2c 53 43 28 5a 39 | 29 2b 38 3a 50 4f 4b 45 |SC,SC(Z9|)+8:POKE|
|00000510| 42 4f 2c 42 4f 28 5a 39 | 29 2b 38 0a 31 36 37 20 |BO,BO(Z9|)+8.167 |
|00000520| 46 4f 52 58 3d 31 54 4f | 31 30 3a 52 45 41 44 56 |FORX=1TO|10:READV|
|00000530| 3a 50 4f 4b 45 56 2c 38 | 31 3a 50 4f 4b 45 56 2b |:POKEV,8|1:POKEV+|
|00000540| 43 4f 2c 09 0a 31 36 39 | 20 4a 3d 30 3a 47 3d 30 |CO,..169| J=0:G=0|
|00000550| 0a 31 37 30 20 47 4f 53 | 55 42 34 33 30 3a 47 4f |.170 GOS|UB430:GO|
|00000560| 53 55 42 35 35 30 3a 50 | 3d 4c 28 5a 39 29 3a 47 |SUB550:P|=L(Z9):G|
|00000570| 4f 53 55 42 31 30 30 30 | 3a 4c 28 5a 39 29 3d 50 |OSUB1000|:L(Z9)=P|
|00000580| 0a 31 37 32 20 47 4f 53 | 55 42 31 32 30 30 0a 31 |.172 GOS|UB1200.1|
|00000590| 37 34 20 4f 4e 2d 28 4c | 28 5a 39 29 2f 32 3d 49 |74 ON-(L|(Z9)/2=I|
|000005a0| 4e 54 28 4c 28 5a 39 29 | 2f 32 29 29 47 4f 54 4f |NT(L(Z9)|/2))GOTO|
|000005b0| 31 36 39 0a 31 37 35 20 | 49 46 28 50 45 45 4b 28 |169.175 |IF(PEEK(|
|000005c0| 4c 28 5a 39 29 2d 31 29 | 3d 34 37 41 4e 44 51 3d |L(Z9)-1)|=47ANDQ=|
|000005d0| 31 30 29 3d 30 54 48 45 | 4e 31 39 35 0a 31 37 38 |10)=0THE|N195.178|
|000005e0| 20 50 52 49 4e 54 4c 45 | 46 54 24 28 43 24 2c 31 | PRINTLE|FT$(C$,1|
|000005f0| 32 29 2b 22 11 11 11 11 | 11 11 11 22 2b 41 24 28 |2)+"....|..."+A$(|
|00000600| 5a 39 29 2b 22 2c 20 54 | 48 52 4f 57 20 4f 4e 45 |Z9)+", T|HROW ONE|
|00000610| 20 4d 4f 52 45 21 22 0a | 31 38 30 20 46 4f 52 58 | MORE!".|180 FORX|
|00000620| 3d 31 54 4f 33 30 30 30 | 3a 4e 45 58 54 0a 31 38 |=1TO3000|:NEXT.18|
|00000630| 32 20 50 52 49 4e 54 4c | 45 46 54 24 28 43 24 2c |2 PRINTL|EFT$(C$,|
|00000640| 31 32 29 2b 22 11 11 11 | 11 11 11 11 22 2b 22 20 |12)+"...|...."+" |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000660| 20 20 20 20 20 20 22 0a | 31 38 33 20 52 45 4d 20 |      ".|183 REM |
|00000670| 20 50 52 49 4e 54 22 20 | 20 20 20 20 20 20 20 20 | PRINT" |        |
|00000680| 20 20 20 20 22 0a 31 38 | 34 20 46 4f 52 58 3d 31 |    ".18|4 FORX=1|
|00000690| 54 4f 31 30 3a 52 45 41 | 44 56 3a 50 4f 4b 45 56 |TO10:REA|DV:POKEV|
|000006a0| 2c 38 31 3a 50 4f 4b 45 | 56 2b 43 4f 2c 36 3a 4e |,81:POKE|V+CO,6:N|
|000006b0| 45 58 54 3a 52 45 53 54 | 4f 52 45 0a 31 39 30 20 |EXT:REST|ORE.190 |
|000006c0| 4a 3d 30 3a 47 4f 53 55 | 42 34 33 30 3a 47 4f 53 |J=0:GOSU|B430:GOS|
|000006d0| 55 42 35 35 30 3a 54 28 | 5a 39 29 3d 54 28 5a 39 |UB550:T(|Z9)=T(Z9|
|000006e0| 29 2b 4a 3a 50 52 49 4e | 54 43 24 28 5a 39 29 3b |)+J:PRIN|TC$(Z9);|
|000006f0| 54 28 5a 39 29 0a 31 39 | 32 20 4b 3d 4a 2b 34 38 |T(Z9).19|2 K=J+48|
|00000700| 3a 49 46 4a 2b 50 45 45 | 4b 28 4c 28 5a 39 29 2d |:IFJ+PEE|K(L(Z9)-|
|00000710| 31 29 2d 32 32 34 3d 31 | 30 54 48 45 4e 4b 3d 34 |1)-224=1|0THENK=4|
|00000720| 37 0a 31 39 33 20 49 46 | 4b 3d 35 38 54 48 45 4e |7.193 IF|K=58THEN|
|00000730| 4b 3d 31 35 32 0a 31 39 | 34 20 50 4f 4b 45 4c 28 |K=152.19|4 POKEL(|
|00000740| 5a 39 29 2c 4b 3a 50 4f | 4b 45 4c 28 5a 39 29 2b |Z9),K:PO|KEL(Z9)+|
|00000750| 43 4f 2c 34 3a 47 4f 54 | 4f 32 32 35 0a 31 39 35 |CO,4:GOT|O225.195|
|00000760| 20 55 3d 30 3a 49 46 28 | 50 45 45 4b 28 4c 28 5a | U=0:IF(|PEEK(L(Z|
|00000770| 39 29 2d 32 29 3d 31 35 | 32 41 4e 44 51 3d 31 30 |9)-2)=15|2ANDQ=10|
|00000780| 29 3d 30 54 48 45 4e 32 | 32 35 0a 31 39 38 20 50 |)=0THEN2|25.198 P|
|00000790| 52 49 4e 54 4c 45 46 54 | 24 28 43 24 2c 31 32 29 |RINTLEFT|$(C$,12)|
|000007a0| 2b 22 11 11 11 11 11 11 | 11 22 2b 41 24 28 5a 39 |+"......|."+A$(Z9|
|000007b0| 29 2b 22 2c 20 54 48 52 | 4f 57 20 54 09 00 20 4d |)+", THR|OW T.. M|
|000007c0| 4f 52 45 21 22 0a 32 30 | 32 20 46 4f 52 58 3d 31 |ORE!".20|2 FORX=1|
|000007d0| 54 4f 33 30 30 30 3a 4e | 45 58 54 0a 32 30 33 20 |TO3000:N|EXT.203 |
|000007e0| 50 52 49 4e 54 4c 45 46 | 54 24 28 43 24 2c 31 32 |PRINTLEF|T$(C$,12|
|000007f0| 29 2b 22 11 11 11 11 11 | 11 11 22 2b 22 20 20 20 |)+".....|.."+"   |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000810| 20 20 20 22 0a 32 30 36 | 20 4c 28 5a 39 29 3d 4c |   ".206| L(Z9)=L|
|00000820| 28 5a 39 29 2d 31 0a 32 | 30 37 20 46 4f 52 58 3d |(Z9)-1.2|07 FORX=|
|00000830| 31 54 4f 31 30 3a 52 45 | 41 44 56 3a 50 4f 4b 45 |1TO10:RE|ADV:POKE|
|00000840| 56 2c 38 31 3a 50 4f 4b | 45 56 2b 43 4f 2c 36 3a |V,81:POK|EV+CO,6:|
|00000850| 4e 45 58 54 3a 52 45 53 | 54 4f 52 45 0a 32 30 39 |NEXT:RES|TORE.209|
|00000860| 20 4a 3d 30 3a 47 4f 53 | 55 42 34 33 30 3a 47 4f | J=0:GOS|UB430:GO|
|00000870| 53 55 42 35 35 30 3a 54 | 28 5a 39 29 3d 54 28 5a |SUB550:T|(Z9)=T(Z|
|00000880| 39 29 2b 4a 3a 50 52 49 | 4e 54 43 24 28 5a 39 29 |9)+J:PRI|NTC$(Z9)|
|00000890| 3b 54 28 5a 39 29 0a 32 | 31 30 20 4b 3d 4a 2b 31 |;T(Z9).2|10 K=J+1|
|000008a0| 37 36 3a 49 46 4b 3d 31 | 38 36 54 48 45 4e 4b 3d |76:IFK=1|86THENK=|
|000008b0| 31 35 32 0a 32 31 31 20 | 50 4f 4b 45 4c 28 5a 39 |152.211 |POKEL(Z9|
|000008c0| 29 2c 4b 3a 50 4f 4b 45 | 4c 28 5a 39 29 2b 43 4f |),K:POKE|L(Z9)+CO|
|000008d0| 2c 34 3a 4c 28 5a 39 29 | 3d 4c 28 5a 39 29 2b 31 |,4:L(Z9)|=L(Z9)+1|
|000008e0| 0a 32 31 33 20 49 46 50 | 45 45 4b 28 4c 28 5a 39 |.213 IFP|EEK(L(Z9|
|000008f0| 29 29 3d 31 35 32 54 48 | 45 4e 46 4f 52 58 3d 31 |))=152TH|ENFORX=1|
|00000900| 54 4f 31 30 3a 52 45 41 | 44 56 3a 50 4f 4b 45 56 |TO10:REA|DV:POKEV|
|00000910| 2c 38 31 3a 50 4f 4b 45 | 56 2b 43 4f 2c 36 3a 4e |,81:POKE|V+CO,6:N|
|00000920| 45 58 54 3a 52 45 53 54 | 4f 52 45 0a 32 31 34 20 |EXT:REST|ORE.214 |
|00000930| 55 3d 55 2b 31 3a 4f 4e | 55 47 4f 54 4f 32 30 39 |U=U+1:ON|UGOTO209|
|00000940| 2c 32 32 35 0a 32 32 35 | 20 4e 45 58 54 5a 39 3a |,225.225| NEXTZ9:|
|00000950| 4e 45 58 54 51 0a 32 33 | 30 20 47 4f 54 4f 38 38 |NEXTQ.23|0 GOTO88|
|00000960| 32 0a 34 33 30 20 4e 3d | 31 38 32 37 3a 49 3d 34 |2.430 N=|1827:I=4|
|00000970| 30 0a 34 34 30 20 50 4f | 4b 45 4e 2c 33 32 3a 4e |0.440 PO|KEN,32:N|
|00000980| 3d 4e 2b 49 3a 49 46 4e | 3c 31 36 32 34 4f 52 4e |=N+I:IFN|<1624ORN|
|00000990| 3e 31 38 36 38 54 48 45 | 4e 49 3d 2d 49 0a 34 36 |>1868THE|NI=-I.46|
|000009a0| 30 20 50 4f 4b 45 4e 2b | 43 4f 2c 2d 28 50 45 45 |0 POKEN+|CO,-(PEE|
|000009b0| 4b 28 53 43 29 3d 32 34 | 39 29 3a 50 4f 4b 45 4e |K(SC)=24|9):POKEN|
|000009c0| 2c 38 31 3a 47 45 54 41 | 24 3a 4f 4e 2d 28 41 24 |,81:GETA|$:ON-(A$|
|000009d0| 3d 22 22 29 47 4f 54 4f | 34 34 30 3a 52 45 54 55 |="")GOTO|440:RETU|
|000009e0| 52 4e 0a 35 35 30 20 4e | 3d 4e 2b 31 3a 47 45 54 |RN.550 N|=N+1:GET|
|000009f0| 41 24 0a 35 35 34 20 49 | 46 50 45 45 4b 28 4e 29 |A$.554 I|FPEEK(N)|
|00000a00| 3c 3e 38 31 54 48 45 4e | 35 39 35 0a 35 35 38 20 |<>81THEN|595.558 |
|00000a10| 51 32 3d 4e 3a 47 4f 53 | 55 42 36 31 30 0a 35 36 |Q2=N:GOS|UB610.56|
|00000a20| 30 20 50 4f 4b 45 43 4f | 2b 34 2c 31 37 3a 50 4f |0 POKECO|+4,17:PO|
|00000a30| 4b 45 4e 2d 31 2c 33 32 | 3a 50 4f 4b 45 4e 2b 43 |KEN-1,32|:POKEN+C|
|00000a40| 4f 2c 2d 28 50 45 45 4b | 28 53 43 29 3d 32 34 30 |O,-(PEEK|(SC)=240|
|00000a50| 29 3a 50 4f 4b 45 09 0a | 35 36 32 20 46 4f 52 57 |):POKE..|562 FORW|
|00000a60| 3d 31 54 4f 33 0a 35 36 | 36 20 49 46 50 45 45 4b |=1TO3.56|6 IFPEEK|
|00000a70| 28 4e 2d 33 39 2a 57 29 | 3d 38 31 54 48 45 4e 51 |(N-39*W)|=81THENQ|
|00000a80| 32 3d 4e 2d 33 39 2a 57 | 3a 47 4f 53 55 42 36 31 |2=N-39*W|:GOSUB61|
|00000a90| 30 0a 35 36 39 20 49 46 | 50 45 45 4b 28 4e 2b 34 |0.569 IF|PEEK(N+4|
|00000aa0| 31 2a 57 29 3d 38 31 54 | 48 45 4e 51 32 3d 4e 2b |1*W)=81T|HENQ2=N+|
|00000ab0| 34 31 2a 57 3a 47 4f 53 | 55 42 36 31 30 0a 35 37 |41*W:GOS|UB610.57|
|00000ac0| 32 20 4e 45 58 54 0a 35 | 39 35 20 50 4f 4b 45 43 |2 NEXT.5|95 POKEC|
|00000ad0| 4f 2b 34 2c 31 37 3a 48 | 3d 48 2b 31 3a 50 4f 4b |O+4,17:H|=H+1:POK|
|00000ae0| 45 4e 2d 31 2c 33 32 3a | 50 4f 4b 45 4e 2b 43 4f |EN-1,32:|POKEN+CO|
|00000af0| 2c 2d 28 50 45 45 4b 28 | 53 43 29 3d 32 34 30 29 |,-(PEEK(|SC)=240)|
|00000b00| 3a 50 4f 4b 45 4e 2c 38 | 31 3a 50 4f 4b 45 43 4f |:POKEN,8|1:POKECO|
|00000b10| 2b 34 2c 31 36 0a 35 39 | 37 20 49 46 48 3d 33 36 |+4,16.59|7 IFH=36|
|00000b20| 54 48 45 4e 36 31 32 0a | 36 30 30 20 47 4f 54 4f |THEN612.|600 GOTO|
|00000b30| 35 35 30 0a 36 31 30 20 | 4a 3d 4a 2b 31 3a 50 4f |550.610 |J=J+1:PO|
|00000b40| 4b 45 43 4f 2b 34 2c 33 | 33 3a 50 4f 4b 45 51 32 |KECO+4,3|3:POKEQ2|
|00000b50| 2c 33 32 3a 46 4f 52 54 | 3d 31 54 4f 35 30 3a 4e |,32:FORT|=1TO50:N|
|00000b60| 45 58 54 3a 50 4f 4b 45 | 43 4f 2b 34 2c 33 32 3a |EXT:POKE|CO+4,32:|
|00000b70| 52 45 54 55 52 4e 0a 36 | 31 32 20 48 3d 30 3a 50 |RETURN.6|12 H=0:P|
|00000b80| 4f 4b 45 4e 2c 33 32 3a | 50 4f 4b 45 4e 2d 31 2c |OKEN,32:|POKEN-1,|
|00000b90| 33 32 3a 52 45 54 55 52 | 4e 0a 38 38 32 20 50 52 |32:RETUR|N.882 PR|
|00000ba0| 49 4e 54 43 24 3b 22 11 | 11 11 98 46 49 4e 41 4c |INTC$;".|...FINAL|
|00000bb0| 20 53 43 4f 52 45 53 11 | 90 22 0a 38 38 33 20 50 | SCORES.|.".883 P|
|00000bc0| 52 49 4e 54 22 1d 1d 1d | 1d 1d 1d 1d 1d 1d 22 41 |RINT"...|......"A|
|00000bd0| 24 28 31 29 3b 54 28 31 | 29 3a 49 46 41 3c 31 54 |$(1);T(1|):IFA<1T|
|00000be0| 48 45 4e 50 52 49 4e 54 | 22 11 1d 1d 1d 1d 1d 1d |HENPRINT|".......|
|00000bf0| 1d 1d 1d 22 41 24 28 32 | 29 3b 54 28 32 29 0a 38 |..."A$(2|);T(2).8|
|00000c00| 38 34 20 49 46 41 3d 33 | 54 48 45 4e 50 52 49 4e |84 IFA=3|THENPRIN|
|00000c10| 54 22 11 1d 1d 1d 1d 1d | 1d 1d 1d 1d 22 3b 41 24 |T"......|....";A$|
|00000c20| 28 33 29 3b 54 28 33 29 | 0a 38 38 37 20 50 52 49 |(3);T(3)|.887 PRI|
|00000c30| 4e 54 22 11 1d 1d 1d 1d | 1d 1d 1d 41 47 41 49 4e |NT".....|...AGAIN|
|00000c40| 20 28 59 2f 4e 29 3f 22 | 0a 38 39 34 20 47 45 54 | (Y/N)?"|.894 GET|
|00000c50| 41 24 3a 49 46 41 24 3d | 22 22 54 48 45 4e 20 20 |A$:IFA$=|""THEN  |
|00000c60| 20 20 20 38 39 34 0a 38 | 39 35 20 49 46 41 24 3d |   894.8|95 IFA$=|
|00000c70| 22 59 22 54 48 45 4e 52 | 55 4e 0a 38 39 36 20 53 |"Y"THENR|UN.896 S|
|00000c80| 59 53 32 30 34 38 0a 31 | 30 30 30 20 47 3d 4a 3a |YS2048.1|000 G=J:|
|00000c90| 49 46 50 2f 32 3c 3e 49 | 4e 54 28 50 2f 32 29 54 |IFP/2<>I|NT(P/2)T|
|00000ca0| 48 45 4e 47 3d 47 2b 31 | 37 36 0a 31 30 30 32 20 |HENG=G+1|76.1002 |
|00000cb0| 49 46 47 3d 31 38 36 54 | 48 45 4e 47 3d 31 35 32 |IFG=186T|HENG=152|
|00000cc0| 0a 31 30 30 34 20 49 46 | 50 2f 32 3d 49 4e 54 28 |.1004 IF|P/2=INT(|
|00000cd0| 50 2f 32 29 54 48 45 4e | 47 3d 47 09 0a 31 30 30 |P/2)THEN|G=G..100|
|00000ce0| 36 20 49 46 47 2b 50 45 | 45 4b 28 50 2d 31 29 2d |6 IFG+PE|EK(P-1)-|
|00000cf0| 32 32 34 3d 31 30 54 48 | 45 4e 47 3d 34 37 0a 31 |224=10TH|ENG=47.1|
|00000d00| 30 31 32 20 50 4f 4b 45 | 50 2c 47 3a 50 4f 4b 45 |012 POKE|P,G:POKE|
|00000d10| 50 2b 43 4f 2c 31 32 3a | 49 46 47 3d 31 35 32 54 |P+CO,12:|IFG=152T|
|00000d20| 48 45 4e 50 3d 50 2b 31 | 3a 47 3d 30 0a 31 31 30 |HENP=P+1|:G=0.110|
|00000d30| 30 20 50 3d 50 2b 31 3a | 52 45 54 55 52 4e 0a 31 |0 P=P+1:|RETURN.1|
|00000d40| 32 30 30 20 52 45 4d 20 | 2a 2a 53 43 4f 52 49 4e |200 REM |**SCORIN|
|00000d50| 47 2a 2a 0a 31 32 30 31 | 20 54 28 5a 39 29 3d 54 |G**.1201| T(Z9)=T|
|00000d60| 28 5a 39 29 2b 4a 0a 31 | 32 30 35 20 54 28 5a 39 |(Z9)+J.1|205 T(Z9|
|00000d70| 29 3d 54 28 5a 39 29 2d | 4a 2a 28 50 45 45 4b 28 |)=T(Z9)-|J*(PEEK(|
|00000d80| 4c 28 5a 39 29 2d 32 29 | 3d 34 37 29 0a 31 32 31 |L(Z9)-2)|=47).121|
|00000d90| 30 20 54 28 5a 39 29 3d | 54 28 5a 39 29 2d 31 30 |0 T(Z9)=|T(Z9)-10|
|00000da0| 2a 28 50 45 45 4b 28 4c | 28 5a 39 29 2d 33 29 3d |*(PEEK(L|(Z9)-3)=|
|00000db0| 34 37 41 4e 44 50 45 45 | 4b 28 4c 28 5a 39 29 2d |47ANDPEE|K(L(Z9)-|
|00000dc0| 32 29 3d 31 35 32 29 0a | 31 32 32 30 20 49 46 4c |2)=152).|1220 IFL|
|00000dd0| 28 5a 39 29 3d 31 32 37 | 32 4f 52 4c 28 5a 39 29 |(Z9)=127|2ORL(Z9)|
|00000de0| 3d 31 33 35 32 4f 52 4c | 28 5a 39 29 3d 31 34 33 |=1352ORL|(Z9)=143|
|00000df0| 32 54 48 45 4e 31 32 39 | 30 0a 31 32 32 35 20 54 |2THEN129|0.1225 T|
|00000e00| 28 5a 39 29 3d 54 28 5a | 39 29 2d 4a 2a 28 50 45 |(Z9)=T(Z|9)-J*(PE|
|00000e10| 45 4b 28 4c 28 5a 39 29 | 2d 34 29 3d 31 35 32 29 |EK(L(Z9)|-4)=152)|
|00000e20| 0a 31 32 32 37 20 54 28 | 5a 39 29 3d 54 28 5a 39 |.1227 T(|Z9)=T(Z9|
|00000e30| 29 2d 4a 2a 28 50 45 45 | 4b 28 4c 28 5a 39 29 2d |)-J*(PEE|K(L(Z9)-|
|00000e40| 33 29 3d 31 35 32 29 0a | 31 32 32 38 20 54 28 5a |3)=152).|1228 T(Z|
|00000e50| 39 29 3d 54 28 5a 39 29 | 2d 4a 2a 28 28 50 45 45 |9)=T(Z9)|-J*((PEE|
|00000e60| 4b 28 4c 28 5a 39 29 2d | 35 29 3d 31 35 32 41 4e |K(L(Z9)-|5)=152AN|
|00000e70| 44 50 45 45 4b 28 4c 28 | 5a 39 29 2d 33 29 3d 31 |DPEEK(L(|Z9)-3)=1|
|00000e80| 35 32 29 29 0a 31 32 33 | 30 20 54 28 5a 39 29 3d |52)).123|0 T(Z9)=|
|00000e90| 54 28 5a 39 29 2d 4a 2a | 28 50 45 45 4b 28 4c 28 |T(Z9)-J*|(PEEK(L(|
|00000ea0| 5a 39 29 2d 36 29 3d 31 | 35 32 41 4e 44 50 45 45 |Z9)-6)=1|52ANDPEE|
|00000eb0| 4b 28 4c 28 5a 39 29 2d | 34 29 3d 31 35 32 41 4e |K(L(Z9)-|4)=152AN|
|00000ec0| 44 50 45 45 4b 28 4c 28 | 5a 39 29 2d 32 29 3d 31 |DPEEK(L(|Z9)-2)=1|
|00000ed0| 35 32 29 0a 31 32 39 30 | 20 50 52 49 4e 54 43 24 |52).1290| PRINTC$|
|00000ee0| 28 5a 39 29 3b 54 28 5a | 39 29 0a 31 33 30 30 20 |(Z9);T(Z|9).1300 |
|00000ef0| 52 45 54 55 52 4e 0a 32 | 32 30 30 20 44 41 54 41 |RETURN.2|200 DATA|
|00000f00| 31 36 36 31 2c 31 37 30 | 30 2c 31 37 33 39 2c 31 |1661,170|0,1739,1|
|00000f10| 37 34 31 2c 31 37 37 38 | 2c 31 37 38 30 2c 31 38 |741,1778|,1780,18|
|00000f20| 31 39 2c 31 38 32 31 2c | 31 38 36 30 2c 31 39 30 |19,1821,|1860,190|
|00000f30| 31 0a                   |                         |1.      |        |
+--------+-------------------------+-------------------------+--------+--------+