_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PERSREGISTER

FILE INFORMATION

FILENAME(S): PERSREGISTER

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-12-01 00:56:49

APPEARS ON: 1 disk(s)

FILE HASH

56ad5859b8f6f0b55de2ac7fa08ba640e685a7bcfe9b2b9748d67d591d4d1b54

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TEST DISK PERSREGISTER PRG hedning, Gothenburg 24 0 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 00 00              |:. 1:. 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...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL