RESET-TEXT
FILE INFORMATION
FILENAME(S): RESET-TEXT
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 1 disk(s)
FILE HASH
500d0dd06ba819ea3cff51b7923a3af69ecc59c3053c6b3ece41cbfafd547001
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 9 86 64 | RESET-TEXT | PRG | C64er | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0F 62 31 62 0A 00 8F 20 50 52 4F 47 52 41 4D 4D |.b1b... PROGRAMM| 00000010: 20 5A 55 4D 20 41 55 53 47 45 42 45 4E 20 45 49 | ZUM AUSGEBEN EI| 00000020: 4E 45 53 00 53 62 14 00 8F 20 42 45 4C 49 45 42 |NES.Sb... BELIEB| 00000030: 49 47 45 4E 20 54 45 58 54 45 53 20 42 45 49 20 |IGEN TEXTES BEI | 00000040: 52 45 53 45 54 00 59 62 1E 00 3A 00 7C 62 50 00 |RESET.Yb..:.|bP.| 00000050: 8F 20 50 52 4F 47 52 41 4D 4D 20 42 49 54 54 45 |. PROGRAMM BITTE| 00000060: 20 49 4D 20 34 30 2D 5A 45 49 43 48 45 4E 00 98 | IM 40-ZEICHEN..| 00000070: 62 5A 00 8F 20 41 53 43 49 49 2D 4D 4F 44 55 53 |bZ.. ASCII-MODUS| 00000080: 20 45 49 4E 47 45 42 45 4E 21 00 9E 62 6E 00 3A | EINGEBEN!..bn.:| 00000090: 00 C3 62 78 00 8F 20 46 41 52 42 45 4E 20 41 45 |..bx.. FARBEN AE| 000000A0: 4E 44 45 52 4E 2F 49 4E 49 54 49 41 4C 49 53 49 |NDERN/INITIALISI| 000000B0: 45 52 55 4E 47 00 C9 62 82 00 3A 00 FD 62 8C 00 |ERUNG..b..:..b..| 000000C0: E7 20 34 2C 31 32 3A E7 20 30 2C 31 33 3A 20 99 |. 4,12:. 0,13: .| 000000D0: 20 C7 28 31 31 29 20 C7 28 31 34 32 29 3A 20 9F | .(11) .(142): .| 000000E0: 20 31 2C 30 3A 20 9F 20 31 35 2C 38 2C 31 35 00 | 1,0: . 15,8,15.| 000000F0: 03 63 96 00 3A 00 2A 63 A0 00 8F 20 4B 4F 4E 54 |.c..:.*c... KONT| 00000100: 52 4F 4C 4C 45 2C 20 4F 42 20 31 2F 30 20 42 45 |ROLLE, OB 1/0 BE| 00000110: 52 45 49 54 53 20 42 45 4C 45 47 54 00 30 63 AA |REITS BELEGT.0c.| 00000120: 00 3A 00 65 63 B4 00 98 31 35 2C 22 42 2D 41 20 |.:.ec...15,"B-A | 00000130: 30 20 31 20 30 22 3A 20 8B 20 44 53 B3 32 30 20 |0 1 0": . DS.20 | 00000140: A7 20 98 31 35 2C 22 42 2D 46 20 30 20 31 20 30 |. .15,"B-F 0 1 0| 00000150: 22 3A 20 89 32 37 30 00 9D 63 BE 00 8D 20 36 38 |": .270..c... 68| 00000160: 30 3A 20 99 20 22 11 11 20 54 52 41 43 4B 20 31 |0: . ".. TRACK 1| 00000170: 2E 20 53 45 4B 54 4F 52 20 30 20 49 53 54 20 42 |. SEKTOR 0 IST B| 00000180: 45 52 45 49 54 53 20 42 45 4C 45 47 54 21 22 00 |EREITS BELEGT!".| 00000190: C6 63 C8 00 99 20 22 11 11 20 54 52 4F 54 5A 44 |.c... ".. TROTZD| 000001A0: 45 4D 20 57 45 49 54 45 52 4D 41 43 48 45 4E 20 |EM WEITERMACHEN | 000001B0: 28 4A 2F 4E 29 20 3F 22 00 F7 63 D2 00 A1 20 F9 |(J/N) ?"..c... .| 000001C0: 20 4A 4E 24 3A 20 8B 20 4A 4E 24 B2 22 4E 22 20 | JN$: . JN$."N" | 000001D0: A7 20 36 34 30 3A 20 D5 20 8B 20 4A 4E 24 B3 B1 |. 640: . . JN$..| 000001E0: 22 4A 22 20 A7 20 32 31 30 00 FD 63 DC 00 3A 00 |"J" . 210..c..:.| 000001F0: 1A 64 E6 00 8F 20 45 49 4E 47 41 42 45 20 44 45 |.d... EINGABE DE| 00000200: 53 20 54 45 58 54 45 53 20 55 4E 44 00 2F 64 F0 |S TEXTES UND./d.| 00000210: 00 8F 20 47 47 46 2E 20 4B 4F 52 52 45 4B 54 55 |.. GGF. KORREKTU| 00000220: 52 00 35 64 FA 00 3A 00 49 64 04 01 98 31 35 2C |R.5d..:.Id...15,| 00000230: 22 42 2D 46 20 30 20 31 20 30 22 00 82 64 0E 01 |"B-F 0 1 0"..d..| 00000240: 8D 20 36 38 30 3A 20 99 20 22 11 11 20 54 45 58 |. 680: . ".. TEX| 00000250: 54 20 28 45 4E 44 45 3A 20 5F 29 3A 22 3A 20 84 |T (ENDE: _):": .| 00000260: 31 2C 54 24 3A 20 8B 20 54 24 B2 22 5F 22 20 A7 |1,T$: . T$."_" .| 00000270: 20 37 39 30 00 A2 64 18 01 99 20 3A 20 99 20 22 | 790..d... : . "| 00000280: 11 11 11 4B 4F 52 52 45 4B 54 55 52 20 28 4A 2F |...KORREKTUR (J/| 00000290: 4E 29 3F 22 00 D3 64 22 01 A1 20 F9 20 4A 4E 24 |N)?"..d".. . JN$| 000002A0: 3A 20 8B 20 4A 4E 24 B2 22 4A 22 20 A7 20 32 37 |: . JN$."J" . 27| 000002B0: 30 3A 20 D5 20 8B 20 4A 4E 24 B3 B1 22 4E 22 20 |0: . . JN$.."N" | 000002C0: A7 20 32 39 30 00 D9 64 2C 01 3A 00 FA 64 36 01 |. 290..d,.:..d6.| 000002D0: 8F 20 44 41 54 45 49 20 4F 45 46 46 4E 45 4E 2E |. DATEI OEFFNEN.| 000002E0: 20 31 20 2F 20 30 20 4C 45 53 45 4E 00 00 65 40 | 1 / 0 LESEN..e@| 000002F0: 01 3A 00 22 65 4A 01 9F 20 32 2C 38 2C 32 2C 22 |.:."eJ.. 2,8,2,"| 00000300: 23 22 3A 20 98 31 35 2C 22 55 31 20 32 20 30 20 |#": .15,"U1 2 0 | 00000310: 31 20 30 22 00 28 65 54 01 3A 00 44 65 5E 01 8F |1 0".(eT.:.De^..| 00000320: 20 43 42 4D 2D 4B 45 4E 4E 55 4E 47 20 53 43 48 | CBM-KENNUNG SCH| 00000330: 52 45 49 42 45 4E 00 4A 65 68 01 3A 00 74 65 72 |REIBEN.Jeh.:.ter| 00000340: 01 FE 25 20 3A 20 98 32 2C 22 43 42 4D 22 3A 20 |..% : .2,"CBM": | 00000350: 81 20 49 B2 30 20 A4 20 34 3A 20 98 32 2C C7 28 |. I.0 . 4: .2,.(| 00000360: 30 29 3B 3A 20 82 00 7A 65 7C 01 3A 00 9E 65 86 |0);: ..ze|.:..e.| 00000370: 01 8F 20 4D 41 53 43 48 49 4E 45 4E 50 52 4F 47 |.. MASCHINENPROG| 00000380: 52 41 4D 4D 20 53 43 48 52 45 49 42 45 4E 20 2B |RAMM SCHREIBEN +| 00000390: 00 C0 65 90 01 8F 20 54 45 58 54 20 41 55 53 20 |..e... TEXT AUS | 000003A0: 42 49 4C 44 53 43 48 49 52 4D 53 50 45 49 43 48 |BILDSCHIRMSPEICH| 000003B0: 45 52 00 D4 65 9A 01 8F 20 4C 45 53 45 4E 20 28 |ER..e... LESEN (| 000003C0: 49 4E 20 41 24 29 00 DA 65 A4 01 3A 00 14 66 AE |IN A$)..e..:..f.| 000003D0: 01 49 B2 31 32 32 34 3A 20 EB 20 FC 20 C2 28 49 |.I.1224: . . .(I| 000003E0: 29 B2 33 31 20 B0 20 49 B2 31 33 35 31 3A 20 41 |).31 . I.1351: A| 000003F0: 24 B2 41 24 AA C7 28 C2 28 49 29 29 3A 20 49 B2 |$.A$..(.(I)): I.| 00000400: 49 AA 31 3A 20 EC 00 3C 66 B8 01 81 20 49 B2 30 |I.1: ..<f... I.0| 00000410: 20 A4 20 31 33 3A 20 87 20 41 3A 20 8B 20 41 B2 | . 13: . A: . A.| 00000420: AB 31 20 A7 20 41 B2 C3 28 41 24 29 AB 31 00 4C |.1 . A..(A$).1.L| 00000430: 66 C2 01 98 32 2C C7 28 41 29 3B 3A 20 82 00 52 |f...2,.(A);: ..R| 00000440: 66 CC 01 3A 00 74 66 D6 01 8F 20 54 45 58 54 20 |f..:.tf... TEXT | 00000450: 41 55 46 20 44 49 53 4B 45 54 54 45 20 53 43 48 |AUF DISKETTE SCH| 00000460: 52 45 49 42 45 4E 00 7A 66 E0 01 3A 00 84 66 EA |REIBEN.zf..:..f.| 00000470: 01 98 32 2C 41 24 00 8A 66 F4 01 3A 00 B0 66 FE |..2,A$..f..:..f.| 00000480: 01 8F 20 42 45 41 52 42 45 49 54 45 54 45 4E 20 |.. BEARBEITETEN | 00000490: 42 4C 4F 43 4B 20 41 55 46 20 44 49 53 4B 45 54 |BLOCK AUF DISKET| 000004A0: 54 45 00 D7 66 08 02 8F 20 53 43 48 52 45 49 42 |TE..f... SCHREIB| 000004B0: 45 4E 20 55 4E 44 20 44 41 54 45 49 45 4E 20 53 |EN UND DATEIEN S| 000004C0: 43 48 4C 49 45 53 53 45 4E 00 DD 66 12 02 3A 00 |CHLIESSEN..f..:.| 000004D0: 07 67 1C 02 98 31 35 2C 22 55 32 20 32 20 30 20 |.g...15,"U2 2 0 | 000004E0: 31 20 30 22 3A 20 98 31 35 2C 22 42 2D 41 20 30 |1 0": .15,"B-A 0| 000004F0: 20 31 20 30 22 3A 20 FE 0F 00 0D 67 26 02 3A 00 | 1 0": ....g&.:.| 00000500: 1D 67 30 02 8F 20 4B 4F 4D 4D 45 4E 54 41 52 00 |.g0.. KOMMENTAR.| 00000510: 23 67 3A 02 3A 00 61 67 44 02 8D 20 36 38 30 3A |#g:.:.agD.. 680:| 00000520: 20 FE 26 20 3A 20 99 20 22 11 11 20 54 45 58 54 | .& : . ".. TEXT| 00000530: 20 53 54 45 48 54 20 41 55 46 20 44 49 45 53 45 | STEHT AUF DIESE| 00000540: 52 20 44 49 53 4B 45 54 54 45 20 42 45 52 45 49 |R DISKETTE BEREI| 00000550: 54 21 22 00 90 67 4E 02 99 20 22 11 20 54 52 41 |T!"..gN.. ". TRA| 00000560: 43 4B 20 31 2C 20 53 45 4B 54 4F 52 20 30 20 49 |CK 1, SEKTOR 0 I| 00000570: 53 54 20 41 4C 53 20 42 45 4C 45 47 54 20 47 45 |ST ALS BELEGT GE| 00000580: 2D 22 00 D9 67 58 02 99 20 22 20 4B 45 4E 4E 5A |-"..gX.. " KENNZ| 00000590: 45 49 43 48 4E 45 54 21 20 4E 41 43 48 20 45 49 |EICHNET! NACH EI| 000005A0: 4E 45 4D 20 56 41 4C 49 44 41 54 45 20 49 53 54 |NEM VALIDATE IST| 000005B0: 20 20 20 46 4F 4C 47 45 4E 44 45 53 20 45 52 46 | FOLGENDES ERF| 000005C0: 4F 52 44 45 52 4C 49 43 48 3A 22 00 14 68 62 02 |ORDERLICH:"..hb.| 000005D0: 99 20 22 11 20 4F 50 45 4E 31 35 2C 38 2C 31 35 |. ". OPEN15,8,15| 000005E0: 2C 22 20 C7 28 33 34 29 22 42 2D 41 20 30 20 31 |," .(34)"B-A 0 1| 000005F0: 20 30 22 20 C7 28 33 34 29 22 20 20 20 28 52 45 | 0" .(34)" (RE| 00000600: 54 55 52 4E 29 22 00 4E 68 6C 02 99 20 22 11 11 |TURN)".Nhl.. "..| 00000610: 20 42 45 54 41 45 54 49 47 45 4E 20 53 49 45 20 | BETAETIGEN SIE | 00000620: 44 4F 43 48 20 45 49 4E 4D 41 4C 20 44 49 45 20 |DOCH EINMAL DIE | 00000630: 52 45 53 45 54 2D 20 20 20 54 41 53 54 45 21 22 |RESET- TASTE!"| 00000640: 00 59 68 76 02 A1 20 F9 20 47 24 00 66 68 80 02 |.Yhv.. . G$.fh..| 00000650: 8D 20 36 38 30 3A 20 80 00 6C 68 8A 02 3A 00 8C |. 680: ..lh..:..| 00000660: 68 94 02 8F 20 42 49 4C 44 53 43 48 49 52 4D 4D |h... BILDSCHIRMM| 00000670: 41 53 4B 45 20 45 52 53 54 45 4C 4C 45 4E 00 92 |ASKE ERSTELLEN..| 00000680: 68 9E 02 3A 00 C7 68 A8 02 99 20 22 93 97 12 20 |h..:..h... "... | 00000690: 20 20 20 20 41 55 53 47 41 42 45 20 45 49 4E 45 | AUSGABE EINE| 000006A0: 53 20 54 45 58 54 45 53 20 42 45 49 20 52 45 53 |S TEXTES BEI RES| 000006B0: 45 54 20 20 20 20 20 22 3B 00 FD 68 B2 02 99 20 |ET ";..h... | 000006C0: 22 9B 20 20 20 20 20 20 28 43 29 20 31 39 38 36 |". (C) 1986| 000006D0: 20 42 59 20 54 48 4F 52 53 54 45 4E 20 57 45 57 | BY THORSTEN WEW| 000006E0: 45 52 53 20 20 20 20 20 20 20 90 22 3A 20 8E 00 |ERS .": ..| 000006F0: 03 69 BC 02 3A 00 25 69 C6 02 8F 20 44 41 54 41 |.i..:.%i... DATA| 00000700: 53 20 46 55 45 52 20 4D 41 53 43 48 49 4E 45 4E |S FUER MASCHINEN| 00000710: 52 4F 55 54 49 4E 45 00 2B 69 D0 02 3A 00 61 69 |ROUTINE.+i..:.ai| 00000720: DA 02 83 20 31 32 30 2C 31 36 30 2C 2D 31 2C 31 |... 120,160,-1,1| 00000730: 38 35 2C 32 33 2C 31 31 2C 31 35 33 2C 31 30 34 |85,23,11,153,104| 00000740: 2C 35 2C 31 33 36 2C 31 36 2C 32 34 37 2C 38 38 |,5,136,16,247,88| 00000750: 2C 39 36 00 67 69 E4 02 3A 00 8B 69 EE 02 8F 20 |,96.gi..:..i... | 00000760: 4E 41 43 48 20 41 42 46 52 41 47 45 20 4C 45 45 |NACH ABFRAGE LEE| 00000770: 52 45 4E 20 42 4C 4F 43 4B 20 41 55 46 00 B1 69 |REN BLOCK AUF..i| 00000780: F8 02 8F 20 44 49 53 4B 45 54 54 45 20 53 43 48 |... DISKETTE SCH| 00000790: 52 45 49 42 45 4E 20 2F 20 53 43 48 4C 49 45 53 |REIBEN / SCHLIES| 000007A0: 53 45 4E 00 CB 69 02 03 8F 20 41 4C 4C 45 52 20 |SEN..i... ALLER | 000007B0: 4B 41 4E 41 45 4C 45 20 2F 20 45 4E 44 00 D1 69 |KANAELE / END..i| 000007C0: 0C 03 3A 00 09 6A 16 03 8D 20 36 38 30 3A 20 99 |..:..j... 680: .| 000007D0: 20 22 11 11 20 53 4F 4C 4C 20 44 45 52 20 42 4C | ".. SOLL DER BL| 000007E0: 4F 43 4B 20 47 45 4C 45 53 43 48 54 20 57 45 52 |OCK GELESCHT WER| 000007F0: 44 45 4E 20 28 4A 2F 4E 29 3F 22 00 3A 6A 20 03 |DEN (J/N)?".:j .| 00000800: A1 20 F9 20 4A 4E 24 3A 20 8B 20 4A 4E 24 B2 22 |. . JN$: . JN$."| 00000810: 4E 22 20 A7 20 36 34 30 3A 20 D5 20 8B 20 4A 4E |N" . 640: . . JN| 00000820: 24 B3 B1 22 4A 22 20 A7 20 38 30 30 00 61 6A 2A |$.."J" . 800.aj*| 00000830: 03 FE 25 20 3A 20 9F 20 32 2E 38 2E 32 2E 22 23 |..% : . 2.8.2."#| 00000840: 22 3A 20 98 31 35 2C 22 55 31 20 32 20 30 20 31 |": .15,"U1 2 0 1| 00000850: 20 30 22 00 7E 6A 34 03 81 20 49 B2 30 20 A4 20 | 0".~j4.. I.0 . | 00000860: 32 35 35 3A 20 98 32 2C C7 28 30 29 3B 3A 20 82 |255: .2,.(0);: .| 00000870: 00 A3 6A 3E 03 98 31 35 2C 22 55 32 20 32 20 30 |..j>..15,"U2 2 0| 00000880: 20 31 20 30 22 3A 20 FE 0F 20 3A 20 FE 26 20 3A | 1 0": .. : .& :| 00000890: 20 89 36 34 30 00 00 00 | .640... |
.B1B... PROGRAMM ZUM AUSGEBEN EINES.SB..
. BELIEBIGEN TEXTES BEI RESET.YB..:.|BP.
. PROGRAMM BITTE IM 40-ZEICHEN..BZ.. ASC
II-MODUS EINGEBEN!..BN.:.CBX.. FARBEN AE
NDERN/INITIALISIERUNG.IB..:..B... 4,12:.
0,13: . G(11) G(142): . 1,0: . 15,8,15.
.C..:.*C .. KONTROLLE, OB 1/0 BEREITS BE
LEGT.0C..:.EC...15,"B-A 0 1 0": . DS.20
. .15,"B-F 0 1 0": .270..C... 680: . "..
TRACK 1. SEKTOR 0 IST BEREITS BELEGT!".
FCH.. ".. TROTZDEM WEITERMACHEN (J/N) ?"
..CR.. . JN$: . JN$."N" . 640: U . JN$..
"J" . 210..C..:..D... EINGABE DES TEXTES
UND./D... GGF. KORREKTUR.5D..:.ID...15,
"B-F 0 1 0"..D... 680: . ".. TEXT (ENDE:
_):": .1,T$: . T$."_" . 790..D... : . "
...KORREKTUR (J/N)?".SD".. . JN$: . JN$.
"J" . 270: U . JN$.."N" . 290.YD,.:..D6.
. DATEI OEFFNEN. 1 / 0 LESEN..E@.:."EJ..
2,8,2,"#": .15,"U1 2 0 1 0".(ET.:.DE^..
CBM-KENNUNG SCHREIBEN.JEH.:.TER..% : .2
,"CBM": . I.0 . 4: .2,G(0);: ..ZE|.:..E.
.. MASCHINENPROGRAMM SCHREIBEN +..E... T
EXT AUS BILDSCHIRMSPEICHER.TE... LESEN (
IN A$).ZE..:..F..I.1224: . . B(I).31 . I
.1351: A$.A$.G(B(I)): I.I.1: ..<F... I.0
. 13: . A: . A..1 . A.C(A$).1.LFB..2,G(
A);: ..RFL.:.TFV.. TEXT AUF DISKETTE SCH
REIBEN.ZF..:..F...2,A$..F..:..F... BEARB
EITETEN BLOCK AUF DISKETTE.WF... SCHREIB
EN UND DATEIEN SCHLIESSEN..F..:..G...15,
"U2 2 0 1 0": .15,"B-A 0 1 0": ....G&.:.
.G0.. KOMMENTAR.#G:.:.AGD.. 680: .& : .
".. TEXT STEHT AUF DIESER DISKETTE BEREI
T!"..GN.. ". TRACK 1, SEKTOR 0 IST ALS B
ELEGT GE-".YGX.. " KENNZEICHNET! NACH EI
NEM VALIDATE IST FOLGENDES ERFORDERLIC
H:"..HB.. ". OPEN15,8,15," G(34)"B-A 0 1
0" G(34)" (RETURN)".NHL.. ".. BETAETI
GEN SIE DOCH EINMAL DIE RESET- TASTE!"
.YHV.. . G$.FH... 680: ..LH..:..H... BIL
DSCHIRMMASKE ERSTELLEN..H..:.GH... "...
AUSGABE EINES TEXTES BEI RESET "
;..H... ". (C) 1986 BY THORSTEN WEW
ERS .": ...I..:.%IF.. DATAS FUER M
ASCHINENROUTINE.+IP.:.AIZ.. 120,160,-1,1
85,23,11,153,104,5,136,16,247,88,96.GI..
:..I... NACH ABFRAGE LEEREN BLOCK AUF..I
... DISKETTE SCHREIBEN / SCHLIESSEN.KI..
. ALLER KANAELE / END.QI..:..J... 680: .
".. SOLL DER BLOCK GELESCHT WERDEN (J/N
)?".:J .. . JN$: . JN$."N" . 640: U . JN
$.."J" . 800.AJ*..% : . 2.8.2."#": .15,"
U1 2 0 1 0".~J4.. I.0 . 255: .2,G(0);: .
..J>..15,"U2 2 0 1 0": .. : .& : .640...
> CLICK IMAGE PREVIEW FOR FULL MODAL