_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SNAKE.T

FILE INFORMATION

FILENAME(S): SNAKE.T

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 01:12:48

APPEARS ON: 1 disk(s)

FILE HASH

1ad81906a7655a4c0f40d078e9f8dc6938809a3f0620e7213569c88ac161581b

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 ER SONDERH 94 SNAKE.T PRG C64er 1 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0D 0D 31 20 49 46 53 3D  30 54 48 45 4E 53 3D 31  |..1 IFS=0THENS=1|
00000010: 3A 44 49 4D 50 4F 28 32  35 35 29 3A 41 3D 31 30  |:DIMPO(255):A=10|
00000020: 3A 47 4F 54 4F 32 30 0D  32 20 50 4F 4B 45 35 33  |:GOTO20.2 POKE53|
00000030: 32 38 30 2C 30 3A 50 4F  4B 45 35 33 32 38 31 2C  |280,0:POKE53281,|
00000040: 30 3A 50 52 49 4E 54 22  9A 93 22 3B 3A 46 4F 52  |0:PRINT"..";:FOR|
00000050: 49 3D 30 54 4F 33 39 3A  50 4F 4B 45 31 30 32 34  |I=0TO39:POKE1024|
00000060: 2B 49 2C 31 36 30 3A 50  4F 4B 45 31 39 38 34 2B  |+I,160:POKE1984+|
00000070: 49 2C 31 36 30 3A 4E 45  58 54 0D 33 20 46 4F 52  |I,160:NEXT.3 FOR|
00000080: 49 3D 31 54 4F 32 33 3A  50 4F 4B 45 31 30 32 34  |I=1TO23:POKE1024|
00000090: 2B 34 30 2A 49 2C 31 36  30 3A 50 4F 4B 45 31 30  |+40*I,160:POKE10|
000000A0: 36 33 2B 34 30 2A 49 2C  31 36 30 3A 4E 45 58 54  |63+40*I,160:NEXT|
000000B0: 3A 58 3D 31 39 3A 59 3D  31 32 3A 4C 3D 31 3A 44  |:X=19:Y=12:L=1:D|
000000C0: 58 3D 31 3A 44 59 3D 30  3A 41 4B 3D 31 0D 34 20  |X=1:DY=0:AK=1.4 |
000000D0: 41 3D 34 30 2A 59 2B 58  3A 50 4F 4B 45 35 35 32  |A=40*Y+X:POKE552|
000000E0: 39 36 2B 41 2C 31 3A 50  4F 4B 45 31 30 32 34 2B  |96+A,1:POKE1024+|
000000F0: 41 2C 31 36 30 3A 50 4F  4B 45 35 35 32 39 36 2B  |A,160:POKE55296+|
00000100: 50 4F 28 4C 50 29 2C 30  3A 50 4F 4B 45 31 30 32  |PO(LP),0:POKE102|
00000110: 34 2B 50 4F 28 4C 50 29  2C 33 32 0D 35 20 41 3D  |4+PO(LP),32.5 A=|
00000120: 50 45 45 4B 28 35 36 33  32 30 29 3A 49 46 28 28  |PEEK(56320):IF((|
00000130: 41 41 4E 44 31 29 3D 30  29 41 4E 44 28 44 59 3D  |AAND1)=0)AND(DY=|
00000140: 30 29 54 48 45 4E 44 59  3D 2D 31 3A 44 58 3D 30  |0)THENDY=-1:DX=0|
00000150: 3A 47 4F 54 4F 39 0D 36  20 49 46 28 28 41 41 4E  |:GOTO9.6 IF((AAN|
00000160: 44 32 29 3D 30 29 41 4E  44 28 44 59 3D 30 29 54  |D2)=0)AND(DY=0)T|
00000170: 48 45 4E 44 59 3D 31 3A  44 58 3D 30 3A 47 4F 54  |HENDY=1:DX=0:GOT|
00000180: 4F 39 0D 37 20 49 46 28  28 41 41 4E 44 34 29 3D  |O9.7 IF((AAND4)=|
00000190: 30 29 41 4E 44 28 44 58  3D 30 29 54 48 45 4E 44  |0)AND(DX=0)THEND|
000001A0: 58 3D 2D 31 3A 44 59 3D  30 3A 47 4F 54 4F 39 0D  |X=-1:DY=0:GOTO9.|
000001B0: 38 20 49 46 28 28 41 41  4E 44 38 29 3D 30 29 41  |8 IF((AAND8)=0)A|
000001C0: 4E 44 28 44 58 3D 30 29  54 48 45 4E 44 58 3D 31  |ND(DX=0)THENDX=1|
000001D0: 3A 44 59 3D 30 0D 39 20  50 4F 28 41 4B 29 3D 34  |:DY=0.9 PO(AK)=4|
000001E0: 30 2A 59 2B 58 3A 58 3D  58 2B 44 58 3A 59 3D 59  |0*Y+X:X=X+DX:Y=Y|
000001F0: 2B 44 59 3A 41 3D 50 45  45 4B 28 31 30 32 34 2B  |+DY:A=PEEK(1024+|
00000200: 34 30 2A 59 2B 58 29 3A  49 46 41 3D 31 36 30 4F  |40*Y+X):IFA=160O|
00000210: 52 41 3D 38 31 54 48 45  4E 31 34 0D 31 30 20 41  |RA=81THEN14.10 A|
00000220: 4B 3D 28 41 4B 2B 31 29  41 4E 44 32 35 35 3A 4C  |K=(AK+1)AND255:L|
00000230: 50 3D 28 4C 50 2B 31 29  41 4E 44 32 35 35 3A 49  |P=(LP+1)AND255:I|
00000240: 46 41 3D 38 37 54 48 45  4E 4C 50 3D 28 4C 50 2D  |FA=87THENLP=(LP-|
00000250: 31 29 41 4E 44 32 35 35  3A 4C 3D 4C 2B 31 3A 47  |1)AND255:L=L+1:G|
00000260: 4F 54 4F 34 0D 31 31 20  56 3D 49 4E 54 28 52 4E  |OTO4.11 V=INT(RN|
00000270: 44 28 31 29 2A 33 38 29  2B 31 3A 57 3D 49 4E 54  |D(1)*38)+1:W=INT|
00000280: 28 52 4E 44 28 31 29 2A  32 33 29 2B 31 3A 41 3D  |(RND(1)*23)+1:A=|
00000290: 57 2A 34 30 2B 56 3A 49  46 50 45 45 4B 28 31 30  |W*40+V:IFPEEK(10|
000002A0: 32 34 2B 41 29 3D 31 36  30 4F 52 56 3D 58 4F 52  |24+A)=160ORV=XOR|
000002B0: 57 3D 59 54 48 45 4E 34  0D 31 32 20 54 3D 54 2B  |W=YTHEN4.12 T=T+|
000002C0: 31 3A 49 46 54 3C 31 30  54 48 45 4E 50 4F 4B 45  |1:IFT<10THENPOKE|
000002D0: 35 35 32 39 36 2B 41 2C  31 30 3A 50 4F 4B 45 31  |55296+A,10:POKE1|
000002E0: 30 32 34 2B 41 2C 38 37  3A 47 4F 54 4F 34 0D 31  |024+A,87:GOTO4.1|
000002F0: 33 20 54 3D 30 3A 50 4F  4B 45 35 35 32 39 36 2B  |3 T=0:POKE55296+|
00000300: 41 2C 37 3A 50 4F 4B 45  31 30 32 34 2B 41 2C 38  |A,7:POKE1024+A,8|
00000310: 31 3A 47 4F 54 4F 34 0D  31 34 20 41 3D 31 30 3A  |1:GOTO4.14 A=10:|
00000320: 46 4F 52 49 3D 39 54 4F  30 53 54 45 50 2D 31 3A  |FORI=9TO0STEP-1:|
00000330: 49 46 4C 3E 4D 28 49 29  54 48 45 4E 41 3D 49 0D  |IFL>M(I)THENA=I.|
00000340: 31 35 20 4E 45 58 54 3A  49 46 41 3C 31 30 54 48  |15 NEXT:IFA<10TH|
00000350: 45 4E 46 4F 52 49 3D 39  54 4F 41 2B 31 53 54 45  |ENFORI=9TOA+1STE|
00000360: 50 2D 31 3A 4D 28 49 29  3D 4D 28 49 2D 31 29 3A  |P-1:M(I)=M(I-1):|
00000370: 4E 24 28 49 29 3D 4E 24  28 49 2D 31 29 3A 4E 45  |N$(I)=N$(I-1):NE|
00000380: 58 54 3A 4D 28 41 29 3D  4C 0D 31 36 20 50 52 49  |XT:M(A)=L.16 PRI|
00000390: 4E 54 22 93 12 47 41 4D  45 20 4F 56 45 52 2E 2E  |NT"..GAME OVER..|
000003A0: 2E 20 44 45 49 4E 45 20  4C 41 45 4E 47 45 3A 22  |. DEINE LAENGE:"|
000003B0: 4C 3A 50 52 49 4E 54 22  1D 53 43 4F 52 45 53 3A  |L:PRINT".SCORES:|
000003C0: 22 3A 49 46 41 3C 31 30  54 48 45 4E 49 4E 50 55  |":IFA<10THENINPU|
000003D0: 54 22 1D 22 3B 4E 24 28  41 29 0D 31 37 20 46 4F  |T".";N$(A).17 FO|
000003E0: 52 49 3D 30 54 4F 39 3A  50 52 49 4E 54 22 1D 22  |RI=0TO9:PRINT"."|
000003F0: 49 2B 31 54 41 42 28 35  29 22 3A 22 4D 28 49 29  |I+1TAB(5)":"M(I)|
00000400: 54 41 42 28 31 32 29 4E  24 28 49 29 3A 4E 45 58  |TAB(12)N$(I):NEX|
00000410: 54 3A 49 46 41 3E 39 54  48 45 4E 31 39 0D 31 38  |T:IFA>9THEN19.18|
00000420: 20 4F 50 45 4E 31 2C 38  2C 31 35 2C 22 53 3A 53  | OPEN1,8,15,"S:S|
00000430: 4E 2E 48 49 22 3A 43 4C  4F 53 45 31 3A 4F 50 45  |N.HI":CLOSE1:OPE|
00000440: 4E 31 2C 38 2C 31 2C 22  53 4E 2E 48 49 22 3A 46  |N1,8,1,"SN.HI":F|
00000450: 4F 52 49 3D 30 54 4F 39  3A 50 52 49 4E 54 23 31  |ORI=0TO9:PRINT#1|
00000460: 2C 4D 28 49 29 3A 50 52  49 4E 54 23 31 2C 4E 24  |,M(I):PRINT#1,N$|
00000470: 28 49 29 3A 4E 45 58 54  3A 43 4C 4F 53 45 31 0D  |(I):NEXT:CLOSE1.|
00000480: 31 39 20 50 4F 4B 45 31  39 38 2C 30 3A 57 41 49  |19 POKE198,0:WAI|
00000490: 54 31 39 38 2C 31 3A 50  4F 4B 45 31 39 38 2C 30  |T198,1:POKE198,0|
000004A0: 3A 50 4F 28 30 29 3D 34  31 3A 4C 50 3D 30 3A 47  |:PO(0)=41:LP=0:G|
000004B0: 4F 54 4F 32 0D 32 30 20  4F 50 45 4E 31 2C 38 2C  |OTO2.20 OPEN1,8,|
000004C0: 32 2C 22 53 4E 2E 48 49  22 3A 46 4F 52 49 3D 30  |2,"SN.HI":FORI=0|
000004D0: 54 4F 39 3A 49 4E 50 55  54 23 31 2C 4D 28 49 29  |TO9:INPUT#1,M(I)|
000004E0: 3A 49 4E 50 55 54 23 31  2C 4E 24 28 49 29 3A 4E  |:INPUT#1,N$(I):N|
000004F0: 45 58 54 3A 43 4C 4F 53  45 31 3A 50 52 49 4E 54  |EXT:CLOSE1:PRINT|
00000500: 22 93 22 3A 47 4F 54 4F  31 37 0D 0A 4F 4B 2E 20  |".":GOTO17..OK. |
00000510: 20 20 0D 0A                                       |  ..            |

..1 IFS=0THENS=1:DIMPO(255):A=10:GOTO20.
2 POKE53280,0:POKE53281,0:PRINT"..";:FOR
I=0TO39:POKE1024+I,160:POKE1984+I,160:NE
XT.3 FORI=1TO23:POKE1024+40*I,160:POKE10
63+40*I,160:NEXT:X=19:Y=12:L=1:DX=1:DY=0
:AK=1.4 A=40*Y+X:POKE55296+A,1:POKE1024+
A,160:POKE55296+PO(LP),0:POKE1024+PO(LP)
,32.5 A=PEEK(56320):IF((AAND1)=0)AND(DY=
0)THENDY=-1:DX=0:GOTO9.6 IF((AAND2)=0)AN
D(DY=0)THENDY=1:DX=0:GOTO9.7 IF((AAND4)=
0)AND(DX=0)THENDX=-1:DY=0:GOTO9.8 IF((AA
ND8)=0)AND(DX=0)THENDX=1:DY=0.9 PO(AK)=4
0*Y+X:X=X+DX:Y=Y+DY:A=PEEK(1024+40*Y+X):
IFA=160ORA=81THEN14.10 AK=(AK+1)AND255:L
P=(LP+1)AND255:IFA=87THENLP=(LP-1)AND255
:L=L+1:GOTO4.11 V=INT(RND(1)*38)+1:W=INT
(RND(1)*23)+1:A=W*40+V:IFPEEK(1024+A)=16
0ORV=XORW=YTHEN4.12 T=T+1:IFT<10THENPOKE
55296+A,10:POKE1024+A,87:GOTO4.13 T=0:PO
KE55296+A,7:POKE1024+A,81:GOTO4.14 A=10:
FORI=9TO0STEP-1:IFL>M(I)THENA=I.15 NEXT:
IFA<10THENFORI=9TOA+1STEP-1:M(I)=M(I-1):
N$(I)=N$(I-1):NEXT:M(A)=L.16 PRINT"..GAM
E OVER... DEINE LAENGE:"L:PRINT".SCORES:
":IFA<10THENINPUT".";N$(A).17 FORI=0TO9:
PRINT"."I+1TAB(5)":"M(I)TAB(12)N$(I):NEX
T:IFA>9THEN19.18 OPEN1,8,15,"S:SN.HI":CL
OSE1:OPEN1,8,1,"SN.HI":FORI=0TO9:PRINT#1
,M(I):PRINT#1,N$(I):NEXT:CLOSE1.19 POKE1
98,0:WAIT198,1:POKE198,0:PO(0)=41:LP=0:G
OTO2.20 OPEN1,8,2,"SN.HI":FORI=0TO9:INPU
T#1,M(I):INPUT#1,N$(I):NEXT:CLOSE1:PRINT
".":GOTO17..OK.   ..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL