DISK-BEFEHLE

00000000: 01 08 19 08 01 00 86 20  46 58 24 28 32 30 30 29  |....... FX$(200)|
00000010: 2C 46 4C 24 28 32 30 30  29 00 3A 08 02 00 81 58  |,FL$(200).:....X|
00000020: B2 31 A4 31 39 37 A9 33  3A 46 58 24 28 58 29 B2  |.1.197.3:FX$(X).|
00000030: 22 20 20 20 20 20 22 AA  22 22 00 5E 08 03 00 46  |"     "."".^...F|
00000040: 58 24 28 58 AA 31 29 B2  22 20 20 20 20 20 20 20  |X$(X.1)."       |
00000050: 20 20 20 20 20 20 20 20  20 20 22 AA 22 22 00 78  |          "."".x|
00000060: 08 04 00 46 58 24 28 58  AA 32 29 B2 22 20 20 20  |...FX$(X.2)."   |
00000070: 20 20 22 AA 22 22 3A 82  00 95 08 05 00 53 59 B2  |  "."":......SY.|
00000080: 28 C2 28 34 36 29 AC 32  35 36 AA C2 28 34 35 29  |(.(46).256..(45)|
00000090: 29 AB 32 39 30 00 C1 08  0A 00 99 22 93 11 11 11  |).290......"....|
000000A0: 11 11 11 1D 1D 1D 1D 1D  1D 1D 1D 1D 12 46 31 92  |.............F1.|
000000B0: 20 20 4C 49 53 54 20 44  49 52 45 43 54 4F 52 59  |  LIST DIRECTORY|
000000C0: 22 00 E6 08 14 00 99 22  11 1D 1D 1D 1D 1D 1D 1D  |"......"........|
000000D0: 1D 1D 12 46 33 92 20 20  52 45 4E 41 4D 45 20 20  |...F3.  RENAME  |
000000E0: 46 49 4C 45 53 22 00 0B  09 1E 00 99 22 11 1D 1D  |FILES"......"...|
000000F0: 1D 1D 1D 1D 1D 1D 1D 12  46 35 92 20 20 53 43 52  |........F5.  SCR|
00000100: 41 54 43 48 20 46 49 4C  45 53 22 00 31 09 28 00  |ATCH FILES".1.(.|
00000110: 99 22 11 1D 1D 1D 1D 1D  1D 1D 1D 1D 12 46 37 92  |."...........F7.|
00000120: 20 20 52 45 4E 41 4D 45  20 44 49 53 4B 2B 49 44  |  RENAME DISK+ID|
00000130: 22 00 55 09 32 00 99 22  11 1D 1D 1D 1D 1D 1D 1D  |".U.2.."........|
00000140: 1D 1D 12 46 32 92 20 20  53 43 52 41 54 43 48 20  |...F2.  SCRATCH |
00000150: 44 49 53 4B 22 00 7A 09  3C 00 99 22 11 1D 1D 1D  |DISK".z.<.."....|
00000160: 1D 1D 1D 1D 1D 1D 12 46  34 92 20 20 56 41 4C 49  |.......F4.  VALI|
00000170: 44 41 54 45 20 44 49 53  4B 22 00 9E 09 50 00 99  |DATE DISK"...P..|
00000180: 22 11 1D 1D 1D 1D 1D 1D  1D 1D 1D 12 46 38 92 20  |"...........F8. |
00000190: 20 53 54 4F 50 20 50 52  4F 47 52 41 4D 22 00 B3  | STOP PROGRAM"..|
000001A0: 09 64 00 A1 20 41 24 3A  8B 20 41 24 B2 22 22 A7  |.d.. A$:. A$."".|
000001B0: 31 30 30 00 D2 09 6A 00  42 B2 C6 28 41 24 29 3A  |100...j.B..(A$):|
000001C0: 8B 20 42 B3 31 33 33 B0  20 42 B1 31 34 30 A7 31  |. B.133. B.140.1|
000001D0: 30 30 00 E9 09 6E 00 41  24 B2 C7 28 42 AB 38 34  |00...n.A$..(B.84|
000001E0: 29 3A 41 B2 C5 28 41 24  29 00 16 0A 78 00 91 20  |):A..(A$)...x.. |
000001F0: 41 20 8D 20 31 35 30 2C  33 30 30 2C 34 30 30 2C  |A . 150,300,400,|
00000200: 35 30 30 30 2C 36 30 30  30 2C 37 30 30 30 2C 31  |5000,6000,7000,1|
00000210: 34 30 2C 31 34 30 00 1E  0A 82 00 89 31 30 00 24  |40,140......10.$|
00000220: 0A 8C 00 80 00 2E 0A 96  00 8D 20 39 30 30 00 60  |.......... 900.`|
00000230: 0A A0 00 99 22 93 22 3B  A3 36 29 3B 22 12 22 3B  |....".";.6);".";|
00000240: 46 58 24 28 32 29 3B A3  32 36 29 3B C8 28 46 58  |FX$(2);.26);.(FX|
00000250: 24 28 33 29 2C 32 29 3B  22 11 22 3A 4C 5A B2 30  |$(3),2);".":LZ.0|
00000260: 00 73 0A AA 00 81 20 58  B2 34 20 A4 20 31 39 37  |.s.... X.4 . 197|
00000270: 20 A9 33 00 B1 0A B4 00  99 46 58 24 28 58 29 3B  | .3......FX$(X);|
00000280: A3 36 29 3B 46 58 24 28  58 AA 31 29 3B A3 32 36  |.6);FX$(X.1);.26|
00000290: 29 3B 46 58 24 28 58 AA  32 29 3A 4C 5A B2 4C 5A  |);FX$(X.2):LZ.LZ|
000002A0: AA 31 3A 8B 20 4C 5A B2  32 32 20 A7 20 8D 32 30  |.1:. LZ.22 . .20|
000002B0: 30 00 C6 0A B9 00 8B 20  46 58 24 28 58 AA 31 29  |0...... FX$(X.1)|
000002C0: B3 B1 22 22 A7 82 00 EF  0A BC 00 99 20 22 91 20  |..""........ ". |
000002D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 00  |              ".|
000002F0: 22 0B BE 00 99 20 22 12  22 3B 46 58 24 28 58 29  |".... ".";FX$(X)|
00000300: 3B A3 36 29 3B 22 42 59  54 45 53 20 46 52 45 45  |;.6);"BYTES FREE|
00000310: 92 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000320: 20 22 00 37 0B C8 00 A1  20 41 24 3A 8B 20 41 24  | ".7.... A$:. A$|
00000330: B2 22 22 A7 32 30 30 00  48 0B D2 00 4C 5A B2 30  |."".200.H...LZ.0|
00000340: 3A 99 22 93 22 3A 20 8E  00 64 0B 2C 01 8F 20 2A  |:.".": ..d.,.. *|
00000350: 2A 2A 20 52 45 4E 41 4D  45 20 20 46 49 4C 45 53  |** RENAME  FILES|
00000360: 20 2A 2A 2A 00 8A 0B 36  01 4D 24 B2 22 93 11 1D  | ***...6.M$."...|
00000370: 1D 1D 1D 12 20 2A 2A 2A  20 52 45 4E 41 4D 45 20  |.... *** RENAME |
00000380: 46 49 4C 45 53 20 2A 2A  2A 22 00 A2 0B 40 01 8D  |FILES ***"...@..|
00000390: 39 30 30 3A 8D 20 37 30  30 3A 9F 31 35 2C 38 2C  |900:. 700:.15,8,|
000003A0: 31 35 00 B4 0B 4A 01 81  20 58 B2 34 20 A4 20 4C  |15...J.. X.4 . L|
000003B0: 4E 20 A9 33 00 CA 0B 54  01 8B 20 46 4C 24 28 58  |N .3...T.. FL$(X|
000003C0: 29 B2 22 22 20 A7 20 33  36 30 00 F1 0B 5E 01 41  |)."" . 360...^.A|
000003D0: 24 B2 22 52 3A 22 AA 46  4C 24 28 58 29 AA 22 3D  |$."R:".FL$(X)."=|
000003E0: 22 AA 46 58 24 28 58 AA  31 29 3A 98 31 35 2C 41  |".FX$(X.1):.15,A|
000003F0: 24 00 10 0C 63 01 99 22  46 49 4C 45 20 22 46 58  |$...c.."FILE "FX|
00000400: 24 28 58 AA 31 29 22 20  52 45 4E 41 4D 45 44 22  |$(X.1)" RENAMED"|
00000410: 00 1D 0C 68 01 82 20 3A  20 A0 20 31 35 00 23 0C  |...h.. : . 15.#.|
00000420: 72 01 8E 00 3F 0C 90 01  8F 20 2A 2A 2A 20 53 43  |r...?.... *** SC|
00000430: 52 41 54 43 48 20 46 49  4C 45 53 20 2A 2A 2A 00  |RATCH FILES ***.|
00000440: 66 0C 9A 01 4D 24 B2 22  93 11 1D 1D 1D 1D 12 20  |f...M$."....... |
00000450: 2A 2A 2A 20 53 43 52 41  54 43 48 20 46 49 4C 45  |*** SCRATCH FILE|
00000460: 53 20 2A 2A 2A 22 00 7E  0C A4 01 8D 39 30 30 3A  |S ***".~....900:|
00000470: 8D 20 38 30 30 3A 9F 31  35 2C 38 2C 31 35 00 90  |. 800:.15,8,15..|
00000480: 0C AE 01 81 20 58 B2 34  20 A4 20 4C 4E 20 A9 33  |.... X.4 . LN .3|
00000490: 00 A8 0C B8 01 8B 20 46  4C 24 28 58 29 B3 B1 22  |...... FL$(X).."|
000004A0: 59 22 20 A7 20 34 36 30  00 C4 0C C2 01 41 24 B2  |Y" . 460.....A$.|
000004B0: 22 53 3A 22 AA 46 58 24  28 58 AA 31 29 3A 98 31  |"S:".FX$(X.1):.1|
000004C0: 35 2C 41 24 00 E5 0C C7  01 99 22 46 49 4C 45 20  |5,A$......"FILE |
000004D0: 22 46 58 24 28 58 AA 31  29 22 20 53 43 52 41 54  |"FX$(X.1)" SCRAT|
000004E0: 43 48 45 44 22 00 F2 0C  CC 01 82 20 3A 20 A0 20  |CHED"...... : . |
000004F0: 31 35 00 F8 0C D6 01 8E  00 29 0D BC 02 99 20 4D  |15.......).... M|
00000500: 24 3A 99 22 11 1D 1D 1D  1D 45 4E 54 45 52 20 4E  |$:.".....ENTER N|
00000510: 45 57 20 46 49 4C 45 2D  4E 41 4D 45 20 4F 52 20  |EW FILE-NAME OR |
00000520: 12 52 45 54 55 52 4E 11  22 00 4C 0D C6 02 81 20  |.RETURN.".L.... |
00000530: 58 B2 34 20 A4 20 31 39  37 A9 33 3A 46 4C 24 28  |X.4 . 197.3:FL$(|
00000540: 58 29 B2 22 22 3A 4C 4E  B2 58 AB 31 00 61 0D CB  |X)."":LN.X.1.a..|
00000550: 02 8B 20 46 58 24 28 58  AA 31 29 B2 22 22 A7 20  |.. FX$(X.1)."". |
00000560: 8E 00 84 0D D0 02 99 46  58 24 28 58 29 3B A3 34  |.......FX$(X);.4|
00000570: 29 3B 46 58 24 28 58 AA  31 29 3B A3 32 31 29 3B  |);FX$(X.1);.21);|
00000580: 22 12 22 3B 00 95 0D DA  02 85 20 46 4C 24 28 58  |".";...... FL$(X|
00000590: 29 3A 82 3A 8E 00 B1 0D  20 03 99 20 4D 24 3A 99  |):.:.... .. M$:.|
000005A0: 22 11 1D 1D 1D 1D 45 4E  54 45 52 20 59 2F 4E 11  |".....ENTER Y/N.|
000005B0: 22 00 C8 0D 2A 03 81 20  58 B2 34 20 A4 20 31 39  |"...*.. X.4 . 19|
000005C0: 37 A9 33 3A 4C 4E B2 58  00 DD 0D 2F 03 8B 20 46  |7.3:LN.X.../.. F|
000005D0: 58 24 28 58 AA 31 29 B2  22 22 A7 20 8E 00 05 0E  |X$(X.1)."". ....|
000005E0: 34 03 99 46 58 24 28 58  29 3B A3 36 29 3B 46 58  |4..FX$(X);.6);FX|
000005F0: 24 28 58 AA 31 29 3B A3  32 36 29 3B 46 58 24 28  |$(X.1);.26);FX$(|
00000600: 58 AA 32 29 3B 00 24 0E  3E 03 A1 41 24 3A 8B 41  |X.2);.$.>..A$:.A|
00000610: 24 B2 22 59 22 A7 46 4C  24 28 58 29 B2 41 24 3A  |$."Y".FL$(X).A$:|
00000620: 89 38 36 30 00 37 0E 48  03 8B 20 41 24 B3 B1 22  |.860.7.H.. A$.."|
00000630: 4E 22 A7 20 38 33 30 00  45 0E 52 03 46 4C 24 28  |N". 830.E.R.FL$(|
00000640: 58 29 B2 41 24 00 54 0E  5C 03 99 22 20 20 12 22  |X).A$.T.\.."  ."|
00000650: 41 24 3A 82 00 5A 0E 66  03 8E 00 7C 0E 84 03 8F  |A$:..Z.f...|....|
00000660: 20 2A 2A 2A 20 52 45 41  44 20 24 20 49 4E 20 56  | *** READ $ IN V|
00000670: 41 52 49 41 42 4C 45 53  20 2A 2A 2A 00 85 0E 98  |ARIABLES ***....|
00000680: 03 9E 20 53 59 00 8B 0E  AC 03 8E 00 98 0E 88 13  |.. SY...........|
00000690: 9F 20 31 2C 38 2C 31 35  00 A8 0E 92 13 9F 20 32  |. 1,8,15...... 2|
000006A0: 2C 38 2C 32 2C 22 23 22  00 BC 0E 9C 13 98 20 31  |,8,2,"#"...... 1|
000006B0: 2C 22 55 31 20 32 20 30  20 31 38 22 00 D8 0E A6  |,"U1 2 0 18"....|
000006C0: 13 98 20 31 2C 22 42 2D  50 20 32 20 31 34 34 22  |.. 1,"B-P 2 144"|
000006D0: 20 3A 20 46 24 B2 22 22  00 F7 0E B0 13 99 3A 99  | : F$.""......:.|
000006E0: 20 22 93 11 11 1D 44 49  53 4B 20 4E 41 4D 45 20  | "....DISK NAME |
000006F0: 49 53 3A 20 12 22 3B 00  06 0F BA 13 81 20 49 B2  |IS: .";...... I.|
00000700: 31 20 A4 20 31 36 00 24  0F C4 13 A1 23 20 32 2C  |1 . 16.$....# 2,|
00000710: 20 41 24 3A 8B 20 41 24  B2 C7 28 31 36 30 29 A7  | A$:. A$..(160).|
00000720: 35 30 38 30 00 35 0F CE  13 46 24 B2 46 24 AA 41  |5080.5...F$.F$.A|
00000730: 24 20 3A 20 82 00 49 0F  D8 13 98 20 31 2C 22 42  |$ : ..I.... 1,"B|
00000740: 2D 50 20 32 20 31 36 32  22 00 58 0F E2 13 A1 23  |-P 2 162".X....#|
00000750: 20 32 2C 42 24 2C 43 24  00 71 0F EC 13 49 24 B2  | 2,B$,C$.q...I$.|
00000760: 42 24 AA 43 24 3A 99 20  46 24 22 20 20 20 22 49  |B$.C$:. F$"   "I|
00000770: 24 00 7F 0F F6 13 A0 20  32 20 3A 20 A0 20 31 00  |$...... 2 : . 1.|
00000780: 9D 0F 00 14 99 20 22 1D  11 11 11 45 4E 54 45 52  |..... "....ENTER|
00000790: 20 4E 45 57 20 4E 41 4D  45 20 3A 22 3B 00 A6 0F  | NEW NAME :";...|
000007A0: 0A 14 85 20 46 24 00 C0  0F 14 14 99 22 1D 11 11  |... F$......"...|
000007B0: 45 4E 54 45 52 20 4E 45  57 20 49 44 20 3A 22 3B  |ENTER NEW ID :";|
000007C0: 00 C9 0F 28 14 85 20 49  24 00 D6 0F 32 14 9F 20  |...(.. I$...2.. |
000007D0: 31 2C 38 2C 31 35 00 E6  0F 3C 14 9F 20 32 2C 38  |1,8,15...<.. 2,8|
000007E0: 2C 32 2C 22 23 22 00 FA  0F 46 14 98 20 31 2C 22  |,2,"#"...F.. 1,"|
000007F0: 55 31 20 32 20 30 20 31  38 22 00 0E 10 50 14 98  |U1 2 0 18"...P..|
00000800: 20 31 2C 22 42 2D 50 20  32 20 31 34 34 22 00 1E  | 1,"B-P 2 144"..|
00000810: 10 5A 14 46 24 B2 C8 28  46 24 2C 31 35 29 00 43  |.Z.F$..(F$,15).C|
00000820: 10 64 14 8B 20 C3 28 46  24 29 B3 31 35 20 A7 20  |.d.. .(F$).15 . |
00000830: 46 24 B2 46 24 AA C7 28  31 36 30 29 3A 89 20 35  |F$.F$..(160):. 5|
00000840: 32 32 30 00 68 10 6E 14  49 24 B2 C8 28 49 24 2C  |220.h.n.I$..(I$,|
00000850: 32 29 3A 8B 20 C3 28 49  24 29 B2 31 20 A7 20 49  |2):. .(I$).1 . I|
00000860: 24 B2 49 24 AA 22 20 22  00 74 10 78 14 98 20 32  |$.I$." ".t.x.. 2|
00000870: 2C 46 24 3B 00 88 10 82  14 98 20 31 2C 22 42 2D  |,F$;...... 1,"B-|
00000880: 50 20 32 20 31 36 32 22  00 94 10 8C 14 98 20 32  |P 2 162"...... 2|
00000890: 2C 49 24 3B 00 A6 10 96  14 98 20 31 2C 22 42 2D  |,I$;...... 1,"B-|
000008A0: 50 20 32 20 30 22 00 C3  10 A0 14 42 24 B2 C7 28  |P 2 0".....B$..(|
000008B0: 31 38 29 AA C7 28 31 29  AA C7 28 36 35 29 AA C7  |18)..(1)..(65)..|
000008C0: 28 30 29 00 CE 10 AA 14  98 32 2C 42 24 3B 00 E2  |(0)......2,B$;..|
000008D0: 10 B4 14 98 20 31 2C 22  42 2D 50 20 32 20 31 36  |.... 1,"B-P 2 16|
000008E0: 34 22 00 FC 10 BE 14 42  24 B2 C7 28 31 36 30 29  |4".....B$..(160)|
000008F0: AA C7 28 35 30 29 AA C7  28 36 35 29 00 0A 11 C8  |..(50)..(65)....|
00000900: 14 43 24 B2 C7 28 31 36  30 29 00 17 11 D2 14 44  |.C$..(160).....D|
00000910: 24 B2 42 24 AA 43 24 00  21 11 DC 14 98 32 2C 44  |$.B$.C$.!....2,D|
00000920: 24 00 37 11 E6 14 98 20  31 2C 22 55 32 20 32 20  |$.7.... 1,"U2 2 |
00000930: 30 20 31 38 20 30 22 00  3F 11 F0 14 A0 20 32 00  |0 18 0".?.... 2.|
00000940: 56 11 FA 14 98 20 31 2C  22 49 30 22 20 3A 20 A0  |V.... 1,"I0" : .|
00000950: 20 31 3A 89 31 30 00 83  11 70 17 99 20 22 93 11  | 1:.10...p.. "..|
00000960: 11 11 11 11 11 44 4F 20  59 4F 55 20 52 45 41 4C  |.....DO YOU REAL|
00000970: 4C 59 20 57 41 4E 54 20  54 4F 20 53 43 52 41 54  |LY WANT TO SCRAT|
00000980: 43 48 22 00 98 11 71 17  99 20 22 11 41 4C 4C 20  |CH"...q.. ".ALL |
00000990: 46 49 4C 45 53 20 3F 22  00 AF 11 75 17 A1 20 41  |FILES ?"...u.. A|
000009A0: 24 3A 8B 20 41 24 B2 22  22 A7 20 36 30 30 35 00  |$:. A$."". 6005.|
000009B0: C0 11 7A 17 8B 20 41 24  B3 B1 22 59 22 A7 20 8E  |..z.. A$.."Y". .|
000009C0: 00 D9 11 7F 17 9F 20 31  2C 38 2C 31 35 3A 9F 20  |...... 1,8,15:. |
000009D0: 32 2C 38 2C 32 2C 22 23  22 00 ED 11 84 17 98 20  |2,8,2,"#"...... |
000009E0: 31 2C 22 55 31 20 32 20  30 20 31 38 22 00 09 12  |1,"U1 2 0 18"...|
000009F0: 8E 17 98 20 31 2C 22 42  2D 50 20 32 20 31 34 34  |... 1,"B-P 2 144|
00000A00: 22 20 3A 20 46 24 B2 22  22 00 18 12 A2 17 81 20  |" : F$.""...... |
00000A10: 49 B2 31 20 A4 20 31 36  00 36 12 AC 17 A1 23 20  |I.1 . 16.6....# |
00000A20: 32 2C 20 41 24 3A 8B 20  41 24 B2 C7 28 31 36 30  |2, A$:. A$..(160|
00000A30: 29 A7 36 30 38 30 00 47  12 B6 17 46 24 B2 46 24  |).6080.G...F$.F$|
00000A40: AA 41 24 20 3A 20 82 00  56 12 C0 17 98 31 2C 22  |.A$ : ..V....1,"|
00000A50: 4E 3A 22 AA 46 24 00 65  12 CA 17 A0 31 2C 32 3A  |N:".F$.e....1,2:|
00000A60: 89 20 31 35 30 00 7B 12  58 1B 9F 20 31 2C 38 2C  |. 150.{.X.. 1,8,|
00000A70: 31 35 2C 22 56 22 3A A0  31 3A 8E 00 00 00 16 FF  |15,"V":.1:......|
00000A80: 00 00 16 0F AA 00 00 00  00 00 A9 24 85 FB A9 FB  |...........$....|
00000A90: 85 BB A9 00 85 BC A9 01  85 B7 A9 08 85 BA A9 60  |...............`|
00000AA0: 85 B9 20 D5 F3 A5 BA 20  B4 FF A5 B9 20 96 FF A9  |.. .... .... ...|
00000AB0: 00 85 90 A5 2F 85 45 A5  30 85 46 A9 07 18 65 45  |..../.E.0.F...eE|
00000AC0: 85 45 90 02 E6 46 A0 01  B1 45 85 49 C8 B1 45 85  |.E...F...E.I..E.|
00000AD0: 4A A0 03 84 FB 20 A5 FF  85 FC A4 90 D0 44 20 A5  |J.... .......D .|
00000AE0: FF A4 90 D0 3D A4 FB 88  D0 E9 A6 FC 85 62 86 63  |....=........b.c|
00000AF0: A2 90 38 20 49 BC 20 DF  BD A9 03 18 65 45 85 45  |..8 I. .....eE.E|
00000B00: 90 02 E6 46 A0 01 B1 45  85 49 C8 B1 45 85 4A A0  |...F...E.I..E.J.|
00000B10: FF D0 13 A9 00 A4 FD 91  49 98 A0 00 91 45 A0 02  |........I....E..|
00000B20: D0 B1 20 42 F6 60 C8 B9  00 01 91 49 D0 F8 98 A0  |.. B.`.....I....|
00000B30: 00 84 FD 91 45 A9 03 18  65 45 85 45 90 02 E6 46  |....E...eE.E...F|
00000B40: A0 01 B1 45 85 49 C8 B1  45 85 4A 20 A5 FF A6 90  |...E.I..E.J ....|
00000B50: D0 D0 AA F0 BE C9 22 D0  F2 20 A5 FF A6 90 D0 C2  |......".. ......|
00000B60: AA F0 B0 C9 22 F0 0A A4  FD 91 49 E6 FD D0 EA F0  |....".....I.....|
00000B70: A2 A4 FD A9 00 91 49 85  FD 98 A0 00 91 45 A9 03  |......I......E..|
00000B80: 18 65 45 85 45 90 02 E6  46 A0 01 B1 45 85 49 C8  |.eE.E...F...E.I.|
00000B90: B1 45 85 4A 20 A5 FF A6  90 D0 87 AA F0 D1 C9 20  |.E.J .......... |
00000BA0: F0 F2 A4 FD 91 49 E6 FD  D0 EA 00 00              |.....I......    |

....... FX$(200),FL$(200).:....X.1.197.3
:FX$(X)."     "."".^...FX$(X.1)."       
          "."".X...FX$(X.2)."     "."":.
.....SY.(B(46).256.B(45)).290.A...."....
.............F1.  LIST DIRECTORY"......"
...........F3.  RENAME  FILES"......"...
........F5.  SCRATCH FILES".1.(.."......
.....F7.  RENAME DISK+ID".U.2.."........
...F2.  SCRATCH DISK".Z.<.."...........F
4.  VALIDATE DISK"...P.."...........F8. 
 STOP PROGRAM"...D.. A$:. A$."".100.R.J.
B.F(A$):. B.133. B.140.100...N.A$.G(B.84
):A.E(A$)...X.. A . 150,300,400,5000,600
0,7000,140,140......10.$.......... 900.`
. ..".";.6);".";FX$(2);.26);H(FX$(3),2);
".":LZ.0.S.... X.4 . 197 .3......FX$(X);
.6);FX$(X.1);.26);FX$(X.2):LZ.LZ.1:. LZ.
22 . .200.F.... FX$(X.1)..""........ ". 
                              ".".... ".
";FX$(X);.6);"BYTES FREE.               
 ".7.H.. A$:. A$."".200.H.R.LZ.0:.".": .
.D.,.. *** RENAME  FILES ***...6.M$."...
.... *** RENAME FILES ***"...@..900:. 70
0:.15,8,15...J.. X.4 . LN .3.J.T.. FL$(X
)."" . 360...^.A$."R:".FL$(X)."=".FX$(X.
1):.15,A$...C.."FILE "FX$(X.1)" RENAMED"
...H.. :   15.#.R...?.... *** SCRATCH FI
LES ***.F...M$."....... *** SCRATCH FILE
S ***".~....900:. 800:.15,8,15...... X.4
 . LN .3...... FL$(X).."Y" . 460.D.B.A$.
"S:".FX$(X.1):.15,A$...G.."FILE "FX$(X.1
)" SCRATCHED"...L.. :   15...V...).... M
$:.".....ENTER NEW FILE-NAME OR .RETURN.
".L.F.. X.4 . 197.3:FL$(X)."":LN.X.1.A.K
.. FX$(X.1)."". ....P..FX$(X);.4);FX$(X.
1);.21);".";...Z.. FL$(X):.:.... .. M$:.
".....ENTER Y/N.".H.*.. X.4 . 197.3:LN.X
.../.. FX$(X.1)."". ....4..FX$(X);.6);FX
$(X.1);.26);FX$(X.2);.$.>..A$:.A$."Y".FL
$(X).A$:.860.7.H.. A$.."N". 830.E.R.FL$(
X).A$.T.\.."  ."A$:..Z.F...|.... *** REA
D $ IN VARIABLES ***...... SY...........
. 1,8,15...... 2,8,2,"#"...... 1,"U1 2 0
 18".X.... 1,"B-P 2 144" : F$.""......:.
 "....DISK NAME IS: .";...... I.1 . 16.$
.D..# 2, A$:. A$.G(160).5080.5.N.F$.F$.A
$ : ..I.X.. 1,"B-P 2 162".X....# 2,B$,C$
.Q...I$.B$.C$:. F$"   "I$....  2 :   1.
..... "....ENTER NEW NAME :";...... F$..
...."...ENTER NEW ID :";.I.(.. I$.V.2.. 
1,8,15...<.. 2,8,2,"#"...F.. 1,"U1 2 0 1
8"...P.. 1,"B-P 2 144"...Z.F$.H(F$,15).C
.D.. C(F$).15 . F$.F$.G(160):. 5220.H.N.
I$.H(I$,2):. C(I$).1 . I$.I$." ".T.X.. 2
,F$;...... 1,"B-P 2 162"...... 2,I$;....
.. 1,"B-P 2 0".C. .B$.G(18).G(1).G(65).G
(0).N....2,B$;...... 1,"B-P 2 164".....B
$.G(160).G(50).G(65)...H.C$.G(160)...R.D
$.B$.C$.!....2,D$.7.... 1,"U2 2 0 18 0".
?...  2.V.... 1,"I0" :   1:.10...P.. "..
.....DO YOU REALLY WANT TO SCRATCH"...Q.
. ".ALL FILES ?"...U.. A$:. A$."". 6005.
..Z.. A$.."Y". ..Y... 1,8,15:. 2,8,2,"#
"...... 1,"U1 2 0 18"...... 1,"B-P 2 144
" : F$.""...... I.1 . 16.6....# 2, A$:. 
A$.G(160).6080.G...F$.F$.A$ : ..V....1,"
N:".F$.E.J. 1,2:. 150.{.X.. 1,8,15,"V": 
1:.................$...................`
.. U... .... ......./.E.0.F...EE.E...F .
.E.IH.E.J ... ......PD ....P=...P....B.C
..8 I. .....EE.E...F ..E.IH.E.J .P......
I. ..E .P. B.`H....IP.. ....E...EE.E...F
 ..E.IH.E.J ....PP...I"P. ....PB...I"...
..I..P........I... ..E...EE.E...F ..E.IH
.E.J ....P...QI .....I..P...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL