/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / rotate.prg / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 50 52 49 4e 54 22 | 93 1c 8e 11 11 11 20 20 |5 PRINT"|......  |
|00000010| 20 20 20 cf b7 cd 20 20 | ce b7 cd 20 20 b7 d0 cf |   ...  |...  ...|
|00000020| b7 20 20 ce b7 cd 20 20 | b7 d0 cf b7 20 a7 b7 b7 |.  ...  |.... ...|
|00000030| b7 00 0a 36 20 50 52 49 | 4e 54 22 20 20 20 20 20 |...6 PRI|NT"     |
|00000040| cc af ce 20 20 a5 20 a7 | 20 20 20 a7 a5 20 20 a7 |...  . .|   ..  .|
|00000050| d2 d2 d2 a5 20 20 a7 a5 | 20 20 a7 c3 c3 00 0a 37 |....  ..|  .....7|
|00000060| 20 50 52 49 4e 54 22 20 | 20 20 20 20 a5 20 cd 20 | PRINT" |    . . |
|00000070| 20 cd af ce 20 20 20 a7 | a5 20 20 a7 20 20 20 a5 | ...   .|.  .   .|
|00000080| 20 a0 a7 a5 20 20 a7 af | af af 00 0a 31 30 20 50 | ...  ..|....10 P|
|00000090| 4f 4b 45 35 33 32 38 30 | 2c 31 35 3a 50 4f 4b 45 |OKE53280|,15:POKE|
|000000a0| 35 33 32 38 31 2c 31 35 | 0a 31 32 20 50 52 49 4e |53281,15|.12 PRIN|
|000000b0| 54 2c 22 11 11 11 11 1f | 43 4f 4d 4d 4f 44 4f 52 |T,".....|COMMODOR|
|000000c0| 45 20 36 34 20 56 45 52 | 53 49 4f 4e 00 0a 31 33 |E 64 VER|SION..13|
|000000d0| 20 50 52 49 4e 54 2c 22 | 11 20 20 20 20 20 20 20 | PRINT,"|.       |
|000000e0| 20 42 59 00 0a 31 34 20 | 50 52 49 4e 54 2c 22 11 | BY..14 |PRINT,".|
|000000f0| 1c 20 20 20 53 54 45 56 | 45 4e 20 44 41 52 4e 4f |.   STEV|EN DARNO|
|00000100| 4c 44 00 0a 31 35 20 50 | 52 49 4e 54 2c 22 11 20 |LD..15 P|RINT,". |
|00000110| 20 20 50 2e 4f 2e 20 42 | 4f 58 20 32 30 31 00 0a |  P.O. B|OX 201..|
|00000120| 31 36 20 50 52 49 4e 54 | 2c 22 11 20 20 20 41 4c |16 PRINT|,".   AL|
|00000130| 45 58 41 4e 44 52 41 00 | 0a 31 37 20 50 52 49 4e |EXANDRA.|.17 PRIN|
|00000140| 54 2c 22 11 20 20 20 4e | 45 57 20 5a 45 41 4c 41 |T,".   N|EW ZEALA|
|00000150| 4e 44 00 0a 32 30 20 44 | 49 4d 42 24 28 32 30 29 |ND..20 D|IMB$(20)|
|00000160| 3a 57 24 3d 22 22 3a 42 | 24 3d 22 dd 12 20 20 20 |:W$="":B|$="..   |
|00000170| 20 20 92 dd 12 20 20 20 | 20 20 92 dd 12 20 20 20 |  ...   |  ...   |
|00000180| 20 20 92 dd 12 20 20 20 | 20 20 92 dd 22 0a 33 30 |  ...   |  ..".30|
|00000190| 20 50 52 49 4e 54 22 05 | 11 11 11 50 52 45 53 53 | PRINT".|...PRESS|
|000001a0| 20 1f 49 05 20 46 4f 52 | 20 49 4e 53 54 52 55 43 | .I. FOR| INSTRUC|
|000001b0| 54 49 4f 4e 53 20 4f 52 | 20 1f 53 05 20 54 4f 20 |TIONS OR| .S. TO |
|000001c0| 53 54 41 52 54 22 3b 0a | 33 35 20 47 45 54 41 24 |START";.|35 GETA$|
|000001d0| 3a 49 46 41 24 3d 22 53 | 22 54 48 45 4e 36 35 30 |:IFA$="S|"THEN650|
|000001e0| 0a 34 30 20 49 46 20 41 | 24 3c 3e 22 49 22 20 41 |.40 IF A|$<>"I" A|
|000001f0| 4e 44 20 41 24 3c 3e 22 | 53 22 20 54 48 45 4e 20 |ND A$<>"|S" THEN |
|00000200| 33 35 0a 35 30 20 46 4f | 52 49 3d 30 54 4f 31 37 |35.50 FO|RI=0TO17|
|00000210| 3a 42 24 28 49 29 3d 43 | 48 52 24 28 49 2b 36 35 |:B$(I)=C|HR$(I+65|
|00000220| 29 3a 4e 45 58 54 0a 36 | 30 20 50 52 49 4e 54 22 |):NEXT.6|0 PRINT"|
|00000230| 1c 93 11 11 42 4f 41 52 | 44 20 50 4f 53 49 54 49 |....BOAR|D POSITI|
|00000240| 4f 4e 53 20 41 52 45 20 | 4f 43 43 55 50 49 45 44 |ONS ARE |OCCUPIED|
|00000250| 20 41 54 20 52 41 4e 44 | 4f 4d 20 20 42 59 20 54 | AT RAND|OM  BY T|
|00000260| 48 45 20 4c 45 54 54 45 | 52 53 20 41 20 54 4f 20 |HE LETTE|RS A TO |
|00000270| 50 2e 00 0a 37 30 20 50 | 52 49 4e 54 22 1f 11 54 |P...70 P|RINT"..T|
|00000280| 48 45 20 4f 42 4a 45 43 | 54 20 4f 46 20 54 48 45 |HE OBJEC|T OF THE|
|00000290| 20 47 41 4d 45 20 49 53 | 20 54 4f 20 4f 52 44 45 | GAME IS| TO ORDE|
|000002a0| 52 20 54 48 45 22 0a 38 | 30 20 50 52 49 4e 54 22 |R THE".8|0 PRINT"|
|000002b0| 4c 45 54 54 45 52 53 20 | 42 59 20 4d 4f 56 49 4e |LETTERS |BY MOVIN|
|000002c0| 47 20 41 4e 59 20 46 4f | 55 52 20 4f 46 20 54 48 |G ANY FO|UR OF TH|
|000002d0| 45 4d 20 2d 00 0a 39 30 | 20 50 52 49 4e 54 22 4f |EM -..90| PRINT"O|
|000002e0| 4e 45 20 50 4f 53 49 54 | 49 4f 4e 20 41 54 20 41 |NE POSIT|ION AT A|
|000002f0| 20 54 49 4d 45 20 2d 20 | 49 4e 20 41 20 43 4c 4f | TIME - |IN A CLO|
|00000300| 43 4b 57 49 53 45 22 0a | 31 30 30 20 50 52 49 4e |CKWISE".|100 PRIN|
|00000310| 54 22 44 49 52 45 43 54 | 49 4f 4e 2e 20 20 41 4c |T"DIRECT|ION.  AL|
|00000320| 4c 20 46 4f 55 52 20 20 | 4c 45 54 54 45 52 53 20 |L FOUR  |LETTERS |
|00000330| 57 49 4c 4c 20 4d 4f 56 | 45 2e 22 0a 31 31 30 20 |WILL MOV|E.".110 |
|00000340| 50 52 49 4e 54 22 1c 59 | 4f 55 20 53 50 45 43 49 |PRINT".Y|OU SPECI|
|00000350| 46 59 20 54 48 45 20 55 | 50 50 45 52 20 4c 45 46 |FY THE U|PPER LEF|
|00000360| 54 20 50 4f 53 49 54 49 | 4f 4e 20 4f 46 22 0a 31 |T POSITI|ON OF".1|
|00000370| 32 30 20 50 52 49 4e 54 | 22 54 48 45 20 46 4f 55 |20 PRINT|"THE FOU|
|00000380| 52 20 4c 45 54 54 45 52 | 53 20 59 4f 55 20 57 49 |R LETTER|S YOU WI|
|00000390| 53 48 20 54 4f 20 52 4f | 54 41 54 45 2e 11 22 0a |SH TO RO|TATE..".|
|000003a0| 31 33 30 20 50 52 49 4e | 54 22 12 98 20 20 20 20 |130 PRIN|T"..    |
|000003b0| 20 92 20 20 20 12 20 20 | 20 20 20 92 20 20 05 54 | .   .  |   .  .T|
|000003c0| 48 49 53 20 53 48 4f 57 | 53 20 54 48 45 20 44 49 |HIS SHOW|S THE DI|
|000003d0| 52 45 43 54 49 4f 4e 9d | 9d 9d 9d 00 0a 31 34 30 |RECTION.|.....140|
|000003e0| 20 50 52 49 4e 54 22 98 | 12 20 20 41 20 20 92 05 | PRINT".|.  A  ..|
|000003f0| af af cd 98 12 20 20 42 | 20 20 92 05 20 20 4f 46 |.....  B|  ..  OF|
|00000400| 20 52 4f 54 41 54 49 4f | 4e 2e 00 0a 31 35 30 20 | ROTATIO|N...150 |
|00000410| 50 52 49 4e 54 22 98 12 | 20 20 20 20 20 92 05 b7 |PRINT"..|     ...|
|00000420| b7 ce 98 12 20 20 20 20 | 20 92 00 0a 31 36 30 20 |....    | ...160 |
|00000430| 50 52 49 4e 54 22 05 20 | ce cd 20 20 20 20 20 20 |PRINT". |..      |
|00000440| a7 a5 00 0a 31 37 30 20 | 50 52 49 4e 54 22 20 a7 |....170 |PRINT" .|
|00000450| a5 20 20 20 20 20 20 cd | ce 00 0a 31 38 30 20 50 |.      .|...180 P|
|00000460| 52 49 4e 54 22 98 12 20 | 20 20 20 20 92 20 20 20 |RINT".. |    .   |
|00000470| 12 20 20 20 20 20 92 20 | 20 05 59 4f 55 20 50 52 |.     . | .YOU PR|
|00000480| 45 53 53 20 1c 41 05 20 | 54 4f 20 52 4f 54 41 54 |ESS .A. |TO ROTAT|
|00000490| 45 00 0a 31 39 30 20 50 | 52 49 4e 54 22 98 12 20 |E..190 P|RINT".. |
|000004a0| 20 44 20 20 92 05 ce af | af 98 12 20 20 43 20 20 | D  ....|...  C  |
|000004b0| 92 20 20 05 54 48 45 53 | 45 20 46 4f 55 52 20 53 |.  .THES|E FOUR S|
|000004c0| 51 55 41 52 45 53 2e 00 | 0a 32 30 30 20 50 52 49 |QUARES..|.200 PRI|
|000004d0| 4e 54 22 98 12 20 20 20 | 20 20 92 05 cd b7 b7 98 |NT"..   |  ......|
|000004e0| 12 20 20 20 20 20 92 1f | 00 0a 32 31 30 20 47 4f |.     ..|..210 GO|
|000004f0| 53 55 42 31 30 35 30 0a | 32 33 30 20 42 24 28 31 |SUB1050.|230 B$(1|
|00000500| 29 3d 22 43 22 3a 42 24 | 28 32 29 3d 22 47 22 3a |)="C":B$|(2)="G":|
|00000510| 42 24 28 35 29 3d 22 42 | 22 3a 42 24 28 36 29 3d |B$(5)="B|":B$(6)=|
|00000520| 22 46 22 0a 32 34 30 20 | 50 52 49 4e 54 22 93 1c |"F".240 |PRINT"..|
|00000530| 22 3a 47 4f 53 55 42 35 | 34 30 3a 54 3d 32 36 0a |":GOSUB5|40:T=26.|
|00000540| 32 35 30 20 50 52 49 4e | 54 22 13 11 11 00 0a 32 |250 PRIN|T".....2|
|00000550| 36 30 20 50 52 49 4e 54 | 54 41 42 28 54 29 3b 22 |60 PRINT|TAB(T);"|
|00000560| 1f 49 46 20 54 48 45 20 | 42 4f 41 52 44 22 3a 50 |.IF THE |BOARD":P|
|00000570| 52 49 4e 54 54 41 42 28 | 54 29 3b 22 49 53 20 4c |RINTTAB(|T);"IS L|
|00000580| 49 4b 45 20 54 48 49 53 | 00 0a 32 37 30 20 50 52 |IKE THIS|..270 PR|
|00000590| 49 4e 54 54 41 42 28 54 | 29 3b 22 41 54 20 54 48 |INTTAB(T|);"AT TH|
|000005a0| 45 20 53 54 41 52 54 05 | 00 0a 32 38 30 20 47 4f |E START.|..280 GO|
|000005b0| 53 55 42 31 30 35 30 0a | 32 39 30 20 50 52 49 4e |SUB1050.|290 PRIN|
|000005c0| 54 22 1f 13 11 11 11 11 | 11 11 11 11 11 22 3b 54 |T"......|.....";T|
|000005d0| 41 42 28 54 29 3b 22 41 | 4e 44 20 49 46 20 59 4f |AB(T);"A|ND IF YO|
|000005e0| 55 00 0a 33 30 30 20 50 | 52 49 4e 54 54 41 42 28 |U..300 P|RINTTAB(|
|000005f0| 54 29 3b 22 52 4f 54 41 | 54 45 20 41 54 22 3a 50 |T);"ROTA|TE AT":P|
|00000600| 52 49 4e 54 54 41 42 28 | 54 29 3b 22 50 4f 53 49 |RINTTAB(|T);"POSI|
|00000610| 54 49 4f 4e 20 43 2c 00 | 0a 33 31 30 20 50 52 49 |TION C,.|.310 PRI|
|00000620| 4e 54 54 41 42 28 54 29 | 3b 22 54 48 45 20 42 4f |NTTAB(T)|;"THE BO|
|00000630| 41 52 44 22 3a 50 52 49 | 4e 54 54 41 42 28 54 29 |ARD":PRI|NTTAB(T)|
|00000640| 3b 22 57 49 4c 4c 20 43 | 48 41 4e 47 45 2e 05 00 |;"WILL C|HANGE...|
|00000650| 0a 33 32 30 20 42 24 28 | 31 29 3d 22 42 22 3a 42 |.320 B$(|1)="B":B|
|00000660| 24 28 32 29 3d 22 43 22 | 3a 42 24 28 35 29 3d 22 |$(2)="C"|:B$(5)="|
|00000670| 46 22 3a 42 24 28 36 29 | 3d 22 47 22 3a 41 3d 54 |F":B$(6)|="G":A=T|
|00000680| 49 0a 33 33 30 20 47 4f | 53 55 42 31 30 35 30 3a |I.330 GO|SUB1050:|
|00000690| 50 52 49 4e 54 22 1c 22 | 3b 0a 33 34 30 20 47 4f |PRINT"."|;.340 GO|
|000006a0| 53 55 42 35 34 30 0a 33 | 35 30 20 50 52 49 4e 54 |SUB540.3|50 PRINT|
|000006b0| 22 1f 11 20 20 20 20 20 | 20 41 4e 44 20 59 4f 55 |"..     | AND YOU|
|000006c0| 20 57 49 4e 21 05 00 0a | 33 36 30 20 47 4f 53 55 | WIN!...|360 GOSU|
|000006d0| 42 31 30 35 30 0a 33 38 | 30 20 50 52 49 4e 54 22 |B1050.38|0 PRINT"|
|000006e0| 93 1f 59 4f 55 20 41 4c | 53 4f 20 47 45 54 20 4f |..YOU AL|SO GET O|
|000006f0| 4e 45 20 53 50 45 43 49 | 41 4c 20 4d 4f 56 45 20 |NE SPECI|AL MOVE |
|00000700| 50 45 52 20 47 41 4d 45 | 2e 00 0a 34 30 30 20 50 |PER GAME|...400 P|
|00000710| 52 49 4e 54 22 11 54 48 | 49 53 20 4d 4f 56 45 20 |RINT".TH|IS MOVE |
|00000720| 41 4c 4c 4f 57 53 20 59 | 4f 55 20 54 4f 20 45 58 |ALLOWS Y|OU TO EX|
|00000730| 43 48 41 4e 47 45 20 41 | 4e 59 20 54 57 4f 00 0a |CHANGE A|NY TWO..|
|00000740| 34 31 30 20 50 52 49 4e | 54 22 41 44 4a 41 43 45 |410 PRIN|T"ADJACE|
|00000750| 4e 54 20 4c 45 54 54 45 | 52 53 20 49 4e 20 41 20 |NT LETTE|RS IN A |
|00000760| 52 4f 57 20 4f 52 20 43 | 4f 4c 55 4d 4e 2e 00 0a |ROW OR C|OLUMN...|
|00000770| 34 32 30 20 50 52 49 4e | 54 22 05 11 11 54 4f 20 |420 PRIN|T"...TO |
|00000780| 4d 41 4b 45 20 54 48 49 | 53 20 4d 4f 56 45 2c 20 |MAKE THI|S MOVE, |
|00000790| 54 59 50 45 20 1f 52 05 | 20 41 53 20 59 4f 55 52 |TYPE .R.| AS YOUR|
|000007a0| 20 4d 4f 56 45 2e 00 0a | 34 34 30 20 50 52 49 4e | MOVE...|440 PRIN|
|000007b0| 54 22 11 11 1f 54 48 45 | 4e 20 59 4f 55 20 57 49 |T"...THE|N YOU WI|
|000007c0| 4c 4c 20 42 45 20 41 53 | 4b 45 44 20 57 48 49 43 |LL BE AS|KED WHIC|
|000007d0| 48 20 54 57 4f 20 4c 45 | 54 54 45 52 53 11 59 4f |H TWO LE|TTERS.YO|
|000007e0| 55 20 57 49 53 48 20 54 | 4f 20 45 58 43 48 41 4e |U WISH T|O EXCHAN|
|000007f0| 47 45 2e 00 0a 34 37 30 | 20 50 52 49 4e 54 22 11 |GE...470| PRINT".|
|00000800| 11 11 05 59 4f 55 20 43 | 41 4e 20 47 49 56 45 20 |...YOU C|AN GIVE |
|00000810| 55 50 20 41 54 20 41 4e | 59 20 54 49 4d 45 20 42 |UP AT AN|Y TIME B|
|00000820| 59 00 0a 34 38 30 20 50 | 52 49 4e 54 22 11 45 4e |Y..480 P|RINT".EN|
|00000830| 54 45 52 49 4e 47 20 1f | 51 05 20 41 53 20 59 4f |TERING .|Q. AS YO|
|00000840| 55 52 20 4d 4f 56 45 2e | 1c 00 0a 35 30 30 20 47 |UR MOVE.|...500 G|
|00000850| 4f 53 55 42 31 30 35 30 | 3a 50 52 49 4e 54 22 93 |OSUB1050|:PRINT".|
|00000860| 00 0a 35 32 30 20 49 46 | 41 24 3d 22 51 22 54 48 |..520 IF|A$="Q"TH|
|00000870| 45 4e 39 38 30 0a 35 33 | 30 20 47 4f 54 4f 36 35 |EN980.53|0 GOTO65|
|00000880| 30 0a 35 34 30 20 50 52 | 49 4e 54 22 13 1c 22 3b |0.540 PR|INT"..";|
|00000890| 0a 35 35 30 20 50 52 49 | 4e 54 57 24 22 b0 c0 c0 |.550 PRI|NTW$"...|
|000008a0| c0 c0 c0 b2 c0 c0 c0 c0 | c0 b2 c0 c0 c0 c0 c0 b2 |........|........|
|000008b0| c0 c0 c0 c0 c0 ae 00 0a | 35 36 30 20 46 4f 52 49 |........|560 FORI|
|000008c0| 3d 30 54 4f 38 53 54 45 | 50 34 3a 50 52 49 4e 54 |=0TO8STE|P4:PRINT|
|000008d0| 57 24 3b 42 24 0a 35 37 | 30 20 50 52 49 4e 54 57 |W$;B$.57|0 PRINTW|
|000008e0| 24 22 dd 12 20 20 22 42 | 24 28 49 29 22 20 20 92 |$"..  "B|$(I)"  .|
|000008f0| dd 12 20 20 22 42 24 28 | 49 2b 31 29 22 20 20 92 |..  "B$(|I+1)"  .|
|00000900| dd 12 20 20 22 42 24 28 | 49 2b 32 29 22 20 20 92 |..  "B$(|I+2)"  .|
|00000910| dd 12 20 20 22 42 24 28 | 49 2b 33 29 22 20 20 92 |..  "B$(|I+3)"  .|
|00000920| dd 22 0a 35 38 30 20 50 | 52 49 4e 54 57 24 3b 42 |.".580 P|RINTW$;B|
|00000930| 24 0a 35 39 30 20 50 52 | 49 4e 54 57 24 22 ab c0 |$.590 PR|INTW$"..|
|00000940| c0 c0 c0 c0 db c0 c0 c0 | c0 c0 db c0 c0 c0 c0 c0 |........|........|
|00000950| db c0 c0 c0 c0 c0 b3 00 | 0a 36 30 30 20 4e 45 58 |........|.600 NEX|
|00000960| 54 3a 50 52 49 4e 54 57 | 24 3b 42 24 0a 36 31 30 |T:PRINTW|$;B$.610|
|00000970| 20 50 52 49 4e 54 57 24 | 22 dd 12 20 20 22 42 24 | PRINTW$|"..  "B$|
|00000980| 28 31 32 29 22 20 20 92 | dd 12 20 20 22 42 24 28 |(12)"  .|..  "B$(|
|00000990| 31 33 29 22 20 20 92 dd | 12 20 20 22 42 24 28 31 |13)"  ..|.  "B$(1|
|000009a0| 34 29 22 20 20 92 dd 12 | 20 20 22 42 24 28 31 35 |4)"  ...|  "B$(15|
|000009b0| 29 22 20 20 92 dd 22 0a | 36 32 30 20 50 52 49 4e |)"  ..".|620 PRIN|
|000009c0| 54 57 24 3b 42 24 0a 36 | 33 30 20 50 52 49 4e 54 |TW$;B$.6|30 PRINT|
|000009d0| 57 24 22 ad c0 c0 c0 c0 | c0 b1 c0 c0 c0 c0 c0 b1 |W$".....|........|
|000009e0| c0 c0 c0 c0 c0 b1 c0 c0 | c0 c0 c0 bd 00 0a 36 34 |........|......64|
|000009f0| 30 20 52 45 54 55 52 4e | 0a 36 35 30 20 50 52 49 |0 RETURN|.650 PRI|
|00000a00| 4e 54 22 93 22 3a 46 4f | 52 49 3d 31 54 4f 33 39 |NT".":FO|RI=1TO39|
|00000a10| 3a 45 52 24 3d 45 52 24 | 2b 22 20 22 3a 4e 45 58 |:ER$=ER$|+" ":NEX|
|00000a20| 54 0a 36 36 30 20 46 4f | 52 49 3d 31 54 4f 33 39 |T.660 FO|RI=1TO39|
|00000a30| 3a 45 52 24 3d 45 52 24 | 2b 22 9d 22 3a 4e 45 58 |:ER$=ER$|+".":NEX|
|00000a40| 54 0a 36 37 30 20 44 4e | 24 3d 22 13 11 11 11 11 |T.670 DN|$=".....|
|00000a50| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000a60| 22 0a 36 38 30 20 57 24 | 3d 22 1d 1d 1d 1d 1d 1d |".680 W$|="......|
|00000a70| 1d 22 0a 36 39 30 20 42 | 24 3d 22 dd 12 20 20 20 |.".690 B|$="..   |
|00000a80| 20 20 92 dd 12 20 20 20 | 20 20 92 dd 12 20 20 20 |  ...   |  ...   |
|00000a90| 20 20 92 dd 12 20 20 20 | 20 20 92 dd 22 0a 37 30 |  ...   |  ..".70|
|00000aa0| 30 20 46 4f 52 49 3d 30 | 54 4f 31 37 3a 42 24 28 |0 FORI=0|TO17:B$(|
|00000ab0| 49 29 3d 43 48 52 24 28 | 36 35 2b 49 29 3a 4e 45 |I)=CHR$(|65+I):NE|
|00000ac0| 58 54 0a 37 31 30 20 46 | 4f 52 49 3d 30 54 4f 31 |XT.710 F|ORI=0TO1|
|00000ad0| 35 3a 54 3d 49 4e 54 28 | 31 36 2a 52 4e 44 28 31 |5:T=INT(|16*RND(1|
|00000ae0| 29 29 0a 37 32 30 20 54 | 24 3d 42 24 28 49 29 3a |)).720 T|$=B$(I):|
|00000af0| 42 24 28 49 29 3d 42 24 | 28 54 29 3a 42 24 28 54 |B$(I)=B$|(T):B$(T|
|00000b00| 29 3d 54 24 3a 4e 45 58 | 54 49 0a 37 33 30 20 4d |)=T$:NEX|TI.730 M|
|00000b10| 3d 30 3a 53 3d 30 3a 50 | 52 49 4e 54 22 93 22 3a |=0:S=0:P|RINT".":|
|00000b20| 52 24 3d 42 24 28 31 29 | 3a 42 24 28 31 29 3d 42 |R$=B$(1)|:B$(1)=B|
|00000b30| 24 28 32 29 3a 42 24 28 | 32 29 3d 52 24 3a 47 4f |$(2):B$(|2)=R$:GO|
|00000b40| 54 4f 38 32 30 0a 37 34 | 30 20 47 4f 53 55 42 38 |TO820.74|0 GOSUB8|
|00000b50| 33 30 3a 49 46 47 3d 30 | 54 48 45 4e 38 36 30 0a |30:IFG=0|THEN860.|
|00000b60| 37 35 30 20 50 52 49 4e | 54 44 4e 24 3b 45 52 24 |750 PRIN|TDN$;ER$|
|00000b70| 22 1f 4c 45 54 54 45 52 | 20 54 4f 20 52 4f 54 41 |".LETTER| TO ROTA|
|00000b80| 54 45 3f 20 1c 22 3b 0a | 37 36 30 20 47 4f 53 55 |TE? .";.|760 GOSU|
|00000b90| 42 31 30 31 30 3a 50 52 | 49 4e 54 22 1f 22 3b 3a |B1010:PR|INT".";:|
|00000ba0| 49 46 49 3d 31 36 54 48 | 45 4e 38 35 30 0a 37 37 |IFI=16TH|EN850.77|
|00000bb0| 30 20 49 46 49 3d 31 37 | 54 48 45 4e 31 31 32 30 |0 IFI=17|THEN1120|
|00000bc0| 0a 37 38 30 20 49 46 28 | 49 3d 33 29 4f 52 28 49 |.780 IF(|I=3)OR(I|
|00000bd0| 3d 37 29 4f 52 28 28 31 | 30 3c 49 29 41 4e 44 28 |=7)OR((1|0<I)AND(|
|00000be0| 49 3c 31 36 29 29 54 48 | 45 4e 31 30 39 30 0a 37 |I<16))TH|EN1090.7|
|00000bf0| 39 30 20 49 46 49 3d 31 | 38 54 48 45 4e 31 31 32 |90 IFI=1|8THEN112|
|00000c00| 30 0a 38 30 30 20 4d 3d | 4d 2b 31 3a 54 24 3d 42 |0.800 M=|M+1:T$=B|
|00000c10| 24 28 49 29 0a 38 31 30 | 20 42 24 28 49 29 3d 42 |$(I).810| B$(I)=B|
|00000c20| 24 28 49 2b 34 29 3a 42 | 24 28 49 2b 34 29 3d 42 |$(I+4):B|$(I+4)=B|
|00000c30| 24 28 49 2b 35 29 3a 42 | 24 28 49 2b 35 29 3d 42 |$(I+5):B|$(I+5)=B|
|00000c40| 24 28 49 2b 31 29 3a 42 | 24 28 49 2b 31 29 3d 54 |$(I+1):B|$(I+1)=T|
|00000c50| 24 0a 38 32 30 20 50 52 | 49 4e 54 22 13 11 11 11 |$.820 PR|INT"....|
|00000c60| 11 22 3a 47 4f 53 55 42 | 35 34 30 3a 47 4f 53 55 |.":GOSUB|540:GOSU|
|00000c70| 42 38 33 30 3a 47 4f 54 | 4f 37 34 30 0a 38 33 30 |B830:GOT|O740.830|
|00000c80| 20 47 3d 30 3a 46 4f 52 | 49 3d 30 54 4f 31 35 3a | G=0:FOR|I=0TO15:|
|00000c90| 49 46 43 48 52 24 28 49 | 2b 36 35 29 3c 3e 42 24 |IFCHR$(I|+65)<>B$|
|00000ca0| 28 49 29 54 48 45 4e 47 | 3d 31 0a 38 34 30 20 4e |(I)THENG|=1.840 N|
|00000cb0| 45 58 54 3a 52 45 54 55 | 52 4e 0a 38 35 30 20 50 |EXT:RETU|RN.850 P|
|00000cc0| 52 49 4e 54 22 91 91 1f | 59 4f 55 20 4d 41 44 45 |RINT"...|YOU MADE|
|00000cd0| 20 20 9d 9d 22 3b 4d 3b | 22 9d 20 4d 4f 56 45 53 |  ..";M;|". MOVES|
|00000ce0| 20 42 45 46 4f 52 45 20 | 47 49 56 49 4e 47 20 55 | BEFORE |GIVING U|
|00000cf0| 50 2e 22 3a 47 4f 54 4f | 38 38 30 0a 38 36 30 20 |P.":GOTO|880.860 |
|00000d00| 50 52 49 4e 54 22 11 11 | 11 1f 59 4f 55 20 4f 52 |PRINT"..|..YOU OR|
|00000d10| 44 45 52 45 44 20 54 48 | 45 20 42 4f 41 52 44 20 |DERED TH|E BOARD |
|00000d20| 49 4e 20 20 9d 9d 22 3b | 4d 3b 22 9d 20 4d 4f 56 |IN  ..";|M;". MOV|
|00000d30| 45 53 2e 22 3b 0a 38 38 | 30 20 50 52 49 4e 54 22 |ES.";.88|0 PRINT"|
|00000d40| 05 22 3a 45 4e 44 0a 31 | 30 30 30 20 50 52 49 4e |.":END.1|000 PRIN|
|00000d50| 54 44 4e 24 3b 45 52 24 | 22 42 41 44 20 4d 4f 56 |TDN$;ER$|"BAD MOV|
|00000d60| 45 2c 20 54 52 59 20 41 | 47 41 49 4e 2e 20 22 3b |E, TRY A|GAIN. ";|
|00000d70| 0a 31 30 31 30 20 47 4f | 53 55 42 31 33 34 30 0a |.1010 GO|SUB1340.|
|00000d80| 31 30 32 30 20 46 4f 52 | 49 3d 30 54 4f 31 37 3a |1020 FOR|I=0TO17:|
|00000d90| 49 46 42 24 28 49 29 3d | 41 24 54 48 45 4e 50 52 |IFB$(I)=|A$THENPR|
|00000da0| 49 4e 54 22 20 9d 22 41 | 24 3a 50 52 49 4e 54 45 |INT" ."A|$:PRINTE|
|00000db0| 52 24 3a 47 4f 54 4f 31 | 30 34 30 0a 31 30 33 30 |R$:GOTO1|040.1030|
|00000dc0| 20 4e 45 58 54 3a 47 4f | 54 4f 31 30 30 30 0a 31 | NEXT:GO|TO1000.1|
|00000dd0| 30 34 30 20 52 45 54 55 | 52 4e 0a 31 30 35 30 20 |040 RETU|RN.1050 |
|00000de0| 50 52 49 4e 54 22 13 11 | 11 11 11 11 11 11 11 11 |PRINT"..|........|
|00000df0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 20 20 |........|......  |
|00000e00| 20 20 20 50 52 45 53 53 | a7 12 53 48 49 46 54 92 |   PRESS|..SHIFT.|
|00000e10| 91 9d 9d 9d 9d 9d a4 a4 | a4 a4 a4 11 a5 54 4f 20 |........|.....TO |
|00000e20| 43 4f 4e 54 49 4e 55 45 | 2e 22 3b 0a 31 30 36 30 |CONTINUE|.";.1060|
|00000e30| 20 57 41 49 54 36 35 33 | 2c 31 2c 31 3a 57 41 49 | WAIT653|,1,1:WAI|
|00000e40| 54 36 35 33 2c 31 0a 31 | 30 38 30 20 52 45 54 55 |T653,1.1|080 RETU|
|00000e50| 52 4e 0a 31 30 39 30 20 | 50 52 49 4e 54 44 4e 24 |RN.1090 |PRINTDN$|
|00000e60| 3b 45 52 24 22 49 4c 4c | 45 47 41 4c 20 4d 4f 56 |;ER$"ILL|EGAL MOV|
|00000e70| 45 20 2d 20 54 52 59 20 | 41 47 41 49 4e 21 22 3a |E - TRY |AGAIN!":|
|00000e80| 54 3d 54 49 2b 36 30 0a | 31 31 30 30 20 49 46 54 |T=TI+60.|1100 IFT|
|00000e90| 49 3c 54 54 48 45 4e 31 | 31 30 30 0a 31 31 31 30 |I<TTHEN1|100.1110|
|00000ea0| 20 47 4f 54 4f 37 34 30 | 0a 31 31 32 30 20 49 46 | GOTO740|.1120 IF|
|00000eb0| 52 3d 31 54 48 45 4e 31 | 33 33 30 0a 31 31 33 30 |R=1THEN1|330.1130|
|00000ec0| 20 52 3d 31 3a 4c 3d 30 | 3a 50 52 49 4e 54 22 91 | R=1:L=0|:PRINT".|
|00000ed0| 91 45 58 43 48 41 4e 47 | 45 20 57 48 49 43 48 20 |.EXCHANG|E WHICH |
|00000ee0| 54 57 4f 20 4c 45 54 54 | 45 52 53 3f 20 22 3b 3a |TWO LETT|ERS? ";:|
|00000ef0| 47 4f 53 55 42 31 33 37 | 30 0a 31 31 34 30 20 46 |GOSUB137|0.1140 F|
|00000f00| 4f 52 4a 3d 30 54 4f 31 | 37 3a 49 46 42 24 28 4a |ORJ=0TO1|7:IFB$(J|
|00000f10| 29 3c 3e 58 24 54 48 45 | 4e 31 32 37 30 0a 31 31 |)<>X$THE|N1270.11|
|00000f20| 35 30 20 49 46 42 24 28 | 4a 2b 31 29 3d 59 24 54 |50 IFB$(|J+1)=Y$T|
|00000f30| 48 45 4e 4c 3d 32 0a 31 | 31 36 30 20 49 46 4a 3e |HENL=2.1|160 IFJ>|
|00000f40| 30 54 48 45 4e 49 46 42 | 24 28 4a 2d 31 29 3d 59 |0THENIFB|$(J-1)=Y|
|00000f50| 24 54 48 45 4e 4c 3d 35 | 0a 31 31 37 30 20 49 46 |$THENL=5|.1170 IF|
|00000f60| 42 24 28 4a 2b 34 29 3d | 59 24 54 48 45 4e 4c 3d |B$(J+4)=|Y$THENL=|
|00000f70| 34 0a 31 31 38 30 20 49 | 46 4a 3e 33 54 48 45 4e |4.1180 I|FJ>3THEN|
|00000f80| 49 46 42 24 28 4a 2d 34 | 29 3d 59 24 54 48 45 4e |IFB$(J-4|)=Y$THEN|
|00000f90| 4c 3d 36 0a 31 31 39 30 | 20 49 46 4c 3d 32 54 48 |L=6.1190| IFL=2TH|
|00000fa0| 45 4e 31 32 34 30 0a 31 | 32 30 30 20 49 46 4c 3d |EN1240.1|200 IFL=|
|00000fb0| 36 54 48 45 4e 31 32 35 | 30 0a 31 32 31 30 20 49 |6THEN125|0.1210 I|
|00000fc0| 46 4c 3d 35 54 48 45 4e | 31 32 36 30 0a 31 32 32 |FL=5THEN|1260.122|
|00000fd0| 30 20 49 46 4c 3c 3e 34 | 54 48 45 4e 31 32 39 30 |0 IFL<>4|THEN1290|
|00000fe0| 0a 31 32 33 30 20 54 24 | 3d 42 24 28 4a 29 3a 42 |.1230 T$|=B$(J):B|
|00000ff0| 24 28 4a 29 3d 42 24 28 | 4a 2b 34 29 3a 42 24 28 |$(J)=B$(|J+4):B$(|
|00001000| 4a 2b 34 29 3d 54 24 3a | 47 4f 54 4f 31 32 38 30 |J+4)=T$:|GOTO1280|
|00001010| 0a 31 32 34 30 20 54 24 | 3d 42 24 28 4a 29 3a 42 |.1240 T$|=B$(J):B|
|00001020| 24 28 4a 29 3d 42 24 28 | 4a 2b 31 29 3a 42 24 28 |$(J)=B$(|J+1):B$(|
|00001030| 4a 2b 31 29 3d 54 24 3a | 47 4f 54 4f 31 32 38 30 |J+1)=T$:|GOTO1280|
|00001040| 0a 31 32 35 30 20 54 24 | 3d 42 24 28 4a 29 3a 42 |.1250 T$|=B$(J):B|
|00001050| 24 28 4a 29 3d 42 24 28 | 4a 2d 34 29 3a 42 24 28 |$(J)=B$(|J-4):B$(|
|00001060| 4a 2d 34 29 3d 54 24 3a | 47 4f 54 4f 31 32 38 30 |J-4)=T$:|GOTO1280|
|00001070| 0a 31 32 36 30 20 54 24 | 3d 42 24 28 4a 29 3a 42 |.1260 T$|=B$(J):B|
|00001080| 24 28 4a 29 3d 42 24 28 | 4a 2d 31 29 3a 42 24 28 |$(J)=B$(|J-1):B$(|
|00001090| 4a 2d 31 29 3d 54 24 3a | 47 4f 54 4f 31 32 38 30 |J-1)=T$:|GOTO1280|
|000010a0| 0a 31 32 37 30 20 4e 45 | 58 54 0a 31 32 38 30 20 |.1270 NE|XT.1280 |
|000010b0| 4d 3d 4d 2b 31 3a 47 4f | 53 55 42 35 34 30 3a 47 |M=M+1:GO|SUB540:G|
|000010c0| 4f 54 4f 37 34 30 0a 31 | 32 39 30 20 50 52 49 4e |OTO740.1|290 PRIN|
|000010d0| 54 22 91 53 4f 52 52 59 | 20 2d 20 22 3b 58 24 3b |T".SORRY| - ";X$;|
|000010e0| 22 20 41 4e 44 20 22 3b | 59 24 3b 22 20 41 52 45 |" AND ";|Y$;" ARE|
|000010f0| 20 4e 4f 54 20 41 44 4a | 41 43 45 4e 54 2e 22 3a | NOT ADJ|ACENT.":|
|00001100| 52 3d 30 0a 31 33 30 30 | 20 41 3d 54 49 0a 31 33 |R=0.1300| A=TI.13|
|00001110| 31 30 20 49 46 28 54 49 | 2d 41 29 3c 39 30 54 48 |10 IF(TI|-A)<90TH|
|00001120| 45 4e 31 33 31 30 0a 31 | 33 32 30 20 47 4f 54 4f |EN1310.1|320 GOTO|
|00001130| 37 34 30 0a 31 33 33 30 | 20 50 52 49 4e 54 22 91 |740.1330| PRINT".|
|00001140| 91 53 4f 52 52 59 20 2d | 20 4f 4e 4c 59 20 4f 4e |.SORRY -| ONLY ON|
|00001150| 45 20 53 50 45 43 49 41 | 4c 20 4d 4f 56 45 20 50 |E SPECIA|L MOVE P|
|00001160| 45 52 20 47 41 4d 45 2e | 22 3a 47 4f 54 4f 31 33 |ER GAME.|":GOTO13|
|00001170| 30 30 0a 31 33 34 30 20 | 50 52 49 4e 54 22 a6 9d |00.1340 |PRINT"..|
|00001180| 22 3b 3a 46 4f 52 49 3d | 43 31 54 4f 35 30 3a 47 |";:FORI=|C1TO50:G|
|00001190| 45 54 41 24 3a 49 46 41 | 24 3c 3e 22 22 54 48 45 |ETA$:IFA|$<>""THE|
|000011a0| 4e 52 45 54 55 52 4e 0a | 31 33 35 30 20 4e 45 58 |NRETURN.|1350 NEX|
|000011b0| 54 3a 50 52 49 4e 54 22 | 92 20 9d 22 3b 3a 46 4f |T:PRINT"|. .";:FO|
|000011c0| 52 49 3d 43 31 54 4f 35 | 30 3a 47 45 54 41 24 3a |RI=C1TO5|0:GETA$:|
|000011d0| 49 46 41 24 3c 3e 22 22 | 54 48 45 4e 52 45 54 55 |IFA$<>""|THENRETU|
|000011e0| 52 4e 0a 31 33 36 30 20 | 4e 45 58 54 3a 47 4f 54 |RN.1360 |NEXT:GOT|
|000011f0| 4f 31 33 34 30 0a 31 33 | 37 30 20 50 52 49 4e 54 |O1340.13|70 PRINT|
|00001200| 22 a6 a6 9d 9d 22 3b 3a | 46 4f 52 49 3d 43 31 54 |"....";:|FORI=C1T|
|00001210| 4f 35 30 3a 47 45 54 58 | 24 3a 49 46 58 24 3c 3e |O50:GETX|$:IFX$<>|
|00001220| 22 22 54 48 45 4e 31 34 | 30 30 0a 31 33 38 30 20 |""THEN14|00.1380 |
|00001230| 4e 45 58 54 3a 50 52 49 | 4e 54 22 20 20 9d 9d 22 |NEXT:PRI|NT"  .."|
|00001240| 3b 3a 46 4f 52 49 3d 43 | 31 54 4f 35 30 3a 47 45 |;:FORI=C|1TO50:GE|
|00001250| 54 58 24 3a 49 46 58 24 | 3c 3e 22 22 54 48 45 4e |TX$:IFX$|<>""THEN|
|00001260| 31 34 30 30 0a 31 33 39 | 30 20 4e 45 58 54 3a 47 |1400.139|0 NEXT:G|
|00001270| 4f 54 4f 31 33 37 30 0a | 31 34 30 30 20 49 46 58 |OTO1370.|1400 IFX|
|00001280| 24 3c 22 41 22 4f 52 22 | 50 22 3c 58 24 54 48 45 |$<"A"OR"|P"<X$THE|
|00001290| 4e 31 33 37 30 0a 31 34 | 31 30 20 50 52 49 4e 54 |N1370.14|10 PRINT|
|000012a0| 58 24 3b 0a 31 34 32 30 | 20 50 52 49 4e 54 22 a6 |X$;.1420| PRINT".|
|000012b0| 9d 22 3b 3a 46 4f 52 49 | 3d 43 31 54 4f 35 30 3a |.";:FORI|=C1TO50:|
|000012c0| 47 45 54 59 24 3a 49 46 | 59 24 3c 3e 22 22 54 48 |GETY$:IF|Y$<>""TH|
|000012d0| 45 4e 31 34 35 30 0a 31 | 34 33 30 20 4e 45 58 54 |EN1450.1|430 NEXT|
|000012e0| 3a 50 52 49 4e 54 22 20 | 9d 22 3b 3a 46 4f 52 49 |:PRINT" |.";:FORI|
|000012f0| 3d 43 31 54 4f 35 30 3a | 47 45 54 59 24 3a 49 46 |=C1TO50:|GETY$:IF|
|00001300| 59 24 3c 3e 22 22 54 48 | 45 4e 31 34 35 30 0a 31 |Y$<>""TH|EN1450.1|
|00001310| 34 34 30 20 4e 45 58 54 | 3a 47 4f 54 4f 31 34 32 |440 NEXT|:GOTO142|
|00001320| 30 0a 31 34 35 30 20 49 | 46 59 24 3c 22 41 22 4f |0.1450 I|FY$<"A"O|
|00001330| 52 22 50 22 3c 59 24 54 | 48 45 4e 31 34 32 30 0a |R"P"<Y$T|HEN1420.|
|00001340| 31 34 36 30 20 50 52 49 | 4e 54 59 24 3a 52 45 54 |1460 PRI|NTY$:RET|
|00001350| 55 52 4e 0a 31 34 37 30 | 20 45 4e 44 3a 22 45 4e |URN.1470| END:"EN|
|00001360| 44 20 4f 46 20 52 4f 54 | 41 54 45 20 50 52 4f 50 |D OF ROT|ATE PROP|
|00001370| 45 52 54 59 20 4f 46 20 | 43 4f 4d 4d 4f 44 4f 52 |ERTY OF |COMMODOR|
|00001380| 45 14 14 14 14 14 14 14 | 14 14 14 14 14 14 14 14 |E.......|........|
|00001390| 14 14 14 14 14 14 00 0a | 38 32 32 34 20 20 20 20 |........|8224    |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013b0| 20 20 0a                |                         |  .     |        |
+--------+-------------------------+-------------------------+--------+--------+