PERSONREGISTER 1
FILE INFORMATION
FILENAME(S): PERSONREGISTER 1
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-12-01 00:56:49
APPEARS ON: 1 disk(s)
FILE HASH
71bf0f67c5327df22e47f9dca0984e15b58786bb10cf22fb46f33aa45cb2fad9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | PERSONREGISTER 1 | PRG | hedning, Gothenburg | 24 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 0A 00 8F 20 50 45 52 53 4F 4E 52 45 |....... PERSONRE| 00000010: 47 49 53 54 45 52 00 4E 08 0F 00 86 20 4E 24 28 |GISTER.N.... N$(| 00000020: 32 30 30 29 2C 45 24 28 32 30 30 29 2C 47 24 28 |200),E$(200),G$(| 00000030: 32 30 30 29 2C 50 24 28 32 30 30 29 2C 50 4E 52 |200),P$(200),PNR| 00000040: 24 28 32 30 30 29 2C 54 24 28 32 30 30 29 00 5F |$(200),T$(200)._| 00000050: 08 14 00 99 22 93 22 3A 99 3A 99 3A 99 3A 99 00 |....".":.:.:.:..| 00000060: 6D 08 1E 00 43 52 24 B2 C7 28 31 33 29 00 7F 08 |m...CR$..(13)...| 00000070: 28 00 99 20 A3 33 29 22 4D 45 4E 59 22 3A 99 00 |(.. .3)"MENY":..| 00000080: 9E 08 32 00 99 3A 99 20 A3 33 29 22 9E 53 81 4B |..2..:. .3)".S.K| 00000090: 41 50 41 4E 44 45 20 41 56 20 46 49 4C 22 00 B8 |APANDE AV FIL"..| 000000A0: 08 3C 00 99 3A 99 20 A3 33 29 22 9E 4E 81 59 41 |.<..:. .3)".N.YA| 000000B0: 20 50 4F 53 54 45 52 22 00 D4 08 46 00 99 3A 99 | POSTER"...F..:.| 000000C0: 20 A3 33 29 22 9E 50 81 4F 53 54 55 54 53 4B 52 | .3)".P.OSTUTSKR| 000000D0: 49 46 54 22 00 F4 08 50 00 99 3A 99 20 A3 33 29 |IFT"...P..:. .3)| 000000E0: 22 9E 52 81 45 47 49 53 54 45 52 55 54 53 4B 52 |".R.EGISTERUTSKR| 000000F0: 49 46 54 22 00 0F 09 5A 00 99 3A 99 20 A3 33 29 |IFT"...Z..:. .3)| 00000100: 22 9E 55 81 50 50 44 41 54 45 52 49 4E 47 22 00 |".U.PPDATERING".| 00000110: 26 09 5F 00 99 3A 99 20 A3 33 29 22 9E 41 81 56 |&._..:. .3)".A.V| 00000120: 53 4C 55 54 41 22 00 30 09 64 00 99 3A 99 3A 99 |SLUTA".0.d..:.:.| 00000130: 00 4C 09 6E 00 99 20 A3 33 29 22 56 49 4C 4B 45 |.L.n.. .3)"VILKE| 00000140: 4E 20 4F 50 45 52 41 54 49 4F 4E 22 00 5B 09 73 |N OPERATION".[.s| 00000150: 00 8F 20 52 49 54 41 20 52 41 4D 00 6A 09 78 00 |.. RITA RAM.j.x.| 00000160: 81 20 49 B2 30 20 A4 20 32 32 00 87 09 82 00 97 |. I.0 . 22......| 00000170: 20 31 30 36 35 AA 49 2C 31 36 30 3A 97 20 35 35 | 1065.I,160:. 55| 00000180: 33 33 37 AA 49 2C 37 00 A4 09 96 00 97 20 31 39 |337.I,7...... 19| 00000190: 34 35 AA 49 2C 31 36 30 3A 97 20 35 36 32 31 37 |45.I,160:. 56217| 000001A0: AA 49 2C 37 00 C7 09 AA 00 97 20 31 30 36 35 AA |.I,7...... 1065.| 000001B0: 49 AC 34 30 2C 31 36 30 3A 97 20 35 35 33 33 37 |I.40,160:. 55337| 000001C0: AA 49 AC 34 30 2C 37 00 EA 09 BE 00 97 20 31 30 |.I.40,7...... 10| 000001D0: 38 38 AA 49 AC 34 30 2C 31 36 30 3A 97 20 35 35 |88.I.40,160:. 55| 000001E0: 33 36 30 AA 49 AC 34 30 2C 37 00 F2 09 D2 00 82 |360.I.40,7......| 000001F0: 20 49 00 09 0A DC 00 A1 20 41 24 3A 8B 20 41 24 | I...... A$:. A$| 00000200: B2 22 20 22 A7 20 32 32 30 00 1D 0A E6 00 8B 20 |." ". 220...... | 00000210: 41 24 B2 22 53 22 20 A7 20 31 30 30 30 00 31 0A |A$."S" . 1000.1.| 00000220: F0 00 8B 20 41 24 B2 22 4E 22 20 A7 20 32 30 30 |... A$."N" . 200| 00000230: 30 00 45 0A FA 00 8B 20 41 24 B2 22 50 22 20 A7 |0.E.... A$."P" .| 00000240: 20 33 30 30 30 00 59 0A 04 01 8B 20 41 24 B2 22 | 3000.Y.... A$."| 00000250: 52 22 20 A7 20 34 30 30 30 00 6D 0A 0E 01 8B 20 |R" . 4000.m.... | 00000260: 41 24 B2 22 55 22 20 A7 20 35 30 30 30 00 81 0A |A$."U" . 5000...| 00000270: 13 01 8B 20 41 24 B2 22 41 22 20 A7 20 36 30 30 |... A$."A" . 600| 00000280: 30 00 B1 0A 18 01 99 20 22 93 53 56 41 52 41 20 |0...... ".SVARA | 00000290: 4D 45 44 20 4E 5D 47 4F 54 20 41 56 20 54 45 43 |MED N]GOT AV TEC| 000002A0: 4B 4E 45 4E 20 53 2C 4E 2C 50 2C 52 2C 55 2C 41 |KNEN S,N,P,R,U,A| 000002B0: 22 00 C7 0A 36 01 81 20 49 20 B2 31 20 A4 20 32 |"...6.. I .1 . 2| 000002C0: 35 30 30 3A 82 20 49 00 D0 0A 40 01 89 20 32 30 |500:. I...@.. 20| 000002D0: 00 EC 0A E8 03 8F 20 20 2A 2A 53 4B 41 50 41 4E |...... **SKAPAN| 000002E0: 44 45 20 41 56 20 46 49 4C 20 2A 2A 00 12 0B F2 |DE AV FIL **....| 000002F0: 03 99 20 22 93 56 41 44 20 53 4B 41 20 46 49 4C |.. ".VAD SKA FIL| 00000300: 45 4E 20 48 45 54 41 22 3A 20 85 20 42 24 3A 49 |EN HETA": . B$:I| 00000310: B2 31 00 29 0B 06 04 42 24 B2 42 24 AA 22 2C 53 |.1.)...B$.B$.",S| 00000320: 45 51 2C 57 52 49 54 45 22 00 45 0B 10 04 9F 20 |EQ,WRITE".E.... | 00000330: 31 2C 38 2C 31 35 2C 22 49 22 3A 9F 20 32 2C 38 |1,8,15,"I":. 2,8| 00000340: 2C 32 2C 42 24 00 51 0B 1F 04 A0 20 32 3A A0 20 |,2,B$.Q.... 2:. | 00000350: 31 00 5C 0B 2E 04 89 20 32 30 34 30 00 7D 0B D0 |1.\.... 2040.}..| 00000360: 07 8F 20 2A 2A 49 4E 53 4B 52 49 46 54 20 41 56 |.. **INSKRIFT AV| 00000370: 20 4E 59 41 20 50 4F 53 54 45 52 2A 2A 00 9F 0B | NYA POSTER**...| 00000380: DA 07 99 20 22 93 56 41 44 20 48 45 54 45 52 20 |... ".VAD HETER | 00000390: 46 49 4C 45 4E 22 3A 85 20 42 24 3A 49 B2 31 00 |FILEN":. B$:I.1.| 000003A0: B0 0B E4 07 9F 20 31 2C 38 2C 31 35 2C 22 49 22 |..... 1,8,15,"I"| 000003B0: 00 C6 0B E9 07 9F 20 32 2C 38 2C 32 2C 42 24 AA |...... 2,8,2,B$.| 000003C0: 22 2C 53 2C 52 22 00 F3 0B EF 07 84 32 2C 4E 24 |",S,R"......2,N$| 000003D0: 28 49 29 2C 45 24 28 49 29 2C 47 24 28 49 29 2C |(I),E$(I),G$(I),| 000003E0: 50 24 28 49 29 2C 50 4E 52 24 28 49 29 2C 54 24 |P$(I),PNR$(I),T$| 000003F0: 28 49 29 00 0A 0C F0 07 8B 20 4E 24 28 49 29 B2 |(I)...... N$(I).| 00000400: 22 30 22 20 A7 20 32 30 33 34 00 1D 0C F1 07 49 |"0" . 2034.....I| 00000410: B2 49 AA 31 3A 20 20 89 20 32 30 33 31 00 25 0C |.I.1: . 2031.%.| 00000420: F2 07 A0 20 32 00 3B 0C F3 07 9F 20 32 2C 38 2C |... 2.;.... 2,8,| 00000430: 32 2C 42 24 AA 22 2C 53 2C 52 22 00 49 0C F4 07 |2,B$.",S,R".I...| 00000440: 81 20 4A B2 31 20 A4 20 49 00 76 0C F5 07 84 32 |. J.1 . I.v....2| 00000450: 2C 4E 23 28 4A 29 2C 45 24 28 4A 29 2C 47 24 28 |,N#(J),E$(J),G$(| 00000460: 4A 29 2C 50 24 28 4A 29 2C 50 4E 52 24 28 4A 29 |J),P$(J),PNR$(J)| 00000470: 2C 54 24 28 4A 29 00 7E 0C F6 07 82 20 4A 00 8C |,T$(J).~.... J..| 00000480: 0C F7 07 A0 20 32 3A 4A B2 4A AB 31 00 A8 0C F8 |.... 2:J.J.1....| 00000490: 07 9F 20 32 2C 38 2C 32 2C 22 1C 30 3A 22 AA 42 |.. 2,8,2,".0:".B| 000004A0: 24 AA 22 2C 53 2C 57 22 00 C2 0C 0C 08 85 20 22 |$.",S,W"...... "| 000004B0: 93 46 5C 52 4E 41 4D 4E 20 20 20 22 3B 4E 24 28 |.F\RNAMN ";N$(| 000004C0: 4A 29 00 DD 0C 16 08 99 3A 85 20 22 45 46 54 45 |J)......:. "EFTE| 000004D0: 52 4E 41 4D 4E 20 22 3B 45 24 28 4A 29 00 F8 0C |RNAMN ";E$(J)...| 000004E0: 20 08 99 3A 85 20 22 47 41 54 55 41 44 52 45 53 | ..:. "GATUADRES| 000004F0: 53 22 3B 47 24 28 4A 29 00 13 0D 2A 08 99 3A 85 |S";G$(J)...*..:.| 00000500: 20 22 50 4F 53 54 41 44 52 45 53 53 22 3B 50 24 | "POSTADRESS";P$| 00000510: 28 4A 29 00 30 0D 34 08 99 3A 85 20 22 50 45 52 |(J).0.4..:. "PER| 00000520: 53 4F 4E 4E 52 2E 20 22 3B 50 4E 52 24 28 4A 29 |SONNR. ";PNR$(J)| 00000530: 00 4B 0D 3E 08 99 3A 85 20 22 54 45 4C 45 46 4F |.K.>..:. "TELEFO| 00000540: 4E 20 20 20 22 3B 54 24 28 4A 29 00 5D 0D 52 08 |N ";T$(J).].R.| 00000550: 99 3A 99 3A 99 3A 99 3A 4A B2 4A AA 31 00 79 0D |.:.:.:.:J.J.1.y.| 00000560: 5C 08 99 20 22 5C 4E 53 4B 41 52 20 44 55 20 53 |\.. "\NSKAR DU S| 00000570: 4B 52 49 56 41 20 49 4E 22 00 92 0D 66 08 99 20 |KRIVA IN"...f.. | 00000580: 22 46 4C 45 52 20 50 4F 53 54 45 52 22 3A 85 20 |"FLER POSTER":. | 00000590: 43 24 00 AC 0D 70 08 8B 20 C6 28 43 24 29 B2 37 |C$...p.. .(C$).7| 000005A0: 34 20 A7 20 32 30 36 30 3A 99 20 4A 00 BA 0D 71 |4 . 2060:. J...q| 000005B0: 08 4E 24 28 4A 29 B2 22 30 22 00 DE 0D 72 08 50 |.N$(J)."0"...r.P| 000005C0: 24 28 4A 29 B2 22 30 22 3A 50 4E 52 24 28 4A 29 |$(J)."0":PNR$(J)| 000005D0: B2 22 30 22 3A 54 24 28 4A 29 B2 22 30 22 00 EC |."0":T$(J)."0"..| 000005E0: 0D 73 08 45 24 28 4A 29 B2 22 30 22 00 FA 0D 74 |.s.E$(J)."0"...t| 000005F0: 08 47 24 28 4A 29 B2 22 30 22 00 08 0E 75 08 81 |.G$(J)."0"...u..| 00000600: 20 4B B2 31 20 A4 20 4A 00 40 0E 7A 08 99 23 32 | K.1 . J.@.z..#2| 00000610: 2C 4E 24 28 4B 29 43 52 24 45 24 28 4B 29 43 52 |,N$(K)CR$E$(K)CR| 00000620: 24 47 24 28 4B 29 43 52 24 50 24 28 4B 29 43 52 |$G$(K)CR$P$(K)CR| 00000630: 24 50 4E 52 24 28 4B 29 43 52 24 54 24 28 4B 29 |$PNR$(K)CR$T$(K)| 00000640: 00 48 0E 7F 08 82 20 4B 00 59 0E 84 08 A0 20 32 |.H.... K.Y.... 2| 00000650: 3A A0 20 31 3A 89 20 32 30 00 77 0E B8 0B 8F 2A |:. 1:. 20.w....*| 00000660: 2A 45 4E 53 54 41 4B 41 20 50 4F 53 54 55 54 53 |*ENSTAKA POSTUTS| 00000670: 4B 52 49 46 54 2A 2A 00 94 0E C2 0B 99 22 93 56 |KRIFT**......".V| 00000680: 41 44 20 48 45 54 45 52 20 46 49 4C 45 4E 22 3A |AD HETER FILEN":| 00000690: 85 20 42 24 00 B7 0E D6 0B 9F 20 31 2C 38 2C 31 |. B$...... 1,8,1| 000006A0: 35 2C 22 49 22 3A 9F 20 32 2C 38 2C 32 2C 42 24 |5,"I":. 2,8,2,B$| 000006B0: AA 22 2C 53 2C 52 22 00 EB 0E EA 0B 99 20 22 41 |.",S,R"...... "A| 000006C0: 4E 47 45 20 53 5C 4B 42 45 47 52 45 50 50 20 4D |NGE S\KBEGREPP M| 000006D0: 45 44 20 41 54 54 20 53 56 41 52 41 20 4A 20 45 |ED ATT SVARA J E| 000006E0: 4C 4C 45 52 20 4E 22 3A 99 3A 99 00 10 0F 08 0C |LLER N":.:......| 000006F0: 85 20 22 5B 52 20 53 5C 4B 42 45 47 52 45 50 50 |. "[R S\KBEGREPP| 00000700: 45 54 20 2D 46 5C 52 4E 41 4D 4E 2D 22 3B 43 24 |ET -F\RNAMN-";C$| 00000710: 00 24 0F 12 0C 8B 20 43 24 B2 22 4A 22 20 A7 20 |.$.... C$."J" . | 00000720: 33 31 39 30 00 4B 0F 1C 0C 85 20 22 5B 52 20 53 |3190.K.... "[R S| 00000730: 5C 4B 42 45 47 52 45 50 50 45 54 20 2D 45 46 54 |\KBEGREPPET -EFT| 00000740: 45 52 4E 41 4D 4E 2D 22 3B 43 24 00 5F 0F 26 0C |ERNAMN-";C$._.&.| 00000750: 8B 20 43 24 B2 22 4A 22 20 A7 20 33 32 30 30 00 |. C$."J" . 3200.| 00000760: 85 0F 30 0C 85 20 22 5B 52 20 53 5C 4B 42 45 47 |..0.. "[R S\KBEG| 00000770: 52 45 50 50 45 54 20 2D 47 41 54 55 41 44 52 2E |REPPET -GATUADR.| 00000780: 2D 22 3B 43 24 00 99 0F 3A 0C 8B 20 43 24 B2 22 |-";C$...:.. C$."| 00000790: 4A 22 20 A7 20 33 32 31 30 00 BF 0F 44 0C 85 20 |J" . 3210...D.. | 000007A0: 22 5B 52 20 53 5C 4B 42 45 47 52 45 50 50 45 54 |"[R S\KBEGREPPET| 000007B0: 20 2D 50 4F 53 54 41 44 52 2E 2D 22 3B 43 24 00 | -POSTADR.-";C$.| 000007C0: D3 0F 4E 0C 8B 20 43 24 B2 22 4A 22 20 A7 20 33 |..N.. C$."J" . 3| 000007D0: 32 32 30 00 F9 0F 58 0C 85 20 22 5B 52 20 53 5C |220...X.. "[R S\| 000007E0: 4B 42 45 47 52 45 50 50 45 54 20 2D 50 45 52 53 |KBEGREPPET -PERS| 000007F0: 4F 4E 4E 52 2D 22 3B 43 24 00 0D 10 62 0C 8B 20 |ONNR-";C$...b.. | 00000800: 43 24 B2 22 4A 22 20 A7 20 33 32 33 30 00 30 10 |C$."J" . 3230.0.| 00000810: 6C 0C 99 20 22 41 4E 47 45 20 54 45 4C 45 46 4F |l.. "ANGE TELEFO| 00000820: 4E 4E 52 22 3A 85 20 53 24 3A 89 20 33 35 30 30 |NNR":. S$:. 3500| 00000830: 00 51 10 76 0C 99 20 22 41 4E 47 45 20 46 5C 52 |.Q.v.. "ANGE F\R| 00000840: 4E 41 4D 4E 22 3A 85 20 53 24 3A 89 20 33 35 30 |NAMN":. S$:. 350| 00000850: 30 00 74 10 80 0C 99 20 22 41 4E 47 45 20 45 46 |0.t.... "ANGE EF| 00000860: 54 45 52 4E 41 4D 4E 22 3A 85 20 53 24 3A 89 20 |TERNAMN":. S$:. | 00000870: 33 35 30 30 00 98 10 8A 0C 99 20 22 41 4E 47 45 |3500...... "ANGE| 00000880: 20 47 41 54 55 41 44 52 45 53 53 22 3A 85 20 53 | GATUADRESS":. S| 00000890: 24 3A 89 20 33 35 30 30 00 BC 10 94 0C 99 20 22 |$:. 3500...... "| 000008A0: 41 4E 47 45 20 50 4F 53 54 41 44 52 45 53 53 22 |ANGE POSTADRESS"| 000008B0: 3A 85 20 53 24 3A 89 20 33 35 30 30 00 DE 10 9E |:. S$:. 3500....| 000008C0: 0C 99 20 22 41 4E 47 45 20 50 45 52 53 4F 4E 4E |.. "ANGE PERSONN| 000008D0: 52 22 3A 85 20 53 24 3A 89 20 33 35 30 30 00 09 |R":. S$:. 3500..| 000008E0: 11 AC 0D 84 32 2C 41 24 28 31 29 2C 41 24 28 32 |....2,A$(1),A$(2| 000008F0: 29 2C 41 24 28 33 29 2C 41 24 28 34 29 2C 41 24 |),A$(3),A$(4),A$| 00000900: 28 35 29 2C 41 24 28 36 29 00 20 11 AD 0D 8B 20 |(5),A$(6). .... | 00000910: 41 24 28 31 29 B2 22 30 22 20 A7 20 33 36 32 30 |A$(1)."0" . 3620| 00000920: 00 28 11 B6 0D 46 B2 30 00 36 11 C0 0D 81 20 49 |.(...F.0.6.... I| 00000930: B2 31 20 A4 20 36 00 4D 11 C1 0D 8B 20 53 24 B3 |.1 . 6.M.... S$.| 00000940: B1 41 24 28 49 29 20 A7 20 33 36 30 30 00 65 11 |.A$(I) . 3600.e.| 00000950: C5 0D 99 20 22 93 22 3A 99 20 41 24 28 31 29 2C |... ".":. A$(1),| 00000960: 41 24 28 32 29 00 78 11 D4 0D 99 20 41 24 28 33 |A$(2).x.... A$(3| 00000970: 29 3A 99 41 24 28 34 29 00 97 11 E8 0D 99 20 22 |):.A$(4)...... "| 00000980: 50 4E 52 22 2C 41 24 28 35 29 3A 99 20 22 54 45 |PNR",A$(5):. "TE| 00000990: 4C 2C 41 24 28 36 29 00 A1 11 F7 0D 99 3A 99 3A |L,A$(6)......:.:| 000009A0: 99 00 CE 11 FC 0D 99 20 22 46 5C 52 20 46 4F 52 |....... "F\R FOR| 000009B0: 54 53 41 54 54 20 41 52 42 45 54 45 20 54 52 59 |TSATT ARBETE TRY| 000009C0: 43 4B 20 4D 45 4C 4C 41 4E 53 4C 41 47 22 00 DA |CK MELLANSLAG"..| 000009D0: 11 07 0E A0 20 32 3A A0 20 31 00 F4 11 0B 0E A1 |.... 2:. 1......| 000009E0: 20 56 24 3A 20 8B 20 56 24 B2 22 20 22 20 A7 20 | V$: . V$." " . | 000009F0: 33 35 39 35 00 FD 11 0C 0E 89 20 32 30 00 05 12 |3595...... 20...| 00000A00: 10 0E 82 20 49 00 10 12 1A 0E 89 20 33 35 30 30 |... I...... 3500| 00000A10: 00 34 12 24 0E 99 20 22 46 49 4E 4E 53 20 45 4A |.4.$.. "FINNS EJ| 00000A20: 20 49 20 52 45 47 49 53 54 52 45 54 22 3A 89 20 | I REGISTRET":. | 00000A30: 33 35 38 30 00 4E 12 A0 0F 8F 2A 2A 52 45 47 49 |3580.N....**REGI| 00000A40: 53 54 45 52 55 54 53 4B 52 49 46 54 2A 2A 00 6C |STERUTSKRIFT**.l| 00000A50: 12 AA 0F 99 20 22 93 56 41 44 20 48 45 54 45 52 |.... ".VAD HETER| 00000A60: 20 46 49 4C 45 4E 22 3A 85 20 42 24 00 8F 12 B4 | FILEN":. B$....| 00000A70: 0F 9F 20 31 2C 38 2C 31 35 2C 22 49 22 3A 9F 20 |.. 1,8,15,"I":. | 00000A80: 32 2C 38 2C 32 2C 42 24 AA 22 2C 53 2C 52 22 00 |2,8,2,B$.",S,R".| 00000A90: BF 12 BE 0F 99 20 22 56 49 4C 4C 20 44 55 20 48 |..... "VILL DU H| 00000AA0: 41 20 55 54 53 4B 52 49 46 54 45 4E 20 50 5D 20 |A UTSKRIFTEN P] | 00000AB0: 53 4B 52 49 56 41 52 45 20 45 4C 4C 45 52 22 00 |SKRIVARE ELLER".| 00000AC0: DA 12 D2 0F 85 20 22 42 49 4C 44 53 4B 5B 52 4D |..... "BILDSK[RM| 00000AD0: 20 28 53 2F 42 29 22 3B 43 24 00 E2 12 D3 0F 49 | (S/B)";C$.....I| 00000AE0: B2 31 00 0F 13 DC 0F 84 32 2C 4E 24 28 49 29 2C |.1......2,N$(I),| 00000AF0: 45 24 28 49 29 2C 47 24 28 49 29 2C 50 24 28 49 |E$(I),G$(I),P$(I| 00000B00: 29 2C 50 4E 52 24 28 49 29 2C 54 24 28 49 29 00 |),PNR$(I),T$(I).| 00000B10: 27 13 E6 0F 8B 20 4E 24 28 49 29 20 B2 22 30 22 |'.... N$(I) ."0"| 00000B20: 20 A7 20 34 32 30 30 00 38 13 F0 0F 49 B2 49 AA | . 4200.8...I.I.| 00000B30: 31 3A 89 20 34 30 36 30 00 44 13 68 10 A0 20 32 |1:. 4060.D.h.. 2| 00000B40: 3A A0 20 31 00 58 13 6D 10 8B 20 43 24 B2 22 53 |:. 1.X.m.. C$."S| 00000B50: 22 20 A7 20 34 35 30 30 00 66 13 72 10 81 20 4A |" . 4500.f.r.. J| 00000B60: B2 31 20 A4 20 49 00 7C 13 7C 10 99 20 22 93 22 |.1 . I.|.|.. "."| 00000B70: 3B 4E 24 28 4A 29 2C 45 24 28 4A 29 00 90 13 86 |;N$(J),E$(J)....| 00000B80: 10 99 20 47 24 28 4A 29 3A 99 20 50 24 28 4A 29 |.. G$(J):. P$(J)| 00000B90: 00 9A 13 95 10 99 3A 99 3A 99 00 BD 13 9A 10 99 |......:.:.......| 00000BA0: 20 22 46 5C 52 20 4E 5B 53 54 41 20 54 52 59 43 | "F\R N[STA TRYC| 00000BB0: 4B 20 4D 45 4C 4C 41 4E 53 4C 41 47 22 00 D6 13 |K MELLANSLAG"...| 00000BC0: A4 10 A1 20 53 24 3A 8B 20 53 24 B2 22 20 22 20 |... S$:. S$." " | 00000BD0: A7 20 34 32 36 30 00 DE 13 AE 10 82 20 4A 00 FD |. 4260...... J..| 00000BE0: 13 B8 10 99 20 22 53 4C 55 54 20 50 5D 20 52 45 |.... "SLUT P] RE| 00000BF0: 47 49 53 54 52 45 54 22 3A 89 20 32 30 00 07 14 |GISTRET":. 20...| 00000C00: 94 11 9F 20 33 2C 34 00 15 14 99 11 81 20 4A B2 |... 3,4...... J.| 00000C10: 31 20 A4 20 49 00 25 14 9E 11 99 23 33 2C C7 28 |1 . I.%....#3,.(| 00000C20: 31 34 29 42 24 00 39 14 A8 11 99 23 33 2C C7 28 |14)B$.9....#3,.(| 00000C30: 31 35 29 4E 24 28 4A 29 3B 00 51 14 B2 11 99 23 |15)N$(J);.Q....#| 00000C40: 33 2C C7 28 31 36 29 22 31 32 22 AA 45 24 28 4A |3,.(16)"12".E$(J| 00000C50: 29 00 5F 14 BC 11 99 23 33 2C 47 24 28 4A 29 00 |)._....#3,G$(J).| 00000C60: 6D 14 C6 11 99 23 33 2C 50 24 28 4A 29 00 85 14 |m....#3,P$(J)...| 00000C70: D0 11 99 23 33 2C 22 50 4E 52 20 20 22 AA 50 4E |...#3,"PNR ".PN| 00000C80: 52 24 28 4A 29 00 9B 14 DA 11 99 23 33 2C 22 54 |R$(J)......#3,"T| 00000C90: 45 4C 20 20 22 AA 54 24 28 4A 29 00 B3 14 E4 11 |EL ".T$(J).....| 00000CA0: 99 23 33 2C C7 28 31 33 29 C7 28 31 33 29 C7 28 |.#3,.(13).(13).(| 00000CB0: 31 33 29 00 BB 14 EE 11 82 20 4A 00 DC 14 F8 11 |13)...... J.....| 00000CC0: 99 23 33 2C C7 28 31 34 29 22 53 4C 55 54 20 50 |.#3,.(14)"SLUT P| 00000CD0: 5D 20 52 45 47 49 53 54 52 45 54 22 00 E4 14 02 |] REGISTRET"....| 00000CE0: 12 A0 20 33 00 ED 14 0C 12 89 20 32 30 00 00 00 |.. 3...... 20...|
....... PERSONREGISTER.N.... N$(200),E$( 200),G$(200),P$(200),PNR$(200),T$(200)._ ....".":.:.:.:..M...CR$.G(13)..(.. .3)" MENY":....2..:. .3)".S.KAPANDE AV FIL".. .<..:. .3)".N.YA POSTER".T.F..:. .3)".P. OSTUTSKRIFT"...P..:. .3)".R.EGISTERUTSKR IFT"...Z..:. .3)".U.PPDATERING".&._..:. .3)".A.VSLUTA".0.D..:.:..L.N.. .3)"VILKE N OPERATION".[.S.. RITA RAM.J.X.. I.0 . 22...... 1065.I,160:. 55337.I,7...... 19 45.I,160:. 56217.I,7.G.... 1065.I.40,160 :. 55337.I.40,7...... 1088.I.40,160:. 55 360.I.40,7...R.. I...... A$:. A$." ". 22 0...... A$."S" . 1000.1.... A$."N" . 200 0.E.... A$."P" . 3000.Y.... A$."R" . 400 0.M.... A$."U" . 5000...... A$."A" . 600 0...... ".SVARA MED N]GOT AV TECKNEN S,N ,P,R,U,A".G.6.. I .1 . 2500:. I.P.@.. 20 ...... **SKAPANDE AV FIL **...... ".VAD SKA FILEN HETA": . B$:I.1.)...B$.B$.",S EQ,WRITE".E.... 1,8,15,"I":. 2,8,2,B$.Q. .. 2: 1.\.... 2040.}.P.. **INSKRIFT AV NYA POSTER**...Z.. ".VAD HETER FILEN":. B$:I.1...... 1,8,15,"I".F.... 2,8,2,B$. ",S,R"......2,N$(I),E$(I),G$(I),P$(I),PN R$(I),T$(I)...... N$(I)."0" . 2034.....I .I.1: . 2031.%... 2.;.... 2,8,2,B$.",S ,R".I.... J.1 . I.V....2,N#(J),E$(J),G$( J),P$(J),PNR$(J),T$(J).~.... J..... 2:J .J.1...... 2,8,2,".0:".B$.",S,W".B.... " .F\RNAMN ";N$(J)......:. "EFTERNAMN "; E$(J)... ..:. "GATUADRESS";G$(J)...*..:. "POSTADRESS";P$(J).0.4..:. "PERSONNR. " ;PNR$(J).K.>..:. "TELEFON ";T$(J).].R. .:.:.:.:J.J.1.Y.\.. "\NSKAR DU SKRIVA IN "...F.. "FLER POSTER":. C$...P.. F(C$).7 4 . 2060:. J...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) .H... K.Y... 2: 1:. 20.W....**ENSTAKA POSTUTSKRIFT**...B..".VAD HETER FILEN": . B$...V.. 1,8,15,"I":. 2,8,2,B$.",S,R". ..... "ANGE S\KBEGREPP MED ATT SVARA J E LLER N":.:....... "[R S\KBEGREPPET -F\RN AMN-";C$.$.... C$."J" . 3190.K.... "[R S \KBEGREPPET -EFTERNAMN-";C$._.&.. C$."J" . 3200...0.. "[R S\KBEGREPPET -GATUADR. -";C$...:.. C$."J" . 3210...D.. "[R S\KB EGREPPET -POSTADR.-";C$.S.N.. C$."J" . 3 220...X.. "[R S\KBEGREPPET -PERSONNR-";C $...B.. C$."J" . 3230.0.L.. "ANGE TELEFO NNR":. S$:. 3500.Q.V.. "ANGE F\RNAMN":. S$:. 3500.T.... "ANGE EFTERNAMN":. S$:. 3500...... "ANGE GATUADRESS":. S$:. 3500 ...... "ANGE POSTADRESS":. S$:. 3500.... .. "ANGE PERSONNR":. S$:. 3500......2,A$ (1),A$(2),A$(3),A$(4),A$(5),A$(6). .... A$(1)."0" . 3620.(...F.0.6.... I.1 . 6.M .A.. S$..A$(I) . 3600.E.E.. ".":. A$(1), A$(2).X.T.. A$(3):.A$(4)...... "PNR",A$( 5):. "TEL,A$(6)......:.:..N.... "F\R FOR TSATT ARBETE TRYCK MELLANSLAG".Z... 2: 1...... V$: . V$." " . 3595...... 20... ... I...... 3500.4.$.. "FINNS EJ I REGIS TRET":. 3580.N. ..**REGISTERUTSKRIFT**.L .... ".VAD HETER FILEN":. B$...... 1,8,1 5,"I":. 2,8,2,B$.",S,R"...... "VILL DU H A UTSKRIFTEN P] SKRIVARE ELLER".Z.R.. "B ILDSK[RM (S/B)";C$...S.I.1......2,N$(I), E$(I),G$(I),P$(I),PNR$(I),T$(I).'.... N$ (I) ."0" . 4200.8...I.I.1:. 4060.D.H. 2 : 1.X.M.. C$."S" . 4500.F.R.. J.1 . I.| .|.. ".";N$(J),E$(J)...... G$(J):. P$(J) ......:.:....... "F\R N[STA TRYCK MELLAN SLAG".V.... S$:. S$." " . 4260...... J.. .... "SLUT P] REGISTRET":. 20...... 3,4. ..... J.1 . I.%....#3,G(14)B$.9....#3,G( 15)N$(J);.Q....#3,G(16)"12".E$(J)._....# 3,G$(J).M.F..#3,P$(J)...P..#3,"PNR ".PN R$(J)...Z..#3,"TEL ".T$(J)......#3,G(13 )G(13)G(13)...... J......#3,G(14)"SLUT P ] REGISTRET"..... 3...... 20...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL