/ Nibble Magazine / nib33b.dsk / CONNECTION.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 20 52 45 4d 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a |1  REM  |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 32 |********|******.2|
|00000020| 20 20 52 45 4d 20 20 2a | 20 20 20 20 20 43 4f 4e |  REM  *|     CON|
|00000030| 4e 45 43 54 49 4f 4e 20 | 20 20 20 20 2a 0a 33 20 |NECTION |    *.3 |
|00000040| 20 52 45 4d 20 20 2a 20 | 20 20 42 59 20 52 55 44 | REM  * |  BY RUD|
|00000050| 59 20 41 2e 20 47 55 59 | 20 20 20 2a 0a 34 20 20 |Y A. GUY|   *.4  |
|00000060| 52 45 4d 20 20 2a 20 43 | 4f 50 59 52 49 47 48 54 |REM  * C|OPYRIGHT|
|00000070| 20 28 43 29 20 31 39 38 | 38 20 2a 0a 35 20 20 52 | (C) 198|8 *.5  R|
|00000080| 45 4d 20 20 2a 20 42 59 | 20 4d 49 43 52 4f 53 50 |EM  * BY| MICROSP|
|00000090| 41 52 43 2c 20 49 4e 43 | 20 2a 0a 36 20 20 52 45 |ARC, INC| *.6  RE|
|000000a0| 4d 20 20 2a 20 43 4f 4e | 43 4f 52 44 2c 20 4d 41 |M  * CON|CORD, MA|
|000000b0| 20 20 30 31 37 34 32 20 | 2a 0a 37 20 20 52 45 4d |  01742 |*.7  REM|
|000000c0| 20 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |  ******|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 36 30 20 20 49 46 20 |********|.60  IF |
|000000e0| 20 50 45 45 4b 28 31 30 | 34 29 20 3c 20 3e 36 34 | PEEK(10|4) < >64|
|000000f0| 20 20 54 48 45 4e 20 20 | 50 4f 4b 45 20 31 30 33 |  THEN  |POKE 103|
|00000100| 2c 31 3a 20 50 4f 4b 45 | 20 31 30 34 2c 36 34 3a |,1: POKE| 104,64:|
|00000110| 20 50 4f 4b 45 20 31 36 | 33 38 34 2c 30 3a 20 50 | POKE 16|384,0: P|
|00000120| 52 49 4e 54 20 20 43 48 | 52 24 28 34 29 22 52 55 |RINT  CH|R$(4)"RU|
|00000130| 4e 20 43 4f 4e 4e 45 43 | 54 49 4f 4e 22 3a 20 52 |N CONNEC|TION": R|
|00000140| 45 4d 20 20 52 45 4c 4f | 43 41 54 45 20 42 41 53 |EM  RELO|CATE BAS|
|00000150| 49 43 20 43 4f 44 45 20 | 41 42 4f 56 45 20 48 49 |IC CODE |ABOVE HI|
|00000160| 2d 52 45 53 0a 37 30 20 | 20 49 46 20 20 50 45 45 |-RES.70 | IF  PEE|
|00000170| 4b 28 34 38 38 39 36 29 | 20 3d 20 37 36 20 20 54 |K(48896)| = 76  T|
|00000180| 48 45 4e 20 41 44 52 20 | 3d 20 37 36 38 3a 20 50 |HEN ADR |= 768: P|
|00000190| 4f 4b 45 20 41 44 52 2c | 33 32 3a 20 50 4f 4b 45 |OKE ADR,|32: POKE|
|000001a0| 20 41 44 52 20 2b 31 2c | 32 34 38 3a 20 50 4f 4b | ADR +1,|248: POK|
|000001b0| 45 20 41 44 52 20 2b 32 | 2c 31 39 30 3a 20 50 4f |E ADR +2|,190: PO|
|000001c0| 4b 45 20 41 44 52 20 2b | 33 2c 39 36 3a 20 43 41 |KE ADR +|3,96: CA|
|000001d0| 4c 4c 20 41 44 52 3a 20 | 52 45 4d 20 20 20 50 52 |LL ADR: |REM   PR|
|000001e0| 4f 44 4f 53 20 46 52 45 | 45 42 55 46 46 20 43 41 |ODOS FRE|EBUFF CA|
|000001f0| 4c 4c 20 0a 38 30 20 20 | 4f 4e 45 52 52 20 20 47 |LL .80  |ONERR  G|
|00000200| 4f 54 4f 20 32 30 33 30 | 0a 39 30 20 20 50 52 49 |OTO 2030|.90  PRI|
|00000210| 4e 54 20 20 43 48 52 24 | 28 31 32 29 20 43 48 52 |NT  CHR$|(12) CHR|
|00000220| 24 28 32 31 29 0a 31 30 | 30 20 20 50 52 49 4e 54 |$(21).10|0  PRINT|
|00000230| 20 20 43 48 52 24 28 34 | 29 22 42 4c 4f 41 44 20 |  CHR$(4|)"BLOAD |
|00000240| 43 4f 4e 4e 45 43 54 2e | 53 54 22 3a 20 50 4f 4b |CONNECT.|ST": POK|
|00000250| 45 20 32 33 32 2c 30 3a | 20 50 4f 4b 45 20 32 33 |E 232,0:| POKE 23|
|00000260| 33 2c 31 34 37 3a 20 53 | 43 41 4c 45 3d 20 31 3a |3,147: S|CALE= 1:|
|00000270| 20 52 4f 54 3d 20 30 3a | 20 50 4f 4b 45 20 32 31 | ROT= 0:| POKE 21|
|00000280| 36 2c 30 0a 31 31 30 20 | 20 48 49 4d 45 4d 3a 20 |6,0.110 | HIMEM: |
|00000290| 33 37 36 33 32 0a 31 32 | 30 20 20 44 49 4d 20 52 |37632.12|0  DIM R|
|000002a0| 25 28 31 31 2c 31 31 29 | 2c 43 25 28 31 31 2c 31 |%(11,11)|,C%(11,1|
|000002b0| 31 29 2c 42 25 28 31 30 | 30 29 0a 31 33 30 20 53 |1),B%(10|0).130 S|
|000002c0| 4b 20 3d 20 35 30 0a 31 | 34 30 20 20 48 47 52 20 |K = 50.1|40  HGR |
|000002d0| 3a 20 54 45 58 54 20 3a | 20 48 4f 4d 45 20 3a 20 |: TEXT :| HOME : |
|000002e0| 48 43 4f 4c 4f 52 3d 20 | 33 3a 20 48 50 4c 4f 54 |HCOLOR= |3: HPLOT|
|000002f0| 20 30 2c 30 3a 20 43 41 | 4c 4c 20 20 2d 33 30 38 | 0,0: CA|LL  -308|
|00000300| 32 0a 31 35 30 20 53 43 | 24 20 3d 20 22 30 30 22 |2.150 SC|$ = "00"|
|00000310| 3a 54 24 28 30 29 20 3d | 20 22 30 30 22 3a 54 24 |:T$(0) =| "00":T$|
|00000320| 28 31 29 20 3d 20 22 30 | 30 22 3a 53 28 30 29 20 |(1) = "0|0":S(0) |
|00000330| 3d 20 30 3a 53 28 31 29 | 20 3d 20 30 0a 31 36 30 |= 0:S(1)| = 0.160|
|00000340| 20 20 47 4f 53 55 42 20 | 33 35 30 0a 31 37 30 20 |  GOSUB |350.170 |
|00000350| 20 52 45 4d 20 20 43 48 | 45 43 4b 20 46 4f 52 20 | REM  CH|ECK FOR |
|00000360| 57 49 4e 4e 45 52 0a 31 | 38 30 20 20 46 4f 52 20 |WINNER.1|80  FOR |
|00000370| 49 20 3d 20 30 20 54 4f | 20 31 3a 20 49 46 20 53 |I = 0 TO| 1: IF S|
|00000380| 28 49 29 20 3e 35 30 20 | 20 54 48 45 4e 20 32 35 |(I) >50 | THEN 25|
|00000390| 30 0a 31 39 30 20 20 4e | 45 58 54 20 3a 20 49 46 |0.190  N|EXT : IF|
|000003a0| 20 53 28 30 29 20 3d 20 | 35 30 20 20 41 4e 44 20 | S(0) = |50  AND |
|000003b0| 53 28 31 29 20 3d 20 35 | 30 20 20 54 48 45 4e 20 |S(1) = 5|0  THEN |
|000003c0| 33 32 30 0a 32 30 30 20 | 20 52 45 4d 20 20 4d 4f |320.200 | REM  MO|
|000003d0| 56 45 0a 32 31 30 20 20 | 4f 4e 20 43 20 2b 31 20 |VE.210  |ON C +1 |
|000003e0| 47 4f 53 55 42 20 35 34 | 30 2c 31 30 31 30 0a 32 |GOSUB 54|0,1010.2|
|000003f0| 32 30 20 53 43 24 20 3d | 20 54 24 28 43 29 3a 20 |20 SC$ =| T$(C): |
|00000400| 47 4f 53 55 42 20 31 38 | 38 30 3a 20 47 4f 53 55 |GOSUB 18|80: GOSU|
|00000410| 42 20 31 38 35 30 0a 32 | 33 30 20 20 49 46 20 4d |B 1850.2|30  IF M|
|00000420| 56 20 20 54 48 45 4e 20 | 4d 56 20 3d 20 30 3a 20 |V  THEN |MV = 0: |
|00000430| 47 4f 54 4f 20 31 37 30 | 0a 32 34 30 20 43 20 3d |GOTO 170|.240 C =|
|00000440| 20 20 49 4e 54 28 20 41 | 42 53 28 43 20 2d 31 29 |  INT( A|BS(C -1)|
|00000450| 29 3a 20 47 4f 54 4f 20 | 31 37 30 0a 32 35 30 20 |): GOTO |170.250 |
|00000460| 20 48 4f 4d 45 20 3a 20 | 46 4f 52 20 49 20 3d 20 | HOME : |FOR I = |
|00000470| 31 20 54 4f 20 35 3a 20 | 50 52 49 4e 54 20 20 43 |1 TO 5: |PRINT  C|
|00000480| 48 52 24 28 37 29 3a 20 | 4e 45 58 54 20 3a 20 56 |HR$(7): |NEXT : V|
|00000490| 54 41 42 20 32 32 0a 32 | 36 30 20 20 49 46 20 53 |TAB 22.2|60  IF S|
|000004a0| 28 30 29 20 3e 35 30 20 | 20 54 48 45 4e 20 41 24 |(0) >50 | THEN A$|
|000004b0| 20 3d 20 22 43 6f 6e 67 | 72 61 74 75 6c 61 74 69 | = "Cong|ratulati|
|000004c0| 6f 6e 73 20 68 75 6d 61 | 6e 2c 20 79 6f 75 20 77 |ons huma|n, you w|
|000004d0| 69 6e 21 22 3a 20 47 4f | 53 55 42 20 31 33 38 30 |in!": GO|SUB 1380|
|000004e0| 3a 20 47 4f 54 4f 20 32 | 38 30 0a 32 37 30 20 41 |: GOTO 2|80.270 A|
|000004f0| 24 20 3d 20 22 54 6f 6f | 20 62 61 64 20 68 75 6d |$ = "Too| bad hum|
|00000500| 61 6e 2c 20 49 20 77 6f | 6e 21 22 3a 20 47 4f 53 |an, I wo|n!": GOS|
|00000510| 55 42 20 31 33 38 30 0a | 32 38 30 20 20 46 4f 52 |UB 1380.|280  FOR|
|00000520| 20 49 20 3d 20 31 20 54 | 4f 20 33 30 30 30 3a 20 | I = 1 T|O 3000: |
|00000530| 4e 45 58 54 20 0a 32 39 | 30 20 20 56 54 41 42 20 |NEXT .29|0  VTAB |
|00000540| 32 33 3a 20 48 54 41 42 | 20 37 3a 20 49 4e 50 55 |23: HTAB| 7: INPU|
|00000550| 54 20 22 41 6e 6f 74 68 | 65 72 20 67 61 6d 65 3f |T "Anoth|er game?|
|00000560| 22 3b 59 4e 24 0a 33 30 | 30 20 20 49 46 20 20 4c |";YN$.30|0  IF  L|
|00000570| 45 46 54 24 28 59 4e 24 | 2c 31 29 20 3d 20 22 6e |EFT$(YN$|,1) = "n|
|00000580| 22 20 20 4f 52 20 20 4c | 45 46 54 24 28 59 4e 24 |"  OR  L|EFT$(YN$|
|00000590| 2c 31 29 20 3d 20 22 4e | 22 20 20 54 48 45 4e 20 |,1) = "N|"  THEN |
|000005a0| 20 54 45 58 54 20 3a 20 | 48 4f 4d 45 20 3a 20 45 | TEXT : |HOME : E|
|000005b0| 4e 44 20 0a 33 31 30 20 | 20 46 4f 52 20 49 20 3d |ND .310 | FOR I =|
|000005c0| 20 30 20 54 4f 20 31 3a | 54 24 28 49 29 20 3d 20 | 0 TO 1:|T$(I) = |
|000005d0| 22 30 30 22 3a 20 4e 45 | 58 54 20 3a 53 4b 20 3d |"00": NE|XT :SK =|
|000005e0| 20 53 4b 20 2b 35 3a 20 | 47 4f 54 4f 20 31 34 30 | SK +5: |GOTO 140|
|000005f0| 0a 33 32 30 20 20 52 45 | 4d 20 20 54 49 45 20 47 |.320  RE|M  TIE G|
|00000600| 41 4d 45 0a 33 33 30 20 | 41 24 20 3d 20 22 54 68 |AME.330 |A$ = "Th|
|00000610| 65 20 67 61 6d 65 20 65 | 6e 64 73 20 69 6e 20 61 |e game e|nds in a|
|00000620| 20 74 69 65 21 22 3a 20 | 48 4f 4d 45 20 3a 20 56 | tie!": |HOME : V|
|00000630| 54 41 42 20 32 31 3a 20 | 47 4f 53 55 42 20 31 33 |TAB 21: |GOSUB 13|
|00000640| 38 30 3a 20 47 4f 54 4f | 20 32 38 30 0a 33 34 30 |80: GOTO| 280.340|
|00000650| 20 20 52 45 4d 20 20 44 | 52 41 57 20 47 52 49 44 |  REM  D|RAW GRID|
|00000660| 0a 33 35 30 20 20 46 4f | 52 20 49 20 3d 20 31 20 |.350  FO|R I = 1 |
|00000670| 54 4f 20 31 30 30 3a 42 | 25 28 49 29 20 3d 20 30 |TO 100:B|%(I) = 0|
|00000680| 3a 20 4e 45 58 54 20 0a | 33 36 30 20 20 46 4f 52 |: NEXT .|360  FOR|
|00000690| 20 4a 20 3d 20 31 35 20 | 54 4f 20 31 34 35 20 20 | J = 15 |TO 145  |
|000006a0| 53 54 45 50 20 31 33 0a | 33 37 30 20 20 46 4f 52 |STEP 13.|370  FOR|
|000006b0| 20 49 20 3d 20 37 35 20 | 54 4f 20 32 30 35 20 20 | I = 75 |TO 205  |
|000006c0| 53 54 45 50 20 31 33 3a | 20 58 44 52 41 57 20 31 |STEP 13:| XDRAW 1|
|000006d0| 20 41 54 20 49 2c 4a 3a | 20 4e 45 58 54 20 49 2c | AT I,J:| NEXT I,|
|000006e0| 4a 0a 33 38 30 20 20 46 | 4f 52 20 49 20 3d 20 31 |J.380  F|OR I = 1|
|000006f0| 20 54 4f 20 31 31 3a 20 | 46 4f 52 20 4a 20 3d 20 | TO 11: |FOR J = |
|00000700| 31 20 54 4f 20 31 31 3a | 52 25 28 49 2c 4a 29 20 |1 TO 11:|R%(I,J) |
|00000710| 3d 20 30 3a 43 25 28 49 | 2c 4a 29 20 3d 20 30 3a |= 0:C%(I|,J) = 0:|
|00000720| 20 4e 45 58 54 20 4a 2c | 49 0a 33 39 30 20 4a 20 | NEXT J,|I.390 J |
|00000730| 3d 20 33 35 3a 20 46 4f | 52 20 49 20 3d 20 36 20 |= 35: FO|R I = 6 |
|00000740| 54 4f 20 31 30 3a 20 58 | 44 52 41 57 20 49 20 41 |TO 10: X|DRAW I A|
|00000750| 54 20 33 35 2c 4a 3a 4a | 20 3d 20 4a 20 2b 31 38 |T 35,J:J| = J +18|
|00000760| 3a 20 4e 45 58 54 20 0a | 34 30 30 20 20 58 44 52 |: NEXT .|400  XDR|
|00000770| 41 57 20 32 31 20 41 54 | 20 32 33 30 2c 36 30 3a |AW 21 AT| 230,60:|
|00000780| 20 58 44 52 41 57 20 32 | 32 20 41 54 20 32 33 30 | XDRAW 2|2 AT 230|
|00000790| 2c 39 30 0a 34 31 30 20 | 20 46 4f 52 20 4a 20 3d |,90.410 | FOR J =|
|000007a0| 20 30 20 54 4f 20 31 3a | 43 20 3d 20 4a 3a 20 47 | 0 TO 1:|C = J: G|
|000007b0| 4f 53 55 42 20 31 38 35 | 30 3a 20 4e 45 58 54 20 |OSUB 185|0: NEXT |
|000007c0| 3a 20 52 45 4d 20 20 44 | 52 41 57 20 49 4e 49 54 |: REM  D|RAW INIT|
|000007d0| 49 41 4c 20 53 43 4f 52 | 45 0a 34 32 30 20 20 52 |IAL SCOR|E.420  R|
|000007e0| 45 4d 20 20 53 45 4c 45 | 43 54 20 57 48 4f 20 4d |EM  SELE|CT WHO M|
|000007f0| 4f 56 45 53 20 46 49 52 | 53 54 0a 34 33 30 20 20 |OVES FIR|ST.430  |
|00000800| 49 4e 56 45 52 53 45 20 | 3a 20 50 52 49 4e 54 20 |INVERSE |: PRINT |
|00000810| 22 20 2a 2d 2a 20 43 4f | 4e 4e 45 43 54 49 4f 4e |" *-* CO|NNECTION|
|00000820| 20 2a 2d 2a 20 22 3b 3a | 20 4e 4f 52 4d 41 4c 20 | *-* ";:| NORMAL |
|00000830| 3a 20 50 52 49 4e 54 20 | 22 20 20 20 42 79 20 52 |: PRINT |"   By R|
|00000840| 75 64 79 20 41 2e 20 47 | 75 79 22 0a 34 34 30 20 |udy A. G|uy".440 |
|00000850| 41 24 20 3d 20 22 43 6f | 70 79 72 69 67 68 74 20 |A$ = "Co|pyright |
|00000860| 28 63 29 20 31 39 38 38 | 20 2d 20 4d 69 63 72 6f |(c) 1988| - Micro|
|00000870| 53 50 41 52 43 20 49 6e | 63 2e 22 3a 20 47 4f 53 |SPARC In|c.": GOS|
|00000880| 55 42 20 31 33 38 30 0a | 34 35 30 20 20 49 46 20 |UB 1380.|450  IF |
|00000890| 53 4b 20 3d 20 35 30 20 | 20 54 48 45 4e 20 20 47 |SK = 50 | THEN  G|
|000008a0| 4f 53 55 42 20 31 39 34 | 30 0a 34 36 30 20 20 56 |OSUB 194|0.460  V|
|000008b0| 54 41 42 20 31 32 3a 20 | 50 52 49 4e 54 20 22 50 |TAB 12: |PRINT "P|
|000008c0| 6c 65 61 73 65 20 70 72 | 65 73 73 20 61 20 6b 65 |lease pr|ess a ke|
|000008d0| 79 20 74 6f 20 73 65 65 | 20 77 68 6f 20 77 69 6c |y to see| who wil|
|000008e0| 6c 20 6d 61 6b 65 20 74 | 68 65 20 66 69 72 73 74 |l make t|he first|
|000008f0| 20 6d 6f 76 65 2e 22 0a | 34 37 30 20 58 20 3d 20 | move.".|470 X = |
|00000900| 20 50 45 45 4b 28 20 2d | 31 36 33 38 34 29 3a 41 | PEEK( -|16384):A|
|00000910| 20 3d 20 20 49 4e 54 28 | 20 52 4e 44 28 31 29 20 | =  INT(| RND(1) |
|00000920| 2a 39 29 20 2b 31 3a 20 | 49 46 20 58 20 3c 31 32 |*9) +1: |IF X <12|
|00000930| 37 20 20 54 48 45 4e 20 | 34 37 30 0a 34 38 30 20 |7  THEN |470.480 |
|00000940| 20 50 4f 4b 45 20 20 2d | 31 36 33 36 38 2c 30 3a | POKE  -|16368,0:|
|00000950| 20 49 46 20 41 2f 32 20 | 3d 20 20 49 4e 54 28 41 | IF A/2 |=  INT(A|
|00000960| 2f 32 29 20 20 54 48 45 | 4e 20 43 20 3d 20 31 3a |/2)  THE|N C = 1:|
|00000970| 20 47 4f 54 4f 20 35 30 | 30 0a 34 39 30 20 43 20 | GOTO 50|0.490 C |
|00000980| 3d 20 30 0a 35 30 30 20 | 20 56 54 41 42 20 31 32 |= 0.500 | VTAB 12|
|00000990| 3a 20 43 41 4c 4c 20 20 | 2d 39 35 38 3a 20 49 46 |: CALL  |-958: IF|
|000009a0| 20 43 20 20 54 48 45 4e | 20 50 4c 24 20 3d 20 22 | C  THEN| PL$ = "|
|000009b0| 43 6f 6d 70 75 74 65 72 | 22 0a 35 31 30 20 20 49 |Computer|".510  I|
|000009c0| 46 20 20 20 4e 4f 54 20 | 43 20 20 54 48 45 4e 20 |F   NOT |C  THEN |
|000009d0| 50 4c 24 20 3d 20 22 48 | 75 6d 61 6e 22 0a 35 32 |PL$ = "H|uman".52|
|000009e0| 30 20 20 50 52 49 4e 54 | 20 22 54 68 65 20 22 50 |0  PRINT| "The "P|
|000009f0| 4c 24 22 20 77 69 6c 6c | 20 6d 61 6b 65 20 74 68 |L$" will| make th|
|00000a00| 65 20 66 69 72 73 74 20 | 6d 6f 76 65 2e 22 3a 20 |e first |move.": |
|00000a10| 46 4f 52 20 49 20 3d 20 | 31 20 54 4f 20 33 30 30 |FOR I = |1 TO 300|
|00000a20| 30 3a 20 4e 45 58 54 20 | 3a 20 50 4f 4b 45 20 20 |0: NEXT |: POKE  |
|00000a30| 2d 31 36 33 30 34 2c 30 | 3a 20 50 4f 4b 45 20 20 |-16304,0|: POKE  |
|00000a40| 2d 31 36 33 30 31 2c 30 | 3a 20 50 4f 4b 45 20 20 |-16301,0|: POKE  |
|00000a50| 2d 31 36 33 30 30 2c 30 | 3a 20 50 4f 4b 45 20 20 |-16300,0|: POKE  |
|00000a60| 2d 31 36 32 39 37 2c 30 | 3a 20 52 45 54 55 52 4e |-16297,0|: RETURN|
|00000a70| 20 0a 35 33 30 20 20 52 | 45 4d 20 20 48 55 4d 41 | .530  R|EM  HUMA|
|00000a80| 4e 20 4d 4f 56 45 0a 35 | 34 30 20 20 48 4f 4d 45 |N MOVE.5|40  HOME|
|00000a90| 20 3a 20 56 54 41 42 20 | 32 33 3a 4d 20 3d 20 30 | : VTAB |23:M = 0|
|00000aa0| 3a 20 50 52 49 4e 54 20 | 22 28 51 29 75 69 74 22 |: PRINT |"(Q)uit"|
|00000ab0| 3b 3a 20 56 54 41 42 20 | 32 32 3a 20 50 4f 4b 45 |;: VTAB |22: POKE|
|00000ac0| 20 33 36 2c 30 0a 35 35 | 30 20 20 50 52 49 4e 54 | 36,0.55|0  PRINT|
|00000ad0| 20 22 28 48 29 6f 72 69 | 7a 6f 6e 74 61 6c 20 6f | "(H)ori|zontal o|
|00000ae0| 72 20 28 56 29 65 72 74 | 69 63 61 6c 20 6c 69 6e |r (V)ert|ical lin|
|00000af0| 65 3a 22 3b 3a 20 47 45 | 54 20 41 24 3a 20 49 46 |e:";: GE|T A$: IF|
|00000b00| 20 41 24 20 3c 20 3e 22 | 48 22 20 20 41 4e 44 20 | A$ < >"|H"  AND |
|00000b10| 41 24 20 3c 20 3e 22 56 | 22 20 20 41 4e 44 20 41 |A$ < >"V|"  AND A|
|00000b20| 24 20 3c 20 3e 22 68 22 | 20 20 41 4e 44 20 41 24 |$ < >"h"|  AND A$|
|00000b30| 20 3c 20 3e 22 76 22 20 | 20 41 4e 44 20 41 24 20 | < >"v" | AND A$ |
|00000b40| 3c 20 3e 22 51 22 20 20 | 41 4e 44 20 41 24 20 3c |< >"Q"  |AND A$ <|
|00000b50| 20 3e 22 71 22 20 20 54 | 48 45 4e 20 20 43 41 4c | >"q"  T|HEN  CAL|
|00000b60| 4c 20 20 2d 31 39 38 3a | 20 47 4f 54 4f 20 35 34 |L  -198:| GOTO 54|
|00000b70| 30 0a 35 36 30 20 20 48 | 4f 4d 45 20 3a 20 56 54 |0.560  H|OME : VT|
|00000b80| 41 42 20 32 32 3a 20 50 | 52 49 4e 54 20 22 55 73 |AB 22: P|RINT "Us|
|00000b90| 65 20 6c 65 66 74 20 61 | 6e 64 20 72 69 67 68 74 |e left a|nd right|
|00000ba0| 20 61 72 72 6f 77 20 6b | 65 79 73 20 74 6f 20 73 | arrow k|eys to s|
|00000bb0| 65 6c 65 63 74 20 6d 6f | 76 65 2e 20 52 65 74 75 |elect mo|ve. Retu|
|00000bc0| 72 6e 20 74 6f 20 6d 61 | 6b 65 20 6d 6f 76 65 2e |rn to ma|ke move.|
|00000bd0| 22 0a 35 37 30 20 20 49 | 46 20 41 24 20 3d 20 22 |".570  I|F A$ = "|
|00000be0| 48 22 20 20 4f 52 20 41 | 24 20 3d 20 22 68 22 20 |H"  OR A|$ = "h" |
|00000bf0| 20 54 48 45 4e 20 53 20 | 3d 20 32 3a 20 47 4f 54 | THEN S |= 2: GOT|
|00000c00| 4f 20 37 39 30 0a 35 38 | 30 20 53 20 3d 20 33 3a |O 790.58|0 S = 3:|
|00000c10| 20 49 46 20 41 24 20 3d | 20 22 51 22 20 20 4f 52 | IF A$ =| "Q"  OR|
|00000c20| 20 41 24 20 3d 20 22 71 | 22 20 20 54 48 45 4e 20 | A$ = "q|"  THEN |
|00000c30| 32 30 35 30 0a 35 39 30 | 20 20 46 4f 52 20 4a 20 |2050.590|  FOR J |
|00000c40| 3d 20 31 20 54 4f 20 31 | 30 3a 20 46 4f 52 20 49 |= 1 TO 1|0: FOR I|
|00000c50| 20 3d 20 31 20 54 4f 20 | 31 31 3a 20 49 46 20 52 | = 1 TO |11: IF R|
|00000c60| 25 28 49 2c 4a 29 20 3d | 20 30 20 20 54 48 45 4e |%(I,J) =| 0  THEN|
|00000c70| 20 54 49 20 3d 20 49 3a | 54 4a 20 3d 20 4a 3a 49 | TI = I:|TJ = J:I|
|00000c80| 20 3d 20 31 31 3a 4a 20 | 3d 20 31 30 3a 20 47 4f | = 11:J |= 10: GO|
|00000c90| 53 55 42 20 31 33 35 30 | 0a 36 30 30 20 20 4e 45 |SUB 1350|.600  NE|
|00000ca0| 58 54 20 3a 20 4e 45 58 | 54 20 0a 36 31 30 20 20 |XT : NEX|T .610  |
|00000cb0| 50 4f 4b 45 20 20 2d 31 | 36 33 36 38 2c 30 0a 36 |POKE  -1|6368,0.6|
|00000cc0| 32 30 20 58 20 3d 20 20 | 50 45 45 4b 28 20 2d 31 |20 X =  |PEEK( -1|
|00000cd0| 36 33 38 34 29 3a 20 58 | 44 52 41 57 20 53 20 41 |6384): X|DRAW S A|
|00000ce0| 54 20 54 58 2c 54 59 3a | 4d 20 3d 20 20 41 42 53 |T TX,TY:|M =  ABS|
|00000cf0| 28 4d 20 2d 31 29 3a 20 | 49 46 20 58 20 3d 20 31 |(M -1): |IF X = 1|
|00000d00| 33 36 20 20 4f 52 20 58 | 20 3d 20 31 34 39 20 20 |36  OR X| = 149  |
|00000d10| 4f 52 20 58 20 3d 20 31 | 34 31 20 20 4f 52 20 58 |OR X = 1|41  OR X|
|00000d20| 20 3d 20 32 30 30 20 20 | 4f 52 20 58 20 3d 20 32 | = 200  |OR X = 2|
|00000d30| 33 32 20 20 54 48 45 4e | 20 20 50 4f 4b 45 20 20 |32  THEN|  POKE  |
|00000d40| 2d 31 36 33 36 38 2c 30 | 3a 20 47 4f 54 4f 20 36 |-16368,0|: GOTO 6|
|00000d50| 34 30 0a 36 33 30 20 20 | 47 4f 54 4f 20 36 32 30 |40.630  |GOTO 620|
|00000d60| 0a 36 34 30 20 20 49 46 | 20 58 20 3d 20 31 34 31 |.640  IF| X = 141|
|00000d70| 20 20 41 4e 44 20 20 20 | 4e 4f 54 20 4d 20 20 54 |  AND   |NOT M  T|
|00000d80| 48 45 4e 20 20 58 44 52 | 41 57 20 53 20 41 54 20 |HEN  XDR|AW S AT |
|00000d90| 54 58 2c 54 59 3a 20 49 | 46 20 43 20 20 54 48 45 |TX,TY: I|F C  THE|
|00000da0| 4e 20 20 52 45 54 55 52 | 4e 20 0a 36 35 30 20 20 |N  RETUR|N .650  |
|00000db0| 49 46 20 58 20 3d 20 31 | 34 31 20 20 54 48 45 4e |IF X = 1|41  THEN|
|00000dc0| 20 20 47 4f 53 55 42 20 | 31 34 30 30 3a 20 52 45 |  GOSUB |1400: RE|
|00000dd0| 54 55 52 4e 20 0a 36 36 | 30 20 20 49 46 20 4d 20 |TURN .66|0  IF M |
|00000de0| 20 54 48 45 4e 20 20 58 | 44 52 41 57 20 53 20 41 | THEN  X|DRAW S A|
|00000df0| 54 20 54 58 2c 54 59 3a | 4d 20 3d 20 30 0a 36 37 |T TX,TY:|M = 0.67|
|00000e00| 30 20 20 49 46 20 58 20 | 3d 20 32 30 30 20 20 4f |0  IF X |= 200  O|
|00000e10| 52 20 58 20 3d 20 32 33 | 32 20 20 54 48 45 4e 20 |R X = 23|2  THEN |
|00000e20| 53 20 3d 20 32 3a 20 47 | 4f 54 4f 20 37 39 30 0a |S = 2: G|OTO 790.|
|00000e30| 36 38 30 20 20 49 46 20 | 58 20 3d 20 31 34 39 20 |680  IF |X = 149 |
|00000e40| 20 54 48 45 4e 20 37 34 | 30 0a 36 39 30 20 20 49 | THEN 74|0.690  I|
|00000e50| 46 20 54 49 20 3d 20 31 | 20 20 41 4e 44 20 54 4a |F TI = 1|  AND TJ|
|00000e60| 20 3d 20 31 20 20 54 48 | 45 4e 20 54 49 20 3d 20 | = 1  TH|EN TI = |
|00000e70| 31 31 3a 54 4a 20 3d 20 | 31 30 3a 20 47 4f 54 4f |11:TJ = |10: GOTO|
|00000e80| 20 37 32 30 0a 37 30 30 | 20 20 49 46 20 54 49 20 | 720.700|  IF TI |
|00000e90| 3d 20 31 20 20 54 48 45 | 4e 20 54 4a 20 3d 20 54 |= 1  THE|N TJ = T|
|00000ea0| 4a 20 2d 31 3a 54 49 20 | 3d 20 31 31 3a 20 47 4f |J -1:TI |= 11: GO|
|00000eb0| 54 4f 20 37 32 30 0a 37 | 31 30 20 54 49 20 3d 20 |TO 720.7|10 TI = |
|00000ec0| 54 49 20 2d 31 0a 37 32 | 30 20 20 49 46 20 52 25 |TI -1.72|0  IF R%|
|00000ed0| 28 54 49 2c 54 4a 29 20 | 3d 20 30 20 20 54 48 45 |(TI,TJ) |= 0  THE|
|00000ee0| 4e 20 20 47 4f 53 55 42 | 20 31 33 35 30 3a 20 47 |N  GOSUB| 1350: G|
|00000ef0| 4f 54 4f 20 36 32 30 0a | 37 33 30 20 20 47 4f 54 |OTO 620.|730  GOT|
|00000f00| 4f 20 36 39 30 0a 37 34 | 30 20 20 49 46 20 54 49 |O 690.74|0  IF TI|
|00000f10| 20 3d 20 31 31 20 20 41 | 4e 44 20 54 4a 20 3d 20 | = 11  A|ND TJ = |
|00000f20| 31 30 20 20 54 48 45 4e | 20 54 49 20 3d 20 31 3a |10  THEN| TI = 1:|
|00000f30| 54 4a 20 3d 20 31 3a 20 | 47 4f 54 4f 20 37 37 30 |TJ = 1: |GOTO 770|
|00000f40| 0a 37 35 30 20 20 49 46 | 20 54 49 20 3d 20 31 31 |.750  IF| TI = 11|
|00000f50| 20 20 54 48 45 4e 20 54 | 4a 20 3d 20 54 4a 20 2b |  THEN T|J = TJ +|
|00000f60| 31 3a 54 49 20 3d 20 31 | 3a 20 47 4f 54 4f 20 37 |1:TI = 1|: GOTO 7|
|00000f70| 37 30 0a 37 36 30 20 54 | 49 20 3d 20 54 49 20 2b |70.760 T|I = TI +|
|00000f80| 31 0a 37 37 30 20 20 49 | 46 20 52 25 28 54 49 2c |1.770  I|F R%(TI,|
|00000f90| 54 4a 29 20 3d 20 30 20 | 20 54 48 45 4e 20 20 47 |TJ) = 0 | THEN  G|
|00000fa0| 4f 53 55 42 20 31 33 35 | 30 3a 20 47 4f 54 4f 20 |OSUB 135|0: GOTO |
|00000fb0| 36 32 30 0a 37 38 30 20 | 20 47 4f 54 4f 20 37 34 |620.780 | GOTO 74|
|00000fc0| 30 0a 37 39 30 20 53 20 | 3d 20 32 3a 20 52 45 4d |0.790 S |= 2: REM|
|00000fd0| 20 20 20 48 4f 52 49 5a | 4f 4e 54 41 4c 20 4d 4f |   HORIZ|ONTAL MO|
|00000fe0| 56 45 0a 38 30 30 20 20 | 46 4f 52 20 4a 20 3d 20 |VE.800  |FOR J = |
|00000ff0| 31 20 54 4f 20 31 31 3a | 20 46 4f 52 20 49 20 3d |1 TO 11:| FOR I =|
|00001000| 20 31 20 54 4f 20 31 30 | 3a 20 49 46 20 43 25 28 | 1 TO 10|: IF C%(|
|00001010| 49 2c 4a 29 20 3d 20 30 | 20 20 54 48 45 4e 20 54 |I,J) = 0|  THEN T|
|00001020| 49 20 3d 20 49 3a 54 4a | 20 3d 20 4a 3a 49 20 3d |I = I:TJ| = J:I =|
|00001030| 20 31 30 3a 4a 20 3d 20 | 31 31 3a 20 47 4f 53 55 | 10:J = |11: GOSU|
|00001040| 42 20 31 33 37 30 0a 38 | 31 30 20 20 4e 45 58 54 |B 1370.8|10  NEXT|
|00001050| 20 3a 20 4e 45 58 54 20 | 0a 38 32 30 20 20 50 4f | : NEXT |.820  PO|
|00001060| 4b 45 20 20 2d 31 36 33 | 36 38 2c 30 0a 38 33 30 |KE  -163|68,0.830|
|00001070| 20 58 20 3d 20 20 50 45 | 45 4b 28 20 2d 31 36 33 | X =  PE|EK( -163|
|00001080| 38 34 29 3a 20 58 44 52 | 41 57 20 53 20 41 54 20 |84): XDR|AW S AT |
|00001090| 54 58 2c 54 59 3a 4d 20 | 3d 20 20 41 42 53 28 4d |TX,TY:M |=  ABS(M|
|000010a0| 20 2d 31 29 3a 20 49 46 | 20 58 20 3d 20 31 33 36 | -1): IF| X = 136|
|000010b0| 20 20 4f 52 20 58 20 3d | 20 31 34 39 20 20 4f 52 |  OR X =| 149  OR|
|000010c0| 20 58 20 3d 20 31 34 31 | 20 20 4f 52 20 58 20 3d | X = 141|  OR X =|
|000010d0| 20 32 31 34 20 20 4f 52 | 20 58 20 3d 20 32 34 36 | 214  OR| X = 246|
|000010e0| 20 20 54 48 45 4e 20 20 | 50 4f 4b 45 20 20 2d 31 |  THEN  |POKE  -1|
|000010f0| 36 33 36 38 2c 30 3a 20 | 47 4f 54 4f 20 38 35 30 |6368,0: |GOTO 850|
|00001100| 0a 38 34 30 20 20 47 4f | 54 4f 20 38 33 30 0a 38 |.840  GO|TO 830.8|
|00001110| 35 30 20 20 49 46 20 58 | 20 3d 20 31 34 31 20 20 |50  IF X| = 141  |
|00001120| 41 4e 44 20 20 20 4e 4f | 54 20 4d 20 20 54 48 45 |AND   NO|T M  THE|
|00001130| 4e 20 20 58 44 52 41 57 | 20 53 20 41 54 20 54 58 |N  XDRAW| S AT TX|
|00001140| 2c 54 59 3a 20 49 46 20 | 43 20 20 54 48 45 4e 20 |,TY: IF |C  THEN |
|00001150| 20 52 45 54 55 52 4e 20 | 0a 38 36 30 20 20 49 46 | RETURN |.860  IF|
|00001160| 20 58 20 3d 20 31 34 31 | 20 20 54 48 45 4e 20 20 | X = 141|  THEN  |
|00001170| 47 4f 53 55 42 20 31 35 | 38 30 3a 20 52 45 54 55 |GOSUB 15|80: RETU|
|00001180| 52 4e 20 0a 38 37 30 20 | 20 49 46 20 4d 20 20 54 |RN .870 | IF M  T|
|00001190| 48 45 4e 20 20 58 44 52 | 41 57 20 53 20 41 54 20 |HEN  XDR|AW S AT |
|000011a0| 54 58 2c 54 59 3a 4d 20 | 3d 20 30 0a 38 38 30 20 |TX,TY:M |= 0.880 |
|000011b0| 20 49 46 20 58 20 3d 20 | 32 31 34 20 20 4f 52 20 | IF X = |214  OR |
|000011c0| 58 20 3d 20 32 34 36 20 | 20 54 48 45 4e 20 53 20 |X = 246 | THEN S |
|000011d0| 3d 20 33 3a 20 47 4f 54 | 4f 20 35 39 30 0a 38 39 |= 3: GOT|O 590.89|
|000011e0| 30 20 20 49 46 20 58 20 | 3d 20 31 34 39 20 20 54 |0  IF X |= 149  T|
|000011f0| 48 45 4e 20 39 35 30 0a | 39 30 30 20 20 49 46 20 |HEN 950.|900  IF |
|00001200| 54 49 20 3d 20 31 20 20 | 41 4e 44 20 54 4a 20 3d |TI = 1  |AND TJ =|
|00001210| 20 31 20 20 54 48 45 4e | 20 54 49 20 3d 20 31 30 | 1  THEN| TI = 10|
|00001220| 3a 54 4a 20 3d 20 31 31 | 3a 20 47 4f 54 4f 20 39 |:TJ = 11|: GOTO 9|
|00001230| 33 30 0a 39 31 30 20 20 | 49 46 20 54 49 20 3d 20 |30.910  |IF TI = |
|00001240| 31 20 20 54 48 45 4e 20 | 54 4a 20 3d 20 54 4a 20 |1  THEN |TJ = TJ |
|00001250| 2d 31 3a 54 49 20 3d 20 | 31 30 3a 20 47 4f 54 4f |-1:TI = |10: GOTO|
|00001260| 20 39 33 30 0a 39 32 30 | 20 54 49 20 3d 20 54 49 | 930.920| TI = TI|
|00001270| 20 2d 31 0a 39 33 30 20 | 20 49 46 20 43 25 28 54 | -1.930 | IF C%(T|
|00001280| 49 2c 54 4a 29 20 3d 20 | 30 20 20 54 48 45 4e 20 |I,TJ) = |0  THEN |
|00001290| 20 47 4f 53 55 42 20 31 | 33 37 30 3a 20 47 4f 54 | GOSUB 1|370: GOT|
|000012a0| 4f 20 38 33 30 0a 39 34 | 30 20 20 47 4f 54 4f 20 |O 830.94|0  GOTO |
|000012b0| 39 30 30 0a 39 35 30 20 | 20 49 46 20 54 49 20 3d |900.950 | IF TI =|
|000012c0| 20 31 30 20 20 41 4e 44 | 20 54 4a 20 3d 20 31 31 | 10  AND| TJ = 11|
|000012d0| 20 20 54 48 45 4e 20 54 | 49 20 3d 20 31 3a 54 4a |  THEN T|I = 1:TJ|
|000012e0| 20 3d 20 31 3a 20 47 4f | 54 4f 20 39 38 30 0a 39 | = 1: GO|TO 980.9|
|000012f0| 36 30 20 20 49 46 20 54 | 49 20 3d 20 31 30 20 20 |60  IF T|I = 10  |
|00001300| 54 48 45 4e 20 54 4a 20 | 3d 20 54 4a 20 2b 31 3a |THEN TJ |= TJ +1:|
|00001310| 54 49 20 3d 20 31 3a 20 | 47 4f 54 4f 20 39 38 30 |TI = 1: |GOTO 980|
|00001320| 0a 39 37 30 20 54 49 20 | 3d 20 54 49 20 2b 31 0a |.970 TI |= TI +1.|
|00001330| 39 38 30 20 20 49 46 20 | 43 25 28 54 49 2c 54 4a |980  IF |C%(TI,TJ|
|00001340| 29 20 3d 20 30 20 20 54 | 48 45 4e 20 20 47 4f 53 |) = 0  T|HEN  GOS|
|00001350| 55 42 20 31 33 37 30 3a | 20 47 4f 54 4f 20 38 33 |UB 1370:| GOTO 83|
|00001360| 30 0a 39 39 30 20 20 47 | 4f 54 4f 20 39 35 30 0a |0.990  G|OTO 950.|
|00001370| 31 30 30 30 20 20 52 45 | 4d 20 20 20 43 4f 4d 50 |1000  RE|M   COMP|
|00001380| 55 54 45 52 27 53 20 4d | 4f 56 45 0a 31 30 31 30 |UTER'S M|OVE.1010|
|00001390| 20 41 24 20 3d 20 22 54 | 68 65 20 63 6f 6d 70 75 | A$ = "T|he compu|
|000013a0| 74 65 72 20 69 73 20 64 | 65 63 69 64 69 6e 67 20 |ter is d|eciding |
|000013b0| 6f 6e 20 61 20 6d 6f 76 | 65 2e 2e 2e 22 3a 20 48 |on a mov|e...": H|
|000013c0| 4f 4d 45 20 3a 20 56 54 | 41 42 20 32 32 3a 20 47 |OME : VT|AB 22: G|
|000013d0| 4f 53 55 42 20 31 33 38 | 30 0a 31 30 32 30 20 58 |OSUB 138|0.1020 X|
|000013e0| 20 3d 20 31 34 31 3a 4d | 20 3d 20 30 3a 41 20 3d | = 141:M| = 0:A =|
|000013f0| 20 31 0a 31 30 33 30 20 | 20 46 4f 52 20 49 20 3d | 1.1030 | FOR I =|
|00001400| 20 31 20 54 4f 20 31 30 | 30 3a 20 49 46 20 42 25 | 1 TO 10|0: IF B%|
|00001410| 28 49 29 20 3d 20 33 20 | 20 54 48 45 4e 20 20 47 |(I) = 3 | THEN  G|
|00001420| 4f 53 55 42 20 31 31 38 | 30 3a 49 20 3d 20 31 30 |OSUB 118|0:I = 10|
|00001430| 30 0a 31 30 34 30 20 20 | 4e 45 58 54 20 3a 20 49 |0.1040  |NEXT : I|
|00001440| 46 20 54 54 20 20 54 48 | 45 4e 20 54 54 20 3d 20 |F TT  TH|EN TT = |
|00001450| 30 3a 20 52 45 54 55 52 | 4e 20 0a 31 30 35 30 20 |0: RETUR|N .1050 |
|00001460| 46 4c 20 3d 20 30 3a 4e | 20 3d 20 20 49 4e 54 28 |FL = 0:N| =  INT(|
|00001470| 20 52 4e 44 28 31 29 20 | 2a 32 29 0a 31 30 36 30 | RND(1) |*2).1060|
|00001480| 20 20 49 46 20 4e 20 3d | 20 31 20 20 54 48 45 4e |  IF N =| 1  THEN|
|00001490| 20 31 31 32 30 0a 31 30 | 37 30 20 54 49 20 3d 20 | 1120.10|70 TI = |
|000014a0| 20 49 4e 54 28 20 52 4e | 44 28 31 29 20 2a 31 31 | INT( RN|D(1) *11|
|000014b0| 29 20 2b 31 3a 54 4a 20 | 3d 20 20 49 4e 54 28 20 |) +1:TJ |=  INT( |
|000014c0| 52 4e 44 28 31 29 20 2a | 31 30 29 20 2b 31 3a 20 |RND(1) *|10) +1: |
|000014d0| 49 46 20 52 25 28 54 49 | 2c 54 4a 29 20 3d 20 30 |IF R%(TI|,TJ) = 0|
|000014e0| 20 20 54 48 45 4e 20 53 | 20 3d 20 33 3a 3a 20 47 |  THEN S| = 3:: G|
|000014f0| 4f 54 4f 20 31 30 39 30 | 0a 31 30 38 30 20 20 47 |OTO 1090|.1080  G|
|00001500| 4f 54 4f 20 31 30 35 30 | 0a 31 30 39 30 20 20 49 |OTO 1050|.1090  I|
|00001510| 46 20 41 20 3c 20 3d 20 | 53 4b 20 20 54 48 45 4e |F A < = |SK  THEN|
|00001520| 20 20 47 4f 53 55 42 20 | 31 35 31 30 0a 31 31 30 |  GOSUB |1510.110|
|00001530| 30 20 20 47 4f 53 55 42 | 20 31 33 35 30 3a 20 47 |0  GOSUB| 1350: G|
|00001540| 4f 53 55 42 20 31 33 33 | 30 3a 20 47 4f 53 55 42 |OSUB 133|0: GOSUB|
|00001550| 20 31 34 30 30 3a 20 52 | 45 54 55 52 4e 20 0a 31 | 1400: R|ETURN .1|
|00001560| 31 31 30 20 20 47 4f 54 | 4f 20 31 30 35 30 0a 31 |110  GOT|O 1050.1|
|00001570| 31 32 30 20 54 49 20 3d | 20 20 49 4e 54 28 20 52 |120 TI =|  INT( R|
|00001580| 4e 44 28 31 29 20 2a 31 | 30 29 20 2b 31 3a 54 4a |ND(1) *1|0) +1:TJ|
|00001590| 20 3d 20 20 49 4e 54 28 | 20 52 4e 44 28 31 29 20 | =  INT(| RND(1) |
|000015a0| 2a 31 31 29 20 2b 31 3a | 20 49 46 20 43 25 28 54 |*11) +1:| IF C%(T|
|000015b0| 49 2c 54 4a 29 20 3d 20 | 30 20 20 54 48 45 4e 20 |I,TJ) = |0  THEN |
|000015c0| 53 20 3d 20 32 3a 20 47 | 4f 54 4f 20 31 31 34 30 |S = 2: G|OTO 1140|
|000015d0| 0a 31 31 33 30 20 20 47 | 4f 54 4f 20 31 30 35 30 |.1130  G|OTO 1050|
|000015e0| 0a 31 31 34 30 20 20 49 | 46 20 41 20 3c 20 3d 20 |.1140  I|F A < = |
|000015f0| 53 4b 20 20 54 48 45 4e | 20 20 47 4f 53 55 42 20 |SK  THEN|  GOSUB |
|00001600| 31 36 39 30 0a 31 31 35 | 30 20 20 47 4f 53 55 42 |1690.115|0  GOSUB|
|00001610| 20 31 33 37 30 3a 20 47 | 4f 53 55 42 20 31 33 33 | 1370: G|OSUB 133|
|00001620| 30 3a 20 47 4f 53 55 42 | 20 31 35 38 30 3a 20 52 |0: GOSUB| 1580: R|
|00001630| 45 54 55 52 4e 20 0a 31 | 31 36 30 20 20 47 4f 54 |ETURN .1|160  GOT|
|00001640| 4f 20 31 30 35 30 0a 31 | 31 37 30 20 20 52 45 4d |O 1050.1|170  REM|
|00001650| 20 20 46 49 4e 44 20 4f | 50 45 4e 20 41 52 45 41 |  FIND O|PEN AREA|
|00001660| 0a 31 31 38 30 20 20 49 | 46 20 49 20 3c 20 3d 20 |.1180  I|F I < = |
|00001670| 31 30 20 20 54 48 45 4e | 20 54 4a 20 3d 20 31 3a |10  THEN| TJ = 1:|
|00001680| 54 49 20 3d 20 49 3a 20 | 49 46 20 52 25 28 54 49 |TI = I: |IF R%(TI|
|00001690| 2c 54 4a 29 20 3d 20 30 | 20 20 54 48 45 4e 20 53 |,TJ) = 0|  THEN S|
|000016a0| 20 3d 20 33 3a 20 47 4f | 53 55 42 20 31 33 35 30 | = 3: GO|SUB 1350|
|000016b0| 3a 20 47 4f 53 55 42 20 | 31 33 33 30 3a 20 47 4f |: GOSUB |1330: GO|
|000016c0| 53 55 42 20 31 34 30 30 | 3a 54 54 20 3d 20 31 3a |SUB 1400|:TT = 1:|
|000016d0| 20 52 45 54 55 52 4e 20 | 0a 31 31 39 30 20 20 49 | RETURN |.1190  I|
|000016e0| 46 20 49 20 3c 20 3d 20 | 31 30 20 20 54 48 45 4e |F I < = |10  THEN|
|000016f0| 20 54 49 20 3d 20 54 49 | 20 2b 31 3a 20 49 46 20 | TI = TI| +1: IF |
|00001700| 52 25 28 54 49 2c 54 4a | 29 20 3d 20 30 20 20 54 |R%(TI,TJ|) = 0  T|
|00001710| 48 45 4e 20 53 20 3d 20 | 33 3a 20 47 4f 53 55 42 |HEN S = |3: GOSUB|
|00001720| 20 31 33 35 30 3a 20 47 | 4f 53 55 42 20 31 33 33 | 1350: G|OSUB 133|
|00001730| 30 3a 20 47 4f 53 55 42 | 20 31 34 30 30 3a 54 54 |0: GOSUB| 1400:TT|
|00001740| 20 3d 20 31 3a 20 52 45 | 54 55 52 4e 20 0a 31 32 | = 1: RE|TURN .12|
|00001750| 30 30 20 20 49 46 20 49 | 20 3c 20 3d 20 31 30 20 |00  IF I| < = 10 |
|00001760| 20 54 48 45 4e 20 54 4a | 20 3d 20 31 3a 54 49 20 | THEN TJ| = 1:TI |
|00001770| 3d 20 49 3a 20 49 46 20 | 43 25 28 54 49 2c 54 4a |= I: IF |C%(TI,TJ|
|00001780| 29 20 3d 20 30 20 20 54 | 48 45 4e 20 53 20 3d 20 |) = 0  T|HEN S = |
|00001790| 32 3a 20 47 4f 53 55 42 | 20 31 33 37 30 3a 20 47 |2: GOSUB| 1370: G|
|000017a0| 4f 53 55 42 20 31 33 33 | 30 3a 20 47 4f 53 55 42 |OSUB 133|0: GOSUB|
|000017b0| 20 31 35 38 30 3a 54 54 | 20 3d 20 31 3a 20 52 45 | 1580:TT| = 1: RE|
|000017c0| 54 55 52 4e 20 0a 31 32 | 31 30 20 20 49 46 20 49 |TURN .12|10  IF I|
|000017d0| 20 3c 20 3d 20 31 30 20 | 20 54 48 45 4e 20 54 4a | < = 10 | THEN TJ|
|000017e0| 20 3d 20 32 3a 20 49 46 | 20 43 25 28 54 49 2c 54 | = 2: IF| C%(TI,T|
|000017f0| 4a 29 20 3d 20 30 20 20 | 54 48 45 4e 20 53 20 3d |J) = 0  |THEN S =|
|00001800| 20 32 3a 20 47 4f 53 55 | 42 20 31 33 37 30 3a 20 | 2: GOSU|B 1370: |
|00001810| 47 4f 53 55 42 20 31 33 | 33 30 3a 20 47 4f 53 55 |GOSUB 13|30: GOSU|
|00001820| 42 20 31 35 38 30 3a 54 | 54 20 3d 20 31 3a 20 52 |B 1580:T|T = 1: R|
|00001830| 45 54 55 52 4e 20 0a 31 | 32 32 30 20 41 24 20 3d |ETURN .1|220 A$ =|
|00001840| 20 20 53 54 52 24 28 49 | 29 3a 49 20 3d 20 20 56 |  STR$(I|):I =  V|
|00001850| 41 4c 28 20 52 49 47 48 | 54 24 28 41 24 2c 31 29 |AL( RIGH|T$(A$,1)|
|00001860| 29 3a 4a 20 3d 20 20 56 | 41 4c 28 20 4c 45 46 54 |):J =  V|AL( LEFT|
|00001870| 24 28 41 24 2c 31 29 29 | 20 2b 31 3a 20 49 46 20 |$(A$,1))| +1: IF |
|00001880| 20 4c 45 4e 28 41 24 29 | 20 3d 20 33 20 20 54 48 | LEN(A$)| = 3  TH|
|00001890| 45 4e 20 4a 20 3d 20 20 | 56 41 4c 28 20 4c 45 46 |EN J =  |VAL( LEF|
|000018a0| 54 24 28 41 24 2c 32 29 | 29 20 2b 31 3a 49 20 3d |T$(A$,2)|) +1:I =|
|000018b0| 20 31 30 0a 31 32 33 30 | 20 20 49 46 20 49 20 3d | 10.1230|  IF I =|
|000018c0| 20 30 20 20 54 48 45 4e | 20 49 20 3d 20 31 30 0a | 0  THEN| I = 10.|
|000018d0| 31 32 34 30 20 20 49 46 | 20 4a 20 3d 20 31 31 20 |1240  IF| J = 11 |
|000018e0| 20 54 48 45 4e 20 4a 20 | 3d 20 31 30 0a 31 32 35 | THEN J |= 10.125|
|000018f0| 30 20 20 49 46 20 20 52 | 49 47 48 54 24 28 41 24 |0  IF  R|IGHT$(A$|
|00001900| 2c 31 29 20 3d 20 22 30 | 22 20 20 41 4e 44 20 20 |,1) = "0|"  AND  |
|00001910| 4c 45 4e 28 41 24 29 20 | 3c 33 20 20 54 48 45 4e |LEN(A$) |<3  THEN|
|00001920| 20 4a 20 3d 20 4a 20 2d | 31 0a 31 32 36 30 20 20 | J = J -|1.1260  |
|00001930| 49 46 20 4a 20 3d 20 31 | 31 20 20 54 48 45 4e 20 |IF J = 1|1  THEN |
|00001940| 4a 20 3d 20 31 30 0a 31 | 32 37 30 20 54 49 20 3d |J = 10.1|270 TI =|
|00001950| 20 49 3a 54 4a 20 3d 20 | 4a 0a 31 32 38 30 20 53 | I:TJ = |J.1280 S|
|00001960| 20 3d 20 33 3a 20 49 46 | 20 52 25 28 54 49 2c 54 | = 3: IF| R%(TI,T|
|00001970| 4a 29 20 3d 20 30 20 20 | 54 48 45 4e 20 20 47 4f |J) = 0  |THEN  GO|
|00001980| 53 55 42 20 31 33 35 30 | 3a 20 47 4f 53 55 42 20 |SUB 1350|: GOSUB |
|00001990| 31 33 33 30 3a 20 47 4f | 53 55 42 20 31 34 30 30 |1330: GO|SUB 1400|
|000019a0| 3a 54 54 20 3d 20 31 3a | 20 52 45 54 55 52 4e 20 |:TT = 1:| RETURN |
|000019b0| 0a 31 32 39 30 20 54 49 | 20 3d 20 54 49 20 2b 31 |.1290 TI| = TI +1|
|000019c0| 3a 20 49 46 20 52 25 28 | 54 49 2c 54 4a 29 20 3d |: IF R%(|TI,TJ) =|
|000019d0| 20 30 20 20 54 48 45 4e | 20 20 47 4f 53 55 42 20 | 0  THEN|  GOSUB |
|000019e0| 31 33 35 30 3a 20 47 4f | 53 55 42 20 31 33 33 30 |1350: GO|SUB 1330|
|000019f0| 3a 20 47 4f 53 55 42 20 | 31 34 30 30 3a 54 54 20 |: GOSUB |1400:TT |
|00001a00| 3d 20 31 3a 20 52 45 54 | 55 52 4e 20 0a 31 33 30 |= 1: RET|URN .130|
|00001a10| 30 20 53 20 3d 20 32 3a | 54 49 20 3d 20 49 3a 20 |0 S = 2:|TI = I: |
|00001a20| 49 46 20 43 25 28 54 49 | 2c 54 4a 29 20 3d 20 30 |IF C%(TI|,TJ) = 0|
|00001a30| 20 20 54 48 45 4e 20 20 | 47 4f 53 55 42 20 31 33 |  THEN  |GOSUB 13|
|00001a40| 37 30 3a 20 47 4f 53 55 | 42 20 31 33 33 30 3a 20 |70: GOSU|B 1330: |
|00001a50| 47 4f 53 55 42 20 31 35 | 38 30 3a 54 54 20 3d 20 |GOSUB 15|80:TT = |
|00001a60| 31 3a 20 52 45 54 55 52 | 4e 20 0a 31 33 31 30 20 |1: RETUR|N .1310 |
|00001a70| 54 4a 20 3d 20 54 4a 20 | 2b 31 3a 20 49 46 20 43 |TJ = TJ |+1: IF C|
|00001a80| 25 28 54 49 2c 54 4a 29 | 20 3d 20 30 20 20 54 48 |%(TI,TJ)| = 0  TH|
|00001a90| 45 4e 20 20 47 4f 53 55 | 42 20 31 33 37 30 3a 20 |EN  GOSU|B 1370: |
|00001aa0| 47 4f 53 55 42 20 31 33 | 33 30 3a 20 47 4f 53 55 |GOSUB 13|30: GOSU|
|00001ab0| 42 20 31 35 38 30 3a 54 | 54 20 3d 20 31 3a 20 52 |B 1580:T|T = 1: R|
|00001ac0| 45 54 55 52 4e 20 0a 31 | 33 32 30 20 20 53 54 4f |ETURN .1|320  STO|
|00001ad0| 50 20 3a 20 52 45 4d 20 | 20 50 52 4f 47 52 41 4d |P : REM | PROGRAM|
|00001ae0| 20 53 48 4f 55 4c 44 20 | 4e 4f 54 20 47 45 54 20 | SHOULD |NOT GET |
|00001af0| 48 45 52 45 0a 31 33 33 | 30 20 20 46 4f 52 20 4b |HERE.133|0  FOR K|
|00001b00| 20 3d 20 31 20 54 4f 20 | 32 35 3a 20 58 44 52 41 | = 1 TO |25: XDRA|
|00001b10| 57 20 53 20 41 54 20 54 | 58 2c 54 59 3a 20 46 4f |W S AT T|X,TY: FO|
|00001b20| 52 20 4c 20 3d 20 31 20 | 54 4f 20 32 30 3a 20 4e |R L = 1 |TO 20: N|
|00001b30| 45 58 54 20 3a 20 4e 45 | 58 54 20 3a 20 52 45 54 |EXT : NE|XT : RET|
|00001b40| 55 52 4e 20 0a 31 33 34 | 30 20 20 52 45 4d 20 20 |URN .134|0  REM  |
|00001b50| 4c 4f 43 41 54 45 20 56 | 45 52 54 49 43 41 4c 20 |LOCATE V|ERTICAL |
|00001b60| 4c 49 4e 45 0a 31 33 35 | 30 20 54 58 20 3d 20 36 |LINE.135|0 TX = 6|
|00001b70| 33 20 2b 28 54 49 20 2a | 31 33 29 3a 54 59 20 3d |3 +(TI *|13):TY =|
|00001b80| 20 31 32 20 2b 28 54 4a | 20 2a 31 33 29 3a 20 52 | 12 +(TJ| *13): R|
|00001b90| 45 54 55 52 4e 20 0a 31 | 33 36 30 20 20 52 45 4d |ETURN .1|360  REM|
|00001ba0| 20 20 20 4c 4f 43 41 54 | 45 20 48 4f 52 49 5a 4f |   LOCAT|E HORIZO|
|00001bb0| 4e 54 41 4c 20 4c 49 4e | 45 0a 31 33 37 30 20 54 |NTAL LIN|E.1370 T|
|00001bc0| 58 20 3d 20 36 36 20 2b | 28 54 49 20 2a 31 33 29 |X = 66 +|(TI *13)|
|00001bd0| 3a 54 59 20 3d 20 32 20 | 2b 28 54 4a 20 2a 31 33 |:TY = 2 |+(TJ *13|
|00001be0| 29 3a 20 52 45 54 55 52 | 4e 20 0a 31 33 38 30 20 |): RETUR|N .1380 |
|00001bf0| 20 48 54 41 42 20 32 30 | 20 2d 20 4c 45 4e 28 41 | HTAB 20| - LEN(A|
|00001c00| 24 29 2f 32 3a 20 50 52 | 49 4e 54 20 41 24 3a 20 |$)/2: PR|INT A$: |
|00001c10| 52 45 54 55 52 4e 20 0a | 31 33 39 30 20 20 52 45 |RETURN .|1390  RE|
|00001c20| 4d 20 20 43 48 45 43 4b | 20 46 4f 52 20 43 4f 4d |M  CHECK| FOR COM|
|00001c30| 50 4c 45 54 45 44 20 53 | 51 55 41 52 45 53 0a 31 |PLETED S|QUARES.1|
|00001c40| 34 30 30 20 52 25 28 54 | 49 2c 54 4a 29 20 3d 20 |400 R%(T|I,TJ) = |
|00001c50| 31 0a 31 34 31 30 20 20 | 49 46 20 54 49 20 3d 20 |1.1410  |IF TI = |
|00001c60| 31 31 20 20 54 48 45 4e | 20 54 49 20 3d 20 31 30 |11  THEN| TI = 10|
|00001c70| 3a 46 4c 20 3d 20 31 0a | 31 34 32 30 20 20 47 4f |:FL = 1.|1420  GO|
|00001c80| 53 55 42 20 31 37 36 30 | 0a 31 34 33 30 20 42 25 |SUB 1760|.1430 B%|
|00001c90| 28 42 4c 29 20 3d 20 42 | 25 28 42 4c 29 20 2b 31 |(BL) = B|%(BL) +1|
|00001ca0| 0a 31 34 34 30 20 20 49 | 46 20 42 25 28 42 4c 29 |.1440  I|F B%(BL)|
|00001cb0| 20 3d 20 34 20 20 54 48 | 45 4e 20 20 47 4f 53 55 | = 4  TH|EN  GOSU|
|00001cc0| 42 20 31 37 38 30 3a 53 | 28 43 29 20 3d 20 53 28 |B 1780:S|(C) = S(|
|00001cd0| 43 29 20 2b 31 3a 4d 56 | 20 3d 20 31 0a 31 34 35 |C) +1:MV| = 1.145|
|00001ce0| 30 20 42 4c 24 20 3d 20 | 20 53 54 52 24 28 42 4c |0 BL$ = | STR$(BL|
|00001cf0| 29 3a 20 49 46 20 20 52 | 49 47 48 54 24 28 42 4c |): IF  R|IGHT$(BL|
|00001d00| 24 2c 31 29 20 3d 20 22 | 31 22 20 20 54 48 45 4e |$,1) = "|1"  THEN|
|00001d10| 20 20 52 45 54 55 52 4e | 20 0a 31 34 36 30 20 20 |  RETURN| .1460  |
|00001d20| 49 46 20 46 4c 20 20 54 | 48 45 4e 20 46 4c 20 3d |IF FL  T|HEN FL =|
|00001d30| 20 30 3a 20 52 45 54 55 | 52 4e 20 0a 31 34 37 30 | 0: RETU|RN .1470|
|00001d40| 20 42 25 28 42 4c 20 2d | 31 29 20 3d 20 42 25 28 | B%(BL -|1) = B%(|
|00001d50| 42 4c 20 2d 31 29 20 2b | 31 3a 54 49 20 3d 20 54 |BL -1) +|1:TI = T|
|00001d60| 49 20 2d 31 0a 31 34 38 | 30 20 20 49 46 20 42 25 |I -1.148|0  IF B%|
|00001d70| 28 42 4c 20 2d 31 29 20 | 3d 20 34 20 20 54 48 45 |(BL -1) |= 4  THE|
|00001d80| 4e 20 20 47 4f 53 55 42 | 20 31 37 38 30 3a 53 28 |N  GOSUB| 1780:S(|
|00001d90| 43 29 20 3d 20 53 28 43 | 29 20 2b 31 3a 4d 56 20 |C) = S(C|) +1:MV |
|00001da0| 3d 20 31 0a 31 34 39 30 | 20 20 52 45 54 55 52 4e |= 1.1490|  RETURN|
|00001db0| 20 0a 31 35 30 30 20 20 | 52 45 4d 20 20 43 48 45 | .1500  |REM  CHE|
|00001dc0| 43 4b 20 46 4f 52 20 53 | 54 41 54 55 53 20 4f 46 |CK FOR S|TATUS OF|
|00001dd0| 20 56 45 52 54 49 43 41 | 4c 20 4d 4f 56 45 0a 31 | VERTICA|L MOVE.1|
|00001de0| 35 31 30 20 20 49 46 20 | 54 49 20 3d 20 31 31 20 |510  IF |TI = 11 |
|00001df0| 20 54 48 45 4e 20 54 49 | 20 3d 20 31 30 3a 46 4c | THEN TI| = 10:FL|
|00001e00| 20 3d 20 31 0a 31 35 32 | 30 20 20 47 4f 53 55 42 | = 1.152|0  GOSUB|
|00001e10| 20 31 37 36 30 0a 31 35 | 33 30 20 20 49 46 20 42 | 1760.15|30  IF B|
|00001e20| 25 28 42 4c 29 20 3d 20 | 32 20 20 54 48 45 4e 20 |%(BL) = |2  THEN |
|00001e30| 41 20 3d 20 41 20 2b 31 | 3a 20 50 4f 50 20 3a 20 |A = A +1|: POP : |
|00001e40| 47 4f 54 4f 20 31 30 35 | 30 0a 31 35 34 30 20 20 |GOTO 105|0.1540  |
|00001e50| 49 46 20 46 4c 20 20 54 | 48 45 4e 20 46 4c 20 3d |IF FL  T|HEN FL =|
|00001e60| 20 30 3a 54 49 20 3d 20 | 31 31 3a 20 52 45 54 55 | 0:TI = |11: RETU|
|00001e70| 52 4e 20 0a 31 35 35 30 | 20 20 49 46 20 42 25 28 |RN .1550|  IF B%(|
|00001e80| 42 4c 20 2d 31 29 20 3d | 20 32 20 20 54 48 45 4e |BL -1) =| 2  THEN|
|00001e90| 20 41 20 3d 20 41 20 2b | 31 3a 20 50 4f 50 20 3a | A = A +|1: POP :|
|00001ea0| 20 47 4f 54 4f 20 31 30 | 35 30 0a 31 35 36 30 20 | GOTO 10|50.1560 |
|00001eb0| 20 52 45 54 55 52 4e 20 | 0a 31 35 37 30 20 20 52 | RETURN |.1570  R|
|00001ec0| 45 4d 20 20 53 45 54 20 | 53 54 41 54 55 53 20 4f |EM  SET |STATUS O|
|00001ed0| 46 20 48 4f 52 49 5a 4f | 4e 54 41 4c 20 50 4f 53 |F HORIZO|NTAL POS|
|00001ee0| 49 54 49 4f 4e 0a 31 35 | 38 30 20 43 25 28 54 49 |ITION.15|80 C%(TI|
|00001ef0| 2c 54 4a 29 20 3d 20 31 | 0a 31 35 39 30 20 20 49 |,TJ) = 1|.1590  I|
|00001f00| 46 20 54 4a 20 3d 20 31 | 31 20 20 54 48 45 4e 20 |F TJ = 1|1  THEN |
|00001f10| 54 4a 20 3d 20 31 30 3a | 46 4c 20 3d 20 31 0a 31 |TJ = 10:|FL = 1.1|
|00001f20| 36 30 30 20 20 47 4f 53 | 55 42 20 31 37 36 30 0a |600  GOS|UB 1760.|
|00001f30| 31 36 31 30 20 42 25 28 | 42 4c 29 20 3d 20 42 25 |1610 B%(|BL) = B%|
|00001f40| 28 42 4c 29 20 2b 31 0a | 31 36 32 30 20 20 49 46 |(BL) +1.|1620  IF|
|00001f50| 20 42 25 28 42 4c 29 20 | 3d 20 34 20 20 54 48 45 | B%(BL) |= 4  THE|
|00001f60| 4e 20 20 47 4f 53 55 42 | 20 31 37 38 30 3a 53 28 |N  GOSUB| 1780:S(|
|00001f70| 43 29 20 3d 20 53 28 43 | 29 20 2b 31 3a 4d 56 20 |C) = S(C|) +1:MV |
|00001f80| 3d 20 31 0a 31 36 33 30 | 20 20 49 46 20 46 4c 20 |= 1.1630|  IF FL |
|00001f90| 20 54 48 45 4e 20 46 4c | 20 3d 20 30 3a 20 52 45 | THEN FL| = 0: RE|
|00001fa0| 54 55 52 4e 20 0a 31 36 | 34 30 20 20 49 46 20 54 |TURN .16|40  IF T|
|00001fb0| 4a 20 3d 20 31 20 20 54 | 48 45 4e 20 20 52 45 54 |J = 1  T|HEN  RET|
|00001fc0| 55 52 4e 20 0a 31 36 35 | 30 20 42 25 28 42 4c 20 |URN .165|0 B%(BL |
|00001fd0| 2d 31 30 29 20 3d 20 42 | 25 28 42 4c 20 2d 31 30 |-10) = B|%(BL -10|
|00001fe0| 29 20 2b 31 3a 54 4a 20 | 3d 20 54 4a 20 2d 31 0a |) +1:TJ |= TJ -1.|
|00001ff0| 31 36 36 30 20 20 49 46 | 20 42 25 28 42 4c 20 2d |1660  IF| B%(BL -|
|00002000| 31 30 29 20 3d 20 34 20 | 20 54 48 45 4e 20 20 47 |10) = 4 | THEN  G|
|00002010| 4f 53 55 42 20 31 37 38 | 30 3a 53 28 43 29 20 3d |OSUB 178|0:S(C) =|
|00002020| 20 53 28 43 29 20 2b 31 | 3a 4d 56 20 3d 20 31 0a | S(C) +1|:MV = 1.|
|00002030| 31 36 37 30 20 20 52 45 | 54 55 52 4e 20 0a 31 36 |1670  RE|TURN .16|
|00002040| 38 30 20 20 52 45 4d 20 | 20 43 48 45 43 4b 20 53 |80  REM | CHECK S|
|00002050| 54 41 54 55 53 20 4f 46 | 20 48 4f 52 2e 20 4d 4f |TATUS OF| HOR. MO|
|00002060| 56 45 0a 31 36 39 30 20 | 20 49 46 20 54 4a 20 3d |VE.1690 | IF TJ =|
|00002070| 20 31 31 20 20 54 48 45 | 4e 20 54 4a 20 3d 20 31 | 11  THE|N TJ = 1|
|00002080| 30 3a 46 4c 20 3d 20 31 | 0a 31 37 30 30 20 20 47 |0:FL = 1|.1700  G|
|00002090| 4f 53 55 42 20 31 37 36 | 30 0a 31 37 31 30 20 20 |OSUB 176|0.1710  |
|000020a0| 49 46 20 42 25 28 42 4c | 29 20 3d 20 32 20 20 54 |IF B%(BL|) = 2  T|
|000020b0| 48 45 4e 20 41 20 3d 20 | 41 20 2b 31 3a 20 50 4f |HEN A = |A +1: PO|
|000020c0| 50 20 3a 20 47 4f 54 4f | 20 31 30 35 30 0a 31 37 |P : GOTO| 1050.17|
|000020d0| 32 30 20 20 49 46 20 46 | 4c 20 20 54 48 45 4e 20 |20  IF F|L  THEN |
|000020e0| 46 4c 20 3d 20 30 3a 54 | 4a 20 3d 20 31 31 3a 20 |FL = 0:T|J = 11: |
|000020f0| 52 45 54 55 52 4e 20 0a | 31 37 33 30 20 20 49 46 |RETURN .|1730  IF|
|00002100| 20 54 4a 20 3d 20 31 20 | 20 54 48 45 4e 20 20 52 | TJ = 1 | THEN  R|
|00002110| 45 54 55 52 4e 20 0a 31 | 37 34 30 20 20 49 46 20 |ETURN .1|740  IF |
|00002120| 42 25 28 42 4c 20 2d 31 | 30 29 20 3d 20 32 20 20 |B%(BL -1|0) = 2  |
|00002130| 54 48 45 4e 20 41 20 3d | 20 41 20 2b 31 3a 20 50 |THEN A =| A +1: P|
|00002140| 4f 50 20 3a 20 47 4f 54 | 4f 20 31 30 35 30 0a 31 |OP : GOT|O 1050.1|
|00002150| 37 35 30 20 20 52 45 54 | 55 52 4e 20 0a 31 37 36 |750  RET|URN .176|
|00002160| 30 20 42 4c 20 3d 20 28 | 54 4a 20 2d 31 29 20 2a |0 BL = (|TJ -1) *|
|00002170| 31 30 20 2b 54 49 3a 20 | 52 45 54 55 52 4e 20 0a |10 +TI: |RETURN .|
|00002180| 31 37 37 30 20 20 52 45 | 4d 20 20 44 52 41 57 20 |1770  RE|M  DRAW |
|00002190| 50 49 45 43 45 0a 31 37 | 38 30 20 20 49 46 20 43 |PIECE.17|80  IF C|
|000021a0| 20 20 54 48 45 4e 20 53 | 20 3d 20 34 3a 20 47 4f |  THEN S| = 4: GO|
|000021b0| 54 4f 20 31 38 30 30 0a | 31 37 39 30 20 53 20 3d |TO 1800.|1790 S =|
|000021c0| 20 35 0a 31 38 30 30 20 | 20 47 4f 53 55 42 20 31 | 5.1800 | GOSUB 1|
|000021d0| 38 33 30 3a 20 58 44 52 | 41 57 20 53 20 41 54 20 |830: XDR|AW S AT |
|000021e0| 54 58 2c 54 59 0a 31 38 | 31 30 20 20 52 45 54 55 |TX,TY.18|10  RETU|
|000021f0| 52 4e 20 0a 31 38 32 30 | 20 20 52 45 4d 20 20 50 |RN .1820|  REM  P|
|00002200| 4f 53 49 54 49 4f 4e 20 | 50 4c 41 59 45 52 20 4d |OSITION |PLAYER M|
|00002210| 41 52 4b 45 52 0a 31 38 | 33 30 20 54 58 20 3d 20 |ARKER.18|30 TX = |
|00002220| 36 36 20 2b 28 54 49 20 | 2a 31 33 29 3a 54 59 20 |66 +(TI |*13):TY |
|00002230| 3d 20 31 32 20 2b 28 54 | 4a 20 2a 31 33 29 3a 20 |= 12 +(T|J *13): |
|00002240| 52 45 54 55 52 4e 20 0a | 31 38 34 30 20 20 52 45 |RETURN .|1840  RE|
|00002250| 4d 20 20 55 50 44 41 54 | 45 20 53 43 4f 52 45 0a |M  UPDAT|E SCORE.|
|00002260| 31 38 35 30 20 20 49 46 | 20 43 20 3d 20 31 20 20 |1850  IF| C = 1  |
|00002270| 54 48 45 4e 20 53 43 24 | 20 3d 20 20 53 54 52 24 |THEN SC$| =  STR$|
|00002280| 28 53 28 31 29 29 3a 20 | 47 4f 54 4f 20 31 38 37 |(S(1)): |GOTO 187|
|00002290| 30 0a 31 38 36 30 20 53 | 43 24 20 3d 20 20 53 54 |0.1860 S|C$ =  ST|
|000022a0| 52 24 28 53 28 30 29 29 | 0a 31 38 37 30 20 20 49 |R$(S(0))|.1870  I|
|000022b0| 46 20 20 4c 45 4e 28 53 | 43 24 29 20 3c 32 20 20 |F  LEN(S|C$) <2  |
|000022c0| 54 48 45 4e 20 53 43 24 | 20 3d 20 22 30 22 20 2b |THEN SC$| = "0" +|
|000022d0| 53 43 24 3a 20 47 4f 54 | 4f 20 31 38 37 30 0a 31 |SC$: GOT|O 1870.1|
|000022e0| 38 38 30 20 58 20 3d 20 | 32 34 30 3a 20 49 46 20 |880 X = |240: IF |
|000022f0| 43 20 3d 20 31 20 20 54 | 48 45 4e 20 59 20 3d 20 |C = 1  T|HEN Y = |
|00002300| 37 30 3a 20 47 4f 54 4f | 20 31 39 30 30 0a 31 38 |70: GOTO| 1900.18|
|00002310| 39 30 20 59 20 3d 20 31 | 30 30 0a 31 39 30 30 20 |90 Y = 1|00.1900 |
|00002320| 20 46 4f 52 20 49 20 3d | 20 31 20 54 4f 20 32 3a | FOR I =| 1 TO 2:|
|00002330| 53 20 3d 20 20 41 53 43 | 28 20 4d 49 44 24 20 28 |S =  ASC|( MID$ (|
|00002340| 53 43 24 2c 49 2c 31 29 | 29 20 2d 33 37 3a 20 58 |SC$,I,1)|) -37: X|
|00002350| 44 52 41 57 20 53 20 41 | 54 20 58 2c 59 3a 58 20 |DRAW S A|T X,Y:X |
|00002360| 3d 20 58 20 2b 36 3a 20 | 4e 45 58 54 20 0a 31 39 |= X +6: |NEXT .19|
|00002370| 31 30 20 20 49 46 20 43 | 20 3d 20 31 20 20 54 48 |10  IF C| = 1  TH|
|00002380| 45 4e 20 54 24 28 43 29 | 20 3d 20 53 43 24 3a 20 |EN T$(C)| = SC$: |
|00002390| 52 45 54 55 52 4e 20 0a | 31 39 32 30 20 54 24 28 |RETURN .|1920 T$(|
|000023a0| 43 29 20 3d 20 53 43 24 | 3a 20 52 45 54 55 52 4e |C) = SC$|: RETURN|
|000023b0| 20 0a 31 39 33 30 20 20 | 52 45 4d 20 20 49 4e 53 | .1930  |REM  INS|
|000023c0| 54 52 55 43 54 49 4f 4e | 53 0a 31 39 34 30 20 20 |TRUCTION|S.1940  |
|000023d0| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 22 54 |PRINT : |PRINT "T|
|000023e0| 68 65 20 6f 62 6a 65 63 | 74 20 6f 66 20 43 4f 4e |he objec|t of CON|
|000023f0| 4e 45 43 54 49 4f 4e 20 | 69 73 20 74 6f 20 70 6c |NECTION |is to pl|
|00002400| 61 63 65 20 20 20 20 68 | 6f 72 69 7a 6f 6e 74 61 |ace    h|orizonta|
|00002410| 6c 20 61 6e 64 20 76 65 | 72 74 69 63 61 6c 20 6c |l and ve|rtical l|
|00002420| 69 6e 65 73 20 6f 6e 20 | 74 68 65 20 20 20 20 67 |ines on |the    g|
|00002430| 61 6d 65 20 67 72 69 64 | 20 74 6f 20 6d 61 6b 65 |ame grid| to make|
|00002440| 20 61 20 73 71 75 61 72 | 65 2e 22 0a 31 39 35 30 | a squar|e.".1950|
|00002450| 20 20 50 52 49 4e 54 20 | 3a 20 50 52 49 4e 54 20 |  PRINT |: PRINT |
|00002460| 22 46 69 72 73 74 2c 20 | 64 65 63 69 64 65 20 69 |"First, |decide i|
|00002470| 66 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 64 72 |f you wa|nt to dr|
|00002480| 61 77 20 61 20 20 20 20 | 20 68 6f 72 69 7a 6f 6e |aw a    | horizon|
|00002490| 74 61 6c 20 6f 72 20 76 | 65 72 74 69 63 61 6c 20 |tal or v|ertical |
|000024a0| 6c 69 6e 65 20 62 79 20 | 65 6e 74 65 72 69 6e 67 |line by |entering|
|000024b0| 20 27 48 27 20 6f 72 20 | 27 56 27 2e 20 54 68 65 | 'H' or |'V'. The|
|000024c0| 20 6c 69 6e 65 20 69 73 | 20 74 68 65 6e 20 6d 6f | line is| then mo|
|000024d0| 76 65 64 20 6f 6e 22 0a | 31 39 36 30 20 20 50 52 |ved on".|1960  PR|
|000024e0| 49 4e 54 20 22 74 68 65 | 20 67 72 69 64 20 77 69 |INT "the| grid wi|
|000024f0| 74 68 20 74 68 65 20 6c | 65 66 74 20 61 6e 64 20 |th the l|eft and |
|00002500| 72 69 67 68 74 20 61 72 | 72 6f 77 20 20 6b 65 79 |right ar|row  key|
|00002510| 73 2e 20 50 72 65 73 73 | 20 74 68 65 20 52 45 54 |s. Press| the RET|
|00002520| 55 52 4e 20 6b 65 79 20 | 74 6f 20 70 6c 61 63 65 |URN key |to place|
|00002530| 20 74 68 65 20 6c 69 6e | 65 2e 20 59 6f 75 20 6d | the lin|e. You m|
|00002540| 61 79 20 63 68 61 6e 67 | 65 20 74 68 65 20 74 79 |ay chang|e the ty|
|00002550| 70 65 20 6f 66 20 6c 69 | 6e 65 22 0a 31 39 37 30 |pe of li|ne".1970|
|00002560| 20 20 50 52 49 4e 54 20 | 22 73 65 6c 65 63 74 65 |  PRINT |"selecte|
|00002570| 64 20 62 79 20 65 6e 74 | 65 72 69 6e 67 20 61 6e |d by ent|ering an|
|00002580| 20 27 48 27 20 77 68 69 | 6c 65 20 69 6e 20 74 68 | 'H' whi|le in th|
|00002590| 65 76 65 72 74 69 63 61 | 6c 20 6c 69 6e 65 20 6d |evertica|l line m|
|000025a0| 6f 64 65 20 6f 72 20 27 | 56 27 20 66 72 6f 6d 20 |ode or '|V' from |
|000025b0| 74 68 65 20 20 20 20 20 | 20 68 6f 72 69 7a 6f 6e |the     | horizon|
|000025c0| 74 61 6c 20 6d 6f 64 65 | 2e 22 0a 31 39 38 30 20 |tal mode|.".1980 |
|000025d0| 20 50 52 49 4e 54 20 3a | 20 50 52 49 4e 54 20 22 | PRINT :| PRINT "|
|000025e0| 54 68 65 20 67 61 6d 65 | 20 65 6e 64 73 20 77 68 |The game| ends wh|
|000025f0| 65 6e 20 65 69 74 68 65 | 72 20 79 6f 75 20 6f 72 |en eithe|r you or|
|00002600| 20 74 68 65 20 20 20 20 | 63 6f 6d 70 75 74 65 72 | the    |computer|
|00002610| 20 63 61 70 74 75 72 65 | 73 20 35 31 20 73 71 75 | capture|s 51 squ|
|00002620| 61 72 65 73 2e 20 42 79 | 20 74 68 65 20 20 20 20 |ares. By| the    |
|00002630| 77 61 79 2c 20 74 68 65 | 20 63 6f 6d 70 75 74 65 |way, the| compute|
|00002640| 72 20 6c 65 61 72 6e 73 | 20 77 69 74 68 20 65 61 |r learns| with ea|
|00002650| 63 68 20 67 61 6d 65 2e | 22 0a 31 39 39 30 20 20 |ch game.|".1990  |
|00002660| 50 52 49 4e 54 20 22 50 | 72 65 73 73 20 61 20 6b |PRINT "P|ress a k|
|00002670| 65 79 20 74 6f 20 62 65 | 67 69 6e 2e 22 3a 20 50 |ey to be|gin.": P|
|00002680| 4f 4b 45 20 34 39 31 36 | 38 2c 30 3a 20 52 45 4d |OKE 4916|8,0: REM|
|00002690| 20 43 4c 45 41 52 20 4b | 45 59 42 44 2e 20 53 54 | CLEAR K|EYBD. ST|
|000026a0| 52 4f 42 45 0a 32 30 30 | 30 20 58 20 3d 20 20 50 |ROBE.200|0 X =  P|
|000026b0| 45 45 4b 28 20 2d 31 36 | 33 38 34 29 3a 20 49 46 |EEK( -16|384): IF|
|000026c0| 20 58 20 3e 31 32 37 20 | 20 54 48 45 4e 20 20 50 | X >127 | THEN  P|
|000026d0| 4f 4b 45 20 20 2d 31 36 | 33 36 38 2c 30 3a 20 56 |OKE  -16|368,0: V|
|000026e0| 54 41 42 20 34 3a 20 43 | 41 4c 4c 20 20 2d 39 35 |TAB 4: C|ALL  -95|
|000026f0| 38 3a 20 52 45 54 55 52 | 4e 20 0a 32 30 31 30 20 |8: RETUR|N .2010 |
|00002700| 20 47 4f 54 4f 20 32 30 | 30 30 0a 32 30 32 30 20 | GOTO 20|00.2020 |
|00002710| 20 52 45 4d 20 20 45 52 | 52 4f 52 20 52 54 4e 2e | REM  ER|ROR RTN.|
|00002720| 0a 32 30 33 30 20 45 4c | 20 3d 20 20 50 45 45 4b |.2030 EL| =  PEEK|
|00002730| 28 32 31 38 29 20 2b 20 | 50 45 45 4b 28 32 31 39 |(218) + |PEEK(219|
|00002740| 29 20 2a 32 35 36 0a 32 | 30 34 30 20 20 49 46 20 |) *256.2|040  IF |
|00002750| 45 4c 20 3d 20 31 30 30 | 20 20 54 48 45 4e 20 20 |EL = 100|  THEN  |
|00002760| 48 4f 4d 45 20 3a 20 56 | 54 41 42 20 31 32 3a 20 |HOME : V|TAB 12: |
|00002770| 50 52 49 4e 54 20 22 41 | 4e 20 45 52 52 4f 52 20 |PRINT "A|N ERROR |
|00002780| 4f 43 43 55 52 52 45 44 | 20 54 52 59 49 4e 47 20 |OCCURRED| TRYING |
|00002790| 54 4f 20 4c 4f 41 44 20 | 54 48 45 20 20 20 20 20 |TO LOAD |THE     |
|000027a0| 53 48 41 50 45 20 54 41 | 42 4c 45 2e 20 50 4c 45 |SHAPE TA|BLE. PLE|
|000027b0| 41 53 45 20 54 52 59 20 | 41 47 41 49 4e 2e 22 3a |ASE TRY |AGAIN.":|
|000027c0| 20 45 4e 44 20 0a 32 30 | 35 30 20 20 48 4f 4d 45 | END .20|50  HOME|
|000027d0| 20 3a 20 50 4f 4b 45 20 | 20 2d 31 36 33 30 33 2c | : POKE | -16303,|
|000027e0| 30 3a 41 24 20 3d 20 22 | 41 52 45 20 59 4f 55 20 |0:A$ = "|ARE YOU |
|000027f0| 53 55 52 45 20 59 4f 55 | 20 57 41 4e 54 20 54 4f |SURE YOU| WANT TO|
|00002800| 20 51 55 49 54 3f 22 3a | 20 48 54 41 42 20 32 30 | QUIT?":| HTAB 20|
|00002810| 20 2d 20 49 4e 54 28 20 | 4c 45 4e 28 41 24 29 2f | - INT( |LEN(A$)/|
|00002820| 32 29 3a 20 56 54 41 42 | 20 31 31 3a 20 50 52 49 |2): VTAB| 11: PRI|
|00002830| 4e 54 20 41 24 3b 3a 20 | 49 4e 50 55 54 20 22 22 |NT A$;: |INPUT ""|
|00002840| 3b 41 24 3a 41 24 20 3d | 20 20 4c 45 46 54 24 28 |;A$:A$ =|  LEFT$(|
|00002850| 41 24 2c 31 29 0a 32 30 | 36 30 20 20 49 46 20 41 |A$,1).20|60  IF A|
|00002860| 24 20 3c 20 3e 22 59 22 | 20 20 41 4e 44 20 41 24 |$ < >"Y"|  AND A$|
|00002870| 20 3c 20 3e 22 79 22 20 | 20 54 48 45 4e 20 20 50 | < >"y" | THEN  P|
|00002880| 4f 4b 45 20 20 2d 31 36 | 33 30 34 2c 30 3a 20 47 |OKE  -16|304,0: G|
|00002890| 4f 54 4f 20 35 34 30 0a | 32 30 37 30 20 20 54 45 |OTO 540.|2070  TE|
|000028a0| 58 54 20 3a 20 48 4f 4d | 45 20 3a 20 45 4e 44 20 |XT : HOM|E : END |
+--------+-------------------------+-------------------------+--------+--------+