00000000: 01 1C 1A 1C 64 00 FE 25 3A 99 C7 28 31 34 29 C7 |....d..%:..(14).|
00000010: 28 31 34 37 29 C7 28 35 29 3B 00 75 1C 6E 00 99 |(147).(5);.u.n..|
00000020: 22 CE 41 4D 45 20 20 20 20 20 20 20 20 20 20 28 |".AME (|
00000030: 31 2D 33 30 20 DA 45 49 43 48 45 4E 2C 20 41 2D |1-30 .EICHEN, A-|
00000040: DA 29 20 20 20 20 20 20 20 20 20 3A 22 20 3A 20 |.) :" : |
00000050: 50 41 24 B2 22 34 34 30 30 37 33 30 30 30 30 31 |PA$."44007300001|
00000060: 30 31 22 20 3A 20 8D 20 32 30 30 20 3A 20 4E 41 |01" : . 200 : NA|
00000070: 24 B2 49 4E 24 00 D0 1C 78 00 99 22 D3 54 52 41 |$.IN$...x..".TRA|
00000080: 53 53 45 20 20 20 20 20 20 20 28 31 2D 33 30 20 |SSE (1-30 |
00000090: DA 45 49 43 48 45 4E 2C 20 41 2D DA 20 30 2D 39 |.EICHEN, A-. 0-9|
000000A0: 20 2E 20 2D 29 20 3A 22 20 3A 20 50 41 24 B2 22 | . -) :" : PA$."|
000000B0: 34 34 30 31 37 33 30 31 30 30 31 30 32 22 20 3A |4401730100102" :|
000000C0: 20 8D 20 32 30 30 20 3A 20 53 54 24 B2 49 4E 24 | . 200 : ST$.IN$|
000000D0: 00 30 1D 82 00 E0 2C 30 2C 32 2C 22 D7 4F 48 4E |.0....,0,2,".OHN|
000000E0: 4F 52 54 20 20 20 20 20 20 20 28 31 2D 33 30 20 |ORT (1-30 |
000000F0: DA 45 49 43 48 45 4E 2C 20 41 2D DA 20 30 2D 39 |.EICHEN, A-. 0-9|
00000100: 29 20 20 20 20 20 3A 22 20 3A 20 50 41 24 B2 22 |) :" : PA$."|
00000110: 34 34 30 32 37 33 30 32 30 30 31 30 33 22 20 3A |4402730200103" :|
00000120: 20 8D 20 32 30 30 20 3A 20 57 4F 24 B2 49 4E 24 | . 200 : WO$.IN$|
00000130: 00 90 1D 8C 00 E0 2C 30 2C 33 2C 22 D4 45 4C 45 |......,0,3,".ELE|
00000140: 46 4F 4E 4E 55 4D 4D 45 52 20 28 31 2D 32 30 20 |FONNUMMER (1-20 |
00000150: DA 45 49 43 48 45 4E 2C 20 30 2D 39 20 2D 20 2F |.EICHEN, 0-9 - /|
00000160: 29 20 20 20 20 20 3A 22 20 3A 20 50 41 24 B2 22 |) :" : PA$."|
00000170: 34 34 30 33 36 33 30 33 30 30 31 31 34 22 20 3A |4403630300114" :|
00000180: 20 8D 20 32 30 30 20 3A 20 54 45 24 B2 49 4E 24 | . 200 : TE$.IN$|
00000190: 00 F0 1D 96 00 E0 2C 30 2C 34 2C 22 C7 45 42 55 |......,0,4,".EBU|
000001A0: 52 54 53 44 41 54 55 4D 20 20 28 36 2D 31 30 20 |RTSDATUM (6-10 |
000001B0: DA 45 49 43 48 45 4E 2C 20 30 2D 39 20 2E 20 27 |.EICHEN, 0-9 . '|
000001C0: 29 20 20 20 20 20 3A 22 20 3A 20 50 41 24 B2 22 |) :" : PA$."|
000001D0: 34 34 30 34 35 33 30 34 30 30 36 31 35 22 20 3A |4404530400615" :|
000001E0: 20 8D 20 32 30 30 20 3A 20 47 45 24 B2 49 4E 24 | . 200 : GE$.IN$|
000001F0: 00 50 1E A0 00 E0 2C 30 2C 35 2C 22 C7 45 42 55 |.P....,0,5,".EBU|
00000200: 52 54 53 4F 52 54 20 20 20 20 28 31 2D 32 30 20 |RTSORT (1-20 |
00000210: DA 45 49 43 48 45 4E 2C 20 41 2D DA 29 20 20 20 |.EICHEN, A-.) |
00000220: 20 20 20 20 20 20 3A 22 20 3A 20 50 41 24 B2 22 | :" : PA$."|
00000230: 34 34 30 35 36 33 30 35 30 30 31 30 31 22 20 3A |4405630500101" :|
00000240: 20 8D 20 32 30 30 20 3A 20 47 54 24 B2 49 4E 24 | . 200 : GT$.IN$|
00000250: 00 D1 1E AA 00 E0 2C 30 2C 38 2C 22 C9 48 52 45 |......,0,8,".HRE|
00000260: 20 C4 41 54 45 4E 3A 20 20 22 AA 4E 41 24 20 3A | .ATEN: ".NA$ :|
00000270: 20 E0 2C 31 33 2C 39 2C 53 54 24 20 3A 20 E0 2C | .,13,9,ST$ : .,|
00000280: 31 33 2C 31 30 2C 57 4F 24 20 3A 20 E0 2C 31 33 |13,10,WO$ : .,13|
00000290: 2C 31 31 2C 22 D4 45 4C 2E 3A 22 AA 54 45 24 20 |,11,".EL.:".TE$ |
000002A0: 3A 20 E0 2C 31 33 2C 31 32 2C 22 C7 45 42 2E 3A |: .,13,12,".EB.:|
000002B0: 20 41 4D 20 22 AA 47 45 24 20 3A 20 E0 2C 31 39 | AM ".GE$ : .,19|
000002C0: 2C 31 33 2C 22 49 4E 20 22 AA 47 54 24 AA 41 4E |,13,"IN ".GT$.AN|
000002D0: 24 00 D7 1E B4 00 80 00 26 1F BE 00 8F 20 2A 2A |$.......&.... **|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 22 C9 CE D0 D5 |********** "....|
00000300: D4 2D D2 4F 55 54 49 4E 45 22 20 2A 2A 2A 2A 2A |.-.OUTINE" *****|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 00 9E 1F C8 00 FE 25 3A 45 24 |******......%:E$|
00000330: B2 C7 28 32 37 29 3A 53 31 B2 C5 28 C8 28 50 41 |..(27):S1..(.(PA|
00000340: 24 2C 32 29 29 3A 5A 31 B2 C5 28 CA 28 50 41 24 |$,2)):Z1..(.(PA$|
00000350: 2C 33 2C 32 29 29 3A 53 32 B2 C5 28 CA 28 50 41 |,3,2)):S2..(.(PA|
00000360: 24 2C 35 2C 32 29 29 3A 5A 32 B2 C5 28 CA 28 50 |$,5,2)):Z2..(.(P|
00000370: 41 24 2C 37 2C 32 29 29 3A 4D 49 B2 C5 28 CA 28 |A$,7,2)):MI..(.(|
00000380: 50 41 24 2C 39 2C 33 29 29 3A 43 4F B2 C5 28 C9 |PA$,9,3)):CO..(.|
00000390: 28 50 41 24 2C 31 29 29 3A 41 55 B2 33 32 00 27 |(PA$,1)):AU.32.'|
000003A0: 20 D2 00 53 50 B2 C5 28 CA 28 50 41 24 2C 31 32 | ..SP..(.(PA$,12|
000003B0: 2C 31 29 29 3A FE 1A 53 31 2C 5A 31 2C 53 32 2C |,1)):..S1,Z1,S2,|
000003C0: 5A 32 3A 99 C7 28 32 38 29 45 24 22 4D 22 55 45 |Z2:..(28)E$"M"UE|
000003D0: 24 C7 28 31 39 29 3B 3A 4D 41 B2 28 53 32 AB 53 |$.(19);:MA.(S2.S|
000003E0: 31 AA 31 29 AC 28 5A 32 AB 5A 31 AA 31 29 3A 49 |1.1).(Z2.Z1.1):I|
000003F0: 4E 24 B2 55 45 24 3A 50 4F B2 31 3A 55 45 24 B2 |N$.UE$:PO.1:UE$.|
00000400: 22 22 3A 41 55 24 B2 45 24 AA 22 55 22 3A 41 4E |"":AU$.E$."U":AN|
00000410: 24 B2 45 24 AA 22 46 22 AA 45 24 AA 22 55 22 3A |$.E$."F".E$."U":|
00000420: 43 55 B2 32 36 30 33 00 4E 20 DC 00 99 41 4E 24 |CU.2603.N ...AN$|
00000430: 3B 3A A1 F9 4E 24 3A 4E B2 C6 28 4E 24 29 3A 97 |;:..N$:N..(N$):.|
00000440: 43 55 2C 41 55 3A 4C B2 C3 28 49 4E 24 29 00 94 |CU,AU:L..(IN$)..|
00000450: 20 E6 00 8B 4E B2 31 33 A7 FE 18 3A 8B 45 49 B2 | ...N.13...:.EI.|
00000460: 30 AF 4C B1 B2 4D 49 A7 99 45 24 45 24 45 24 22 |0.L..MI..E$E$E$"|
00000470: 4C 22 C7 28 35 29 C7 28 31 39 29 C7 28 31 39 29 |L".(5).(19).(19)|
00000480: 41 55 24 3A 97 43 55 2C 41 55 3A 8E 3A D5 32 32 |AU$:.CU,AU:.:.22|
00000490: 30 3A FE 19 00 C8 20 F0 00 8B 4E B2 31 39 A7 FE |0:.... ...N.19..|
000004A0: 18 3A 8B 50 4F B3 B1 31 AF 45 49 B2 30 A7 99 45 |.:.PO..1.EI.0..E|
000004B0: 24 45 24 4E 24 3B 3A 50 4F B2 31 3A 89 32 32 30 |$E$N$;:PO.1:.220|
000004C0: 3A D5 32 32 30 3A FE 19 00 F2 20 FA 00 8B 4E B2 |:.220:.... ...N.|
000004D0: 31 34 37 A7 45 49 B2 30 3A 50 4F B2 31 3A 49 4E |147.EI.0:PO.1:IN|
000004E0: 24 B2 22 22 3A 99 45 24 45 24 4E 24 3B 3A 89 32 |$."":.E$E$N$;:.2|
000004F0: 32 30 00 2F 21 04 01 8B 4E B2 32 39 A7 FE 18 3A |20./!...N.29...:|
00000500: 8B 45 49 B2 30 AF 50 4F B3 B2 4C AF 50 4F B3 4D |.EI.0.PO..L.PO.M|
00000510: 41 A7 50 4F B2 50 4F AA 31 3A 99 45 24 45 24 4E |A.PO.PO.1:.E$E$N|
00000520: 24 3B 3A 89 32 32 30 3A D5 32 32 30 3A FE 19 00 |$;:.220:.220:...|
00000530: 66 21 0E 01 8B 4E B2 31 35 37 A7 FE 18 3A 8B 45 |f!...N.157...:.E|
00000540: 49 B2 30 AF 50 4F B1 31 A7 50 4F B2 50 4F AB 31 |I.0.PO.1.PO.PO.1|
00000550: 3A 99 45 24 45 24 4E 24 3B 3A 89 32 32 30 3A D5 |:.E$E$N$;:.220:.|
00000560: 32 32 30 3A FE 19 00 BB 21 18 01 8B 4E B2 31 37 |220:....!...N.17|
00000570: A7 FE 18 3A 8B 45 49 B2 30 AF 50 4F AA 53 32 AB |...:.EI.0.PO.S2.|
00000580: 53 31 AA 31 B3 B2 4D 41 AF 50 4F AA 53 32 AB 53 |S1.1..MA.PO.S2.S|
00000590: 31 AA 31 B3 4C AA 32 A7 50 4F B2 50 4F AA 53 32 |1.1.L.2.PO.PO.S2|
000005A0: AB 53 31 AA 31 3A 99 45 24 45 24 4E 24 3B 3A 89 |.S1.1:.E$E$N$;:.|
000005B0: 32 32 30 3A D5 32 32 30 3A FE 19 00 10 22 22 01 |220:.220:...."".|
000005C0: 8B 4E B2 32 30 A7 FE 18 3A 8B 50 4F B1 31 A7 49 |.N.20...:.PO.1.I|
000005D0: 4E 24 B2 C8 28 49 4E 24 2C 50 4F AB 32 29 AA C9 |N$..(IN$,PO.2)..|
000005E0: 28 49 4E 24 2C 4C AB 50 4F AA 31 29 3A 4C B2 4C |(IN$,L.PO.1):L.L|
000005F0: AB 31 3A 50 4F B2 50 4F AB 31 3A 99 45 24 45 24 |.1:PO.PO.1:.E$E$|
00000600: 4E 24 3B 3A 89 32 32 30 3A D5 32 32 30 3A FE 19 |N$;:.220:.220:..|
00000610: 00 55 22 2C 01 8B 4E B2 31 34 35 A7 FE 18 3A 8B |.U",..N.145...:.|
00000620: 45 49 B2 30 AF 50 4F AB 53 32 AA 53 31 AB 31 B1 |EI.0.PO.S2.S1.1.|
00000630: 30 A7 50 4F B2 50 4F AB 53 32 AA 53 31 AB 31 3A |0.PO.PO.S2.S1.1:|
00000640: 99 45 24 45 24 4E 24 3B 3A 89 32 32 30 3A D5 32 |.E$E$N$;:.220:.2|
00000650: 32 30 3A FE 19 00 B4 22 36 01 8B 4E B2 31 34 38 |20:...."6..N.148|
00000660: A7 FE 18 3A 8B 4C B3 4D 41 AF 50 4F B3 B2 4C A7 |...:.L.MA.PO..L.|
00000670: 4C B2 4C AA 31 3A 49 4E 24 B2 C8 28 49 4E 24 2C |L.L.1:IN$..(IN$,|
00000680: 50 4F AB 31 29 AA 22 20 22 AA C9 28 49 4E 24 2C |PO.1)." "..(IN$,|
00000690: 4C AB 50 4F 29 3A 45 49 B2 45 49 AA 53 50 3A 99 |L.PO):EI.EI.SP:.|
000006A0: 45 24 45 24 4E 24 3B 3A 89 32 32 30 3A D5 32 32 |E$E$N$;:.220:.22|
000006B0: 30 3A FE 19 00 E1 22 40 01 91 43 4F 8D 33 35 30 |0:...."@..CO.350|
000006C0: 2C 33 36 30 2C 33 37 30 2C 33 38 30 2C 33 39 30 |,360,370,380,390|
000006D0: 3A 8B 46 4C B2 31 A7 46 4C B2 30 3A 89 20 32 32 |:.FL.1.FL.0:. 22|
000006E0: 30 00 17 23 4A 01 99 45 24 45 24 4E 24 3B 3A 8B |0..#J..E$E$N$;:.|
000006F0: 50 4F B2 4C AA 31 A7 49 4E 24 B2 49 4E 24 AA 4E |PO.L.1.IN$.IN$.N|
00000700: 24 3A 4C B2 4C AA 31 3A D5 CA 28 49 4E 24 2C 50 |$:L.L.1:..(IN$,P|
00000710: 4F 2C 31 29 B2 4E 24 00 40 23 54 01 50 4F B2 50 |O,1).N$.@#T.PO.P|
00000720: 4F AA 31 AA 28 50 4F B2 4D 41 29 3A 45 49 B2 45 |O.1.(PO.MA):EI.E|
00000730: 49 AB 31 AB 28 45 49 B2 30 29 3A 89 20 32 32 30 |I.1.(EI.0):. 220|
00000740: 00 7C 23 5E 01 46 4C B2 31 3A 8B 28 28 4E B1 36 |.|#^.FL.1:.((N.6|
00000750: 34 AF 4E B3 39 31 29 B0 28 4E B1 31 39 32 AF 4E |4.N.91).(N.192.N|
00000760: B3 32 31 39 29 B0 4E B2 33 32 29 AF 50 4F B3 B2 |.219).N.32).PO..|
00000770: 4D 41 A7 46 4C B2 30 3A 8E 3A D5 8E 00 CE 23 68 |MA.FL.0:.:....#h|
00000780: 01 46 4C B2 31 3A 8B 28 28 4E B1 34 37 AF 4E B3 |.FL.1:.((N.47.N.|
00000790: 35 38 29 B0 28 4E B1 36 34 AF 4E B3 39 31 29 B0 |58).(N.64.N.91).|
000007A0: 28 4E B1 31 39 32 AF 4E B3 32 31 39 29 B0 4E B2 |(N.192.N.219).N.|
000007B0: 34 35 B0 4E B2 33 32 B0 4E B2 34 36 29 AF 50 4F |45.N.32.N.46).PO|
000007C0: B3 B2 4D 41 A7 46 4C B2 30 3A 8E 3A D5 8E 00 16 |..MA.FL.0:.:....|
000007D0: 24 72 01 46 4C B2 31 3A 8B 28 28 4E B1 34 37 AF |$r.FL.1:.((N.47.|
000007E0: 4E B3 35 38 29 B0 28 4E B1 36 34 AF 4E B3 39 31 |N.58).(N.64.N.91|
000007F0: 29 B0 28 4E B1 31 39 32 AF 4E B3 32 31 39 29 B0 |).(N.192.N.219).|
00000800: 4E B2 33 32 29 AF 50 4F B3 B2 4D 41 A7 46 4C B2 |N.32).PO..MA.FL.|
00000810: 30 3A 8E 3A D5 8E 00 44 24 7C 01 46 4C B2 31 3A |0:.:...D$|.FL.1:|
00000820: 8B 28 28 4E B1 34 36 AF 4E B3 35 38 29 B0 4E B2 |.((N.46.N.58).N.|
00000830: 34 35 29 AF 50 4F B3 B2 4D 41 A7 46 4C B2 30 3A |45).PO..MA.FL.0:|
00000840: 8E 3A D5 8E 00 77 24 86 01 46 4C B2 31 3A 8B 28 |.:...w$..FL.1:.(|
00000850: 28 4E B1 34 37 AF 4E B3 35 38 29 B0 4E B2 34 36 |(N.47.N.58).N.46|
00000860: B0 4E B2 33 39 29 AF 50 4F B3 B2 4D 41 A7 46 4C |.N.39).PO..MA.FL|
00000870: B2 30 3A 8E 3A D5 8E 00 00 00 |.0:.:..... |
....D..%:.G(14)G(147)G(5);.U.N.."NAME
(1-30 ZEICHEN, A-Z) :" :
PA$."4400730000101" : . 200 : NA$.IN$.P.
X.."STRASSE (1-30 ZEICHEN, A-Z 0-9
. -) :" : PA$."4401730100102" : . 200 :
ST$.IN$.0....,0,2,"WOHNORT (1-30
ZEICHEN, A-Z 0-9) :" : PA$."44027302
00103" : . 200 : WO$.IN$......,0,3,"TELE
FONNUMMER (1-20 ZEICHEN, 0-9 - /) :"
: PA$."4403630300114" : . 200 : TE$.IN$
......,0,4,"GEBURTSDATUM (6-10 ZEICHEN,
0-9 . ') :" : PA$."4404530400615" :
. 200 : GE$.IN$.P. ..,0,5,"GEBURTSORT
(1-20 ZEICHEN, A-Z) :" : PA$."
4405630500101" : . 200 : GT$.IN$.Q....,0
,8,"IHRE DATEN: ".NA$ : .,13,9,ST$ : .,
13,10,WO$ : .,13,11,"TEL.:".TE$ : .,13,1
2,"GEB.: AM ".GE$ : .,19,13,"IN ".GT$.AN
$.W.....&.... **************************
** "INPUT-ROUTINE" *********************
******...H..%:E$.G(27):S1.E(H(PA$,2)):Z1
.E(J(PA$,3,2)):S2.E(J(PA$,5,2)):Z2.E(J(P
A$,7,2)):MI.E(J(PA$,9,3)):CO.E(I(PA$,1))
:AU.32.' R.SP.E(J(PA$,12,1)):..S1,Z1,S2,
Z2:.G(28)E$"M"UE$G(19);:MA.(S2.S1.1).(Z2
.Z1.1):IN$.UE$:PO.1:UE$."":AU$.E$."U":AN
$.E$."F".E$."U":CU.2603.N ...AN$;:..N$:N
.F(N$):.CU,AU:L.C(IN$).. ...N.13...:.EI.
0.L..MI..E$E$E$"L"G(5)G(19)G(19)AU$:.CU,
AU:.:U220:...H ...N.19...:.PO..1.EI.0..E
$E$N$;:PO.1:.220:U220:.... ...N.147.EI.0
:PO.1:IN$."":.E$E$N$;:.220./!...N.29...:
.EI.0.PO..L.PO.MA.PO.PO.1:.E$E$N$;:.220:
U220:...F!...N.157...:.EI.0.PO.1.PO.PO.1
:.E$E$N$;:.220:U220:....!...N.17...:.EI.
0.PO.S2.S1.1..MA.PO.S2.S1.1.L.2.PO.PO.S2
.S1.1:.E$E$N$;:.220:U220:....""..N.20...
:.PO.1.IN$.H(IN$,PO.2).I(IN$,L.PO.1):L.L
.1:PO.PO.1:.E$E$N$;:.220:U220:...U",..N.
145...:.EI.0.PO.S2.S1.1.0.PO.PO.S2.S1.1:
.E$E$N$;:.220:U220:...."6..N.148...:.L.M
A.PO..L.L.L.1:IN$.H(IN$,PO.1)." ".I(IN$,
L.PO):EI.EI.SP:.E$E$N$;:.220:U220:...."@
..CO.350,360,370,380,390:.FL.1.FL.0:. 22
0..#J..E$E$N$;:.PO.L.1.IN$.IN$.N$:L.L.1:
UJ(IN$,PO,1).N$.@#T.PO.PO.1.(PO.MA):EI.E
I.1.(EI.0):. 220.|#^.FL.1:.((N.64.N.91).
(N.192.N.219).N.32).PO..MA.FL.0:.:U..N#H
.FL.1:.((N.47.N.58).(N.64.N.91).(N.192.N
.219).N.45.N.32.N.46).PO..MA.FL.0:.:U...
$R.FL.1:.((N.47.N.58).(N.64.N.91).(N.192
.N.219).N.32).PO..MA.FL.0:.:U..D$|.FL.1:
.((N.46.N.58).N.45).PO..MA.FL.0:.:U..W$.
.FL.1:.((N.47.N.58).N.46.N.39).PO..MA.FL
.0:.:U....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL