CHAR.MAIN
FILE INFORMATION
FILENAME(S): CHAR.MAIN
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-12-02 00:00:13
APPEARS ON: 1 disk(s)
FILE HASH
44e04e22ccba108bf023051bdfee4949024c5222f879eec95f0781b078526515
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 00 | CHAR.MAIN | PRG | earthshaker | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 00 00 41 B2 30 3A 99 22 93 22 3B 3A |..,...A.0:.".";:| 00000010: 97 35 33 32 37 32 2C 32 32 3A 97 35 33 32 38 30 |.53272,22:.53280| 00000020: 2C 36 3A 97 35 33 32 38 31 2C 31 34 00 50 08 05 |,6:.53281,14.P..| 00000030: 00 8B 41 B2 30 A7 97 32 30 35 35 2C 34 39 3A 93 |..A.0..2055,49:.| 00000040: 22 43 48 41 52 2E 4F 42 4A 20 31 22 2C 38 2C 31 |"CHAR.OBJ 1",8,1| 00000050: 00 74 08 0A 00 8B 41 B2 31 A7 97 32 30 35 35 2C |.t....A.1..2055,| 00000060: 35 30 3A 93 22 43 48 41 52 2E 4F 42 4A 20 32 22 |50:."CHAR.OBJ 2"| 00000070: 2C 38 2C 31 00 89 08 0F 00 97 35 36 2C 31 36 AA |,8,1......56,16.| 00000080: 38 3A 97 35 35 2C 30 3A 9C 00 AF 08 14 00 86 4D |8:.55,0:.......M| 00000090: 24 28 31 29 3A 4D 24 28 30 29 B2 22 4F 46 46 22 |$(1):M$(0)."OFF"| 000000A0: 3A 4D 24 28 31 29 B2 22 4F 4E 22 3A 4D B2 30 00 |:M$(1)."ON":M.0.| 000000B0: BE 08 15 00 5A B2 31 31 38 36 3A 50 B2 5A 00 F3 |....Z.1186:P.Z..| 000000C0: 08 19 00 99 22 93 12 1F C3 C8 C1 D2 20 2D 20 C4 |...."....... - .| 000000D0: C5 D4 C5 CB D4 CF D2 20 20 28 43 29 27 38 35 20 |....... (C)'85 | 000000E0: 42 59 20 CD 49 4B 45 20 CC 45 52 43 48 20 20 20 |BY .IKE .ERCH | 000000F0: 11 11 22 00 1F 09 1E 00 99 22 20 20 20 20 24 30 |.."......" $0| 00000100: 30 30 30 20 20 20 20 24 34 30 30 30 20 20 20 20 |000 $4000 | 00000110: 24 38 30 30 30 20 20 20 20 24 C3 30 30 30 22 00 |$8000 $.000".| 00000120: 4C 09 23 00 99 22 11 20 20 20 20 24 30 38 30 30 |L.#..". $0800| 00000130: 20 20 20 20 24 34 38 30 30 20 20 20 20 24 38 38 | $4800 $88| 00000140: 30 30 20 20 20 20 24 C3 38 30 30 22 00 7D 09 28 |00 $.800".}.(| 00000150: 00 99 22 11 20 20 20 9E 20 24 31 30 30 30 20 1F |..". . $1000 .| 00000160: 20 20 20 24 35 30 30 30 20 20 20 9E 20 24 39 30 | $5000 . $90| 00000170: 30 30 20 1F 20 20 20 24 C4 30 30 30 22 00 AE 09 |00 . $.000"...| 00000180: 2D 00 99 22 11 20 20 20 9E 20 24 31 38 30 30 20 |-..". . $1800 | 00000190: 1F 20 20 20 24 35 38 30 30 20 20 20 9E 20 24 39 |. $5800 . $9| 000001A0: 38 30 30 20 1F 20 20 20 24 C4 38 30 30 22 00 DB |800 . $.800"..| 000001B0: 09 32 00 99 22 11 20 20 20 20 24 32 30 30 30 20 |.2..". $2000 | 000001C0: 20 20 20 24 36 30 30 30 20 20 20 20 24 C1 30 30 | $6000 $.00| 000001D0: 30 20 20 20 20 24 C5 30 30 30 22 00 08 0A 37 00 |0 $.000"...7.| 000001E0: 99 22 11 20 20 20 20 24 32 38 30 30 20 20 20 20 |.". $2800 | 000001F0: 24 36 38 30 30 20 20 20 20 24 C1 38 30 30 20 20 |$6800 $.800 | 00000200: 20 20 24 C5 38 30 30 22 00 35 0A 3C 00 99 22 11 | $.800".5.<..".| 00000210: 20 20 20 20 24 33 30 30 30 20 20 20 20 24 37 30 | $3000 $70| 00000220: 30 30 20 20 20 20 24 C2 30 30 30 20 20 20 20 24 |00 $.000 $| 00000230: C6 30 30 30 22 00 62 0A 41 00 99 22 11 20 20 20 |.000".b.A..". | 00000240: 20 24 33 38 30 30 20 20 20 20 24 37 38 30 30 20 | $3800 $7800 | 00000250: 20 20 20 24 C2 38 30 30 20 20 20 20 24 C6 38 30 | $.800 $.80| 00000260: 30 22 00 90 0A 46 00 99 22 11 11 20 20 20 20 12 |0"...F..".. .| 00000270: D3 92 91 9D A4 11 41 56 45 20 20 20 20 20 20 20 |......AVE | 00000280: 12 C4 92 91 9D A4 11 49 52 45 43 54 4F 52 59 22 |.......IRECTORY"| 00000290: 00 C5 0A 4B 00 99 22 11 20 20 20 20 12 D1 92 91 |...K..". ....| 000002A0: 9D A4 11 55 49 54 20 20 20 20 20 20 20 12 C1 92 |...UIT ...| 000002B0: 91 9D A4 11 4F 55 54 4F 4D 41 54 49 43 3A 20 22 |....OUTOMATIC: "| 000002C0: 4D 24 28 4D 29 00 CE 0A 5A 00 8D 31 35 30 00 DF |M$(M)...Z..150..| 000002D0: 0A 5F 00 A1 41 24 3A 8B 4D B2 31 A7 31 32 35 00 |._..A$:.M.1.125.| 000002E0: FA 0A 64 00 8B 41 24 B2 22 11 22 A7 59 B2 59 AA |..d..A$.".".Y.Y.| 000002F0: 31 3A 8D 31 35 30 3A 89 39 35 00 15 0B 69 00 8B |1:.150:.95...i..| 00000300: 41 24 B2 22 91 22 A7 59 B2 59 AB 31 3A 8D 31 35 |A$.".".Y.Y.1:.15| 00000310: 30 3A 89 39 35 00 30 0B 6E 00 8B 41 24 B2 22 1D |0:.95.0.n..A$.".| 00000320: 22 A7 58 B2 58 AA 31 3A 8D 31 35 30 3A 89 39 35 |".X.X.1:.150:.95| 00000330: 00 4B 0B 73 00 8B 41 24 B2 22 9D 22 A7 58 B2 58 |.K.s..A$.".".X.X| 00000340: AB 31 3A 8D 31 35 30 3A 89 39 35 00 5C 0B 78 00 |.1:.150:.95.\.x.| 00000350: 8B 41 24 B2 22 53 22 A7 89 32 32 35 00 6F 0B 7D |.A$."S"..225.o.}| 00000360: 00 8B 41 24 B2 C7 28 31 33 29 A7 89 31 39 35 00 |..A$..(13)..195.| 00000370: 85 0B 82 00 8B 41 24 B2 22 41 22 A7 4D B2 31 AB |.....A$."A".M.1.| 00000380: 4D 3A 89 32 35 00 9F 0B 87 00 8B 41 24 B2 22 51 |M:.25......A$."Q| 00000390: 22 A7 99 22 93 22 3A 97 31 39 38 2C 30 3A 80 00 |"..".":.198,0:..| 000003A0: C7 0B 8C 00 8B 41 24 B2 22 44 22 A7 99 22 93 22 |.....A$."D".."."| 000003B0: 3A 9E 38 32 38 3A 97 31 39 38 2C 30 3A 92 31 39 |:.828:.198,0:.19| 000003C0: 38 2C 31 3A 89 32 35 00 CF 0B 91 00 89 39 35 00 |8,1:.25......95.| 000003D0: E3 0B 96 00 8B 59 B2 AB 31 A7 59 B2 37 3A 58 B2 |.....Y..1.Y.7:X.| 000003E0: 58 AB 31 00 F6 0B 9B 00 8B 59 B2 38 A7 59 B2 30 |X.1......Y.8.Y.0| 000003F0: 3A 58 B2 58 AA 31 00 04 0C A0 00 8B 58 B2 AB 31 |:X.X.1......X..1| 00000400: A7 58 B2 33 00 11 0C A5 00 8B 58 B2 34 A7 58 B2 |.X.3......X.4.X.| 00000410: 30 00 34 0C AA 00 97 50 2C 33 32 3A 81 54 B2 50 |0.4....P,32:.T.P| 00000420: AA 31 A4 50 AA 37 3A 97 54 2C C2 28 54 29 AF 31 |.1.P.7:.T,.(T).1| 00000430: 32 37 3A 82 00 45 0C AF 00 50 B2 5A AA 38 30 AC |27:..E...P.Z.80.| 00000440: 59 AA 39 AC 58 00 62 0C B4 00 81 54 B2 50 AA 31 |Y.9.X.b....T.P.1| 00000450: A4 50 AA 37 3A 97 54 2C C2 28 54 29 B0 31 32 38 |.P.7:.T,.(T).128| 00000460: 3A 82 00 71 0C B9 00 43 B2 58 AC 36 34 AA 59 AC |:..q...C.X.64.Y.| 00000470: 38 00 77 0C BE 00 8E 00 9B 0C C3 00 8B 43 B3 B1 |8.w..........C..| 00000480: 31 36 AF 43 B3 B1 32 34 AF 43 B3 B1 31 34 34 AF |16.C..24.C..144.| 00000490: 43 B3 B1 31 35 32 A7 89 31 39 38 00 B4 0C C4 00 |C..152..198.....| 000004A0: 8B 4D B2 31 A7 59 B2 59 AA 31 3A 8D 31 35 30 3A |.M.1.Y.Y.1:.150:| 000004B0: 89 31 39 35 00 BC 0C C5 00 89 32 35 00 CF 0C C6 |.195......25....| 000004C0: 00 99 22 93 22 3A 97 35 33 32 38 30 2C 31 34 00 |..".":.53280,14.| 000004D0: DD 0C C8 00 8B 43 B2 38 A7 43 B2 32 34 00 F7 0C |.....C.8.C.24...| 000004E0: CD 00 9E 39 33 33 2C 34 38 2C 31 34 34 3A 9E 39 |...933,48,144:.9| 000004F0: 33 33 2C 43 2C 34 38 00 0F 0D D2 00 9E 39 39 31 |33,C,48......991| 00000500: 3A 97 35 33 32 37 32 2C 32 39 3A 9E 37 32 38 00 |:.53272,29:.728.| 00000510: 28 0D D7 00 97 31 39 38 2C 30 3A 92 31 39 38 2C |(....198,0:.198,| 00000520: 31 3A 97 31 39 38 2C 30 00 60 0D DC 00 99 22 9A |1:.198,0.`....".| 00000530: 93 22 3A 9E 39 33 33 2C 31 34 34 2C 34 38 3A 97 |.":.933,144,48:.| 00000540: 35 33 32 37 32 2C 32 32 3A 97 35 33 32 38 30 2C |53272,22:.53280,| 00000550: 36 3A 59 B2 59 AA 4D 3A 8D 31 35 30 3A 89 32 35 |6:Y.Y.M:.150:.25| 00000560: 00 AC 0D E1 00 99 22 93 11 11 20 20 C4 49 53 4B |......"... .ISK| 00000570: 2D C1 44 52 45 53 53 45 20 3A 20 20 20 20 24 33 |-.DRESSE : $3| 00000580: 30 30 30 20 20 28 31 29 22 3A 99 22 11 20 20 20 |000 (1)":.". | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005A0: 20 24 33 38 30 30 20 20 28 32 29 22 00 DA 0D E6 | $3800 (2)"....| 000005B0: 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". | 000005C0: 20 20 20 20 20 20 20 20 24 37 30 30 30 20 20 28 | $7000 (| 000005D0: 33 29 22 3A 97 31 39 38 2C 30 00 ED 0D EB 00 A1 |3)":.198,0......| 000005E0: 41 24 3A 8B 41 24 B2 22 22 A7 32 33 35 00 12 0E |A$:.A$."".235...| 000005F0: F0 00 8B 41 24 B2 22 32 22 A7 41 B2 35 36 3A 97 |...A$."2".A.56:.| 00000600: 37 30 37 2C 41 3A 97 37 32 33 2C 36 34 3A 89 32 |707,A:.723,64:.2| 00000610: 35 35 00 39 0E F5 00 8B 41 24 B2 22 33 22 A7 41 |55.9....A$."3".A| 00000620: B2 31 31 32 3A 97 37 30 37 2C 41 3A 97 37 32 33 |.112:.707,A:.723| 00000630: 2C 31 32 30 3A 89 32 35 35 00 51 0E FA 00 41 B2 |,120:.255.Q...A.| 00000640: 34 38 3A 97 37 30 37 2C 41 3A 97 37 32 33 2C 35 |48:.707,A:.723,5| 00000650: 36 00 68 0E FF 00 9E 39 33 33 2C 41 2C 32 34 3A |6.h....933,A,24:| 00000660: 9E 39 33 33 2C 43 2C 41 00 99 0E 04 01 97 31 39 |.933,C,A......19| 00000670: 38 2C 30 3A 85 22 11 11 11 1D 1D C6 49 4C 45 4E |8,0:."......ILEN| 00000680: 41 4D 45 20 22 3B 46 24 3A 8B 46 24 B2 22 22 A7 |AME ";F$:.F$."".| 00000690: 46 24 B2 22 43 48 41 52 22 00 AF 0E 09 01 99 22 |F$."CHAR"......"| 000006A0: 11 11 1D 1D 57 52 49 54 49 4E 47 20 22 46 24 00 |....WRITING "F$.| 000006B0: C2 0E 0E 01 9E 37 30 34 2C 22 22 AA 46 24 2C 38 |.....704,"".F$,8| 000006C0: 2C 31 00 E0 0E 13 01 9F 31 2C 38 2C 31 35 3A 84 |,1......1,8,15:.| 000006D0: 31 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A A0 31 |1,A$,B$,C$,D$:.1| 000006E0: 00 F1 0E 18 01 8B 42 24 B2 22 4F 4B 22 A7 33 31 |......B$."OK".31| 000006F0: 30 00 14 0F 1D 01 99 22 11 11 1D 1D 12 20 C4 49 |0......"..... .I| 00000700: 53 4B 20 C5 52 52 4F 52 20 3A 20 20 20 22 42 24 |SK .RROR : "B$| 00000710: 22 12 20 22 00 2F 0F 22 01 8B 42 24 B3 B1 22 46 |". "./."..B$.."F| 00000720: 49 4C 45 20 45 58 49 53 54 53 22 A7 33 31 30 00 |ILE EXISTS".310.| 00000730: 49 0F 27 01 99 22 11 1D 1D C6 49 4C 45 20 45 52 |I.'.."....ILE ER| 00000740: 53 45 54 5A 45 4E 20 3F 22 00 5C 0F 2C 01 A1 4A |SETZEN ?".\.,..J| 00000750: 24 3A 8B 4A 24 B2 22 22 A7 33 30 30 00 8A 0F 31 |$:.J$."".300...1| 00000760: 01 8B 4A 24 B2 22 4A 22 A7 99 22 11 11 1D 1D 57 |..J$."J".."....W| 00000770: 52 49 54 49 4E 47 20 22 46 24 3A 46 24 B2 22 40 |RITING "F$:F$."@| 00000780: 3A 22 AA 46 24 3A 89 32 37 30 00 9C 0F 36 01 9E |:".F$:.270...6..| 00000790: 39 33 33 2C 32 34 2C 41 3A 89 32 35 00 00 00 41 |933,24,A:.25...A|
..,...A.0:.".";:.53272,22:.53280,6:.5328
1,14.P....A.0..2055,49:."CHAR.OBJ 1",8,1
.T....A.1..2055,50:."CHAR.OBJ 2",8,1....
..56,16.8:.55,0:.......M$(1):M$(0)."OFF"
:M$(1)."ON":M.0.....Z.1186:P.Z......"...
CHAR - DETEKTOR (C)'85 BY MIKE LERCH
.."......" $0000 $4000 $8000
$C000".L.#..". $0800 $4800 $88
00 $C800".}.(..". . $1000 . $5000
. $9000 . $D000"...-..". . $1800
. $5800 . $9800 . $D800"...2..".
$2000 $6000 $A000 $E000"...7.
.". $2800 $6800 $A800 $E800"
.5.<..". $3000 $7000 $B000 $
F000".B.A..". $3800 $7800 $B800
$F800"...F..".. .S.....AVE
.D.....IRECTORY".E.K..". .Q.....UIT
.A.....OUTOMATIC: "M$(M).N.Z..150..
._..A$:.M.1.125...D..A$.".".Y.Y.1:.150:.
95...I..A$.".".Y.Y.1:.150:.95.0.N..A$.".
".X.X.1:.150:.95.K.S..A$.".".X.X.1:.150:
.95.\.X..A$."S"..225.O.}..A$.G(13)..195.
.....A$."A".M.1.M:.25......A$."Q"..".":.
198,0:..G....A$."D"..".":.828:.198,0:.19
8,1:.25.O....95......Y..1.Y.7:X.X.1.....
.Y.8.Y.0:X.X.1... ..X..1.X.3......X.4.X.
0.4....P,32:.T.P.1.P.7:.T,B(T).127:..E..
.P.Z.80.Y.9.X.B....T.P.1.P.7:.T,B(T).128
:..Q...C.X.64.Y.8.W.......C..C..16.C..24
.C..144.C..152..198...D..M.1.Y.Y.1:.150:
.195...E..25.O.F..".":.53280,14...H..C.8
.C.24...M..933,48,144:.933,C,48...R..991
:.53272,29:.728.(.W..198,0:.198,1:.198,0
.`...."..":.933,144,48:.53272,22:.53280,
6:Y.Y.M:.150:.25......"... DISK-ADRESSE
: $3000 (1)":.".
$3800 (2)".Z....".
$7000 (3)":.198,0......A$:.A$."".235...
...A$."2".A.56:.707,A:.723,64:.255.9....
A$."3".A.112:.707,A:.723,120:.255.Q...A.
48:.707,A:.723,56.H....933,A,24:.933,C,A
......198,0:.".....FILENAME ";F$:.F$."".
F$."CHAR"......"....WRITING "F$.B....704
,"".F$,8,1......1,8,15:.1,A$,B$,C$,D$: 1
......B$."OK".310......"..... DISK ERROR
: "B$". "./."..B$.."FILE EXISTS".310.
I.'.."...FILE ERSETZEN ?".\.,..J$:.J$.""
.300...1..J$."J".."....WRITING "F$:F$."@
:".F$:.270...6..933,24,A:.25...A
> CLICK IMAGE PREVIEW FOR FULL MODAL