00000000: 01 08 0C 08 5A 00 8D 31 30 30 30 30 00 24 08 64 |....Z..10000.$.d|
00000010: 00 97 35 33 32 38 30 2C 31 31 3A 97 35 33 32 38 |..53280,11:.5328|
00000020: 31 2C 31 32 00 2F 08 6E 00 99 22 93 1F 11 22 00 |1,12./.n.."...".|
00000030: 5E 08 78 00 99 22 20 20 20 20 20 20 20 20 20 44 |^.x.." D|
00000040: 20 49 20 53 20 4B 20 4D 20 41 20 4E 20 41 20 47 | I S K M A N A G|
00000050: 20 45 20 52 20 20 20 20 20 20 20 20 11 22 00 8C | E R ."..|
00000060: 08 82 00 99 22 20 20 20 20 12 20 43 52 45 41 54 |...." . CREAT|
00000070: 45 44 20 31 39 38 34 20 20 42 59 20 20 4A 4F 45 |ED 1984 BY JOE|
00000080: 52 47 20 4B 4C 4F 43 4B 45 20 92 22 00 B1 08 8C |RG KLOCKE ."....|
00000090: 00 99 22 11 11 11 1D 1D 1D 99 12 20 31 20 92 20 |.."........ 1 . |
000000A0: 20 46 4F 52 4D 41 54 20 4E 45 57 20 44 49 53 4B | FORMAT NEW DISK|
000000B0: 22 00 D6 08 96 00 99 22 11 1D 1D 1D 99 12 20 32 |"......"...... 2|
000000C0: 20 92 20 20 44 49 53 50 4C 41 59 20 44 49 52 45 | . DISPLAY DIRE|
000000D0: 43 54 4F 52 59 22 00 FE 08 A0 00 99 22 11 1D 1D |CTORY"......"...|
000000E0: 1D 99 12 20 33 20 92 20 20 43 48 41 4E 47 45 20 |... 3 . CHANGE |
000000F0: 44 49 53 4B 4E 41 4D 45 20 2F 20 49 44 22 00 1E |DISKNAME / ID"..|
00000100: 09 AA 00 99 22 11 1D 1D 1D 99 12 20 34 20 92 20 |...."...... 4 . |
00000110: 20 52 45 4E 41 4D 45 20 46 49 4C 45 53 22 00 3F | RENAME FILES".?|
00000120: 09 B4 00 99 22 11 1D 1D 1D 99 12 20 35 20 92 20 |...."...... 5 . |
00000130: 20 53 43 52 41 54 43 48 20 46 49 4C 45 53 22 00 | SCRATCH FILES".|
00000140: 60 09 BE 00 99 22 11 1D 1D 1D 99 12 20 36 20 92 |`...."...... 6 .|
00000150: 20 20 45 4E 44 20 50 52 4F 47 52 41 4D 20 20 22 | END PROGRAM "|
00000160: 00 87 09 D2 00 99 22 1C 11 11 11 1D 1D 1D 45 4E |......".......EN|
00000170: 54 45 52 20 59 4F 55 52 20 41 4E 53 57 45 52 20 |TER YOUR ANSWER |
00000180: 12 20 3F 20 92 99 22 00 9C 09 DC 00 A1 41 24 3A |. ? .."......A$:|
00000190: 8B 20 41 24 B2 22 22 A7 89 32 32 30 00 AD 09 E6 |. A$.""..220....|
000001A0: 00 8B 41 24 B3 22 31 22 A7 89 32 32 30 00 BE 09 |..A$."1"..220...|
000001B0: F0 00 8B 41 24 B1 22 36 22 A7 89 32 32 30 00 D0 |...A$."6"..220..|
000001C0: 09 FA 00 8B 41 24 B2 22 31 22 A7 89 31 30 30 30 |....A$."1"..1000|
000001D0: 00 E2 09 04 01 8B 41 24 B2 22 32 22 A7 89 32 30 |......A$."2"..20|
000001E0: 30 30 00 F4 09 0E 01 8B 41 24 B2 22 33 22 A7 89 |00......A$."3"..|
000001F0: 33 30 30 30 00 06 0A 18 01 8B 41 24 B2 22 34 22 |3000......A$."4"|
00000200: A7 89 34 30 30 30 00 18 0A 22 01 8B 41 24 B2 22 |..4000..."..A$."|
00000210: 35 22 A7 89 35 30 30 30 00 2B 0A 2C 01 8B 41 24 |5"..5000.+.,..A$|
00000220: B2 22 36 22 A7 9E 36 34 37 33 38 00 34 0A E8 03 |."6"..64738.4...|
00000230: 99 22 93 22 00 68 0A F2 03 99 22 11 12 1C 20 20 |.".".h...."... |
00000240: 20 46 55 4E 4B 54 49 4F 4E 20 20 20 31 20 20 20 | FUNKTION 1 |
00000250: 3A 20 20 20 46 4F 52 4D 41 54 20 4E 45 57 20 44 |: FORMAT NEW D|
00000260: 49 53 4B 20 20 20 92 22 00 8E 0A FC 03 99 22 11 |ISK ."......".|
00000270: 11 11 1D 1D 1D 9E 49 4E 50 55 54 20 44 49 53 4B |......INPUT DISK|
00000280: 4E 41 4D 45 20 41 4E 44 20 49 44 20 3A 22 00 B2 |NAME AND ID :"..|
00000290: 0A 06 04 99 22 11 11 11 9F 20 20 20 20 20 2D 2D |....".... --|
000002A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2C 2D |--------------,-|
000002B0: 2D 22 00 C7 0A 10 04 85 22 91 91 05 1D 1D 1D 22 |-"......"......"|
000002C0: 3B 4E 24 2C 49 44 24 00 D4 0A 1A 04 9F 31 35 2C |;N$,ID$......15,|
000002D0: 38 2C 31 35 00 E9 0A 24 04 98 31 35 2C 22 4E 3A |8,15...$..15,"N:|
000002E0: 22 4E 24 22 2C 22 49 44 24 00 F1 0A 2E 04 A0 31 |"N$","ID$......1|
000002F0: 35 00 FC 0A 38 04 8D 32 30 30 30 30 00 0E 0B 3D |5...8..20000...=|
00000300: 04 8B 41 24 B2 22 30 30 22 A7 89 31 30 30 00 22 |..A$."00"..100."|
00000310: 0B 42 04 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 30 |.B..X$:.X$."".10|
00000320: 39 30 00 34 0B 4C 04 8B 58 24 B2 22 59 22 A7 89 |90.4.L..X$."Y"..|
00000330: 31 30 30 30 00 45 0B 56 04 8B 58 24 B2 22 4E 22 |1000.E.V..X$."N"|
00000340: A7 89 31 30 30 00 4F 0B 60 04 89 31 30 39 30 00 |..100.O.`..1090.|
00000350: 58 0B D0 07 99 22 93 22 00 8C 0B DA 07 99 22 11 |X...."."......".|
00000360: 12 1C 20 20 20 46 55 4E 4B 54 49 4F 4E 20 20 20 |.. FUNKTION |
00000370: 32 20 20 20 3A 20 20 20 44 49 53 50 4C 41 59 20 |2 : DISPLAY |
00000380: 44 49 52 45 43 54 4F 52 59 20 92 22 00 97 0B E4 |DIRECTORY ."....|
00000390: 07 8D 33 30 30 30 30 00 AA 0B E9 07 8B 41 24 B2 |..30000......A$.|
000003A0: 22 30 30 22 A7 89 32 30 37 30 00 BE 0B EE 07 A1 |"00"..2070......|
000003B0: 58 24 3A 8B 58 24 B2 22 22 A7 32 30 33 30 00 D0 |X$:.X$."".2030..|
000003C0: 0B F8 07 8B 58 24 B2 22 59 22 A7 89 32 30 30 30 |....X$."Y"..2000|
000003D0: 00 E1 0B 02 08 8B 58 24 B2 22 4E 22 A7 89 31 30 |......X$."N"..10|
000003E0: 30 00 EB 0B 0C 08 89 32 30 33 30 00 09 0C 16 08 |0......2030.....|
000003F0: 99 22 11 1D 1D 1D 1C 12 20 45 4E 54 45 52 20 41 |."...... ENTER A|
00000400: 4E 59 20 4B 45 59 20 92 22 00 1D 0C 20 08 A1 58 |NY KEY ."... ..X|
00000410: 24 3A 8B 58 24 B2 22 22 89 32 30 38 30 00 26 0C |$:.X$."".2080.&.|
00000420: 2A 08 89 31 30 30 00 5B 0C B8 0B 99 22 93 11 12 |*..100.[...."...|
00000430: 1C 20 20 20 46 55 4E 4B 54 49 4F 4E 20 20 33 20 |. FUNKTION 3 |
00000440: 20 20 3A 20 20 43 48 41 4E 47 45 20 44 49 53 4B | : CHANGE DISK|
00000450: 4E 41 4D 45 2F 49 44 20 20 92 22 00 81 0C C2 0B |NAME/ID .".....|
00000460: 99 22 11 11 11 1D 1D 1D 99 43 48 41 4E 47 45 20 |.".......CHANGE |
00000470: 4F 46 20 44 49 53 4B 2D 12 05 4E 92 99 41 4D 45 |OF DISK-..N..AME|
00000480: 22 00 A3 0C CC 0B 99 22 1D 1D 1D 99 20 20 20 20 |"......".... |
00000490: 20 20 20 4F 52 20 44 49 53 4B 2D 12 05 49 92 99 | OR DISK-..I..|
000004A0: 44 22 3B 00 C6 0C D6 0B 99 22 1D 1D 1D 1D 12 9E |D";......"......|
000004B0: 20 28 05 4E 9E 2F 05 49 9E 29 20 92 20 20 12 1C | (.N./.I.) . ..|
000004C0: 20 3F 20 92 22 3B 00 DA 0C E0 0B A1 58 24 3A 8B | ? .";......X$:.|
000004D0: 58 24 B2 22 22 A7 33 30 34 30 00 F4 0C EA 0B 8B |X$."".3040......|
000004E0: 58 24 B3 B1 22 49 22 AF 58 24 B3 B1 22 4E 22 A7 |X$.."I".X$.."N".|
000004F0: 33 30 34 30 00 10 0D F4 0B 8B 58 24 B2 22 49 22 |3040......X$."I"|
00000500: A7 99 22 12 9D 9D 9D 9D 9D 9D 9D 9D 1F 49 92 22 |.."..........I."|
00000510: 00 2E 0D FE 0B 8B 58 24 B2 22 4E 22 A7 99 22 12 |......X$."N"..".|
00000520: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 1F 4E 92 22 00 52 |...........N.".R|
00000530: 0D 08 0C 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |....15,8,15:.15,|
00000540: 22 49 22 AA 44 56 24 3A 9F 31 2C 38 2C 33 2C 22 |"I".DV$:.1,8,3,"|
00000550: 23 22 00 77 0D 12 0C 98 31 35 2C 22 55 31 3A 33 |#".w....15,"U1:3|
00000560: 22 44 56 22 2C 31 38 2C 30 22 3A 8B 58 24 B2 22 |"DV",18,0":.X$."|
00000570: 4E 22 89 33 32 33 30 00 9E 0D 1C 0C 98 31 35 2C |N".3230......15,|
00000580: 22 42 2D 50 3A 33 2C 31 36 32 22 3A A1 23 31 2C |"B-P:3,162":.#1,|
00000590: 41 24 2C 42 24 2C 43 24 2C 44 24 2C 45 24 00 B9 |A$,B$,C$,D$,E$..|
000005A0: 0D 26 0C 99 22 11 9E 1D 1D 1D 44 49 53 4B 2D 49 |.&..".....DISK-I|
000005B0: 44 20 49 53 20 12 05 22 3B 00 F6 0D 30 0C 99 41 |D IS ..";...0..A|
000005C0: 24 3B 42 24 3B 43 24 3B 44 24 3B 45 24 3A 85 22 |$;B$;C$;D$;E$:."|
000005D0: 9E 11 1D 1D 1D 4E 45 57 20 44 49 53 4B 2D 49 44 |.....NEW DISK-ID|
000005E0: 20 28 20 4D 41 58 2E 20 35 20 4B 45 59 53 20 29 | ( MAX. 5 KEYS )|
000005F0: 05 22 3B 4E 49 24 00 0A 0E 3A 0C 8B 4E 49 24 B2 |.";NI$...:..NI$.|
00000600: 22 22 A7 99 3A 89 33 31 37 30 00 29 0E 44 0C 8B |""..:.3170.).D..|
00000610: C3 28 4E 49 24 29 B3 B1 34 A7 49 24 B2 C8 28 4E |.(NI$)..4.I$..(N|
00000620: 49 24 AA 22 20 22 2C 35 29 00 58 0E 4E 0C 98 31 |I$." ",5).X.N..1|
00000630: 35 2C 22 42 2D 50 3A 33 2C 31 36 32 22 3A 98 31 |5,"B-P:3,162":.1|
00000640: 2C 4E 49 24 3B 3A 98 31 35 2C 22 55 32 3A 33 22 |,NI$;:.15,"U2:3"|
00000650: 44 56 22 2C 31 38 2C 30 00 77 0E 58 0C 49 24 B2 |DV",18,0.w.X.I$.|
00000660: 22 49 22 AA CA 28 C4 28 44 56 29 2C 32 29 3A 98 |"I"..(.(DV),2):.|
00000670: 31 35 2C 49 24 3A 99 00 9D 0E 62 0C A0 31 3A 9F |15,I$:....b..1:.|
00000680: 31 2C 38 2C 33 2C 22 23 22 3A 98 31 35 2C 22 55 |1,8,3,"#":.15,"U|
00000690: 31 3A 33 22 44 56 22 2C 31 38 2C 30 22 00 DF 0E |1:3"DV",18,0"...|
000006A0: 6C 0C 98 31 35 2C 22 42 2D 50 3A 33 2C 31 36 32 |l..15,"B-P:3,162|
000006B0: 22 3A A1 23 31 2C 41 24 2C 42 24 2C 43 24 2C 44 |":.#1,A$,B$,C$,D|
000006C0: 24 2C 45 24 3A 99 22 9E 1D 1D 1D 44 49 53 4B 2D |$,E$:."....DISK-|
000006D0: 49 44 20 20 20 49 53 20 3A 20 12 05 20 22 3B 00 |ID IS : .. ";.|
000006E0: F3 0E 76 0C 99 41 24 3B 42 24 3B 43 24 3B 44 24 |..v..A$;B$;C$;D$|
000006F0: 3B 45 24 00 2A 0F 80 0C 98 31 35 2C 22 42 2D 50 |;E$.*....15,"B-P|
00000700: 3A 33 2C 31 34 34 22 3A 44 4E 24 B2 22 22 3A 81 |:3,144":DN$."":.|
00000710: 4C B2 31 A4 31 36 3A A1 23 31 2C 41 24 3A 44 4E |L.1.16:.#1,A$:DN|
00000720: 24 B2 44 4E 24 AA 41 24 3A 82 00 51 0F 8A 0C 99 |$.DN$.A$:..Q....|
00000730: 22 11 1D 1D 1D 9E 44 49 53 4B 2D 4E 41 4D 45 20 |".....DISK-NAME |
00000740: 49 53 20 3A 20 12 05 20 22 AA 44 4E 24 AA 22 20 |IS : .. ".DN$." |
00000750: 22 00 69 0F 94 0C A0 31 3A A0 31 35 3A 97 31 39 |".i....1:.15:.19|
00000760: 38 2C 30 3A 89 33 33 30 30 00 A0 0F 9E 0C 98 31 |8,0:.3300......1|
00000770: 35 2C 22 42 2D 50 3A 33 2C 31 34 34 22 3A 44 4E |5,"B-P:3,144":DN|
00000780: 24 B2 22 22 3A 81 4C B2 31 A4 31 36 3A A1 23 31 |$."":.L.1.16:.#1|
00000790: 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 |,A$:DN$.DN$.A$:.|
000007A0: 00 D2 0F A8 0C 99 22 11 1D 1D 1D 9E 4F 4C 44 20 |......".....OLD |
000007B0: 44 49 53 4B 2D 4E 41 4D 45 20 49 53 20 3A 20 22 |DISK-NAME IS : "|
000007C0: 3A 99 22 11 1D 1D 1D 12 20 22 AA 44 4E 24 AA 22 |:."..... ".DN$."|
000007D0: 20 22 00 13 10 B2 0C 99 22 11 1D 1D 1D 05 49 4E | "......".....IN|
000007E0: 50 55 54 20 4E 45 57 20 44 49 53 4B 2D 4E 41 4D |PUT NEW DISK-NAM|
000007F0: 45 20 9E 28 20 4D 41 58 2E 20 31 36 20 4B 45 59 |E .( MAX. 16 KEY|
00000800: 53 21 20 29 22 3A 85 22 1D 1D 1D 05 22 3B 4E 44 |S! )":."....";ND|
00000810: 24 3A 99 00 24 10 BC 0C 8B 4E 44 24 B2 22 22 A7 |$:..$....ND$."".|
00000820: 33 31 37 30 00 47 10 C6 0C 4E 44 24 B2 C8 28 4E |3170.G...ND$..(N|
00000830: 44 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |D$." |
00000840: 20 20 22 2C 31 36 29 00 7D 10 D0 0C 98 31 35 2C | ",16).}....15,|
00000850: 22 42 2D 50 3A 33 2C 31 34 34 22 3A 98 31 2C 4E |"B-P:3,144":.1,N|
00000860: 44 24 3B 3A 98 31 35 2C 22 55 32 3A 33 22 44 56 |D$;:.15,"U2:3"DV|
00000870: 22 2C 31 38 2C 30 22 3A 89 33 31 36 30 00 88 10 |",18,0":.3160...|
00000880: E4 0C 8D 32 30 30 30 30 00 9A 10 EE 0C 8B 41 24 |...20000......A$|
00000890: B2 22 30 30 22 A7 33 34 30 30 00 AE 10 20 0D A1 |."00".3400... ..|
000008A0: 58 24 3A 8B 58 24 B2 22 22 A7 33 33 36 30 00 C0 |X$:.X$."".3360..|
000008B0: 10 2A 0D 8B 58 24 B2 22 59 22 A7 89 33 30 30 30 |.*..X$."Y"..3000|
000008C0: 00 D1 10 34 0D 8B 58 24 B2 22 4E 22 A7 89 31 30 |...4..X$."N"..10|
000008D0: 30 00 DB 10 3E 0D 89 33 33 36 30 00 F9 10 48 0D |0...>..3360...H.|
000008E0: 99 22 11 1D 1D 1D 1C 12 20 45 4E 54 45 52 20 41 |."...... ENTER A|
000008F0: 4E 59 20 4B 45 59 20 92 22 00 0D 11 52 0D A1 58 |NY KEY ."...R..X|
00000900: 24 3A 8B 58 24 B2 22 22 89 33 34 31 30 00 16 11 |$:.X$."".3410...|
00000910: 5C 0D 89 31 30 30 00 1F 11 A0 0F 99 22 93 22 00 |\..100......".".|
00000920: 53 11 AA 0F 99 22 11 12 1C 20 20 20 46 55 4E 4B |S...."... FUNK|
00000930: 54 49 4F 4E 20 20 20 34 20 20 20 3A 20 20 20 20 |TION 4 : |
00000940: 52 45 4E 41 4D 45 20 20 46 49 4C 45 53 20 20 20 |RENAME FILES |
00000950: 20 92 22 00 5E 11 BE 0F 8D 33 30 30 30 30 00 70 | .".^....30000.p|
00000960: 11 04 10 8B 41 24 B2 22 30 30 22 A7 34 31 34 30 |....A$."00".4140|
00000970: 00 84 11 0E 10 A1 58 24 3A 8B 58 24 B2 22 22 A7 |......X$:.X$."".|
00000980: 34 31 31 30 00 96 11 18 10 8B 58 24 B2 22 59 22 |4110......X$."Y"|
00000990: A7 89 34 30 30 30 00 B0 11 22 10 8B 58 24 B2 22 |..4000..."..X$."|
000009A0: 4E 22 A7 89 31 30 30 45 4C 53 45 89 34 31 31 30 |N"..100ELSE.4110|
000009B0: 00 D4 11 2C 10 99 22 1D 1D 1D 11 11 9E 49 4E 50 |...,.."......INP|
000009C0: 55 54 20 4F 4C 44 20 46 49 4C 45 4E 41 4D 45 3A |UT OLD FILENAME:|
000009D0: 20 20 22 3B 00 E0 11 36 10 85 22 05 22 3B 4F 24 | ";...6..".";O$|
000009E0: 00 03 12 40 10 99 22 11 1D 1D 1D 9E 49 4E 50 55 |...@..".....INPU|
000009F0: 54 20 4E 45 57 20 46 49 4C 45 4E 41 4D 45 3A 20 |T NEW FILENAME: |
00000A00: 20 22 3B 00 11 12 4A 10 85 22 05 22 3B 4E 24 3A | ";...J..".";N$:|
00000A10: 99 00 2F 12 54 10 9F 31 2C 38 2C 31 35 2C 22 52 |../.T..1,8,15,"R|
00000A20: 3A 22 AA 4E 24 AA 22 3D 22 AA 4F 24 AA 22 22 00 |:".N$."=".O$."".|
00000A30: 36 12 5E 10 A0 31 00 41 12 68 10 8D 32 30 30 30 |6.^..1.A.h..2000|
00000A40: 30 00 53 12 9A 10 8B 41 24 B2 22 30 30 22 A7 34 |0.S....A$."00".4|
00000A50: 33 30 30 00 67 12 A4 10 A1 58 24 3A 8B 58 24 B2 |300.g....X$:.X$.|
00000A60: 22 22 A7 34 32 36 30 00 79 12 AE 10 8B 58 24 B2 |"".4260.y....X$.|
00000A70: 22 59 22 A7 89 34 30 30 30 00 8A 12 B8 10 8B 58 |"Y"..4000......X|
00000A80: 24 B2 22 4E 22 A7 89 31 30 30 00 94 12 C2 10 89 |$."N"..100......|
00000A90: 34 32 36 30 00 9F 12 CC 10 8D 33 30 30 30 30 00 |4260......30000.|
00000AA0: B1 12 12 11 8B 41 24 B2 22 30 30 22 A7 34 34 32 |.....A$."00".442|
00000AB0: 30 00 C5 12 1C 11 A1 58 24 3A 8B 58 24 B2 22 22 |0......X$:.X$.""|
00000AC0: A7 34 33 38 30 00 D7 12 26 11 8B 58 24 B2 22 59 |.4380...&..X$."Y|
00000AD0: 22 A7 89 34 30 30 30 00 E8 12 30 11 8B 58 24 B2 |"..4000...0..X$.|
00000AE0: 22 4E 22 A7 89 31 30 30 00 F2 12 3A 11 89 34 33 |"N"..100...:..43|
00000AF0: 38 30 00 10 13 44 11 99 22 11 1D 1D 1D 1C 12 20 |80...D.."...... |
00000B00: 45 4E 54 45 52 20 41 4E 59 20 4B 45 59 20 92 22 |ENTER ANY KEY ."|
00000B10: 00 24 13 4E 11 A1 58 24 3A 8B 58 24 B2 22 22 89 |.$.N..X$:.X$."".|
00000B20: 34 34 33 30 00 2D 13 58 11 89 31 30 30 00 36 13 |4430.-.X..100.6.|
00000B30: 88 13 99 22 93 22 00 6A 13 92 13 99 22 11 12 1C |...".".j...."...|
00000B40: 20 20 20 46 55 4E 4B 54 49 4F 4E 20 20 20 35 20 | FUNKTION 5 |
00000B50: 20 20 3A 20 20 20 20 53 43 52 41 54 43 48 20 46 | : SCRATCH F|
00000B60: 49 4C 45 53 20 20 20 20 92 22 00 75 13 9C 13 8D |ILES .".u....|
00000B70: 33 30 30 30 30 00 87 13 D8 13 8B 41 24 B2 22 30 |30000......A$."0|
00000B80: 30 22 A7 35 31 32 30 00 9B 13 E2 13 A1 58 24 3A |0".5120......X$:|
00000B90: 8B 58 24 B2 22 22 A7 35 30 39 30 00 AD 13 EC 13 |.X$."".5090.....|
00000BA0: 8B 58 24 B2 22 59 22 A7 89 35 30 30 30 00 C7 13 |.X$."Y"..5000...|
00000BB0: F6 13 8B 58 24 B2 22 4E 22 A7 89 31 30 30 45 4C |...X$."N"..100EL|
00000BC0: 53 45 89 35 30 39 30 00 E7 13 00 14 99 22 11 11 |SE.5090......"..|
00000BD0: 1D 1D 1D 9E 49 4E 50 55 54 20 46 49 4C 45 4E 41 |....INPUT FILENA|
00000BE0: 4D 45 3A 20 20 22 3B 00 F3 13 0A 14 85 22 05 22 |ME: ";......"."|
00000BF0: 3B 53 24 00 0A 14 14 14 9F 31 2C 38 2C 31 35 2C |;S$......1,8,15,|
00000C00: 22 53 3A 22 AA 53 24 AA 22 22 00 11 14 1E 14 A0 |"S:".S$.""......|
00000C10: 31 00 1C 14 28 14 8D 32 30 30 30 30 00 2E 14 5A |1...(..20000...Z|
00000C20: 14 8B 41 24 B2 22 30 30 22 A7 35 32 36 30 00 42 |..A$."00".5260.B|
00000C30: 14 64 14 A1 58 24 3A 8B 58 24 B2 22 22 A7 35 32 |.d..X$:.X$."".52|
00000C40: 32 30 00 54 14 6E 14 8B 58 24 B2 22 59 22 A7 89 |20.T.n..X$."Y"..|
00000C50: 35 30 30 30 00 65 14 78 14 8B 58 24 B2 22 4E 22 |5000.e.x..X$."N"|
00000C60: A7 89 31 30 30 00 6F 14 82 14 89 35 32 32 30 00 |..100.o....5220.|
00000C70: 7A 14 8C 14 8D 33 30 30 30 30 00 8C 14 D2 14 8B |z....30000......|
00000C80: 41 24 B2 22 30 30 22 A7 35 33 38 30 00 A0 14 DC |A$."00".5380....|
00000C90: 14 A1 58 24 3A 8B 58 24 B2 22 22 A7 35 33 34 30 |..X$:.X$."".5340|
00000CA0: 00 B2 14 E6 14 8B 58 24 B2 22 59 22 A7 89 35 30 |......X$."Y"..50|
00000CB0: 30 30 00 C3 14 F0 14 8B 58 24 B2 22 4E 22 A7 89 |00......X$."N"..|
00000CC0: 31 30 30 00 CD 14 FA 14 89 35 33 34 30 00 EB 14 |100......5340...|
00000CD0: 04 15 99 22 11 1D 1D 1D 1C 12 20 45 4E 54 45 52 |..."...... ENTER|
00000CE0: 20 41 4E 59 20 4B 45 59 20 92 22 00 FF 14 0E 15 | ANY KEY .".....|
00000CF0: A1 58 24 3A 8B 58 24 B2 22 22 89 35 33 39 30 00 |.X$:.X$."".5390.|
00000D00: 08 15 18 15 89 31 30 30 00 0E 15 0F 27 80 00 21 |.....100....'..!|
00000D10: 15 10 27 81 41 B2 34 39 31 35 32 A4 34 39 32 35 |..'.A.49152.4925|
00000D20: 36 00 2F 15 1A 27 87 58 3A 97 41 2C 58 3A 82 00 |6./..'.X:.A,X:..|
00000D30: 61 15 24 27 83 31 36 39 2C 33 36 2C 31 33 33 2C |a.$'.169,36,133,|
00000D40: 32 35 31 2C 31 36 39 2C 32 35 31 2C 31 33 33 2C |251,169,251,133,|
00000D50: 31 38 37 2C 31 36 39 2C 30 2C 31 33 33 2C 31 38 |187,169,0,133,18|
00000D60: 38 00 91 15 2E 27 83 31 36 39 2C 31 2C 31 33 33 |8....'.169,1,133|
00000D70: 2C 31 38 33 2C 31 36 39 2C 38 2C 31 33 33 2C 31 |,183,169,8,133,1|
00000D80: 38 36 2C 31 36 39 2C 39 36 2C 31 33 33 2C 31 38 |86,169,96,133,18|
00000D90: 35 00 C3 15 38 27 83 33 32 2C 32 31 33 2C 32 34 |5...8'.32,213,24|
00000DA0: 33 2C 31 36 35 2C 31 38 36 2C 33 32 2C 31 38 30 |3,165,186,32,180|
00000DB0: 2C 32 35 35 2C 31 36 35 2C 31 38 35 2C 33 32 2C |,255,165,185,32,|
00000DC0: 31 35 30 00 F3 15 42 27 83 32 35 35 2C 31 36 39 |150...B'.255,169|
00000DD0: 2C 30 2C 31 33 33 2C 31 34 34 2C 31 36 30 2C 33 |,0,133,144,160,3|
00000DE0: 2C 31 33 32 2C 32 35 31 2C 33 32 2C 31 36 35 2C |,132,251,32,165,|
00000DF0: 32 35 35 00 26 16 4C 27 83 31 33 33 2C 32 35 32 |255.&.L'.133,252|
00000E00: 2C 31 36 34 2C 31 34 34 2C 32 30 38 2C 34 37 2C |,164,144,208,47,|
00000E10: 33 32 2C 31 36 35 2C 32 35 35 2C 31 36 34 2C 31 |32,165,255,164,1|
00000E20: 34 34 2C 32 30 38 00 59 16 56 27 83 34 30 2C 31 |44,208.Y.V'.40,1|
00000E30: 36 34 2C 32 35 31 2C 31 33 36 2C 32 30 38 2C 32 |64,251,136,208,2|
00000E40: 33 33 2C 31 36 36 2C 32 35 32 2C 33 32 2C 32 30 |33,166,252,32,20|
00000E50: 35 2C 31 38 39 2C 31 36 39 00 8A 16 60 27 83 33 |5,189,169...`'.3|
00000E60: 32 2C 33 32 2C 32 31 30 2C 32 35 35 2C 33 32 2C |2,32,210,255,32,|
00000E70: 31 36 35 2C 32 35 35 2C 31 36 36 2C 31 34 34 2C |165,255,166,144,|
00000E80: 32 30 38 2C 31 38 2C 31 37 30 00 B8 16 6A 27 83 |208,18,170...j'.|
00000E90: 32 34 30 2C 36 2C 33 32 2C 32 31 30 2C 32 35 35 |240,6,32,210,255|
00000EA0: 2C 37 36 2C 37 36 2C 31 39 32 2C 31 36 39 2C 31 |,76,76,192,169,1|
00000EB0: 33 2C 33 32 2C 32 31 30 00 DD 16 74 27 83 20 32 |3,32,210...t'. 2|
00000EC0: 35 35 2C 31 36 30 2C 32 2C 32 30 38 2C 31 39 38 |55,160,2,208,198|
00000ED0: 2C 33 32 2C 36 36 2C 32 34 36 2C 39 36 00 E3 16 |,32,66,246,96...|
00000EE0: 7E 27 8E 00 F0 16 20 4E 9F 31 35 2C 38 2C 31 35 |~'.... N.15,8,15|
00000EF0: 00 04 17 2A 4E 84 31 35 2C 41 24 2C 42 24 2C 43 |...*N.15,A$,B$,C|
00000F00: 24 2C 44 24 00 2D 17 34 4E 8B 41 24 B3 B1 22 30 |$,D$.-.4N.A$.."0|
00000F10: 30 22 A7 99 22 11 11 11 1D 1D 1D 22 41 24 22 2C |0".."......"A$",|
00000F20: 22 42 24 22 2C 22 43 24 22 2C 22 44 24 00 35 17 |"B$","C$","D$.5.|
00000F30: 3E 4E A0 31 35 00 62 17 48 4E 8B 41 24 B3 B1 22 |>N.15.b.HN.A$.."|
00000F40: 30 30 22 A7 99 22 9E 11 11 11 11 1D 1D 1D 54 52 |00".."........TR|
00000F50: 59 20 41 47 41 49 4E 20 1C 12 59 2F 4E 92 9E 20 |Y AGAIN ..Y/N.. |
00000F60: 3F 22 00 68 17 52 4E 8E 00 71 17 30 75 99 22 9E |?".h.RN..q.0u.".|
00000F70: 22 00 7E 17 3A 75 9E 31 32 AC 34 30 39 36 00 89 |".~.:u.12.4096..|
00000F80: 17 44 75 8D 32 30 30 30 30 00 8F 17 4E 75 8E 00 |.Du.20000...Nu..|
00000F90: 00 00 A3 69 FF |...i. |
....Z..10000.$.D..53280,11:.53281,12./.N
.."...".^.X.." D I S K M A N A G
E R ."......" . CREATED 1984
BY JOERG KLOCKE ."......"........ 1 .
FORMAT NEW DISK".V...."...... 2 . DISP
LAY DIRECTORY"... .."...... 3 . CHANGE
DISKNAME / ID"......"...... 4 . RENAME
FILES".?...."...... 5 . SCRATCH FILES".
`...."...... 6 . END PROGRAM "...R..".
......ENTER YOUR ANSWER . ? .."......A$:
. A$.""..220......A$."1"..220......A$."6
"..220.P....A$."1"..1000......A$."2"..20
00......A$."3"..3000......A$."4"..4000..
."..A$."5"..5000.+.,..A$."6"..64738.4...
.".".H...."... FUNKTION 1 : FORM
AT NEW DISK ."......".......INPUT DISK
NAME AND ID :"......".... ----------
------,--".G...."......";N$,ID$.T....15,
8,15...$..15,"N:"N$","ID$..... 15...8..2
0000...=..A$."00"..100.".B..X$:.X$."".10
90.4.L..X$."Y"..1000.E.V..X$."N"..100.O.
`..1090.X.P.."."...Z.."... FUNKTION
2 : DISPLAY DIRECTORY ."......30000.
.....A$."00"..2070......X$:.X$."".2030.P
....X$."Y"..2000......X$."N"..100......2
030......"...... ENTER ANY KEY ."... ..X
$:.X$."".2080.&.*..100.[....".... FUNK
TION 3 : CHANGE DISKNAME/ID ."...B.
.".......CHANGE OF DISK-..N..AME"...L.."
.... OR DISK-..I..D";.F.V.."......
(.N./.I.) . .. ? .";.Z....X$:.X$."".30
40......X$.."I".X$.."N".3040......X$."I"
.."..........I."......X$."N"..".........
...N.".R....15,8,15:.15,"I".DV$:.1,8,3,"
#".W....15,"U1:3"DV",18,0":.X$."N".3230.
.....15,"B-P:3,162":.#1,A$,B$,C$,D$,E$..
.&..".....DISK-ID IS ..";...0..A$;B$;C$;
D$;E$:.".....NEW DISK-ID ( MAX. 5 KEYS )
.";NI$...:..NI$.""..:.3170.).D..C(NI$)..
4.I$.H(NI$." ",5).X.N..15,"B-P:3,162":.1
,NI$;:.15,"U2:3"DV",18,0.W.X.I$."I".J(D(
DV),2):.15,I$:....B. 1:.1,8,3,"#":.15,"U
1:3"DV",18,0"...L..15,"B-P:3,162":.#1,A$
,B$,C$,D$,E$:."....DISK-ID IS : .. ";.
..V..A$;B$;C$;D$;E$.*....15,"B-P:3,144":
DN$."":.L.1.16:.#1,A$:DN$.DN$.A$:..Q....
".....DISK-NAME IS : .. ".DN$." ".I... 1
: 15:.198,0:.3300. ....15,"B-P:3,144":DN
$."":.L.1.16:.#1,A$:DN$.DN$.A$:..R....".
....OLD DISK-NAME IS : ":."..... ".DN$."
"......".....INPUT NEW DISK-NAME .( MAX
. 16 KEYS! )":."....";ND$:..$....ND$."".
3170.G.F.ND$.H(ND$." ",16).
}.P..15,"B-P:3,144":.1,ND$;:.15,"U2:3"DV
",18,0":.3160......20000......A$."00".34
00... ..X$:.X$."".3360...*..X$."Y"..3000
.Q.4..X$."N"..100...>..3360...H.."......
ENTER ANY KEY ."...R..X$:.X$."".3410...
\..100... ..".".S...."... FUNKTION 4
: RENAME FILES .".^....30000.P
....A$."00".4140......X$:.X$."".4110....
..X$."Y"..4000..."..X$."N"..100ELSE.4110
.T.,.."......INPUT OLD FILENAME: ";...6
..".";O$...@..".....INPUT NEW FILENAME:
";...J..".";N$:../.T..1,8,15,"R:".N$."=
".O$."".6.^. 1.A.H..20000.S....A$."00".4
300.G....X$:.X$."".4260.Y....X$."Y"..400
0......X$."N"..100...B..4260...L..30000.
.....A$."00".4420.E....X$:.X$."".4380.W.
&..X$."Y"..4000...0..X$."N"..100...:..43
80...D.."...... ENTER ANY KEY .".$.N..X$
:.X$."".4430.-.X..100.6....".".J...."...
FUNKTION 5 : SCRATCH FILES
.".U....30000...X..A$."00".5120......X$:
.X$."".5090......X$."Y"..5000.G....X$."N
"..100ELSE.5090......"......INPUT FILENA
ME: ";......".";S$......1,8,15,"S:".S$.
""..... 1...(..20000...Z..A$."00".5260.B
.D..X$:.X$."".5220.T.N..X$."Y"..5000.E.X
..X$."N"..100.O....5220.Z....30000...R..
A$."00".5380. ....X$:.X$."".5340......X$
."Y"..5000.C....X$."N"..100.M....5340...
..."...... ENTER ANY KEY ."......X$:.X$.
"".5390......100....'..!..'.A.49152.4925
6./..'.X:.A,X:..A.$'.169,36,133,251,169,
251,133,187,169,0,133,188....'.169,1,133
,183,169,8,133,186,169,96,133,185.C.8'.3
2,213,243,165,186,32,180,255,165,185,32,
150...B'.255,169,0,133,144,160,3,132,251
,32,165,255.&.L'.133,252,164,144,208,47,
32,165,255,164,144,208.Y.V'.40,164,251,1
36,208,233,166,252,32,205,189,169...`'.3
2,32,210,255,32,165,255,166,144,208,18,1
70...J'.240,6,32,210,255,76,76,192,169,1
3,32,210...T'. 255,160,2,208,198,32,66,2
46,96...~'.... N.15,8,15...*N.15,A$,B$,C
$,D$.-.4N.A$.."00".."......"A$","B$","C$
","D$.5.>N 15.B.HN.A$.."00".."........TR
Y AGAIN ..Y/N.. ?".H.RN..Q.0U.".".~.:U.1
2.4096...DU.20000...NU.....I.