_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LESEROUTINE

FILE INFORMATION

FILENAME(S): LESEROUTINE

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 21:12:45

APPEARS ON: 1 disk(s)

FILE HASH

541fabdba162b2d1da215662ac274437eebefaa42033bc514e306e2b6f8cfcef

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
DISK TOOL V3 2 LESEROUTINE PRG DuncanTwain 17 19 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 0A 00 8F 20  45 52 52 4F 52 4C 45 53  |..).... ERRORLES|
00000010: 45 52 4F 55 54 49 4E 45  20 46 55 45 52 20 41 4C  |EROUTINE FUER AL|
00000020: 4C 45 20 53 50 55 52 45  4E 00 48 08 14 00 8F 20  |LE SPUREN.H.... |
00000030: 28 43 29 20 31 39 38 35  20 42 59 20 4B 4C 41 55  |(C) 1985 BY KLAU|
00000040: 53 20 52 41 43 5A 45 4B  00 4E 08 1E 00 3A 00 73  |S RACZEK.N...:.s|
00000050: 08 28 00 86 20 52 28 32  32 29 3A 20 8F 20 46 45  |.(.. R(22): . FE|
00000060: 4C 44 20 46 55 45 52 20  4C 45 53 45 52 4F 55 54  |LD FUER LESEROUT|
00000070: 49 4E 45 00 AC 08 32 00  9F 31 2C 38 2C 31 35 2C  |INE...2..1,8,15,|
00000080: 22 49 22 3A 8F 20 46 45  48 4C 45 52 4B 41 4E 41  |"I":. FEHLERKANA|
00000090: 4C 20 4F 45 46 46 4E 45  4E 20 55 4E 44 20 49 4E  |L OEFFNEN UND IN|
000000A0: 49 54 49 41 4C 49 53 49  45 52 45 4E 00 B8 08 3C  |ITIALISIEREN...<|
000000B0: 00 81 49 B2 30 A4 32 32  00 DB 08 46 00 87 20 52  |..I.0.22...F.. R|
000000C0: 28 49 29 3A 20 8F 20 4D  41 53 43 48 49 4E 45 4E  |(I): . MASCHINEN|
000000D0: 50 52 4F 47 52 41 4D 4D  20 49 4E 00 F8 08 50 00  |PROGRAMM IN...P.|
000000E0: 82 20 49 3A 20 8F 20 46  45 4C 44 20 52 28 29 20  |. I: . FELD R() |
000000F0: 45 49 4E 4C 45 53 45 4E  00 19 09 5A 00 99 22 93  |EINLESEN...Z..".|
00000100: 05 45 49 4E 4C 45 53 45  4E 20 45 49 4E 45 53 20  |.EINLESEN EINES |
00000110: 53 45 4B 54 4F 52 53 11  22 00 3F 09 64 00 85 22  |SEKTORS.".?.d.."|
00000120: 11 57 45 4C 43 48 45 20  53 50 55 52 20 28 31 2D  |.WELCHE SPUR (1-|
00000130: 34 30 29 22 3B 53 50 3A  52 28 31 29 B2 53 50 00  |40)";SP:R(1).SP.|
00000140: 61 09 6E 00 85 22 11 57  45 4C 43 48 45 52 20 53  |a.n..".WELCHER S|
00000150: 45 4B 54 4F 52 22 3B 53  45 3A 52 28 35 29 B2 53  |EKTOR";SE:R(5).S|
00000160: 45 00 85 09 73 00 85 22  11 57 45 4C 43 48 45 20  |E...s..".WELCHE |
00000170: 49 44 20 28 4F 44 45 52  20 52 45 54 55 52 4E 29  |ID (ODER RETURN)|
00000180: 22 3B 49 44 24 00 AB 09  74 00 8B 49 44 24 B3 B1  |";ID$...t..ID$..|
00000190: 22 22 A7 98 31 2C 22 4D  2D 57 22 C7 28 31 38 29  |""..1,"M-W".(18)|
000001A0: C7 28 30 29 C7 28 32 29  49 44 24 00 B7 09 78 00  |.(0).(2)ID$...x.|
000001B0: 81 49 B2 30 A4 32 32 00  F5 09 82 00 98 11 2C 22  |.I.0.22.......,"|
000001C0: 4D 2D 57 22 CE 28 4A 29  C7 28 6D E2 B5 E2 67 E2  |M-W".(J).(m...g.|
000001D0: B8 E2 EE E2 DF EF EF 58  E6 88 D8 E8 AF AD E8 9C  |.......X........|
000001E0: BF B6 88 BE BA 88 D8 DD  A9 A9 9D E0 88 EC AC 9E  |................|
000001F0: E8 9D BE A8 9D 80 7F 1E  EF 88 E0 81 49 00 32 0A  |............I.2.|
00000200: FF FF 23 FF FF FF DB FF  FF FF B5 FF FF FF B5 FF  |..#.............|
00000210: FF FF FF 31 FF FF FF D0  D4 FF FF DA DB FF D2 DD  |...1............|
00000220: FF FF EE FF FF FF FF FF  FF EE FF FF EE FF FF FF  |................|
00000230: FF FF FF CA FF FF FF 2D  FF FF FF FF FF FF FF FF  |.......-........|
00000240: FF FF FF 33 FF 32 FF FF  FF FF FF FF FF FF FF 31  |...3.2.........1|
00000250: FF FF FF FF FF FF FF D6  FF FF FF FF FF FF FF FF  |................|
00000260: FF DD FF EE FF FF FF FF  FF D2 D4 FF FF FF 5A FF  |..............Z.|
00000270: FF FF 26 D3 FF FF FF FF  FF FF FF FF FF FF FF FF  |..&.............|
00000280: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00000290: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000002A0: FF FF FF FF FF FF FF FF  FF FF FF B2 FF A2 FF FF  |................|
000002B0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000002C0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000002D0: FF FF FF FF FF FF FF FF  FF FF B0 FF FF FF FF FF  |................|
000002E0: FF FF AA FF FF FF 6E F7  FF FF 33 FF 66 66 FF FF  |......n...3.ff..|
000002F0: FF FF D2 D4 FF DD FF FF  FF FF 20 42 4C 4F 43 4B  |.......... BLOCK|
00000300: 49 4E 48 41 4C 54 53 11  22 3A 81 49 B2 31 A4 32  |INHALTS.":.I.1.2|
00000310: 30 30 30 3A 82 00 25 0B  F0 00 8F 20 32 35 36 20  |000:..%.... 256 |
00000320: 42 59 54 45 53 00 2B 0B  FA 00 3A 00 58 0B 04 01  |BYTES.+...:.X...|
00000330: 81 49 B2 30 A4 32 35 35  A9 31 36 3A 99 22 93 42  |.I.0.255.16:.".B|
00000340: 59 54 45 20 20 20 20 20  20 42 59 54 45 20 20 20  |YTE      BYTE   |
00000350: 20 20 20 42 59 54 45 22  00 83 0B 09 01 99 22 4E  |   BYTE"......"N|
00000360: 55 4D 4D 45 52 20 20 20  20 44 45 5A 49 4D 41 4C  |UMMER    DEZIMAL|
00000370: 20 20 20 41 53 43 49 49  11 11 22 3A 81 4A B2 30  |   ASCII..":.J.0|
00000380: A4 31 35 00 9A 0B 0E 01  98 31 2C 22 4D 2D 52 22  |.15......1,"M-R"|
00000390: C7 28 49 AA 4A 29 C7 28  33 29 00 C4 0B 18 01 A1  |.(I.J).(3)......|
000003A0: 23 31 2C 41 24 3A 41 B2  C6 28 41 24 AA C7 28 30  |#1,A$:A..(A$..(0|
000003B0: 29 29 3A 8F 20 45 49 4E  45 20 42 59 54 45 20 4C  |)):. EINE BYTE L|
000003C0: 45 53 45 4E 00 08 0C 22  01 99 22 05 22 49 AA 4A  |ESEN...".."."I.J|
000003D0: 2C 41 2C 41 24 22 05 22  3A 8F 20 41 55 53 47 45  |,A,A$".":. AUSGE|
000003E0: 42 45 4E 3A 20 42 59 54  45 4E 55 4D 4D 45 52 2C  |BEN: BYTENUMMER,|
000003F0: 20 41 53 43 2D 57 45 52  54 2C 20 41 53 43 49 49  | ASC-WERT, ASCII|
00000400: 2D 5A 45 49 43 48 45 4E  00 29 0C 2C 01 82 3A 99  |-ZEICHEN.).,..:.|
00000410: 22 11 11 54 41 53 54 45  22 3A 97 31 39 38 2C 30  |"..TASTE":.198,0|
00000420: 3A 92 31 39 38 2C 31 3A  82 00 00 00 01 A9 08 85  |:.198,1:........|
00000430: FF 20 A5 FF 91 FE 20 B7  FF D0 0B C8 D0 F3 E6 FF  |. .... .........|
00000440: A5 FF C9 BF D0 EB 20 CC  FF 8C 3C 03 A5 FF 8D 3D  |...... ...<....=|
00000450: 03 A2 0F 20 C6 FF A2 00  20 CF FF 9D 00 CF E8 C9  |... .... .......|
00000460: 0D D0 F5 8E F0 CF 20 CC  FF A9 02 20 C3 FF AD 00  |...... .... ....|
00000470: CF C9 30 F0 21 A9 0D 20  D2 FF 20 9E C2 A2 00 BD  |..0.!.. .. .....|
00000480: A7 C8 20 D2 FF E8 E0 1A  D0 F5 20 E4 FF C9 88 D0  |.. ....... .....|
00000490: F9 68 68 4C 38 C0 60 A9  02 A2 08 A0 01 20 00 FE  |.hhL8.`...... ..|
000004A0: AD F0 CE A2 00 A0 CE 20  F9 FD A2 02 20 C0 FF A9  |....... .... ...|
000004B0: 36 85 01 A2 02 20 C9 FF  A0 00 B9 3B C5 20 A8 FF  |6.... .....;. ..|
000004C0: C8 C0 31 D0 F5 A2 03 A0  53 A9 20 20 A8 FF C8 D0  |..1.....S.  ....|
000004D0: FA E8 E0 08 D0 F5 A9 00  20 A8 FF A9 00 85 FE A9  |........ .......|
000004E0: 08 85 FF A0 01 B1 FE 20  A8 FF C8 C0 00 D0 02 E6  |....... ........|
000004F0: FF AD 3D 03 C5 FF D0 ED  CC 3C 03 D0 E8 B1 FE 20  |..=......<..... |
00000500: A8 FF 20 CC FF A9 37 85  01 A2 0F 20 C6 FF A2 00  |.. ...7.... ....|
00000510: 20 CF FF 9D 00 CF E8 C9  0D D0 F5 8E F0 CF 20 CC  | ............. .|
00000520: FF A9 02 20 C3 FF AD 00  CF C9 30 F0 25 20 9E C2  |... ......0.% ..|
00000530: A2 00 BD EF C8 20 D2 FF  E8 E0 21 D0 F5 20 E4 FF  |..... ....!.. ..|
00000540: C9 88 F0 09 C9 0D D0 F5  68 68 4C D6 C0 68 68 4C  |........hhL..hhL|
00000550: 38 C0 60 A9 02 A2 08 A0  01 20 00 FE AD F0 CE A2  |8.`...... ......|
00000560: 00 A0 CE 20 F9 FD A2 02  20 C0 FF A9 36 85 01 A2  |... .... ...6...|
00000570: 02 20 C9 FF A0 00 B9 6C  C5 20 A8 FF C8           |. .....l. ...   |
..).... ERRORLESEROUTINE FUER ALLE SPURE
N.H.... (C) 1985 BY KLAUS RACZEK.N...:.S
.(.. R(22): . FELD FUER LESEROUTINE...2.
.1,8,15,"I":. FEHLERKANAL OEFFNEN UND IN
ITIALISIEREN...<..I.0.22...F.. R(I): . M
ASCHINENPROGRAMM IN...P.. I: . FELD R() 
EINLESEN...Z.."..EINLESEN EINES SEKTORS.
".?.D..".WELCHE SPUR (1-40)";SP:R(1).SP.
A.N..".WELCHER SEKTOR";SE:R(5).SE...S.."
.WELCHE ID (ODER RETURN)";ID$...T..ID$..
""..1,"M-W"G(18)G(0)G(2)ID$...X..I.0.22.
......,"M-W"N(J)G(M...G........X..X.....
......X....................I.2...#.....
...........1...PT..Z..R.................
...J...-...........3.2.........1.......V
.................RT...Z...&S............
........................................
........................................
......................N...3.FF....RT....
.. BLOCKINHALTS.":.I.1.2000:..%.... 256 
BYTES.+...:.X....I.0.255.16:.".BYTE     
 BYTE      BYTE"......"NUMMER    DEZIMAL
   ASCII..":.J.0.15......1,"M-R"G(I.J)G(
3).D....#1,A$:A.F(A$.G(0)):. EINE BYTE L
ESEN...".."."I.J,A,A$".":. AUSGEBEN: BYT
ENUMMER, ASC-WERT, ASCII-ZEICHEN.).,..:.
"..TASTE":.198,0:.198,1:......... .... .
.P.HP.....I.P. L..<....=... F... O...O.I
.P...O L... C...OI0.!.. R. .B....H R....
P. ..I.P.HHL8.`.... . ....N.. N .... ...
6.... I. ..;E ..H.1P... S.  ..HP....P...
 .......... ... ..H..P....=.E.P.L<.P... 
.. L..7.... F... O...O.I.P...O L... C...
OI0.% .B....H R...!P. ..I...I.P.HHLV.HHL
8.`.... . ....N.. N .... ...6.... I. ..L
E ..H
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL