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

TELEFONREGISTER

FILE INFORMATION

FILENAME(S): TELEFONREGISTER

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-12-01 13:41:53

APPEARS ON: 1 disk(s)

FILE HASH

d7bd63f588c3627ef2bff02f0a8c7dc24ffa0e7118dfed0b86655986f9e26d85

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
JANNES DISK TELEFONREGISTER PRG hedning, smalandsstenar 19 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 01 00 99 22  93 11 11 11 11 11 11 11  |..)...."........|
00000010: 11 11 11 11 22 A3 31 34  29 22 4C 41 44 44 41 52  |....".14)"LADDAR|
00000020: 20 49 4E 20 4E 41 4D 4E  22 00 4F 08 05 00 86 41  | IN NAMN".O....A|
00000030: 24 28 32 35 36 2C 37 29  3A 97 35 33 32 38 30 2C  |$(256,7):.53280,|
00000040: 30 3A 97 35 33 32 38 31  2C 30 3A 99 22 1E 22 00  |0:.53281,0:.".".|
00000050: 8C 08 0A 00 81 49 B2 30  A4 32 3A 87 51 5A 28 49  |.....I.0.2:.QZ(I|
00000060: 29 2C 5A 5A 28 49 29 2C  51 57 28 49 29 2C 5A 57  |),ZZ(I),QW(I),ZW|
00000070: 28 49 29 3A 82 49 3A 87  51 5A 28 33 29 2C 51 57  |(I):.I:.QZ(3),QW|
00000080: 28 33 29 3A 53 4F B2 35  34 32 37 32 00 C6 08 14  |(3):SO.54272....|
00000090: 00 53 55 B2 53 4F AA 37  3A 97 53 4F AA 32 34 2C  |.SU.SO.7:.SO.24,|
000000A0: 31 35 3A 97 53 4F AA 35  2C 30 3A 97 53 55 AA 35  |15:.SO.5,0:.SU.5|
000000B0: 2C 30 3A 97 53 4F AA 36  2C 32 34 30 3A 97 53 55  |,0:.SO.6,240:.SU|
000000C0: AA 36 2C 32 34 30 00 0C  09 1E 00 83 39 33 2E 31  |.6,240......93.1|
000000D0: 32 35 33 30 35 32 2C 31  30 37 2E 39 30 38 38 38  |253052,107.90888|
000000E0: 32 2C 34 36 2C 38 30 2C  35 36 2E 32 33 33 31 31  |2,46,80,56.23311|
000000F0: 36 32 2C 32 32 32 2E 35  37 35 38 39 37 2C 35 31  |62,222.575897,51|
00000100: 2C 38 38 2C 31 37 32 2E  36 30 30 38 00 30 09 28  |,88,172.6008.0.(|
00000110: 00 83 36 33 2E 36 34 37  31 36 33 34 2C 35 36 2C  |..63.6471634,56,|
00000120: 39 38 2C 31 35 32 2E 31  37 30 38 30 31 2C 36 32  |98,152.170801,62|
00000130: 00 52 09 32 00 4E B2 30  3A 9F 31 2C 38 2C 32 2C  |.R.2.N.0:.1,8,2,|
00000140: 22 30 3A 54 45 4C 52 45  47 44 41 54 41 2C 53 2C  |"0:TELREGDATA,S,|
00000150: 52 22 00 8C 09 3C 00 4E  B2 4E AA 31 3A 81 49 B2  |R"...<.N.N.1:.I.|
00000160: 31 A4 37 3A 84 31 2C 41  24 28 4E 2C 49 29 3A 82  |1.7:.1,A$(N,I):.|
00000170: 49 3A 8B 41 24 28 4E 2C  31 29 B3 B1 22 45 4E 44  |I:.A$(N,1).."END|
00000180: 20 4F 46 20 44 41 54 41  22 A7 36 30 00 99 09 46  | OF DATA".60...F|
00000190: 00 A0 31 3A 4E B2 4E AB  31 00 AE 09 50 00 81 49  |..1:N.N.1...P..I|
000001A0: B2 31 A4 37 3A 87 42 24  28 49 29 3A 82 49 00 F3  |.1.7:.B$(I):.I..|
000001B0: 09 5A 00 83 22 20 20 20  20 45 46 54 45 52 4E 41  |.Z.."    EFTERNA|
000001C0: 4D 4E 22 2C 22 20 20 20  20 20 20 46 5C 52 4E 41  |MN","      F\RNA|
000001D0: 4D 4E 22 2C 22 20 20 20  20 50 45 52 53 4F 4E 4E  |MN","    PERSONN|
000001E0: 52 2E 22 2C 22 42 4F 53  54 41 44 53 41 44 52 45  |R.","BOSTADSADRE|
000001F0: 53 53 22 00 28 0A 5F 00  83 22 20 20 20 50 4F 53  |SS".(._.."   POS|
00000200: 54 41 44 52 45 53 53 22  2C 22 20 20 20 54 45 4C  |TADRESS","   TEL|
00000210: 45 46 4F 4E 4E 52 2E 22  2C 22 20 20 20 41 4E 4D  |EFONNR.","   ANM|
00000220: 5B 52 4B 4E 49 4E 47 22  00 5F 0A 64 00 99 22 93  |[RKNING"._.d..".|
00000230: 22 3A 99 A3 31 33 29 22  52 20 45 20 47 20 49 20  |":..13)"R E G I |
00000240: 53 20 54 20 45 20 52 22  3A 99 A3 31 33 29 22 A3  |S T E R":..13)".|
00000250: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 22 00  |..............".|
00000260: 78 0A 78 00 99 3A 99 3A  99 A3 31 35 29 22 46 31  |x.x..:.:..15)"F1|
00000270: 20 2D 20 4C 5B 53 41 22  00 91 0A 82 00 99 3A 99  | - L[SA"......:.|
00000280: A3 31 35 29 22 46 33 20  2D 20 53 4B 52 49 56 41  |.15)"F3 - SKRIVA|
00000290: 22 00 AA 0A 8C 00 99 3A  99 A3 31 35 29 22 46 35  |"......:..15)"F5|
000002A0: 20 2D 20 52 41 44 45 52  41 22 00 C2 0A 96 00 99  | - RADERA"......|
000002B0: 3A 99 A3 31 35 29 22 46  37 20 2D 20 5B 4E 44 52  |:..15)"F7 - [NDR|
000002C0: 41 22 00 DA 0A A0 00 99  3A 99 A3 31 35 29 22 46  |A"......:..15)"F|
000002D0: 32 20 2D 20 53 50 41 52  41 22 00 F2 0A AA 00 99  |2 - SPARA"......|
000002E0: 3A 99 A3 31 35 29 22 46  34 20 2D 20 53 4C 55 54  |:..15)"F4 - SLUT|
000002F0: 41 22 00 0A 0B B4 00 99  3A 99 A3 31 35 29 22 46  |A"......:..15)"F|
00000300: 36 20 2D 20 52 49 4E 47  41 22 00 25 0B C8 00 A1  |6 - RINGA".%....|
00000310: 41 24 3A 8B 41 24 B3 22  85 22 B0 41 24 B1 22 8B  |A$:.A$.".".A$.".|
00000320: 22 A7 32 30 30 00 55 0B  D2 00 99 22 93 22 3A 91  |".200.U....".":.|
00000330: C6 28 41 24 29 AB 31 33  32 89 33 30 30 2C 34 30  |.(A$).132.300,40|
00000340: 30 2C 35 30 30 2C 36 30  30 2C 37 30 30 2C 38 30  |0,500,600,700,80|
00000350: 30 2C 39 30 30 00 80 0B  2C 01 99 22 4C 5B 53 41  |0,900...,.."L[SA|
00000360: 22 3A 99 3A 8D 31 30 30  30 3A 8B 46 B2 30 A7 81  |":.:.1000:.F.0..|
00000370: 49 B2 31 A4 31 30 30 30  3A 82 49 3A 89 31 30 30  |I.1.1000:.I:.100|
00000380: 00 AB 0B 36 01 99 3A 85  22 53 4B 41 20 4A 41 47  |...6..:."SKA JAG|
00000390: 20 52 49 4E 47 41 22 3B  41 24 3A 8B C8 28 41 24  | RINGA";A$:..(A$|
000003A0: 2C 31 29 B2 22 4E 22 A7  31 30 30 00 C5 0B 40 01  |,1)."N".100...@.|
000003B0: 43 24 B2 41 24 28 49 2C  36 29 3A 8D 32 30 30 30  |C$.A$(I,6):.2000|
000003C0: 3A 89 33 31 30 00 D5 0B  90 01 99 22 53 4B 52 49  |:.310......"SKRI|
000003D0: 56 41 22 3A 99 00 FE 0B  9A 01 81 49 B2 31 A4 37  |VA":.......I.1.7|
000003E0: 3A 43 24 28 49 29 B2 22  2D 22 3A 99 3A 99 42 24  |:C$(I)."-":.:.B$|
000003F0: 28 49 29 3B 3A 85 43 24  28 49 29 3A 82 49 00 10  |(I);:.C$(I):.I..|
00000400: 0C A4 01 81 49 B2 31 A4  4E 3A 81 4A B2 31 A4 37  |....I.1.N:.J.1.7|
00000410: 00 3A 0C AE 01 41 B2 C3  28 43 24 28 4A 29 29 3A  |.:...A..(C$(J)):|
00000420: 8B 41 B1 C3 28 41 24 28  49 2C 4A 29 29 A7 41 B2  |.A..(A$(I,J)).A.|
00000430: C3 28 41 24 28 49 2C 4A  29 29 00 66 0C B8 01 81  |.(A$(I,J)).f....|
00000440: 4B B2 31 A4 41 3A 8B CA  28 43 24 28 4A 29 2C 4B  |K.1.A:..(C$(J),K|
00000450: 2C 31 29 B2 CA 28 41 24  28 49 2C 4A 29 2C 4B 2C  |,1)..(A$(I,J),K,|
00000460: 31 29 A7 34 38 30 00 8B  0C C2 01 8B CA 28 43 24  |1).480.......(C$|
00000470: 28 4A 29 2C 4B 2C 31 29  B1 CA 28 41 24 28 49 2C  |(J),K,1)..(A$(I,|
00000480: 4A 29 2C 4B 2C 31 29 A7  34 39 30 00 BB 0C CC 01  |J),K,1).490.....|
00000490: 81 4C B2 4E AA 31 A4 49  AA 31 A9 AB 31 3A 81 4D  |.L.N.1.I.1..1:.M|
000004A0: B2 31 A4 37 3A 41 24 28  4C 2C 4D 29 B2 41 24 28  |.1.7:A$(L,M).A$(|
000004B0: 4C AB 31 2C 4D 29 3A 82  4D 2C 4C 00 E2 0C D6 01  |L.1,M):.M,L.....|
000004C0: 4E B2 4E AA 31 3A 81 4D  B2 31 A4 37 3A 41 24 28  |N.N.1:.M.1.7:A$(|
000004D0: 49 2C 4D 29 B2 43 24 28  4D 29 3A 82 4D 3A 89 31  |I,M).C$(M):.M:.1|
000004E0: 30 30 00 EB 0C E0 01 82  4B 2C 4A 00 F7 0C EA 01  |00......K,J.....|
000004F0: 82 49 3A 89 34 37 30 00  24 0D F4 01 99 22 52 41  |.I:.470.$...."RA|
00000500: 44 45 52 41 22 3A 99 3A  8D 31 30 30 30 3A 8B 46  |DERA":.:.1000:.F|
00000510: B2 30 A7 81 49 B2 31 A4  31 30 30 30 3A 82 49 3A  |.0..I.1.1000:.I:|
00000520: 89 31 30 30 00 5B 0D FE  01 99 3A 85 22 56 49 4C  |.100.[....:."VIL|
00000530: 4C 20 44 55 20 52 41 44  45 52 41 20 44 45 4E 4E  |L DU RADERA DENN|
00000540: 41 20 50 4F 53 54 22 3B  41 24 3A 8B C8 28 41 24  |A POST";A$:..(A$|
00000550: 2C 31 29 B2 22 4E 22 A7  31 30 30 00 8F 0D 08 02  |,1)."N".100.....|
00000560: 4E B2 4E AB 31 3A 81 4A  B2 49 A4 4E 3A 81 4B B2  |N.N.1:.J.I.N:.K.|
00000570: 31 A4 37 3A 41 24 28 4A  2C 4B 29 B2 41 24 28 4A  |1.7:A$(J,K).A$(J|
00000580: AA 31 2C 4B 29 3A 82 4B  2C 4A 3A 89 31 30 30 00  |.1,K):.K,J:.100.|
00000590: BB 0D 58 02 99 22 5B 4E  44 52 41 22 3A 99 3A 8D  |..X.."[NDRA":.:.|
000005A0: 31 30 30 30 3A 8B 46 B2  30 A7 81 49 B2 31 A4 31  |1000:.F.0..I.1.1|
000005B0: 30 30 30 3A 82 49 3A 89  31 30 30 00 F3 0D 62 02  |000:.I:.100...b.|
000005C0: 99 3A 85 22 56 49 4C 4C  20 44 55 20 5B 4E 44 52  |.:."VILL DU [NDR|
000005D0: 41 20 49 20 44 45 4E 4E  41 20 50 4F 53 54 22 3B  |A I DENNA POST";|
000005E0: 41 24 3A 8B C8 28 41 24  2C 31 29 B2 22 4E 22 A7  |A$:..(A$,1)."N".|
000005F0: 31 30 30 00 0D 0E 6C 02  99 22 93 22 3A 81 4A B2  |100...l..".":.J.|
00000600: 31 A4 37 3A 99 3A 99 42  24 28 4A 29 3B 00 2F 0E  |1.7:.:.B$(J);./.|
00000610: 76 02 50 B2 B9 28 58 29  3A 99 22 20 20 22 3B 41  |v.P..(X):."  ";A|
00000620: 24 28 49 2C 4A 29 3A 99  22 91 22 A3 50 29 3B 00  |$(I,J):.".".P);.|
00000630: 68 0E 80 02 85 43 24 28  4A 29 3A 82 4A 3A 81 4A  |h....C$(J):.J:.J|
00000640: B2 49 A4 4E 3A 81 4B B2  31 A4 37 3A 41 24 28 4A  |.I.N:.K.1.7:A$(J|
00000650: 2C 4B 29 B2 41 24 28 4A  AA 31 2C 4B 29 3A 82 4B  |,K).A$(J.1,K):.K|
00000660: 2C 4A 3A 4E B2 4E AB 31  00 71 0E 8A 02 89 34 32  |,J:N.N.1.q....42|
00000670: 30 00 A1 0E BC 02 99 22  53 50 41 52 41 22 3A 99  |0......"SPARA":.|
00000680: 3A 9F 31 2C 38 2C 31 35  3A 98 31 2C 22 53 30 3A  |:.1,8,15:.1,"S0:|
00000690: 52 45 47 49 53 54 45 52  2D 44 41 54 41 22 3A A0  |REGISTER-DATA":.|
000006A0: 31 00 BF 0E C6 02 9F 31  2C 38 2C 32 2C 22 30 3A  |1......1,8,2,"0:|
000006B0: 54 45 4C 52 45 47 44 41  54 41 2C 53 2C 57 22 00  |TELREGDATA,S,W".|
000006C0: E1 0E D0 02 81 49 B2 31  A4 4E 3A 81 4A B2 31 A4  |.....I.1.N:.J.1.|
000006D0: 37 3A 98 31 2C 41 24 28  49 2C 4A 29 3A 82 4A 2C  |7:.1,A$(I,J):.J,|
000006E0: 49 00 0F 0F DA 02 98 31  2C 22 45 4E 44 20 4F 46  |I......1,"END OF|
000006F0: 20 44 41 54 41 22 3A 81  49 B2 32 A4 37 3A 98 31  | DATA":.I.2.7:.1|
00000700: 2C 22 2A 22 3A 82 49 3A  A0 31 3A 89 31 30 30 00  |,"*":.I:.1:.100.|
00000710: 15 0F 20 03 80 00 3A 0F  84 03 41 24 B2 22 4A 22  |.. ...:...A$."J"|
00000720: 3A 99 22 93 22 3A 85 22  54 45 4C 45 46 4F 4E 2D  |:.".":."TELEFON-|
00000730: 4E 55 4D 4D 45 52 22 3B  43 24 00 70 0F 8E 03 8D  |NUMMER";C$.p....|
00000740: 32 30 30 30 3A 85 22 53  4B 41 4C 4C 20 4A 41 47  |2000:."SKALL JAG|
00000750: 20 52 49 4E 47 41 20 49  47 45 4E 22 3B 41 24 3A  | RINGA IGEN";A$:|
00000760: 8B C8 28 41 24 2C 31 29  B2 22 4A 22 A7 39 31 30  |..(A$,1)."J".910|
00000770: 00 79 0F 98 03 89 31 30  30 00 97 0F E8 03 99 22  |.y....100......"|
00000780: 44 45 54 20 46 49 4E 4E  53 22 3B 4E 3B 22 20 50  |DET FINNS";N;" P|
00000790: 4F 53 54 45 52 2E 22 00  BE 0F F2 03 99 3A 99 22  |OSTER."......:."|
000007A0: 53 4B 52 49 56 20 56 41  44 20 44 55 20 56 45 54  |SKRIV VAD DU VET|
000007B0: 20 4F 4D 20 50 45 52 53  4F 4E 45 4E 2E 22 00 E7  | OM PERSONEN."..|
000007C0: 0F FC 03 81 49 B2 31 A4  37 3A 53 24 28 49 29 B2  |....I.1.7:S$(I).|
000007D0: 22 2D 22 3A 99 3A 99 42  24 28 49 29 3B 3A 85 53  |"-":.:.B$(I);:.S|
000007E0: 24 28 49 29 3A 82 49 00  0D 10 06 04 46 B2 30 3A  |$(I):.I.....F.0:|
000007F0: 81 49 B2 31 A4 4E 3A 81  4A B2 31 A4 37 3A 8B 53  |.I.1.N:.J.1.7:.S|
00000800: 24 28 4A 29 B2 22 2D 22  A7 31 30 38 30 00 2B 10  |$(J)."-".1080.+.|
00000810: 10 04 8B C3 28 53 24 28  4A 29 29 B1 C3 28 41 24  |....(S$(J))..(A$|
00000820: 28 49 2C 4A 29 29 A7 31  31 31 30 00 5A 10 1A 04  |(I,J)).1110.Z...|
00000830: 81 4B B2 31 A4 C3 28 53  24 28 4A 29 29 3A 41 24  |.K.1..(S$(J)):A$|
00000840: B2 CA 28 53 24 28 4A 29  2C 4B 2C 31 29 3A 8B 41  |..(S$(J),K,1):.A|
00000850: 24 B2 22 3F 22 A7 31 30  37 30 00 77 10 24 04 8B  |$."?".1070.w.$..|
00000860: 41 24 B3 B1 CA 28 41 24  28 49 2C 4A 29 2C 4B 2C  |A$...(A$(I,J),K,|
00000870: 31 29 A7 31 31 31 30 00  7E 10 2E 04 82 4B 00 AE  |1).1110.~....K..|
00000880: 10 38 04 82 4A 3A 99 22  93 22 3A 46 B2 46 AA 31  |.8..J:.".":F.F.1|
00000890: 3A 81 4A B2 31 A4 37 3A  8B 41 24 28 49 2C 4A 29  |:.J.1.7:.A$(I,J)|
000008A0: B3 B1 22 2D 22 A7 99 41  24 28 49 2C 4A 29 00 BC  |.."-"..A$(I,J)..|
000008B0: 10 42 04 82 4A 3A 41 24  B2 22 4A 22 00 F1 10 4C  |.B..J:A$."J"...L|
000008C0: 04 99 3A 85 22 53 4B 41  4C 4C 20 4A 41 47 20 4C  |..:."SKALL JAG L|
000008D0: 45 54 41 20 45 46 54 45  52 20 46 4C 45 52 22 3B  |ETA EFTER FLER";|
000008E0: 41 24 3A 8B C8 28 41 24  2C 31 29 B2 22 4E 22 A7  |A$:..(A$,1)."N".|
000008F0: 8E 00 1A 11 56 04 82 49  3A 8B 46 B2 30 A7 99 3A  |....V..I:.F.0..:|
00000900: 99 22 46 49 4E 4E 53 20  45 4A 20 49 20 52 45 47  |."FINNS EJ I REG|
00000910: 49 53 54 52 45 54 2E 22  3A 8E 00 34 11 60 04 99  |ISTRET.":..4.`..|
00000920: 3A 99 46 3B 22 20 53 54  59 43 4B 45 4E 22 3A 46  |:.F;" STYCKEN":F|
00000930: B2 30 3A 8E 00 60 11 D0  07 81 4A B2 31 A4 C3 28  |.0:..`....J.1..(|
00000940: 43 24 29 3A 58 24 B2 CA  28 43 24 2C 4A 2C 31 29  |C$):X$..(C$,J,1)|
00000950: 3A 8B 58 24 B2 22 30 22  A7 58 24 B2 22 31 31 22  |:.X$."0".X$."11"|
00000960: 00 7C 11 DA 07 8B C6 28  58 24 29 B3 34 38 B0 C6  |.|.....(X$).48..|
00000970: 28 58 24 29 B1 35 37 A7  32 30 35 30 00 B5 11 E4  |(X$).57.2050....|
00000980: 07 81 54 B2 31 A4 32 30  3A 82 3A 5A 41 B2 C5 28  |..T.1.20:.:ZA..(|
00000990: 58 24 29 AB 31 3A 59 25  B2 5A 41 AD 33 3A 43 25  |X$).1:Y%.ZA.3:C%|
000009A0: B2 5A 41 AB 33 AC 59 25  3A 97 53 4F AA 31 2C 51  |.ZA.3.Y%:.SO.1,Q|
000009B0: 57 28 59 25 29 00 EE 11  EE 07 97 53 4F 2C 51 5A  |W(Y%)......SO,QZ|
000009C0: 28 59 25 29 3A 97 53 55  AA 31 2C 5A 57 28 43 25  |(Y%):.SU.1,ZW(C%|
000009D0: 29 3A 97 53 55 2C 5A 5A  28 43 25 29 3A 97 53 4F  |):.SU,ZZ(C%):.SO|
000009E0: AA 34 2C 31 37 3A 97 53  55 AA 34 2C 31 37 00 FD  |.4,17:.SU.4,17..|
000009F0: 11 F8 07 81 54 B2 31 A4  31 30 30 3A 82 00 16 12  |....T.1.100:....|
00000A00: 02 08 97 53 4F AA 34 2C  30 3A 97 53 55 AA 34 2C  |...SO.4,0:.SU.4,|
00000A10: 30 3A 82 4A 3A 8E 00 00  00                       |0:.J:....       |
..)...."............".14)"LADDAR IN NAMN
".O....A$(256,7):.53280,0:.53281,0:.".".
.....I.0.2:.QZ(I),ZZ(I),QW(I),ZW(I):.I:.
QZ(3),QW(3):SO.54272.F...SU.SO.7:.SO.24,
15:.SO.5,0:.SU.5,0:.SO.6,240:.SU.6,240..
....93.1253052,107.908882,46,80,56.23311
62,222.575897,51,88,172.6008.0.(..63.647
1634,56,98,152.170801,62.R.2.N.0:.1,8,2,
"0:TELREGDATA,S,R"...<.N.N.1:.I.1.7:.1,A
$(N,I):.I:.A$(N,1).."END OF DATA".60...F
. 1:N.N.1...P..I.1.7:.B$(I):.I...Z.."   
 EFTERNAMN","      F\RNAMN","    PERSONN
R.","BOSTADSADRESS".(._.."   POSTADRESS"
,"   TELEFONNR.","   ANM[RKNING"._.D..".
":..13)"R E G I S T E R":..13)".........
......".X.X..:.:..15)"F1 - L[SA"......:.
.15)"F3 - SKRIVA"......:..15)"F5 - RADER
A".B....:..15)"F7 - [NDRA".Z. ..:..15)"F
2 - SPARA"......:..15)"F4 - SLUTA"......
:..15)"F6 - RINGA".%.H..A$:.A$.".".A$.".
".200.U.R..".":.F(A$).132.300,400,500,60
0,700,800,900...,.."L[SA":.:.1000:.F.0..
I.1.1000:.I:.100...6..:."SKA JAG RINGA";
A$:.H(A$,1)."N".100.E.@.C$.A$(I,6):.2000
:.310.U...."SKRIVA":.......I.1.7:C$(I)."
-":.:.B$(I);:.C$(I):.I......I.1.N:.J.1.7
.:...A.C(C$(J)):.A.C(A$(I,J)).A.C(A$(I,J
)).F....K.1.A:.J(C$(J),K,1).J(A$(I,J),K,
1).480...B..J(C$(J),K,1).J(A$(I,J),K,1).
490...L..L.N.1.I.1..1:.M.1.7:A$(L,M).A$(
L.1,M):.M,L...V.N.N.1:.M.1.7:A$(I,M).C$(
M):.M:.100......K,J......I:.470.$...."RA
DERA":.:.1000:.F.0..I.1.1000:.I:.100.[..
..:."VILL DU RADERA DENNA POST";A$:.H(A$
,1)."N".100.....N.N.1:.J.I.N:.K.1.7:A$(J
,K).A$(J.1,K):.K,J:.100...X.."[NDRA":.:.
1000:.F.0..I.1.1000:.I:.100...B..:."VILL
 DU [NDRA I DENNA POST";A$:.H(A$,1)."N".
100...L..".":.J.1.7:.:.B$(J);./.V.P..(X)
:."  ";A$(I,J):.".".P);.H....C$(J):.J:.J
.I.N:.K.1.7:A$(J,K).A$(J.1,K):.K,J:N.N.1
.Q....420......"SPARA":.:.1,8,15:.1,"S0:
REGISTER-DATA": 1...F..1,8,2,"0:TELREGDA
TA,S,W"...P..I.1.N:.J.1.7:.1,A$(I,J):.J,
I...Z..1,"END OF DATA":.I.2.7:.1,"*":.I:
 1:.100... ...:...A$."J":.".":."TELEFON-
NUMMER";C$.P....2000:."SKALL JAG RINGA I
GEN";A$:.H(A$,1)."J".910.Y....100......"
DET FINNS";N;" POSTER."......:."SKRIV VA
D DU VET OM PERSONEN."......I.1.7:S$(I).
"-":.:.B$(I);:.S$(I):.I.....F.0:.I.1.N:.
J.1.7:.S$(J)."-".1080.+....C(S$(J)).C(A$
(I,J)).1110.Z....K.1.C(S$(J)):A$.J(S$(J)
,K,1):.A$."?".1070.W.$..A$..J(A$(I,J),K,
1).1110.~....K...8..J:.".":F.F.1:.J.1.7:
.A$(I,J).."-"..A$(I,J)...B..J:A$."J"...L
..:."SKALL JAG LETA EFTER FLER";A$:.H(A$
,1)."N".....V..I:.F.0..:."FINNS EJ I REG
ISTRET.":..4.`..:.F;" STYCKEN":F.0:..`.P
..J.1.C(C$):X$.J(C$,J,1):.X$."0".X$."11"
.|.Z..F(X$).48.F(X$).57.2050......T.1.20
:.:ZA.E(X$).1:Y%.ZA.3:C%.ZA.3.Y%:.SO.1,Q
W(Y%)......SO,QZ(Y%):.SU.1,ZW(C%):.SU,ZZ
(C%):.SO.4,17:.SU.4,17......T.1.100:....
...SO.4,0:.SU.4,0:.J:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL