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

GET-ROUTINE

FILE INFORMATION

FILENAME(S): GET-ROUTINE

FILE TYPE(S): PRG

FILE SIZE: 840b

FIRST SEEN: 2025-11-30 01:08:25

APPEARS ON: 2 disk(s)

FILE HASH

66cfede87307963e6edf7a7b39c12063e8abd322490e1b76fa65a373f6ca7fcb

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PD DISK 07 GET-ROUTINE PRG Treasure Chest - Wolfgang Rauprich 17 1 DOWNLOAD FILE
FREESOFT NR GET-ROUTINE PRG Treasure Chest - Wolfgang Rauprich 17 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 02 08 0B 08 0A 00 99 22  93 22 00 11 08 14 00 3A  |.......".".....:|
00000010: 00 4E 08 1E 00 8F 20 44  45 4D 4F 4E 53 54 52 41  |.N.... DEMONSTRA|
00000020: 54 49 4F 4E 20 45 49 4E  45 52 20 47 45 54 2D 52  |TION EINER GET-R|
00000030: 4F 55 54 49 4E 45 20 49  4D 20 47 45 47 45 4E 53  |OUTINE IM GEGENS|
00000040: 41 54 5A 20 5A 55 4D 20  49 4E 50 55 54 00 54 08  |ATZ ZUM INPUT.T.|
00000050: 28 00 3A 00 5A 08 32 00  3A 00 9A 08 3C 00 5A B2  |(.:.Z.2.:...<.Z.|
00000060: 31 3A 53 B2 31 30 3A 4C  B2 31 30 3A 8D 38 30 3A  |1:S.10:L.10:.80:|
00000070: 80 3A 8F 20 5A 3D 5A 45  49 4C 45 20 53 3D 53 50  |.:. Z=ZEILE S=SP|
00000080: 41 4C 54 45 20 4C 3D 4C  41 45 4E 47 45 20 44 45  |ALTE L=LAENGE DE|
00000090: 53 20 53 54 52 49 4E 47  53 00 A0 08 46 00 3A 00  |S STRINGS...F.:.|
000000A0: E8 08 50 00 58 24 B2 22  22 3A 97 32 31 34 2C 5A  |..P.X$."":.214,Z|
000000B0: 3A 97 32 31 31 2C 53 3A  9E 35 38 36 34 30 3A 51  |:.211,S:.58640:Q|
000000C0: B2 30 20 3A 8F 20 58 24  20 57 49 52 44 20 47 45  |.0 :. X$ WIRD GE|
000000D0: 4C 4F 45 53 43 48 54 2C  20 43 55 52 53 4F 52 20  |LOESCHT, CURSOR |
000000E0: 47 45 53 45 54 53 54 00  EE 08 5A 00 3A 00 0B 09  |GESETST...Z.:...|
000000F0: 64 00 A1 57 24 3A 8B 57  24 B2 22 22 A7 99 22 12  |d..W$:.W$.""..".|
00000100: 3C 92 9D 22 3B 3A 89 31  30 30 00 11 09 6E 00 3A  |<..";:.100...n.:|
00000110: 00 17 09 78 00 3A 00 24  09 82 00 47 54 B2 C6 28  |...x.:.$...GT..(|
00000120: 57 24 29 00 2A 09 8C 00  3A 00 45 09 96 00 8B 47  |W$).*...:.E....G|
00000130: 54 B2 34 32 B0 47 54 B2  36 34 B0 47 54 B1 39 34  |T.42.GT.64.GT.94|
00000140: A7 31 30 30 00 4B 09 A0  00 3A 00 69 09 AA 00 8B  |.100.K...:.i....|
00000150: 47 54 B2 31 33 AF C3 28  58 24 29 B3 B1 4C A7 99  |GT.13..(X$)..L..|
00000160: 22 2E 22 3A 89 32 39 30  00 6F 09 B4 00 3A 00 8C  |".":.290.o...:..|
00000170: 09 BE 00 8B 47 54 B2 31  33 AF C3 28 58 24 29 B2  |....GT.13..(X$).|
00000180: 4C A7 99 22 2E 22 3A 89  32 39 30 00 92 09 C8 00  |L..".":.290.....|
00000190: 3A 00 B5 09 D2 00 8B 47  54 B2 32 39 B0 47 54 B2  |:......GT.29.GT.|
000001A0: 31 37 B0 47 54 B2 31 39  30 B0 47 54 B2 31 34 35  |17.GT.190.GT.145|
000001B0: A7 31 30 30 00 BB 09 DC  00 3A 00 D1 09 E6 00 8B  |.100.....:......|
000001C0: 47 54 B2 32 30 A7 99 22  2E 22 3B 3A 89 33 33 30  |GT.20..".";:.330|
000001D0: 00 D7 09 F0 00 3A 00 05  0A FA 00 8B C3 28 58 24  |.....:.......(X$|
000001E0: 29 B2 4C A7 31 30 30 3A  8F 20 4C 41 45 4E 47 45  |).L.100:. LAENGE|
000001F0: 20 58 24 20 57 49 52 44  20 55 45 42 45 52 50 52  | X$ WIRD UEBERPR|
00000200: 55 45 46 54 00 0B 0A 04  01 3A 00 28 0A 0E 01 99  |UEFT.....:.(....|
00000210: 57 24 3B 3A 58 24 B2 58  24 AA 57 24 3A 51 B2 51  |W$;:X$.X$.W$:Q.Q|
00000220: AA 31 3A 89 31 30 30 00  2E 0A 18 01 3A 00 34 0A  |.1:.100.....:.4.|
00000230: 22 01 8E 00 3A 0A 2C 01  3A 00 59 0A 36 01 8F 20  |"...:.,.:.Y.6.. |
00000240: 41 42 20 48 49 45 52 20  4B 4F 52 52 45 4B 54 55  |AB HIER KORREKTU|
00000250: 52 52 4F 55 54 49 4E 45  00 5F 0A 40 01 3A 00 76  |RROUTINE._.@.:.v|
00000260: 0A 4A 01 8B C3 28 58 24  29 B2 30 A7 57 24 B2 22  |.J...(X$).0.W$."|
00000270: 22 3A 89 38 30 00 7C 0A  54 01 3A 00 8D 0A 5E 01  |":.80.|.T.:...^.|
00000280: 8B C3 28 57 24 29 B2 30  A7 31 30 30 00 93 0A 68  |..(W$).0.100...h|
00000290: 01 3A 00 A0 0A 72 01 8B  51 B2 30 A7 31 30 30 00  |.:...r..Q.0.100.|
000002A0: A6 0A 7C 01 3A 00 BB 0A  86 01 57 24 B2 C8 28 57  |..|.:.....W$..(W|
000002B0: 24 2C C3 28 57 24 29 AB  31 29 00 C1 0A 90 01 3A  |$,.(W$).1).....:|
000002C0: 00 D6 0A 9A 01 58 24 B2  C8 28 58 24 2C C3 28 58  |.....X$..(X$,.(X|
000002D0: 24 29 AB 31 29 00 DC 0A  A4 01 3A 00 F5 0A AE 01  |$).1).....:.....|
000002E0: 97 32 31 34 2C 5A 3A 97  32 31 31 2C 53 3A 9E 35  |.214,Z:.211,S:.5|
000002F0: 38 36 34 30 00 FB 0A B8  01 3A 00 0A 0B C2 01 99  |8640.....:......|
00000300: 58 24 3B 3A 51 B2 51 AB  31 00 10 0B CC 01 3A 00  |X$;:Q.Q.1.....:.|
00000310: 34 0B D6 01 97 32 31 34  2C 5A 3A 97 32 31 31 2C  |4....214,Z:.211,|
00000320: 53 AA C3 28 58 24 29 3A  9E 35 38 36 34 30 3A 89  |S..(X$):.58640:.|
00000330: 31 30 30 00 3A 0B E0 01  3A 00 40 0B EA 01 8E 00  |100.:...:.@.....|
00000340: 46 0B F4 01 3A 00 03 00                           |F...:...        |

.......".".....:.N.... DEMONSTRATION EIN
ER GET-ROUTINE IM GEGENSATZ ZUM INPUT.T.
(.:.Z.2.:...<.Z.1:S.10:L.10:.80:.:. Z=ZE
ILE S=SPALTE L=LAENGE DES STRINGS. .F.:.
..P.X$."":.214,Z:.211,S:.58640:Q.0 :. X$
 WIRD GELOESCHT, CURSOR GESETST...Z.:...
D..W$:.W$.""..".<..";:.100...N.:...X.:.$
...GT.F(W$).*...:.E....GT.42.GT.64.GT.94
.100.K. .:.I....GT.13.C(X$)..L..".":.290
.O...:......GT.13.C(X$).L..".":.290...H.
:...R..GT.29.GT.17.GT.190.GT.145.100....
.:.Q....GT.20..".";:.330.W...:......C(X$
).L.100:. LAENGE X$ WIRD UEBERPRUEFT....
.:.(....W$;:X$.X$.W$:Q.Q.1:.100.....:.4.
"...:.,.:.Y.6.. AB HIER KORREKTURROUTINE
._.@.:.V.J..C(X$).0.W$."":.80.|.T.:...^.
.C(W$).0.100...H.:. .R..Q.0.100...|.:...
..W$.H(W$,C(W$).1).A...:.V...X$.H(X$,C(X
$).1).....:......214,Z:.211,S:.58640....
.:...B..X$;:Q.Q.1...L.:.4.V..214,Z:.211,
S.C(X$):.58640:.100.:...:.@.....F...:...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL