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

LISTING 15.D

FILE INFORMATION

FILENAME(S): LISTING 15.D

FILE TYPE(S): PRG

FILE SIZE: 705b

FIRST SEEN: 2025-11-30 01:12:32

APPEARS ON: 2 disk(s)

FILE HASH

4d1baeca88ff50b056490d3780ca7388a744250cca80d1e46ed93165e77d7d71

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SH 4 86 SEITE 1 LISTING 15.D PRG C64er, DuncanTwain 19 1 DOWNLOAD FILE
SH 4 86 SEITE 1 LISTING 15.D PRG DuncanTwain 19 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 4F 08 E8 03 8F 20  42 49 4E 41 45 52 45 20  |..O.... BINAERE |
00000010: 53 55 43 48 52 4F 55 54  49 4E 45 20 2D 2D 2D 2D  |SUCHROUTINE ----|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 00  |---------------.|
00000050: 68 08 ED 03 85 53 55 24  20 20 3A 8F 20 53 55 43  |h....SU$  :. SUC|
00000060: 48 42 45 47 52 49 46 46  00 AA 08 F2 03 4E B2 B5  |HBEGRIFF.....N..|
00000070: 28 BC 28 53 5A 29 AD BC  28 32 29 29 AA 31 20 20  |(.(SZ)..(2)).1  |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090: 20 20 20 20 20 20 20 20  20 3A 8F 20 4D 41 58 49  |         :. MAXI|
000000A0: 4D 41 4C 2D 46 4F 52 4D  45 4C 00 CD 08 10 04 53  |MAL-FORMEL.....S|
000000B0: 41 B2 28 32 AE 4E 29 AD  32 3A 8F 20 4D 49 54 54  |A.(2.N).2:. MITT|
000000C0: 45 20 44 45 52 20 47 45  53 2E 44 41 54 00 E8 08  |E DER GES.DAT...|
000000D0: 1A 04 4E B2 4E AB 31 20  20 20 20 20 3A 8F 20 31  |..N.N.1     :. 1|
000000E0: 2E 41 42 46 52 41 47 45  00 EE 08 4C 04 3A 00 2A  |.ABFRAGE...L.:.*|
000000F0: 09 56 04 3A 20 8B 53 55  24 B2 44 24 28 53 41 29  |.V.: .SU$.D$(SA)|
00000100: A7 99 22 53 55 24 20 53  54 45 48 54 20 49 4E 20  |.."SU$ STEHT IN |
00000110: 53 41 54 5A 20 22 3B 53  41 3A 80 3A 8F 20 53 55  |SATZ ";SA:.:. SU|
00000120: 24 20 47 45 46 55 4E 44  45 4E 00 6A 09 60 04 3A  |$ GEFUNDEN.j.`.:|
00000130: 20 8B 53 55 24 B3 44 24  28 53 41 29 A7 53 41 B2  | .SU$.D$(SA).SA.|
00000140: 53 41 AB 28 32 AE 28 4E  AB 31 29 29 3A 89 31 32  |SA.(2.(N.1)):.12|
00000150: 30 30 20 20 20 20 20 20  20 20 3A 8F 20 27 27 48  |00        :. ''H|
00000160: 41 4C 42 49 45 52 45 4E  27 27 00 A8 09 65 04 3A  |ALBIEREN''...e.:|
00000170: 20 8B 53 41 AA 28 32 AE  28 4E AB 31 29 29 B1 53  | .SA.(2.(N.1)).S|
00000180: 5A AF 4E B1 AB 31 A7 4E  B2 4E AB 31 3A 89 31 31  |Z.N..1.N.N.1:.11|
00000190: 32 35 20 20 20 20 20 20  3A 8F 20 27 27 55 45 42  |25      :. ''UEB|
000001A0: 45 52 4C 41 55 46 27 27  00 EF 09 6A 04 3A 20 53  |ERLAUF''...j.: S|
000001B0: 41 B2 53 41 AA 28 32 AE  28 4E AB 31 29 29 20 20  |A.SA.(2.(N.1))  |
000001C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3A  |               :|
000001E0: 8F 20 27 27 48 41 4C 42  49 45 52 45 4E 27 27 00  |. ''HALBIEREN''.|
000001F0: F5 09 B0 04 3A 00 19 0A  BA 04 3A 4E B2 4E AB 31  |....:.....:N.N.1|
00000200: 20 20 20 20 3A 8F 20 4E  41 45 43 48 53 54 2E 20  |    :. NAECHST. |
00000210: 48 41 4C 42 49 45 52 45  4E 00 5B 0A C4 04 3A 8B  |HALBIEREN.[...:.|
00000220: 4E B3 30 A7 99 22 53 55  24 20 47 49 42 54 27 53  |N.0.."SU$ GIBT'S|
00000230: 20 4E 49 43 48 54 21 20  49 4E 20 31 32 32 30 22  | NICHT! IN 1220"|
00000240: 3A 80 20 20 20 20 3A 8F  20 53 55 24 20 4E 49 43  |:.    :. SU$ NIC|
00000250: 48 54 20 49 4E 20 44 41  54 45 49 00 9C 0A C9 04  |HT IN DATEI.....|
00000260: 99 22 53 41 3D 22 3B 53  41 3B 22 20 4E 3D 22 3B  |."SA=";SA;" N=";|
00000270: 4E 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |N               |
00000280: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3A 8F  |              :.|
00000290: 20 55 4E 4E 4F 45 54 49  47 20 21 21 00 BE 0A CE  | UNNOETIG !!....|
000002A0: 04 3A 89 31 31 30 30 20  3A 8F 20 4E 41 45 43 48  |.:.1100 :. NAECH|
000002B0: 53 54 2E 20 53 55 43 48  2D 56 45 52 53 2E 00 00  |ST. SUCH-VERS...|
000002C0: 00                                                |.               |
..O.... BINAERE SUCHROUTINE ------------
---------------------------------------.
H....SU$  :. SUCHBEGRIFF.....N..(.(SZ)..
(2)).1                           :. MAXI
MAL-FORMEL.M...SA.(2.N).2:. MITTE DER GE
S.DAT.....N.N.1     :. 1.ABFRAGE...L.:.*
.V.: .SU$.D$(SA).."SU$ STEHT IN SATZ ";S
A:.:. SU$ GEFUNDEN.J.`.: .SU$.D$(SA).SA.
SA.(2.(N.1)):.1200        :. ''HALBIEREN
''...E.: .SA.(2.(N.1)).SZ.N..1.N.N.1:.11
25      :. ''UEBERLAUF''...J.: SA.SA.(2.
(N.1))                                 :
. ''HALBIEREN''.....:.....:N.N.1    :. N
AECHST. HALBIEREN.[.D.:.N.0.."SU$ GIBT'S
 NICHT! IN 1220":.    :. SU$ NICHT IN DA
TEI...I.."SA=";SA;" N=";N               
              :. UNNOETIG !!...N.:.1100 
:. NAECHST. SUCH-VERS....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL