JAH-DISK

00000000: 01 08 23 08 00 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..#.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 00 45 08 01 00  8F 20 2A 2A 20 20 20 44  |***.E.... **   D|
00000030: 20 49 20 53 20 4B 20 2D  20 4B 20 49 20 4E 20 47  | I S K - K I N G|
00000040: 20 20 20 2A 2A 00 67 08  02 00 8F 20 2A 2A 20 28  |   **.g.... ** (|
00000050: 43 29 4A 45 4E 53 2D 41  52 4E 45 20 48 4F 46 53  |C)JENS-ARNE HOFS|
00000060: 54 45 44 54 20 2A 2A 00  89 08 03 00 8F 20 2A 2A  |TEDT **...... **|
00000070: 20 20 20 20 20 20 3E 3E  20 31 39 39 31 20 3C 3C  |      >> 1991 <<|
00000080: 20 20 20 20 20 20 20 2A  2A 00 AB 08 04 00 8F 20  |       **...... |
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 B1 08 06 00  |***********.....|
000000B0: 3A 00 B7 08 07 00 3A 00  D4 08 0A 00 99 C7 28 31  |:.....:.......(1|
000000C0: 34 29 3B C7 28 38 29 3B  C7 28 35 29 3A 41 B2 35  |4);.(8);.(5):A.5|
000000D0: 33 32 38 30 00 E4 08 0B  00 97 41 2C 36 3A 97 41  |3280......A,6:.A|
000000E0: AA 31 2C 36 00 14 09 0C  00 99 22 93 12 CA 45 4E  |.1,6......"...EN|
000000F0: 53 2D C1 52 4E 45 20 C8  4F 46 53 54 45 44 54 20  |S-.RNE .OFSTEDT |
00000100: 20 C4 20 C9 20 D3 20 CB  20 2D 20 CB 20 C9 20 CE  | . . . . - . . .|
00000110: 20 C7 20 22 00 2D 09 0D  00 99 22 31 20 20 3D 20  | . ".-...."1  = |
00000120: C4 49 53 4B 20 43 41 54  41 4C 4F 47 22 00 49 09  |.ISK CATALOG".I.|
00000130: 0E 00 99 22 11 32 20 20  3D 20 C6 4F 52 4D 41 54  |...".2  = .ORMAT|
00000140: 54 45 52 20 44 49 53 4B  22 00 63 09 0F 00 99 22  |TER DISK".c...."|
00000150: 11 33 20 20 3D 20 C5 4E  44 4C 45 53 53 20 4C 49  |.3  = .NDLESS LI|
00000160: 53 54 22 00 7C 09 10 00  99 22 11 34 20 20 3D 20  |ST".|....".4  = |
00000170: C2 45 53 4B 59 54 20 44  49 53 4B 22 00 96 09 11  |.ESKYT DISK"....|
00000180: 00 99 22 11 35 20 20 3D  20 CE 59 20 46 49 4C 45  |..".5  = .Y FILE|
00000190: 20 4E 41 56 4E 22 00 AF  09 14 00 99 22 11 36 20  | NAVN"......".6 |
000001A0: 20 3D 20 D2 45 4E 41 4D  45 20 46 49 4C 45 22 00  | = .ENAME FILE".|
000001B0: C6 09 15 00 99 22 11 37  20 20 3D 20 D3 4C 45 54  |.....".7  = .LET|
000001C0: 20 46 49 4C 45 22 00 E3  09 16 00 99 22 11 38 20  | FILE"......".8 |
000001D0: 20 3D 20 C9 4E 49 54 49  41 4C 49 5A 45 20 44 49  | = .NITIALIZE DI|
000001E0: 53 4B 22 00 FF 09 17 00  99 22 11 39 20 20 3D 20  |SK"......".9  = |
000001F0: D6 41 4C 49 44 41 54 45  20 46 49 4C 45 53 22 00  |.ALIDATE FILES".|
00000200: 15 0A 18 00 85 22 11 D6  41 4C 47 20 20 BF 9D 9D  |....."..ALG  ...|
00000210: 9D 22 3B 41 24 00 52 0A  19 00 8B 41 24 B2 22 31  |.";A$.R....A$."1|
00000220: 22 B0 41 24 B2 22 BF 22  A7 99 22 13 11 11 12 31  |".A$.".".."....1|
00000230: 20 20 3D 20 C4 49 53 4B  20 43 41 54 41 4C 4F 47  |  = .ISK CATALOG|
00000240: 22 3A 81 54 B2 31 A4 31  30 30 30 3A 82 3A 8A 31  |":.T.1.1000:.:.1|
00000250: 30 30 00 8B 0A 1A 00 8B  41 24 B2 22 32 22 A7 99  |00......A$."2"..|
00000260: 22 13 11 11 11 11 12 32  20 20 3D 20 C6 4F 52 4D  |"......2  = .ORM|
00000270: 41 54 54 45 52 20 44 49  53 4B 22 3A 81 54 B2 31  |ATTER DISK":.T.1|
00000280: A4 39 39 39 3A 82 3A 8A  32 30 30 00 C4 0A 1B 00  |.999:.:.200.....|
00000290: 8B 41 24 B2 22 33 22 A7  99 22 13 11 11 11 11 11  |.A$."3".."......|
000002A0: 11 12 33 20 20 3D 20 C5  4E 44 4C 45 53 53 20 4C  |..3  = .NDLESS L|
000002B0: 49 53 54 22 3A 81 54 B2  31 A4 39 39 39 3A 82 3A  |IST":.T.1.999:.:|
000002C0: 8A 33 30 30 00 FE 0A 1C  00 8B 41 24 B2 22 34 22  |.300......A$."4"|
000002D0: A7 99 22 13 11 11 11 11  11 11 11 11 12 34 20 20  |.."..........4  |
000002E0: 3D 20 C2 45 53 4B 59 54  20 44 49 53 4B 22 3A 81  |= .ESKYT DISK":.|
000002F0: 54 B2 31 A4 39 39 39 3A  82 3A 8A 34 30 30 00 3B  |T.1.999:.:.400.;|
00000300: 0B 1D 00 8B 41 24 B2 22  35 22 A7 99 22 13 11 11  |....A$."5".."...|
00000310: 11 11 11 11 11 11 11 11  12 35 20 20 3D 20 CE 59  |.........5  = .Y|
00000320: 20 46 49 4C 45 20 4E 41  56 4E 22 3A 81 54 B2 31  | FILE NAVN":.T.1|
00000330: A4 39 39 39 3A 82 3A 8A  35 30 30 00 79 0B 20 00  |.999:.:.500.y. .|
00000340: 8B 41 24 B2 22 36 22 A7  99 22 13 11 11 11 11 11  |.A$."6".."......|
00000350: 11 11 11 11 11 11 11 12  36 20 20 3D 20 D2 45 4E  |........6  = .EN|
00000360: 41 4D 45 20 46 49 4C 45  22 3A 81 54 B2 31 A4 39  |AME FILE":.T.1.9|
00000370: 39 39 3A 82 3A 8A 38 30  30 00 B7 0B 21 00 8B 41  |99:.:.800...!..A|
00000380: 24 B2 22 37 22 A7 99 22  13 11 11 11 11 11 11 11  |$."7".."........|
00000390: 11 11 11 11 11 11 11 12  37 20 20 3D 20 D3 4C 45  |........7  = .LE|
000003A0: 54 20 46 49 4C 45 22 3A  81 54 B2 31 A4 39 39 39  |T FILE":.T.1.999|
000003B0: 3A 82 3A 8A 39 30 30 00  F2 0B 22 00 8B 41 24 B2  |:.:.900..."..A$.|
000003C0: 22 38 22 A7 99 22 91 91  91 91 91 12 38 20 20 3D  |"8".."......8  =|
000003D0: 20 C9 4E 49 54 49 41 4C  49 5A 45 20 44 49 53 4B  | .NITIALIZE DISK|
000003E0: 22 3A 81 54 B2 31 A4 39  39 39 3A 82 3A 8A 31 30  |":.T.1.999:.:.10|
000003F0: 30 30 00 2A 0C 23 00 8B  41 24 B2 22 39 22 A7 99  |00.*.#..A$."9"..|
00000400: 22 91 91 91 12 39 20 20  3D 20 D6 41 4C 49 44 41  |"....9  = .ALIDA|
00000410: 54 45 20 46 49 4C 45 53  22 3A 81 54 B2 31 A4 39  |TE FILES":.T.1.9|
00000420: 39 39 3A 82 3A 8A 31 31  30 30 00 30 0C 24 00 3A  |99:.:.1100.0.$.:|
00000430: 00 36 0C 25 00 3A 00 52  0C 64 00 8F 20 2A 2A 20  |.6.%.:.R.d.. ** |
00000440: 43 41 54 41 4C 4F 47 20  41 46 20 44 49 53 4B 20  |CATALOG AF DISK |
00000450: 2A 2A 00 85 0C 65 00 99  22 05 93 12 20 20 20 20  |**...e.."...    |
00000460: 20 20 20 20 20 20 20 20  20 20 C4 49 52 45 43 54  |          .IRECT|
00000470: 4F 52 59 20 20 20 20 20  20 20 20 20 20 20 20 20  |ORY             |
00000480: 20 20 20 20 22 00 95 0C  66 00 9F 31 2C 38 2C 30  |    "...f..1,8,0|
00000490: 2C 22 24 30 22 00 A3 0C  67 00 A1 23 31 2C 41 24  |,"$0"...g..#1,A$|
000004A0: 2C 42 24 00 B1 0C 68 00  A1 23 31 2C 41 24 2C 42  |,B$...h..#1,A$,B|
000004B0: 24 00 BF 0C 69 00 A1 23  31 2C 41 24 2C 42 24 00  |$...i..#1,A$,B$.|
000004C0: C7 0C 6A 00 43 B2 30 00  DB 0C 6B 00 8B 41 24 B3  |..j.C.0...k..A$.|
000004D0: B1 22 22 A7 43 B2 C6 28  41 24 29 00 F5 0C 6C 00  |."".C..(A$)...l.|
000004E0: 8B 42 24 B3 B1 22 22 A7  43 B2 43 AA C6 28 42 24  |.B$.."".C.C..(B$|
000004F0: 29 AC 32 35 36 00 10 0D  6D 00 99 22 12 22 CA 28  |).256...m..".".(|
00000500: C4 28 43 29 2C 32 29 3B  A3 33 29 3B 22 92 22 3B  |.(C),2);.3);".";|
00000510: 00 26 0D 6E 00 A1 23 31  2C 42 24 3A 8B 53 54 B3  |.&.n..#1,B$:.ST.|
00000520: B1 30 A7 31 31 39 00 39  0D 6F 00 8B 42 24 B3 B1  |.0.119.9.o..B$..|
00000530: C7 28 33 34 29 A7 31 31  30 00 59 0D 70 00 A1 23  |.(34).110.Y.p..#|
00000540: 31 2C 42 24 3A 8B 42 24  B3 B1 C7 28 33 34 29 A7  |1,B$:.B$...(34).|
00000550: 99 42 24 3B 3A 89 31 31  32 00 72 0D 71 00 A1 23  |.B$;:.112.r.q..#|
00000560: 31 2C 42 24 3A 8B 42 24  B2 C7 28 33 32 29 A7 31  |1,B$:.B$..(32).1|
00000570: 31 33 00 83 0D 72 00 99  A3 31 38 29 3B 3A 43 24  |13...r...18);:C$|
00000580: B2 22 22 00 A3 0D 73 00  43 24 B2 43 24 AA 42 24  |.""...s.C$.C$.B$|
00000590: 3A A1 23 31 2C 42 24 3A  8B 42 24 B3 B1 22 22 A7  |:.#1,B$:.B$.."".|
000005A0: 31 31 35 00 B3 0D 74 00  99 22 20 22 C8 28 43 24  |115...t.." ".(C$|
000005B0: 2C 33 29 00 C8 0D 75 00  A1 54 24 3A 8B 54 24 B3  |,3)...u..T$:.T$.|
000005C0: B1 22 22 A7 8D 31 32 31  00 D6 0D 76 00 8B 53 54  |.""..121...v..ST|
000005D0: B2 30 A7 31 30 34 00 EB  0D 77 00 99 22 C2 4C 4F  |.0.104...w..".LO|
000005E0: 43 4B 53 20 C6 52 49 20  20 20 22 00 1F 0E 78 00  |CKS .RI   "...x.|
000005F0: A0 31 3A 99 22 11 D4 52  59 4B 20 27 4D 27 20 46  |.1:."..RYK 'M' F|
00000600: 4F 52 20 4D 45 4E 55 20  54 52 59 4B 20 27 46 27  |OR MENU TRYK 'F'|
00000610: 20 46 4F 52 20 44 49 52  45 43 54 4F 52 59 22 00  | FOR DIRECTORY".|
00000620: 32 0E 79 00 A1 54 24 3A  8B 54 24 B2 22 22 A7 31  |2.y..T$:.T$."".1|
00000630: 32 31 00 43 0E 7A 00 8B  54 24 B2 22 46 22 A7 8A  |21.C.z..T$."F"..|
00000640: 31 30 30 00 51 0E 7B 00  8B 54 24 B2 22 4D 22 A7  |100.Q.{..T$."M".|
00000650: 8A 00 57 0E 7C 00 3A 00  5D 0E 7D 00 3A 00 78 0E  |..W.|.:.].}.:.x.|
00000660: C8 00 8F 20 2A 2A 20 46  4F 52 4D 41 54 54 45 52  |... ** FORMATTER|
00000670: 20 44 49 53 4B 20 2A 2A  00 A5 0E C9 00 99 22 93  | DISK **......".|
00000680: 05 11 C9 4E 44 53 41 45  54 20 44 49 53 4B 20 53  |...NDSAET DISK S|
00000690: 4F 4D 20 53 4B 41 4C 20  46 4F 52 4D 41 54 54 45  |OM SKAL FORMATTE|
000006A0: 52 45 53 2E 22 00 B8 0E  CA 00 A1 41 24 3A 8B 41  |RES."......A$:.A|
000006B0: 24 B2 22 22 A7 32 30 32  00 CF 0E CB 00 85 22 11  |$."".202......".|
000006C0: C4 49 53 4B 20 4E 41 56  4E 20 22 3B 44 4E 24 00  |.ISK NAVN ";DN$.|
000006D0: E7 0E CC 00 8B 44 4E 24  B2 22 22 A7 99 22 91 91  |.....DN$."".."..|
000006E0: 91 22 3A 89 32 30 33 00  1F 0F CD 00 8B C3 28 44  |.":.203.......(D|
000006F0: 4E 24 29 B1 31 36 A7 99  22 C4 49 53 4B 20 4E 41  |N$).16..".ISK NA|
00000700: 56 4E 20 46 4F 52 20 4C  41 4E 47 20 21 22 3A 81  |VN FOR LANG !":.|
00000710: 54 B2 31 A4 31 30 30 30  3A 82 3A 89 32 30 33 00  |T.1.1000:.:.203.|
00000720: 42 0F CE 00 46 B2 30 3A  81 4A B2 31 A4 C3 28 44  |B...F.0:.J.1..(D|
00000730: 4E 24 29 3A 53 4C 24 B2  CA 28 44 4E 24 2C 4A 2C  |N$):SL$..(DN$,J,|
00000740: 31 29 00 5C 0F CF 00 8B  53 4C 24 B2 22 22 B0 53  |1).\....SL$."".S|
00000750: 4C 24 B2 C7 28 33 34 29  A7 46 B2 31 00 72 0F D0  |L$..(34).F.1.r..|
00000760: 00 82 4A 3A 8B 46 A7 99  22 91 91 91 22 3A 89 32  |..J:.F.."...":.2|
00000770: 30 33 00 87 0F D1 00 85  22 11 C4 49 53 4B 20 49  |03......"..ISK I|
00000780: 44 20 22 3B 44 49 24 00  9F 0F D2 00 8B 44 49 24  |D ";DI$......DI$|
00000790: B2 22 22 A7 99 22 91 91  91 22 3A 89 32 30 39 00  |."".."...":.209.|
000007A0: BA 0F D3 00 8B C3 28 44  49 24 29 B3 B1 32 A7 99  |......(DI$)..2..|
000007B0: 22 91 91 91 22 3A 89 32  30 39 00 C7 0F D4 00 9F  |"...":.209......|
000007C0: 31 35 2C 38 2C 31 35 00  E1 0F D5 00 98 31 35 2C  |15,8,15......15,|
000007D0: 22 4E 30 3A 22 AA 44 4E  24 AA 22 2C 22 AA 44 49  |"N0:".DN$.",".DI|
000007E0: 24 00 FC 0F D6 00 99 22  11 C6 4F 52 4D 41 54 54  |$......"..ORMATT|
000007F0: 45 52 45 52 2E 2E 2E 2E  2E 2E 2E 22 00 11 10 D7  |ERER......."....|
00000800: 00 81 54 B2 31 A4 32 30  30 30 30 3A 82 3A A0 31  |..T.1.20000:.:.1|
00000810: 35 00 2F 10 D8 00 99 22  11 C6 4F 52 4D 41 54 54  |5./...."..ORMATT|
00000820: 45 52 49 4E 47 20 46 41  45 52 44 49 47 2E 22 00  |ERING FAERDIG.".|
00000830: 60 10 D9 00 99 22 11 D3  4B 41 4C 20 44 45 52 20  |`...."..KAL DER |
00000840: 46 4F 52 4D 41 54 54 45  52 45 53 20 45 4E 44 4E  |FORMATTERES ENDN|
00000850: 55 20 45 4E 20 44 49 53  4B 20 28 59 2F 4E 29 22  |U EN DISK (Y/N)"|
00000860: 00 73 10 DA 00 A1 41 24  3A 8B 41 24 B2 22 22 A7  |.s....A$:.A$."".|
00000870: 32 31 38 00 84 10 DB 00  8B 41 24 B2 22 59 22 A7  |218......A$."Y".|
00000880: 89 32 30 30 00 92 10 DC  00 8B 41 24 B2 22 4E 22  |.200......A$."N"|
00000890: A7 8A 00 98 10 DD 00 3A  00 9E 10 DE 00 3A 00 B7  |.......:.....:..|
000008A0: 10 2C 01 8F 20 2A 2A 20  45 4E 44 4C 45 53 53 20  |.,.. ** ENDLESS |
000008B0: 4C 49 53 54 20 2A 2A 00  E6 10 2D 01 99 22 93 05  |LIST **...-.."..|
000008C0: 11 C4 45 54 54 45 20 50  52 4F 47 52 41 4D 20 56  |..ETTE PROGRAM V|
000008D0: 49 4C 20 41 45 4E 44 52  45 20 C4 49 52 45 43 54  |IL AENDRE .IRECT|
000008E0: 4F 52 59 45 4E 22 00 14  11 2E 01 99 22 11 D3 41  |ORYEN"......"..A|
000008F0: 41 20 44 45 52 20 56 49  4C 20 46 52 45 4D 4B 4F  |A DER VIL FREMKO|
00000900: 4D 4D 45 20 45 4E 20 45  4E 44 45 4C 30 53 20 4C  |MME EN ENDEL0S L|
00000910: 49 53 54 22 00 43 11 2F  01 99 22 11 C4 45 4E 4E  |IST".C./.."..ENN|
00000920: 45 20 4C 49 53 54 20 56  49 4C 20 46 4F 52 53 41  |E LIST VIL FORSA|
00000930: 45 54 54 45 20 54 49 4C  20 12 52 55 4E 53 54 4F  |ETTE TIL .RUNSTO|
00000940: 50 92 22 00 71 11 30 01  99 22 11 45 52 20 54 52  |P.".q.0..".ER TR|
00000950: 59 4B 4B 45 54 2E 20 C4  45 52 20 4B 41 4E 20 12  |YKKET. .ER KAN .|
00000960: 49 4B 4B 45 92 20 53 41  56 45 53 20 50 41 41 20  |IKKE. SAVES PAA |
00000970: 22 00 A2 11 31 01 99 22  11 44 45 4E 4E 45 20 44  |"...1..".DENNE D|
00000980: 49 53 4B 2E 2E 2E 2E 2E  22 3A 99 22 11 11 12 C9  |ISK.....":."....|
00000990: 4E 44 53 41 45 54 20 44  49 53 4B 45 54 54 45 4E  |NDSAET DISKETTEN|
000009A0: 20 22 00 C4 11 32 01 99  22 11 11 D4 52 59 4B 20  | "...2.."...RYK |
000009B0: 12 52 45 54 55 52 4E 92  20 46 4F 52 20 53 54 41  |.RETURN. FOR STA|
000009C0: 52 54 2E 22 00 DB 11 33  01 A1 41 24 3A 8B 41 24  |RT."...3..A$:.A$|
000009D0: B3 B1 C7 28 31 33 29 A7  33 30 37 00 08 12 34 01  |...(13).307...4.|
000009E0: 9F 31 2C 38 2C 31 35 2C  22 49 30 22 3A 9F 35 2C  |.1,8,15,"I0":.5,|
000009F0: 38 2C 35 2C 22 23 22 3A  54 B2 31 38 3A 53 B2 31  |8,5,"#":T.18:S.1|
00000A00: 3A 51 24 B2 C7 28 30 29  00 1B 12 35 01 98 31 2C  |:Q$..(0)...5..1,|
00000A10: 22 55 31 20 35 20 30 22  54 3B 53 00 56 12 36 01  |"U1 5 0"T;S.V.6.|
00000A20: 81 49 B2 30 A4 31 3A 98  31 2C 22 4D 2D 52 22 C7  |.I.0.1:.1,"M-R".|
00000A30: 28 49 29 43 48 52 28 35  29 3A A1 23 31 2C 42 24  |(I)CHR(5):.#1,B$|
00000A40: 3A 42 24 B2 42 24 AA 51  24 3A 42 28 49 29 B2 C6  |:B$.B$.Q$:B(I)..|
00000A50: 28 42 24 29 3A 82 00 72  12 37 01 8B 42 28 30 29  |(B$):..r.7..B(0)|
00000A60: B2 31 38 20 A7 20 53 B2  42 28 31 29 3A 89 20 33  |.18 . S.B(1):. 3|
00000A70: 30 34 00 92 12 38 01 98  31 2C 22 42 2D 50 3A 20  |04...8..1,"B-P: |
00000A80: 35 20 30 22 3A 98 35 2C  C7 28 54 29 3B C7 28 31  |5 0":.5,.(T);.(1|
00000A90: 29 3B 00 B8 12 39 01 98  31 2C 22 55 32 20 35 20  |);...9..1,"U2 5 |
00000AA0: 30 20 22 54 3B 53 3A 84  31 2C 41 2C 41 24 3A 99  |0 "T;S:.1,A,A$:.|
00000AB0: 41 24 3A A0 31 3A A0 35  00 DA 12 3A 01 99 22 11  |A$:.1:.5...:..".|
00000AC0: 11 12 D3 4C 55 54 2E 2E  2E 2E 2E 22 3A 81 54 B2  |...LUT.....":.T.|
00000AD0: 31 A4 32 30 30 30 3A 82  3A 8A 00 E0 12 3B 01 3A  |1.2000:.:....;.:|
00000AE0: 00 E6 12 3C 01 3A 00 FE  12 90 01 8F 20 2A 2A 20  |...<.:...... ** |
00000AF0: 42 45 53 4B 59 54 20 44  49 53 4B 20 2A 2A 00 2D  |BESKYT DISK **.-|
00000B00: 13 91 01 99 22 93 05 11  11 C4 45 54 54 45 20 50  |....".....ETTE P|
00000B10: 52 4F 47 52 41 4D 20 41  45 4E 44 52 45 52 20 12  |ROGRAM AENDRER .|
00000B20: C9 C4 92 20 4E 55 4D 4D  45 52 45 54 22 00 51 13  |... NUMMERET".Q.|
00000B30: 92 01 99 22 11 50 41 41  20 44 49 53 4B 45 54 54  |...".PAA DISKETT|
00000B40: 45 4E 20 28 4E 4F 52 4D  41 4C 54 20 12 32 C1 92  |EN (NORMALT .2..|
00000B50: 29 00 81 13 93 01 99 22  11 C4 45 54 54 45 20 47  |)......"..ETTE G|
00000B60: 30 52 20 41 54 20 44 55  20 12 C9 CB CB C5 92 20  |0R AT DU ...... |
00000B70: 4B 41 4E 20 53 41 56 45  2C 20 53 4C 45 54 54 45  |KAN SAVE, SLETTE|
00000B80: 22 00 A6 13 94 01 99 22  11 45 4C 4C 45 52 20 46  |"......".ELLER F|
00000B90: 4F 52 4D 41 54 45 52 45  20 44 49 53 4B 45 54 54  |ORMATERE DISKETT|
00000BA0: 45 4E 2E 2E 2E 22 00 D3  13 95 01 99 22 11 CD 45  |EN..."......"..E|
00000BB0: 4E 20 44 55 20 4B 41 4E  20 47 4F 44 54 20 4C 4F  |N DU KAN GODT LO|
00000BC0: 41 44 45 20 50 52 4F 47  52 41 4D 4D 45 52 4E 45  |ADE PROGRAMMERNE|
00000BD0: 2E 2E 22 00 F0 13 96 01  99 22 11 11 12 C9 4E 44  |.."......"....ND|
00000BE0: 53 41 45 54 20 44 49 53  4B 45 54 54 45 4E 20 22  |SAET DISKETTEN "|
00000BF0: 00 12 14 97 01 99 22 11  11 D4 52 59 4B 20 12 52  |......"...RYK .R|
00000C00: 45 54 55 52 4E 92 20 46  4F 52 20 53 54 41 52 54  |ETURN. FOR START|
00000C10: 2E 22 00 29 14 98 01 A1  41 24 3A 8B 41 24 B3 B1  |.".)....A$:.A$..|
00000C20: C7 28 31 33 29 A7 34 30  38 00 45 14 99 01 9F 31  |.(13).408.E....1|
00000C30: 2C 38 2C 31 35 2C 22 49  30 22 3A 9F 35 2C 38 2C  |,8,15,"I0":.5,8,|
00000C40: 35 2C 22 23 22 00 59 14  9A 01 98 31 2C 22 55 31  |5,"#".Y....1,"U1|
00000C50: 20 35 30 20 31 38 20 30  22 00 74 14 9B 01 98 31  | 50 18 0".t....1|
00000C60: 2C 22 42 2D 50 3A 35 20  32 22 3A 98 35 2C C7 28  |,"B-P:5 2":.5,.(|
00000C70: 37 30 29 3B 00 A4 14 9C  01 98 31 2C 22 55 31 20  |70);......1,"U1 |
00000C80: 35 20 30 20 31 38 20 20  30 22 3A 84 31 2C 41 2C  |5 0 18  0":.1,A,|
00000C90: 41 24 3A 99 41 24 3A 98  31 2C 22 49 30 22 3A A0  |A$:.A$:.1,"I0":.|
00000CA0: 31 3A A0 35 00 D8 14 9D  01 99 22 11 11 12 C4 49  |1:.5......"....I|
00000CB0: 53 4B 45 4E 20 45 52 20  4E 55 20 42 45 53 4B 59  |SKEN ER NU BESKY|
00000CC0: 54 54 45 54 2E 2E 2E 2E  2E 22 3A 81 54 B2 31 A4  |TTET.....":.T.1.|
00000CD0: 32 30 30 30 3A 82 3A 8A  00 DE 14 9E 01 3A 00 E4  |2000:.:......:..|
00000CE0: 14 9F 01 3A 00 FD 14 F4  01 8F 20 2A 2A 20 4E 59  |...:...... ** NY|
00000CF0: 20 46 49 4C 45 20 4E 41  56 4E 20 2A 2A 00 29 15  | FILE NAVN **.).|
00000D00: F5 01 99 22 93 05 C4 45  54 54 45 20 50 52 4F 47  |..."...ETTE PROG|
00000D10: 52 41 4D 20 4B 41 4E 20  41 45 4E 44 52 45 20 46  |RAM KAN AENDRE F|
00000D20: 49 4C 4E 41 56 4E 45 54  22 00 50 15 F6 01 99 22  |ILNAVNET".P...."|
00000D30: 11 53 41 41 20 44 45 54  20 53 45 52 20 55 44 20  |.SAA DET SER UD |
00000D40: 53 4F 4D 20 4F 4D 20 44  45 54 20 45 52 20 49 22  |SOM OM DET ER I"|
00000D50: 00 7F 15 F7 01 99 22 11  44 49 52 45 43 54 4F 52  |......".DIRECTOR|
00000D60: 59 45 4E 2C 20 4D 45 4E  20 44 45 54 20 4B 41 4E  |YEN, MEN DET KAN|
00000D70: 20 12 C9 CB CB C5 92 20  4C 4F 41 44 45 53 22 00  | ...... LOADES".|
00000D80: 96 15 F8 01 99 22 11 45  4C 4C 45 52 20 53 4C 45  |.....".ELLER SLE|
00000D90: 54 54 45 53 2E 22 00 C3  15 F9 01 99 22 11 C6 4F  |TTES."......"..O|
00000DA0: 52 20 41 54 20 4C 4F 41  44 45 20 45 4C 4C 45 52  |R AT LOADE ELLER|
00000DB0: 20 53 4C 45 54 54 45 20  50 52 4F 47 52 41 4D 4D  | SLETTE PROGRAMM|
00000DC0: 45 54 22 00 EE 15 FA 01  99 22 11 12 D3 CB C1 CC  |ET"......"......|
00000DD0: 92 20 44 55 20 54 49 4C  46 30 4A 45 20 45 54 20  |. DU TILF0JE ET |
00000DE0: 27 12 3F 92 27 20 49 20  45 4E 44 45 4E 22 00 09  |'.?.' I ENDEN"..|
00000DF0: 16 FB 01 99 22 11 41 46  20 50 52 4F 47 52 41 4D  |....".AF PROGRAM|
00000E00: 20 4E 41 56 4E 45 54 2E  22 00 2F 16 FC 01 99 22  | NAVNET."./...."|
00000E10: 11 11 C5 CB D3 3A 20 4C  4F 41 44 27 50 52 4F 47  |.....: LOAD'PROG|
00000E20: 52 41 4D 20 4E 41 56 4E  12 3F 92 27 2C 38 22 00  |RAM NAVN.?.',8".|
00000E30: 46 16 FD 01 99 22 11 12  C9 4E 44 53 41 45 54 20  |F...."...NDSAET |
00000E40: 44 49 53 4B 20 22 00 5E  16 FE 01 99 22 11 11 12  |DISK ".^...."...|
00000E50: D4 52 59 4B 20 27 D2 C5  D4 D5 D2 CE 27 22 00 75  |.RYK '......'".u|
00000E60: 16 FF 01 A1 41 24 3A 8B  41 24 B3 B1 C7 28 31 33  |....A$:.A$...(13|
00000E70: 29 A7 35 31 31 00 89 16  00 02 85 22 11 C6 49 4C  |).511......"..IL|
00000E80: 4E 41 56 4E 20 22 3B 4E  24 00 B0 16 01 02 9F 31  |NAVN ";N$......1|
00000E90: 2C 38 2C 31 35 3A 98 31  2C 22 52 30 3A 22 AA 4E  |,8,15:.1,"R0:".N|
00000EA0: 24 AA C7 28 33 34 29 AA  22 3D 30 3A 22 AA 4E 24  |$..(34)."=0:".N$|
00000EB0: 00 C3 16 02 02 84 31 2C  41 2C 41 24 3A 99 41 24  |......1,A,A$:.A$|
00000EC0: 3A A0 31 00 D9 16 03 02  99 22 11 11 12 D3 4C 55  |:.1......"....LU|
00000ED0: 54 2E 2E 2E 2E 2E 2E 2E  22 00 EB 16 04 02 81 54  |T......."......T|
00000EE0: B2 31 A4 32 30 30 30 3A  82 3A 8A 00 F1 16 05 02  |.1.2000:.:......|
00000EF0: 3A 00 F7 16 06 02 3A 00  12 17 20 03 8F 20 2A 2A  |:.....:... .. **|
00000F00: 20 52 45 4E 41 4D 45 20  46 49 4C 45 28 53 29 20  | RENAME FILE(S) |
00000F10: 2A 2A 00 52 17 21 03 99  22 93 12 20 D2 45 4E 41  |**.R.!..".. .ENA|
00000F20: 4D 45 20 3A 20 92 22 3A  99 22 11 05 C6 4F 52 4D  |ME : .":."...ORM|
00000F30: 41 41 4C 20 3A 20 C1 54  20 47 49 56 45 20 45 4E  |AAL : .T GIVE EN|
00000F40: 20 45 4C 4C 45 52 20 46  4C 45 52 45 20 46 49 4C  | ELLER FLERE FIL|
00000F50: 45 22 00 6F 17 22 03 99  22 11 C5 54 20 12 CE D9  |E".o.".."..T ...|
00000F60: D4 92 20 4E 41 56 4E 2E  2E 2E 2E 2E 2E 2E 22 00  |.. NAVN.......".|
00000F70: 98 17 23 03 99 22 11 11  12 D4 52 59 4B 20 27 D2  |..#.."....RYK '.|
00000F80: C5 D4 D5 D2 CE 27 20 46  4F 52 20 41 54 20 53 54  |.....' FOR AT ST|
00000F90: 41 52 54 45 2E 2E 2E 22  00 AF 17 24 03 A1 41 24  |ARTE..."...$..A$|
00000FA0: 3A 8B 41 24 B3 B1 C7 28  31 33 29 A7 38 30 34 00  |:.A$...(13).804.|
00000FB0: D7 17 25 03 85 22 11 D3  4B 52 49 56 20 12 C7 C1  |..%.."..KRIV ...|
00000FC0: CD CD C5 CC 92 20 46 49  4C 45 20 4E 41 56 4E 20  |..... FILE NAVN |
00000FD0: 22 3B 44 49 53 4B 24 00  FA 17 26 03 85 22 11 D3  |";DISK$...&.."..|
00000FE0: 4B 52 49 56 20 12 CE D9  92 20 46 49 4C 45 20 4E  |KRIV .... FILE N|
00000FF0: 41 56 4E 20 22 3B 4E 57  53 24 00 1F 18 27 03 9F  |AVN ";NWS$...'..|
00001000: 31 35 2C 38 2C 31 35 3A  98 31 35 2C 22 52 3A 22  |15,8,15:.15,"R:"|
00001010: AA 4E 57 53 24 AA 22 3D  22 AA 44 49 53 4B 24 00  |.NWS$."=".DISK$.|
00001020: 27 18 28 03 A0 31 35 00  52 18 29 03 99 22 11 11  |'.(..15.R.).."..|
00001030: D3 4B 41 4C 20 44 45 52  20 52 45 4E 41 4D 45 53  |.KAL DER RENAMES|
00001040: 20 46 4C 45 52 45 20 46  49 4C 45 20 28 4A 2F 4E  | FLERE FILE (J/N|
00001050: 29 22 00 65 18 2A 03 A1  41 24 3A 8B 41 24 B2 22  |)".e.*..A$:.A$."|
00001060: 22 A7 38 31 30 00 76 18  2B 03 8B 41 24 B2 22 4A  |".810.v.+..A$."J|
00001070: 22 A7 89 38 30 30 00 84  18 2C 03 8B 41 24 B2 22  |"..800...,..A$."|
00001080: 4E 22 A7 8A 00 8A 18 2D  03 3A 00 90 18 2E 03 3A  |N".....-.:.....:|
00001090: 00 AC 18 84 03 8F 20 2A  2A 20 53 43 52 41 54 43  |...... ** SCRATC|
000010A0: 48 20 46 49 4C 45 28 53  29 20 2A 2A 00 DF 18 85  |H FILE(S) **....|
000010B0: 03 99 22 93 05 12 20 20  20 20 20 20 20 20 20 20  |.."...          |
000010C0: 20 20 20 D3 43 52 41 54  43 48 20 46 49 4C 45 28  |   .CRATCH FILE(|
000010D0: 53 29 20 20 20 20 20 20  20 20 20 20 20 20 22 00  |S)            ".|
000010E0: 0D 19 86 03 99 22 11 11  12 C6 4F 52 4D 41 41 4C  |....."....ORMAAL|
000010F0: 20 3A 92 20 C1 54 20 53  4C 45 54 54 45 20 45 4E  | :. .T SLETTE EN|
00001100: 20 45 4C 4C 45 52 20 46  4C 45 52 45 22 00 21 19  | ELLER FLERE".!.|
00001110: 87 03 99 22 11 D0 52 4F  47 52 41 4D 4D 45 52 2E  |..."..ROGRAMMER.|
00001120: 22 00 56 19 88 03 99 22  11 11 D3 4B 52 49 56 20  |".V...."...KRIV |
00001130: 46 49 4C 45 20 4E 41 56  4E 20 53 4F 4D 20 53 4B  |FILE NAVN SOM SK|
00001140: 41 4C 20 53 4C 45 54 54  45 53 22 3A 85 22 11 22  |AL SLETTES":."."|
00001150: 3B 44 49 53 4B 24 00 81  19 89 03 99 22 11 20 3C  |;DISK$......". <|
00001160: 3C 20 54 52 59 4B 20 45  4E 20 54 41 53 54 45 20  |< TRYK EN TASTE |
00001170: 46 4F 52 20 41 54 20 53  4C 45 54 54 45 20 3E 3E  |FOR AT SLETTE >>|
00001180: 22 00 94 19 8A 03 A1 41  24 3A 8B 41 24 B2 22 22  |"......A$:.A$.""|
00001190: A7 39 30 36 00 A9 19 8B  03 4D 49 43 24 B2 22 53  |.906.....MIC$."S|
000011A0: 30 3A 22 AA 44 49 53 4B  24 00 BB 19 8C 03 9F 31  |0:".DISK$......1|
000011B0: 35 2C 38 2C 31 35 2C 4D  49 43 24 00 CB 19 8D 03  |5,8,15,MIC$.....|
000011C0: A0 31 35 3A 4D 49 43 24  B2 22 22 00 E6 19 8E 03  |.15:MIC$."".....|
000011D0: 99 22 11 12 D6 41 52 20  44 45 54 20 41 4C 54 20  |."...AR DET ALT |
000011E0: 28 4A 2F 4E 29 22 00 F9  19 8F 03 A1 41 24 3A 8B  |(J/N)"......A$:.|
000011F0: 41 24 B2 22 22 A7 39 31  31 00 07 1A 90 03 8B 41  |A$."".911......A|
00001200: 24 B2 22 4A 22 A7 8A 00  18 1A 91 03 8B 41 24 B2  |$."J"........A$.|
00001210: 22 4E 22 A7 89 39 30 30  00 1E 1A 92 03 3A 00 24  |"N"..900.....:.$|
00001220: 1A 93 03 3A 00 40 1A E8  03 8F 20 2A 2A 20 49 4E  |...:.@.... ** IN|
00001230: 49 54 49 41 4C 49 5A 45  20 44 49 53 4B 20 2A 2A  |ITIALIZE DISK **|
00001240: 00 49 1A E9 03 99 22 93  22 00 75 1A EA 03 99 22  |.I....".".u...."|
00001250: 11 11 12 C9 4E 44 53 41  45 54 20 44 49 53 4B 20  |....NDSAET DISK |
00001260: 53 4F 4D 20 53 4B 41 4C  20 C9 4E 49 54 49 41 4C  |SOM SKAL .NITIAL|
00001270: 49 5A 45 53 22 00 A4 1A  EB 03 99 22 11 11 3C 3C  |IZES"......"..<<|
00001280: 20 D4 52 59 4B 20 12 D2  C5 D4 D5 D2 CE 92 20 46  | .RYK ........ F|
00001290: 4F 52 20 41 54 20 C9 4E  49 54 49 41 4C 49 5A 45  |OR AT .NITIALIZE|
000012A0: 20 3E 3E 22 00 BC 1A EC  03 A1 41 24 3A 8B 41 24  | >>"......A$:.A$|
000012B0: B3 B1 C7 28 31 33 29 A7  31 30 30 34 00 CD 1A ED  |...(13).1004....|
000012C0: 03 9F 31 35 2C 38 2C 31  35 2C 22 49 22 00 D5 1A  |..15,8,15,"I"...|
000012D0: EE 03 A0 31 35 00 FB 1A  EF 03 99 22 11 11 3C 3C  |...15......"..<<|
000012E0: 20 D4 52 59 4B 20 12 D2  C5 D4 D5 D2 CE 92 20 46  | .RYK ........ F|
000012F0: 4F 52 20 4D 45 4E 55 20  3E 3E 22 00 13 1B F0 03  |OR MENU >>".....|
00001300: A1 41 24 3A 8B 41 24 B3  B1 C7 28 31 33 29 A7 31  |.A$:.A$...(13).1|
00001310: 30 30 38 00 19 1B F1 03  8A 00 1F 1B F2 03 3A 00  |008...........:.|
00001320: 25 1B F3 03 3A 00 40 1B  4C 04 8F 20 2A 2A 20 56  |%...:.@.L.. ** V|
00001330: 41 4C 49 44 41 54 45 20  46 49 4C 45 53 20 2A 2A  |ALIDATE FILES **|
00001340: 00 49 1B 4D 04 99 22 93  22 00 7A 1B 4E 04 99 22  |.I.M..".".z.N.."|
00001350: 11 12 C1 C4 D6 C1 D2 D3  C5 CC 3A 92 20 41 41 42  |..........:. AAB|
00001360: 4E 45 20 46 49 4C 45 20  56 49 4C 20 42 4C 49 56  |NE FILE VIL BLIV|
00001370: 45 20 53 4C 45 54 54 45  54 22 00 A7 1B 4F 04 99  |E SLETTET"...O..|
00001380: 22 11 11 3C 3C 20 D4 52  59 4B 20 12 D2 C5 D4 D5  |"..<< .RYK .....|
00001390: D2 CE 92 20 46 4F 52 20  41 54 20 D6 41 4C 49 44  |... FOR AT .ALID|
000013A0: 41 54 45 20 3E 3E 22 00  BF 1B 50 04 A1 41 24 3A  |ATE >>"...P..A$:|
000013B0: 8B 41 24 B3 B1 C7 28 31  33 29 A7 31 30 30 34 00  |.A$...(13).1004.|
000013C0: CF 1B 51 04 9F 31 2C 38  2C 31 35 2C 22 56 22 00  |..Q..1,8,15,"V".|
000013D0: D6 1B 52 04 A0 31 00 EE  1B 54 04 A1 41 24 3A 8B  |..R..1...T..A$:.|
000013E0: 41 24 B3 B1 C7 28 31 33  29 A7 31 30 30 38 00 F4  |A$...(13).1008..|
000013F0: 1B 55 04 8A 00 00 00                              |.U.....         |

..#.... ***************************.E...
. **   D I S K - K I N G   **.G.... ** (
C)JENS-ARNE HOFSTEDT **...... **      >>
 1991 <<       **...... ****************
***********.....:.....:.T....G(14);G(8);
G(5):A.53280......A,6:.A.1,6......"..JEN
S-ARNE HOFSTEDT  D I S K - K I N G ".-..
.."1  = DISK CATALOG".I....".2  = FORMAT
TER DISK".C....".3  = ENDLESS LIST".|...
.".4  = BESKYT DISK"......".5  = NY FILE
 NAVN"......".6  = RENAME FILE".F....".7
  = SLET FILE"......".8  = INITIALIZE DI
SK"......".9  = VALIDATE FILES"......".V
ALG  ....";A$.R....A$."1".A$.".".."....1
  = DISK CATALOG":.T.1.1000:.:.100......
A$."2".."......2  = FORMATTER DISK":.T.1
.999:.:.200.D....A$."3".."........3  = E
NDLESS LIST":.T.1.999:.:.300......A$."4"
.."..........4  = BESKYT DISK":.T.1.999:
.:.400.;....A$."5".."............5  = NY
 FILE NAVN":.T.1.999:.:.500.Y. ..A$."6".
."..............6  = RENAME FILE":.T.1.9
99:.:.800...!..A$."7".."................
7  = SLET FILE":.T.1.999:.:.900..."..A$.
"8".."......8  = INITIALIZE DISK":.T.1.9
99:.:.1000.*.#..A$."9".."....9  = VALIDA
TE FILES":.T.1.999:.:.1100.0.$.:.6.%.:.R
.D.. ** CATALOG AF DISK **...E.."...    
          DIRECTORY                 "...
F..1,8,0,"$0"...G..#1,A$,B$...H..#1,A$,B
$...I..#1,A$,B$.G.J.C.0...K..A$.."".C.F(
A$)...L..B$.."".C.C.F(B$).256...M.."."J(
D(C),2);.3);".";.&.N..#1,B$:.ST..0.119.9
.O..B$..G(34).110.Y.P..#1,B$:.B$..G(34).
.B$;:.112.R.Q..#1,B$:.B$.G(32).113...R..
.18);:C$.""...S.C$.C$.B$:.#1,B$:.B$.."".
115...T.." "H(C$,3).H.U..T$:.T$..""..121
.V.V..ST.0.104...W.."BLOCKS FRI   "...X.
 1:.".TRYK 'M' FOR MENU TRYK 'F' FOR DIR
ECTORY".2.Y..T$:.T$."".121.C.Z..T$."F"..
100.Q.{..T$."M"...W.|.:.].}.:.X.H.. ** F
ORMATTER DISK **...I.."...INDSAET DISK S
OM SKAL FORMATTERES."...J..A$:.A$."".202
.O.K..".DISK NAVN ";DN$...L..DN$."".."..
.":.203...M..C(DN$).16.."DISK NAVN FOR L
ANG !":.T.1.1000:.:.203.B.N.F.0:.J.1.C(D
N$):SL$.J(DN$,J,1).\.O..SL$."".SL$.G(34)
.F.1.R.P..J:.F.."...":.203...Q..".DISK I
D ";DI$...R..DI$."".."...":.209...S..C(D
I$)..2.."...":.209.G.T..15,8,15...U..15,
"N0:".DN$.",".DI$...V..".FORMATTERER....
..."...W..T.1.20000:.: 15./.X..".FORMATT
ERING FAERDIG.".`.Y..".SKAL DER FORMATTE
RES ENDNU EN DISK (Y/N)".S.Z..A$:.A$."".
218......A$."Y"..200......A$."N".......:
.....:...,.. ** ENDLESS LIST **...-.."..
.DETTE PROGRAM VIL AENDRE DIRECTORYEN"..
....".SAA DER VIL FREMKOMME EN ENDEL0S L
IST".C./..".DENNE LIST VIL FORSAETTE TIL
 .RUNSTOP.".Q.0..".ER TRYKKET. DER KAN .
IKKE. SAVES PAA "...1..".DENNE DISK.....
":."...INDSAET DISKETTEN ".D.2.."..TRYK 
.RETURN. FOR START."...3..A$:.A$..G(13).
307...4..1,8,15,"I0":.5,8,5,"#":T.18:S.1
:Q$.G(0)...5..1,"U1 5 0"T;S.V.6..I.0.1:.
1,"M-R"G(I)CHR(5):.#1,B$:B$.B$.Q$:B(I).F
(B$):..R.7..B(0).18 . S.B(1):. 304...8..
1,"B-P: 5 0":.5,G(T);G(1);...9..1,"U2 5 
0 "T;S:.1,A,A$:.A$: 1: 5.Z.:.."...SLUT..
...":.T.1.2000:.:....;.:...<.:...... ** 
BESKYT DISK **.-...."....DETTE PROGRAM A
ENDRER .ID. NUMMERET".Q....".PAA DISKETT
EN (NORMALT .2A.)......".DETTE G0R AT DU
 .IKKE. KAN SAVE, SLETTE"......".ELLER F
ORMATERE DISKETTEN...".S....".MEN DU KAN
 GODT LOADE PROGRAMMERNE.."......"...IND
SAET DISKETTEN "......"..TRYK .RETURN. F
OR START.".)....A$:.A$..G(13).408.E....1
,8,15,"I0":.5,8,5,"#".Y....1,"U1 50 18 0
".T....1,"B-P:5 2":.5,G(70);......1,"U1 
5 0 18  0":.1,A,A$:.A$:.1,"I0": 1: 5.X..
.."...DISKEN ER NU BESKYTTET.....":.T.1.
2000:.:......:.....:...... ** NY FILE NA
VN **.)...."..DETTE PROGRAM KAN AENDRE F
ILNAVNET".P....".SAA DET SER UD SOM OM D
ET ER I".....".DIRECTORYEN, MEN DET KAN
 .IKKE. LOADES"......".ELLER SLETTES.".C
....".FOR AT LOADE ELLER SLETTE PROGRAMM
ET"......"..SKAL. DU TILF0JE ET '.?.' I 
ENDEN"......".AF PROGRAM NAVNET."./...."
..EKS: LOAD'PROGRAM NAVN.?.',8".F...."..
INDSAET DISK ".^...."...TRYK 'RETURN'".U
....A$:.A$..G(13).511......".FILNAVN ";N
$......1,8,15:.1,"R0:".N$.G(34)."=0:".N$
.C....1,A,A$:.A$: 1.Y...."...SLUT.......
"......T.1.2000:.:......:.....:... .. **
 RENAME FILE(S) **.R.!..".. RENAME : .":
."..FORMAAL : AT GIVE EN ELLER FLERE FIL
E".O."..".ET .NYT. NAVN......."...#.."..
.TRYK 'RETURN' FOR AT STARTE..."...$..A$
:.A$..G(13).804.W.%..".SKRIV .GAMMEL. FI
LE NAVN ";DISK$...&..".SKRIV .NY. FILE N
AVN ";NWS$...'..15,8,15:.15,"R:".NWS$."=
".DISK$.'.(. 15.R.).."..SKAL DER RENAMES
 FLERE FILE (J/N)".E.*..A$:.A$."".810.V.
+..A$."J"..800...,..A$."N".....-.:.....:
...... ** SCRATCH FILE(S) **......"...  
           SCRATCH FILE(S)            ".
....."...FORMAAL :. AT SLETTE EN ELLER F
LERE".!....".PROGRAMMER.".V...."..SKRIV 
FILE NAVN SOM SKAL SLETTES":.".";DISK$..
....". << TRYK EN TASTE FOR AT SLETTE >>
"......A$:.A$."".906.....MIC$."S0:".DISK
$......15,8,15,MIC$.K... 15:MIC$."".....
."..VAR DET ALT (J/N)"......A$:.A$."".91
1......A$."J"........A$."N"..900.....:.$
...:.@.... ** INITIALIZE DISK **.I....".
".U...."...INDSAET DISK SOM SKAL INITIAL
IZES"......"..<< TRYK .RETURN. FOR AT IN
ITIALIZE >>"......A$:.A$..G(13).1004.M..
..15,8,15,"I".U... 15......"..<< TRYK .R
ETURN. FOR MENU >>"......A$:.A$..G(13).1
008...........:.%...:.@.L.. ** VALIDATE 
FILES **.I.M..".".Z.N.."..ADVARSEL:. AAB
NE FILE VIL BLIVE SLETTET"...O.."..<< TR
YK .RETURN. FOR AT VALIDATE >>"...P..A$:
.A$..G(13).1004.O.Q..1,8,15,"V".V.R. 1..
.T..A$:.A$..G(13).1008...U.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL