MACHDATA

FILE INFORMATION

FILENAME(S): MACHDATA

FILE TYPE(S): PRG

FILE SIZE: 890b

FIRST SEEN: 2025-11-30 21:07:07

APPEARS ON: 1 disk(s)

FILE HASH

1f8eff7002bb13dad4ace6289a86a8dd6a9e598341a5cd9d904c887e22565e3d

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CS TAPES PET 03	MACHDATA	PRG	DuncanTwain	30	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 16 04 10 27 9C 3A  99 22 93 22 3A 97 35 39  |.....'.:.".":.59|
00000010: 34 36 38 2C 31 32 00 3D  04 74 27 99 22 11 11 44  |468,12.=.t'."..D|
00000020: 49 45 53 45 53 20 50 52  4F 47 52 41 4D 20 4D 41  |IESES PROGRAM MA|
00000030: 43 48 54 20 56 4F 4E 20  49 48 52 45 4E 00 6C 04  |CHT VON IHREN.l.|
00000040: D8 27 99 22 11 20 20 20  4D 41 53 43 48 49 4E 45  |.'.".   MASCHINE|
00000050: 4E 53 50 52 41 43 48 45  20 50 52 4F 47 52 41 4D  |NSPRACHE PROGRAM|
00000060: 20 44 41 54 41 2D 53 54  41 54 45 2D 00 7D 04 3C  | DATA-STATE-.}.<|
00000070: 28 99 22 11 20 20 20 4D  45 4E 54 53 2E 00 A6 04  |(.".   MENTS....|
00000080: A0 28 99 22 11 11 44 41  53 20 50 52 4F 47 52 41  |.(."..DAS PROGRA|
00000090: 4D 20 27 45 52 41 53 45  44 27 20 41 55 54 4F 4D  |M 'ERASED' AUTOM|
000000A0: 41 54 49 53 43 48 00 C6  04 04 29 99 22 11 20 20  |ATISCH....).".  |
000000B0: 20 53 49 43 48 20 53 45  4C 42 53 54 11 11 22 3A  | SICH SELBST..":|
000000C0: 8D 31 32 39 30 30 00 E3  04 68 29 85 22 53 54 41  |.12900...h)."STA|
000000D0: 52 54 2D 41 44 52 45 53  20 28 44 45 43 2E 29 20  |RT-ADRES (DEC.) |
000000E0: 22 3B 53 00 FA 04 CC 29  85 22 57 49 45 56 49 45  |";S....)."WIEVIE|
000000F0: 4C 20 42 59 54 45 53 22  3B 42 00 04 05 30 2A 41  |L BYTES";B...0*A|
00000100: B2 31 30 30 00 19 05 94  2A 99 22 93 11 11 22 3A  |.100....*."...":|
00000110: 81 4A B2 30 A4 33 38 A9  35 00 2E 05 F8 2A 99 41  |.J.0.38.5....*.A|
00000120: 22 44 41 54 41 22 3B 3A  81 4B B2 30 A4 34 00 49  |"DATA";:.K.0.4.I|
00000130: 05 5C 2B 8B 4B AA 4A AA  49 B1 B2 42 A7 99 22 9D  |.\+.K.J.I..B..".|
00000140: 20 22 3A 89 31 31 34 30  30 00 60 05 C0 2B 99 C2  | ":.11400.`..+..|
00000150: 28 53 AA 4B AA 4A AA 49  29 22 2C 22 3B 3A 82 4B  |(S.K.J.I)",";:.K|
00000160: 00 73 05 24 2C 99 22 9D  20 22 3A 41 B2 41 AA 35  |.s.$,.". ":A.A.5|
00000170: 3A 82 4A 00 9D 05 88 2C  99 22 53 3D 22 53 22 3A  |:.J....,."S="S":|
00000180: 42 3D 22 42 22 3A 41 3D  22 41 22 3A 49 3D 22 49  |B="B":A="A":I="I|
00000190: 22 3A 47 4F 54 4F 20 31  31 36 30 30 22 00 C1 05  |":GOTO 11600"...|
000001A0: EC 2C 97 51 31 2C 31 30  3A 81 4B B2 30 A4 39 3A  |.,.Q1,10:.K.0.9:|
000001B0: 97 51 32 AA 4B 2C 31 33  3A 82 3A 99 22 13 22 3A  |.Q2.K,13:.:.".":|
000001C0: 80 00 DE 05 50 2D 8D 31  32 39 30 30 3A 49 B2 49  |....P-.12900:I.I|
000001D0: AA 34 30 3A 8B 49 B3 42  89 31 30 39 30 30 00 E9  |.40:.I.B.10900..|
000001E0: 05 B4 2D 99 22 93 11 11  22 00 03 06 18 2E 99 22  |..-."..."......"|
000001F0: 31 30 20 46 4F 52 49 3D  22 53 22 54 4F 22 53 AA  |10 FORI="S"TO"S.|
00000200: 42 AB 31 00 1F 06 7C 2E  99 22 32 30 20 52 45 41  |B.1...|.."20 REA|
00000210: 44 41 3A 50 4F 4B 45 49  2C 41 3A 4E 45 58 54 00  |DA:POKEI,A:NEXT.|
00000220: 3D 06 E0 2E 99 22 33 30  20 52 45 4D 20 41 4B 54  |=...."30 REM AKT|
00000230: 49 56 49 45 52 45 4E 20  4D 49 54 20 3A 00 55 06  |IVIEREN MIT :.U.|
00000240: 44 2F 99 22 34 30 20 52  45 4D 20 53 59 53 28 22  |D/."40 REM SYS("|
00000250: 3B 53 3B 22 29 00 74 06  A8 2F 99 22 35 30 20 52  |;S;").t../."50 R|
00000260: 45 4D 20 43 4F 55 52 42  4F 49 53 20 53 4F 46 54  |EM COURBOIS SOFT|
00000270: 57 41 52 45 00 8F 06 0C  30 99 22 36 30 20 45 4E  |WARE....0."60 EN|
00000280: 44 22 3A 99 22 47 4F 54  4F 31 32 35 30 30 22 00  |D":."GOTO12500".|
00000290: BA 06 70 30 8D 31 32 39  30 30 3A 97 51 31 2C 31  |..p0.12900:.Q1,1|
000002A0: 30 3A 81 4B B2 30 A4 37  3A 97 51 32 AA 4B 2C 31  |0:.K.0.7:.Q2.K,1|
000002B0: 33 3A 82 3A 99 22 13 22  3A 80 00 CD 06 D4 30 46  |3:.:.".":.....0F|
000002C0: B2 39 39 30 30 3A 4C B2  31 33 30 30 30 00 FA 06  |.9900:L.13000...|
000002D0: 38 31 42 B2 31 32 36 30  30 3A 99 22 93 11 11 22  |81B.12600:."..."|
000002E0: 3A 81 49 B2 46 A4 46 AA  38 30 30 A9 31 30 30 3A  |:.I.F.F.800.100:|
000002F0: 8B 49 B1 B2 4C A7 42 B2  36 30 00 1C 07 9C 31 99  |.I..L.B.60....1.|
00000300: 49 3A 82 3A 99 22 46 3D  22 46 AA 39 30 30 22 3A  |I:.:."F="F.900":|
00000310: 4C 3D 22 4C 22 3A 47 4F  54 4F 22 42 00 47 07 00  |L="L":GOTO"B.G..|
00000320: 32 8D 31 32 39 30 30 3A  97 51 31 2C 31 30 3A 81  |2.12900:.Q1,10:.|
00000330: 4B B2 30 A4 39 3A 97 51  32 AA 4B 2C 31 33 3A 82  |K.0.9:.Q2.K,13:.|
00000340: 3A 99 22 13 22 3A 80 00  71 07 64 32 51 31 B2 35  |:.".":..q.d2Q1.5|
00000350: 32 35 3A 51 32 B2 35 32  37 3A 8B C2 28 35 30 30  |25:Q2.527:..(500|
00000360: 30 30 29 A7 51 31 B2 31  35 38 3A 51 32 B2 36 32  |00).Q1.158:Q2.62|
00000370: 33 00 77 07 C8 32 8E 00  00 00                    |3.w..2....      |

.....'.:.".":.59468,12.=.T'."..DIESES PR
OGRAM MACHT VON IHREN.L.X'.".   MASCHINE
NSPRACHE PROGRAM DATA-STATE-.}.<(.".   M
ENTS.... (."..DAS PROGRAM 'ERASED' AUTOM
ATISCH.F..).".   SICH SELBST..":.12900..
.H)."START-ADRES (DEC.) ";S...L)."WIEVIE
L BYTES";B...0*A.100....*."...":.J.0.38.
5....*.A"DATA";:.K.0.4.I.\+.K.J.I..B..".
 ":.11400.`..+.B(S.K.J.I)",";:.K.S.$,.".
 ":A.A.5:.J....,."S="S":B="B":A="A":I="I
":GOTO 11600".A..,.Q1,10:.K.0.9:.Q2.K,13
:.:.".":....P-.12900:I.I.40:.I.B.10900..
..-."..."......"10 FORI="S"TO"S.B.1...|.
."20 READA:POKEI,A:NEXT.=...."30 REM AKT
IVIEREN MIT :.U.D/."40 REM SYS(";S;").T.
./."50 REM COURBOIS SOFTWARE....0."60 EN
D":."GOTO12500"...P0.12900:.Q1,10:.K.0.7
:.Q2.K,13:.:.".":..M.T0F.9900:L.13000...
81B.12600:."...":.I.F.F.800.100:.I..L.B.
60....1.I:.:."F="F.900":L="L":GOTO"B.G..
2.12900:.Q1,10:.K.0.9:.Q2.K,13:.:.".":..
Q.D2Q1.525:Q2.527:.B(50000).Q1.158:Q2.62
3.W.H2....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL