MODUL-SCHREIBER
FILE INFORMATION
FILENAME(S): MODUL-SCHREIBER
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 01:12:42
APPEARS ON: 2 disk(s)
FILE HASH
d86fc72ce1dd23ed49f20a341e1ba2a8a23c1c83c4dd2674bec0b9d36aedc42c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10702 64ER A | MODUL-SCHREIBER | PRG | C64er, DuncanTwain | 27 | 2 | DOWNLOAD FILE |
| 10702 64ER A | MODUL-SCHREIBER | PRG | DuncanTwain | 27 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 64 00 8F 20 2A 2A 20 48 42 2D 4D 4F |.. .d.. ** HB-MO| 00000010: 44 55 4C 2D 53 43 48 52 45 49 42 45 52 20 2A 2A |DUL-SCHREIBER **| 00000020: 00 50 08 6E 00 86 20 41 4E 24 28 31 36 29 2C 41 |.P.n.. AN$(16),A| 00000030: 53 24 28 31 36 29 2C 41 45 24 28 31 36 29 2C 41 |S$(16),AE$(16),A| 00000040: 44 24 28 31 36 29 3A 43 52 24 B2 C7 28 31 33 29 |D$(16):CR$..(13)| 00000050: 00 68 08 78 00 85 22 93 0E CD 4F 44 55 4C 4E 55 |.h.x.."...ODULNU| 00000060: 4D 4D 45 52 22 3B 4D 4F 00 98 08 82 00 99 22 11 |MMER";MO......".| 00000070: C5 49 4E 47 41 42 45 2C 20 D3 43 48 52 45 49 42 |.INGABE, .CHREIB| 00000080: 45 4E 2C 20 CE 45 55 2C 20 C9 4E 53 54 2C 20 C4 |EN, .EU, .NST, .| 00000090: 45 4C 2C 20 D1 55 49 54 00 A7 08 8C 00 8D 20 32 |EL, .UIT...... 2| 000000A0: 34 30 3A 8D 33 30 30 00 BA 08 96 00 A1 54 24 3A |40:.300......T$:| 000000B0: 8B 54 24 B2 22 22 A7 31 35 30 00 E2 08 A0 00 8B |.T$."".150......| 000000C0: 54 24 B2 22 51 22 A7 99 22 13 11 11 11 11 11 11 |T$."Q"..".......| 000000D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."| 000000E0: 3A 80 00 F8 08 AA 00 8B 54 24 B2 22 53 22 A7 8D |:.......T$."S"..| 000000F0: 33 34 30 3A 89 31 35 30 00 06 09 B4 00 8B 54 24 |340:.150......T$| 00000100: B2 22 4E 22 A7 8A 00 17 09 BE 00 8B 54 24 B2 22 |."N"........T$."| 00000110: 45 22 A7 8D 36 30 30 00 28 09 C8 00 8B 54 24 B2 |E"..600.(....T$.| 00000120: 22 49 22 A7 8D 34 33 30 00 39 09 D2 00 8B 54 24 |"I"..430.9....T$| 00000130: B2 22 44 22 A7 8D 36 39 30 00 42 09 DC 00 89 31 |."D"..690.B....1| 00000140: 35 30 00 48 09 E6 00 80 00 65 09 F0 00 4E 41 24 |50.H.....e...NA$| 00000150: B2 CA 28 C4 28 4D 4F 29 2C 32 2C 34 29 AA 22 4D |..(.(MO),2,4)."M| 00000160: 4F 44 55 4C 22 00 85 09 FA 00 9F 31 35 2C 38 2C |ODUL"......15,8,| 00000170: 31 35 3A 9F 20 31 2C 38 2C 33 2C 4E 41 24 AA 22 |15:. 1,8,3,NA$."| 00000180: 2C 53 2C 52 22 00 9A 09 04 01 84 31 2C 41 42 24 |,S,R"......1,AB$| 00000190: 3A 41 42 B2 C5 28 41 42 24 29 00 CA 09 0E 01 84 |:AB..(AB$)......| 000001A0: 31 35 2C 46 45 2C 55 4E 24 2C 55 4E 24 2C 55 4E |15,FE,UN$,UN$,UN| 000001B0: 24 3A 8B 46 45 A7 99 22 13 22 A3 32 31 29 22 CC |$:.FE..".".21)".| 000001C0: 45 45 52 22 3A A0 31 35 3A 8E 00 D9 09 18 01 81 |EER":.15:.......| 000001D0: 20 4B B2 31 20 A4 20 41 42 00 07 0A 22 01 84 31 | K.1 . AB..."..1| 000001E0: 2C 41 4E 24 28 4B 29 2C 41 53 24 28 4B 29 2C 41 |,AN$(K),AS$(K),A| 000001F0: 45 24 28 4B 29 2C 41 44 24 28 4B 29 3A 82 3A A0 |E$(K),AD$(K):.:.| 00000200: 31 3A A0 31 35 3A 8E 00 3A 0A 2C 01 99 22 13 11 |1:.15:..:.,.."..| 00000210: 11 11 11 12 CE 41 4D 45 20 20 20 20 20 20 20 20 |.....AME | 00000220: 20 20 20 20 20 20 20 56 4F 4E 20 20 20 20 20 42 | VON B| 00000230: 49 53 20 20 C4 41 54 45 4E 22 00 6E 0A 36 01 8B |IS .ATEN".n.6..| 00000240: 41 42 B2 30 A7 99 22 20 20 20 20 20 20 20 20 20 |AB.0.." | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8E 00 7A | ":..z| 00000270: 0A 40 01 81 4B B2 31 A4 41 42 00 A8 0A 4A 01 99 |.@..K.1.AB...J..| 00000280: 41 4E 24 28 4B 29 A3 31 38 29 41 53 24 28 4B 29 |AN$(K).18)AS$(K)| 00000290: A3 32 36 29 41 45 24 28 4B 29 A3 33 34 29 41 44 |.26)AE$(K).34)AD| 000002A0: 24 28 4B 29 3A 82 3A 8E 00 C1 0A 54 01 99 22 13 |$(K):.:....T..".| 000002B0: 22 A3 32 31 29 22 D3 43 48 52 45 49 42 45 4E 3F |".21)".CHREIBEN?| 000002C0: 22 00 D5 0A 5E 01 A1 54 24 3A 8B 54 24 B2 22 4E |"...^..T$:.T$."N| 000002D0: 22 A7 34 32 30 00 E6 0A 68 01 8B 54 24 B3 B1 22 |".420...h..T$.."| 000002E0: 4A 22 A7 33 35 30 00 1B 0B 72 01 99 22 13 22 A3 |J".350...r..".".| 000002F0: 32 31 29 22 C4 49 53 4B 45 54 54 45 20 45 49 4E |21)".ISKETTE EIN| 00000300: 4C 45 47 45 4E 22 3A 97 31 39 38 2C 30 3A 92 31 |LEGEN":.198,0:.1| 00000310: 39 38 2C 31 3A 97 31 39 38 2C 30 00 4C 0B 7C 01 |98,1:.198,0.L.|.| 00000320: 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 3A |.15,8,15:.15,"S:| 00000330: 22 AA 4E 41 24 3A A0 31 35 3A 9F 20 31 2C 38 2C |".NA$:.15:. 1,8,| 00000340: 33 2C 4E 41 24 AA 22 2C 53 2C 57 22 00 59 0B 86 |3,NA$.",S,W".Y..| 00000350: 01 98 31 2C C4 28 41 42 29 00 68 0B 90 01 81 20 |..1,.(AB).h.... | 00000360: 4B B2 31 20 A4 20 41 42 00 96 0B 9A 01 98 31 2C |K.1 . AB......1,| 00000370: 41 4E 24 28 4B 29 43 52 24 41 53 24 28 4B 29 43 |AN$(K)CR$AS$(K)C| 00000380: 52 24 41 45 24 28 4B 29 43 52 24 41 44 24 28 4B |R$AE$(K)CR$AD$(K| 00000390: 29 3A 82 3A A0 31 00 B8 0B A4 01 99 22 13 22 A3 |):.:.1......".".| 000003A0: 32 31 29 22 20 20 20 20 20 20 20 20 20 20 20 20 |21)" | 000003B0: 20 20 20 20 20 22 3A 8E 00 E4 0B AE 01 99 22 13 | ":.......".| 000003C0: 22 A3 32 31 29 22 C5 49 4E 46 55 45 47 45 4E 22 |".21)".INFUEGEN"| 000003D0: 3A 8B 41 42 B2 30 A7 41 42 B2 31 3A 49 B2 31 3A |:.AB.0.AB.1:I.1:| 000003E0: 89 35 34 30 00 F4 0B B8 01 3A 8B 41 42 B2 31 36 |.540.....:.AB.16| 000003F0: A7 35 39 30 00 12 0C C2 01 57 49 4E 50 20 30 2C |.590.....WINP 0,| 00000400: 35 2C 30 2C 41 42 AA 35 2C 22 22 2C 22 2A 22 3B |5,0,AB.5,"","*";| 00000410: 49 24 00 21 0C CC 01 81 49 B2 31 A4 C3 28 49 24 |I$.!....I.1..(I$| 00000420: 29 00 39 0C D6 01 8B 20 CA 28 49 24 2C 49 2C 31 |).9.... .(I$,I,1| 00000430: 29 B2 22 2A 22 A7 34 39 30 00 46 0C E0 01 82 3A |)."*".490.F....:| 00000440: 8D 33 30 30 3A 8E 00 5D 0C EA 01 41 42 B2 41 42 |.300:..]...AB.AB| 00000450: AA 31 3A 81 4B B2 41 42 A4 49 A9 AB 31 00 A3 0C |.1:.K.AB.I..1...| 00000460: F4 01 41 4E 24 28 4B 29 B2 41 4E 24 28 4B AB 31 |..AN$(K).AN$(K.1| 00000470: 29 3A 41 53 24 28 4B 29 B2 41 53 24 28 4B AB 31 |):AS$(K).AS$(K.1| 00000480: 29 3A 41 45 24 28 4B 29 B2 41 45 24 28 4B AB 31 |):AE$(K).AE$(K.1| 00000490: 29 3A 41 44 24 28 4B 29 B2 41 44 24 28 4B AB 31 |):AD$(K).AD$(K.1| 000004A0: 29 3A 82 00 D1 0C FE 01 41 4E 24 28 49 29 B2 22 |):......AN$(I)."| 000004B0: 22 3A 41 53 24 28 49 29 B2 22 22 3A 41 45 24 28 |":AS$(I)."":AE$(| 000004C0: 49 29 B2 22 22 3A 41 44 24 28 49 29 B2 22 22 3A |I)."":AD$(I)."":| 000004D0: 82 00 12 0D 08 02 99 22 13 11 11 11 11 22 3A 81 |.......".....":.| 000004E0: 4A B2 31 A4 41 42 3A 99 22 20 20 20 20 20 20 20 |J.1.AB:." | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000510: 3A 82 00 21 0D 12 02 8D 33 30 30 3A 49 B2 49 AB |:..!....300:I.I.| 00000520: 31 00 4B 0D 1C 02 57 49 4E 50 20 30 2C 49 AA 34 |1.K...WINP 0,I.4| 00000530: 2C 31 35 2C 49 AA 34 2C 22 22 2C 22 86 22 3B 49 |,15,I.4,"",".";I| 00000540: 24 3A 41 4E 24 28 49 29 B2 49 24 00 76 0D 26 02 |$:AN$(I).I$.v.&.| 00000550: 57 49 4E 50 20 31 38 2C 49 AA 34 2C 32 32 2C 49 |WINP 18,I.4,22,I| 00000560: AA 34 2C 22 22 2C 22 85 22 3B 49 24 3A 41 53 24 |.4,"",".";I$:AS$| 00000570: 28 49 29 B2 49 24 00 A1 0D 30 02 57 49 4E 50 20 |(I).I$...0.WINP | 00000580: 32 36 2C 49 AA 34 2C 33 30 2C 49 AA 34 2C 22 22 |26,I.4,30,I.4,""| 00000590: 2C 22 85 22 3B 49 24 3A 41 45 24 28 49 29 B2 49 |,".";I$:AE$(I).I| 000005A0: 24 00 BF 0D 3A 02 8B C5 28 41 53 24 28 49 29 29 |$...:...(AS$(I))| 000005B0: B1 B2 C5 28 41 45 24 28 49 29 29 A7 35 35 30 00 |...(AE$(I)).550.| 000005C0: EA 0D 44 02 57 49 4E 50 20 33 34 2C 49 AA 34 2C |..D.WINP 34,I.4,| 000005D0: 33 36 2C 49 AA 34 2C 22 22 2C 22 85 22 3B 49 24 |36,I.4,"",".";I$| 000005E0: 3A 41 44 24 28 49 29 B2 49 24 00 04 0E 4E 02 99 |:AD$(I).I$...N..| 000005F0: 22 13 22 A3 32 31 29 22 20 20 20 20 20 20 20 20 |".".21)" | 00000600: 20 22 3A 8E 00 10 0E 58 02 8B 41 42 B2 30 A7 8E | ":....X..AB.0..| 00000610: 00 22 0E 62 02 81 49 B2 31 A4 41 42 3A 4B B2 49 |.".b..I.1.AB:K.I| 00000620: AA 34 00 4C 0E 6C 02 57 49 4E 50 20 30 2C 4B 2C |.4.L.l.WINP 0,K,| 00000630: 31 35 2C 4B 2C 41 4E 24 28 49 29 2C 22 86 22 3B |15,K,AN$(I),".";| 00000640: 49 24 3A 41 4E 24 28 49 29 B2 49 24 00 77 0E 76 |I$:AN$(I).I$.w.v| 00000650: 02 57 49 4E 50 20 31 38 2C 4B 2C 32 32 2C 4B 2C |.WINP 18,K,22,K,| 00000660: 41 53 24 28 49 29 2C 22 85 22 3B 49 24 3A 41 53 |AS$(I),".";I$:AS| 00000670: 24 28 49 29 B2 49 24 00 A2 0E 80 02 57 49 4E 50 |$(I).I$.....WINP| 00000680: 20 32 36 2C 4B 2C 33 30 2C 4B 2C 41 45 24 28 49 | 26,K,30,K,AE$(I| 00000690: 29 2C 22 85 22 3B 49 24 3A 41 45 24 28 49 29 B2 |),".";I$:AE$(I).| 000006A0: 49 24 00 C0 0E 8A 02 8B C5 28 41 53 24 28 49 29 |I$.......(AS$(I)| 000006B0: 29 B1 B2 C5 28 41 45 24 28 49 29 29 A7 36 33 30 |)...(AE$(I)).630| 000006C0: 00 EB 0E 94 02 57 49 4E 50 20 33 34 2C 4B 2C 33 |.....WINP 34,K,3| 000006D0: 36 2C 4B 2C 41 44 24 28 49 29 2C 22 85 22 3B 49 |6,K,AD$(I),".";I| 000006E0: 24 3A 41 44 24 28 49 29 B2 49 24 00 F1 0E 9E 02 |$:AD$(I).I$.....| 000006F0: 82 00 F7 0E A8 02 8E 00 18 0F B2 02 99 22 13 22 |............."."| 00000700: A3 32 31 29 22 CC 4F 45 53 43 48 45 4E 22 3A 8B |.21)".OESCHEN":.| 00000710: 41 42 B2 30 A7 37 38 30 00 36 0F BC 02 57 49 4E |AB.0.780.6...WIN| 00000720: 50 20 30 2C 35 2C 30 2C 41 42 AA 34 2C 22 22 2C |P 0,5,0,AB.4,"",| 00000730: 22 2A 22 3B 49 24 00 45 0F C6 02 81 49 B2 31 A4 |"*";I$.E....I.1.| 00000740: C3 28 49 24 29 00 5D 0F D0 02 8B 20 CA 28 49 24 |.(I$).].... .(I$| 00000750: 2C 49 2C 31 29 B2 22 2A 22 A7 37 34 30 00 6A 0F |,I,1)."*".740.j.| 00000760: DA 02 82 3A 8D 33 30 30 3A 8E 00 7E 0F E4 02 41 |...:.300:..~...A| 00000770: 42 B2 41 42 AB 31 3A 81 4B B2 49 A4 41 42 00 C4 |B.AB.1:.K.I.AB..| 00000780: 0F EE 02 41 4E 24 28 4B 29 B2 41 4E 24 28 4B AA |...AN$(K).AN$(K.| 00000790: 31 29 3A 41 53 24 28 4B 29 B2 41 53 24 28 4B AA |1):AS$(K).AS$(K.| 000007A0: 31 29 3A 41 45 24 28 4B 29 B2 41 45 24 28 4B AA |1):AE$(K).AE$(K.| 000007B0: 31 29 3A 41 44 24 28 4B 29 B2 41 44 24 28 4B AA |1):AD$(K).AD$(K.| 000007C0: 31 29 3A 82 00 05 10 F8 02 99 22 13 11 11 11 11 |1):.......".....| 000007D0: 22 3A 81 4A B2 31 A4 41 42 AA 31 3A 99 22 20 20 |":.J.1.AB.1:." | 000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000800: 20 20 20 20 22 00 10 10 02 03 82 3A 8D 33 30 30 | "......:.300| 00000810: 00 29 10 0C 03 99 22 13 22 A3 32 31 29 22 20 20 |.)....".".21)" | 00000820: 20 20 20 20 20 20 22 3A 8E 00 00 00 | ":.... |
.. .D.. ** HB-MODUL-SCHREIBER **.P.N.. A
N$(16),AS$(16),AE$(16),AD$(16):CR$.G(13)
.H.X.."..MODULNUMMER";MO......".EINGABE,
SCHREIBEN, NEU, INST, DEL, QUIT...... 2
40:.300......T$:.T$."".150... ..T$."Q"..
"......................":.......T$."S"..
340:.150......T$."N"........T$."E"..600.
(.H..T$."I"..430.9.R..T$."D"..690.B....1
50.H.....E...NA$.J(D(MO),2,4)."MODUL"...
...15,8,15:. 1,8,3,NA$.",S,R"......1,AB$
:AB.E(AB$).J....15,FE,UN$,UN$,UN$:.FE.."
.".21)"LEER": 15:..Y.... K.1 . AB..."..1
,AN$(K),AS$(K),AE$(K),AD$(K):.: 1: 15:..
:.,.."......NAME VON B
IS DATEN".N.6..AB.0.."
":..Z.@..K.1.AB...J..
AN$(K).18)AS$(K).26)AE$(K).34)AD$(K):.:.
.A.T..".".21)"SCHREIBEN?".U.^..T$:.T$."N
".420...H..T$.."J".350...R..".".21)"DISK
ETTE EINLEGEN":.198,0:.198,1:.198,0.L.|.
.15,8,15:.15,"S:".NA$: 15:. 1,8,3,NA$.",
S,W".Y....1,D(AB).H.... K.1 . AB......1,
AN$(K)CR$AS$(K)CR$AE$(K)CR$AD$(K):.: 1..
....".".21)" ":.......".
".21)"EINFUEGEN":.AB.0.AB.1:I.1:.540....
.:.AB.16.590...B.WINP 0,5,0,AB.5,"","*";
I$.!.L..I.1.C(I$).9.V.. J(I$,I,1)."*".49
0.F....:.300:..]...AB.AB.1:.K.AB.I..1...
..AN$(K).AN$(K.1):AS$(K).AS$(K.1):AE$(K)
.AE$(K.1):AD$(K).AD$(K.1):..Q...AN$(I)."
":AS$(I)."":AE$(I)."":AD$(I)."":......."
.....":.J.1.AB:."
":..!....300:I.I.1.K...WI
NP 0,I.4,15,I.4,"",".";I$:AN$(I).I$.V.&.
WINP 18,I.4,22,I.4,"",".";I$:AS$(I).I$..
.0.WINP 26,I.4,30,I.4,"",".";I$:AE$(I).I
$...:..E(AS$(I))..E(AE$(I)).550...D.WINP
34,I.4,36,I.4,"",".";I$:AD$(I).I$...N..
".".21)" ":....X..AB.0...".B..I.
1.AB:K.I.4.L.L.WINP 0,K,15,K,AN$(I),".";
I$:AN$(I).I$.W.V.WINP 18,K,22,K,AS$(I),"
.";I$:AS$(I).I$.....WINP 26,K,30,K,AE$(I
),".";I$:AE$(I).I$......E(AS$(I))..E(AE$
(I)).630.....WINP 34,K,36,K,AD$(I),".";I
$:AD$(I).I$..................".".21)"LOE
SCHEN":.AB.0.780.6...WINP 0,5,0,AB.4,"",
"*";I$.E.F..I.1.C(I$).].P.. J(I$,I,1)."*
".740.J.Z..:.300:..~...AB.AB.1:.K.I.AB.D
...AN$(K).AN$(K.1):AS$(K).AS$(K.1):AE$(K
).AE$(K.1):AD$(K).AD$(K.1):.......".....
":.J.1.AB.1:."
"......:.300.)....".".21)"
":....
> CLICK IMAGE PREVIEW FOR FULL MODAL