SHA.FROGGER

FILE INFORMATION

FILENAME(S): SHA.FROGGER

FILE TYPE(S): SEQ

FILE SIZE: 1.5K

FIRST SEEN: 2025-10-20 14:32:05

APPEARS ON: 1 disk(s)

FILE HASH

c0dccf8bdf9d6133e21164f1a12d1e5669753689106a8f5db3bf639047fb80d2

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSFILE	SHA.FROGGER	SEQ	Treasure Chest - Klaus Der Suhler	19	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 35 20 22 46 22 3A 20 43  4C 45 41 52 20 3A 20 42  |5 "F": CLEAR : B|
00000010: 45 45 50 7E 8F F4 FF 9F  8E 8E EF EE 77 79 7E 9E  |EEP~........wy~.|
00000020: 88 E1 E9 E0 71 71 7E 79  88 E4 9F 99 8D E8 8E 97  |....qq~y........|
00000030: 8D E8 9E 97 8F 8D EE 8E  9F 8D EE 9E 9F E4 9F 97  |................|
00000040: 8E 8E E1 70 79 77 78 8E  87 8F 8F 8D 8E EE 71 8E  |...pywx.......q.|
00000050: EB 8E 99 8E E7 EE 7E 75  8E 89 8F E4 9F 97 9E 8E  |......~u........|
00000060: EF EE 77 79 7E 9E 88 EE  9D 8E E7 78 EE 7C 9E 8D  |..wy~......x.|..|
00000070: 8D 8E E7 78 EE 7C 9E 8D  8D 8E E7 78 EE 7C 9E 8D  |...x.|.....x.|..|
00000080: EE 98 E4 9F 9B 8E 8E E5  71 8E 8E EE 75 EC 7E 7E  |........q...u.~~|
00000090: 9E 8E 8E 98 EB 88 8E E7  EE 7E 75 8E 8E 9F E4 9F  |.........~u.....|
000000A0: 9B 9E 8E E1 70 77 E0 9E  8F 97 E4 99 8F 8E 8E EF  |....pw..........|
000000B0: EE 77 79 7E 9E 88 EE 9E  8E 8E 8D 8E E7 78 EE 7C  |.wy~.........x.||
000000C0: 9E 8D 8D 8E E7 78 EE 7C  9E 8D 8D 8E E7 78 EE 7C  |.....x.|.....x.||
000000D0: 9E 8D EE 98 E4 99 89 8E  8E EE 71 8E 8E EE 75 EC  |..........q...u.|
000000E0: 7E 7E 9E 8E 8E 98 EB 88  8E E7 EE 7E 75 8E 89 87  |~~.........~u...|
000000F0: F4 99 89 9E 8E E1 70 77  E0 9E 8F 97 E4 99 35 20  |......pw......5 |
00000100: 20 47 4F 53 55 42 20 33  30 30 3A 20 47 4F 53 55  | GOSUB 300: GOSU|
00000110: 42 20 34 30 30 3A 20 49  46 20 56 3D 32 20 54 48  |B 400: IF V=2 TH|
00000120: 45 4E 20 33 30 0D 32 37  20 20 50 41 55 53 45 20  |EN 30.27  PAUSE |
00000130: 22 49 20 58 20 3A 20 55  42 4C 4B 20 3A 3A 20 55  |"I X : UBLK :: U|
00000140: 42 4C 4B 20 3A 49 22 0D  32 38 20 20 49 46 20 20  |BLK :I".28  IF  |
00000150: 49 4E 4B 45 59 24 20 3D  22 5A 22 20 54 48 45 4E  |INKEY$ ="Z" THEN|
00000160: 20 31 34 0D 32 39 20 20  47 4F 54 4F 20 39 30 0D  | 14.29  GOTO 90.|
00000170: 33 30 20 20 50 41 55 53  45 20 22 21 20 58 20 20  |30  PAUSE "! X  |
00000180: 20 20 3A 20 55 42 4C 4B  20 3A 49 22 0D 33 32 20  |  : UBLK :I".32 |
00000190: 20 49 46 20 20 49 4E 4B  45 59 24 20 3D 22 56 22  | IF  INKEY$ ="V"|
000001A0: 20 54 48 45 4E 20 33 35  0D 33 33 20 20 47 4F 54  | THEN 35.33  GOT|
000001B0: 4F 20 39 30 0D 33 35 20  20 47 4F 53 55 42 20 33  |O 90.35  GOSUB 3|
000001C0: 30 30 3A 20 47 4F 53 55  42 20 34 30 30 3A 20 49  |00: GOSUB 400: I|
000001D0: 46 20 56 3D 32 20 54 48  45 4E 20 34 30 0D 33 36  |F V=2 THEN 40.36|
000001E0: 20 20 50 41 55 53 45 20  22 49 20 20 20 20 58 20  |  PAUSE "I    X |
000001F0: 3A 20 55 42 4C 4B 20 3A  49 22 0D 33 37 20 20 49  |: UBLK :I".37  I|
00000200: 46 20 20 49 4E 4B 45 59  24 20 3D 22 5A 22 20 54  |F  INKEY$ ="Z" T|
00000210: 48 45 4E 20 32 35 0D 33  38 20 20 47 4F 54 4F 20  |HEN 25.38  GOTO |
00000220: 39 30 0D 34 30 20 20 50  41 55 53 45 20 22 49 3A  |90.40  PAUSE "I:|
00000230: 20 55 42 4C 4B 20 3A 20  58 20 20 20 20 49 22 0D  | UBLK : X    I".|
00000240: 34 32 20 20 49 46 20 20  49 4E 4B 45 59 24 20 3D  |42  IF  INKEY$ =|
00000250: 22 56 22 20 54 48 45 4E  20 34 35 0D 34 33 20 20  |"V" THEN 45.43  |
00000260: 47 4F 54 4F 20 39 30 0D  34 35 20 20 47 4F 53 55  |GOTO 90.45  GOSU|
00000270: 42 20 33 30 30 3A 20 47  4F 53 55 42 20 34 30 30  |B 300: GOSUB 400|
00000280: 3A 20 49 46 20 56 3D 32  20 54 48 45 4E 20 35 35  |: IF V=2 THEN 55|
00000290: 0D 34 38 20 20 50 41 55  53 45 20 22 49 3A 20 55  |.48  PAUSE "I: U|
000002A0: 42 4C 4B 20 3A 20 20 20  20 58 20 40 22 0D 35 30  |BLK :    X @".50|
000002B0: 20 20 49 46 20 20 49 4E  4B 45 59 24 20 3D 22 5A  |  IF  INKEY$ ="Z|
000002C0: 22 20 54 48 45 4E 20 33  35 0D 35 32 20 20 47 4F  |" THEN 35.52  GO|
000002D0: 54 4F 20 39 30 0D 35 35  20 20 50 41 55 53 45 20  |TO 90.55  PAUSE |
000002E0: 22 21 3A 20 55 42 4C 4B  20 3A 3A 20 55 42 4C 4B  |"!: UBLK :: UBLK|
000002F0: 20 3A 20 58 20 49 22 0D  35 37 20 20 49 46 20 20  | : X I".57  IF  |
00000300: 49 4E 4B 45 59 24 20 3D  22 56 22 20 54 48 45 4E  |INKEY$ ="V" THEN|
00000310: 20 36 30 0D 35 38 20 20  47 4F 54 4F 20 39 30 0D  | 60.58  GOTO 90.|
00000320: 36 30 20 20 50 41 55 53  45 20 22 21 3A 20 55 42  |60  PAUSE "!: UB|
00000330: 4C 4B 20 3A 3A 20 55 42  4C 4B 20 3A 3A 20 55 42  |LK :: UBLK :: UB|
00000340: 4C 4B 20 3A 58 22 3A 20  47 4F 54 4F 20 39 39 0D  |LK :X": GOTO 99.|
00000350: 36 38 20 20 50 41 55 53  45 20 22 21 3A 20 55 42  |68  PAUSE "!: UB|
00000360: 4C 4B 20 3A 3A 20 55 42  4C 4B 20 3A 3A 20 55 42  |LK :: UBLK :: UB|
00000370: 4C 4B 20 3A 58 22 3A 20  47 4F 54 4F 20 39 39 0D  |LK :X": GOTO 99.|
00000380: 39 30 20 20 47 4F 53 55  42 20 35 30 30 3A 20 47  |90  GOSUB 500: G|
00000390: 4F 54 4F 20 31 34 0D 39  39 20 20 42 45 45 50 20  |OTO 14.99  BEEP |
000003A0: 31 0D 31 30 30 20 41 3D  32 3A 20 47 4F 53 55 42  |1.100 A=2: GOSUB|
000003B0: 20 34 30 30 3A 20 49 46  20 56 3D 32 20 54 48 45  | 400: IF V=2 THE|
000003C0: 4E 20 31 30 38 0D 31 30  32 20 20 50 41 55 53 45  |N 108.102  PAUSE|
000003D0: 20 22 58 20 20 2A 20 2A  20 29 22 0D 31 30 34 20  | "X  * * )".104 |
000003E0: 20 49 46 20 20 49 4E 4B  45 59 24 20 3D 22 56 22  | IF  INKEY$ ="V"|
000003F0: 20 54 48 45 4E 20 31 31  31 0D 31 30 36 20 20 47  | THEN 111.106  G|
00000400: 4F 54 4F 20 31 30 30 0D  31 30 38 20 20 50 41 55  |OTO 100.108  PAU|
00000410: 53 45 20 22 58 20 21 2A  21 2A 20 29 22 3A 20 49  |SE "X !*!* )": I|
00000420: 46 20 20 49 4E 4B 45 59  24 20 3D 22 56 22 20 54  |F  INKEY$ ="V" T|
00000430: 48 45 4E 20 31 31 32 0D  31 31 30 20 20 49 46 20  |HEN 112.110  IF |
00000440: 20 49 4E 4B 45 59 24 20  3D 22 22 20 54 48 45 4E  | INKEY$ ="" THEN|
00000450: 20 31 30 30 0D 31 31 31  20 20 47 4F 53 55 42 20  | 100.111  GOSUB |
00000460: 35 30 30 3A 20 47 4F 54  4F 20 31 30 30 0D 31 31  |500: GOTO 100.11|
00000470: 32 20 20 47 4F 53 55 42  20 33 30 30 3A 20 47 4F  |2  GOSUB 300: GO|
00000480: 53 55 42 20 34 30 30 3A  20 49 46 20 56 3D 32 20  |SUB 400: IF V=2 |
00000490: 54 48 45 4E 20 31 31 38  0D 31 31 34 20 20 50 41  |THEN 118.114  PA|
000004A0: 55 53 45 20 22 49 20 58  3D 3A 20 29 22 3A 20 49  |USE "I X=: )": I|
000004B0: 46 20 20 49 4E 4B 45 59  24 20 3D 22 5A 22 20 54  |F  INKEY$ ="Z" T|
000004C0: 48 45 4E 20 31 30 30 0D  31 31 36 20 20 47 4F 53  |HEN 100.116  GOS|
000004D0: 55 42 20 35 30 30 3A 20  47 4F 54 4F 20 31 30 30  |UB 500: GOTO 100|
000004E0: 0D 31 31 38 20 20 50 41  55 53 45 20 22 40 20 58  |.118  PAUSE "@ X|
000004F0: 2A 20 2A 20 29 22 3A 20  49 46 20 20 49 4E 4B 45  |* * )": IF  INKE|
00000500: 59 24 20 3D 22 56 22 20  54 48 45 4E 20 31 32 36  |Y$ ="V" THEN 126|
00000510: 0D 31 32 30 20 20 49 46  20 20 49 4E 4B 45 59 24  |.120  IF  INKEY$|
00000520: 20 3D 22 22 20 54 48 45  4E 20 31 31 32 0D 31 32  | ="" THEN 112.12|
00000530: 34 20 20 47 4F 53 55 42  20 35 30 30 3A 20 47 4F  |4  GOSUB 500: GO|
00000540: 54 4F 20 31 30 30 0D 31  32 36 20 20 47 4F 53 55  |TO 100.126  GOSU|
00000550: 42 20 33 30 30 3A 20 47  4F 53 55 42 20 34 30 30  |B 300: GOSUB 400|
00000560: 3A 20 49 46 20 56 3D 32  20 54 48 45 4E 20 31 33  |: IF V=2 THEN 13|
00000570: 32 0D 31 32 38 20 20 50  41 55 53 45 20 22 49 20  |2.128  PAUSE "I |
00000580: 21 58 20 2A 20 29 22 3A  20 49 46 20 20 49 4E 4B  |!X * )": IF  INK|
00000590: 45 59 24 20 3D 22 5A 22  20 54 48 45 4E 20 31 31  |EY$ ="Z" THEN 11|
000005A0: 32 0D 31 33 30 20 20 47  4F 53 55 42 20 35 30 30  |2.130  GOSUB 500|
000005B0: 3A 20 47 4F 54 4F 20 31  30 30 0D 31 33 32 20 20  |: GOTO 100.132  |
000005C0: 50 41 55 53 45 20 22 49  20 20 58 21 2A 20 29 22  |PAUSE "I  X!* )"|
000005D0: 3A 20 49 46 20 20 49 4E  4B 45 59 24 20 3D 22 56  |: IF  INKEY$ ="V|
000005E0: 22 20 54 48 45 4E 20 31  33 36 0D 31 33 34 20 20  |" THEN 136.134  |
000005F0: 47 4F 53 55                                       |GOSU            |

5 "F": CLEAR : BEEP~........WY~.....QQ~Y
...........................PYWX.......Q.
......~U..........WY~......X.|.....X.|..
...X.|..........Q...U.~~.........~U.....
....PW...........WY~.........X.|.....X.|
.....X.|..........Q...U.~~.........~U...
......PW......5  GOSUB 300: GOSUB 400: I
F V=2 THEN 30.27  PAUSE "I X : UBLK :: U
BLK :I".28  IF  INKEY$ ="Z" THEN 14.29  
GOTO 90.30  PAUSE "! X    : UBLK :I".32 
 IF  INKEY$ ="V" THEN 35.33  GOTO 90.35 
 GOSUB 300: GOSUB 400: IF V=2 THEN 40.36
  PAUSE "I    X : UBLK :I".37  IF  INKEY
$ ="Z" THEN 25.38  GOTO 90.40  PAUSE "I:
 UBLK : X    I".42  IF  INKEY$ ="V" THEN
 45.43  GOTO 90.45  GOSUB 300: GOSUB 400
: IF V=2 THEN 55.48  PAUSE "I: UBLK :   
 X @".50  IF  INKEY$ ="Z" THEN 35.52  GO
TO 90.55  PAUSE "!: UBLK :: UBLK : X I".
57  IF  INKEY$ ="V" THEN 60.58  GOTO 90.
60  PAUSE "!: UBLK :: UBLK :: UBLK :X": 
GOTO 99.68  PAUSE "!: UBLK :: UBLK :: UB
LK :X": GOTO 99.90  GOSUB 500: GOTO 14.9
9  BEEP 1.100 A=2: GOSUB 400: IF V=2 THE
N 108.102  PAUSE "X  * * )".104  IF  INK
EY$ ="V" THEN 111.106  GOTO 100.108  PAU
SE "X !*!* )": IF  INKEY$ ="V" THEN 112.
110  IF  INKEY$ ="" THEN 100.111  GOSUB 
500: GOTO 100.112  GOSUB 300: GOSUB 400:
 IF V=2 THEN 118.114  PAUSE "I X=: )": I
F  INKEY$ ="Z" THEN 100.116  GOSUB 500: 
GOTO 100.118  PAUSE "@ X* * )": IF  INKE
Y$ ="V" THEN 126.120  IF  INKEY$ ="" THE
N 112.124  GOSUB 500: GOTO 100.126  GOSU
B 300: GOSUB 400: IF V=2 THEN 132.128  P
AUSE "I !X * )": IF  INKEY$ ="Z" THEN 11
2.130  GOSUB 500: GOTO 100.132  PAUSE "I
  X!* )": IF  INKEY$ ="V" THEN 136.134  
GOSU

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL