CATALOGER
FILE INFORMATION
FILENAME(S): CATALOGER
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-12-01 13:49:16
APPEARS ON: 1 disk(s)
FILE HASH
6f351f07f58748b91b354993e4d1dc757ec64883258ae0c1069852c69b684a24
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEL | CATALOGER | PRG | hedning, Helsinborg | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 8F 20 22 8D 05 2A 2A 2A 20 43 |....... "..*** C| 00000010: 41 54 41 4C 4F 47 45 52 20 2A 2A 2A 00 26 08 0B |ATALOGER ***.&..| 00000020: 00 8F 20 22 8D 90 00 44 08 14 00 8B C2 28 34 39 |.. "...D.....(49| 00000030: 31 35 32 29 B3 B1 37 36 A7 93 22 4D 4C 20 34 22 |152)..76.."ML 4"| 00000040: 2C 38 2C 31 00 6A 08 1E 00 86 44 49 24 28 31 35 |,8,1.j....DI$(15| 00000050: 30 30 29 3A 54 24 B2 22 20 20 20 20 20 20 20 20 |00):T$." | 00000060: 20 20 20 20 20 20 20 20 20 22 00 70 08 22 00 3A | ".p.".:| 00000070: 00 8C 08 23 00 8F 22 8D 05 20 2A 2A 2A 2A 2A 20 |...#..".. ***** | 00000080: 20 4D 45 4E 59 20 20 2A 2A 2A 2A 2A 00 95 08 24 | MENY *****...$| 00000090: 00 8F 22 8D 90 00 B2 08 28 00 97 35 33 32 38 31 |..".....(..53281| 000000A0: 2C 31 31 3A 97 35 33 32 38 30 2C 31 32 3A 41 46 |,11:.53280,12:AF| 000000B0: B2 30 00 FB 08 32 00 99 22 93 9E 22 3B 41 46 3B |.0...2.."..";AF;| 000000C0: 22 46 49 4C 45 52 20 13 11 11 12 20 20 20 20 20 |"FILER .... | 000000D0: 20 20 20 44 49 53 4B 2D 42 49 42 4C 49 4F 54 45 | DISK-BIBLIOTE| 000000E0: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |K | 000000F0: 20 20 20 22 3A 9E 34 39 31 37 30 00 44 09 3C 00 | ":.49170.D.<.| 00000100: 99 22 11 20 20 20 20 46 31 2E 2E 2E 4C 5B 53 20 |.". F1...L[S | 00000110: 44 49 52 45 43 54 4F 52 59 22 3A 99 22 11 20 20 |DIRECTORY":.". | 00000120: 20 20 46 33 2E 2E 2E 53 4F 52 54 45 52 41 22 3A | F3...SORTERA":| 00000130: 99 22 11 20 20 20 20 46 35 2E 2E 2E 45 44 49 54 |.". F5...EDIT| 00000140: 45 52 41 22 00 89 09 46 00 99 22 11 20 20 20 20 |ERA"...F..". | 00000150: 46 37 2E 2E 2E 55 54 53 4B 52 49 46 54 22 3A 99 |F7...UTSKRIFT":.| 00000160: 22 11 20 20 20 20 46 32 2E 2E 2E 44 49 53 4B 4B |". F2...DISKK| 00000170: 4F 4D 4D 41 4E 44 4F 22 3A 99 22 11 20 20 20 20 |OMMANDO":.". | 00000180: 46 34 2E 2E 2E 44 49 52 22 00 C2 09 50 00 99 22 |F4...DIR"...P.."| 00000190: 11 20 20 20 20 46 36 2E 2E 2E 4C 4F 41 44 22 3A |. F6...LOAD":| 000001A0: 99 22 11 20 20 20 20 46 38 2E 2E 2E 53 41 56 45 |.". F8...SAVE| 000001B0: 22 3A 58 B2 31 3A 9E 34 39 31 36 37 28 31 2C 32 |":X.1:.49167(1,2| 000001C0: 32 29 00 E6 09 5A 00 A1 41 24 3A 8D 38 30 30 30 |2)...Z..A$:.8000| 000001D0: 3A 8B 41 24 B2 22 85 22 A7 8D 37 31 30 3A 8D 35 |:.A$."."..710:.5| 000001E0: 32 30 3A 89 35 30 00 FE 09 64 00 8B 41 24 B2 22 |20:.50...d..A$."| 000001F0: 8B 22 A7 89 34 30 30 3A 8F 20 4C 4F 41 44 00 18 |."..400:. LOAD..| 00000200: 0A 69 00 8B 41 24 B2 22 8A 22 A7 20 99 22 93 22 |.i..A$.".". ."."| 00000210: 3B 3A 9E 34 39 31 36 34 00 3E 0A 6A 00 8B 41 24 |;:.49164.>.j..A$| 00000220: B2 22 8A 22 A7 97 31 39 38 2C 30 3A 92 20 31 39 |."."..198,0:. 19| 00000230: 38 2C 31 3A 97 31 39 38 2C 30 3A 89 35 30 00 56 |8,1:.198,0:.50.V| 00000240: 0A 6E 00 8B 41 24 B2 22 8C 22 A7 89 34 35 30 3A |.n..A$."."..450:| 00000250: 8F 20 53 41 56 45 00 67 0A 78 00 8B 41 24 B2 22 |. SAVE.g.x..A$."| 00000260: 89 22 A7 31 30 30 30 00 77 0A 82 00 8B 41 24 B2 |.".1000.w....A$.| 00000270: 22 86 22 A7 38 30 30 00 91 0A 8C 00 8B 41 24 B2 |".".800......A$.| 00000280: 22 87 22 A7 32 34 30 3A 8F 20 45 44 49 54 45 52 |".".240:. EDITER| 00000290: 41 00 A1 0A 96 00 8B 41 24 B3 B1 22 88 22 A7 39 |A......A$..".".9| 000002A0: 30 00 A7 0A A0 00 3A 00 CC 0A A8 00 8F 22 8D 05 |0.....:......"..| 000002B0: 2A 2A 2A 2A 2A 20 50 52 49 4E 54 45 52 20 52 4F |***** PRINTER RO| 000002C0: 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 00 D6 0A AB |UTINE ******....| 000002D0: 00 8F 20 22 8D 90 00 FC 0A B4 00 9F 36 2C 34 2C |.. "........6,4,| 000002E0: 36 3A 98 36 2C C7 28 32 37 29 3A A0 36 3A 8F 20 |6:.6,.(27):.6:. | 000002F0: 4C 49 4E 45 20 53 50 41 43 49 4E 47 00 3E 0B B6 |LINE SPACING.>..| 00000300: 00 85 20 22 93 50 4C 41 43 45 20 46 4F 52 20 4B |.. ".PLACE FOR K| 00000310: 4F 4C 2E 1D 1D 1D 20 33 32 9D 9D 9D 9D 22 3B 4B |OL.... 32....";K| 00000320: 32 24 3A 8B 4B 32 24 B3 22 33 30 22 B0 4B 32 24 |2$:.K2$."30".K2$| 00000330: B1 22 35 30 22 A7 4B 32 24 B2 22 34 36 22 00 52 |."50".K2$."46".R| 00000340: 0B B8 00 85 22 11 11 48 45 41 44 45 52 22 3B 48 |...."..HEADER";H| 00000350: 45 24 00 67 0B BE 00 99 22 93 11 11 50 52 49 4E |E$.g...."...PRIN| 00000360: 54 49 4E 47 21 21 22 00 89 0B C8 00 9F 34 2C 34 |TING!!"......4,4| 00000370: 3A 50 B2 B5 28 41 46 AD 32 29 AA 31 3A 51 24 B2 |:P..(AF.2).1:Q$.| 00000380: C7 28 31 36 29 AA 4B 32 24 00 A1 0B CD 00 98 34 |.(16).K2$......4| 00000390: 2C 22 20 20 20 22 C7 28 31 34 29 48 45 24 3A 98 |," ".(14)HE$:.| 000003A0: 34 00 CE 0B D2 00 81 49 B2 31 A4 50 3A 98 34 2C |4......I.1.P:.4,| 000003B0: 22 20 20 20 22 44 49 24 28 49 29 51 24 44 49 24 |" "DI$(I)Q$DI$| 000003C0: 28 49 AA 50 29 3A 82 3A A0 34 3A 89 35 30 00 F6 |(I.P):.:.4:.50..| 000003D0: 0B DC 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003F0: 2A 2A 2A 22 8D 8F 00 18 0C EB 00 8F 20 22 8D 05 |***"........ "..| 00000400: 2A 2A 2A 2A 2A 2A 20 20 45 20 44 20 49 20 54 20 |****** E D I T | 00000410: 20 2A 2A 2A 2A 2A 2A 2A 00 22 0C EC 00 8F 20 22 | *******.".... "| 00000420: 8D 90 00 59 0C F0 00 45 24 B2 22 93 12 9E 2A 2A |...Y...E$."...**| 00000430: 20 49 3D 49 4E 53 45 52 54 20 20 44 3D 44 45 4C | I=INSERT D=DEL| 00000440: 20 20 45 3D 45 44 49 54 20 3C 52 45 54 3E 3D 4E | E=EDIT <RET>=N| 00000450: 45 58 54 20 2A 2A 11 9F 22 00 8E 0C FA 00 57 24 |EXT **..".....W$| 00000460: B2 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000480: 20 20 20 20 20 20 20 20 20 20 20 91 91 22 00 A4 | .."..| 00000490: 0C 04 01 81 4E B2 31 A4 41 46 A9 31 38 3A 9E 34 |....N.1.AF.18:.4| 000004A0: 39 31 37 30 00 C7 0C 0E 01 99 45 24 3A 81 4A B2 |9170......E$:.J.| 000004B0: 4E A4 4E AA 31 37 3A 8B 4A B3 B2 41 46 A7 99 4A |N.N.17:.J..AF..J| 000004C0: 3B 44 49 24 28 4A 29 00 CD 0C 18 01 82 00 E9 0C |;DI$(J).........| 000004D0: 22 01 99 22 11 12 05 5D 54 47 5B 52 44 3A 20 44 |".."...]TG[RD: D| 000004E0: 2F 45 2F 49 2F 52 45 54 22 00 FC 0C 2C 01 A1 41 |/E/I/RET"...,..A| 000004F0: 24 3A 8B 41 24 B2 22 22 A7 33 30 30 00 0D 0D 36 |$:.A$."".300...6| 00000500: 01 8B 41 24 B3 B1 22 44 22 A7 33 33 30 00 42 0D |..A$.."D".330.B.| 00000510: 3B 01 85 22 44 3A 4E 55 4D 4D 45 52 22 3B 52 24 |;.."D:NUMMER";R$| 00000520: 3A 55 B2 30 3A 81 54 B2 31 A4 C3 28 52 24 29 3A |:U.0:.T.1..(R$):| 00000530: 8B CA 28 52 24 2C 54 2C 31 29 B2 22 2D 22 A7 55 |..(R$,T,1)."-".U| 00000540: B2 54 00 5E 0D 3C 01 82 3A 8B 55 B2 30 A7 45 B2 |.T.^.<..:.U.0.E.| 00000550: C5 28 52 24 29 3A 52 B2 31 3A 89 33 32 30 00 84 |.(R$):R.1:.320..| 00000560: 0D 3D 01 45 B2 C5 28 C8 28 52 24 2C 55 AB 31 29 |.=.E..(.(R$,U.1)| 00000570: 29 3A 52 B2 C5 28 CA 28 52 24 2C 55 AA 31 29 29 |):R..(.(R$,U.1))| 00000580: AB 45 AA 31 00 B5 0D 40 01 81 49 B2 45 A4 41 46 |.E.1...@..I.E.AF| 00000590: AB 52 3A 44 49 24 28 49 29 B2 44 49 24 28 49 AA |.R:DI$(I).DI$(I.| 000005A0: 52 29 3A 82 3A 41 46 B2 41 46 AB 52 3A 99 57 24 |R):.:AF.AF.R:.W$| 000005B0: 3A 89 32 37 30 00 EF 0D 4A 01 8B 41 24 B2 22 45 |:.270...J..A$."E| 000005C0: 22 A7 85 22 45 3A 4E 55 4D 4D 45 52 22 3B 45 3A |".."E:NUMMER";E:| 000005D0: 99 22 20 20 22 44 49 24 28 45 29 22 91 22 3A 85 |." "DI$(E)".":.| 000005E0: 44 49 24 28 45 29 3A 99 57 24 3A 89 32 37 30 00 |DI$(E):.W$:.270.| 000005F0: 00 0E 54 01 8B 41 24 B3 B1 22 49 22 A7 33 37 30 |..T..A$.."I".370| 00000600: 00 3C 0E 5E 01 85 22 49 3A 46 5C 52 45 20 4E 55 |.<.^.."I:F\RE NU| 00000610: 4D 4D 45 52 22 3B 45 3A 81 49 B2 41 46 A4 45 A9 |MMER";E:.I.AF.E.| 00000620: AB 31 3A 44 49 24 28 49 AA 31 29 B2 44 49 24 28 |.1:DI$(I.1).DI$(| 00000630: 49 29 3A 82 3A 41 46 B2 41 46 AA 31 00 5E 0E 68 |I):.:AF.AF.1.^.h| 00000640: 01 85 22 4E 59 20 46 49 4C 22 3B 44 49 24 28 45 |.."NY FIL";DI$(E| 00000650: 29 3A 99 57 24 3A 99 57 24 3A 89 32 37 30 00 71 |):.W$:.W$:.270.q| 00000660: 0E 72 01 8B 41 24 B3 B1 C7 28 31 33 29 A7 33 30 |.r..A$...(13).30| 00000670: 30 00 7C 0E 7C 01 82 4E 3A 89 35 30 00 82 0E 86 |0.|.|..N:.50....| 00000680: 01 3A 00 A7 0E 90 01 8F 22 8D 05 20 20 2A 2A 2A |.:......".. ***| 00000690: 2A 2A 20 20 20 20 4C 4F 41 44 20 20 20 20 20 20 |** LOAD | 000006A0: 2A 2A 2A 2A 2A 2A 2A 00 B0 0E 91 01 8F 22 8D 90 |*******......"..| 000006B0: 00 D1 0E 9A 01 85 22 93 12 4C 4F 41 44 3A 92 13 |......"..LOAD:..| 000006C0: 11 11 46 49 4C 45 4E 53 20 4E 41 4D 4E 22 3B 4E |..FILENS NAMN";N| 000006D0: 24 00 F5 0E A4 01 9F 20 31 35 2C 38 2C 31 35 3A |$...... 15,8,15:| 000006E0: 9F 32 2C 38 2C 32 2C 4E 24 AA 22 2C 53 2C 52 22 |.2,8,2,N$.",S,R"| 000006F0: 3A 8D 35 30 30 00 18 0F AE 01 8B 20 45 B3 B1 30 |:.500...... E..0| 00000700: A7 A0 32 3A A0 31 35 3A 81 49 B2 31 A4 31 30 30 |..2:.15:.I.1.100| 00000710: 30 3A 3A 82 3A 89 35 30 00 46 0F B8 01 84 32 2C |0::.:.50.F....2,| 00000720: 41 46 3A 81 49 B2 31 A4 41 46 3A 84 32 2C 44 49 |AF:.I.1.AF:.2,DI| 00000730: 24 28 49 29 3A 82 3A A0 32 3A 8D 35 30 30 3A A0 |$(I):.:.2:.500:.| 00000740: 31 35 3A 89 35 30 00 4C 0F BD 01 3A 00 6F 0F C2 |15:.50.L...:.o..| 00000750: 01 8F 22 8D 05 20 20 2A 2A 2A 2A 2A 2A 20 20 20 |..".. ****** | 00000760: 20 53 41 56 45 20 20 20 20 2A 2A 2A 2A 2A 2A 00 | SAVE ******.| 00000770: 79 0F C3 01 8F 20 22 8D 90 00 9A 0F CC 01 85 22 |y.... "........"| 00000780: 12 93 53 41 56 45 3A 92 13 11 11 46 49 4C 45 4E |..SAVE:....FILEN| 00000790: 53 20 4E 41 4D 4E 22 3B 4E 24 00 BD 0F D6 01 9F |S NAMN";N$......| 000007A0: 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 4E |15,8,15:.2,8,2,N| 000007B0: 24 AA 22 2C 53 2C 57 22 3A 8D 35 30 30 00 DF 0F |$.",S,W":.500...| 000007C0: E0 01 8B 45 B3 B1 30 A7 A0 32 3A A0 31 35 3A 81 |...E..0..2:.15:.| 000007D0: 49 B2 31 A4 31 30 30 30 3A 3A 82 3A 89 35 30 00 |I.1.1000::.:.50.| 000007E0: 0D 10 EA 01 98 32 2C 41 46 3A 81 49 B2 31 A4 41 |.....2,AF:.I.1.A| 000007F0: 46 3A 98 32 2C 44 49 24 28 49 29 3A 82 3A A0 32 |F:.2,DI$(I):.:.2| 00000800: 3A 8D 35 30 30 3A A0 31 35 3A 89 35 30 00 24 10 |:.500:.15:.50.$.| 00000810: F4 01 84 31 35 2C 45 2C 45 24 3A 8B 45 B3 B1 30 |...15,E,E$:.E..0| 00000820: A7 99 45 24 00 2A 10 FE 01 8E 00 30 10 03 02 3A |..E$.*.....0...:| 00000830: 00 59 10 08 02 8F 22 8D 05 2A 2A 2A 2A 2A 2A 2A |.Y...."..*******| 00000840: 2A 20 4C 5B 53 20 44 49 52 20 53 55 42 52 55 54 |* L[S DIR SUBRUT| 00000850: 49 4E 20 2A 2A 2A 2A 2A 2A 00 63 10 09 02 8F 20 |IN ******.c.... | 00000860: 22 8D 90 00 77 10 12 02 9F 31 2C 38 2C 31 35 2C |"...w....1,8,15,| 00000870: 22 49 4F 22 3A A0 31 00 97 10 1C 02 9F 31 2C 38 |"IO":.1......1,8| 00000880: 2C 30 2C 22 24 30 22 3A 81 49 B2 30 A4 37 3A A1 |,0,"$0":.I.0.7:.| 00000890: 23 31 2C 41 24 3A 82 00 C7 10 26 02 44 4E 24 B2 |#1,A$:....&.DN$.| 000008A0: 22 22 3A 81 49 B2 38 A4 32 33 3A A1 23 31 2C 41 |"":.I.8.23:.#1,A| 000008B0: 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A 99 |$:DN$.DN$.A$:.:.| 000008C0: 22 12 22 44 4E 24 2C 00 06 11 30 02 49 44 24 B2 |"."DN$,...0.ID$.| 000008D0: 22 22 3A A1 23 31 2C 41 24 2C 41 24 3A 81 49 B2 |"":.#1,A$,A$:.I.| 000008E0: 32 36 A4 33 31 3A A1 23 31 2C 41 24 3A 49 44 24 |26.31:.#1,A$:ID$| 000008F0: B2 49 44 24 AA 41 24 3A 82 3A 49 44 24 B2 C8 28 |.ID$.A$:.:ID$..(| 00000900: 49 44 24 2C 32 29 00 0F 11 3A 02 99 49 44 24 00 |ID$,2)...:..ID$.| 00000910: 23 11 44 02 81 49 B2 30 A4 31 3A A1 23 31 2C 41 |#.D..I.0.1:.#1,A| 00000920: 24 3A 82 00 53 11 4E 02 42 4C B2 30 3A 81 49 B2 |$:..S.N.BL.0:.I.| 00000930: 30 A4 31 3A A1 23 31 2C 41 24 3A 42 4C B2 42 4C |0.1:.#1,A$:BL.BL| 00000940: AA C6 28 41 24 AA C7 28 30 29 29 AC 32 35 36 AE |..(A$..(0)).256.| 00000950: 49 3A 82 00 6A 11 58 02 A1 23 31 2C 41 24 3A 8B |I:..j.X..#1,A$:.| 00000960: 41 24 B2 22 42 22 A7 36 39 30 00 76 11 62 02 41 |A$."B".690.v.b.A| 00000970: 46 B2 41 46 AA 31 00 8F 11 6C 02 A1 23 31 2C 41 |F.AF.1...l..#1,A| 00000980: 24 3A 8B 41 24 B2 C7 28 33 32 29 A7 36 32 30 00 |$:.A$..(32).620.| 00000990: 9A 11 76 02 46 4C 24 B2 22 22 00 C0 11 80 02 A1 |..v.FL$.""......| 000009A0: 23 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 33 34 29 |#1,A$:.A$...(34)| 000009B0: A7 46 4C 24 B2 46 4C 24 AA 41 24 3A 89 36 34 30 |.FL$.FL$.A$:.640| 000009C0: 00 D9 11 8A 02 A1 23 31 2C 41 24 3A 8B 41 24 B2 |......#1,A$:.A$.| 000009D0: C7 28 33 32 29 A7 36 35 30 00 FF 11 94 02 54 50 |.(32).650.....TP| 000009E0: 24 B2 41 24 3A 81 49 B2 31 A4 32 3A A1 23 31 2C |$.A$:.I.1.2:.#1,| 000009F0: 41 24 3A 54 50 24 B2 54 50 24 AA 41 24 3A 82 00 |A$:TP$.TP$.A$:..| 00000A00: 16 12 9E 02 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 |.....#1,A$:.A$..| 00000A10: 22 22 A7 36 37 30 00 30 12 A8 02 44 49 24 28 41 |"".670.0...DI$(A| 00000A20: 46 29 B2 46 4C 24 3A 99 44 49 24 28 41 46 29 3B |F).FL$:.DI$(AF);| 00000A30: 00 41 12 AA 02 8B 51 24 B2 22 55 22 A7 8D 37 35 |.A....Q$."U"..75| 00000A40: 30 00 4C 12 AD 02 99 3A 89 35 38 30 00 55 12 B2 |0.L....:.580.U..| 00000A50: 02 A0 31 3A 8E 00 7C 12 BC 02 8F 20 2A 2A 2A 2A |..1:..|.... ****| 00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 12 C6 |************....| 00000A80: 02 99 22 93 22 3A 85 22 4C 5B 53 20 49 4E 20 12 |..".":."L[S IN .| 00000A90: 41 92 4C 4C 41 20 45 4C 4C 45 52 20 12 55 92 52 |A.LLA ELLER .U.R| 00000AA0: 56 41 4C 20 20 20 41 9D 9D 9D 22 3B 51 24 3A 8B |VAL A...";Q$:.| 00000AB0: 51 24 B3 B1 22 41 22 AF 51 24 B3 B1 22 55 22 A7 |Q$.."A".Q$.."U".| 00000AC0: 00 DB 12 D0 02 99 22 93 05 4C 5B 53 45 52 20 44 |......"..L[SER D| 00000AD0: 49 52 45 43 54 4F 52 59 22 3A 8E 00 ED 12 EE 02 |IRECTORY":......| 00000AE0: 99 A3 33 35 29 22 99 4A 2F 4E 05 22 3B 00 08 13 |..35)".J/N.";...| 00000AF0: F8 02 A1 41 24 3A 8B 41 24 B2 22 4A 22 A7 99 22 |...A$:.A$."J".."| 00000B00: 9D 9D 20 20 22 3B 3A 8E 00 28 13 02 03 8B 41 24 |.. ";:..(....A$| 00000B10: B2 22 4E 22 A7 41 46 B2 41 46 AB 31 3A 99 22 9D |."N".AF.AF.1:.".| 00000B20: 9D 9D 20 20 22 3B 3A 8E 00 31 13 0C 03 89 37 36 |.. ";:..1....76| 00000B30: 30 00 54 13 16 03 8F 20 22 8D 05 20 2A 2A 2A 2A |0.T.... ".. ****| 00000B40: 2A 2A 20 53 4F 52 54 45 52 49 4E 47 20 2A 2A 2A |** SORTERING ***| 00000B50: 2A 2A 2A 2A 00 5E 13 17 03 8F 20 22 8D 90 00 A6 |****.^.... "....| 00000B60: 13 20 03 99 22 93 12 1D 53 4F 52 54 45 52 41 3A |. .."...SORTERA:| 00000B70: 22 3A 85 22 11 11 20 20 53 4F 52 54 45 52 41 20 |":.".. SORTERA | 00000B80: 45 46 54 45 52 20 12 4E 92 41 4D 4E 20 45 4C 4C |EFTER .N.AMN ELL| 00000B90: 45 52 20 12 44 92 49 53 4B 49 44 1D 1D 1D 4E 9D |ER .D.ISKID...N.| 00000BA0: 9D 9D 22 3B 41 24 00 DC 13 2A 03 8B 41 24 B2 22 |..";A$...*..A$."| 00000BB0: 4E 22 A7 97 35 33 32 38 30 2C 32 3A 9E 34 39 31 |N"..53280,2:.491| 00000BC0: 35 35 2C 41 46 AA 31 2C 44 49 24 28 30 29 3A 97 |55,AF.1,DI$(0):.| 00000BD0: 35 33 32 38 30 2C 31 32 3A 89 35 30 00 ED 13 34 |53280,12:.50...4| 00000BE0: 03 8B 41 24 B2 C7 28 31 33 29 A7 35 30 00 FE 13 |..A$..(13).50...| 00000BF0: 3E 03 8B 41 24 B3 B1 22 44 22 A7 38 30 30 00 2D |>..A$.."D".800.-| 00000C00: 14 48 03 81 49 B2 31 A4 41 46 3A 44 49 24 28 49 |.H..I.1.AF:DI$(I| 00000C10: 29 B2 CA 28 44 49 24 28 49 29 2C 31 37 29 AA C8 |)..(DI$(I),17)..| 00000C20: 28 44 49 24 28 49 29 2C 31 36 29 3A 82 00 44 14 |(DI$(I),16):..D.| 00000C30: 52 03 9E 34 39 31 35 35 2C 41 46 AA 31 2C 44 49 |R..49155,AF.1,DI| 00000C40: 24 28 30 29 00 7D 14 5C 03 81 49 B2 31 A4 41 46 |$(0).}.\..I.1.AF| 00000C50: 3A 44 49 24 28 49 29 B2 C9 28 44 49 24 28 49 29 |:DI$(I)..(DI$(I)| 00000C60: 2C 31 36 29 AA C8 28 44 49 24 28 49 29 2C C3 28 |,16)..(DI$(I),.(| 00000C70: 44 49 24 28 49 29 29 AB 31 36 29 3A 82 00 85 14 |DI$(I)).16):....| 00000C80: 66 03 89 35 30 00 AB 14 E6 03 8F 20 22 8D 05 2A |f..50...... "..*| 00000C90: 2A 2A 2A 2A 2A 20 44 49 53 4B 4B 4F 4D 4D 41 4E |***** DISKKOMMAN| 00000CA0: 44 4F 4E 20 2A 2A 2A 2A 2A 2A 2A 00 B5 14 E7 03 |DON *******.....| 00000CB0: 8F 20 22 8D 90 00 CC 14 E8 03 97 35 33 32 38 30 |. "........53280| 00000CC0: 2C 32 3A 97 35 33 32 38 31 2C 31 32 00 01 15 F2 |,2:.53281,12....| 00000CD0: 03 99 22 93 11 12 90 20 20 20 20 20 20 20 44 49 |..".... DI| 00000CE0: 53 4B 2D 4B 4F 4D 4D 41 4E 44 4F 4E 20 20 20 20 |SK-KOMMANDON | 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 11 | .| 00000D00: 22 00 1F 15 06 04 99 22 11 1D 1D 46 31 2E 2E 2E |"......"...F1...| 00000D10: 5B 4E 44 52 41 20 44 49 53 4B 4E 41 4D 4E 22 00 |[NDRA DISKNAMN".| 00000D20: 3C 15 10 04 99 22 11 11 1D 1D 46 33 2E 2E 2E 5B |<...."....F3...[| 00000D30: 4E 44 52 41 20 44 49 53 4B 49 44 22 00 59 15 1A |NDRA DISKID".Y..| 00000D40: 04 99 22 11 11 1D 1D 46 35 2E 2E 2E 53 43 52 41 |.."....F5...SCRA| 00000D50: 54 43 48 20 46 49 4C 45 22 00 76 15 24 04 99 22 |TCH FILE".v.$.."| 00000D60: 11 11 1D 1D 46 37 2E 2E 2E 52 45 4E 41 4D 45 20 |....F7...RENAME | 00000D70: 20 46 49 4C 45 22 00 93 15 29 04 99 22 11 11 1D | FILE"...).."...| 00000D80: 1D 12 3C 52 45 54 3E 20 52 45 54 55 52 20 4D 45 |..<RET> RETUR ME| 00000D90: 4E 59 22 00 A7 15 2E 04 A1 51 24 3A 8B 51 24 B2 |NY"......Q$:.Q$.| 00000DA0: 22 22 A7 31 30 37 30 00 B8 15 38 04 8B 51 24 B2 |"".1070...8..Q$.| 00000DB0: 22 85 22 A7 31 31 32 30 00 C9 15 42 04 8B 51 24 |".".1120...B..Q$| 00000DC0: B2 22 86 22 A7 31 32 33 30 00 DA 15 4C 04 8B 51 |.".".1230...L..Q| 00000DD0: 24 B2 22 87 22 A7 31 34 30 30 00 EB 15 51 04 8B |$.".".1400...Q..| 00000DE0: 51 24 B2 22 88 22 A7 31 35 30 30 00 11 16 53 04 |Q$.".".1500...S.| 00000DF0: 8B 51 24 B2 C7 28 31 33 29 A7 97 35 33 32 38 31 |.Q$..(13)..53281| 00000E00: 2C 31 31 3A 97 35 33 32 38 30 2C 31 32 3A 89 35 |,11:.53280,12:.5| 00000E10: 30 00 1B 16 56 04 89 31 30 37 30 00 59 16 60 04 |0...V..1070.Y.`.| 00000E20: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,| 00000E30: 31 32 3A 99 22 1C 22 3A 99 22 93 22 3A 99 22 93 |12:.".":.".":.".| 00000E40: 90 12 4E 41 4D 4E 2D 5B 4E 44 52 49 4E 47 20 50 |..NAMN-[NDRING P| 00000E50: 41 20 44 49 53 4B 2E 92 22 00 83 16 6A 04 8D 31 |A DISK.."...j..1| 00000E60: 31 36 30 3A 99 22 11 11 44 45 54 20 47 41 4D 4C |160:."..DET GAML| 00000E70: 41 20 44 49 53 4B 20 4E 41 4D 4E 45 54 3A 20 22 |A DISK NAMNET: "| 00000E80: 3B 4E 24 00 B5 16 74 04 99 22 11 44 45 54 20 4E |;N$...t..".DET N| 00000E90: 59 41 20 44 49 53 4B 20 4E 41 4D 4E 45 54 20 20 |YA DISK NAMNET | 00000EA0: 22 3B 3A 85 46 24 3A 8B C3 28 46 24 29 B1 31 36 |";:.F$:..(F$).16| 00000EB0: A7 31 31 34 30 00 F0 16 7E 04 8D 31 31 39 30 3A |.1140...~..1190:| 00000EC0: 99 22 11 11 4E 41 4D 4E 45 54 20 41 52 20 5B 4E |."..NAMNET AR [N| 00000ED0: 44 52 41 54 22 3A 97 31 39 38 2C 30 3A 92 31 39 |DRAT":.198,0:.19| 00000EE0: 38 2C 31 3A 97 31 39 38 2C 30 3A 89 31 30 30 30 |8,1:.198,0:.1000| 00000EF0: 00 2F 17 88 04 9F 31 35 2C 38 2C 31 35 2C 22 49 |./....15,8,15,"I| 00000F00: 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 31 |0":.2,8,2,"#":.1| 00000F10: 35 2C 22 55 31 3A 22 32 3B 30 3B 31 38 3B 30 3A |5,"U1:"2;0;18;0:| 00000F20: 98 31 35 2C 22 42 2D 50 3A 22 32 3B 31 34 34 00 |.15,"B-P:"2;144.| 00000F30: 56 17 92 04 4E 24 B2 22 22 3A 81 54 B2 31 34 34 |V...N$."":.T.144| 00000F40: A4 31 36 31 3A A1 23 32 2C 41 24 3A 4E 24 B2 4E |.161:.#2,A$:N$.N| 00000F50: 24 AA 41 24 3A 82 00 63 17 9C 04 A0 32 3A A0 31 |$.A$:..c....2:.1| 00000F60: 35 3A 8E 00 A2 17 A6 04 9F 31 35 2C 38 2C 31 35 |5:.......15,8,15| 00000F70: 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,"I0":.2,8,2,"#"| 00000F80: 3A 98 31 35 2C 22 55 31 3A 22 32 3B 30 3B 31 38 |:.15,"U1:"2;0;18| 00000F90: 3B 30 3A 98 31 35 2C 22 42 2D 50 3A 22 32 3B 31 |;0:.15,"B-P:"2;1| 00000FA0: 34 34 00 C1 17 B0 04 81 54 B2 31 A4 C3 28 46 24 |44......T.1..(F$| 00000FB0: 29 3A 98 32 2C CA 28 46 24 2C 54 2C 31 29 3B 3A |):.2,.(F$,T,1);:| 00000FC0: 82 00 E5 17 BA 04 8B C3 28 46 24 29 B3 31 38 A7 |........(F$).18.| 00000FD0: 81 54 B2 C3 28 46 24 29 A4 31 37 3A 98 32 2C 22 |.T..(F$).17:.2,"| 00000FE0: A0 22 3B 3A 82 00 0D 18 C4 04 98 31 35 2C 22 55 |.";:.......15,"U| 00000FF0: 32 3A 22 32 3B 30 3B 31 38 3B 30 3A 98 31 35 2C |2:"2;0;18;0:.15,| 00001000: 22 49 30 22 3A A0 32 3A A0 31 35 3A 8E 00 4D 18 |"I0":.2:.15:..M.| 00001010: CE 04 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |...53280,0:.5328| 00001020: 31 2C 31 32 3A 99 22 1C 22 3A 99 22 93 12 90 5B |1,12:.".":."...[| 00001030: 4E 44 52 49 4E 47 20 41 56 20 44 49 53 4B 45 54 |NDRING AV DISKET| 00001040: 54 45 4E 53 20 49 44 20 4B 4F 44 92 22 00 75 18 |TENS ID KOD.".u.| 00001050: D8 04 8D 31 32 37 30 3A 99 22 11 11 44 45 4E 20 |...1270:."..DEN | 00001060: 47 41 4D 4C 41 20 49 44 20 4B 4F 44 45 4E 3A 20 |GAMLA ID KODEN: | 00001070: 22 3B 49 44 24 00 A6 18 E2 04 99 22 11 11 44 45 |";ID$......"..DE| 00001080: 4E 20 4E 59 41 20 49 44 20 4B 4F 44 45 4E 3A 20 |N NYA ID KODEN: | 00001090: 22 3B 3A 85 4E 44 24 3A 8B C3 28 4E 44 24 29 B1 |";:.ND$:..(ND$).| 000010A0: 32 A7 31 32 35 30 00 E0 18 EC 04 8D 31 33 30 30 |2.1250......1300| 000010B0: 3A 99 22 11 11 49 44 20 4B 4F 44 45 4E 20 5B 4E |:."..ID KODEN [N| 000010C0: 44 52 41 44 22 3A 97 31 39 38 2C 30 3A 92 31 39 |DRAD":.198,0:.19| 000010D0: 38 2C 31 3A 97 31 39 38 2C 30 3A 89 31 30 30 30 |8,1:.198,0:.1000| 000010E0: 00 1F 19 F6 04 9F 31 35 2C 38 2C 31 35 2C 22 49 |......15,8,15,"I| 000010F0: 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 31 |0":.2,8,2,"#":.1| 00001100: 35 2C 22 55 31 3A 22 32 3B 30 3B 31 38 3B 30 3A |5,"U1:"2;0;18;0:| 00001110: 98 31 35 2C 22 42 2D 50 3A 22 32 3B 31 36 32 00 |.15,"B-P:"2;162.| 00001120: 49 19 00 05 49 44 24 B2 22 22 3A 81 54 B2 31 36 |I...ID$."":.T.16| 00001130: 32 A4 31 36 33 3A A1 23 32 2C 41 24 3A 49 44 24 |2.163:.#2,A$:ID$| 00001140: B2 49 44 24 AA 41 24 3A 82 00 56 19 0A 05 A0 32 |.ID$.A$:..V....2| 00001150: 3A A0 31 35 3A 8E 00 95 19 14 05 9F 31 35 2C 38 |:.15:.......15,8| 00001160: 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C |,15,"I0":.2,8,2,| 00001170: 22 23 22 3A 98 31 35 2C 22 55 31 3A 22 32 3B 30 |"#":.15,"U1:"2;0| 00001180: 3B 31 38 3B 30 3A 98 31 35 2C 22 42 2D 50 3A 22 |;18;0:.15,"B-P:"| 00001190: 32 3B 31 36 32 00 B1 19 1E 05 81 54 B2 31 A4 32 |2;162......T.1.2| 000011A0: 3A 98 32 2C CA 28 4E 44 24 2C 54 2C 31 29 3B 3A |:.2,.(ND$,T,1);:| 000011B0: 82 00 D9 19 28 05 98 31 35 2C 22 55 32 3A 22 32 |....(..15,"U2:"2| 000011C0: 3B 30 3B 31 38 3B 30 3A 98 31 35 2C 22 49 30 22 |;0;18;0:.15,"I0"| 000011D0: 3A A0 32 3A A0 31 35 3A 8E 00 F4 19 78 05 8F 20 |:.2:.15:....x.. | 000011E0: 2A 2A 2A 20 53 43 52 41 54 43 48 20 46 49 4C 45 |*** SCRATCH FILE| 000011F0: 20 2A 2A 2A 00 23 1A 82 05 85 20 22 93 53 43 52 | ***.#.... ".SCR| 00001200: 41 54 43 48 20 46 49 4C 45 20 4E 41 4D 4E 3A 22 |ATCH FILE NAMN:"| 00001210: 3B 4E 24 3A 99 22 53 5B 4B 45 52 3F 20 28 4A 2F |;N$:."S[KER? (J/| 00001220: 4E 29 22 00 59 1A 8C 05 A1 41 24 3A 8B 41 24 B2 |N)".Y....A$:.A$.| 00001230: 22 4A 22 A7 9F 31 35 2C 38 2C 31 35 2C 22 53 30 |"J"..15,8,15,"S0| 00001240: 3A 22 AA 4E 24 3A 84 31 35 2C 45 2C 45 24 3A A0 |:".N$:.15,E,E$:.| 00001250: 31 35 3A 89 20 31 36 30 30 00 6B 1A 96 05 8B 41 |15:. 1600.k....A| 00001260: 24 B3 B1 22 4E 22 A7 31 34 32 30 00 76 1A A0 05 |$.."N".1420.v...| 00001270: 89 20 31 30 30 30 00 90 1A DC 05 8F 20 2A 2A 2A |. 1000...... ***| 00001280: 20 52 45 4E 41 4D 45 20 46 49 4C 45 20 2A 2A 2A | RENAME FILE ***| 00001290: 00 D0 1A E6 05 85 20 22 93 4F 4C 44 20 20 46 49 |...... ".OLD FI| 000012A0: 4C 45 20 4E 41 4D 4E 3A 22 3B 4F 24 3A 85 22 4E |LE NAMN:";O$:."N| 000012B0: 45 57 20 46 49 4C 45 20 4E 41 4D 45 22 3B 4E 24 |EW FILE NAME";N$| 000012C0: 3A 99 22 53 5B 4B 45 52 3F 20 28 4A 2F 4E 29 22 |:."S[KER? (J/N)"| 000012D0: 00 0E 1B F0 05 A1 41 24 3A 8B 41 24 B2 22 4A 22 |......A$:.A$."J"| 000012E0: A7 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 22 AA |..15,8,15,"R0:".| 000012F0: 4E 24 AA 22 3D 30 3A 22 AA 4F 24 3A 84 31 35 2C |N$."=0:".O$:.15,| 00001300: 45 2C 45 24 3A A0 31 35 3A 89 31 36 30 30 00 20 |E,E$:.15:.1600. | 00001310: 1B FA 05 8B 41 24 B3 B1 22 4E 22 A7 31 35 32 30 |....A$.."N".1520| 00001320: 00 2B 1B 04 06 89 20 31 30 30 30 00 45 1B 40 06 |.+.... 1000.E.@.| 00001330: 99 45 24 3A 81 49 B2 31 A4 32 30 30 30 3A 82 3A |.E$:.I.1.2000:.:| 00001340: 89 31 30 30 30 00 8F 1B 40 1F 4D 53 24 B2 22 12 |.1000...@.MS$.".| 00001350: 9F 28 43 29 20 31 39 38 35 20 50 45 52 2D 5D 4B |.(C) 1985 PER-]K| 00001360: 45 20 4E 49 4C 53 53 4F 4E 22 AA C7 28 31 33 29 |E NILSSON"..(13)| 00001370: AA 22 91 05 20 20 20 20 20 20 56 5B 4C 4A 20 4B |.".. V[LJ K| 00001380: 4F 4D 4D 41 4E 44 4F 20 20 20 20 20 20 20 22 00 |OMMANDO ".| 00001390: BD 1B 4A 1F 99 CA 28 4D 53 24 2C 58 2C 31 29 3B |..J...(MS$,X,1);| 000013A0: 3A 58 B2 58 AA 31 3A 8B 58 B1 35 34 A7 58 B2 31 |:X.X.1:.X.54.X.1| 000013B0: 3A 9E 34 39 31 36 37 28 31 2C 32 32 29 00 C3 1B |:.49167(1,22)...| 000013C0: 54 1F 8E 00 00 00 |T..... |
....... "..*** CATALOGER ***.&.... "...D
....B(49152)..76.."ML 4",8,1.J....DI$(15
00):T$." ".P.".:...#..".
. ***** MENY *****...$..".....(..53281
,11:.53280,12:AF.0...2.."..";AF;"FILER .
... DISK-BIBLIOTEK
":.49170.D.<..". F1...L[S DIRECTOR
Y":.". F3...SORTERA":.". F5...EDIT
ERA"...F..". F7...UTSKRIFT":.". F2
...DISKKOMMANDO":.". F4...DIR".B.P.."
. F6...LOAD":.". F8...SAVE":X.1:.4
9167(1,22)...Z..A$:.8000:.A$."."..710:.5
20:.50...D..A$."."..400:. LOAD...I..A$."
.". .".";:.49164.>.J..A$."."..198,0:. 19
8,1:.198,0:.50.V.N..A$."."..450:. SAVE.G
.X..A$.".".1000.W....A$.".".800......A$.
".".240:. EDITERA......A$..".".90... .:.
L...."..***** PRINTER ROUTINE ******.V..
.. "........6,4,6:.6,G(27): 6:. LINE SPA
CING.>.... ".PLACE FOR KOL.... 32....";K
2$:.K2$."30".K2$."50".K2$."46".R...."..H
EADER";HE$.G...."...PRINTING!!"...H..4,4
:P..(AF.2).1:Q$.G(16).K2$...M..4," "G(
14)HE$:.4.N.R..I.1.P:.4," "DI$(I)Q$DI$
(I.P):.: 4:.50...... *******************
***********"........ "..****** E D I T
*******.".... "...Y...E$."...** I=INSER
T D=DEL E=EDIT <RET>=NEXT **..".....W$
.".
.."......N.1.AF.18:.49170.G....E$:.J.
N.N.17:.J..AF..J;DI$(J).M.......".."...]
TG[RD: D/E/I/RET"...,..A$:.A$."".300...6
..A$.."D".330.B.;.."D:NUMMER";R$:U.0:.T.
1.C(R$):.J(R$,T,1)."-".U.T.^.<..:.U.0.E.
E(R$):R.1:.320...=.E.E(H(R$,U.1)):R.E(J(
R$,U.1)).E.1...@..I.E.AF.R:DI$(I).DI$(I.
R):.:AF.AF.R:.W$:.270...J..A$."E".."E:NU
MMER";E:." "DI$(E)".":.DI$(E):.W$:.270.
..T..A$.."I".370.<.^.."I:F\RE NUMMER";E:
.I.AF.E..1:DI$(I.1).DI$(I):.:AF.AF.1.^.H
.."NY FIL";DI$(E):.W$:.W$:.270.Q.R..A$..
G(13).300.|.|..N:.50.....:......".. ***
** LOAD *******......"...Q....".
.LOAD:....FILENS NAMN";N$...... 15,8,15:
.2,8,2,N$.",S,R":.500...... E..0. 2: 15:
.I.1.1000::.:.50.F....2,AF:.I.1.AF:.2,DI
$(I):.: 2:.500: 15:.50.L...:.O.B..".. *
***** SAVE ******.Y.C.. ".....L.."
..SAVE:....FILENS NAMN";N$...V..15,8,15:
.2,8,2,N$.",S,W":.500......E..0. 2: 15:.
I.1.1000::.:.50......2,AF:.I.1.AF:.2,DI$
(I):.: 2:.500: 15:.50.$....15,E,E$:.E..0
..E$.*.....0...:.Y...."..******** L[S DI
R SUBRUTIN ******.C.... "...W....1,8,15,
"IO": 1......1,8,0,"$0":.I.0.7:.#1,A$:..
G.&.DN$."":.I.8.23:.#1,A$:DN$.DN$.A$:.:.
"."DN$,...0.ID$."":.#1,A$,A$:.I.26.31:.#
1,A$:ID$.ID$.A$:.:ID$.H(ID$,2)...:..ID$.
#.D..I.0.1:.#1,A$:..S.N.BL.0:.I.0.1:.#1,
A$:BL.BL.F(A$.G(0)).256.I:..J.X..#1,A$:.
A$."B".690.V.B.AF.AF.1...L..#1,A$:.A$.G(
32).620...V.FL$.""......#1,A$:.A$..G(34)
.FL$.FL$.A$:.640.Y....#1,A$:.A$.G(32).65
0.....TP$.A$:.I.1.2:.#1,A$:TP$.TP$.A$:..
.....#1,A$:.A$.."".670.0...DI$(AF).FL$:.
DI$(AF);.A....Q$."U"..750.L....:.580.U..
. 1:..|.... ****************************
****...F..".":."L[S IN .A.LLA ELLER .U.R
VAL A...";Q$:.Q$.."A".Q$.."U"....P..".
.L[SER DIRECTORY":........35)".J/N.";...
...A$:.A$."J"..".. ";:..(....A$."N".AF.
AF.1:."... ";:..1....760.T.... ".. ****
** SORTERING *******.^.... "..... .."...
SORTERA:":.".. SORTERA EFTER .N.AMN ELL
ER .D.ISKID...N...";A$...*..A$."N"..5328
0,2:.49155,AF.1,DI$(0):.53280,12:.50...4
..A$.G(13).50...>..A$.."D".800.-.H..I.1.
AF:DI$(I).J(DI$(I),17).H(DI$(I),16):..D.
R..49155,AF.1,DI$(0).}.\..I.1.AF:DI$(I).
I(DI$(I),16).H(DI$(I),C(DI$(I)).16):....
F..50...... "..****** DISKKOMMANDON ****
***...... "...L....53280,2:.53281,12....
..".... DISK-KOMMANDON
."......"...F1...[NDRA DISKNAMN".
<...."....F3...[NDRA DISKID".Y...."....F
5...SCRATCH FILE".V.$.."....F7...RENAME
FILE"...)..".....<RET> RETUR MENY".....
.Q$:.Q$."".1070...8..Q$.".".1120.I.B..Q$
.".".1230.Z.L..Q$.".".1400...Q..Q$.".".1
500...S..Q$.G(13)..53281,11:.53280,12:.5
0...V..1070.Y.`..53280,0:.53281,12:.".":
.".":."...NAMN-[NDRING PA DISK.."...J..1
160:."..DET GAMLA DISK NAMNET: ";N$...T.
.".DET NYA DISK NAMNET ";:.F$:.C(F$).16
.1140...~..1190:."..NAMNET AR [NDRAT":.1
98,0:.198,1:.198,0:.1000./....15,8,15,"I
0":.2,8,2,"#":.15,"U1:"2;0;18;0:.15,"B-P
:"2;144.V...N$."":.T.144.161:.#2,A$:N$.N
$.A$:..C... 2: 15:.......15,8,15,"I0":.2
,8,2,"#":.15,"U1:"2;0;18;0:.15,"B-P:"2;1
44.A....T.1.C(F$):.2,J(F$,T,1);:.......C
(F$).18..T.C(F$).17:.2," ";:....D..15,"U
2:"2;0;18;0:.15,"I0": 2: 15:..M.N..53280
,0:.53281,12:.".":."...[NDRING AV DISKET
TENS ID KOD.".U.X..1270:."..DEN GAMLA ID
KODEN: ";ID$......"..DEN NYA ID KODEN:
";:.ND$:.C(ND$).2.1250......1300:."..ID
KODEN [NDRAD":.198,0:.198,1:.198,0:.1000
......15,8,15,"I0":.2,8,2,"#":.15,"U1:"2
;0;18;0:.15,"B-P:"2;162.I...ID$."":.T.16
2.163:.#2,A$:ID$.ID$.A$:..V... 2: 15:...
....15,8,15,"I0":.2,8,2,"#":.15,"U1:"2;0
;18;0:.15,"B-P:"2;162......T.1.2:.2,J(ND
$,T,1);:..Y.(..15,"U2:"2;0;18;0:.15,"I0"
: 2: 15:....X.. *** SCRATCH FILE ***.#..
.. ".SCRATCH FILE NAMN:";N$:."S[KER? (J/
N)".Y....A$:.A$."J"..15,8,15,"S0:".N$:.1
5,E,E$: 15:. 1600.K....A$.."N".1420.V. .
. 1000...... *** RENAME FILE ***.P.... "
.OLD FILE NAMN:";O$:."NEW FILE NAME";N$
:."S[KER? (J/N)"......A$:.A$."J"..15,8,1
5,"R0:".N$."=0:".O$:.15,E,E$: 15:.1600.
....A$.."N".1520.+.... 1000.E.@..E$:.I.1
.2000:.:.1000...@.MS$."..(C) 1985 PER-]K
E NILSSON".G(13).".. V[LJ KOMMANDO
"...J..J(MS$,X,1);:X.X.1:.X.54.X.1
:.49167(1,22).C.T.....
> CLICK IMAGE PREVIEW FOR FULL MODAL