FIL
FILE INFORMATION
FILENAME(S): FIL
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 19:38:46
APPEARS ON: 1 disk(s)
FILE HASH
4897f79f41d05104380585e4ba8d86f4e36c37cafbd65ac254c3d0ee9379d54d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARTIN 2 | FIL | PRG | Curtcool, Brian | 34 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 00 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A 99 22 90 22 00 29 08 01 |53281,1:.".".)..|
00000020: 00 86 20 54 59 24 28 34 29 00 3A 08 02 00 54 59 |.. TY$(4).:...TY|
00000030: 24 28 31 29 B2 22 53 45 51 22 00 4B 08 03 00 54 |$(1)."SEQ".K...T|
00000040: 59 24 28 32 29 B2 22 50 52 47 22 00 5C 08 04 00 |Y$(2)."PRG".\...|
00000050: 54 59 24 28 33 29 B2 22 55 53 52 22 00 6D 08 05 |TY$(3)."USR".m..|
00000060: 00 54 59 24 28 34 29 B2 22 52 45 4C 22 00 73 08 |.TY$(4)."REL".s.|
00000070: 06 00 8F 00 90 08 07 00 8F 20 4C 4F 43 4B 20 49 |......... LOCK I|
00000080: 4E 20 55 50 50 45 52 43 41 43 45 20 4D 4F 44 45 |N UPPERCACE MODE|
00000090: 00 96 08 08 00 8F 00 A7 08 09 00 99 C7 28 31 34 |.............(14|
000000A0: 32 29 3B C7 28 38 29 00 C3 08 0A 00 86 20 42 4C |2);.(8)...... BL|
000000B0: 25 28 32 35 35 29 20 3A 8F 20 52 45 41 44 2D 44 |%(255) :. READ-D|
000000C0: 41 54 41 00 DD 08 0B 00 86 20 57 25 28 32 35 35 |ATA...... W%(255|
000000D0: 29 3A 8F 20 57 4F 52 4B 2D 44 41 54 41 00 FC 08 |):. WORK-DATA...|
000000E0: 0C 00 54 52 B2 31 38 3A 53 45 B2 31 3A 8F 20 46 |..TR.18:SE.1:. F|
000000F0: 30 52 53 54 45 20 53 45 4B 54 4F 52 00 19 09 0D |0RSTE SEKTOR....|
00000100: 00 4F 50 24 B2 22 53 50 55 4C 57 4E 45 22 3A 8F |.OP$."SPULWNE":.|
00000110: 20 4F 50 54 49 4F 4E 45 52 00 37 09 0F 00 43 4C | OPTIONER.7...CL|
00000120: 24 B2 C7 28 31 34 37 29 3A 8F 20 43 4C 45 41 52 |$..(147):. CLEAR|
00000130: 20 53 43 52 45 45 4E 00 3D 09 10 00 8F 00 55 09 | SCREEN.=.....U.|
00000140: 11 00 8F 20 52 45 41 44 20 28 4E 45 58 54 29 20 |... READ (NEXT) |
00000150: 42 4C 4F 43 4B 00 5B 09 12 00 8F 00 65 09 13 00 |BLOCK.[.....e...|
00000160: 8D 20 31 32 31 00 6F 09 14 00 8D 20 31 32 34 00 |. 121.o.... 124.|
00000170: 89 09 15 00 8F 46 52 45 4D 53 54 49 4C 20 41 52 |.....FREMSTIL AR|
00000180: 42 45 4A 44 53 4B 4F 50 49 00 8F 09 16 00 8F 00 |BEJDSKOPI.......|
00000190: 9F 09 17 00 81 20 4E B2 30 20 A4 20 32 35 35 00 |..... N.0 . 255.|
000001A0: B2 09 18 00 3A 20 57 25 28 4E 29 B2 42 4C 25 28 |....: W%(N).BL%(|
000001B0: 4E 29 00 B9 09 19 00 82 4E 00 E6 09 1B 00 99 43 |N)......N......C|
000001C0: 4C 24 3B 22 93 20 4E 52 20 20 4C 4E 47 44 20 20 |L$;". NR LNGD |
000001D0: 46 49 4C 4E 41 56 4E 20 20 20 20 20 20 20 20 20 |FILNAVN |
000001E0: 20 54 59 50 45 22 00 10 0A 1C 00 99 22 20 2D 2D | TYPE"......" --|
000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000210: 00 1F 0A 1D 00 81 20 46 4C B2 30 20 A4 20 37 00 |...... FL.0 . 7.|
00000220: 30 0A 1E 00 3A 20 46 42 B2 32 AA 33 32 AC 46 4C |0...: FB.2.32.FL|
00000230: 00 3E 0A 1F 00 3A 99 22 20 22 3B 46 4C 3B 00 5E |.>...:." ";FL;.^|
00000240: 0A 20 00 3A 99 20 57 25 28 46 42 AA 32 38 29 AA |. .:. W%(FB.28).|
00000250: 32 35 36 AC 57 25 28 46 42 AA 32 39 29 2C 00 73 |256.W%(FB.29),.s|
00000260: 0A 21 00 3A 81 4E B2 46 42 AA 33 20 A4 20 46 42 |.!.:.N.FB.3 . FB|
00000270: AA 31 38 00 84 0A 22 00 3A 20 99 C7 28 57 25 28 |.18...".: ..(W%(|
00000280: 4E 29 29 3B 00 8C 0A 23 00 3A 82 4E 00 98 0A 24 |N));...#.:.N...$|
00000290: 00 3A 20 99 22 20 22 3B 00 B7 0A 25 00 3A 20 8B |.: ." ";...%.: .|
000002A0: 57 25 28 46 42 29 AF 20 31 32 38 20 A7 99 20 22 |W%(FB). 128 .. "|
000002B0: 20 22 3B 3A 89 34 30 00 D4 0A 26 00 3A 20 8B 57 | ";:.40...&.: .W|
000002C0: 25 28 46 42 29 B2 30 A7 99 22 2D 2D 44 45 4C 22 |%(FB).0.."--DEL"|
000002D0: 3A 89 34 35 00 E0 0A 27 00 3A 20 99 22 2A 22 3B |:.45...'.: ."*";|
000002E0: 00 FF 0A 28 00 3A 20 8B 57 25 28 46 42 29 AF 20 |...(.: .W%(FB). |
000002F0: 36 34 20 A7 20 99 20 22 3E 22 3B 3A 89 34 32 00 |64 . . ">";:.42.|
00000300: 0B 0B 29 00 3A 20 99 22 20 22 3B 00 1C 0B 2A 00 |..).: ." ";...*.|
00000310: 3A 20 58 B2 57 25 28 46 42 29 AF 37 00 37 0B 2B |: X.W%(FB).7.7.+|
00000320: 00 3A 20 8B 58 B1 34 A7 99 22 45 52 52 4F 52 20 |.: .X.4.."ERROR |
00000330: 21 21 22 3A 89 34 35 00 45 0B 2C 00 3A 20 99 54 |!!":.45.E.,.: .T|
00000340: 59 24 28 58 29 00 4D 0B 2D 00 82 46 4C 00 71 0B |Y$(X).M.-..FL.q.|
00000350: 2E 00 99 3A 99 A3 37 29 3B 22 45 4E 54 45 52 20 |...:..7);"ENTER |
00000360: 4E 20 46 4F 52 20 4E 45 58 54 20 42 4C 4F 43 4B |N FOR NEXT BLOCK|
00000370: 22 00 88 0B 2F 00 99 A3 31 33 29 3B 22 45 20 46 |".../...13);"E F|
00000380: 4F 52 20 45 58 49 54 22 00 A2 0B 30 00 99 A3 31 |OR EXIT"...0...1|
00000390: 30 29 3B 22 4F 52 20 46 49 4C 45 4E 55 4D 4D 45 |0);"OR FILENUMME|
000003A0: 52 22 00 B4 0B 31 00 A1 41 24 3A 8B 41 24 B2 22 |R"...1..A$:.A$."|
000003B0: 22 A7 34 39 00 CA 0B 32 00 8B 41 24 B2 22 4E 22 |".49...2..A$."N"|
000003C0: A7 8D 20 31 30 32 3A 89 32 30 00 EC 0B 33 00 8B |.. 102:.20...3..|
000003D0: 41 24 B2 22 45 22 A7 8D 31 31 30 3A 99 A3 39 29 |A$."E"..110:..9)|
000003E0: 3B 22 53 4C 55 54 22 3A 89 31 35 32 00 02 0C 34 |;"SLUT":.152...4|
000003F0: 00 8B 41 24 B3 22 30 22 B0 41 24 B1 22 37 22 A7 |..A$."0".A$."7".|
00000400: 34 39 00 0E 0C 35 00 8D 35 34 3A 89 32 37 00 21 |49...5..54:.27.!|
00000410: 0C 36 00 99 3A 99 22 4F 50 54 49 4F 4E 45 52 3A |.6..:."OPTIONER:|
00000420: 22 00 3F 0C 37 00 99 22 20 53 3D 55 4E 44 45 4C |".?.7.." S=UNDEL|
00000430: 45 54 45 20 54 4F 20 53 45 51 20 2D 20 22 3B 00 |ETE TO SEQ - ";.|
00000440: 58 0C 38 00 99 22 50 3D 55 4E 44 45 4C 45 54 45 |X.8.."P=UNDELETE|
00000450: 20 54 4F 20 50 52 47 22 00 76 0C 39 00 99 22 20 | TO PRG".v.9.." |
00000460: 55 3D 55 4E 44 45 4C 45 54 45 20 54 4F 20 55 53 |U=UNDELETE TO US|
00000470: 52 20 2D 20 22 3B 00 8F 0C 3A 00 99 22 4C 3D 55 |R - ";...:.."L=U|
00000480: 4E 44 45 4C 45 54 45 20 54 4F 20 52 45 4C 22 00 |NDELETE TO REL".|
00000490: AD 0C 3B 00 99 22 20 57 3D 57 52 49 54 45 50 52 |..;.." W=WRITEPR|
000004A0: 4F 54 45 43 54 20 4F 4E 20 2D 20 22 3B 00 C6 0C |OTECT ON - ";...|
000004B0: 3C 00 99 22 4E 3D 4E 4F 20 57 52 49 54 45 50 52 |<.."N=NO WRITEPR|
000004C0: 4F 54 45 43 54 22 00 D8 0C 3D 00 A1 42 24 3A 8B |OTECT"...=..B$:.|
000004D0: 42 24 B2 22 22 A7 36 31 00 E0 0C 3E 00 4B B2 30 |B$."".61...>.K.0|
000004E0: 00 F0 0C 3F 00 81 4E B2 31 A4 C3 28 4F 50 24 29 |...?..N.1..(OP$)|
000004F0: 00 09 0D 40 00 3A 20 8B 42 24 B2 CA 28 4F 50 24 |...@.: .B$..(OP$|
00000500: 2C 4E 2C 31 29 A7 4B B2 4E 00 10 0D 41 00 82 4E |,N,1).K.N...A..N|
00000510: 00 22 0D 42 00 46 42 B2 32 AA 33 32 AC C5 28 41 |.".B.FB.2.32..(A|
00000520: 24 29 00 3D 0D 43 00 91 20 4B 20 89 37 32 2C 37 |$).=.C.. K .72,7|
00000530: 37 2C 38 32 2C 38 37 2C 39 32 2C 39 36 00 45 0D |7,82,87,92,96.E.|
00000540: 44 00 89 36 31 00 4B 0D 45 00 8F 00 61 0D 46 00 |D..61.K.E...a.F.|
00000550: 8F 20 53 45 51 45 4E 54 49 41 4C 20 46 49 4C 45 |. SEQENTIAL FILE|
00000560: 53 00 67 0D 47 00 8F 00 79 0D 48 00 8B 57 25 28 |S.g.G...y.H..W%(|
00000570: 46 42 29 B3 B1 30 A7 39 37 00 8B 0D 49 00 57 25 |FB)..0.97...I.W%|
00000580: 28 46 42 29 B2 31 32 39 29 3A 8E 00 91 0D 4A 00 |(FB).129):....J.|
00000590: 8F 00 A5 0D 4B 00 8F 20 50 52 4F 47 52 41 4D 20 |....K.. PROGRAM |
000005A0: 46 49 4C 45 53 00 AB 0D 4C 00 8F 00 BD 0D 4D 00 |FILES...L.....M.|
000005B0: 8B 57 25 28 46 42 29 B3 B1 30 A7 39 37 00 CE 0D |.W%(FB)..0.97...|
000005C0: 4E 00 57 25 28 46 42 29 B2 31 33 30 3A 8E 00 D4 |N.W%(FB).130:...|
000005D0: 0D 4F 00 8F 00 E5 0D 50 00 8F 20 55 53 45 52 20 |.O.....P.. USER |
000005E0: 46 49 4C 45 53 00 EB 0D 51 00 8F 00 FD 0D 52 00 |FILES...Q.....R.|
000005F0: 8B 57 25 28 46 42 29 B3 B1 30 A7 39 37 00 0E 0E |.W%(FB)..0.97...|
00000600: 53 00 57 25 28 46 42 29 B2 31 33 31 3A 8E 00 14 |S.W%(FB).131:...|
00000610: 0E 54 00 8F 00 29 0E 55 00 8F 20 52 45 4C 41 54 |.T...).U.. RELAT|
00000620: 49 56 45 20 46 49 4C 45 53 00 2F 0E 56 00 8F 00 |IVE FILES./.V...|
00000630: 41 0E 57 00 8B 57 25 28 46 42 29 B3 B1 30 A7 39 |A.W..W%(FB)..0.9|
00000640: 37 00 52 0E 58 00 57 25 28 46 42 29 B2 31 33 32 |7.R.X.W%(FB).132|
00000650: 3A 8E 00 58 0E 59 00 8F 00 6C 0E 5A 00 8F 20 50 |:..X.Y...l.Z.. P|
00000660: 52 4F 43 45 43 54 20 46 49 4C 45 53 00 72 0E 5B |ROCECT FILES.r.[|
00000670: 00 8F 00 89 0E 5C 00 57 25 28 46 42 29 B2 57 25 |.....\.W%(FB).W%|
00000680: 28 46 42 29 B0 36 34 3A 8E 00 8F 0E 5D 00 8F 00 |(FB).64:....]...|
00000690: A5 0E 5E 00 8F 20 55 4E 50 52 4F 54 45 43 54 20 |..^.. UNPROTECT |
000006A0: 46 49 4C 45 53 00 AB 0E 5F 00 8F 00 C3 0E 60 00 |FILES..._.....`.|
000006B0: 57 25 28 46 42 29 B2 57 25 28 46 42 29 AF 31 39 |W%(FB).W%(FB).19|
000006C0: 31 3A 8E 00 F4 0E 61 00 99 22 49 4B 4B 45 20 4C |1:....a.."IKKE L|
000006D0: 55 4B 4B 45 44 45 20 46 49 4C 45 52 20 4B 41 4E |UKKEDE FILER KAN|
000006E0: 20 49 4B 4B 45 20 55 4E 44 45 4C 45 54 45 53 20 | IKKE UNDELETES |
000006F0: 21 21 22 3B 00 FA 0E 62 00 8E 00 00 0F 63 00 8F |!!";...b.....c..|
00000700: 00 20 0F 64 00 8F 20 43 48 45 43 4B 20 4F 4D 20 |. .d.. CHECK OM |
00000710: 44 45 52 20 45 52 20 46 4F 52 53 4B 45 4C 4C 45 |DER ER FORSKELLE|
00000720: 00 26 0F 65 00 8F 00 2F 0F 66 00 49 44 B2 31 00 |.&.e.../.f.ID.1.|
00000730: 3D 0F 67 00 81 4E B2 30 A4 20 32 35 35 00 57 0F |=.g..N.0. 255.W.|
00000740: 68 00 3A 20 8B 42 4C 25 28 4E 29 B3 B1 57 25 28 |h.: .BL%(N)..W%(|
00000750: 4E 29 A7 49 44 B2 30 00 5E 0F 69 00 82 4E 00 6C |N).ID.0.^.i..N.l|
00000760: 0F 6A 00 8B 49 44 B2 31 A7 31 31 38 00 72 0F 6B |.j..ID.1.118.r.k|
00000770: 00 8F 00 97 0F 6C 00 8F 20 42 45 4B 52 41 45 46 |.....l.. BEKRAEF|
00000780: 54 45 20 41 54 20 4F 50 44 41 54 45 52 49 4E 47 |TE AT OPDATERING|
00000790: 20 30 4E 53 4B 45 53 00 9D 0F 6D 00 8F 00 BD 0F | 0NSKES...m.....|
000007A0: 6E 00 99 22 30 4E 53 4B 45 53 20 4F 50 44 41 54 |n.."0NSKES OPDAT|
000007B0: 45 52 49 4E 47 20 28 4A 2F 4E 29 3F 22 00 D0 0F |ERING (J/N)?"...|
000007C0: 6F 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 31 31 |o..A$:.A$."".111|
000007D0: 00 E0 0F 70 00 8B 41 24 B2 22 4E 22 A7 31 31 38 |...p..A$."N".118|
000007E0: 00 F1 0F 71 00 8B 41 24 B3 B1 22 4A 22 A7 31 31 |...q..A$.."J".11|
000007F0: 31 00 FA 0F 72 00 8D 31 33 38 00 00 10 73 00 8F |1...r..138...s..|
00000800: 00 21 10 74 00 8F 20 43 48 45 43 4B 20 4F 4D 20 |.!.t.. CHECK OM |
00000810: 44 49 52 45 43 54 4F 52 59 20 45 52 20 53 4C 55 |DIRECTORY ER SLU|
00000820: 54 00 27 10 75 00 8F 00 58 10 76 00 54 52 B2 57 |T.'.u...X.v.TR.W|
00000830: 25 28 30 29 3A 8B 54 52 B2 30 A7 99 22 49 4B 4B |%(0):.TR.0.."IKK|
00000840: 45 20 46 4C 45 52 45 20 46 49 4C 45 52 22 3B C7 |E FLERE FILER";.|
00000850: 28 39 29 3A 89 31 35 32 00 65 10 77 00 53 45 B2 |(9):.152.e.w.SE.|
00000860: 57 25 28 31 29 00 6B 10 78 00 8E 00 A6 10 79 00 |W%(1).k.x.....y.|
00000870: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000880: 20 20 20 49 4E 50 55 54 20 30 4E 53 4B 45 44 45 | INPUT 0NSKEDE|
00000890: 20 44 49 53 4B 45 54 54 45 20 46 4F 52 20 53 4C | DISKETTE FOR SL|
000008A0: 45 54 54 45 2D 22 00 D0 10 7A 00 99 22 20 20 20 |ETTE-"...z.." |
000008B0: 20 20 42 45 53 4B 59 54 54 45 4C 53 45 20 26 20 | BESKYTTELSE & |
000008C0: 54 41 53 54 20 53 50 41 43 45 2E 20 21 21 21 22 |TAST SPACE. !!!"|
000008D0: 00 F1 10 7B 00 A1 41 24 3A 8B 41 24 B3 B1 22 20 |...{..A$:.A$.." |
000008E0: 22 A7 31 32 33 3A 8B 41 24 B2 22 20 22 A7 31 32 |".123:.A$." ".12|
000008F0: 34 00 04 11 7C 00 9F 31 35 2C 38 2C 31 35 2C 22 |4...|..15,8,15,"|
00000900: 49 30 3A 22 00 13 11 7D 00 9F 38 2C 38 2C 38 2C |I0:"...}..8,8,8,|
00000910: 22 23 22 00 2A 11 7E 00 98 31 35 2C 22 55 31 22 |"#".*.~..15,"U1"|
00000920: 3B 38 3B 30 3B 54 52 3B 53 45 00 3C 11 7F 00 98 |;8;0;TR;SE.<....|
00000930: 31 35 2C 22 42 2D 50 22 3B 38 3B 30 00 4B 11 80 |15,"B-P";8;0.K..|
00000940: 00 81 4E B2 30 20 A4 20 32 35 35 00 67 11 81 00 |..N.0 . 255.g...|
00000950: 3A 20 A1 23 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 |: .#8,A$:.A$."".|
00000960: 41 24 B2 C7 28 30 29 00 7A 11 82 00 3A 20 42 4C |A$..(0).z...: BL|
00000970: 25 28 4E 29 B2 C6 28 41 24 29 00 81 11 83 00 82 |%(N)..(A$)......|
00000980: 4E 00 88 11 84 00 A0 38 00 90 11 85 00 A0 31 35 |N......8......15|
00000990: 00 96 11 86 00 8E 00 9C 11 87 00 8E 00 B0 11 88 |................|
000009A0: 00 8F 20 53 4B 52 49 56 20 45 4E 20 42 4C 4F 4B |.. SKRIV EN BLOK|
000009B0: 00 B6 11 89 00 8F 00 C3 11 8A 00 9F 31 35 2C 38 |............15,8|
000009C0: 2C 31 35 00 D2 11 8B 00 9F 38 2C 38 2C 38 2C 22 |,15......8,8,8,"|
000009D0: 23 22 00 E4 11 8C 00 98 31 35 2C 22 42 2D 50 22 |#"......15,"B-P"|
000009E0: 3B 38 3B 30 00 F1 11 8D 00 81 4E B2 30 A4 32 35 |;8;0......N.0.25|
000009F0: 35 00 04 12 8E 00 3A 20 98 38 2C C7 28 57 25 28 |5.....: .8,.(W%(|
00000A00: 4E 29 29 3B 00 22 12 8F 00 3A 20 8F 20 48 4F 53 |N));."...: . HOS|
00000A10: 4B 20 53 45 4D 49 4B 4F 4C 4F 4E 20 21 21 21 21 |K SEMIKOLON !!!!|
00000A20: 21 21 00 29 12 90 00 82 4E 00 40 12 91 00 98 31 |!!.)....N.@....1|
00000A30: 35 2C 22 55 32 22 3B 38 3B 30 3B 54 52 3B 53 45 |5,"U2";8;0;TR;SE|
00000A40: 00 47 12 92 00 A0 38 00 4F 12 93 00 A0 31 35 00 |.G....8.O....15.|
00000A50: 55 12 94 00 8E 00 5B 12 95 00 8F 00 76 12 96 00 |U.....[.....v...|
00000A60: 8F 20 4F 50 44 41 54 45 52 20 44 49 53 4B 2D 49 |. OPDATER DISK-I|
00000A70: 4E 44 48 4F 4C 44 00 7C 12 97 00 8F 00 9B 12 98 |NDHOLD.|........|
00000A80: 00 8B 41 24 B2 22 4A 22 A7 9F 31 35 2C 38 2C 31 |..A$."J"..15,8,1|
00000A90: 35 2C 22 56 30 3A 22 3A A0 31 35 00 A1 12 99 00 |5,"V0:":.15.....|
00000AA0: 80 00 00 09 |.... |
.......53280,1:.53281,1:.".".).... TY$(4
).:...TY$(1)."SEQ".K...TY$(2)."PRG".\...
TY$(3)."USR".M...TY$(4)."REL".S.........
. LOCK IN UPPERCACE MODE............G(14
2);G(8).C.... BL%(255) :. READ-DATA.....
. W%(255):. WORK-DATA.....TR.18:SE.1:. F
0RSTE SEKTOR.....OP$."SPULWNE":. OPTIONE
R.7...CL$.G(147):. CLEAR SCREEN.=.....U.
... READ (NEXT) BLOCK.[.....E.... 121.O.
... 124......FREMSTIL ARBEJDSKOPI.......
..... N.0 . 255.....: W%(N).BL%(N)......
N......CL$;". NR LNGD FILNAVN
TYPE"......" --------------------------
-------"...... FL.0 . 7.0...: FB.2.32.FL
.>...:." ";FL;.^. .:. W%(FB.28).256.W%(F
B.29),.S.!.:.N.FB.3 . FB.18...".: .G(W%(
N));...#.:.N...$.: ." ";...%.: .W%(FB).
128 .. " ";:.40.T.&.: .W%(FB).0.."--DEL"
:.45...'.: ."*";...(.: .W%(FB). 64 . . "
>";:.42...).: ." ";...*.: X.W%(FB).7.7.+
.: .X.4.."ERROR !!":.45.E.,.: .TY$(X).M.
-..FL.Q....:..7);"ENTER N FOR NEXT BLOCK
".../...13);"E FOR EXIT"...0...10);"OR F
ILENUMMER"...1..A$:.A$."".49.J.2..A$."N"
.. 102:.20...3..A$."E"..110:..9);"SLUT":
.152...4..A$."0".A$."7".49...5..54:.27.!
.6..:."OPTIONER:".?.7.." S=UNDELETE TO S
EQ - ";.X.8.."P=UNDELETE TO PRG".V.9.."
U=UNDELETE TO USR - ";...:.."L=UNDELETE
TO REL"...;.." W=WRITEPROTECT ON - ";.F.
<.."N=NO WRITEPROTECT".X.=..B$:.B$."".61
...>.K.0...?..N.1.C(OP$)...@.: .B$.J(OP$
,N,1).K.N...A..N.".B.FB.2.32.E(A$).=.C..
K .72,77,82,87,92,96.E.D..61.K.E...A.F.
. SEQENTIAL FILES.G.G...Y.H..W%(FB)..0.9
7...I.W%(FB).129):....J.....K.. PROGRAM
FILES...L.....M..W%(FB)..0.97.N.N.W%(FB)
.130:..T.O.....P.. USER FILES...Q.....R.
.W%(FB)..0.97...S.W%(FB).131:....T...).U
.. RELATIVE FILES./.V...A.W..W%(FB)..0.9
7.R.X.W%(FB).132:..X.Y...L.Z.. PROCECT F
ILES.R.[.....\.W%(FB).W%(FB).64:....]...
..^.. UNPROTECT FILES..._...C.`.W%(FB).W
%(FB).191:....A.."IKKE LUKKEDE FILER KAN
IKKE UNDELETES !!";...B.....C... .D.. C
HECK OM DER ER FORSKELLE.&.E.../.F.ID.1.
=.G..N.0. 255.W.H.: .BL%(N)..W%(N).ID.0.
^.I..N.L.J..ID.1.118.R.K.....L.. BEKRAEF
TE AT OPDATERING 0NSKES...M.....N.."0NSK
ES OPDATERING (J/N)?".P.O..A$:.A$."".111
...P..A$."N".118...Q..A$.."J".111...R..1
38...S...!.T.. CHECK OM DIRECTORY ER SLU
T.'.U...X.V.TR.W%(0):.TR.0.."IKKE FLERE
FILER";G(9):.152.E.W.SE.W%(1).K.X.....Y.
.".............. INPUT 0NSKEDE DISKETT
E FOR SLETTE-".P.Z.." BESKYTTELSE &
TAST SPACE. !!!"...{..A$:.A$.." ".123:.A
$." ".124...|..15,8,15,"I0:"...}..8,8,8,
"#".*.~..15,"U1";8;0;TR;SE.<...15,"B-P"
;8;0.K....N.0 . 255.G...: .#8,A$:.A$."".
A$.G(0).Z...: BL%(N).F(A$)......N..... 8
..... 15.................. SKRIV EN BLOK
.......C....15,8,15.R....8,8,8,"#"......
15,"B-P";8;0......N.0.255.....: .8,G(W%(
N));."...: . HOSK SEMIKOLON !!!!!!.)....
N.@....15,"U2";8;0;TR;SE.G... 8.O... 15.
U.....[.....V.... OPDATER DISK-INDHOLD.|
..........A$."J"..15,8,15,"V0:": 15.....
....
> CLICK IMAGE PREVIEW FOR FULL MODAL