00000000: 01 20 2D 20 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |. - d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 20 |*************.Y |
00000030: 6E 00 8F 20 2A 20 20 49 20 4E 20 50 20 55 20 54 |n.. * I N P U T|
00000040: 20 31 20 32 20 38 20 20 20 44 45 4D 4F 4E 53 54 | 1 2 8 DEMONST|
00000050: 52 41 54 49 4F 4E 20 20 2A 00 85 20 78 00 8F 20 |RATION *.. x.. |
00000060: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 2A 00 B1 20 82 00 8F 20 2A 20 57 52 | *.. ... * WR|
00000090: 49 54 54 45 4E 20 49 4E 20 31 39 38 37 20 42 59 |ITTEN IN 1987 BY|
000000A0: 20 4A 4F 43 48 45 4E 20 42 4F 53 4D 41 4E 4E 20 | JOCHEN BOSMANN |
000000B0: 2A 00 DD 20 8C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.. ... ********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E3 20 |*************.. |
000000E0: 96 00 3A 00 F9 20 A0 00 E7 35 2C 36 3A E7 36 2C |..:.. ...5,6:.6,|
000000F0: 31 3A DE 35 2C 31 3A FE 25 00 1F 21 AA 00 45 5A |1:.5,1:.%..!..EZ|
00000100: 24 B2 22 22 3A 5A 41 24 B2 22 30 31 32 33 34 35 |$."":ZA$."012345|
00000110: 36 37 38 39 2E 22 3A 86 20 41 44 24 28 36 29 00 |6789.":. AD$(6).|
00000120: 40 21 B4 00 81 20 49 B2 30 33 32 20 A4 20 30 39 |@!... I.032 . 09|
00000130: 30 3A 45 5A 24 B2 45 5A 24 AA C7 28 49 29 3A 82 |0:EZ$.EZ$..(I):.|
00000140: 00 61 21 BE 00 81 20 49 B2 31 39 33 20 A4 20 32 |.a!... I.193 . 2|
00000150: 31 38 3A 45 5A 24 B2 45 5A 24 AA C7 28 49 29 3A |18:EZ$.EZ$..(I):|
00000160: 82 00 71 21 C8 00 EB 20 FD 20 41 24 B3 B1 22 5F |..q!... . A$.."_|
00000170: 22 00 9D 21 D2 00 3A E8 3A 99 3A 99 A3 33 32 29 |"..!..:.:.:..32)|
00000180: C7 28 31 34 29 C7 28 32 29 22 C1 44 52 45 53 53 |.(14).(2)".DRESS|
00000190: 56 45 52 57 41 4C 54 55 4E 47 22 3A 99 00 DE 21 |VERWALTUNG":...!|
000001A0: DC 00 3A 99 A3 31 35 29 22 D0 52 4F 47 52 41 4D |..:..15)".ROGRAM|
000001B0: 4D 20 5A 55 52 20 C4 45 4D 4F 4E 53 54 52 41 54 |M ZUR .EMONSTRAT|
000001C0: 49 4F 4E 20 44 45 52 20 4E 45 55 45 4E 20 C9 4E |ION DER NEUEN .N|
000001D0: 50 55 54 2D D2 4F 55 54 49 4E 45 22 3A 99 00 FD |PUT-.OUTINE":...|
000001E0: 21 E6 00 3A 99 3A 99 A3 31 35 29 22 CE 41 43 48 |!..:.:..15)".ACH|
000001F0: 4E 41 4D 45 3A 22 A6 32 31 29 22 3C 22 00 1C 22 |NAME:".21)"<".."|
00000200: F0 00 3A 99 3A 99 A3 31 35 29 22 D6 4F 52 4E 41 |..:.:..15)".ORNA|
00000210: 4D 45 20 3A 22 A6 32 31 29 22 3C 22 00 3B 22 FA |ME :".21)"<".;".|
00000220: 00 3A 99 3A 99 A3 31 35 29 22 D3 54 52 41 53 53 |.:.:..15)".TRASS|
00000230: 45 20 3A 22 A6 32 31 29 22 3C 22 00 5A 22 04 01 |E :".21)"<".Z"..|
00000240: 3A 99 3A 99 A3 31 35 29 22 D7 4F 48 4E 4F 52 54 |:.:..15)".OHNORT|
00000250: 20 3A 22 A6 32 31 29 22 3C 22 00 79 22 0E 01 3A | :".21)"<".y"..:|
00000260: 99 3A 99 A3 31 35 29 22 CC 41 4E 44 20 20 20 20 |.:..15)".AND |
00000270: 3A 22 A6 32 31 29 22 3C 22 00 98 22 18 01 3A 99 |:".21)"<".."..:.|
00000280: 3A 99 A3 31 35 29 22 C7 45 42 55 52 54 53 2E 3A |:..15)".EBURTS.:|
00000290: 22 A6 31 31 29 22 3C 22 00 DA 22 22 01 3A 56 47 |".11)"<".."".:VG|
000002A0: 24 B2 22 22 3A 81 20 49 B2 31 20 A4 20 35 3A 9E |$."":. I.1 . 5:.|
000002B0: 34 38 36 34 2C 32 35 2C 34 AA 32 AC 49 2C 32 30 |4864,25,4.2.I,20|
000002C0: 2C 2C 45 5A 24 2C 56 47 24 2C 49 4E 24 3A 41 44 |,,EZ$,VG$,IN$:AD|
000002D0: 24 28 49 29 B2 49 4E 24 3A 82 00 17 23 2C 01 3A |$(I).IN$:...#,.:|
000002E0: 56 47 24 B2 22 30 31 2E 30 31 2E 31 39 38 37 22 |VG$."01.01.1987"|
000002F0: 3A 9E 34 38 36 34 2C 32 35 2C 31 36 2C 31 30 2C |:.4864,25,16,10,|
00000300: 2C 5A 41 24 2C 56 47 24 2C 49 4E 24 3A 41 44 24 |,ZA$,VG$,IN$:AD$|
00000310: 28 36 29 B2 49 4E 24 00 2F 23 36 01 3A E8 3A 99 |(6).IN$./#6.:.:.|
00000320: 41 44 24 28 32 29 22 20 22 41 44 24 28 31 29 00 |AD$(2)" "AD$(1).|
00000330: 48 23 40 01 3A 81 20 49 B2 33 20 A4 20 36 3A 99 |H#@.:. I.3 . 6:.|
00000340: 41 44 24 28 49 29 3A 82 00 64 23 4A 01 3A 99 3A |AD$(I):..d#J.:.:|
00000350: 99 3A 99 A3 31 30 29 22 D4 41 53 54 45 21 22 3A |.:..10)".ASTE!":|
00000360: A1 F9 41 24 00 6A 23 54 01 EC 00 70 23 5E 01 E8 |..A$.j#T...p#^..|
00000370: 00 00 00 2C |..., |
. - D.. ********************************
*****.Y N.. * I N P U T 1 2 8 DEMONST
RATION *.. X.. *
*.. ... * WRITTEN IN 1987 BY
JOCHEN BOSMANN *.. ... ****************
*********************.. ..:.. ..5,6:.6,
1:.5,1:.%..!..EZ$."":ZA$."0123456789.":.
AD$(6).@!... I.032 . 090:EZ$.EZ$.G(I):.
.A!... I.193 . 218:EZ$.EZ$.G(I):..Q!H..
. A$.."_"..!R.:.:.:..32)G(14)G(2)"ADRESS
VERWALTUNG":...!..:..15)"PROGRAMM ZUR DE
MONSTRATION DER NEUEN INPUT-ROUTINE":...
!..:.:..15)"NACHNAME:".21)"<".."..:.:..1
5)"VORNAME :".21)"<".;"..:.:..15)"STRASS
E :".21)"<".Z"..:.:..15)"WOHNORT :".21)"
<".Y"..:.:..15)"LAND :".21)"<".."..:.
:..15)"GEBURTS.:".11)"<".Z"".:VG$."":. I
.1 . 5:.4864,25,4.2.I,20,,EZ$,VG$,IN$:AD
$(I).IN$:...#,.:VG$."01.01.1987":.4864,2
5,16,10,,ZA$,VG$,IN$:AD$(6).IN$./#6.:.:.
AD$(2)" "AD$(1).H#@.:. I.3 . 6:.AD$(I):.
.D#J.:.:.:..10)"TASTE!":..A$.J#T...P#^..
...,
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL