SNAKE
FILE INFORMATION
FILENAME(S): SNAKE
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-10-19 22:49:26
APPEARS ON: 1 disk(s)
FILE HASH
15c5b92b0be15536a28e591e05c6b25aa2f5171ca82934dc3e785ac8895eda8c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES 21 | SNAKE | PRG | Radd Maxx | 30 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 64 00 8F 20 4F 52 49 47 49 4E 41 4C |..).d.. ORIGINAL|
00000010: 20 50 45 54 20 56 45 52 53 49 4F 4E 20 42 59 20 | PET VERSION BY |
00000020: 50 45 54 45 20 52 4F 57 45 00 55 08 6E 00 8F 20 |PETE ROWE.U.n.. |
00000030: 41 44 41 50 54 45 44 20 46 4F 52 20 54 48 45 20 |ADAPTED FOR THE |
00000040: 56 49 43 20 42 59 20 44 41 56 49 44 20 4D 41 4C |VIC BY DAVID MAL|
00000050: 4D 42 45 52 47 00 96 08 78 00 97 20 33 36 38 36 |MBERG...x.. 3686|
00000060: 39 2C 32 34 32 3A 4D B2 33 30 37 32 30 3A 43 28 |9,242:M.30720:C(|
00000070: 32 29 B2 34 3A 43 28 30 29 B2 33 3A 43 28 31 29 |2).4:C(0).3:C(1)|
00000080: B2 36 3A 97 33 36 38 37 38 2C 31 35 3A 97 33 36 |.6:.36878,15:.36|
00000090: 38 37 39 2C 32 37 00 B5 08 82 00 50 31 B2 33 37 |879,27.....P1.37|
000000A0: 31 35 31 3A 50 32 B2 33 37 31 35 32 3A 50 33 B2 |151:P2.37152:P3.|
000000B0: 33 37 31 35 34 00 D9 08 8C 00 99 20 22 93 11 11 |37154...... "...|
000000C0: 11 11 D7 45 4C 43 4F 4D 45 20 54 4F 20 54 48 45 |...ELCOME TO THE|
000000D0: 20 47 41 4D 45 20 4F 46 22 00 EB 08 96 00 99 20 | GAME OF"...... |
000000E0: 22 11 11 11 11 22 3B A3 36 29 3B 00 1A 09 A0 00 |"....";.6);.....|
000000F0: 99 20 22 A2 A2 A2 A2 A2 A2 A2 9D 9D 9D 9D 9D 9D |. ".............|
00000100: 9D 11 12 A0 D3 CE C1 CB C5 20 9D 9D 9D 9D 9D 9D |......... ......|
00000110: 9D 11 A2 A2 A2 A2 A2 A2 A2 22 00 3B 09 AA 00 99 |.........".;....|
00000120: 20 22 11 11 11 11 D7 41 4E 54 20 49 4E 53 54 52 | ".....ANT INSTR|
00000130: 55 43 54 49 4F 4E 53 3F 20 22 3B 00 55 09 B4 00 |UCTIONS? ";.U...|
00000140: 8D 20 31 31 34 30 3A 8B 20 41 24 B2 22 4E 22 20 |. 1140:. A$."N" |
00000150: A7 20 34 36 30 00 69 09 BE 00 8B 20 41 24 B3 B1 |. 460.i.... A$..|
00000160: 22 59 22 20 A7 20 31 38 30 00 87 09 C8 00 99 20 |"Y" . 180...... |
00000170: 22 93 20 D3 CE C1 CB C5 20 49 53 20 41 20 47 41 |". ..... IS A GA|
00000180: 4D 45 20 46 4F 52 22 00 A3 09 D2 00 99 20 22 4F |ME FOR"...... "O|
00000190: 4E 45 20 4F 52 20 54 57 4F 20 50 4C 41 59 45 52 |NE OR TWO PLAYER|
000001A0: 53 2E 22 00 C0 09 DC 00 99 20 22 D4 48 45 20 4F |S."...... ".HE O|
000001B0: 42 4A 45 43 54 20 49 53 20 54 4F 20 4E 4F 54 22 |BJECT IS TO NOT"|
000001C0: 00 DE 09 E6 00 99 20 22 52 55 4E 20 49 4E 54 4F |...... "RUN INTO|
000001D0: 20 41 4E 59 20 4F 43 43 55 50 49 45 44 22 00 FA | ANY OCCUPIED"..|
000001E0: 09 F0 00 99 20 22 53 50 41 43 45 20 4F 52 20 57 |.... "SPACE OR W|
000001F0: 41 4C 4C 2E 20 20 D4 48 45 22 00 15 0A FA 00 99 |ALL. .HE"......|
00000200: 20 22 50 4C 41 59 45 52 20 4F 52 20 43 4F 4D 50 | "PLAYER OR COMP|
00000210: 55 54 45 52 22 00 30 0A 04 01 99 20 22 54 48 41 |UTER".0.... "THA|
00000220: 54 20 46 49 52 53 54 20 48 49 54 53 20 41 4E 22 |T FIRST HITS AN"|
00000230: 00 4F 0A 0E 01 99 20 22 4F 43 43 55 50 49 45 44 |.O.... "OCCUPIED|
00000240: 20 53 50 41 43 45 20 4F 52 20 57 41 4C 4C 22 00 | SPACE OR WALL".|
00000250: 5E 0A 18 01 99 20 22 4C 4F 53 45 53 2E 22 00 7E |^.... "LOSES.".~|
00000260: 0A 22 01 99 20 22 11 12 D2 C5 D4 D5 D2 CE 92 20 |.".. "......... |
00000270: 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 3B 00 9B |TO CONTINUE.";..|
00000280: 0A 2C 01 8D 20 31 31 34 30 3A 8B 20 41 24 B3 B1 |.,.. 1140:. A$..|
00000290: C7 28 31 33 29 20 A7 20 33 30 30 00 BA 0A 36 01 |.(13) . 300...6.|
000002A0: 99 20 22 93 D4 4F 20 43 4F 4E 54 52 4F 4C 20 59 |. "..O CONTROL Y|
000002B0: 4F 55 52 20 53 4E 41 4B 45 22 00 D9 0A 40 01 99 |OUR SNAKE"...@..|
000002C0: 20 22 59 4F 55 20 43 41 4E 20 50 52 45 53 53 20 | "YOU CAN PRESS |
000002D0: 12 C9 92 2C 12 CA 92 2C 22 00 FA 0A 4A 01 99 20 |...,...,"...J.. |
000002E0: 22 12 CB 92 20 41 4E 44 20 12 CD 92 20 4B 45 59 |"... AND ... KEY|
000002F0: 53 20 46 4F 52 20 54 48 45 22 00 0E 0B 54 01 99 |S FOR THE"...T..|
00000300: 20 22 52 49 47 48 54 20 53 4E 41 4B 45 22 00 33 | "RIGHT SNAKE".3|
00000310: 0B 5E 01 99 22 41 4E 44 20 12 D7 92 2C 12 C1 92 |.^.."AND ...,...|
00000320: 2C 12 D3 92 2C 20 41 4E 44 20 12 DA 92 20 4B 45 |,..., AND ... KE|
00000330: 59 53 22 00 4D 0B 68 01 99 22 46 4F 52 20 54 48 |YS".M.h.."FOR TH|
00000340: 45 20 4C 45 46 54 20 53 4E 41 4B 45 22 00 65 0B |E LEFT SNAKE".e.|
00000350: 72 01 99 20 22 11 20 20 20 20 D7 22 3B A6 31 30 |r.. ". .";.10|
00000360: 29 3B 22 C9 22 00 7C 0B 7C 01 99 20 22 20 20 20 |);".".|.|.. " |
00000370: 20 DD 22 3B A6 31 30 29 3B 22 DD 22 00 9B 0B 86 | .";.10);"."....|
00000380: 01 99 20 22 20 C1 C0 C0 DD C0 C0 D3 22 3B A6 34 |.. " .......";.4|
00000390: 29 3B 22 CA C0 C0 DD C0 C0 CB 22 00 B2 0B 90 01 |);".......".....|
000003A0: 99 20 22 20 20 20 20 DD 22 3B A6 31 30 29 3B 22 |. " .";.10);"|
000003B0: DD 22 00 C9 0B 9A 01 99 20 22 20 20 20 20 DA 22 |."...... " ."|
000003C0: 3B A6 31 30 29 3B 22 CD 22 00 EC 0B A4 01 99 20 |;.10);"."...... |
000003D0: 22 12 CC 45 46 54 20 D3 4E 41 4B 45 92 20 12 D2 |"..EFT .NAKE. ..|
000003E0: 49 47 48 54 20 D3 4E 41 4B 45 11 22 00 07 0C AE |IGHT .NAKE."....|
000003F0: 01 99 20 22 C9 46 20 59 4F 55 20 53 45 4C 45 43 |.. ".F YOU SELEC|
00000400: 54 20 5A 45 52 4F 22 00 25 0C B8 01 99 20 22 50 |T ZERO".%.... "P|
00000410: 4C 41 59 45 52 53 2C 20 54 48 45 20 43 4F 4D 50 |LAYERS, THE COMP|
00000420: 55 54 45 52 22 00 40 0C C2 01 99 20 22 57 49 4C |UTER".@.... "WIL|
00000430: 4C 20 50 4C 41 59 20 49 54 53 45 4C 46 2E 11 22 |L PLAY ITSELF.."|
00000440: 00 5E 0C CC 01 99 3A 99 20 22 11 30 2C 20 31 20 |.^....:. ".0, 1 |
00000450: 4F 52 20 32 20 D0 4C 41 59 45 52 53 3F 22 00 71 |OR 2 .LAYERS?".q|
00000460: 0C D6 01 8D 20 31 31 34 30 3A 4E B2 C5 28 41 24 |.... 1140:N..(A$|
00000470: 29 00 8E 0C E0 01 8B 20 4E AC 28 4E AB 31 29 AC |)...... N.(N.1).|
00000480: 28 4E AB 32 29 B3 B1 30 20 A7 20 34 37 30 00 BE |(N.2)..0 . 470..|
00000490: 0C EA 01 52 B2 30 3A 53 28 30 29 B2 30 3A 53 28 |...R.0:S(0).0:S(|
000004A0: 31 29 B2 30 3A 53 30 24 B2 C7 28 33 31 29 AA 22 |1).0:S0$..(31)."|
000004B0: 20 20 50 4C 41 59 45 52 20 12 DB 92 20 22 00 DD | PLAYER ... "..|
000004C0: 0C F4 01 53 31 24 B2 C7 28 31 35 39 29 AA 22 43 |...S1$..(159)."C|
000004D0: 4F 4D 50 55 54 45 52 20 12 D6 92 20 22 00 03 0D |OMPUTER ... "...|
000004E0: FE 01 8B 20 4E B2 30 20 A7 20 53 30 24 B2 C7 28 |... N.0 . S0$..(|
000004F0: 33 31 29 AA 22 43 4F 4D 50 55 54 45 52 20 12 DB |31)."COMPUTER ..|
00000500: 92 20 22 00 2A 0D 08 02 8B 20 4E B2 32 20 A7 20 |. ".*.... N.2 . |
00000510: 53 31 24 B2 C7 28 31 35 39 29 AA 22 20 20 50 4C |S1$..(159)." PL|
00000520: 41 59 45 52 20 12 D6 92 20 22 00 4F 0D 12 02 81 |AYER ... ".O....|
00000530: 20 49 B2 30 20 A4 20 33 3A 87 20 48 24 28 49 29 | I.0 . 3:. H$(I)|
00000540: 2C 48 24 28 49 AA 34 29 2C 48 28 49 29 3A 82 00 |,H$(I.4),H(I):..|
00000550: 70 0D 1C 02 83 4D 2C 5A 2C 32 32 2C 4A 2C 41 2C |p....M,Z,22,J,A,|
00000560: 2D 31 2C 4B 2C 53 2C 31 2C 49 2C 57 2C 2D 32 32 |-1,K,S,1,I,W,-22|
00000570: 00 85 0D 26 02 97 33 36 38 36 39 2C 32 34 30 3A |...&..36869,240:|
00000580: 99 22 93 22 3B 00 9A 0D 30 02 81 49 B2 37 36 38 |.".";...0..I.768|
00000590: 30 A4 38 31 36 34 A9 34 38 34 00 C1 0D 3A 02 81 |0.8164.484...:..|
000005A0: 20 4A B2 49 20 A4 20 49 AA 32 31 3A 97 20 4A 2C | J.I . I.21:. J,|
000005B0: 31 30 32 3A 97 4A AA 4D 2C 43 28 32 29 3A 82 3A |102:.J.M,C(2):.:|
000005C0: 82 00 D9 0D 44 02 81 20 49 B2 37 37 30 32 20 A4 |....D.. I.7702 .|
000005D0: 38 31 34 32 20 A9 20 32 32 00 F0 0D 4E 02 97 20 |8142 . 22...N.. |
000005E0: 49 2C 31 30 32 3A 97 20 49 AA 32 31 2C 31 30 32 |I,102:. I.21,102|
000005F0: 00 0F 0E 58 02 97 20 49 AA 4D 2C 43 28 32 29 3A |...X.. I.M,C(2):|
00000600: 97 20 49 AA 32 31 AA 4D 2C 43 28 32 29 3A 82 00 |. I.21.M,C(2):..|
00000610: 1E 0E 62 02 51 B2 33 35 3A 51 44 B2 2E 33 00 40 |..b.Q.35:QD..3.@|
00000620: 0E 6C 02 81 20 49 B2 30 20 A4 20 31 3A 44 28 49 |.l.. I.0 . 1:D(I|
00000630: 29 B2 31 AA 32 31 AC B5 28 32 AC BB 28 31 29 29 |).1.21..(2..(1))|
00000640: 00 6B 0E 76 02 4C 28 49 29 B2 32 32 AC B5 28 31 |.k.v.L(I).22..(1|
00000650: 37 AC BB 28 31 29 AA 34 29 AA B5 28 32 30 AC BB |7..(1).4)..(20..|
00000660: 28 31 29 29 AA 37 36 38 30 3A 82 00 7B 0E 80 02 |(1)).7680:..{...|
00000670: 54 B2 54 49 3A 51 B2 51 AB 51 44 00 89 0E 8A 02 |T.TI:Q.Q.QD.....|
00000680: 81 20 49 B2 30 20 A4 20 31 00 96 0E 94 02 46 B2 |. I.0 . 1.....F.|
00000690: 31 3A A1 20 41 24 00 A9 0E 9E 02 8B 49 B2 30 AF |1:. A$......I.0.|
000006A0: 41 24 B2 22 22 A7 37 38 30 00 B6 0E A8 02 8B 49 |A$."".780......I|
000006B0: B2 30 A7 37 34 30 00 DC 0E B2 02 4A 31 B2 C2 28 |.0.740.....J1..(|
000006C0: 50 31 29 3A 97 50 33 2C 31 32 37 3A 4A 32 B2 C2 |P1):.P3,127:J2..|
000006D0: 28 50 32 29 3A 97 50 33 2C 32 35 35 00 F4 0E BC |(P2):.P3,255....|
000006E0: 02 8B 4A 31 B2 31 32 32 A7 41 24 B2 22 49 22 3A |..J1.122.A$."I":|
000006F0: 89 37 34 30 00 0C 0F C6 02 8B 4A 31 B2 31 31 30 |.740......J1.110|
00000700: A7 41 24 B2 22 4A 22 3A 89 37 34 30 00 24 0F D0 |.A$."J":.740.$..|
00000710: 02 8B 4A 31 B2 31 31 38 A7 41 24 B2 22 4D 22 3A |..J1.118.A$."M":|
00000720: 89 37 34 30 00 37 0F DA 02 8B 4A 32 B2 31 31 39 |.740.7....J2.119|
00000730: A7 41 24 B2 22 4B 22 00 56 0F E4 02 81 20 4A B2 |.A$."K".V.... J.|
00000740: 30 20 A4 20 37 3A 8B 20 41 24 B2 48 24 28 4A 29 |0 . 7:. A$.H$(J)|
00000750: 20 A7 20 37 36 30 00 62 0F EE 02 82 3A 89 20 37 | . 760.b....:. 7|
00000760: 38 30 00 7F 0F F8 02 8B 20 4E B3 B1 30 20 AF 20 |80...... N..0 . |
00000770: 4A B3 34 20 A7 20 44 28 31 29 B2 48 28 4A 29 00 |J.4 . D(1).H(J).|
00000780: 9D 0F 02 03 8B 20 4E B2 32 20 AF 20 4A B1 33 20 |..... N.2 . J.3 |
00000790: A7 20 44 28 30 29 B2 48 28 4A AB 34 29 00 AD 0F |. D(0).H(J.4)...|
000007A0: 0C 03 8B 20 4E B2 32 20 A7 20 38 30 30 00 D5 0F |... N.2 . 800...|
000007B0: 16 03 8B 20 49 AC 4E B2 30 20 AF 20 C2 28 4C 28 |... I.N.0 . .(L(|
000007C0: 49 29 AA 32 AC 44 28 49 29 29 B3 B1 33 32 20 20 |I).2.D(I))..32 |
000007D0: A7 20 38 32 30 00 F5 0F 20 03 46 B2 32 3A 8B 20 |. 820... .F.2:. |
000007E0: C2 28 4C 28 49 29 AA 44 28 49 29 29 B2 33 32 20 |.(L(I).D(I)).32 |
000007F0: A7 20 39 32 30 00 08 10 2A 03 8B 20 49 AA 4E B1 |. 920...*.. I.N.|
00000800: 31 20 A7 20 31 30 30 30 00 29 10 34 03 41 B2 32 |1 . 1000.).4.A.2|
00000810: 33 AB B6 28 44 28 49 29 29 3A 81 20 4A B2 41 20 |3..(D(I)):. J.A |
00000820: A4 20 32 30 AC 41 20 A9 41 00 3C 10 3E 03 81 20 |. 20.A .A.<.>.. |
00000830: 4B B2 AB 31 20 A4 20 31 20 A9 20 32 00 58 10 48 |K..1 . 1 . 2.X.H|
00000840: 03 8B 20 C2 28 4C 28 49 29 AA 4B AC 4A 29 B3 B1 |.. .(L(I).K.J)..|
00000850: 33 32 20 A7 20 38 36 30 00 64 10 52 03 82 3A 82 |32 . 860.d.R..:.|
00000860: 3A 4B B2 31 00 74 10 5C 03 8B 20 4B B2 31 20 A7 |:K.1.t.\.. K.1 .|
00000870: 20 39 30 30 00 8D 10 66 03 8B 20 C2 28 4C 28 49 | 900...f.. .(L(I|
00000880: 29 AA 4A 29 B2 33 32 20 A7 20 39 31 30 00 A8 10 |).J).32 . 910...|
00000890: 70 03 8B 20 4A B2 41 20 A7 20 91 20 46 20 89 20 |p.. J.A . . F . |
000008A0: 38 30 30 2C 31 30 30 30 00 BC 10 7A 03 8B 20 BB |800,1000...z.. .|
000008B0: 28 31 29 B1 2E 35 20 A7 20 39 31 30 00 C5 10 84 |(1)..5 . 910....|
000008C0: 03 41 B2 AB 41 00 D0 10 8E 03 44 28 49 29 B2 41 |.A..A.....D(I).A|
000008D0: 00 F2 10 98 03 97 20 4C 28 49 29 2C 32 31 34 AA |...... L(I),214.|
000008E0: 35 AC 49 3A 4C 28 49 29 B2 4C 28 49 29 AA 44 28 |5.I:L(I).L(I).D(|
000008F0: 49 29 00 04 11 A2 03 97 20 4C 28 49 29 AA 4D 2C |I)...... L(I).M,|
00000900: 43 28 49 29 00 32 11 AC 03 8B 20 B6 28 44 28 49 |C(I).2.... .(D(I|
00000910: 29 29 B2 31 20 A7 20 97 20 4C 28 49 29 2C 36 31 |)).1 . . L(I),61|
00000920: AA 44 28 49 29 3A 97 4C 28 49 29 AA 4D 2C 43 28 |.D(I):.L(I).M,C(|
00000930: 49 29 00 55 11 B6 03 8B 44 28 49 29 B2 32 32 A7 |I).U....D(I).22.|
00000940: 97 4C 28 49 29 2C 32 32 3A 97 4C 28 49 29 AA 4D |.L(I),22:.L(I).M|
00000950: 2C 43 28 49 29 00 79 11 C0 03 8B 44 28 49 29 B2 |,C(I).y....D(I).|
00000960: AB 32 32 A7 97 4C 28 49 29 2C 33 30 3A 97 4C 28 |.22..L(I),30:.L(|
00000970: 49 29 AA 4D 2C 43 28 49 29 00 81 11 CA 03 82 20 |I).M,C(I)...... |
00000980: 49 00 94 11 D4 03 8B 20 54 49 AB 54 B3 51 20 A7 |I...... TI.T.Q .|
00000990: 20 39 38 30 00 9E 11 DE 03 89 20 36 34 30 00 C4 | 980...... 640..|
000009A0: 11 E8 03 53 28 49 29 B2 53 28 49 29 AA 31 3A 51 |...S(I).S(I).1:Q|
000009B0: 44 B2 51 44 AA 2E 31 3A 8B 20 4E B2 32 20 A7 20 |D.QD..1:. N.2 . |
000009C0: 31 30 32 30 00 DC 11 F2 03 8B 20 49 B2 30 20 AF |1020...... I.0 .|
000009D0: 20 4E B2 31 20 A7 20 51 44 B2 2E 33 00 08 12 FC | N.1 . QD..3....|
000009E0: 03 51 B2 51 AB 51 44 3A 97 20 4C 28 49 29 AA 44 |.Q.Q.QD:. L(I).D|
000009F0: 28 49 29 2C 34 32 3A 97 4C 28 49 29 AA 44 28 49 |(I),42:.L(I).D(I|
00000A00: 29 AA 4D 2C 43 28 49 29 00 1B 12 06 04 46 B2 36 |).M,C(I).....F.6|
00000A10: 30 3A 81 20 4A B2 30 20 A4 20 35 00 3A 12 10 04 |0:. J.0 . 5.:...|
00000A20: 46 B2 31 31 32 AB 46 3A 97 20 33 36 38 37 34 2C |F.112.F:. 36874,|
00000A30: 46 AA 31 34 30 3A 54 B2 54 49 00 4F 12 1A 04 8B |F.140:T.TI.O....|
00000A40: 20 54 49 AB 54 B3 31 30 20 A7 20 31 30 35 30 00 | TI.T.10 . 1050.|
00000A50: 5E 12 24 04 82 3A 97 33 36 38 37 34 2C 30 00 79 |^.$..:.36874,0.y|
00000A60: 12 2E 04 99 20 22 1D 1D 22 3B 53 31 24 3B 22 3D |.... "..";S1$;"=|
00000A70: 22 3B C4 28 53 28 31 29 29 00 9B 12 38 04 99 22 |";.(S(1))...8.."|
00000A80: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000A90: 11 11 11 11 11 11 11 1D 1D 22 3B 00 B7 12 42 04 |.........";...B.|
00000AA0: 99 20 53 30 24 3B 22 3D 22 3B C4 28 53 28 30 29 |. S0$;"=";.(S(0)|
00000AB0: 29 3B 3A 54 B2 54 49 00 D0 12 4C 04 A1 20 41 24 |);:T.TI...L.. A$|
00000AC0: 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 31 31 30 30 |:. A$.."" . 1100|
00000AD0: 00 EA 12 56 04 8B 20 4E B3 B1 30 20 A7 20 8D 20 |...V.. N..0 . . |
00000AE0: 31 31 34 30 3A 89 20 35 35 30 00 00 13 60 04 8B |1140:. 550...`..|
00000AF0: 20 54 49 AB 54 B3 33 30 30 20 A7 20 31 31 32 30 | TI.T.300 . 1120|
00000B00: 00 0A 13 6A 04 89 20 35 35 30 00 22 13 74 04 A1 |...j.. 550.".t..|
00000B10: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 31 | A$:. A$."" . 11|
00000B20: 34 30 00 28 13 7E 04 8E 00 00 00 |40.(.~..... |
..).D.. ORIGINAL PET VERSION BY PETE ROW
E.U.N.. ADAPTED FOR THE VIC BY DAVID MAL
MBERG...X.. 36869,242:M.30720:C(2).4:C(0
).3:C(1).6:.36878,15:.36879,27.....P1.37
151:P2.37152:P3.37154.Y.... ".....WELCOM
E TO THE GAME OF"...... "....";.6);... .
. "................ SNAKE ..............
.".;.... "....WANT INSTRUCTIONS? ";.U...
. 1140:. A$."N" . 460.I.... A$.."Y" . 18
0...H.. ". SNAKE IS A GAME FOR"...R.. "O
NE OR TWO PLAYERS."...... "THE OBJECT IS
TO NOT"...... "RUN INTO ANY OCCUPIED"..
.... "SPACE OR WALL. THE"...... "PLAYER
OR COMPUTER".0.... "THAT FIRST HITS AN"
.O.... "OCCUPIED SPACE OR WALL".^.... "L
OSES.".~.".. "..RETURN. TO CONTINUE.";..
.,.. 1140:. A$..G(13) . 300...6.. ".TO C
ONTROL YOUR SNAKE".Y.@.. "YOU CAN PRESS
.I.,.J.,"...J.. ".K. AND .M. KEYS FOR TH
E"...T.. "RIGHT SNAKE".3.^.."AND .W.,.A.
,.S., AND .Z. KEYS".M.H.."FOR THE LEFT S
NAKE".E.R.. ". W";.10);"I".|.|.. "
.";.10);"."...... " A.....S";.4);"J....
.K"...... " .";.10);".".I.... " Z"
;.10);"M"...... ".LEFT SNAKE. .RIGHT SNA
KE."...... "IF YOU SELECT ZERO".%.... "P
LAYERS, THE COMPUTER".@.B.. "WILL PLAY I
TSELF..".^.L..:. ".0, 1 OR 2 PLAYERS?".Q
.V.. 1140:N.E(A$)...... N.(N.1).(N.2)..0
. 470.....R.0:S(0).0:S(1).0:S0$.G(31)."
PLAYER ... ".....S1$.G(159)."COMPUTER
.V. "...... N.0 . S0$.G(31)."COMPUTER ..
. ".*.... N.2 . S1$.G(159)." PLAYER .V.
".O.... I.0 . 3:. H$(I),H$(I.4),H(I):..
P....M,Z,22,J,A,-1,K,S,1,I,W,-22...&..36
869,240:.".";...0..I.7680.8164.484.A.:..
J.I . I.21:. J,102:.J.M,C(2):.:..Y.D..
I.7702 .8142 . 22...N.. I,102:. I.21,102
...X.. I.M,C(2):. I.21.M,C(2):....B.Q.35
:QD..3.@.L.. I.0 . 1:D(I).1.21..(2..(1))
.K.V.L(I).22..(17..(1).4)..(20..(1)).768
0:..{...T.TI:Q.Q.QD...... I.0 . 1.....F.
1:. A$......I.0.A$."".780......I.0.740..
...J1.B(P1):.P3,127:J2.B(P2):.P3,255....
..J1.122.A$."I":.740...F..J1.110.A$."J":
.740.$.P..J1.118.A$."M":.740.7.Z..J2.119
.A$."K".V.... J.0 . 7:. A$.H$(J) . 760.B
....:. 780..... N..0 . J.4 . D(1).H(J).
..... N.2 . J.3 . D(0).H(J.4)...... N.2
. 800.U.... I.N.0 . B(L(I).2.D(I))..32
. 820... .F.2:. B(L(I).D(I)).32 . 920...
*.. I.N.1 . 1000.).4.A.23..(D(I)):. J.A
. 20.A .A.<.>.. K..1 . 1 . 2.X.H.. B(L(I
).K.J)..32 . 860.D.R..:.:K.1.T.\.. K.1 .
900...F.. B(L(I).J).32 . 910...P.. J.A
. . F . 800,1000...Z.. .(1)..5 . 910.E..
.A..A.P...D(I).A...... L(I),214.5.I:L(I)
.L(I).D(I)...... L(I).M,C(I).2.... .(D(I
)).1 . . L(I),61.D(I):.L(I).M,C(I).U....
D(I).22..L(I),22:.L(I).M,C(I).Y....D(I).
.22..L(I),30:.L(I).M,C(I)...J.. I...T..
TI.T.Q . 980...... 640.D...S(I).S(I).1:Q
D.QD..1:. N.2 . 1020...... I.0 . N.1 . Q
D..3.....Q.Q.QD:. L(I).D(I),42:.L(I).D(I
).M,C(I).....F.60:. J.0 . 5.:...F.112.F:
. 36874,F.140:T.TI.O.... TI.T.10 . 1050.
^.$..:.36874,0.Y.... "..";S1$;"=";D(S(1)
)...8..".........................";...B.
. S0$;"=";D(S(0));:T.TI.P.L.. A$:. A$.."
" . 1100...V.. N..0 . . 1140:. 550...`..
TI.T.300 . 1120...J.. 550.".T.. A$:. A$
."" . 1140.(.~.....
> CLICK IMAGE PREVIEW FOR FULL MODAL