PERSONREGISTER
FILE INFORMATION
FILENAME(S): PERSONREGISTER
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-12-01 00:56:51
APPEARS ON: 1 disk(s)
FILE HASH
c549b78a3edf7f23bc39cccd4ce4d7eccce381e461105b02067fac42a63f00bf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEL | PERSONREGISTER | PRG | hedning, Gothenburg | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 39 08 01 00 8F 53 41 56 45 22 40 30 3A 50 |..9....SAVE"@0:P| 00000010: 45 52 53 4F 4E 52 45 47 49 53 54 45 52 22 2C 38 |ERSONREGISTER",8| 00000020: 3A 56 45 52 49 46 59 22 50 45 52 53 4F 4E 52 45 |:VERIFY"PERSONRE| 00000030: 47 49 53 54 45 52 22 2C 38 00 54 08 04 00 8F 20 |GISTER",8.T.... | 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 00 6F 08 06 00 8F 20 2A 2A 2A 50 45 |****.o.... ***PE| 00000060: 52 53 4F 4E 52 45 47 49 53 54 45 52 2A 2A 2A 00 |RSONREGISTER***.| 00000070: 8A 08 08 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 4B 47 |..... ********KG| 00000080: 42 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 08 09 00 8F |B*********......| 00000090: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000000A0: 2A 2A 2A 2A 2A 00 BD 08 0A 00 97 20 35 33 32 38 |*****...... 5328| 000000B0: 30 2C 36 3A 97 20 35 33 32 38 31 2C 36 00 EF 08 |0,6:. 53281,6...| 000000C0: 0F 00 86 20 4E 24 28 34 30 29 2C 45 24 28 34 30 |... N$(40),E$(40| 000000D0: 29 2C 47 24 28 34 30 29 2C 50 24 28 34 30 29 2C |),G$(40),P$(40),| 000000E0: 50 4E 52 24 28 34 30 29 2C 54 24 28 34 30 29 00 |PNR$(40),T$(40).| 000000F0: FF 08 14 00 99 20 22 93 22 3A 99 3A 99 3A 99 00 |..... ".":.:.:..| 00000100: 0D 09 1E 00 43 52 24 B2 C7 28 31 33 29 00 1F 09 |....CR$..(13)...| 00000110: 28 00 99 20 A3 33 29 22 4D 45 4E 59 22 3A 99 00 |(.. .3)"MENY":..| 00000120: 4E 09 32 00 99 20 A3 33 29 22 9E 53 9A 4B 41 50 |N.2.. .3)".S.KAP| 00000130: 41 4E 44 45 20 41 56 20 46 49 4C 22 3A 99 20 A3 |ANDE AV FIL":. .| 00000140: 32 37 29 22 53 56 41 52 41 20 4D 45 44 22 00 77 |27)"SVARA MED".w| 00000150: 09 3C 00 99 20 A3 33 29 22 9E 4E 9A 59 41 20 50 |.<.. .3)".N.YA P| 00000160: 4F 53 54 45 52 22 3A 99 20 A3 32 37 29 22 4E 5D |OSTER":. .27)"N]| 00000170: 47 4F 54 20 41 56 22 00 A2 09 46 00 99 20 A3 33 |GOT AV"...F.. .3| 00000180: 29 22 9E 50 9A 4F 53 54 55 54 53 4B 52 49 46 54 |)".P.OSTUTSKRIFT| 00000190: 22 3A 99 20 A3 32 37 29 22 54 45 43 4B 4E 45 4E |":. .27)"TECKNEN| 000001A0: 3A 22 00 D4 09 50 00 99 20 A3 33 29 22 9E 52 9A |:"...P.. .3)".R.| 000001B0: 45 47 49 53 54 45 52 55 54 53 4B 52 49 46 54 22 |EGISTERUTSKRIFT"| 000001C0: 3A 99 20 A3 32 37 29 22 53 2C 4E 2C 50 2C 52 2C |:. .27)"S,N,P,R,| 000001D0: 55 2C 41 22 00 EC 09 5A 00 99 20 A3 33 29 22 9E |U,A"...Z.. .3)".| 000001E0: 55 9A 50 50 44 41 54 45 52 49 4E 47 00 03 0A 5F |U.PPDATERING..._| 000001F0: 00 99 3A 99 20 A3 33 29 22 9E 41 9A 56 53 4C 55 |..:. .3)".A.VSLU| 00000200: 54 41 22 00 0D 0A 64 00 99 3A 99 3A 99 00 2B 0A |TA"...d..:.:..+.| 00000210: 6E 00 99 20 A3 33 29 22 56 49 4C 4B 45 4E 20 20 |n.. .3)"VILKEN | 00000220: 4F 50 45 52 41 54 49 4F 4E 3F 22 00 3A 0A 73 00 |OPERATION?".:.s.| 00000230: 8F 20 52 49 54 41 20 52 41 4D 00 49 0A 78 00 81 |. RITA RAM.I.x..| 00000240: 20 49 B2 30 20 A4 20 32 32 00 66 0A 82 00 97 20 | I.0 . 22.f.... | 00000250: 31 30 36 35 AA 49 2C 31 36 30 3A 97 20 35 35 33 |1065.I,160:. 553| 00000260: 33 37 AA 49 2C 37 00 83 0A 96 00 97 20 31 39 34 |37.I,7...... 194| 00000270: 35 AA 49 2C 31 36 30 3A 97 20 35 36 32 31 37 AA |5.I,160:. 56217.| 00000280: 49 2C 37 00 A6 0A AA 00 97 20 31 30 36 35 AA 49 |I,7...... 1065.I| 00000290: AC 34 30 2C 31 36 30 3A 97 20 35 35 33 33 37 AA |.40,160:. 55337.| 000002A0: 49 AC 34 30 2C 37 00 C9 0A BE 00 97 20 31 30 38 |I.40,7...... 108| 000002B0: 38 AA 49 AC 34 30 2C 31 36 30 3A 97 20 35 35 33 |8.I.40,160:. 553| 000002C0: 36 30 AA 49 AC 34 30 2C 37 00 D1 0A D2 00 82 20 |60.I.40,7...... | 000002D0: 49 00 E7 0A DC 00 A1 20 41 24 3A 8B 20 41 24 B2 |I...... A$:. A$.| 000002E0: 22 22 A7 20 32 32 30 00 FB 0A E6 00 8B 20 41 24 |"". 220...... A$| 000002F0: B2 22 53 22 20 A7 20 31 30 30 30 00 0F 0B F0 00 |."S" . 1000.....| 00000300: 8B 20 41 24 B2 22 4E 22 20 A7 20 32 30 30 30 00 |. A$."N" . 2000.| 00000310: 23 0B FA 00 8B 20 41 24 B2 22 50 22 20 A7 20 33 |#.... A$."P" . 3| 00000320: 30 30 30 00 37 0B 04 01 8B 20 41 24 B2 22 52 22 |000.7.... A$."R"| 00000330: 20 A7 20 34 30 30 30 00 4B 0B 0E 01 8B 20 41 24 | . 4000.K.... A$| 00000340: B2 22 55 22 20 A7 20 35 30 30 30 00 5F 0B 13 01 |."U" . 5000._...| 00000350: 8B 20 41 24 B2 22 41 22 20 A7 20 36 30 30 30 00 |. A$."A" . 6000.| 00000360: 69 0B 18 01 89 20 32 32 30 00 85 0B E8 03 8F 20 |i.... 220...... | 00000370: 2A 2A 2A 53 4B 41 50 41 4E 44 45 20 41 56 20 46 |***SKAPANDE AV F| 00000380: 49 4C 2A 2A 2A 00 B9 0B F2 03 99 20 22 93 11 11 |IL***...... "...| 00000390: 11 11 11 11 11 11 11 11 11 56 41 44 20 53 4B 41 |.........VAD SKA| 000003A0: 4C 4C 20 46 49 4C 45 4E 20 48 45 54 41 22 3A 99 |LL FILEN HETA":.| 000003B0: 3A 85 20 42 24 3A 49 B2 31 00 D0 0B 06 04 42 24 |:. B$:I.1.....B$| 000003C0: B2 42 24 AA 22 2C 53 45 51 2C 57 52 49 54 45 22 |.B$.",SEQ,WRITE"| 000003D0: 00 EC 0B 10 04 9F 20 31 2C 38 2C 31 35 2C 22 49 |...... 1,8,15,"I| 000003E0: 22 3A 9F 20 32 2C 38 2C 32 2C 42 24 00 F8 0B 1F |":. 2,8,2,B$....| 000003F0: 04 A0 20 32 3A A0 20 31 00 03 0C 2E 04 89 20 32 |.. 2:. 1...... 2| 00000400: 30 34 30 00 26 0C D0 07 8F 20 2A 2A 2A 49 4E 53 |040.&.... ***INS| 00000410: 4B 52 49 46 54 20 41 56 20 4E 59 41 20 50 4F 53 |KRIFT AV NYA POS| 00000420: 54 45 52 2A 2A 2A 00 55 0C DA 07 99 20 22 93 11 |TER***.U.... "..| 00000430: 11 11 11 11 11 11 11 11 11 11 56 41 44 20 48 45 |..........VAD HE| 00000440: 54 45 52 20 46 49 4C 45 4E 22 3A 99 3A 85 20 42 |TER FILEN":.:. B| 00000450: 24 3A 49 B2 31 00 66 0C E4 07 9F 20 31 2C 38 2C |$:I.1.f.... 1,8,| 00000460: 31 35 2C 22 49 22 00 7C 0C E9 07 9F 20 32 2C 38 |15,"I".|.... 2,8| 00000470: 2C 32 2C 42 24 AA 22 2C 53 2C 52 22 00 A9 0C EF |,2,B$.",S,R"....| 00000480: 07 84 32 2C 4E 24 28 49 29 2C 45 24 28 49 29 2C |..2,N$(I),E$(I),| 00000490: 47 24 28 49 29 2C 50 24 28 49 29 2C 50 4E 52 24 |G$(I),P$(I),PNR$| 000004A0: 28 49 29 2C 54 24 28 49 29 00 C0 0C F0 07 8B 20 |(I),T$(I)...... | 000004B0: 4E 24 28 49 29 B2 22 30 22 20 A7 20 32 30 33 34 |N$(I)."0" . 2034| 000004C0: 00 D4 0C F1 07 49 B2 49 AA 31 3A 20 20 20 89 20 |.....I.I.1: . | 000004D0: 32 30 33 31 00 DC 0C F2 07 A0 20 32 00 F2 0C F3 |2031...... 2....| 000004E0: 07 9F 20 32 2C 38 2C 32 2C 42 24 AA 22 2C 53 2C |.. 2,8,2,B$.",S,| 000004F0: 52 22 00 00 0D F4 07 81 20 4A B2 31 20 A4 20 49 |R"...... J.1 . I| 00000500: 00 2D 0D F5 07 84 32 2C 4E 24 28 4A 29 2C 45 24 |.-....2,N$(J),E$| 00000510: 28 4A 29 2C 47 24 28 4A 29 2C 50 24 28 4A 29 2C |(J),G$(J),P$(J),| 00000520: 50 4E 52 24 28 4A 29 2C 54 24 28 4A 29 00 35 0D |PNR$(J),T$(J).5.| 00000530: F6 07 82 20 4A 00 43 0D F7 07 A0 20 32 3A 4A B2 |... J.C.... 2:J.| 00000540: 4A AB 31 00 5F 0D F8 07 9F 20 32 2C 38 2C 32 2C |J.1._.... 2,8,2,| 00000550: 22 40 30 3A 22 AA 42 24 AA 22 2C 53 2C 57 22 00 |"@0:".B$.",S,W".| 00000560: 7A 0D 0C 08 85 20 22 93 46 5C 52 4E 41 4D 4E 20 |z.... ".F\RNAMN | 00000570: 20 20 20 22 3B 4E 24 28 4A 29 00 96 0D 16 08 99 | ";N$(J)......| 00000580: 3A 85 20 22 45 46 54 45 52 4E 41 4D 4E 20 20 22 |:. "EFTERNAMN "| 00000590: 3B 45 24 28 4A 29 00 B2 0D 20 08 99 3A 85 20 22 |;E$(J)... ..:. "| 000005A0: 47 41 54 55 41 44 52 45 53 53 20 22 3B 47 24 28 |GATUADRESS ";G$(| 000005B0: 4A 29 00 CE 0D 2A 08 99 3A 85 20 22 50 4F 53 54 |J)...*..:. "POST| 000005C0: 41 44 52 45 53 53 20 22 3B 50 24 28 4A 29 00 EC |ADRESS ";P$(J)..| 000005D0: 0D 34 08 99 3A 85 20 22 50 45 52 53 4F 4E 4E 52 |.4..:. "PERSONNR| 000005E0: 2E 20 20 22 3B 50 4E 52 24 28 4A 29 00 08 0E 3E |. ";PNR$(J)...>| 000005F0: 08 99 3A 85 20 22 54 45 4C 45 46 4F 4E 20 20 20 |..:. "TELEFON | 00000600: 20 22 3B 54 24 28 4A 29 00 18 0E 52 08 99 3A 99 | ";T$(J)...R..:.| 00000610: 3A 99 3A 4A B2 4A AA 31 00 31 0E 5C 08 99 20 22 |:.:J.J.1.1.\.. "| 00000620: 56 49 4C 4C 20 44 55 20 53 4B 52 49 56 41 20 49 |VILL DU SKRIVA I| 00000630: 4E 00 4A 0E 66 08 99 20 22 46 4C 45 52 20 50 4F |N.J.f.. "FLER PO| 00000640: 53 54 45 52 22 3A 85 20 43 24 00 64 0E 70 08 8B |STER":. C$.d.p..| 00000650: 20 C6 28 43 24 29 B2 37 34 20 A7 20 32 30 36 30 | .(C$).74 . 2060| 00000660: 3A 99 20 4A 00 72 0E 71 08 4E 24 28 4A 29 B2 22 |:. J.r.q.N$(J)."| 00000670: 30 22 00 96 0E 72 08 50 24 28 4A 29 B2 22 30 22 |0"...r.P$(J)."0"| 00000680: 3A 50 4E 52 24 28 4A 29 B2 22 30 22 3A 54 24 28 |:PNR$(J)."0":T$(| 00000690: 4A 29 B2 22 30 22 00 A4 0E 73 08 45 24 28 4A 29 |J)."0"...s.E$(J)| 000006A0: B2 22 30 22 00 B2 0E 74 08 47 24 28 4A 29 B2 22 |."0"...t.G$(J)."| 000006B0: 30 22 00 C0 0E 75 08 81 20 4B B2 31 20 A4 20 4A |0"...u.. K.1 . J| 000006C0: 00 F7 0E 7A 08 98 32 2C 4E 24 28 4B 29 43 52 24 |...z..2,N$(K)CR$| 000006D0: 45 24 28 4B 29 43 52 24 47 24 28 4B 29 43 52 24 |E$(K)CR$G$(K)CR$| 000006E0: 50 24 28 4B 29 43 52 24 50 4E 52 24 28 4B 29 43 |P$(K)CR$PNR$(K)C| 000006F0: 52 24 54 24 28 4B 29 00 FF 0E 7F 08 82 20 4B 00 |R$T$(K)...... K.| 00000700: 10 0F 84 08 A0 20 32 3A A0 20 31 3A 89 20 32 30 |..... 2:. 1:. 20| 00000710: 00 32 0F B8 0B 8F 2A 2A 2A 45 4E 53 54 41 4B 41 |.2....***ENSTAKA| 00000720: 20 50 4F 53 54 55 54 53 4B 52 49 46 54 45 52 2A | POSTUTSKRIFTER*| 00000730: 2A 2A 00 5D 0F C2 0B 99 20 22 93 11 11 11 11 11 |**.].... "......| 00000740: 11 11 11 11 11 11 56 41 44 20 48 45 54 45 52 20 |......VAD HETER | 00000750: 46 49 4C 45 4E 22 3A 99 3A 85 20 42 24 00 80 0F |FILEN":.:. B$...| 00000760: D6 0B 9F 20 31 2C 38 2C 31 35 2C 22 49 22 3A 9F |... 1,8,15,"I":.| 00000770: 20 32 2C 38 2C 32 2C 42 24 AA 22 2C 53 2C 52 22 | 2,8,2,B$.",S,R"| 00000780: 00 B4 0F EA 0B 99 20 22 41 4E 47 45 20 53 5C 4B |...... "ANGE S\K| 00000790: 42 45 47 52 45 50 50 20 4D 45 44 20 41 54 54 20 |BEGREPP MED ATT | 000007A0: 53 56 41 52 41 20 4A 20 45 4C 4C 45 52 20 4E 22 |SVARA J ELLER N"| 000007B0: 3A 99 3A 99 00 D9 0F 08 0C 85 20 22 5B 52 20 53 |:.:....... "[R S| 000007C0: 5C 4B 42 45 47 52 45 50 50 45 54 20 2D 46 5C 52 |\KBEGREPPET -F\R| 000007D0: 4E 41 4D 4E 2D 22 3B 43 24 00 ED 0F 12 0C 8B 20 |NAMN-";C$...... | 000007E0: 43 24 B2 22 4A 22 20 A7 20 33 31 39 30 00 14 10 |C$."J" . 3190...| 000007F0: 1C 0C 85 20 22 5B 52 20 53 5C 4B 42 45 47 52 45 |... "[R S\KBEGRE| 00000800: 50 50 45 54 20 2D 45 46 54 45 52 4E 41 4D 4E 2D |PPET -EFTERNAMN-| 00000810: 22 3B 43 24 00 28 10 26 0C 8B 20 43 24 B2 22 4A |";C$.(.&.. C$."J| 00000820: 22 20 A7 20 33 32 30 30 00 50 10 30 0C 85 20 22 |" . 3200.P.0.. "| 00000830: 5B 52 20 53 5C 4B 42 45 47 52 45 50 50 45 54 20 |[R S\KBEGREPPET | 00000840: 2D 47 41 54 55 41 44 52 45 53 53 2D 22 3B 43 24 |-GATUADRESS-";C$| 00000850: 00 64 10 3A 0C 8B 20 43 24 B2 22 4A 22 20 A7 20 |.d.:.. C$."J" . | 00000860: 33 32 31 30 00 8C 10 44 0C 85 20 22 5B 52 20 53 |3210...D.. "[R S| 00000870: 5C 4B 42 45 47 52 45 50 50 45 54 20 2D 50 4F 53 |\KBEGREPPET -POS| 00000880: 54 41 44 52 45 53 53 2D 22 3B 43 24 00 A0 10 4E |TADRESS-";C$...N| 00000890: 0C 8B 20 43 24 B2 22 4A 22 20 A7 20 33 32 32 30 |.. C$."J" . 3220| 000008A0: 00 CA 10 58 0C 85 20 22 5B 52 20 53 5C 4B 42 45 |...X.. "[R S\KBE| 000008B0: 47 52 45 50 50 45 54 20 2D 50 45 52 53 4F 4E 4E |GREPPET -PERSONN| 000008C0: 55 4D 4D 45 52 2D 22 3B 43 24 00 DE 10 62 0C 8B |UMMER-";C$...b..| 000008D0: 20 43 24 B2 22 4A 22 20 A7 20 33 32 33 30 00 05 | C$."J" . 3230..| 000008E0: 11 6C 0C 99 20 22 41 4E 47 45 20 54 45 4C 45 46 |.l.. "ANGE TELEF| 000008F0: 4F 4E 4E 55 4D 4D 45 52 22 3A 85 20 53 24 3A 89 |ONNUMMER":. S$:.| 00000900: 20 33 35 30 30 00 26 11 76 0C 99 20 22 41 4E 47 | 3500.&.v.. "ANG| 00000910: 45 20 46 5C 52 4E 41 4D 4E 22 3A 85 20 53 24 3A |E F\RNAMN":. S$:| 00000920: 89 20 33 35 30 30 00 49 11 80 0C 99 20 22 41 4E |. 3500.I.... "AN| 00000930: 47 45 20 45 46 54 45 52 4E 41 4D 4E 22 3A 85 20 |GE EFTERNAMN":. | 00000940: 53 24 3A 89 20 33 35 30 30 00 6D 11 8A 0C 99 20 |S$:. 3500.m.... | 00000950: 22 41 4E 47 45 20 47 41 54 55 41 44 52 45 53 53 |"ANGE GATUADRESS| 00000960: 22 3A 85 20 53 24 3A 89 20 33 35 30 30 00 91 11 |":. S$:. 3500...| 00000970: 94 0C 99 20 22 41 4E 47 45 20 50 4F 53 54 41 44 |... "ANGE POSTAD| 00000980: 52 45 53 53 22 3A 85 20 53 24 3A 89 20 33 35 30 |RESS":. S$:. 350| 00000990: 30 00 B7 11 9E 0C 99 20 22 41 4E 47 45 20 50 45 |0...... "ANGE PE| 000009A0: 52 53 4F 4E 4E 55 4D 4D 45 52 22 3A 85 20 53 24 |RSONNUMMER":. S$| 000009B0: 3A 89 20 33 35 30 30 00 E2 11 AC 0D 84 32 2C 41 |:. 3500......2,A| 000009C0: 24 28 31 29 2C 41 24 28 32 29 2C 41 24 28 33 29 |$(1),A$(2),A$(3)| 000009D0: 2C 41 24 28 34 29 2C 41 24 28 35 29 2C 41 24 28 |,A$(4),A$(5),A$(| 000009E0: 36 29 00 F9 11 AD 0D 8B 20 41 24 28 31 29 B2 22 |6)...... A$(1)."| 000009F0: 30 22 20 A7 20 33 36 32 30 00 01 12 B6 0D 46 B2 |0" . 3620.....F.| 00000A00: 30 00 0F 12 C0 0D 81 20 49 B2 31 20 A4 20 36 00 |0...... I.1 . 6.| 00000A10: 26 12 C1 0D 8B 20 53 24 B3 B1 41 24 28 49 29 20 |&.... S$..A$(I) | 00000A20: A7 20 33 36 30 30 00 3C 12 C5 0D 99 22 93 22 3A |. 3600.<....".":| 00000A30: 99 41 24 28 31 29 2C 41 24 28 32 29 00 50 12 D4 |.A$(1),A$(2).P..| 00000A40: 0D 99 20 41 24 28 33 29 3A 99 20 41 24 28 34 29 |.. A$(3):. A$(4)| 00000A50: 00 70 12 E8 0D 99 20 22 50 4E 52 22 2C 41 24 28 |.p.... "PNR",A$(| 00000A60: 35 29 3A 99 20 22 54 45 4C 22 2C 41 24 28 36 29 |5):. "TEL",A$(6)| 00000A70: 00 7A 12 F7 0D 99 3A 99 3A 99 00 A7 12 FC 0D 99 |.z....:.:.......| 00000A80: 20 22 46 5C 52 20 46 4F 52 54 53 41 54 54 20 41 | "F\R FORTSATT A| 00000A90: 52 42 45 54 45 20 54 52 59 43 4B 20 4D 45 4C 4C |RBETE TRYCK MELL| 00000AA0: 41 4E 53 4C 41 47 22 00 B3 12 07 0E A0 20 32 3A |ANSLAG"...... 2:| 00000AB0: A0 20 31 00 CE 12 0B 0E A1 20 56 24 3A 20 20 8B |. 1...... V$: .| 00000AC0: 20 56 24 B2 22 22 20 20 A7 20 33 35 39 35 00 D7 | V$."" . 3595..| 00000AD0: 12 0C 0E 89 20 32 30 00 DF 12 10 0E 82 20 49 00 |.... 20...... I.| 00000AE0: EA 12 1A 0E 89 20 33 35 30 30 00 0E 13 24 0E 99 |..... 3500...$..| 00000AF0: 20 22 46 49 4E 4E 53 20 45 4A 20 49 20 52 45 47 | "FINNS EJ I REG| 00000B00: 49 53 54 52 45 54 22 3A 89 20 33 35 38 30 00 2A |ISTRET":. 3580.*| 00000B10: 13 A0 0F 8F 2A 2A 2A 52 45 47 49 53 54 45 52 55 |....***REGISTERU| 00000B20: 54 53 4B 52 49 46 54 2A 2A 2A 00 55 13 AA 0F 99 |TSKRIFT***.U....| 00000B30: 20 22 93 11 11 11 11 11 11 11 11 11 11 11 56 41 | "............VA| 00000B40: 44 20 48 45 54 45 52 20 46 49 4C 45 4E 22 3A 99 |D HETER FILEN":.| 00000B50: 3A 85 20 42 24 00 77 13 B4 0F 9F 20 31 2C 38 2C |:. B$.w.... 1,8,| 00000B60: 31 35 2C 22 49 22 3A 9F 32 2C 38 2C 32 2C 42 24 |15,"I":.2,8,2,B$| 00000B70: AA 22 2C 53 2C 52 22 00 AB 13 BE 0F 99 3A 99 20 |.",S,R"......:. | 00000B80: 20 22 56 49 4C 4C 20 44 55 20 48 41 20 55 54 53 | "VILL DU HA UTS| 00000B90: 4B 52 49 46 54 45 4E 20 50 5D 20 53 4B 52 49 56 |KRIFTEN P] SKRIV| 00000BA0: 41 52 45 20 45 4C 4C 45 52 20 22 00 CE 13 C8 0F |ARE ELLER ".....| 00000BB0: 99 20 22 42 49 4C 44 53 4B 5B 52 4D 20 45 4C 4C |. "BILDSK[RM ELL| 00000BC0: 45 52 20 45 54 54 49 4B 45 54 54 45 52 22 00 D4 |ER ETTIKETTER"..| 00000BD0: 13 CD 0F 99 00 F3 13 D2 0F 85 20 22 45 4C 4C 45 |.......... "ELLE| 00000BE0: 52 20 52 41 44 20 28 53 2F 42 2F 45 2F 52 29 22 |R RAD (S/B/E/R)"| 00000BF0: 3B 43 24 00 FB 13 D3 0F 49 B2 31 00 28 14 DC 0F |;C$.....I.1.(...| 00000C00: 84 32 2C 4E 24 28 49 29 2C 45 24 28 49 29 2C 47 |.2,N$(I),E$(I),G| 00000C10: 24 28 49 29 2C 50 24 28 49 29 2C 50 4E 52 24 28 |$(I),P$(I),PNR$(| 00000C20: 49 29 2C 54 24 28 49 29 00 41 14 E6 0F 8B 20 4E |I),T$(I).A.... N| 00000C30: 24 28 49 29 20 B2 20 22 30 22 20 A7 20 34 32 30 |$(I) . "0" . 420| 00000C40: 30 00 51 14 F0 0F 49 B2 49 AA 31 3A 89 34 30 36 |0.Q...I.I.1:.406| 00000C50: 30 00 5D 14 68 10 A0 20 32 3A A0 20 31 00 71 14 |0.].h.. 2:. 1.q.| 00000C60: 6D 10 8B 20 43 24 B2 22 53 22 20 A7 20 34 35 30 |m.. C$."S" . 450| 00000C70: 30 00 85 14 6F 10 8B 20 43 24 B2 22 45 22 20 A7 |0...o.. C$."E" .| 00000C80: 20 34 37 30 30 00 99 14 70 10 8B 20 43 24 B2 22 | 4700...p.. C$."| 00000C90: 52 22 20 A7 20 34 38 35 30 00 A7 14 72 10 81 20 |R" . 4850...r.. | 00000CA0: 4A B2 31 20 A4 20 49 00 C1 14 7C 10 99 20 22 93 |J.1 . I...|.. ".| 00000CB0: 22 3B 4E 24 28 4A 29 3B 22 20 22 3B 45 24 28 4A |";N$(J);" ";E$(J| 00000CC0: 29 00 D4 14 86 10 99 20 47 24 28 4A 29 3A 99 50 |)...... G$(J):.P| 00000CD0: 24 28 4A 29 00 F5 14 90 10 99 22 50 4E 52 22 2C |$(J)......"PNR",| 00000CE0: 50 4E 52 24 28 4A 29 3A 99 20 22 54 45 4C 22 2C |PNR$(J):. "TEL",| 00000CF0: 54 24 28 4A 29 00 FF 14 95 10 99 3A 99 3A 99 00 |T$(J)......:.:..| 00000D00: 23 15 9A 10 99 20 22 46 5C 52 20 4E 5B 53 54 41 |#.... "F\R N[STA| 00000D10: 20 54 52 59 43 4B 20 4D 45 4C 4C 41 4E 20 53 4C | TRYCK MELLAN SL| 00000D20: 41 47 22 00 3B 15 A4 10 A1 20 53 24 3A 8B 20 53 |AG".;.... S$:. S| 00000D30: 24 B2 22 22 20 A7 20 34 32 36 30 00 43 15 AE 10 |$."" . 4260.C...| 00000D40: 82 20 4A 00 5F 15 B8 10 99 3A 99 20 22 53 4C 55 |. J._....:. "SLU| 00000D50: 54 20 50 5D 20 52 45 47 49 53 54 52 45 54 22 00 |T P] REGISTRET".| 00000D60: 74 15 BD 10 81 20 49 B2 31 20 A4 20 32 35 30 30 |t.... I.1 . 2500| 00000D70: 3A 82 20 49 00 7D 15 C2 10 89 20 32 30 00 87 15 |:. I.}.... 20...| 00000D80: 94 11 9F 20 33 2C 34 00 95 15 99 11 81 20 4A B2 |... 3,4...... J.| 00000D90: 31 20 A4 20 49 00 B3 15 9E 11 98 33 2C C7 28 31 |1 . I......3,.(1| 00000DA0: 34 29 C7 28 31 36 29 22 30 35 22 42 24 20 C7 28 |4).(16)"05"B$ .(| 00000DB0: 31 35 29 00 CA 15 A8 11 98 33 2C C7 28 31 36 29 |15)......3,.(16)| 00000DC0: 22 30 34 22 4E 24 28 4A 29 3B 00 DB 15 B2 11 98 |"04"N$(J);......| 00000DD0: 33 2C 22 20 22 3B 45 24 28 4A 29 00 F1 15 BC 11 |3," ";E$(J).....| 00000DE0: 98 33 2C C7 28 31 36 29 22 30 34 22 47 24 28 4A |.3,.(16)"04"G$(J| 00000DF0: 29 00 07 16 C6 11 98 33 2C C7 28 31 36 29 22 30 |)......3,.(16)"0| 00000E00: 34 22 50 24 28 4A 29 00 25 16 D0 11 98 33 2C C7 |4"P$(J).%....3,.| 00000E10: 28 31 36 29 22 30 34 50 4E 52 20 20 22 AA 50 4E |(16)"04PNR ".PN| 00000E20: 52 24 28 4A 29 00 41 16 DA 11 98 33 2C C7 28 31 |R$(J).A....3,.(1| 00000E30: 36 29 22 30 34 54 45 4C 20 20 22 AA 54 24 28 4A |6)"04TEL ".T$(J| 00000E40: 29 00 4E 16 E4 11 98 33 2C C7 28 31 33 29 00 56 |).N....3,.(13).V| 00000E50: 16 EE 11 82 20 4A 00 82 16 F8 11 98 33 2C C7 28 |.... J......3,.(| 00000E60: 31 34 29 C7 28 31 36 29 22 30 34 53 4C 55 54 20 |14).(16)"04SLUT | 00000E70: 50 5D 20 52 45 47 49 53 54 52 45 54 22 C7 28 31 |P] REGISTRET".(1| 00000E80: 35 29 00 8A 16 02 12 A0 20 33 00 93 16 0C 12 89 |5)...... 3......| 00000E90: 20 32 30 00 B0 16 5C 12 9F 20 33 2C 34 3A 8F 20 | 20...\.. 3,4:. | 00000EA0: 45 54 54 49 4B 45 54 54 55 54 53 4B 52 49 46 54 |ETTIKETTUTSKRIFT| 00000EB0: 00 BE 16 61 12 81 20 4A B2 31 20 A4 20 49 00 D5 |...a.. J.1 . I..| 00000EC0: 16 70 12 98 33 2C C7 28 31 36 29 22 30 34 22 4E |.p..3,.(16)"04"N| 00000ED0: 24 28 4A 29 3B 00 E6 16 7A 12 98 33 2C 22 20 22 |$(J);...z..3," "| 00000EE0: 3B 45 24 28 4A 29 00 FC 16 84 12 98 33 2C C7 28 |;E$(J)......3,.(| 00000EF0: 31 36 29 22 30 34 22 47 24 28 4A 29 00 04 17 89 |16)"04"G$(J)....| 00000F00: 12 98 33 2C 00 1A 17 8E 12 98 33 2C C7 28 31 36 |..3,......3,.(16| 00000F10: 29 22 30 34 22 50 24 28 4A 29 00 27 17 AC 12 98 |)"04"P$(J).'....| 00000F20: 33 2C C7 28 31 33 29 00 2F 17 B6 12 82 20 4A 00 |3,.(13)./.... J.| 00000F30: 37 17 CA 12 A0 20 33 00 40 17 D4 12 89 20 32 30 |7.... 3.@.... 20| 00000F40: 00 58 17 F2 12 9F 20 33 2C 34 3A 8F 20 52 41 44 |.X.... 3,4:. RAD| 00000F50: 55 54 53 4B 52 49 46 54 00 76 17 FC 12 98 33 2C |UTSKRIFT.v....3,| 00000F60: C7 28 31 34 29 C7 28 31 36 29 22 30 35 22 42 24 |.(14).(16)"05"B$| 00000F70: 20 C7 28 31 35 29 00 7E 17 01 13 98 33 2C 00 8C | .(15).~....3,..| 00000F80: 17 06 13 81 20 4A B2 31 20 A4 20 49 00 A5 17 10 |.... J.1 . I....| 00000F90: 13 98 33 2C C7 28 31 36 29 22 30 34 22 50 4E 52 |..3,.(16)"04"PNR| 00000FA0: 24 28 4A 29 3B 00 BC 17 1A 13 98 33 2C C7 28 31 |$(J);......3,.(1| 00000FB0: 36 29 22 31 38 22 4E 24 28 4A 29 3B 00 CE 17 24 |6)"18"N$(J);...$| 00000FC0: 13 98 33 2C 22 20 22 3B 45 24 28 4A 29 3B 00 E5 |..3," ";E$(J);..| 00000FD0: 17 2E 13 98 33 2C C7 28 31 36 29 22 34 32 22 47 |....3,.(16)"42"G| 00000FE0: 24 28 4A 29 3B 00 FB 17 38 13 98 33 2C C7 28 31 |$(J);...8..3,.(1| 00000FF0: 36 29 22 36 38 22 54 24 28 4A 29 00 03 18 42 13 |6)"68"T$(J)...B.| 00001000: 82 20 4A 00 0B 18 47 13 98 33 2C 00 37 18 4C 13 |. J...G..3,.7.L.| 00001010: 98 33 2C C7 28 31 34 29 C7 28 31 36 29 22 31 30 |.3,.(14).(16)"10| 00001020: 53 4C 55 54 20 50 5D 20 52 45 47 49 53 54 52 45 |SLUT P] REGISTRE| 00001030: 54 22 C7 28 31 35 29 00 3F 18 56 13 A0 20 33 00 |T".(15).?.V.. 3.| 00001040: 48 18 60 13 89 20 32 30 00 62 18 88 13 8F 20 2A |H.`.. 20.b.... *| 00001050: 2A 2A 20 55 50 50 44 41 54 45 52 49 4E 47 20 2A |** UPPDATERING *| 00001060: 2A 2A 00 91 18 92 13 99 20 22 93 11 11 11 11 11 |**...... "......| 00001070: 11 11 11 11 11 11 56 41 44 20 48 45 54 45 52 20 |......VAD HETER | 00001080: 46 49 4C 45 4E 22 3A 99 3A 85 20 42 24 3A 49 B2 |FILEN":.:. B$:I.| 00001090: 31 00 B4 18 9C 13 9F 20 31 2C 38 2C 31 35 2C 22 |1...... 1,8,15,"| 000010A0: 49 22 3A 9F 20 32 2C 38 2C 32 2C 42 24 AA 22 2C |I":. 2,8,2,B$.",| 000010B0: 53 2C 52 22 00 E1 18 A6 13 84 32 2C 4E 24 28 49 |S,R"......2,N$(I| 000010C0: 29 2C 45 24 28 49 29 2C 47 24 28 49 29 2C 50 24 |),E$(I),G$(I),P$| 000010D0: 28 49 29 2C 50 4E 52 24 28 49 29 2C 54 24 28 49 |(I),PNR$(I),T$(I| 000010E0: 29 00 F8 18 B0 13 8B 20 4E 24 28 49 29 B2 22 30 |)...... N$(I)."0| 000010F0: 22 20 A7 20 35 30 35 32 00 09 19 BA 13 49 B2 49 |" . 5052.....I.I| 00001100: AA 31 3A 89 20 35 30 33 30 00 1C 19 BC 13 99 22 |.1:. 5030......"| 00001110: 93 22 3A 81 20 4A B2 31 20 A4 20 49 00 38 19 BF |.":. J.1 . I.8..| 00001120: 13 99 20 4A 3B 22 20 22 3B 4E 24 28 4A 29 3B 22 |.. J;" ";N$(J);"| 00001130: 20 22 3B 45 24 28 4A 29 00 40 19 C1 13 82 20 4A | ";E$(J).@.... J| 00001140: 00 6B 19 C4 13 99 3A 85 20 22 56 49 4C 4B 45 4E |.k....:. "VILKEN| 00001150: 20 50 4F 53 54 20 53 4B 41 4C 4C 20 5B 4E 44 52 | POST SKALL [NDR| 00001160: 41 53 3F 20 28 4E 52 29 22 3B 41 00 87 19 CE 13 |AS? (NR)";A.....| 00001170: 99 3A 99 20 22 93 22 3B 4E 24 28 41 29 3B 22 20 |.:. ".";N$(A);" | 00001180: 22 3B 45 24 28 41 29 00 9B 19 D8 13 99 20 47 24 |";E$(A)...... G$| 00001190: 28 41 29 3A 99 20 50 24 28 41 29 00 B5 19 EC 13 |(A):. P$(A).....| 000011A0: 99 20 50 4E 52 24 28 41 29 3A 99 20 54 24 28 41 |. PNR$(A):. T$(A| 000011B0: 29 3A 99 3A 99 00 D8 19 00 14 99 20 22 56 49 4C |):.:....... "VIL| 000011C0: 4B 45 54 20 46 5B 4C 54 20 53 4B 41 4C 4C 20 5B |KET F[LT SKALL [| 000011D0: 4E 44 52 41 53 20 3F 22 00 FC 19 0A 14 99 3A 99 |NDRAS ?"......:.| 000011E0: 20 22 9E 46 9A 5C 52 4E 41 4D 4E 22 3A 99 20 22 | ".F.\RNAMN":. "| 000011F0: 9E 45 9A 46 54 45 52 4E 41 4D 4E 22 00 1D 1A 1E |.E.FTERNAMN"....| 00001200: 14 99 20 22 9E 47 9A 41 54 41 22 3A 20 99 20 22 |.. ".G.ATA": . "| 00001210: 9E 50 9A 4F 53 54 41 44 52 45 53 53 22 00 44 1A |.P.OSTADRESS".D.| 00001220: 32 14 99 20 22 9E 4E 9A 55 4D 4D 45 52 28 50 45 |2.. ".N.UMMER(PE| 00001230: 52 53 4F 4E 29 22 3A 99 20 22 9E 54 9A 45 4C 45 |RSON)":. ".T.ELE| 00001240: 46 4F 4E 22 00 5D 1A 3C 14 99 20 22 9E 49 9A 4E |FON".].<.. ".I.N| 00001250: 47 41 20 5B 4E 44 52 49 4E 47 41 52 22 00 75 1A |GA [NDRINGAR".u.| 00001260: 46 14 A1 20 53 24 3A 8B 20 53 24 B2 22 22 20 A7 |F.. S$:. S$."" .| 00001270: 20 35 31 39 30 00 89 1A 50 14 8B 20 53 24 B2 22 | 5190...P.. S$."| 00001280: 46 22 20 A7 20 35 33 30 30 00 9D 1A 5A 14 8B 20 |F" . 5300...Z.. | 00001290: 53 24 B2 22 45 22 20 A7 20 35 34 30 30 00 B1 1A |S$."E" . 5400...| 000012A0: 64 14 8B 20 53 24 B2 22 47 22 20 A7 20 35 35 30 |d.. S$."G" . 550| 000012B0: 30 00 C5 1A 6E 14 8B 20 53 24 B2 22 50 22 20 A7 |0...n.. S$."P" .| 000012C0: 20 35 36 30 30 00 D9 1A 78 14 8B 20 53 24 B2 22 | 5600...x.. S$."| 000012D0: 4E 22 20 A7 20 35 37 30 30 00 ED 1A 82 14 8B 20 |N" . 5700...... | 000012E0: 53 24 B2 22 54 22 20 A7 20 35 32 39 30 00 01 1B |S$."T" . 5290...| 000012F0: 8C 14 8B 20 53 24 B2 22 49 22 20 A7 20 35 38 34 |... S$."I" . 584| 00001300: 35 00 0C 1B 96 14 89 20 35 31 39 30 00 32 1B AA |5...... 5190.2..| 00001310: 14 85 20 22 53 4B 52 49 56 20 54 45 4C 45 46 4F |.. "SKRIV TELEFO| 00001320: 4E 4E 52 20 22 3B 54 24 28 41 29 3A 89 20 35 38 |NNR ";T$(A):. 58| 00001330: 30 30 00 58 1B B4 14 85 20 22 53 4B 52 49 56 20 |00.X.... "SKRIV | 00001340: 46 5C 52 4E 41 4D 4E 20 20 20 22 3B 4E 24 28 41 |F\RNAMN ";N$(A| 00001350: 29 3A 89 20 35 38 30 30 00 7E 1B 18 15 85 20 22 |):. 5800.~.... "| 00001360: 53 4B 52 49 56 20 45 46 54 45 52 4E 41 4D 4E 20 |SKRIV EFTERNAMN | 00001370: 22 3B 45 24 28 41 29 3A 89 20 35 38 30 30 00 A4 |";E$(A):. 5800..| 00001380: 1B 7C 15 85 20 22 53 4B 52 49 56 20 47 41 54 55 |.|.. "SKRIV GATU| 00001390: 41 44 52 45 53 53 22 3B 47 24 28 41 29 3A 89 20 |ADRESS";G$(A):. | 000013A0: 35 38 30 30 00 CA 1B E0 15 85 20 22 53 4B 52 49 |5800...... "SKRI| 000013B0: 56 20 50 4F 53 54 41 44 52 45 53 53 22 3B 50 24 |V POSTADRESS";P$| 000013C0: 28 41 29 3A 89 20 35 38 30 30 00 F2 1B 44 16 85 |(A):. 5800...D..| 000013D0: 20 22 53 4B 52 49 56 20 50 45 52 53 4F 4E 4E 52 | "SKRIV PERSONNR| 000013E0: 20 20 22 3B 50 4E 52 24 28 41 29 3A 89 20 35 38 | ";PNR$(A):. 58| 000013F0: 30 30 00 FA 1B A8 16 A0 20 32 00 16 1C B2 16 9F |00...... 2......| 00001400: 20 32 2C 38 2C 32 2C 22 40 30 3A 22 AA 42 24 AA | 2,8,2,"@0:".B$.| 00001410: 22 2C 53 2C 57 22 00 24 1C BC 16 81 20 4A B2 31 |",S,W".$.... J.1| 00001420: 20 A4 20 49 00 5B 1C C6 16 98 32 2C 4E 24 28 4A | . I.[....2,N$(J| 00001430: 29 43 52 24 45 24 28 4A 29 43 52 24 47 24 28 4A |)CR$E$(J)CR$G$(J| 00001440: 29 43 52 24 50 24 28 4A 29 43 52 24 50 4E 52 24 |)CR$P$(J)CR$PNR$| 00001450: 28 4A 29 43 52 24 54 24 28 4A 29 00 63 1C D0 16 |(J)CR$T$(J).c...| 00001460: 82 20 4A 00 86 1C D5 16 85 20 22 11 11 46 4C 45 |. J...... "..FLE| 00001470: 52 20 5B 4E 44 52 49 4E 47 41 52 20 20 20 4A 9D |R [NDRINGAR J.| 00001480: 9D 9D 22 3B 4A 24 00 9A 1C D6 16 8B 20 4A 24 B2 |..";J$...... J$.| 00001490: 22 4A 22 20 A7 20 35 30 35 32 00 A6 1C DA 16 A0 |"J" . 5052......| 000014A0: 20 32 3A A0 20 31 00 AF 1C E4 16 89 20 32 30 00 | 2:. 1...... 20.| 000014B0: B5 1C 70 17 80 00 00 00 2A |..p.....* |
..9....SAVE"@0:PERSONREGISTER",8:VERIFY" PERSONREGISTER",8.T.... **************** ****.O.... ***PERSONREGISTER***...... ** ******KGB*********...... *************** *****...... 53280,6:. 53281,6...... N$(4 0),E$(40),G$(40),P$(40),PNR$(40),T$(40). ..... ".":.:.:......CR$.G(13)...(.. .3)" MENY":..N.2.. .3)".S.KAPANDE AV FIL":. . 27)"SVARA MED".W.<.. .3)".N.YA POSTER":. .27)"N]GOT AV"...F.. .3)".P.OSTUTSKRIFT ":. .27)"TECKNEN:".T.P.. .3)".R.EGISTERU TSKRIFT":. .27)"S,N,P,R,U,A"...Z.. .3)". U.PPDATERING..._..:. .3)".A.VSLUTA"...D. .:.:..+.N.. .3)"VILKEN OPERATION?".:.S. . RITA RAM.I.X.. I.0 . 22.F.... 1065.I,1 60:. 55337.I,7...... 1945.I,160:. 56217. I,7...... 1065.I.40,160:. 55337.I.40,7.I .... 1088.I.40,160:. 55360.I.40,7.Q.R.. I...... A$:. A$."". 220...... A$."S" . 1 000...... A$."N" . 2000.#.... A$."P" . 3 000.7.... A$."R" . 4000.K.... A$."U" . 5 000._.... A$."A" . 6000.I.... 220...... ***SKAPANDE AV FIL***...... "........... .VAD SKALL FILEN HETA":.:. B$:I.1.P...B$ .B$.",SEQ,WRITE"...... 1,8,15,"I":. 2,8, 2,B$..... 2: 1...... 2040.&.P.. ***INS KRIFT AV NYA POSTER***.U.Z.. ".......... ..VAD HETER FILEN":.:. B$:I.1.F.... 1,8, 15,"I".|.... 2,8,2,B$.",S,R"......2,N$(I ),E$(I),G$(I),P$(I),PNR$(I),T$(I)...... N$(I)."0" . 2034.T...I.I.1: . 2031.... . 2...... 2,8,2,B$.",S,R"...... J.1 . I .-....2,N$(J),E$(J),G$(J),P$(J),PNR$(J), T$(J).5.... J.C... 2:J.J.1._.... 2,8,2, "@0:".B$.",S,W".Z.... ".F\RNAMN ";N$( J)......:. "EFTERNAMN ";E$(J)... ..:. " GATUADRESS ";G$(J).N.*..:. "POSTADRESS " ;P$(J)...4..:. "PERSONNR. ";PNR$(J)...> ..:. "TELEFON ";T$(J)...R..:.:.:J.J.1 .1.\.. "VILL DU SKRIVA IN.J.F.. "FLER PO STER":. C$.D.P.. F(C$).74 . 2060:. J.R.Q .N$(J)."0"...R.P$(J)."0":PNR$(J)."0":T$( J)."0"...S.E$(J)."0"...T.G$(J)."0"...U.. K.1 . J...Z..2,N$(K)CR$E$(K)CR$G$(K)CR$ P$(K)CR$PNR$(K)CR$T$(K)..... K..... 2: 1:. 20.2....***ENSTAKA POSTUTSKRIFTER* **.].B.. "............VAD HETER FILEN":. :. B$...V.. 1,8,15,"I":. 2,8,2,B$.",S,R" ...... "ANGE S\KBEGREPP MED ATT SVARA J ELLER N":.:..Y.... "[R S\KBEGREPPET -F\R NAMN-";C$...... C$."J" . 3190...... "[R S\KBEGREPPET -EFTERNAMN-";C$.(.&.. C$."J " . 3200.P.0.. "[R S\KBEGREPPET -GATUADR ESS-";C$.D.:.. C$."J" . 3210...D.. "[R S \KBEGREPPET -POSTADRESS-";C$. .N.. C$."J " . 3220.J.X.. "[R S\KBEGREPPET -PERSONN UMMER-";C$...B.. C$."J" . 3230...L.. "AN GE TELEFONNUMMER":. S$:. 3500.&.V.. "ANG E F\RNAMN":. S$:. 3500.I.... "ANGE EFTER NAMN":. S$:. 3500.M.... "ANGE GATUADRESS ":. S$:. 3500...... "ANGE POSTADRESS":. S$:. 3500...... "ANGE PERSONNUMMER":. S$ :. 3500......2,A$(1),A$(2),A$(3),A$(4),A $(5),A$(6)...... A$(1)."0" . 3620.....F. 0...... I.1 . 6.&.A.. S$..A$(I) . 3600.< .E..".":.A$(1),A$(2).P.T.. A$(3):. A$(4) .P.... "PNR",A$(5):. "TEL",A$(6).Z....:. :....... "F\R FORTSATT ARBETE TRYCK MELL ANSLAG"..... 2: 1.N.... V$: . V$."" . 3595.W.... 20...... I...... 3500...$.. "FINNS EJ I REGISTRET":. 3580.*. ..***R EGISTERUTSKRIFT***.U.... "............VA D HETER FILEN":.:. B$.W.... 1,8,15,"I":. 2,8,2,B$.",S,R"......:. "VILL DU HA UTS KRIFTEN P] SKRIVARE ELLER ".N.H.. "BILDS K[RM ELLER ETTIKETTER".T.M.....R.. "ELLE R RAD (S/B/E/R)";C$...S.I.1.(....2,N$(I) ,E$(I),G$(I),P$(I),PNR$(I),T$(I).A.... N $(I) . "0" . 4200.Q...I.I.1:.4060.].H. 2: 1.Q.M.. C$."S" . 4500...O.. C$."E" . 4700...P.. C$."R" . 4850...R.. J.1 . I. A.|.. ".";N$(J);" ";E$(J).T.... G$(J):.P $(J)......"PNR",PNR$(J):. "TEL",T$(J)... ...:.:..#.... "F\R N[STA TRYCK MELLAN SL AG".;.... S$:. S$."" . 4260.C.... J._... .:. "SLUT P] REGISTRET".T.... I.1 . 2500 :. I.}.B.. 20...... 3,4...... J.1 . I... ...3,G(14)G(16)"05"B$ G(15).J....3,G(16) "04"N$(J);......3," ";E$(J)......3,G(16) "04"G$(J)...F..3,G(16)"04"P$(J).%.P..3,G (16)"04PNR ".PNR$(J).A.Z..3,G(16)"04TEL ".T$(J).N....3,G(13).V.... J......3,G( 14)G(16)"04SLUT P] REGISTRET"G(15)..... 3...... 20...\.. 3,4:. ETTIKETTUTSKRIFT ...A.. J.1 . I.U.P..3,G(16)"04"N$(J);... Z..3," ";E$(J)......3,G(16)"04"G$(J).... ..3,......3,G(16)"04"P$(J).'....3,G(13). /.... J.7.J. 3.@.T.. 20.X.... 3,4:. RAD UTSKRIFT.V....3,G(14)G(16)"05"B$ G(15).~ ....3,...... J.1 . I......3,G(16)"04"PNR $(J);......3,G(16)"18"N$(J);.N.$..3," "; E$(J);......3,G(16)"42"G$(J);...8..3,G(1 6)"68"T$(J)...B.. J...G..3,.7.L..3,G(14) G(16)"10SLUT P] REGISTRET"G(15).?.V. 3. H.`.. 20.B.... *** UPPDATERING ***...... "............VAD HETER FILEN":.:. B$:I. 1...... 1,8,15,"I":. 2,8,2,B$.",S,R".... ..2,N$(I),E$(I),G$(I),P$(I),PNR$(I),T$(I )...... N$(I)."0" . 5052.....I.I.1:. 503 0......".":. J.1 . I.8.... J;" ";N$(J);" ";E$(J).@.A.. J.K.D..:. "VILKEN POST SK ALL [NDRAS? (NR)";A...N..:. ".";N$(A);" ";E$(A)...X.. G$(A):. P$(A)...... PNR$(A ):. T$(A):.:..X.... "VILKET F[LT SKALL [ NDRAS ?"......:. ".F.\RNAMN":. ".E.FTERN AMN"...... ".G.ATA": . ".P.OSTADRESS".D. 2.. ".N.UMMER(PERSON)":. ".T.ELEFON".].< .. ".I.NGA [NDRINGAR".U.F.. S$:. S$."" . 5190...P.. S$."F" . 5300...Z.. S$."E" . 5400...D.. S$."G" . 5500.E.N.. S$."P" . 5600.Y.X.. S$."N" . 5700...... S$."T" . 5290...... S$."I" . 5845...... 5190.2.. .. "SKRIV TELEFONNR ";T$(A):. 5800.X.... "SKRIV F\RNAMN ";N$(A):. 5800.~.... " SKRIV EFTERNAMN ";E$(A):. 5800...|.. "SK RIV GATUADRESS";G$(A):. 5800.J.... "SKRI V POSTADRESS";P$(A):. 5800...D.. "SKRIV PERSONNR ";PNR$(A):. 5800..... 2...... 2,8,2,"@0:".B$.",S,W".$.... J.1 . I.[.F ..2,N$(J)CR$E$(J)CR$G$(J)CR$P$(J)CR$PNR$ (J)CR$T$(J).C.P.. J...U.. "..FLER [NDRIN GAR J...";J$...V.. J$."J" . 5052...Z. 2: 1...... 20...P.....*
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL