PEGS/VIC

00000000: 01 08 27 08 0A 00 86 50  28 31 35 29 2C 4F 28 38  |..'....P(15),O(8|
00000010: 29 2C 43 28 38 29 2C 54  43 28 31 34 2C 31 35 29  |),C(8),TC(14,15)|
00000020: 2C 4D 24 28 33 36 29 00  66 08 14 00 42 4C 24 B2  |,M$(36).f...BL$.|
00000030: 22 22 3A 81 49 B2 31 A4  32 31 3A 42 4C 24 B2 42  |"":.I.1.21:BL$.B|
00000040: 4C 24 AA 22 20 22 3A 82  3A 44 43 B2 33 33 37 39  |L$." ":.:DC.3379|
00000050: 32 3A 43 B2 36 34 3A 50  B2 38 32 38 3A 42 B2 32  |2:C.64:P.828:B.2|
00000060: 3A 53 50 B2 33 32 00 7A  08 1E 00 81 49 B2 31 A4  |:SP.32.z....I.1.|
00000070: 31 35 3A 87 50 28 49 29  3A 82 00 9C 08 28 00 81  |15:.P(I):....(..|
00000080: 49 B2 31 A4 38 3A 87 43  28 49 29 3A 82 3A 81 49  |I.1.8:.C(I):.:.I|
00000090: B2 31 A4 38 3A 87 4F 28  49 29 3A 82 00 AF 08 32  |.1.8:.O(I):....2|
000000A0: 00 81 49 B2 31 A4 31 38  3A 87 4D 24 28 49 29 00  |..I.1.18:.M$(I).|
000000B0: E1 08 3C 00 4D 24 28 49  AA 31 38 29 B2 C9 28 4D  |..<.M$(I.18)..(M|
000000C0: 24 28 49 29 2C 31 29 AA  CA 28 4D 24 28 49 29 2C  |$(I),1)..(M$(I),|
000000D0: 32 2C 31 29 AA C8 28 4D  24 28 49 29 2C 31 29 3A  |2,1)..(M$(I),1):|
000000E0: 82 00 F9 08 46 00 81 49  B2 50 A4 50 AA 31 35 3A  |....F..I.P.P.15:|
000000F0: 87 44 3A 97 49 2C 44 3A  82 00 0E 09 50 00 99 22  |.D:.I,D:....P.."|
00000100: 93 90 22 3B 3A 97 33 36  38 37 39 2C 33 30 00 30  |..";:.36879,30.0|
00000110: 09 5A 00 99 22 12 1F 20  20 20 20 20 20 20 20 20  |.Z.."..         |
00000120: 50 45 47 53 20 20 20 20  20 20 20 20 20 92 22 3B  |PEGS         .";|
00000130: 00 62 09 64 00 9E 50 2C  32 2C 30 3A 99 22 90 53  |.b.d..P,2,0:.".S|
00000140: 43 4F 52 45 22 3B 53 3A  81 49 B2 31 A4 31 35 3A  |CORE";S:.I.1.15:|
00000150: 97 50 28 49 29 2C 49 3A  97 50 28 49 29 AA 44 43  |.P(I),I:.P(I).DC|
00000160: 2C 30 00 9B 09 6E 00 82  3A 81 49 B2 32 A4 31 35  |,0...n..:.I.2.15|
00000170: 3A 81 4A B2 31 A4 38 3A  97 50 28 49 29 AA 4F 28  |:.J.1.8:.P(I).O(|
00000180: 4A 29 2C 43 28 4A 29 3A  97 50 28 49 29 AA 4F 28  |J),C(J):.P(I).O(|
00000190: 4A 29 AA 44 43 2C 42 3A  82 3A 82 00 C6 09 78 00  |J).DC,B:.:....x.|
000001A0: 81 49 B2 31 A4 38 3A 97  50 28 31 29 AA 4F 28 49  |.I.1.8:.P(1).O(I|
000001B0: 29 AA 44 43 2C 42 3A 97  50 28 31 29 AA 4F 28 49  |).DC,B:.P(1).O(I|
000001C0: 29 2C 53 50 3A 82 00 F0  09 82 00 54 B2 31 3A 81  |),SP:......T.1:.|
000001D0: 49 B2 32 A4 31 35 3A 54  43 28 54 2C 49 29 B2 31  |I.2.15:TC(T,I).1|
000001E0: 3A 82 3A 54 43 28 54 2C  31 29 B2 30 3A 53 B2 30  |:.:TC(T,1).0:S.0|
000001F0: 00 17 0A 8C 00 9E 50 2C  32 31 2C 30 3A 99 42 4C  |......P,21,0:.BL|
00000200: 24 3A 9E 50 2C 32 31 2C  35 3A 99 22 59 4F 55 52  |$:.P,21,5:."YOUR|
00000210: 20 4D 4F 56 45 22 3B 00  2F 0A 96 00 85 41 24 3A  | MOVE";./....A$:|
00000220: 8B 54 B1 31 AF 41 24 B2  22 5F 22 A7 33 33 30 00  |.T.1.A$."_".330.|
00000230: 41 0A A0 00 8B C3 28 41  24 29 B3 B1 32 A7 33 31  |A.....(A$)..2.31|
00000240: 30 00 7B 0A AA 00 42 4D  B2 31 3A 81 49 B2 31 A4  |0.{...BM.1:.I.1.|
00000250: 33 36 3A 8B 41 24 B2 C8  28 4D 24 28 49 29 2C 31  |36:.A$..(M$(I),1|
00000260: 29 AA C9 28 4D 24 28 49  29 2C 31 29 A7 42 4D B2  |)..(M$(I),1).BM.|
00000270: 30 3A 4D 43 B2 49 3A 49  B2 33 36 00 8B 0A B4 00  |0:MC.I:I.36.....|
00000280: 82 3A 8B 42 4D B1 30 A7  33 31 30 00 C5 0A BE 00  |.:.BM.0.310.....|
00000290: 4D 46 B2 C6 28 C8 28 41  24 2C 31 29 29 AB 43 3A  |MF..(.(A$,1)).C:|
000002A0: 4A 50 B2 C6 28 CA 28 4D  24 28 4D 43 29 2C 32 2C  |JP..(.(M$(MC),2,|
000002B0: 31 29 29 AB 43 3A 4D 54  B2 C6 28 C9 28 41 24 2C  |1)).C:MT..(.(A$,|
000002C0: 31 29 29 AB 43 00 EF 0A  C8 00 8B 54 43 28 54 2C  |1)).C......TC(T,|
000002D0: 4D 46 29 B2 30 B0 54 43  28 54 2C 4D 54 29 B2 31  |MF).0.TC(T,MT).1|
000002E0: B0 54 43 28 54 2C 4A 50  29 B2 30 A7 33 31 30 00  |.TC(T,JP).0.310.|
000002F0: 1C 0B D2 00 81 49 B2 31  A4 38 3A 97 50 28 4D 46  |.....I.1.8:.P(MF|
00000300: 29 AA 4F 28 49 29 2C 53  50 3A 97 50 28 4D 54 29  |).O(I),SP:.P(MT)|
00000310: AA 4F 28 49 29 2C 43 28  49 29 3A 82 00 3D 0B DC  |.O(I),C(I):..=..|
00000320: 00 81 49 B2 31 A4 38 3A  97 50 28 4A 50 29 AA 4F  |..I.1.8:.P(JP).O|
00000330: 28 49 29 2C 53 50 3A 82  3A 8D 34 38 30 00 63 0B  |(I),SP:.:.480.c.|
00000340: E6 00 54 B2 54 AA 31 3A  81 49 B2 31 A4 31 35 3A  |..T.T.1:.I.1.15:|
00000350: 54 43 28 54 2C 49 29 B2  54 43 28 54 AB 31 2C 49  |TC(T,I).TC(T.1,I|
00000360: 29 3A 82 00 8E 0B F0 00  54 43 28 54 2C 4D 46 29  |):......TC(T,MF)|
00000370: B2 30 3A 54 43 28 54 2C  4D 54 29 B2 31 3A 54 43  |.0:TC(T,MT).1:TC|
00000380: 28 54 2C 4A 50 29 B2 30  3A 53 B2 53 AA 31 00 B4  |(T,JP).0:S.S.1..|
00000390: 0B FA 00 9E 50 2C 32 2C  30 3A 99 22 53 43 4F 52  |....P,2,0:."SCOR|
000003A0: 45 22 3B 53 3B 22 9D 20  22 3A 8B 53 B2 31 33 A7  |E";S;". ":.S.13.|
000003B0: 89 34 36 30 00 DD 0B 04  01 4C 43 B2 30 3A 81 49  |.460.....LC.0:.I|
000003C0: B2 31 A4 33 36 3A 58 B2  54 43 28 54 2C C6 28 C8  |.1.36:X.TC(T,.(.|
000003D0: 28 4D 24 28 49 29 2C 31  29 29 AB 43 29 00 13 0C  |(M$(I),1)).C)...|
000003E0: 0E 01 59 B2 54 43 28 54  2C C6 28 CA 28 4D 24 28  |..Y.TC(T,.(.(M$(|
000003F0: 49 29 2C 32 2C 31 29 29  AB 43 29 3A 5A B2 54 43  |I),2,1)).C):Z.TC|
00000400: 28 54 2C C6 28 C9 28 4D  24 28 49 29 2C 31 29 29  |(T,.(.(M$(I),1))|
00000410: AB 43 29 00 30 0C 18 01  8B 58 B1 30 A7 8B 59 B1  |.C).0....X.0..Y.|
00000420: 30 A7 8B 5A B2 30 A7 4C  43 B2 31 3A 49 B2 33 36  |0..Z.0.LC.1:I.36|
00000430: 00 40 0C 22 01 82 3A 8B  4C 43 B2 30 A7 33 37 30  |.@."..:.LC.0.370|
00000440: 00 49 0C 2C 01 89 31 34  30 00 72 0C 36 01 9E 50  |.I.,..140.r.6..P|
00000450: 2C 32 31 2C 30 3A 99 42  4C 24 3A 9E 50 2C 32 31  |,21,0:.BL$:.P,21|
00000460: 2C 35 3A 99 22 49 4C 4C  45 47 41 4C 20 4D 4F 56  |,5:."ILLEGAL MOV|
00000470: 45 22 00 AE 0C 40 01 97  33 36 38 37 38 2C 31 35  |E"...@..36878,15|
00000480: 3A 97 33 36 38 37 34 2C  31 32 39 3A 81 54 44 B2  |:.36874,129:.TD.|
00000490: 31 A4 36 30 30 3A 82 3A  97 33 36 38 37 38 2C 30  |1.600:.:.36878,0|
000004A0: 3A 97 33 36 38 37 34 2C  30 3A 89 31 34 30 00 C6  |:.36874,0:.140..|
000004B0: 0C 4A 01 54 B2 54 AB 31  3A 53 B2 53 AB 31 3A 81  |.J.T.T.1:S.S.1:.|
000004C0: 49 B2 31 A4 31 35 00 F8  0C 54 01 8B 54 43 28 54  |I.1.15...T..TC(T|
000004D0: 2C 49 29 B2 30 AF 54 43  28 54 AA 31 2C 49 29 B2  |,I).0.TC(T.1,I).|
000004E0: 31 A7 81 4A B2 31 A4 38  3A 97 50 28 49 29 AA 4F  |1..J.1.8:.P(I).O|
000004F0: 28 4A 29 2C 53 50 3A 82  00 2C 0D 5E 01 8B 54 43  |(J),SP:..,.^..TC|
00000500: 28 54 2C 49 29 B2 31 AF  54 43 28 54 AA 31 2C 49  |(T,I).1.TC(T.1,I|
00000510: 29 B2 30 A7 81 4A B2 31  A4 38 3A 97 50 28 49 29  |).0..J.1.8:.P(I)|
00000520: AA 4F 28 4A 29 2C 43 28  4A 29 3A 82 00 37 0D 68  |.O(J),C(J):..7.h|
00000530: 01 82 3A 89 32 35 30 00  74 0D 72 01 9E 50 2C 32  |..:.250.t.r..P,2|
00000540: 31 2C 30 3A 99 42 4C 24  3A 9E 50 2C 32 31 2C 37  |1,0:.BL$:.P,21,7|
00000550: 3A 99 22 47 41 4D 45 20  4F 56 45 52 22 3A 99 22  |:."GAME OVER":."|
00000560: 20 20 20 59 4F 55 52 20  53 43 4F 52 45 20 49 53  |   YOUR SCORE IS|
00000570: 22 3B 53 3B 00 84 0D 7C  01 81 49 B2 30 A4 34 31  |";S;...|..I.0.41|
00000580: 30 30 3A 82 00 B2 0D 86  01 9E 50 2C 32 31 2C 30  |00:.......P,21,0|
00000590: 3A 99 42 4C 24 3A 9E 50  2C 32 31 2C 32 3A 99 22  |:.BL$:.P,21,2:."|
000005A0: 20 50 4C 41 59 20 41 47  41 49 4E 20 28 59 2F 4E  | PLAY AGAIN (Y/N|
000005B0: 29 22 00 CF 0D 90 01 99  22 20 20 20 20 4F 52 20  |)"......"    OR |
000005C0: 42 41 43 4B 55 50 20 28  5F 29 3F 20 9D 22 3B 00  |BACKUP (_)? .";.|
000005D0: E5 0D 9A 01 97 31 39 38  2C 30 3A 92 31 39 38 2C  |.....198,0:.198,|
000005E0: 31 3A A1 41 24 00 F9 0D  A4 01 8B 41 24 B2 22 59  |1:.A$......A$."Y|
000005F0: 22 A7 53 B2 30 3A 89 38  30 00 18 0E AE 01 8B 41  |".S.0:.80......A|
00000600: 24 B2 22 5F 22 A7 9E 50  2C 32 32 2C 30 3A 99 42  |$."_"..P,22,0:.B|
00000610: 4C 24 3B 3A 89 33 33 30  00 29 0E B8 01 8B 41 24  |L$;:.330.)....A$|
00000620: B3 B1 22 4E 22 A7 34 31  30 00 34 0E C2 01 99 22  |.."N".410.4...."|
00000630: 93 22 3A 80 00 58 0E CC  01 9E 50 2C 32 31 2C 30  |.":..X....P,21,0|
00000640: 3A 99 42 4C 24 3A 9E 50  2C 32 31 2C 36 3A 99 22  |:.BL$:.P,21,6:."|
00000650: 59 4F 55 20 57 4F 4E 22  00 86 0E D6 01 81 20 51  |YOU WON"...... Q|
00000660: 31 B2 31 A4 32 30 3A 81  51 32 B2 32 34 A4 33 30  |1.1.20:.Q2.24.30|
00000670: 3A 97 33 36 38 37 39 2C  51 32 3A 82 51 32 2C 51  |:.36879,Q2:.Q2,Q|
00000680: 31 3A 89 33 39 30 00 B7  0E E0 01 97 33 36 38 37  |1:.390......3687|
00000690: 36 2C 31 38 30 3A 81 41  B2 31 35 A4 30 A9 AB 2E  |6,180:.A.15.0...|
000006A0: 33 3A 97 33 36 38 37 38  2C 41 3A 82 3A 97 33 36  |3:.36878,A:.:.36|
000006B0: 38 37 36 2C 30 3A 8E 00  EF 0E EA 01 83 20 34 31  |876,0:....... 41|
000006C0: 35 30 2C 34 32 33 36 2C  34 32 34 30 2C 34 33 32  |50,4236,4240,432|
000006D0: 32 2C 34 33 32 36 2C 34  33 33 30 2C 34 34 30 38  |2,4326,4330,4408|
000006E0: 2C 34 34 31 32 2C 34 34  31 36 2C 34 34 32 30 00  |,4412,4416,4420.|
000006F0: 0E 0F F4 01 83 20 34 34  39 34 2C 34 34 39 38 2C  |..... 4494,4498,|
00000700: 34 35 30 32 2C 34 35 30  36 2C 34 35 31 30 00 46  |4502,4506,4510.F|
00000710: 0F FE 01 83 20 38 35 2C  36 34 2C 37 33 2C 37 32  |.... 85,64,73,72|
00000720: 2C 37 35 2C 36 34 2C 37  34 2C 36 36 2C 2D 32 33  |,75,64,74,66,-23|
00000730: 2C 2D 32 32 2C 2D 32 31  2C 31 2C 32 33 2C 32 32  |,-22,-21,1,23,22|
00000740: 2C 32 31 2C 2D 31 00 70  0F 08 02 83 20 41 42 44  |,21,-1.p.... ABD|
00000750: 2C 41 43 46 2C 42 44 47  2C 42 45 49 2C 43 45 48  |,ACF,BDG,BEI,CEH|
00000760: 2C 43 46 4A 2C 44 45 46  2C 44 47 4B 2C 44 48 4D  |,CFJ,DEF,DGK,DHM|
00000770: 00 9A 0F 12 02 83 20 45  48 4C 2C 45 49 4E 2C 46  |...... EHL,EIN,F|
00000780: 49 4D 2C 46 4A 4F 2C 47  48 49 2C 48 49 4A 2C 4B  |IM,FJO,GHI,HIJ,K|
00000790: 4C 4D 2C 4C 4D 4E 2C 4D  4E 4F 00 DB 0F 1C 02 83  |LM,LMN,MNO......|
000007A0: 20 33 32 2C 31 35 35 2C  32 31 35 2C 31 33 38 2C  | 32,155,215,138,|
000007B0: 37 32 2C 33 32 2C 31 35  35 2C 32 31 35 2C 31 33  |72,32,155,215,13|
000007C0: 38 2C 31 36 38 2C 31 30  34 2C 31 37 30 2C 32 34  |8,168,104,170,24|
000007D0: 2C 37 36 2C 32 34 30 2C  32 35 35 00 00 00        |,76,240,255...  |

..'....P(15),O(8),C(8),TC(14,15),M$(36).
F...BL$."":.I.1.21:BL$.BL$." ":.:DC.3379
2:C.64:P.828:B.2:SP.32.Z....I.1.15:.P(I)
:....(..I.1.8:.C(I):.:.I.1.8:.O(I):....2
..I.1.18:.M$(I)...<.M$(I.18).I(M$(I),1).
J(M$(I),2,1).H(M$(I),1):....F..I.P.P.15:
.D:.I,D:....P.."..";:.36879,30.0.Z..".. 
        PEGS         .";.B.D..P,2,0:.".S
CORE";S:.I.1.15:.P(I),I:.P(I).DC,0...N..
:.I.2.15:.J.1.8:.P(I).O(J),C(J):.P(I).O(
J).DC,B:.:..F.X..I.1.8:.P(1).O(I).DC,B:.
P(1).O(I),SP:......T.1:.I.2.15:TC(T,I).1
:.:TC(T,1).0:S.0......P,21,0:.BL$:.P,21,
5:."YOUR MOVE";./....A$:.T.1.A$."_".330.
A. ..C(A$)..2.310.{...BM.1:.I.1.36:.A$.H
(M$(I),1).I(M$(I),1).BM.0:MC.I:I.36.....
.:.BM.0.310.E...MF.F(H(A$,1)).C:JP.F(J(M
$(MC),2,1)).C:MT.F(I(A$,1)).C...H..TC(T,
MF).0.TC(T,MT).1.TC(T,JP).0.310...R..I.1
.8:.P(MF).O(I),SP:.P(MT).O(I),C(I):..=..
..I.1.8:.P(JP).O(I),SP:.:.480.C...T.T.1:
.I.1.15:TC(T,I).TC(T.1,I):......TC(T,MF)
.0:TC(T,MT).1:TC(T,JP).0:S.S.1......P,2,
0:."SCORE";S;". ":.S.13..460.....LC.0:.I
.1.36:X.TC(T,F(H(M$(I),1)).C).....Y.TC(T
,F(J(M$(I),2,1)).C):Z.TC(T,F(I(M$(I),1))
.C).0....X.0..Y.0..Z.0.LC.1:I.36.@."..:.
LC.0.370.I.,..140.R.6..P,21,0:.BL$:.P,21
,5:."ILLEGAL MOVE"...@..36878,15:.36874,
129:.TD.1.600:.:.36878,0:.36874,0:.140.F
.J.T.T.1:S.S.1:.I.1.15...T..TC(T,I).0.TC
(T.1,I).1..J.1.8:.P(I).O(J),SP:..,.^..TC
(T,I).1.TC(T.1,I).0..J.1.8:.P(I).O(J),C(
J):..7.H..:.250.T.R..P,21,0:.BL$:.P,21,7
:."GAME OVER":."   YOUR SCORE IS";S;...|
..I.0.4100:.......P,21,0:.BL$:.P,21,2:."
 PLAY AGAIN (Y/N)".O...."    OR BACKUP (
_)? .";......198,0:.198,1:.A$......A$."Y
".S.0:.80......A$."_"..P,22,0:.BL$;:.330
.)....A$.."N".410.4.B..".":..X.L..P,21,0
:.BL$:.P,21,6:."YOU WON"...V.. Q1.1.20:.
Q2.24.30:.36879,Q2:.Q2,Q1:.390......3687
6,180:.A.15.0...3:.36878,A:.:.36876,0:..
..... 4150,4236,4240,4322,4326,4330,4408
,4412,4416,4420...... 4494,4498,4502,450
6,4510.F.... 85,64,73,72,75,64,74,66,-23
,-22,-21,1,23,22,21,-1.P.... ABD,ACF,BDG
,BEI,CEH,CFJ,DEF,DGK,DHM...... EHL,EIN,F
IM,FJO,GHI,HIJ,KLM,LMN,MNO...... 32,155,
215,138,72,32,155,215,138,168,104,170,24
,76,240,255...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL