BEARBETAD RE FIL
FILE INFORMATION
FILENAME(S): BEARBETAD RE FIL
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-12-01 13:42:18
APPEARS ON: 1 disk(s)
FILE HASH
1ecfeccf058d125bbff42b4236983c2e1392f60924d3f6c9541ae5b1fc8421c3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTSKIVA | BEARBETAD RE FIL | PRG | hedning, Tobias | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 01 00 97 20 35 33 32 38 30 2C 30 3A |..".... 53280,0:|
00000010: 97 35 33 32 38 31 2C 30 3A 97 35 36 33 32 35 2C |.53281,0:.56325,|
00000020: 32 35 00 54 08 02 00 99 22 93 22 3A 99 22 11 11 |25.T....".":."..|
00000030: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000040: 1D 1D 1D 1D 1D 05 42 45 41 52 42 45 54 41 54 20 |......BEARBETAT |
00000050: 41 56 20 22 00 7B 08 03 00 99 22 11 1D 1D 1D 1D |AV ".{....".....|
00000060: 1D 1D 1D 1D 1D 1D 1D 1D 1E 12 49 4E 47 56 41 52 |..........INGVAR|
00000070: 20 4C 55 4E 44 48 4F 4C 4D 92 22 00 A1 08 04 00 | LUNDHOLM.".....|
00000080: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000090: 05 41 42 46 20 54 52 4F 4C 4C 48 41 54 54 41 4E |.ABF TROLLHATTAN|
000000A0: 22 00 EC 08 05 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"......"........|
000000B0: 1D 1D 1D 1F 4B 4F 50 49 45 52 49 4E 47 20 46 4F |....KOPIERING FO|
000000C0: 52 42 4A 55 44 45 53 22 3A 99 22 11 11 9D 9D 9D |RBJUDES":.".....|
000000D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000000E0: 9D 9D 9D 54 52 59 43 4B 20 46 31 22 00 03 09 06 |...TRYCK F1"....|
000000F0: 00 A1 20 51 24 3A 8B 20 51 24 20 B2 22 22 20 A7 |.. Q$:. Q$ ."" .|
00000100: 20 20 36 00 16 09 07 00 8B 20 51 24 B2 22 85 22 | 6...... Q$."."|
00000110: A7 20 89 20 31 30 00 1E 09 08 00 89 20 36 00 3C |. . 10...... 6.<|
00000120: 09 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5A 09 0C |************.Z..|
00000140: 00 8F 20 2A 20 52 41 4E 44 4F 4D 20 46 49 4C 45 |.. * RANDOM FILE|
00000150: 20 45 58 41 4D 50 4C 45 20 2A 00 78 09 0E 00 8F | EXAMPLE *.x....|
00000160: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 00 99 09 10 00 86 49 24 |********......I$|
00000180: 28 36 36 34 29 3A 46 44 B2 30 3A 46 58 B2 35 3A |(664):FD.0:FX.5:|
00000190: 43 48 B2 32 3A 46 50 B2 31 00 BB 09 12 00 99 22 |CH.2:FP.1......"|
000001A0: 93 11 11 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000001B0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 DD 09 14 00 |..........".....|
000001C0: 99 22 1C 20 20 49 4E 53 45 52 54 20 44 41 54 41 |.". INSERT DATA|
000001D0: 20 53 48 45 45 54 20 D4 41 42 46 20 22 00 FB 09 | SHEET .ABF "...|
000001E0: 16 00 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..."............|
000001F0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 19 0A 18 00 |..........".....|
00000200: 99 22 11 11 20 20 20 53 54 41 52 54 41 20 54 52 |.".. STARTA TR|
00000210: 59 43 4B 20 27 46 31 27 22 00 2D 0A 1A 00 A1 50 |YCK 'F1'".-....P|
00000220: 24 3A 8B 50 24 B3 B1 22 85 22 A7 32 36 00 4A 0A |$:.P$..".".26.J.|
00000230: 1C 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A |...15,8,15,"I0":|
00000240: 9F 32 2C 38 2C 32 2C 22 23 22 00 6B 0A 1E 00 99 |.2,8,2,"#".k....|
00000250: 22 93 11 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |"...............|
00000260: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 88 0A 20 00 |.........."... .|
00000270: 99 22 1C 49 4E 44 45 58 20 46 49 4C 45 20 4F 50 |.".INDEX FILE OP|
00000280: 45 52 41 54 49 4F 4E 22 00 A7 0A 22 00 99 22 05 |ERATION"..."..".|
00000290: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000002A0: C4 C4 C4 C4 C4 C4 22 00 CB 0A 24 00 85 22 11 1F |......"...$.."..|
000002B0: 20 20 20 20 4E 45 57 20 53 48 45 45 54 3F 20 4E | NEW SHEET? N|
000002C0: 9D 9D 9D 22 3B 4F 24 3A 99 22 22 00 DA 0A 26 00 |...";O$:.""...&.|
000002D0: 8B 4F 24 B2 22 4E 22 A7 34 36 00 EA 0A 28 00 8B |.O$."N".46...(..|
000002E0: 4F 24 B3 B1 22 59 22 A7 33 36 00 07 0B 2A 00 99 |O$.."Y".36...*..|
000002F0: 3A 99 22 1C 20 20 20 20 57 41 49 54 21 22 3A 81 |:.". WAIT!":.|
00000300: 49 B2 31 A4 36 36 34 00 38 0B 2C 00 99 22 13 1D |I.1.664.8.,.."..|
00000310: 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 |................|
00000320: 11 11 20 20 20 20 9D 9D 9D 9D 9D 22 49 3B 3A 49 |.. ....."I;:I|
00000330: 24 28 49 29 B2 22 2F 22 00 49 0B 2D 00 99 49 24 |$(I)."/".I.-..I$|
00000340: 28 49 29 3A 82 3A 89 35 30 00 62 0B 2E 00 9F 35 |(I):.:.50.b....5|
00000350: 2C 38 2C 35 2C 22 30 3A 49 4E 44 45 58 2C 53 2C |,8,5,"0:INDEX,S,|
00000360: 52 22 00 78 0B 2F 00 81 49 B2 31 A4 36 36 34 3A |R".x./..I.1.664:|
00000370: 84 35 2C 49 24 28 49 29 00 A6 0B 30 00 99 22 13 |.5,I$(I)...0..".|
00000380: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1C 57 |...............W|
00000390: 41 49 54 21 20 20 20 20 20 9D 9D 9D 9D 9D 22 49 |AIT! ....."I|
000003A0: 3B 49 24 28 49 29 00 B0 0B 31 00 82 49 3A A0 35 |;I$(I)...1..I:.5|
000003B0: 00 D1 0B 32 00 99 22 93 11 05 C6 C6 C6 C6 C6 C6 |...2..".........|
000003C0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000003D0: 22 00 EF 0B 34 00 99 22 1C 20 20 20 20 20 4A 4F |"...4..". JO|
000003E0: 42 20 4D 45 4E 55 20 20 20 20 20 20 20 20 22 00 |B MENU ".|
000003F0: 0E 0C 36 00 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..6.."..........|
00000400: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 14 |............."..|
00000410: 0C 38 00 99 00 29 0C 3A 00 99 22 1F 20 20 20 20 |.8...).:..". |
00000420: 31 3D 43 52 45 41 54 45 22 00 3E 0C 3C 00 99 22 |1=CREATE".>.<.."|
00000430: 1F 20 20 20 20 32 3D 44 45 4C 45 54 45 22 00 53 |. 2=DELETE".S|
00000440: 0C 3E 00 99 22 1F 20 20 20 20 33 3D 53 45 41 52 |.>..". 3=SEAR|
00000450: 43 48 22 00 65 0C 40 00 99 22 1F 20 20 20 20 30 |CH".e.@..". 0|
00000460: 3D 45 4E 44 22 00 6B 0C 41 00 99 00 8B 0C 42 00 |=END".k.A.....B.|
00000470: 85 22 1C 31 20 2C 20 32 20 2C 20 33 20 2C 20 30 |.".1 , 2 , 3 , 0|
00000480: 20 20 20 31 9D 9D 9D 22 3B 4F 24 00 A3 0C 44 00 | 1...";O$...D.|
00000490: 8B 4F 24 B2 22 30 22 A7 A0 31 35 3A A0 35 3A A0 |.O$."0"..15:.5:.|
000004A0: 32 3A 80 00 B3 0C 46 00 8B 4F 24 B2 22 31 22 A7 |2:....F..O$."1".|
000004B0: 31 30 34 00 C3 0C 48 00 8B 4F 24 B2 22 33 22 A7 |104...H..O$."3".|
000004C0: 33 30 30 00 D3 0C 4A 00 8B 4F 24 B3 B1 22 32 22 |300...J..O$.."2"|
000004D0: A7 35 30 00 DC 0C 4C 00 89 32 30 30 00 FA 0C 64 |.50...L..200...d|
000004E0: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 18 0D 66 00 8F |**********...f..|
00000500: 20 2A 20 4D 41 53 54 45 52 20 46 49 4C 45 20 43 | * MASTER FILE C|
00000510: 52 45 41 54 45 20 20 2A 00 36 0D 67 00 8F 20 2A |REATE *.6.g.. *|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000530: 2A 2A 2A 2A 2A 2A 00 58 0D 68 00 99 22 93 11 11 |******.X.h.."...|
00000540: 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000550: C6 C6 C6 C6 C6 C6 C6 22 00 75 0D 69 00 99 22 1C |.......".u.i..".|
00000560: 20 A0 4D 41 53 54 45 52 20 46 49 4C 45 20 43 52 | .MASTER FILE CR|
00000570: 45 41 54 45 22 00 94 0D 6A 00 99 22 05 C4 C4 C4 |EATE"...j.."....|
00000580: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000590: C4 C4 C4 22 00 AF 0D 6B 00 85 22 52 45 43 4F 52 |..."...k.."RECOR|
000005A0: 44 20 4E 4F 2E 20 3D 20 30 9D 9D 9D 22 3B 46 00 |D NO. = 0...";F.|
000005B0: BD 0D 6D 00 8B 20 46 B2 30 A7 31 37 30 00 DB 0D |..m.. F.0.170...|
000005C0: 6E 00 85 22 1C 4E 41 4D 45 20 20 20 20 20 3D 2E |n..".NAME =.|
000005D0: 9D 9D 9D 22 3B 46 42 24 28 31 29 00 F9 0D 78 00 |...";FB$(1)...x.|
000005E0: 85 22 1C 41 44 44 52 45 53 53 20 20 3D 2E 9D 9D |.".ADDRESS =...|
000005F0: 9D 22 3B 46 42 24 28 32 29 00 17 0E 82 00 85 22 |.";FB$(2)......"|
00000600: 1C 5A 49 50 20 20 20 20 20 20 3D 2E 9D 9D 9D 22 |.ZIP =...."|
00000610: 3B 46 42 24 28 33 29 00 35 0E 84 00 85 22 1C 54 |;FB$(3).5....".T|
00000620: 45 4C 20 20 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 |EL =....";F|
00000630: 42 24 28 34 29 00 53 0E 86 00 85 22 1C 43 4F 4D |B$(4).S....".COM|
00000640: 4D 45 4E 54 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 |MENT =....";FB$|
00000650: 28 35 29 00 5D 0E 8C 00 8D 35 32 30 30 00 6C 0E |(5).]....5200.l.|
00000660: 96 00 49 24 28 46 29 B2 22 1F 31 22 00 75 0E A0 |..I$(F).".1".u..|
00000670: 00 89 31 30 34 00 8F 0E AA 00 9F 35 2C 38 2C 35 |..104......5,8,5|
00000680: 2C 22 40 30 3A 49 4E 44 45 58 2C 53 2C 57 22 00 |,"@0:INDEX,S,W".|
00000690: AC 0E AF 00 81 49 B2 31 A4 36 36 34 3A 98 35 2C |.....I.1.664:.5,|
000006A0: 49 24 28 49 29 3B C7 28 31 33 29 3B 00 DA 0E B4 |I$(I);.(13);....|
000006B0: 00 99 22 13 11 11 11 11 11 11 11 11 1D 1D 1D 1D |..".............|
000006C0: 1D 1D 1C 57 41 49 54 21 20 20 20 20 20 9D 9D 9D |...WAIT! ...|
000006D0: 9D 9D 22 49 3B 49 24 28 49 29 00 E3 0E B9 00 82 |.."I;I$(I)......|
000006E0: 3A A0 35 00 EB 0E BE 00 89 37 34 00 09 0F C8 00 |:.5......74.....|
000006F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 27 0F C9 00 8F 20 |*********.'.... |
00000710: 2A 20 20 4D 41 53 54 45 52 20 46 49 4C 45 20 44 |* MASTER FILE D|
00000720: 45 4C 45 54 45 20 2A 00 45 0F CA 00 8F 20 2A 2A |ELETE *.E.... **|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000740: 2A 2A 2A 2A 2A 00 67 0F D2 00 99 22 93 11 11 05 |*****.g...."....|
00000750: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000760: C6 C6 C6 C6 C6 C6 22 00 84 0F D4 00 99 22 1C 20 |......"......". |
00000770: 20 4D 41 53 54 45 52 20 46 49 4C 45 20 44 45 4C | MASTER FILE DEL|
00000780: 45 54 45 22 00 A5 0F D6 00 99 22 05 C4 C4 C4 C4 |ETE"......".....|
00000790: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000007A0: C4 C4 22 3A 99 00 C1 0F DC 00 85 22 1F 52 45 43 |..":.......".REC|
000007B0: 4F 52 44 20 4E 4F 2E 20 3D 20 30 9D 9D 9D 22 3B |ORD NO. = 0...";|
000007C0: 46 00 CE 0F E6 00 8B 46 B2 30 A7 32 36 30 00 E2 |F......F.0.260..|
000007D0: 0F EB 00 8B 49 24 28 46 29 B3 B1 22 31 22 A7 32 |....I$(F).."1".2|
000007E0: 32 30 00 0B 10 F0 00 49 24 28 46 29 B2 22 2F 22 |20.....I$(F)."/"|
000007F0: 3A 99 22 11 1F 52 45 43 4F 52 44 20 4E 4F 2E 22 |:."..RECORD NO."|
00000800: 46 3B 22 1C 44 45 4C 45 54 45 22 00 14 10 FA 00 |F;".DELETE".....|
00000810: 89 32 32 30 00 2E 10 04 01 9F 35 2C 38 2C 35 2C |.220......5,8,5,|
00000820: 22 40 30 3A 49 4E 44 45 58 2C 53 2C 57 22 00 4B |"@0:INDEX,S,W".K|
00000830: 10 09 01 81 49 B2 31 A4 36 36 34 3A 98 35 2C 49 |....I.1.664:.5,I|
00000840: 24 28 49 29 3B C7 28 31 33 29 3B 00 77 10 0E 01 |$(I);.(13);.w...|
00000850: 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1C |."..............|
00000860: 57 41 49 54 21 20 20 20 20 20 9D 9D 9D 9D 9D 22 |WAIT! ....."|
00000870: 49 3B 49 24 28 49 29 00 80 10 13 01 82 3A A0 35 |I;I$(I)......:.5|
00000880: 00 90 10 18 01 99 C7 28 31 34 37 29 3A 89 35 30 |.......(147):.50|
00000890: 00 AE 10 2C 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...,.. *********|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CC |**************..|
000008B0: 10 2D 01 8F 20 2A 20 20 46 49 4C 45 20 53 45 41 |.-.. * FILE SEA|
000008C0: 52 43 48 20 20 20 20 20 20 20 20 2A 00 EA 10 2E |RCH *....|
000008D0: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 11 36 01 99 |**********...6..|
000008F0: 22 93 11 11 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |"...............|
00000900: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 29 11 38 |...........".).8|
00000910: 01 99 22 1C 20 20 20 20 20 20 20 53 45 41 52 43 |..". SEARC|
00000920: 48 20 20 20 20 20 20 20 22 00 4A 11 3A 01 99 22 |H ".J.:.."|
00000930: 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000940: C4 C4 C4 C4 C4 C4 C4 22 3A 99 00 66 11 40 01 85 |.......":..f.@..|
00000950: 22 1F 52 45 43 4F 52 44 20 4E 4F 2E 20 3D 20 30 |".RECORD NO. = 0|
00000960: 9D 9D 9D 22 3B 46 00 72 11 41 01 8B 46 B2 30 A7 |...";F.r.A..F.0.|
00000970: 35 30 00 86 11 42 01 8B 49 24 28 46 29 B3 B1 22 |50...B..I$(F).."|
00000980: 31 22 A7 33 32 30 00 90 11 45 01 8D 35 31 30 30 |1".320...E..5100|
00000990: 00 AB 11 68 01 99 22 1C 4E 41 4D 45 20 20 A0 A0 |...h..".NAME ..|
000009A0: 20 3D 20 22 3B 46 42 24 28 31 29 00 C6 11 72 01 | = ";FB$(1)...r.|
000009B0: 99 22 1C 41 44 44 52 45 53 53 20 20 3D 20 22 3B |.".ADDRESS = ";|
000009C0: 46 42 24 28 32 29 00 E1 11 7C 01 99 22 1C 5A 49 |FB$(2)...|..".ZI|
000009D0: 50 20 20 20 A0 A0 20 3D 20 22 3B 46 42 24 28 33 |P .. = ";FB$(3|
000009E0: 29 00 FC 11 7E 01 99 22 1C 54 45 4C 20 20 20 A0 |)...~..".TEL .|
000009F0: A0 20 3D 20 22 3B 46 42 24 28 34 29 00 17 12 7F |. = ";FB$(4)....|
00000A00: 01 99 22 1C 43 4F 4D 4D 45 4E 54 A0 20 3D 20 22 |..".COMMENT. = "|
00000A10: 3B 46 42 24 28 35 29 00 35 12 81 01 99 22 9E 2D |;FB$(5).5....".-|
00000A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000A30: 2D 2D 2D 2D 22 00 3E 12 86 01 89 33 32 30 00 5C |----".>....320.\|
00000A40: 12 EC 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7A 12 F1 |************.z..|
00000A60: 13 8F 20 2A 20 46 44 44 20 42 4C 4F 43 4B 20 52 |.. * FDD BLOCK R|
00000A70: 45 41 44 20 20 20 20 20 20 2A 00 98 12 F4 13 8F |EAD *......|
00000A80: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 00 A2 12 F6 13 8D 35 33 |********......53|
00000AA0: 33 30 00 BC 12 00 14 98 31 35 2C 22 55 31 3A 22 |30......15,"U1:"|
00000AB0: 3B 43 48 3B 46 44 3B 46 54 3B 46 53 00 D1 12 0A |;CH;FD;FT;FS....|
00000AC0: 14 98 31 35 2C 22 42 2D 50 3A 22 3B 43 48 3B 46 |..15,"B-P:";CH;F|
00000AD0: 50 00 DB 12 14 14 8D 35 32 37 30 00 E8 12 1E 14 |P......5270.....|
00000AE0: 81 46 49 B2 31 A4 46 58 00 F9 12 28 14 84 43 48 |.FI.1.FX...(..CH|
00000AF0: 2C 46 42 24 28 46 49 29 3A 00 FF 12 3C 14 82 00 |,FB$(FI):...<...|
00000B00: 05 13 46 14 8E 00 23 13 50 14 8F 20 2A 2A 2A 2A |..F...#.P.. ****|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B20: 2A 2A 2A 00 41 13 51 14 8F 20 2A 20 46 44 44 20 |***.A.Q.. * FDD |
00000B30: 42 4C 4F 43 4B 20 57 52 49 54 45 20 20 20 20 20 |BLOCK WRITE |
00000B40: 2A 00 5F 13 52 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*._.R.. ********|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000B60: 69 13 5A 14 8D 35 33 33 30 00 7E 13 64 14 98 31 |i.Z..5330.~.d..1|
00000B70: 35 2C 22 42 2D 50 3A 22 3B 43 48 3B 46 50 00 A0 |5,"B-P:";CH;FP..|
00000B80: 13 6E 14 81 46 49 B2 31 A4 46 58 3A 98 43 48 2C |.n..FI.1.FX:.CH,|
00000B90: 46 42 24 28 46 49 29 3B C7 28 31 33 29 3B 3A 82 |FB$(FI);.(13);:.|
00000BA0: 00 BA 13 78 14 98 31 35 2C 22 55 32 3A 22 3B 43 |...x..15,"U2:";C|
00000BB0: 48 3B 46 44 3B 46 54 3B 46 53 00 C4 13 82 14 8D |H;FD;FT;FS......|
00000BC0: 35 32 37 30 00 CA 13 8C 14 8E 00 E8 13 96 14 8F |5270............|
00000BD0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 06 14 9B 14 8F 20 2A |********...... *|
00000BF0: 20 20 45 52 52 4F 52 20 43 48 45 43 4B 20 20 20 | ERROR CHECK |
00000C00: 20 20 20 20 20 2A 00 24 14 9E 14 8F 20 2A 2A 2A | *.$.... ***|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C20: 2A 2A 2A 2A 00 39 14 A0 14 84 31 35 2C 45 4E 2C |****.9....15,EN,|
00000C30: 45 4D 24 2C 45 54 2C 45 53 00 45 14 AA 14 8B 45 |EM$,ET,ES.E....E|
00000C40: 4E B2 30 A7 8E 00 67 14 B4 14 99 22 45 52 52 4F |N.0...g...."ERRO|
00000C50: 52 20 53 54 41 54 55 53 3A 22 3B 45 4E 3B 45 4D |R STATUS:";EN;EM|
00000C60: 24 3B 45 54 3B 45 53 00 85 14 BE 14 85 22 43 4F |$;ET;ES......"CO|
00000C70: 4E 54 49 4E 55 45 3F 22 3B 59 24 3A 8B 59 24 B2 |NTINUE?";Y$:.Y$.|
00000C80: 22 59 22 A7 8E 00 8B 14 C8 14 90 00 A9 14 CA 14 |"Y".............|
00000C90: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 14 CC 14 8F 20 |*********...... |
00000CB0: 2A 20 53 45 54 20 54 52 41 43 4B 20 26 20 53 45 |* SET TRACK & SE|
00000CC0: 43 54 4F 52 20 20 2A 00 E5 14 CE 14 8F 20 2A 2A |CTOR *...... **|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 2A 2A 2A 00 06 15 D2 14 8B 46 B3 33 35 38 |*****......F.358|
00000CF0: A7 46 31 B2 30 3A 46 32 B2 32 32 3A 46 33 B2 31 |.F1.0:F2.22:F3.1|
00000D00: 3A 89 35 33 37 30 00 30 15 DC 14 8B 46 B1 33 35 |:.5370.0....F.35|
00000D10: 37 AF 46 B3 34 37 32 A7 46 31 B2 33 35 37 3A 46 |7.F.472.F1.357:F|
00000D20: 32 B2 32 30 3A 46 33 B2 31 39 3A 89 35 33 37 30 |2.20:F3.19:.5370|
00000D30: 00 5A 15 E6 14 8B 46 B1 34 37 31 AF 46 B3 35 38 |.Z....F.471.F.58|
00000D40: 30 A7 46 31 B2 34 37 31 3A 46 32 B2 31 39 3A 46 |0.F1.471:F2.19:F|
00000D50: 33 B2 32 35 3A 89 35 33 37 30 00 78 15 F0 14 8B |3.25:.5370.x....|
00000D60: 46 B1 35 37 39 A7 46 31 B2 35 37 39 3A 46 32 B2 |F.579.F1.579:F2.|
00000D70: 31 38 3A 46 33 B2 33 31 00 97 15 FA 14 46 54 B2 |18:F3.31.....FT.|
00000D80: B5 28 28 28 46 AB 46 31 29 AB 31 29 AD 28 46 32 |.(((F.F1).1).(F2|
00000D90: AB 31 29 29 AA 46 33 00 B8 15 04 15 46 53 B2 46 |.1)).F3.....FS.F|
00000DA0: AB 46 31 AB 28 46 54 AB 46 33 29 AC 46 32 AA 28 |.F1.(FT.F3).F2.(|
00000DB0: 46 54 AB 46 33 AB 31 29 00 BE 15 0E 15 8E 00 00 |FT.F3.1)........|
00000DC0: 00 |. |
..".... 53280,0:.53281,0:.56325,25.T....
".":."........................BEARBETAT
AV ".{...."...............INGVAR LUNDHOL
M."......"...............ABF TROLLHATTAN
"......"............KOPIERING FORBJUDES"
:."........................TRYCK F1"....
.. Q$:. Q$ ."" . 6...... Q$.".". . 10..
.... 6.<.... ***********************.Z..
.. * RANDOM FILE EXAMPLE *.X.... *******
****************......I$(664):FD.0:FX.5:
CH.2:FP.1......"....FFFFFFFFFFFFFFFFFFFF
FF"......". INSERT DATA SHEET TABF "...
...".DDDDDDDDDDDDDDDDDDDDD"......".. S
TARTA TRYCK 'F1'".-....P$:.P$..".".26.J.
...15,8,15,"I0":.2,8,2,"#".K...."...FFFF
FFFFFFFFFFFFFFFFFF"... ..".INDEX FILE OP
ERATION"..."..".DDDDDDDDDDDDDDDDDDDDDD".
K.$..".. NEW SHEET? N...";O$:."".Z.&.
.O$."N".46...(..O$.."Y".36...*..:.".
WAIT!":.I.1.664.8.,.."..................
.. ....."I;:I$(I)."/".I.-..I$(I):.:.5
0.B....5,8,5,"0:INDEX,S,R".X./..I.1.664:
.5,I$(I)...0.."................WAIT!
....."I;I$(I)...1..I: 5.Q.2.."...FFFFFF
FFFFFFFFFFFFFFFF"...4..". JOB MENU
"...6..".DDDDDDDDDDDDDDDDDDDDDD"..
.8...).:..". 1=CREATE".>.<..". 2=D
ELETE".S.>..". 3=SEARCH".E.@..". 0
=END".K.A.....B..".1 , 2 , 3 , 0 1..."
;O$...D..O$."0". 15: 5: 2:....F..O$."1".
104.C.H..O$."3".300.S.J..O$.."2".50...L.
.200...D.. ***********************...F..
* MASTER FILE CREATE *.6.G.. *********
**************.X.H.."....FFFFFFFFFFFFFFF
FFFFFFF".U.I..". MASTER FILE CREATE"...
J..".DDDDDDDDDDDDDDDDDDDDDD"...K.."RECOR
D NO. = 0...";F...M.. F.0.170...N..".NAM
E =....";FB$(1)...X..".ADDRESS =...
.";FB$(2)......".ZIP =....";FB$(3).
5....".TEL =....";FB$(4).S....".COM
MENT =....";FB$(5).]....5200.L...I$(F).
".1".U. ..104......5,8,5,"@0:INDEX,S,W".
.....I.1.664:.5,I$(I);G(13);.Z....".....
...........WAIT! ....."I;I$(I)......
: 5......74...H.. **********************
*.'.I.. * MASTER FILE DELETE *.E.J.. **
*********************.G.R.."....FFFFFFFF
FFFFFFFFFFFFFF"...T..". MASTER FILE DEL
ETE"...V..".DDDDDDDDDDDDDDDDDDDDDD":..A.
...".RECORD NO. = 0...";F.N....F.0.260..
....I$(F).."1".220.....I$(F)."/":."..REC
ORD NO."F;".DELETE"......220......5,8,5,
"@0:INDEX,S,W".K....I.1.664:.5,I$(I);G(1
3);.W...."..............WAIT! ....."
I;I$(I)......: 5......G(147):.50...,.. *
**********************.L.-.. * FILE SEA
RCH *...... *********************
**...6.."....FFFFFFFFFFFFFFFFFFFFFF".).8
..". SEARCH ".J.:..".DDDDDDD
DDDDDDDDDDDDDDD":..F.@..".RECORD NO. = 0
...";F.R.A..F.0.50...B..I$(F).."1".320..
.E..5100...H..".NAME = ";FB$(1).F.R.
.".ADDRESS = ";FB$(2)...|..".ZIP =
";FB$(3)...~..".TEL = ";FB$(4)...
..".COMMENT = ";FB$(5).5....".---------
------------".>....320.\.... ***********
************.Z.... * FDD BLOCK READ
*...... ***********************......53
30......15,"U1:";CH;FD;FT;FS.Q....15,"B-
P:";CH;FP......5270......FI.1.FX...(..CH
,FB$(FI):...<.....F...#.P.. ************
***********.A.Q.. * FDD BLOCK WRITE
*._.R.. ***********************.I.Z..533
0.~.D..15,"B-P:";CH;FP. .N..FI.1.FX:.CH,
FB$(FI);G(13);:....X..15,"U2:";CH;FD;FT;
FS.D....5270.J.......... ***************
********...... * ERROR CHECK *.$
.... ***********************.9. ..15,EN,
EM$,ET,ES.E....EN.0...G...."ERROR STATUS
:";EN;EM$;ET;ES......"CONTINUE?";Y$:.Y$.
"Y".....H.....J.. **********************
*.G.L.. * SET TRACK & SECTOR *...N.. **
*********************...R..F.358.F1.0:F2
.22:F3.1:.5370.0....F.357.F.472.F1.357:F
2.20:F3.19:.5370.Z....F.471.F.580.F1.471
:F2.19:F3.25:.5370.X....F.579.F1.579:F2.
18:F3.31.....FT..(((F.F1).1).(F2.1)).F3.
....FS.F.F1.(FT.F3).F2.(FT.F3.1)........
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL