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

LISTING 22.D

FILE INFORMATION

FILENAME(S): LISTING 22.D

FILE TYPE(S): PRG

FILE SIZE: 389b

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

APPEARS ON: 2 disk(s)

FILE HASH

3babf1a3575772f8ace0ea483f02e3e0bf2a3ccf5d7fe66b71772183846f3f26

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 08 50 C3 8F 20  49 4E 50 55 54 2D 52 4F  |..%.P.. INPUT-RO|
00000010: 55 54 49 4E 45 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |UTINE ----------|
00000020: 2D 2D 2D 2D 2D 00 2B 08  51 C3 3A 00 35 08 52 C3  |-----.+.Q.:.5.R.|
00000030: 53 4C B2 34 30 00 3F 08  55 C3 53 4C B2 34 30 00  |SL.40.?.U.SL.40.|
00000040: 74 08 64 C3 99 22 11 22  3A 42 45 24 B2 22 22 3A  |t.d..".":BE$."":|
00000050: 97 20 31 39 38 2C 30 3A  97 32 31 31 2C 30 3A 97  |. 198,0:.211,0:.|
00000060: 32 31 34 2C 32 32 3A 9E  35 38 37 33 32 3A 99 22  |214,22:.58732:."|
00000070: 9E A4 22 3B 00 8C 08 6E  C3 A1 58 24 3A 8B C2 28  |..";...n..X$:..(|
00000080: 32 30 33 29 B2 31 A7 35  30 31 32 30 00 9F 08 78  |203).1.50120...x|
00000090: C3 8B 20 58 24 B2 22 22  A7 20 35 30 30 33 30 00  |.. X$."". 50030.|
000000A0: C1 08 82 C3 8B 20 C3 28  42 45 24 29 B2 30 20 AF  |..... .(BE$).0 .|
000000B0: 20 C6 28 58 24 29 20 B2  32 30 A7 20 35 30 30 33  | .(X$) .20. 5003|
000000C0: 30 00 EF 08 8C C3 49 B2  C6 28 58 24 29 3A 8B 49  |0.....I..(X$):.I|
000000D0: B3 33 32 B0 49 B1 31 33  33 AF 49 B3 31 35 39 A7  |.32.I.133.I.159.|
000000E0: 20 8B 49 B3 B1 32 30 20  A7 20 35 30 30 33 30 00  | .I..20 . 50030.|
000000F0: 0A 09 96 C3 8B C3 28 42  45 24 29 B2 53 4C AF 49  |......(BE$).SL.I|
00000100: B3 B1 32 30 A7 35 30 30  33 30 00 1D 09 9B C3 8B  |..20.50030......|
00000110: 58 24 B2 22 20 22 A7 58  24 B2 22 1D 22 00 2C 09  |X$." ".X$.".".,.|
00000120: A0 C3 42 45 24 B2 42 45  24 AA 58 24 00 3F 09 AA  |..BE$.BE$.X$.?..|
00000130: C3 99 C7 28 32 30 29 3B  58 24 3B 22 A4 22 3B 00  |...(20);X$;".";.|
00000140: 66 09 B4 C3 8B 20 49 B2  32 30 A7 42 45 24 B2 C8  |f.... I.20.BE$..|
00000150: 28 42 45 24 2C C3 28 42  45 24 29 AB 32 29 3A 89  |(BE$,.(BE$).2):.|
00000160: 20 35 30 30 33 30 00 72  09 BE C3 89 20 35 30 30  | 50030.r.... 500|
00000170: 33 30 00 7C 09 C8 C3 99  22 9D 20 22 00 82 09 DC  |30.|....". "....|
00000180: C3 8E 00 00 00                                    |.....           |

..%.PC. INPUT-ROUTINE ---------------.+.
QC:.5.RCSL.40.?.UCSL.40.T.DC.".":BE$."":
. 198,0:.211,0:.214,22:.58732:."..";...N
C.X$:.B(203).1.50120...XC. X$."". 50030.
A..C. C(BE$).0 . F(X$) .20. 50030....CI.
F(X$):.I.32.I.133.I.159. .I..20 . 50030.
...C.C(BE$).SL.I..20.50030....C.X$." ".X
$.".".,. CBE$.BE$.X$.?..C.G(20);X$;".";.
F..C. I.20.BE$.H(BE$,C(BE$).2):. 50030.R
..C. 50030.|.HC.". "....C....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL