SINNERS
FILE INFORMATION
FILENAME(S): SINNERS
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 21:09:23
APPEARS ON: 1 disk(s)
FILE HASH
1c5889f02b979b1f84ed8dbe836b4311b37b8511b670069b192d2287c095e8ff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEL | SINNERS | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 8F 20 4E 41 4D 45 20 3A 53 49 |....d.. NAME :SI| 00000010: 4E 4E 45 52 53 00 2C 08 E8 03 8F 2A 2A 2A 49 4E |NNERS.,....***IN| 00000020: 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 5C 08 4C |ITIALIZATION.\.L| 00000030: 04 86 20 44 28 36 2C 36 29 2C 50 28 31 32 2C 36 |.. D(6,6),P(12,6| 00000040: 29 2C 4D 28 34 29 2C 52 28 34 29 2C 43 28 34 29 |),M(4),R(4),C(4)| 00000050: 2C 48 28 32 2C 33 29 2C 55 28 34 29 00 7A 08 51 |,H(2,3),U(4).z.Q| 00000060: 04 52 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 |.R$."...........| 00000070: 11 11 11 11 11 11 11 11 11 22 00 A2 08 52 04 43 |........."...R.C| 00000080: 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............| 00000090: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000000A0: 1D 22 00 D3 08 53 04 53 50 24 B2 22 20 20 20 20 |."...S.SP$." | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 22 00 F6 08 56 04 81 20 4A B2 31 20 A4 20 | "...V.. J.1 . | 000000E0: 34 3A 87 20 4D 28 4A 29 2C 52 28 4A 29 2C 43 28 |4:. M(J),R(J),C(| 000000F0: 4A 29 3A 82 20 4A 00 1A 09 60 04 83 20 38 35 2C |J):. J...`.. 85,| 00000100: 2D 31 2C 30 2C 38 32 2C 30 2C 31 2C 36 38 2C 31 |-1,0,82,0,1,68,1| 00000110: 2C 30 2C 37 36 2C 30 2C 2D 31 00 4E 09 6A 04 81 |,0,76,0,-1.N.j..| 00000120: 20 4A B2 31 20 A4 20 35 3A 81 20 4B B2 31 20 A4 | J.1 . 5:. K.1 .| 00000130: 20 35 3A 44 28 4A 2C 4B 29 B2 36 34 AA 28 4A AB | 5:D(J,K).64.(J.| 00000140: 31 29 AC 35 AA 4B 3A 82 20 4B 3A 82 20 4A 00 66 |1).5.K:. K:. J.f| 00000150: 09 74 04 81 20 49 B2 31 20 A4 20 32 3A 81 20 4A |.t.. I.1 . 2:. J| 00000160: B2 31 20 A4 20 33 00 7E 09 7E 04 3A 48 28 49 2C |.1 . 3.~.~.:H(I,| 00000170: 4A 29 B2 31 AA B5 28 35 AC BB 28 31 29 29 00 8F |J).1..(5..(1))..| 00000180: 09 88 04 3A 81 20 4B B2 31 20 A4 20 4A AB 31 00 |...:. K.1 . J.1.| 00000190: B3 09 92 04 3A 8B 20 4B B3 4A 20 A7 20 8B 20 48 |....:. K.J . . H| 000001A0: 28 49 2C 4A 29 B2 48 28 49 2C 4B 29 20 A7 20 31 |(I,J).H(I,K) . 1| 000001B0: 31 35 30 00 BD 09 9C 04 3A 20 82 20 4B 00 CA 09 |150.....: . K...| 000001C0: A6 04 82 20 20 4A 3A 82 20 49 00 F1 09 B0 04 81 |... J:. I......| 000001D0: 20 4A B2 31 20 A4 20 33 3A 44 28 48 28 31 2C 4A | J.1 . 3:D(H(1,J| 000001E0: 29 2C 48 28 32 2C 4A 29 29 B2 36 36 36 3A 82 20 |),H(2,J)).666:. | 000001F0: 4A 00 11 0A BA 04 53 31 24 B2 22 12 9C D5 41 C9 |J.....S1$."...A.| 00000200: 11 9D 9D 9D 20 D3 20 11 9D 9D 9D 20 3D 20 92 9A |.... . .... = ..| 00000210: 22 00 31 0A BF 04 53 32 24 B2 22 12 9C D5 5A C9 |".1...S2$."...Z.| 00000220: 11 9D 9D 9D 20 D3 20 11 9D 9D 9D 20 3D 20 92 9A |.... . .... = ..| 00000230: 22 00 4F 0A C4 04 46 44 24 B2 22 9E DB B2 DB 11 |".O...FD$.".....| 00000240: 9D 9D 9D D5 D1 C9 11 9D 9D 9D 23 23 23 9A 22 00 |..........###.".| 00000250: 83 0A CE 04 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........| 00000260: 1D 1D 1D 1D 22 3B 53 31 24 3B 22 1D 91 91 22 3B |....";S1$;"...";| 00000270: 46 44 24 3B 22 1D 91 91 22 3B 53 32 24 3B 22 11 |FD$;"...";S2$;".| 00000280: 11 11 22 00 A9 0A D8 04 99 22 57 45 4C 43 4F 4D |.."......"WELCOM| 00000290: 45 20 54 4F 20 20 11 11 11 11 11 53 20 49 20 4E |E TO .....S I N| 000002A0: 20 4E 20 45 20 52 20 53 22 00 D8 0A E2 04 99 22 | N E R S"......"| 000002B0: 11 11 11 11 11 11 11 11 57 41 4E 54 20 49 4E 53 |........WANT INS| 000002C0: 54 52 55 43 54 49 4F 4E 53 20 28 59 45 53 20 4F |TRUCTIONS (YES O| 000002D0: 52 20 4E 4F 29 3F 22 3B 00 E3 0A E7 04 8D 20 36 |R NO)?";...... 6| 000002E0: 30 30 30 00 F8 0A EC 04 8B 20 42 24 B2 22 4E 4F |000...... B$."NO| 000002F0: 22 20 A7 20 31 33 30 30 00 15 0B F6 04 8B 20 42 |" . 1300...... B| 00000300: 24 B2 22 59 53 22 20 A7 20 8D 20 39 30 30 30 3A |$."YS" . . 9000:| 00000310: 89 31 33 30 30 00 1B 0B FB 04 99 00 40 0B 00 05 |.1300.......@...| 00000320: 99 22 50 4C 45 41 53 45 20 54 59 50 45 20 59 45 |."PLEASE TYPE YE| 00000330: 53 20 4F 52 20 4E 4F 22 3B 3A 89 20 31 32 35 35 |S OR NO";:. 1255| 00000340: 00 4B 0B 14 05 8D 20 38 30 30 30 00 6C 0B D0 07 |.K.... 8000.l...| 00000350: 8F 2A 2A 2A 47 45 4E 45 52 41 54 45 20 43 4F 4D |.***GENERATE COM| 00000360: 50 55 54 45 52 27 53 20 4D 4F 56 45 00 75 0B 34 |PUTER'S MOVE.u.4| 00000370: 08 4D 4F B2 30 00 8D 0B 3E 08 81 20 4A B2 31 20 |.MO.0...>.. J.1 | 00000380: A4 20 35 3A 81 20 4B B2 31 20 A4 20 35 00 A7 0B |. 5:. K.1 . 5...| 00000390: 48 08 3A 8B 20 44 28 4A 2C 4B 29 B3 B1 36 36 36 |H.:. D(J,K)..666| 000003A0: 20 A7 20 32 31 38 30 00 B6 0B 52 08 3A 81 20 4C | . 2180...R.:. L| 000003B0: B2 31 20 A4 20 34 00 EE 0B 5C 08 3A 8B 20 44 28 |.1 . 4...\.:. D(| 000003C0: 4A AA 52 28 4C 29 2C 4B AA 43 28 4C 29 29 B3 36 |J.R(L),K.C(L)).6| 000003D0: 35 20 B0 20 44 28 4A AA 52 28 4C 29 2C 4B AA 43 |5 . D(J.R(L),K.C| 000003E0: 28 4C 29 29 B1 38 39 20 A7 20 32 31 37 30 00 0F |(L)).89 . 2170..| 000003F0: 0C 66 08 3A 4D 4F B2 4D 4F AA 31 3A 50 28 4D 4F |.f.:MO.MO.1:P(MO| 00000400: 2C 31 29 B2 4A 3A 50 28 4D 4F 2C 32 29 B2 4B 00 |,1).J:P(MO,2).K.| 00000410: 32 0C 70 08 3A 50 28 4D 4F 2C 33 29 B2 4A AA 52 |2.p.:P(MO,3).J.R| 00000420: 28 4C 29 3A 50 28 4D 4F 2C 34 29 B2 4B AA 43 28 |(L):P(MO,4).K.C(| 00000430: 4C 29 00 3B 0C 7A 08 3A 82 20 4C 00 47 0C 84 08 |L).;.z.:. L.G...| 00000440: 82 20 4B 3A 82 20 4A 00 59 0C 8E 08 8B 20 4D 4F |. K:. J.Y.... MO| 00000450: B1 30 20 A7 20 32 32 35 30 00 93 0C 98 08 41 24 |.0 . 2250.....A$| 00000460: B2 22 54 48 45 20 53 49 4E 4E 45 52 53 20 4C 4F |."THE SINNERS LO| 00000470: 53 45 3B 54 48 45 20 46 52 49 45 4E 44 53 20 43 |SE;THE FRIENDS C| 00000480: 41 4E 27 54 20 4D 4F 56 45 21 22 3A 89 20 31 30 |AN'T MOVE!":. 10| 00000490: 30 30 30 00 B4 0C CA 08 99 22 4E 4F 57 2C 49 27 |000......"NOW,I'| 000004A0: 4C 4C 20 4D 4F 56 45 20 41 20 46 52 49 45 4E 44 |LL MOVE A FRIEND| 000004B0: 2E 2E 2E 22 00 C0 0C FC 08 53 43 B2 53 43 AA 31 |...".....SC.SC.1| 000004C0: 00 DE 0C 06 09 81 20 49 B2 31 20 A4 20 33 3A 81 |...... I.1 . 3:.| 000004D0: 20 4A B2 4D 4F 20 A4 20 31 20 A9 20 AB 31 00 F2 | J.MO . 1 . .1..| 000004E0: 0C 10 09 3A 54 39 B2 31 AA B5 28 4A AC BB 28 31 |...:T9.1..(J..(1| 000004F0: 29 29 00 0F 0D 15 09 3A 54 45 4D 50 B2 44 28 50 |)).....:TEMP.D(P| 00000500: 28 54 39 2C 33 29 2C 50 28 54 39 2C 34 29 29 00 |(T9,3),P(T9,4)).| 00000510: 2A 0D 1A 09 3A 44 28 50 28 54 39 2C 31 29 2C 50 |*...:D(P(T9,1),P| 00000520: 28 54 39 2C 32 29 29 B2 33 32 00 45 0D 1F 09 3A |(T9,2)).32.E...:| 00000530: 46 52 B2 50 28 54 39 2C 31 29 3A 46 43 B2 50 28 |FR.P(T9,1):FC.P(| 00000540: 54 39 2C 32 29 00 61 0D 24 09 3A 44 28 50 28 54 |T9,2).a.$.:D(P(T| 00000550: 39 2C 33 29 2C 50 28 54 39 2C 34 29 29 B2 36 36 |9,3),P(T9,4)).66| 00000560: 36 00 7C 0D 29 09 3A 4E 52 B2 50 28 54 39 2C 33 |6.|.).:NR.P(T9,3| 00000570: 29 3A 4E 43 B2 50 28 54 39 2C 34 29 00 8E 0D 2E |):NC.P(T9,4)....| 00000580: 09 3A 8B 20 49 B3 33 20 A7 20 32 34 30 30 00 C2 |.:. I.3 . 2400..| 00000590: 0D 38 09 3A 8D 20 38 35 30 30 3A 41 24 B2 22 54 |.8.:. 8500:A$."T| 000005A0: 48 45 20 53 49 4E 4E 45 52 53 20 41 52 45 20 57 |HE SINNERS ARE W| 000005B0: 49 4E 4E 45 52 53 2E 2E 2E 22 3A 89 20 31 30 30 |INNERS...":. 100| 000005C0: 30 30 00 D1 0D 60 09 3A 81 20 4B B2 31 20 A4 20 |00...`.:. K.1 . | 000005D0: 35 00 E0 0D 6A 09 3A 52 39 B2 30 3A 43 39 B2 30 |5...j.:R9.0:C9.0| 000005E0: 00 EF 0D 74 09 3A 81 20 4C B2 31 20 A4 20 35 00 |...t.:. L.1 . 5.| 000005F0: 19 0E 7E 09 3A 8B 20 44 28 4B 2C 4C 29 B2 36 36 |..~.:. D(K,L).66| 00000600: 36 20 A7 20 52 39 B2 52 39 AA 31 3A 8B 20 52 39 |6 . R9.R9.1:. R9| 00000610: B1 49 20 A7 20 32 35 30 30 00 43 0E 88 09 3A 8B |.I . 2500.C...:.| 00000620: 20 44 28 4C 2C 4B 29 B2 36 36 36 20 A7 20 43 39 | D(L,K).666 . C9| 00000630: B2 43 39 AA 31 3A 8B 20 43 39 B1 49 20 A7 20 32 |.C9.1:. C9.I . 2| 00000640: 35 30 30 00 4C 0E 92 09 3A 82 20 4C 00 55 0E 9C |500.L...:. L.U..| 00000650: 09 3A 82 20 4B 00 77 0E AB 09 3A 8D 20 38 35 30 |.:. K.w...:. 850| 00000660: 30 3A 8D 20 36 35 30 30 3A 8B 20 53 43 B3 32 32 |0:. 6500:. SC.22| 00000670: 20 A7 20 33 30 30 30 00 9C 0E B0 09 3A 41 24 B2 | . 3000.....:A$.| 00000680: 22 4E 4F 20 4D 4F 52 45 20 53 49 4E 4E 45 52 53 |"NO MORE SINNERS| 00000690: 2E 2E 2E 22 3A 89 20 31 30 30 30 30 00 B8 0E C4 |...":. 10000....| 000006A0: 09 3A 44 28 50 28 54 39 2C 31 29 2C 50 28 54 39 |.:D(P(T9,1),P(T9| 000006B0: 2C 32 29 29 B2 36 36 36 00 D5 0E CE 09 3A 44 28 |,2)).666.....:D(| 000006C0: 50 28 54 39 2C 33 29 2C 50 28 54 39 2C 34 29 29 |P(T9,3),P(T9,4))| 000006D0: B2 54 45 4D 50 00 E8 0E D8 09 3A 8B 20 54 39 B2 |.TEMP.....:. T9.| 000006E0: 4A 20 A7 20 32 35 36 30 00 0B 0F E2 09 3A 81 20 |J . 2560.....:. | 000006F0: 4A 30 B2 31 20 A4 20 34 3A 55 28 4A 30 29 B2 50 |J0.1 . 4:U(J0).P| 00000700: 28 4A 2C 4A 30 29 3A 82 20 4A 30 00 31 0F EC 09 |(J,J0):. J0.1...| 00000710: 3A 81 20 4A 30 B2 31 20 A4 20 34 3A 50 28 4A 2C |:. J0.1 . 4:P(J,| 00000720: 4A 30 29 B2 50 28 54 39 2C 4A 30 29 3A 82 20 4A |J0).P(T9,J0):. J| 00000730: 30 00 55 0F F6 09 3A 81 20 4A 30 B2 31 20 A4 20 |0.U...:. J0.1 . | 00000740: 34 3A 50 28 54 39 2C 4A 30 29 B2 55 28 4A 30 29 |4:P(T9,J0).U(J0)| 00000750: 3A 82 20 4A 30 00 61 0F 00 0A 82 20 4A 3A 82 20 |:. J0.a.... J:. | 00000760: 49 00 77 0F B8 0B 8F 2A 2A 2A 50 4C 41 59 45 52 |I.w....***PLAYER| 00000770: 27 53 20 4D 4F 56 45 00 8E 0F 1C 0C 99 22 53 49 |'S MOVE......"SI| 00000780: 4E 4E 45 52 27 53 20 4D 4F 56 45 3F 22 3B 00 99 |NNER'S MOVE?";..| 00000790: 0F 26 0C 8D 20 36 30 30 30 00 BE 0F 80 0C 8B 20 |.&.. 6000...... | 000007A0: 42 24 B2 22 49 4E 22 20 A7 20 8D 20 39 30 30 30 |B$."IN" . . 9000| 000007B0: 3A 8D 20 38 30 30 30 3A 89 20 33 31 30 30 00 E3 |:. 8000:. 3100..| 000007C0: 0F 8A 0C 8B 20 42 24 B2 22 48 45 22 20 A7 20 8D |.... B$."HE" . .| 000007D0: 20 36 35 30 30 3A 8D 20 37 30 30 30 3A 89 20 33 | 6500:. 7000:. 3| 000007E0: 31 30 30 00 17 10 94 0C 8B 20 42 24 B2 22 52 45 |100...... B$."RE| 000007F0: 22 20 A7 20 41 24 B2 22 54 48 45 20 53 49 4E 4E |" . A$."THE SINN| 00000800: 45 52 53 20 47 49 56 45 20 55 50 2E 2E 2E 22 3A |ERS GIVE UP...":| 00000810: 89 20 31 30 30 30 30 00 35 10 9E 0C 8B 20 42 24 |. 10000.5.... B$| 00000820: B2 22 42 4F 22 20 A7 20 8D 20 38 30 30 30 3A 89 |."BO" . . 8000:.| 00000830: 20 33 31 30 30 00 47 10 BC 0C 53 52 B2 C6 28 C8 | 3100.G...SR..(.| 00000840: 28 42 24 2C 31 29 29 00 5F 10 E4 0C 81 20 4A B2 |(B$,1))._.... J.| 00000850: 31 20 A4 20 35 3A 81 20 4B B2 31 20 A4 20 35 00 |1 . 5:. K.1 . 5.| 00000860: 81 10 EE 0C 3A 8B 20 44 28 4A 2C 4B 29 B2 53 52 |....:. D(J,K).SR| 00000870: 20 A7 20 52 B2 4A 3A 43 B2 4B 3A 89 20 33 33 36 | . R.J:C.K:. 336| 00000880: 30 00 8D 10 F8 0C 82 20 4B 3A 82 20 4A 00 98 10 |0...... K:. J...| 00000890: 02 0D 89 20 33 35 30 30 00 AA 10 20 0D 44 52 B2 |... 3500... .DR.| 000008A0: C6 28 C9 28 42 24 2C 31 29 29 00 B8 10 48 0D 81 |.(.(B$,1))...H..| 000008B0: 20 4A B2 31 20 A4 20 34 00 CF 10 52 0D 3A 8B 20 | J.1 . 4...R.:. | 000008C0: 44 52 B3 B1 4D 28 4A 29 20 A7 20 33 34 35 30 00 |DR..M(J) . 3450.| 000008D0: F2 10 5C 0D 3A 8B 20 44 28 52 AA 52 28 4A 29 2C |..\.:. D(R.R(J),| 000008E0: 43 AA 43 28 4A 29 29 B3 B1 33 32 20 A7 20 33 35 |C.C(J))..32 . 35| 000008F0: 30 30 00 19 11 66 0D 3A 44 28 52 AA 52 28 4A 29 |00...f.:D(R.R(J)| 00000900: 2C 43 AA 43 28 4A 29 29 B2 44 28 52 2C 43 29 3A |,C.C(J)).D(R,C):| 00000910: 44 28 52 2C 43 29 B2 33 32 00 3C 11 6B 0D 3A 46 |D(R,C).32.<.k.:F| 00000920: 52 B2 52 3A 46 43 B2 43 3A 4E 52 B2 52 AA 52 28 |R.R:FC.C:NR.R.R(| 00000930: 4A 29 3A 4E 43 B2 43 AA 43 28 4A 29 00 56 11 70 |J):NC.C.C(J).V.p| 00000940: 0D 3A 8D 20 38 35 30 30 3A 8D 20 36 35 30 30 3A |.:. 8500:. 6500:| 00000950: 89 20 32 30 30 30 00 5E 11 7A 0D 82 20 4A 00 69 |. 2000.^.z.. J.i| 00000960: 11 AC 0D 8D 20 36 35 30 30 00 97 11 B6 0D 99 22 |.... 6500......"| 00000970: 54 48 41 54 27 53 20 4E 4F 54 20 41 20 4C 45 47 |THAT'S NOT A LEG| 00000980: 41 4C 20 4D 4F 56 45 2E 20 54 59 50 45 20 48 45 |AL MOVE. TYPE HE| 00000990: 20 46 4F 52 20 22 3B 00 C1 11 C0 0D 99 22 20 20 | FOR ";......" | 000009A0: 20 48 45 4C 50 2E 20 54 59 50 45 20 49 4E 20 46 | HELP. TYPE IN F| 000009B0: 4F 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 2E |OR INSTRUCTIONS.| 000009C0: 22 00 CC 11 D4 0D 89 20 33 31 30 30 00 E7 11 70 |"...... 3100...p| 000009D0: 17 8F 2A 2A 2A 47 45 54 20 50 4C 41 59 45 52 27 |..***GET PLAYER'| 000009E0: 53 20 49 4E 50 55 54 00 F1 11 7A 17 42 24 B2 22 |S INPUT...z.B$."| 000009F0: 22 00 17 12 84 17 A1 20 41 24 3A 8B 20 41 24 B3 |"...... A$:. A$.| 00000A00: B1 22 22 20 A7 20 36 30 32 30 3A 43 4C 45 41 52 |."" . 6020:CLEAR| 00000A10: 20 42 55 46 46 45 52 00 2F 12 D4 17 A1 20 41 24 | BUFFER./.... A$| 00000A20: 3A 8B 20 41 24 B2 22 22 20 A7 20 36 31 30 30 00 |:. A$."" . 6100.| 00000A30: 46 12 DE 17 8B 20 C6 28 41 24 29 B2 31 33 20 A7 |F.... .(A$).13 .| 00000A40: 20 99 22 91 22 3B 00 59 12 E8 17 99 20 41 24 3B | .".";.Y.... A$;| 00000A50: 3A 42 24 B2 42 24 AA 41 24 00 6E 12 F2 17 8B 20 |:B$.B$.A$.n.... | 00000A60: C3 28 42 24 29 B2 31 20 A7 20 36 31 30 30 00 8C |.(B$).1 . 6100..| 00000A70: 12 FC 17 8B 20 42 24 B2 22 59 45 22 20 A7 20 42 |.... B$."YE" . B| 00000A80: 24 B2 22 59 22 3A 89 20 36 31 30 30 00 A2 12 06 |$."Y":. 6100....| 00000A90: 18 81 20 4A B2 31 20 A4 20 31 30 30 3A 82 20 4A |.. J.1 . 100:. J| 00000AA0: 3A 8E 00 C1 12 64 19 8F 2A 2A 2A 43 4C 45 41 52 |:....d..***CLEAR| 00000AB0: 20 42 4F 54 54 4F 4D 20 4F 46 20 53 43 52 45 45 | BOTTOM OF SCREE| 00000AC0: 4E 00 CE 12 C8 19 99 22 13 22 3B 52 24 3B 00 E6 |N......".";R$;..| 00000AD0: 12 D2 19 81 20 4A B2 31 20 A4 35 3A 99 20 53 50 |.... J.1 .5:. SP| 00000AE0: 24 3B 3A 82 20 4A 00 F3 12 DC 19 99 22 13 22 3B |$;:. J......".";| 00000AF0: 52 24 3B 00 F9 12 E6 19 8E 00 06 13 58 1B 8F 2A |R$;.........X..*| 00000B00: 2A 2A 48 45 4C 50 00 11 13 62 1B 8D 20 36 35 30 |**HELP...b.. 650| 00000B10: 30 00 26 13 BC 1B 99 22 4C 45 47 41 4C 20 4D 4F |0.&...."LEGAL MO| 00000B20: 56 45 53 3A 22 3B 00 3E 13 C6 1B 81 20 4A B2 31 |VES:";.>.... J.1| 00000B30: 20 A4 20 35 3A 81 20 4B B2 31 20 A4 20 35 00 62 | . 5:. K.1 . 5.b| 00000B40: 13 D0 1B 3A 8B 20 44 28 4A 2C 4B 29 B3 36 35 20 |...:. D(J,K).65 | 00000B50: B0 20 44 28 4A 2C 4B 29 B1 38 39 20 A7 20 37 31 |. D(J,K).89 . 71| 00000B60: 36 30 00 72 13 DA 1B 3A 20 81 20 4C B2 31 20 A4 |60.r...: . L.1 .| 00000B70: 20 34 00 A7 13 E4 1B 3A 8B 20 44 28 4A AA 52 28 | 4.....:. D(J.R(| 00000B80: 4C 29 2C 4B AA 43 28 4C 29 29 B2 33 32 20 A7 20 |L),K.C(L)).32 . | 00000B90: 99 22 20 22 3B C7 28 44 28 4A 2C 4B 29 29 3B C7 |." ";.(D(J,K));.| 00000BA0: 28 4D 28 4C 29 29 3B 00 B0 13 EE 1B 3A 82 20 4C |(M(L));.....:. L| 00000BB0: 00 BC 13 F8 1B 82 20 4B 3A 82 20 4A 00 C2 13 02 |...... K:. J....| 00000BC0: 1C 99 00 C8 13 20 1C 8E 00 E0 13 40 1F 8F 2A 2A |..... .....@..**| 00000BD0: 2A 50 52 49 4E 54 20 54 48 45 20 42 4F 41 52 44 |*PRINT THE BOARD| 00000BE0: 00 EA 13 A4 1F 99 22 93 22 3B 00 07 14 AE 1F 81 |......".";......| 00000BF0: 20 4A B2 31 20 A4 20 35 3A 99 22 1D 1D 1D 1D 1D | J.1 . 5:.".....| 00000C00: 1D 1D 1D 1D 1D 22 3B 00 16 14 B8 1F 3A 81 20 4B |.....";.....:. K| 00000C10: B2 31 20 A4 20 35 00 3A 14 BD 1F 3A 8B 20 44 28 |.1 . 5.:...:. D(| 00000C20: 4A 2C 4B 29 B2 33 32 20 A7 20 99 22 1D 1D 1D 11 |J,K).32 . ."....| 00000C30: 11 22 3B 3A 89 20 38 31 36 30 00 5C 14 C2 1F 3A |.";:. 8160.\...:| 00000C40: 8B 20 44 28 4A 2C 4B 29 B2 36 36 36 20 A7 20 99 |. D(J,K).666 . .| 00000C50: 20 46 44 24 3B 3A 89 20 38 31 36 30 00 87 14 CC | FD$;:. 8160....| 00000C60: 1F 3A 99 22 12 9C D5 22 3B C7 28 44 28 4A 2C 4B |.:."...";.(D(J,K| 00000C70: 29 29 3B 22 C9 11 9D 9D 9D 20 D3 20 11 9D 9D 9D |));"..... . ....| 00000C80: 20 3D 20 92 9A 22 3B 00 9C 14 E0 1F 3A 8B 20 4B | = ..";.....:. K| 00000C90: B3 35 20 A7 20 99 22 1D 91 91 22 3B 00 A5 14 EA |.5 . ."...";....| 00000CA0: 1F 3A 82 20 4B 00 AF 14 F4 1F 3A 99 22 11 22 00 |.:. K.....:.".".| 00000CB0: B9 14 FE 1F 82 20 4A 3A 8E 00 D1 14 34 21 8F 2A |..... J:....4!.*| 00000CC0: 2A 2A 4D 4F 56 45 20 54 48 45 20 50 49 45 43 45 |**MOVE THE PIECE| 00000CD0: 53 00 F9 14 98 21 99 22 13 22 3B C8 28 52 24 2C |S....!.".";.(R$,| 00000CE0: 46 52 AC 34 AB 33 29 3B 22 91 22 3B C8 28 43 24 |FR.4.3);".";.(C$| 00000CF0: 2C 46 43 AC 34 AA 36 29 3B 00 12 15 A2 21 99 22 |,FC.4.6);....!."| 00000D00: 20 20 20 11 9D 9D 9D 20 20 20 11 9D 9D 9D 20 20 | .... .... | 00000D10: 20 22 00 3A 15 AC 21 99 22 13 22 3B C8 28 52 24 | ".:..!.".";.(R$| 00000D20: 2C 4E 52 AC 34 AB 33 29 3B 22 91 22 3B C8 28 43 |,NR.4.3);".";.(C| 00000D30: 24 2C 4E 43 AC 34 AA 36 29 3B 00 57 15 B6 21 8B |$,NC.4.6);.W..!.| 00000D40: 20 44 28 4E 52 2C 4E 43 29 B2 36 36 36 20 A7 20 | D(NR,NC).666 . | 00000D50: 99 20 46 44 24 3A 8E 00 84 15 CA 21 99 22 12 9C |. FD$:.....!."..| 00000D60: D5 22 3B C7 28 44 28 4E 52 2C 4E 43 29 29 3B 22 |.";.(D(NR,NC));"| 00000D70: C9 11 9D 9D 9D 20 D3 20 11 9D 9D 9D 20 3D 20 92 |..... . .... = .| 00000D80: 9A 22 3A 8E 00 99 15 28 23 8F 2A 2A 2A 49 4E 53 |.":....(#.***INS| 00000D90: 54 52 55 43 54 49 4F 4E 53 00 C7 15 8C 23 99 22 |TRUCTIONS....#."| 00000DA0: 93 54 48 52 45 45 20 4F 46 20 53 41 54 41 4E 27 |.THREE OF SATAN'| 00000DB0: 53 20 46 49 45 4E 44 53 20 28 4D 4F 56 45 20 42 |S FIENDS (MOVE B| 00000DC0: 59 20 54 48 45 29 22 00 F5 15 96 23 99 22 43 4F |Y THE)"....#."CO| 00000DD0: 4D 50 55 54 45 52 29 20 50 4C 41 59 20 41 47 41 |MPUTER) PLAY AGA| 00000DE0: 49 4E 53 54 20 41 20 47 52 4F 55 50 20 4F 46 20 |INST A GROUP OF | 00000DF0: 43 4F 4E 2D 22 00 1B 16 A0 23 99 22 44 45 4D 4E |CON-"....#."DEMN| 00000E00: 45 44 20 53 49 4E 4E 45 52 53 20 28 4D 4F 56 45 |ED SINNERS (MOVE| 00000E10: 44 20 42 59 20 59 4F 55 29 2E 22 00 21 16 AA 23 |D BY YOU).".!..#| 00000E20: 99 00 49 16 B4 23 99 22 54 48 45 20 50 4C 41 59 |..I..#."THE PLAY| 00000E30: 49 4E 47 20 46 49 45 4C 44 20 48 41 53 20 32 35 |ING FIELD HAS 25| 00000E40: 20 53 50 41 43 45 53 2C 22 00 65 16 BE 23 99 22 | SPACES,".e..#."| 00000E50: 35 20 52 4F 57 53 20 4F 46 20 35 20 43 4F 4C 55 |5 ROWS OF 5 COLU| 00000E60: 4D 4E 53 2E 22 00 6B 16 C8 23 99 00 96 16 D2 23 |MNS.".k..#.....#| 00000E70: 99 22 41 20 53 49 4E 4E 45 52 20 4D 41 59 20 4D |."A SINNER MAY M| 00000E80: 4F 56 45 20 49 4E 54 4F 20 41 4E 59 20 41 44 4A |OVE INTO ANY ADJ| 00000E90: 41 43 45 4E 54 22 00 C0 16 DC 23 99 22 45 4D 50 |ACENT"....#."EMP| 00000EA0: 54 59 20 53 50 41 43 45 2E 20 41 20 46 49 45 4E |TY SPACE. A FIEN| 00000EB0: 44 20 4D 4F 56 45 53 20 49 4E 54 4F 20 41 4E 22 |D MOVES INTO AN"| 00000EC0: 00 EF 16 E6 23 99 22 41 44 4A 41 43 45 4E 54 20 |....#."ADJACENT | 00000ED0: 53 50 41 43 45 20 57 48 49 43 48 20 43 4F 4E 54 |SPACE WHICH CONT| 00000EE0: 41 49 4E 53 20 41 20 53 49 4E 4E 45 52 2C 22 00 |AINS A SINNER,".| 00000EF0: 1B 17 F0 23 99 22 57 48 4F 20 49 53 20 54 48 45 |...#."WHO IS THE| 00000F00: 52 45 42 59 20 43 41 50 54 55 52 45 44 20 41 4E |REBY CAPTURED AN| 00000F10: 44 20 52 45 4D 4F 56 45 44 2E 22 00 45 17 FA 23 |D REMOVED.".E..#| 00000F20: 99 22 54 48 45 52 45 20 41 52 45 20 4E 4F 20 44 |."THERE ARE NO D| 00000F30: 49 41 47 4F 4E 41 4C 20 4D 4F 56 45 53 20 41 4E |IAGONAL MOVES AN| 00000F40: 44 20 4E 4F 22 00 53 17 04 24 99 22 4A 55 4D 50 |D NO".S..$."JUMP| 00000F50: 53 2E 22 00 59 17 0E 24 99 00 85 17 18 24 99 22 |S.".Y..$.....$."| 00000F60: 54 48 45 20 53 49 4E 4E 45 52 53 20 57 49 4E 20 |THE SINNERS WIN | 00000F70: 49 46 20 41 4C 4C 20 46 49 45 4E 44 53 20 41 52 |IF ALL FIENDS AR| 00000F80: 45 20 49 4E 22 00 AF 17 22 24 99 22 41 20 4C 49 |E IN"..."$."A LI| 00000F90: 4E 45 20 48 4F 52 49 5A 4F 4E 54 41 4C 4C 59 20 |NE HORIZONTALLY | 00000FA0: 4F 52 20 56 45 52 54 49 43 41 4C 4C 59 2E 22 00 |OR VERTICALLY.".| 00000FB0: D8 17 2C 24 99 22 54 48 45 20 53 49 4E 4E 45 52 |..,$."THE SINNER| 00000FC0: 53 20 4C 4F 53 45 20 49 46 20 54 48 45 20 46 49 |S LOSE IF THE FI| 00000FD0: 45 4E 44 53 2C 41 54 22 00 02 18 36 24 99 22 54 |ENDS,AT"...6$."T| 00000FE0: 48 45 49 52 20 54 55 52 4E 2C 43 41 4E 27 54 20 |HEIR TURN,CAN'T | 00000FF0: 43 41 50 54 55 52 45 20 41 20 53 49 4E 4E 45 52 |CAPTURE A SINNER| 00001000: 2E 22 00 0C 18 40 24 99 3A 99 3A 99 00 30 18 4A |."...@$.:.:..0.J| 00001010: 24 99 22 50 52 45 53 53 20 52 45 54 55 52 4E 20 |$."PRESS RETURN | 00001020: 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 2E 2E 22 3B |TO CONTINUE...";| 00001030: 00 3B 18 54 24 8D 20 39 36 30 30 00 4A 18 5E 24 |.;.T$. 9600.J.^$| 00001040: 99 22 93 20 20 20 55 22 3A 99 00 5A 18 68 24 99 |.". U":..Z.h$.| 00001050: 22 20 4C 20 2B 20 52 22 3A 99 00 68 18 72 24 99 |" L + R":..h.r$.| 00001060: 22 20 20 20 44 22 3A 99 00 6E 18 7C 24 99 00 98 |" D":..n.|$...| 00001070: 18 86 24 99 22 54 4F 20 4D 4F 56 45 20 41 20 53 |..$."TO MOVE A S| 00001080: 49 4E 4E 45 52 2C 54 59 50 45 20 54 57 4F 20 4C |INNER,TYPE TWO L| 00001090: 45 54 54 45 52 53 3A 22 00 C4 18 90 24 99 22 54 |ETTERS:"....$."T| 000010A0: 48 45 20 4C 45 54 54 45 52 20 4E 41 4D 49 4E 47 |HE LETTER NAMING| 000010B0: 20 54 48 45 20 53 49 4E 4E 45 52 20 41 4E 44 20 | THE SINNER AND | 000010C0: 54 48 45 22 00 EF 18 9A 24 99 22 4C 45 54 54 45 |THE"....$."LETTE| 000010D0: 52 20 54 45 4C 4C 49 4E 47 20 54 48 45 20 44 49 |R TELLING THE DI| 000010E0: 52 45 43 54 49 4F 4E 20 54 4F 20 47 4F 2E 22 00 |RECTION TO GO.".| 000010F0: F5 18 A4 24 99 00 1B 19 AE 24 99 22 46 4F 52 20 |...$.....$."FOR | 00001100: 45 58 41 4D 50 4C 45 2C 20 4A 55 20 4D 45 41 4E |EXAMPLE, JU MEAN| 00001110: 53 20 53 49 4E 4E 45 52 20 4A 22 00 34 19 B8 24 |S SINNER J".4..$| 00001120: 99 22 57 41 4E 54 53 20 54 4F 20 4D 4F 56 45 20 |."WANTS TO MOVE | 00001130: 55 50 2E 22 00 3A 19 C2 24 99 00 65 19 CC 24 99 |UP.".:..$..e..$.| 00001140: 22 46 49 4E 41 4C 4C 59 2C 20 41 54 20 59 4F 55 |"FINALLY, AT YOU| 00001150: 52 20 54 55 52 4E 20 59 4F 55 20 4D 41 59 20 54 |R TURN YOU MAY T| 00001160: 59 50 45 3A 22 00 6B 19 D1 24 99 00 83 19 D6 24 |YPE:".k..$.....$| 00001170: 99 22 20 20 52 45 20 20 20 54 4F 20 52 45 53 49 |." RE TO RESI| 00001180: 47 4E 22 00 A8 19 E0 24 99 22 20 20 49 4E 20 20 |GN"....$." IN | 00001190: 20 46 4F 52 20 54 48 45 53 45 20 49 4E 53 54 52 | FOR THESE INSTR| 000011A0: 55 43 54 49 4F 4E 53 22 00 D0 19 EA 24 99 22 20 |UCTIONS"....$." | 000011B0: 20 48 45 20 20 20 46 4F 52 20 41 20 4C 49 53 54 | HE FOR A LIST| 000011C0: 20 4F 46 20 4C 45 47 41 4C 20 4D 4F 56 45 53 22 | OF LEGAL MOVES"| 000011D0: 00 F0 19 F4 24 99 22 20 20 42 4F 20 20 20 54 4F |....$." BO TO| 000011E0: 20 53 45 45 20 54 48 45 20 42 4F 41 52 44 2E 22 | SEE THE BOARD."| 000011F0: 00 FA 19 FE 24 99 3A 99 3A 99 00 18 1A 08 25 99 |....$.:.:.....%.| 00001200: 22 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F |"PRESS RETURN TO| 00001210: 20 53 54 41 52 54 2E 22 00 25 1A 1C 25 8D 20 39 | START.".%..%. 9| 00001220: 36 30 30 3A 8E 00 3E 1A 80 25 A1 20 41 24 3A 8B |600:..>..%. A$:.| 00001230: 20 41 24 B3 B1 22 22 20 A7 20 39 36 30 30 00 56 | A$.."" . 9600.V| 00001240: 1A 8A 25 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |..%. A$:. A$."" | 00001250: A7 20 39 36 31 30 00 69 1A 94 25 8B 20 C6 28 41 |. 9610.i..%. .(A| 00001260: 24 29 B2 31 33 20 A7 20 8E 00 74 1A 9E 25 89 20 |$).13 . ..t..%. | 00001270: 39 36 31 30 00 83 1A 10 27 8F 2A 2A 2A 46 49 4E |9610....'.***FIN| 00001280: 41 4C 45 00 8E 1A 74 27 8D 20 36 35 30 30 00 9C |ALE...t'. 6500..| 00001290: 1A 7E 27 81 20 4A B2 31 20 A4 20 34 00 BB 1A 88 |.~'. J.1 . 4....| 000012A0: 27 3A 97 20 35 33 32 38 31 2C 31 34 3A 8F 20 42 |':. 53281,14:. B| 000012B0: 4C 49 4E 4B 20 53 43 52 45 45 4E 00 D0 1A 92 27 |LINK SCREEN....'| 000012C0: 3A 81 20 4B B2 31 20 A4 20 32 30 30 3A 82 20 4B |:. K.1 . 200:. K| 000012D0: 00 DF 1A 9C 27 3A 97 20 35 33 32 38 31 2C 36 00 |....':. 53281,6.| 000012E0: F5 1A A1 27 3A 81 20 4B B2 31 20 A4 20 32 30 30 |...':. K.1 . 200| 000012F0: 20 3A 82 20 4B 00 FD 1A A6 27 82 20 4A 00 0B 1B | :. K....'. J...| 00001300: D8 27 81 20 4A B2 31 20 A4 20 39 00 19 1B DD 27 |.'. J.1 . 9....'| 00001310: 3A 99 22 13 22 3B 52 24 3B 00 34 1B E2 27 3A 8B |:.".";R$;.4..':.| 00001320: 20 4A AD 32 B2 B5 28 4A AD 32 29 20 A7 20 99 20 | J.2..(J.2) . . | 00001330: 22 12 22 3B 00 3E 1B EC 27 3A 99 20 41 24 00 54 |".";.>..':. A$.T| 00001340: 1B F6 27 3A 20 81 20 4B B2 31 20 A4 20 31 30 30 |..': . K.1 . 100| 00001350: 3A 82 20 4B 00 5C 1B 00 28 82 20 4A 00 82 1B 3C |:. K.\..(. J...<| 00001360: 28 99 22 20 20 20 12 50 52 45 53 53 20 52 45 54 |(." .PRESS RET| 00001370: 55 52 4E 20 54 4F 20 50 4C 41 59 20 41 47 41 49 |URN TO PLAY AGAI| 00001380: 4E 22 00 AA 1B 50 28 99 22 20 20 20 12 50 52 45 |N"...P(." .PRE| 00001390: 53 53 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 |SS ANY OTHER KEY| 000013A0: 20 54 4F 20 51 55 49 54 22 3B 00 C4 1B A0 28 A1 | TO QUIT";....(.| 000013B0: 20 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 31 | A$:. A$.."" . 1| 000013C0: 30 34 30 30 00 DD 1B AA 28 A1 20 41 24 3A 8B 20 |0400....(. A$:. | 000013D0: 41 24 B2 22 22 20 A7 20 31 30 34 31 30 00 F9 1B |A$."" . 10410...| 000013E0: B4 28 8B 20 C6 28 41 24 29 B2 31 33 20 A7 20 99 |.(. .(A$).13 . .| 000013F0: 20 22 93 52 55 4E 22 3A 8A 00 29 1C BE 28 99 22 | ".RUN":..)..(."| 00001400: 93 11 54 48 41 4E 4B 53 20 46 4F 52 20 50 4C 41 |..THANKS FOR PLA| 00001410: 59 49 4E 47 20 12 53 49 4E 4E 45 52 53 92 20 57 |YING .SINNERS. W| 00001420: 49 54 48 20 4D 45 2E 11 22 00 41 1C C8 28 99 22 |ITH ME..".A..(."| 00001430: 42 59 45 20 46 4F 52 20 4E 4F 57 2E 2E 2E 11 11 |BYE FOR NOW.....| 00001440: 22 00 47 1C D2 28 80 00 00 00 BB |".G..(..... |
....D.. NAME :SINNERS.,....***INITIALIZA
TION.\.L.. D(6,6),P(12,6),M(4),R(4),C(4)
,H(2,3),U(4).Z.Q.R$."...................
."...R.C$.".............................
.".S.S.SP$."
"...V.. J.1 . 4:. M(J),R(J),C(
J):. J...`.. 85,-1,0,82,0,1,68,1,0,76,0,
-1.N.J.. J.1 . 5:. K.1 . 5:D(J,K).64.(J.
1).5.K:. K:. J.F.T.. I.1 . 2:. J.1 . 3.~
.~.:H(I,J).1..(5..(1)).....:. K.1 . J.1.
....:. K.J . . H(I,J).H(I,K) . 1150.....
: . K.J.... J:. I...... J.1 . 3:D(H(1,J
),H(2,J)).666:. J.....S1$."..UAI.... S .
... = ..".1...S2$."..UZI.... S .... = ..
".O.D.FD$."........UQI....###."...N.."..
............";S1$;"...";FD$;"...";S2$;".
.."...X.."WELCOME TO .....S I N N E R S
".X...."........WANT INSTRUCTIONS (YES O
R NO)?";...... 6000...... B$."NO" . 1300
...... B$."YS" . . 9000:.1300.......@...
."PLEASE TYPE YES OR NO";:. 1255.K.... 8
000.L.P..***GENERATE COMPUTER'S MOVE.U.4
.MO.0...>.. J.1 . 5:. K.1 . 5...H.:. D(J
,K)..666 . 2180...R.:. L.1 . 4...\.:. D(
J.R(L),K.C(L)).65 . D(J.R(L),K.C(L)).89
. 2170...F.:MO.MO.1:P(MO,1).J:P(MO,2).K.
2.P.:P(MO,3).J.R(L):P(MO,4).K.C(L).;.Z.:
. L.G.... K:. J.Y.... MO.0 . 2250.....A$
."THE SINNERS LOSE;THE FRIENDS CAN'T MOV
E!":. 10000...J.."NOW,I'LL MOVE A FRIEND
...".....SC.SC.1...... I.1 . 3:. J.MO .
1 . .1.....:T9.1..(J..(1)).....:TEMP.D(P
(T9,3),P(T9,4)).*...:D(P(T9,1),P(T9,2)).
32.E...:FR.P(T9,1):FC.P(T9,2).A.$.:D(P(T
9,3),P(T9,4)).666.|.).:NR.P(T9,3):NC.P(T
9,4).....:. I.3 . 2400.B.8.:. 8500:A$."T
HE SINNERS ARE WINNERS...":. 10000.Q.`.:
. K.1 . 5...J.:R9.0:C9.0...T.:. L.1 . 5.
..~.:. D(K,L).666 . R9.R9.1:. R9.I . 250
0.C...:. D(L,K).666 . C9.C9.1:. C9.I . 2
500.L...:. L.U...:. K.W...:. 8500:. 6500
:. SC.22 . 3000.....:A$."NO MORE SINNERS
...":. 10000...D.:D(P(T9,1),P(T9,2)).666
.U.N.:D(P(T9,3),P(T9,4)).TEMP...X.:. T9.
J . 2560.....:. J0.1 . 4:U(J0).P(J,J0):.
J0.1...:. J0.1 . 4:P(J,J0).P(T9,J0):. J
0.U...:. J0.1 . 4:P(T9,J0).U(J0):. J0.A.
... J:. I.W....***PLAYER'S MOVE......"SI
NNER'S MOVE?";...&.. 6000...... B$."IN"
. . 9000:. 8000:. 3100...... B$."HE" . .
6500:. 7000:. 3100...... B$."RE" . A$."
THE SINNERS GIVE UP...":. 10000.5.... B$
."BO" . . 8000:. 3100.G...SR.F(H(B$,1)).
_.... J.1 . 5:. K.1 . 5.....:. D(J,K).SR
. R.J:C.K:. 3360...... K:. J...... 3500
... .DR.F(I(B$,1))...H.. J.1 . 4.O.R.:.
DR..M(J) . 3450...\.:. D(R.R(J),C.C(J)).
.32 . 3500...F.:D(R.R(J),C.C(J)).D(R,C):
D(R,C).32.<.K.:FR.R:FC.C:NR.R.R(J):NC.C.
C(J).V.P.:. 8500:. 6500:. 2000.^.Z.. J.I
.... 6500......"THAT'S NOT A LEGAL MOVE.
TYPE HE FOR ";.A...." HELP. TYPE IN F
OR INSTRUCTIONS.".L.T.. 3100...P..***GET
PLAYER'S INPUT...Z.B$.""...... A$:. A$.
."" . 6020:CLEAR BUFFER./.T.. A$:. A$.""
. 6100.F.... F(A$).13 . .".";.Y.... A$;
:B$.B$.A$.N.... C(B$).1 . 6100...... B$.
"YE" . B$."Y":. 6100...... J.1 . 100:. J
:..A.D..***CLEAR BOTTOM OF SCREEN.N.H.."
.";R$;...R.. J.1 .5:. SP$;:. J......".";
R$;.........X..***HELP...B.. 6500.&...."
LEGAL MOVES:";.>.F.. J.1 . 5:. K.1 . 5.B
.P.:. D(J,K).65 . D(J,K).89 . 7160.R.Z.:
. L.1 . 4.....:. D(J.R(L),K.C(L)).32 .
." ";G(D(J,K));G(M(L));.....:. L...... K
:. J.B.....H. .....@..***PRINT THE BOARD
......".";...... J.1 . 5:."..........";.
....:. K.1 . 5.:...:. D(J,K).32 . ."....
.";:. 8160.\.B.:. D(J,K).666 . . FD$;:.
8160...L.:."..U";G(D(J,K));"I.... S ....
= ..";.....:. K.5 . ."...";.....:. K...
..:."."...... J:..Q.4!.***MOVE THE PIECE
S....!.".";H(R$,FR.4.3);".";H(C$,FC.4.6)
;....!." .... .... ".:..!.".";H(R$
,NR.4.3);".";H(C$,NC.4.6);.W..!. D(NR,NC
).666 . . FD$:....J!."..U";G(D(NR,NC));"
I.... S .... = ..":....(#.***INSTRUCTION
S.G..#.".THREE OF SATAN'S FIENDS (MOVE B
Y THE)"....#."COMPUTER) PLAY AGAINST A G
ROUP OF CON-"... #."DEMNED SINNERS (MOVE
D BY YOU).".!..#..I..#."THE PLAYING FIEL
D HAS 25 SPACES,".E..#."5 ROWS OF 5 COLU
MNS.".K.H#....R#."A SINNER MAY MOVE INTO
ANY ADJACENT"....#."EMPTY SPACE. A FIEN
D MOVES INTO AN"....#."ADJACENT SPACE WH
ICH CONTAINS A SINNER,"....#."WHO IS THE
REBY CAPTURED AND REMOVED.".E..#."THERE
ARE NO DIAGONAL MOVES AND NO".S..$."JUMP
S.".Y..$.....$."THE SINNERS WIN IF ALL F
IENDS ARE IN"..."$."A LINE HORIZONTALLY
OR VERTICALLY.".X.,$."THE SINNERS LOSE I
F THE FIENDS,AT"...6$."THEIR TURN,CAN'T
CAPTURE A SINNER."...@$.:.:..0.J$."PRESS
RETURN TO CONTINUE...";.;.T$. 9600.J.^$
.". U":..Z.H$." L + R":..H.R$." D":.
.N.|$.....$."TO MOVE A SINNER,TYPE TWO L
ETTERS:".D..$."THE LETTER NAMING THE SIN
NER AND THE"....$."LETTER TELLING THE DI
RECTION TO GO."....$.....$."FOR EXAMPLE,
JU MEANS SINNER J".4..$."WANTS TO MOVE
UP.".:.B$..E.L$."FINALLY, AT YOUR TURN Y
OU MAY TYPE:".K.Q$....V$." RE TO RESI
GN"....$." IN FOR THESE INSTRUCTIONS"
.P..$." HE FOR A LIST OF LEGAL MOVES"
....$." BO TO SEE THE BOARD."....$.:.
:.....%."PRESS RETURN TO START.".%..%. 9
600:..>..%. A$:. A$.."" . 9600.V..%. A$:
. A$."" . 9610.I..%. F(A$).13 . ..T..%.
9610....'.***FINALE...T'. 6500...~'. J.1
. 4....':. 53281,14:. BLINK SCREEN.P..'
:. K.1 . 200:. K....':. 53281,6....':. K
.1 . 200 :. K....'. J...X'. J.1 . 9....'
:.".";R$;.4..':. J.2..(J.2) . . ".";.>..
':. A$.T..': . K.1 . 100:. K.\..(. J...<
(." .PRESS RETURN TO PLAY AGAIN"...P(.
" .PRESS ANY OTHER KEY TO QUIT";.D. (.
A$:. A$.."" . 10400....(. A$:. A$."" .
10410....(. F(A$).13 . . ".RUN":..)..(."
..THANKS FOR PLAYING .SINNERS. WITH ME..
".A.H(."BYE FOR NOW.....".G.R(.....
> CLICK IMAGE PREVIEW FOR FULL MODAL