00000000: 01 1C 0F 1C 64 00 86 20 50 4E 24 28 31 30 29 00 |....d.. PN$(10).|
00000010: 34 1C E8 03 8F 20 2A 2A 2A 2A 2A 2A 20 49 4E 44 |4.... ****** IND|
00000020: 54 41 53 54 4E 49 4E 47 20 2A 2A 2A 2A 2A 2A 2A |TASTNING *******|
00000030: 2A 2A 2A 2A 00 57 1C F2 03 85 20 22 93 49 4E 44 |****.W.... ".IND|
00000040: 54 41 53 54 20 50 45 52 53 4F 4E 4E 55 4D 4D 45 |TAST PERSONNUMME|
00000050: 52 20 22 3B 50 4E 24 00 81 1C FC 03 89 20 31 30 |R ";PN$...... 10|
00000060: 30 30 30 3A 20 8F 20 56 41 4C 49 44 45 52 49 4E |000: . VALIDERIN|
00000070: 47 20 41 46 20 50 45 52 53 4F 4E 4E 55 4D 4D 45 |G AF PERSONNUMME|
00000080: 52 00 9F 1C 06 04 85 22 11 11 49 4E 44 54 41 53 |R......"..INDTAS|
00000090: 54 20 4C 30 4E 46 4F 52 4D 20 22 3B 4C 46 24 00 |T L0NFORM ";LF$.|
000000A0: C2 1C 0B 04 89 31 30 35 30 30 3A 8F 20 56 41 4C |.....10500:. VAL|
000000B0: 49 44 45 52 49 4E 47 20 41 46 20 4C 30 4E 46 4F |IDERING AF L0NFO|
000000C0: 52 4D 00 DD 1C 10 04 85 22 11 11 49 4E 44 54 41 |RM......"..INDTA|
000000D0: 53 54 20 4E 41 56 4E 20 22 3B 4E 41 24 00 E3 1C |ST NAVN ";NA$...|
000000E0: 1A 04 80 00 07 1D 10 27 8F 20 2A 2A 2A 2A 2A 2A |.......'. ******|
000000F0: 2A 2A 20 50 4E 52 2E 20 56 41 4C 49 44 45 52 49 |** PNR. VALIDERI|
00000100: 4E 47 20 2A 2A 2A 2A 00 21 1D 1A 27 8B 20 C3 28 |NG ****.!..'. .(|
00000110: 50 4E 24 29 20 B3 B1 20 31 30 20 A7 20 31 30 30 |PN$) .. 10 . 100|
00000120: 30 00 39 1D 1F 27 58 B2 4F 3A 59 B2 30 3A 54 B2 |0.9..'X.O:Y.0:T.|
00000130: 30 3A 5A B2 30 3A 4D B2 30 00 5F 1D 24 27 50 31 |0:Z.0:M.0._.$'P1|
00000140: 24 B2 CA 28 50 4E 24 2C 31 2C 31 29 3A 50 31 B2 |$..(PN$,1,1):P1.|
00000150: C5 28 50 31 24 29 3A 58 B2 58 AA 50 31 AC 34 00 |.(P1$):X.X.P1.4.|
00000160: 85 1D 2E 27 50 32 24 B2 CA 28 50 4E 24 2C 32 2C |...'P2$..(PN$,2,|
00000170: 31 29 3A 50 32 B2 C5 28 50 32 24 29 3A 58 B2 58 |1):P2..(P2$):X.X|
00000180: AA 50 32 AC 33 00 AB 1D 38 27 50 33 24 B2 CA 28 |.P2.3...8'P3$..(|
00000190: 50 4E 24 2C 33 2C 31 29 3A 50 33 B2 C5 28 50 33 |PN$,3,1):P3..(P3|
000001A0: 24 29 3A 58 B2 58 AA 50 33 AC 32 00 D1 1D 42 27 |$):X.X.P3.2...B'|
000001B0: 50 34 24 B2 CA 28 50 4E 24 2C 34 2C 31 29 3A 50 |P4$..(PN$,4,1):P|
000001C0: 34 B2 C5 28 50 34 24 29 3A 58 B2 58 AA 50 34 AC |4..(P4$):X.X.P4.|
000001D0: 37 00 F7 1D 4C 27 50 35 24 B2 CA 28 50 4E 24 2C |7...L'P5$..(PN$,|
000001E0: 35 2C 31 29 3A 50 35 B2 C5 28 50 35 24 29 3A 58 |5,1):P5..(P5$):X|
000001F0: B2 58 AA 50 35 AC 36 00 1D 1E 56 27 50 36 24 B2 |.X.P5.6...V'P6$.|
00000200: CA 28 50 4E 24 2C 36 2C 31 29 3A 50 36 B2 C5 28 |.(PN$,6,1):P6..(|
00000210: 50 36 24 29 3A 58 B2 58 AA 50 36 AC 35 00 43 1E |P6$):X.X.P6.5.C.|
00000220: 60 27 50 37 24 B2 CA 28 50 4E 24 2C 37 2C 31 29 |`'P7$..(PN$,7,1)|
00000230: 3A 50 37 B2 C5 28 50 37 24 29 3A 58 B2 58 AA 50 |:P7..(P7$):X.X.P|
00000240: 37 AC 34 00 69 1E 6A 27 50 38 24 B2 CA 28 50 4E |7.4.i.j'P8$..(PN|
00000250: 24 2C 38 2C 31 29 3A 50 38 B2 C5 28 50 38 24 29 |$,8,1):P8..(P8$)|
00000260: 3A 58 B2 58 AA 50 38 AC 33 00 8F 1E 74 27 50 39 |:X.X.P8.3...t'P9|
00000270: 24 B2 CA 28 50 4E 24 2C 39 2C 31 29 3A 50 39 B2 |$..(PN$,9,1):P9.|
00000280: C5 28 50 39 24 29 3A 58 B2 58 AA 50 39 AC 32 00 |.(P9$):X.X.P9.2.|
00000290: AD 1E 7E 27 50 31 30 24 B2 C9 28 50 4E 24 2C 31 |..~'P10$..(PN$,1|
000002A0: 29 3A 50 31 30 B2 C5 28 50 31 30 24 29 00 BF 1E |):P10..(P10$)...|
000002B0: 88 27 59 B2 58 AD 31 31 3A 59 B2 B5 28 59 29 00 |.'Y.X.11:Y..(Y).|
000002C0: CE 1E 92 27 54 B2 58 3A 5A B2 59 AC 31 31 00 DD |...'T.X:Z.Y.11..|
000002D0: 1E 9C 27 4D B2 31 31 AB 28 54 AB 5A 29 00 EB 1E |..'M.11.(T.Z)...|
000002E0: A6 27 8B 4D B2 31 31 A7 4D B2 30 00 FB 1E B0 27 |.'.M.11.M.0....'|
000002F0: 8B 4D B2 50 31 30 A7 31 30 33 30 00 0C 1F BA 27 |.M.P10.1030....'|
00000300: 8B 4D B3 B1 50 31 30 A7 31 30 31 30 00 30 1F 04 |.M..P10.1010.0..|
00000310: 29 8F 20 2A 2A 2A 2A 2A 2A 20 4C 30 4E 46 4F 52 |). ****** L0NFOR|
00000320: 4D 20 56 41 4C 49 44 45 52 49 4E 47 20 2A 2A 2A |M VALIDERING ***|
00000330: 00 39 1F 09 29 4C 46 B2 30 00 51 1F 0E 29 8B 20 |.9..)LF.0.Q..). |
00000340: C3 28 4C 46 24 29 B3 B1 20 31 20 A7 20 31 30 33 |.(LF$).. 1 . 103|
00000350: 30 00 5F 1F 18 29 4C 46 B2 C5 28 4C 46 24 29 00 |0._..)LF..(LF$).|
00000360: 7B 1F 22 29 8B 20 4C 46 20 B3 31 20 B0 20 4C 46 |{."). LF .1 . LF|
00000370: 20 B1 20 32 20 A7 20 31 30 33 30 00 85 1F 2C 29 | . 2 . 1030...,)|
00000380: 89 31 30 34 30 00 00 00 |.1040... |
....D.. PN$(10).4.... ****** INDTASTNING
***********.W.... ".INDTAST PERSONNUMME
R ";PN$...... 10000: . VALIDERING AF PER
SONNUMMER......"..INDTAST L0NFORM ";LF$.
B....10500:. VALIDERING AF L0NFORM......
"..INDTAST NAVN ";NA$..........'. ******
** PNR. VALIDERING ****.!..'. C(PN$) ..
10 . 1000.9..'X.O:Y.0:T.0:Z.0:M.0._.$'P1
$.J(PN$,1,1):P1.E(P1$):X.X.P1.4....'P2$.
J(PN$,2,1):P2.E(P2$):X.X.P2.3...8'P3$.J(
PN$,3,1):P3.E(P3$):X.X.P3.2.Q.B'P4$.J(PN
$,4,1):P4.E(P4$):X.X.P4.7...L'P5$.J(PN$,
5,1):P5.E(P5$):X.X.P5.6...V'P6$.J(PN$,6,
1):P6.E(P6$):X.X.P6.5.C.`'P7$.J(PN$,7,1)
:P7.E(P7$):X.X.P7.4.I.J'P8$.J(PN$,8,1):P
8.E(P8$):X.X.P8.3...T'P9$.J(PN$,9,1):P9.
E(P9$):X.X.P9.2...~'P10$.I(PN$,1):P10.E(
P10$)....'Y.X.11:Y..(Y).N..'T.X:Z.Y.11..
..'M.11.(T.Z)....'.M.11.M.0....'.M.P10.1
030....'.M..P10.1010.0..). ****** L0NFOR
M VALIDERING ***.9..)LF.0.Q..). C(LF$)..
1 . 1030._..)LF.E(LF$).{."). LF .1 . LF
. 2 . 1030...,).1040...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL