AUTO-DIAL
FILE INFORMATION
FILENAME(S): AUTO-DIAL
FILE TYPE(S): DEL
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-30 21:22:59
APPEARS ON: 1 disk(s)
FILE HASH
9387ae6aa2afee22ebbedd133e5e51199ac017c8ff61edb4b2616ccaf153a82e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 51 1 | AUTO-DIAL | DEL | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 11 9A 22 3A 41 24 B2 22 45 4E 54 45 52 20 46 49 |..":A$."ENTER FI|
00000010: 45 4C 44 20 4E 55 4D 42 45 52 53 20 54 4F 20 42 |ELD NUMBERS TO B|
00000020: 45 20 53 45 41 52 43 48 45 44 22 3A 8D 31 30 31 |E SEARCHED":.101|
00000030: 32 30 00 27 29 9E 07 99 22 11 9F 22 3B 3A 81 54 |20.')..."..";:.T|
00000040: B2 31 A4 4E 46 3A 99 54 22 5D 20 22 44 46 24 28 |.1.NF:.T"] "DF$(|
00000050: 54 29 3A 82 3A 42 B2 36 3A 4E 43 B2 4E 46 3A 42 |T):.:B.6:NC.NF:B|
00000060: 24 B2 43 52 24 00 58 29 A8 07 81 54 B2 31 A4 4E |$.CR$.X)...T.1.N|
00000070: 46 3A 41 24 B2 C4 28 54 29 3A 42 24 B2 42 24 AA |F:A$..(T):B$.B$.|
00000080: C9 28 41 24 2C C3 28 41 24 29 AB 31 29 3A 82 3A |.(A$,.(A$).1):.:|
00000090: 8D 31 30 31 39 30 00 6E 29 B2 07 8D 31 30 31 33 |.10190.n)...1013|
000000A0: 30 3A 8B 44 4C B2 30 A7 31 37 39 30 00 86 29 B7 |0:.DL.0.1790..).|
000000B0: 07 8D 31 30 31 37 30 3A 8B 41 24 B2 22 4E 22 A7 |..10170:.A$."N".|
000000C0: 31 39 34 30 00 A1 29 BC 07 81 54 B2 31 A4 4E 46 |1940..)...T.1.NF|
000000D0: 3A 8B 43 48 25 28 54 29 B2 30 A7 31 39 39 30 00 |:.CH%(T).0.1990.|
000000E0: D9 29 C1 07 99 22 11 53 54 52 49 4E 47 20 46 4F |.)...".STRING FO|
000000F0: 52 20 12 22 44 46 24 28 54 29 22 92 20 46 49 45 |R ."DF$(T)". FIE|
00000100: 4C 44 20 3F 22 3B 3A 8D 31 30 30 32 30 3A 54 45 |LD ?";:.10020:TE|
00000110: 24 28 54 29 B2 53 24 00 EA 29 C6 07 82 3A 50 57 |$(T).S$..)...:PW|
00000120: B2 33 3A 89 32 30 30 30 00 06 2A CB 07 81 54 B2 |.3:.2000..*...T.|
00000130: 31 A4 4E 46 3A 43 48 25 28 54 29 B2 31 3A 82 3A |1.NF:CH%(T).1:.:|
00000140: 50 57 B2 31 00 21 2A D0 07 9F 34 2C 50 44 2C 53 |PW.1.!*...4,PD,S|
00000150: 41 3A 8B 50 46 24 B2 22 4E 22 A7 32 30 34 30 00 |A:.PF$."N".2040.|
00000160: 4D 2A E4 07 44 4C B2 30 3A 81 54 B2 31 A4 4E 46 |M*..DL.0:.T.1.NF|
00000170: 3A 8B C3 28 44 46 24 28 54 29 29 B1 44 4C A7 44 |:..(DF$(T)).DL.D|
00000180: 4C B2 C3 28 44 46 24 28 54 29 29 00 53 2A EE 07 |L..(DF$(T)).S*..|
00000190: 82 00 65 2A F8 07 8B 46 54 24 B2 22 4C 22 A7 32 |..e*...FT$."L".2|
000001A0: 35 32 35 00 7E 2A 02 08 84 32 2C 41 24 3A 8B 41 |525.~*...2,A$:.A|
000001B0: 24 B2 22 58 58 58 22 A7 32 30 39 30 00 96 2A 0C |$."XXX".2090..*.|
000001C0: 08 81 54 B2 31 A4 4E 46 3A 8B 54 B3 B1 31 A7 84 |..T.1.NF:.T..1..|
000001D0: 32 2C 41 24 00 B5 2A 16 08 8B C3 28 41 24 29 B1 |2,A$..*....(A$).|
000001E0: 4D 46 25 28 54 29 A7 4D 46 25 28 54 29 B2 C3 28 |MF%(T).MF%(T)..(|
000001F0: 41 24 29 00 C1 2A 20 08 82 3A 89 32 30 35 30 00 |A$)..* ..:.2050.|
00000200: E2 2A 2A 08 A0 32 3A 9F 32 2C 44 44 2C 32 2C 4E |.**..2:.2,DD,2,N|
00000210: 41 24 AA 22 2C 53 2C 52 22 3A 8D 31 30 33 33 30 |A$.",S,R":.10330|
00000220: 00 05 2B 2F 08 8B 50 46 24 B2 22 4E 22 A7 81 54 |..+/..PF$."N"..T|
00000230: B2 31 A4 4E 46 3A 84 32 2C 41 24 3A 82 3A 89 32 |.1.NF:.2,A$:.:.2|
00000240: 31 34 35 00 1F 2B 31 08 98 34 2C A6 35 29 3B 3A |145..+1..4,.5);:|
00000250: 81 54 B2 31 A4 4E 46 3A 84 32 2C 41 24 00 48 2B |.T.1.NF:.2,A$.H+|
00000260: 34 08 41 B2 4D 46 25 28 54 29 3A 42 B2 C3 28 41 |4.A.MF%(T):B..(A|
00000270: 24 29 3A 8B 42 B1 41 A7 41 B2 42 AA 31 3A 4D 46 |$):.B.A.A.B.1:MF|
00000280: 25 28 54 29 B2 41 00 67 2B 3E 08 8B 43 48 25 28 |%(T).A.g+>..CH%(|
00000290: 54 29 B0 50 57 B2 33 A7 98 34 2C 41 24 A6 41 AB |T).PW.3..4,A$.A.|
000002A0: 42 AA 31 29 3B 00 9F 2B 48 08 82 3A 98 34 2C 43 |B.1);..+H..:.4,C|
000002B0: 52 24 3B 3A 4E 4C B2 33 3A 98 34 2C A6 35 29 3B |R$;:NL.3:.4,.5);|
000002C0: 3A 81 54 B2 31 A4 4E 46 3A 8B 43 48 25 28 54 29 |:.T.1.NF:.CH%(T)|
000002D0: B2 30 AF 50 57 B3 B1 33 A7 32 31 34 30 00 CC 2B |.0.PW..3.2140..+|
000002E0: 52 08 98 34 2C C8 28 55 4C 24 2C C3 28 44 46 24 |R..4,.(UL$,.(DF$|
000002F0: 28 54 29 29 29 A6 4D 46 25 28 54 29 AB C3 28 44 |(T))).MF%(T)..(D|
00000300: 46 24 28 54 29 29 AA 31 29 3B 00 DA 2B 5C 08 82 |F$(T)).1);..+\..|
00000310: 3A 98 34 2C 43 52 24 3B 00 EE 2B 61 08 4E 52 B2 |:.4,CR$;..+a.NR.|
00000320: 31 3A 8B 50 57 B2 33 A7 32 32 32 30 00 07 2C 66 |1:.PW.3.2220..,f|
00000330: 08 84 32 2C 41 24 3A 8B 41 24 B2 22 58 58 58 22 |..2,A$:.A$."XXX"|
00000340: A7 32 36 30 30 00 32 2C 70 08 81 54 B2 31 A4 4E |.2600.2,p..T.1.N|
00000350: 46 3A 8B 54 B2 31 A7 98 34 2C 4E 52 3B A6 34 AB |F:.T.1..4,NR;.4.|
00000360: C3 28 C4 28 4E 52 29 29 29 3B 3A 89 32 31 38 30 |.(.(NR)));:.2180|
00000370: 00 3C 2C 7A 08 84 32 2C 41 24 00 5F 2C 84 08 8B |.<,z..2,A$._,...|
00000380: 43 48 25 28 54 29 A7 98 34 2C 41 24 A6 4D 46 25 |CH%(T)..4,A$.MF%|
00000390: 28 54 29 AB C3 28 41 24 29 AA 31 29 3B 00 87 2C |(T)..(A$).1);..,|
000003A0: 8E 08 82 3A 81 54 B2 31 A4 4C 4E 3A 98 34 2C 43 |...:.T.1.LN:.4,C|
000003B0: 52 24 3B 3A 82 3A 4E 52 B2 4E 52 AA 31 3A 4E 4C |R$;:.:NR.NR.1:NL|
000003C0: B2 4E 4C AA 31 00 A4 2C 98 08 8B 4E 4C B1 50 4C |.NL.1..,...NL.PL|
000003D0: A7 98 34 2C 43 52 24 43 52 24 43 52 24 3A 4E 4C |..4,CR$CR$CR$:NL|
000003E0: B2 30 00 AE 2C A2 08 89 32 31 35 30 00 C7 2C AC |.0..,...2150..,.|
000003F0: 08 84 32 2C 54 24 3A 8B 54 24 B2 22 58 58 58 22 |..2,T$:.T$."XXX"|
00000400: A7 32 36 30 30 00 DF 2C B6 08 81 54 B2 31 A4 4E |.2600..,...T.1.N|
00000410: 46 3A 8B 54 B3 B1 31 A7 84 32 2C 54 24 00 EF 2C |F:.T..1..2,T$..,|
00000420: C0 08 56 54 24 28 54 29 B2 54 24 3A 82 00 0F 2D |..VT$(T).T$:...-|
00000430: CA 08 50 57 B2 30 3A 81 54 B2 31 A4 4E 46 3A 8B |..PW.0:.T.1.NF:.|
00000440: 43 48 25 28 54 29 B2 30 A7 32 32 39 35 00 40 2D |CH%(T).0.2295.@-|
00000450: D4 08 54 24 B2 56 54 24 28 54 29 3A 41 24 B2 54 |..T$.VT$(T):A$.T|
00000460: 45 24 28 54 29 3A 81 5A B2 31 A4 C3 28 41 24 29 |E$(T):.Z.1..(A$)|
00000470: 3A 8B 5A B1 C3 28 54 24 29 A7 32 32 39 30 00 81 |:.Z..(T$).2290..|
00000480: 2D DE 08 8B CA 28 41 24 2C 5A 2C 31 29 B3 B1 CA |-....(A$,Z,1)...|
00000490: 28 54 24 2C 5A 2C 31 29 AF CA 28 41 24 2C 5A 2C |(T$,Z,1)..(A$,Z,|
000004A0: 31 29 B3 B1 22 3F 22 A7 50 57 B2 30 3A 5A B2 C3 |1).."?".PW.0:Z..|
000004B0: 28 41 24 29 3A 54 B2 4E 46 3A 89 32 32 39 30 00 |(A$):T.NF:.2290.|
000004C0: 8A 2D E8 08 50 57 B2 31 00 90 2D F2 08 82 00 AA |.-..PW.1..-.....|
000004D0: 2D F7 08 82 3A 8B 50 57 B2 30 A7 4E 52 B2 4E 52 |-...:.PW.0.NR.NR|
000004E0: AA 31 3A 89 32 32 32 30 00 CF 2D FC 08 81 54 B2 |.1:.2220..-...T.|
000004F0: 31 A4 4E 46 3A 8B 54 B2 31 A7 98 34 2C 4E 52 3B |1.NF:.T.1..4,NR;|
00000500: A6 34 AB C3 28 C4 28 4E 52 29 29 29 3B 00 F4 2D |.4..(.(NR)));..-|
00000510: 06 09 41 24 B2 56 54 24 28 54 29 3A 98 34 2C 41 |..A$.VT$(T):.4,A|
00000520: 24 A6 4D 46 25 28 54 29 AB C3 28 41 24 29 AA 31 |$.MF%(T)..(A$).1|
00000530: 29 3B 00 1C 2E 10 09 82 3A 81 54 B2 31 A4 4C 4E |);......:.T.1.LN|
00000540: 3A 98 34 2C 43 52 24 3B 3A 82 3A 4E 52 B2 4E 52 |:.4,CR$;:.:NR.NR|
00000550: AA 31 3A 4E 4C B2 4E 4C AA 31 00 39 2E 1A 09 8B |.1:NL.NL.1.9....|
00000560: 4E 4C B1 50 4C A7 98 34 2C 43 52 24 43 52 24 43 |NL.PL..4,CR$CR$C|
00000570: 52 24 3A 4E 4C B2 30 00 43 2E 24 09 89 32 32 32 |R$:NL.0.C.$..222|
00000580: 30 00 52 2E DD 09 8B 50 57 B2 33 A7 32 36 35 30 |0.R....PW.3.2650|
00000590: 00 6B 2E E2 09 84 32 2C 54 24 3A 8B 54 24 B2 22 |.k....2,T$:.T$."|
000005A0: 58 58 58 22 A7 32 36 30 30 00 83 2E EC 09 81 54 |XXX".2600......T|
000005B0: B2 31 A4 4E 46 3A 8B 54 B3 B1 31 A7 84 32 2C 54 |.1.NF:.T..1..2,T|
000005C0: 24 00 96 2E F6 09 8B 43 48 25 28 54 29 B2 30 A7 |$......CH%(T).0.|
000005D0: 32 35 38 30 00 C1 2E 00 0A 8B 50 46 24 B2 22 59 |2580......PF$."Y|
000005E0: 22 A7 98 34 2C 44 46 24 28 54 29 A6 44 4C AB C3 |"..4,DF$(T).DL..|
000005F0: 28 44 46 24 28 54 29 29 29 22 20 2D 20 22 3B 00 |(DF$(T)))" - ";.|
00000600: CB 2E 0A 0A 98 34 2C 54 24 00 E9 2E 14 0A 82 3A |.....4,T$......:|
00000610: 81 54 B2 31 A4 4C 4E 3A 98 34 2C 43 52 24 3B 3A |.T.1.LN:.4,CR$;:|
00000620: 82 3A 89 32 35 33 30 00 26 2F 28 0A 98 34 3A A0 |.:.2530.&/(..4:.|
00000630: 34 3A A0 32 3A 9F 32 2C 44 44 2C 32 2C 4E 41 24 |4:.2:.2,DD,2,NA$|
00000640: AA 22 2C 53 2C 52 22 3A 8D 31 30 33 33 30 3A 81 |.",S,R":.10330:.|
00000650: 54 B2 31 A4 4E 46 3A 84 32 2C 41 24 3A 82 3A 89 |T.1.NF:.2,A$:.:.|
00000660: 31 37 39 30 00 3F 2F 5A 0A 84 32 2C 54 24 3A 8B |1790.?/Z..2,T$:.|
00000670: 54 24 B2 22 58 58 58 22 A7 32 36 30 30 00 57 2F |T$."XXX".2600.W/|
00000680: 64 0A 81 54 B2 31 A4 4E 46 3A 8B 54 B3 B1 31 A7 |d..T.1.NF:.T..1.|
00000690: 84 32 2C 54 24 00 67 2F 6E 0A 56 54 24 28 54 29 |.2,T$.g/n.VT$(T)|
000006A0: B2 54 24 3A 82 00 87 2F 78 0A 50 57 B2 30 3A 81 |.T$:.../x.PW.0:.|
000006B0: 54 B2 31 A4 4E 46 3A 8B 43 48 25 28 54 29 B2 30 |T.1.NF:.CH%(T).0|
000006C0: A7 32 37 32 35 00 B8 2F 82 0A 54 24 B2 56 54 24 |.2725../..T$.VT$|
000006D0: 28 54 29 3A 41 24 B2 54 45 24 28 54 29 3A 81 5A |(T):A$.TE$(T):.Z|
000006E0: B2 31 A4 C3 28 41 24 29 3A 8B 5A B1 C3 28 54 24 |.1..(A$):.Z..(T$|
000006F0: 29 A7 32 37 32 30 00 F9 2F 8C 0A 8B CA 28 41 24 |).2720../....(A$|
00000700: 2C 5A 2C 31 29 B3 B1 CA 28 54 24 2C 5A 2C 31 29 |,Z,1)...(T$,Z,1)|
00000710: AF CA 28 41 24 2C 5A 2C 31 29 B3 B1 22 3F 22 A7 |..(A$,Z,1).."?".|
00000720: 50 57 B2 30 3A 5A B2 C3 28 41 24 29 3A 54 B2 4E |PW.0:Z..(A$):T.N|
00000730: 46 3A 89 32 37 32 30 00 02 30 96 0A 50 57 B2 31 |F:.2720..0..PW.1|
00000740: 00 08 30 A0 0A 82 00 22 30 A5 0A 82 3A 8B 50 57 |..0...."0...:.PW|
00000750: B2 30 A7 4E 52 B2 4E 52 AA 31 3A 89 32 36 35 30 |.0.NR.NR.1:.2650|
00000760: 00 55 30 AA 0A 81 54 B2 31 A4 4E 46 3A 8B 50 46 |.U0...T.1.NF:.PF|
00000770: 24 B2 22 59 22 A7 98 34 2C 44 46 24 28 54 29 A6 |$."Y"..4,DF$(T).|
00000780: 44 4C AB C3 28 44 46 24 28 54 29 29 29 22 20 2D |DL..(DF$(T)))" -|
00000790: 20 22 3B 00 7D 30 B4 0A 98 34 2C 56 54 24 28 54 | ";.}0...4,VT$(T|
000007A0: 29 3A 82 3A 81 54 B2 31 A4 4C 4E 3A 98 34 2C 43 |):.:.T.1.LN:.4,C|
000007B0: 52 24 3B 3A 82 3A 89 32 36 35 30 00 8C 30 BE 0A |R$;:.:.2650..0..|
000007C0: 8B 4F 50 B2 35 A7 32 39 31 30 00 CB 30 C3 0A 99 |.OP.5.2910..0...|
000007D0: 22 93 11 11 9A 22 3A 41 24 B2 22 57 48 49 43 48 |"....":A$."WHICH|
000007E0: 20 50 52 49 4E 54 45 52 20 43 48 41 52 41 43 54 | PRINTER CHARACT|
000007F0: 45 52 49 53 54 49 43 20 54 4F 20 43 48 41 4E 47 |ERISTIC TO CHANG|
00000800: 45 22 3A 8D 31 30 31 32 30 00 18 31 C8 0A 99 22 |E":.10120..1..."|
00000810: 11 9F 20 31 5D 20 43 55 52 52 45 4E 54 20 4C 49 |.. 1] CURRENT LI|
00000820: 4E 45 53 20 50 45 52 20 50 41 47 45 20 3D 22 50 |NES PER PAGE ="P|
00000830: 4C AA 34 3A 99 22 20 32 5D 20 4C 49 4E 45 20 46 |L.4:." 2] LINE F|
00000840: 45 45 44 53 20 41 46 54 45 52 20 52 45 43 4F 52 |EEDS AFTER RECOR|
00000850: 44 20 3D 22 4C 4E 00 44 31 D2 0A 99 22 20 33 5D |D ="LN.D1..." 3]|
00000860: 20 53 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 | SECONDARY ADDRE|
00000870: 53 53 20 4F 46 20 50 52 49 4E 54 45 52 20 3D 22 |SS OF PRINTER ="|
00000880: 53 41 00 6C 31 DC 0A 42 B2 36 3A 4E 43 B2 33 3A |SA.l1..B.6:NC.3:|
00000890: 42 24 B2 43 52 24 AA 22 31 32 33 22 3A 8D 31 30 |B$.CR$."123":.10|
000008A0: 31 39 30 3A 8D 31 30 31 33 30 00 86 31 E6 0A 99 |190:.10130..1...|
000008B0: C8 28 43 44 24 2C 31 32 29 3A 8B 44 4C B2 30 A7 |.(CD$,12):.DL.0.|
000008C0: 31 37 39 30 00 99 31 F0 0A 8B 43 48 25 28 31 29 |1790..1...CH%(1)|
000008D0: B2 30 A7 32 38 34 30 00 C4 31 FA 0A 99 22 11 1C |.0.2840..1..."..|
000008E0: 20 45 4E 54 45 52 20 4E 4F 2E 20 4C 49 4E 45 53 | ENTER NO. LINES|
000008F0: 20 50 45 52 20 50 41 47 45 22 3B 3A 8D 31 30 30 | PER PAGE";:.100|
00000900: 32 30 00 EE 31 04 0B 50 4C B2 C5 28 53 24 29 AB |20..1..PL..(S$).|
00000910: 34 3A 8B 50 4C B3 31 A7 99 22 91 22 53 50 24 3A |4:.PL.1.."."SP$:|
00000920: 99 22 91 91 22 3B 3A 89 32 38 31 30 00 01 32 18 |."..";:.2810..2.|
00000930: 0B 8B 43 48 25 28 32 29 B2 30 A7 32 38 37 30 00 |..CH%(2).0.2870.|
00000940: 28 32 22 0B 99 22 11 1C 20 45 4E 54 45 52 20 4E |(2"..".. ENTER N|
00000950: 4F 2E 20 4C 49 4E 45 20 46 45 45 44 53 22 3B 3A |O. LINE FEEDS";:|
00000960: 8D 31 30 30 32 30 00 50 32 2C 0B 4C 4E B2 C5 28 |.10020.P2,.LN..(|
00000970: 53 24 29 3A 8B 4C 4E B3 30 A7 99 22 91 22 53 50 |S$):.LN.0.."."SP|
00000980: 24 3A 99 22 91 91 22 3B 3A 89 32 38 35 30 00 63 |$:."..";:.2850.c|
00000990: 32 36 0B 8B 43 48 25 28 33 29 B2 30 A7 31 37 39 |26..CH%(3).0.179|
000009A0: 30 00 8D 32 40 0B 99 22 11 1C 20 45 4E 54 45 52 |0..2@..".. ENTER|
000009B0: 20 53 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 | SECONDARY ADDRE|
000009C0: 53 53 22 3B 3A 8D 31 30 30 32 30 00 BC 32 4A 0B |SS";:.10020..2J.|
000009D0: 53 41 B2 C5 28 53 24 29 3A 8B 53 41 B3 30 B0 53 |SA..(S$):.SA.0.S|
000009E0: 41 B1 32 35 35 A7 99 22 91 22 53 50 24 3A 99 22 |A.255.."."SP$:."|
000009F0: 91 91 22 3B 3A 89 32 38 38 30 00 C6 32 54 0B 89 |..";:.2880..2T..|
00000A00: 31 37 39 30 00 F8 32 5E 0B 9F 34 2C 50 44 2C 53 |1790..2^..4,PD,S|
00000A10: 41 3A 99 22 93 9A 20 12 20 41 53 43 49 49 20 44 |A:.".. . ASCII D|
00000A20: 55 4D 50 20 41 20 48 49 50 45 52 42 41 53 45 20 |UMP A HIPERBASE |
00000A30: 46 49 4C 45 20 22 00 16 33 68 0B A1 23 32 2C 41 |FILE "..3h..#2,A|
00000A40: 24 3A 8B 53 54 B2 30 A7 98 34 2C 41 24 3B 3A 89 |$:.ST.0..4,A$;:.|
00000A50: 32 39 32 30 00 20 33 72 0B 89 32 36 30 30 00 3B |2920. 3r..2600.;|
00000A60: 33 B8 0B 8F 20 2A 2A 20 44 49 52 45 43 54 4F 52 |3... ** DIRECTOR|
00000A70: 59 20 44 49 53 4B 20 2A 2A 00 6A 33 C2 0B 99 22 |Y DISK **.j3..."|
00000A80: 93 22 A6 36 29 22 11 9A 12 20 44 49 52 45 43 54 |.".6)"... DIRECT|
00000A90: 4F 52 59 20 4F 46 20 41 4E 59 20 44 49 53 4B 20 |ORY OF ANY DISK |
00000AA0: 22 3A 8D 31 30 32 30 30 00 79 33 C4 0B 8B 45 52 |":.10200.y3...ER|
00000AB0: B2 30 A7 33 30 32 30 00 91 33 C6 0B 8D 31 30 32 |.0.3020..3...102|
00000AC0: 32 30 3A 8B 41 24 B2 22 59 22 A7 33 30 31 30 00 |20:.A$."Y".3010.|
00000AD0: 9B 33 C8 0B 89 31 37 31 30 00 D5 33 CC 0B 99 3A |.3...1710..3...:|
00000AE0: 41 24 B2 22 50 4C 45 41 53 45 20 45 4E 54 45 52 |A$."PLEASE ENTER|
00000AF0: 20 44 49 52 45 43 54 4F 52 59 20 53 54 59 4C 45 | DIRECTORY STYLE|
00000B00: 20 41 4E 44 20 44 45 56 49 43 45 22 3A 8D 31 30 | AND DEVICE":.10|
00000B10: 31 32 30 00 0B 34 CE 0B 99 22 11 9F 20 31 5D 20 |120..4...".. 1] |
00000B20: 4C 49 53 54 20 41 4C 4C 20 46 49 4C 45 53 22 3A |LIST ALL FILES":|
00000B30: 99 22 20 32 5D 20 4C 49 53 54 20 53 45 51 20 46 |." 2] LIST SEQ F|
00000B40: 49 4C 45 53 20 4F 4E 4C 59 00 3F 34 D0 0B 99 22 |ILES ONLY.?4..."|
00000B50: 20 33 5D 20 4F 55 54 50 55 54 20 54 4F 20 50 52 | 3] OUTPUT TO PR|
00000B60: 49 4E 54 45 52 22 3A 99 22 20 34 5D 20 4F 55 54 |INTER":." 4] OUT|
00000B70: 50 55 54 20 54 4F 20 53 43 52 45 45 4E 00 68 34 |PUT TO SCREEN.h4|
00000B80: D6 0B 42 B2 38 3A 4E 43 B2 34 3A 42 24 B2 43 52 |..B.8:NC.4:B$.CR|
00000B90: 24 AA 22 31 32 33 34 22 3A 8D 31 30 31 39 30 3A |$."1234":.10190:|
00000BA0: 8D 31 30 31 33 30 00 8E 34 E0 0B 8B 44 4C B2 30 |.10130..4...DL.0|
00000BB0: A7 41 B2 31 3A 8D 31 30 31 35 30 3A 41 B2 34 3A |.A.1:.10150:A.4:|
00000BC0: 8D 31 30 31 35 30 3A 89 33 30 36 30 00 CF 34 EA |.10150:.3060..4.|
00000BD0: 0B 8B 28 43 48 25 28 31 29 AA 43 48 25 28 32 29 |..(CH%(1).CH%(2)|
00000BE0: B3 B1 31 29 B0 28 43 48 25 28 33 29 AA 43 48 25 |..1).(CH%(3).CH%|
00000BF0: 28 34 29 B3 B1 31 29 B0 44 4C B3 B1 32 A7 99 C8 |(4)..1).DL..2...|
00000C00: 28 43 44 24 2C 37 29 3A 89 33 30 32 32 00 F5 34 |(CD$,7):.3022..4|
00000C10: F4 0B 99 C8 28 43 44 24 2C 31 34 29 3A 8B 43 48 |....(CD$,14):.CH|
00000C20: 25 28 33 29 A7 9F 34 2C 50 44 2C 53 41 3A 89 33 |%(3)..4,PD,SA:.3|
00000C30: 30 37 30 00 FE 34 F9 0B 9F 34 2C 33 00 1F 35 FE |070..4...4,3..5.|
00000C40: 0B 4E 41 24 B2 22 24 22 3A 8B 43 48 25 28 32 29 |.NA$."$":.CH%(2)|
00000C50: A7 4E 41 24 B2 22 24 2A 3D 53 45 51 22 00 41 35 |.NA$."$*=SEQ".A5|
00000C60: 08 0C 9F 31 2C 44 44 2C 30 2C 4E 41 24 3A 8D 31 |...1,DD,0,NA$:.1|
00000C70: 30 32 31 30 3A 8B 45 52 B2 30 A7 33 30 38 35 00 |0210:.ER.0.3085.|
00000C80: 5A 35 09 0C 8B 41 24 B2 22 59 22 A7 8D 31 30 32 |Z5...A$."Y"..102|
00000C90: 36 30 3A 89 33 30 38 30 00 64 35 0A 0C 89 33 31 |60:.3080.d5...31|
00000CA0: 34 30 00 79 35 0D 0C A1 23 31 2C 41 24 2C 41 24 |40.y5...#1,A$,A$|
00000CB0: 3A 98 34 2C 43 52 24 00 96 35 12 0C A1 23 31 2C |:.4,CR$..5...#1,|
00000CC0: 41 24 2C 41 24 2C 41 24 2C 42 24 3A 8B 53 54 A7 |A$,A$,A$,B$:.ST.|
00000CD0: 33 31 34 30 00 B6 35 1C 0C 98 34 2C C6 28 41 24 |3140..5...4,.(A$|
00000CE0: AA 4E 4C 24 29 AA C6 28 42 24 AA 4E 4C 24 29 AC |.NL$)..(B$.NL$).|
00000CF0: 32 35 36 3B 00 D6 35 26 0C A1 23 31 2C 41 24 3A |256;..5&..#1,A$:|
00000D00: 8B 41 24 B2 22 22 A7 98 34 2C 43 52 24 3B 3A 89 |.A$.""..4,CR$;:.|
00000D10: 33 30 39 30 00 E3 35 30 0C 8B 53 54 A7 33 31 34 |3090..50..ST.314|
00000D20: 30 00 F4 35 3A 0C 98 34 2C 41 24 3B 3A 89 33 31 |0..5:..4,A$;:.31|
00000D30: 31 30 00 11 36 44 0C 98 34 2C 43 52 24 3A A0 31 |10..6D..4,CR$:.1|
00000D40: 3A A0 34 3A 8D 31 30 32 36 30 3A 89 31 33 30 00 |:.4:.10260:.130.|
00000D50: 2B 36 80 0C 8F 20 2A 2A 20 44 45 4C 45 54 45 20 |+6... ** DELETE |
00000D60: 41 20 46 49 4C 45 20 2A 2A 00 5A 36 8A 0C 99 22 |A FILE **.Z6..."|
00000D70: 93 22 A6 31 30 29 22 11 9A 12 20 44 45 4C 45 54 |.".10)"... DELET|
00000D80: 45 20 41 4E 59 20 44 49 53 4B 20 46 49 4C 45 20 |E ANY DISK FILE |
00000D90: 22 3A 8D 31 30 32 30 30 00 69 36 8C 0C 8B 45 52 |":.10200.i6...ER|
00000DA0: B2 30 A7 33 32 32 30 00 81 36 8E 0C 8D 31 30 32 |.0.3220..6...102|
00000DB0: 32 30 3A 8B 41 24 B2 22 59 22 A7 33 32 31 30 00 |20:.A$."Y".3210.|
00000DC0: 8B 36 90 0C 89 31 37 31 30 00 A4 36 94 0C 8D 31 |.6...1710..6...1|
00000DD0: 30 32 38 30 3A A0 32 3A 8B 45 52 B2 30 A7 33 32 |0280:.2:.ER.0.32|
00000DE0: 32 35 00 B5 36 95 0C 8B 41 24 B2 22 4E 22 A7 33 |25..6...A$."N".3|
00000DF0: 32 39 30 00 BF 36 96 0C 89 33 32 32 30 00 D7 36 |290..6...3220..6|
00000E00: 99 0C 8D 31 30 33 38 30 3A 8B 41 24 B2 22 4E 22 |...10380:.A$."N"|
00000E10: A7 33 32 39 30 00 01 37 9E 0C 99 22 1E 11 20 44 |.3290..7...".. D|
00000E20: 45 4C 45 54 49 4E 47 20 46 49 4C 45 22 3A 98 31 |ELETING FILE":.1|
00000E30: 35 2C 22 53 3A 22 53 24 3A 8D 31 30 32 31 30 00 |5,"S:"S$:.10210.|
00000E40: 1F 37 A8 0C 8B 45 52 B1 31 A7 8D 31 30 32 32 30 |.7...ER.1..10220|
00000E50: 3A 8B 41 24 B2 22 59 22 A7 33 32 32 30 00 2E 37 |:.A$."Y".3220..7|
00000E60: B2 0C 8B 45 52 B1 31 A7 33 32 39 30 00 6D 37 BC |...ER.1.3290.m7.|
00000E70: 0C 8B 54 45 B2 30 A7 99 22 11 1C 2A 20 45 52 52 |..TE.0.."..* ERR|
00000E80: 4F 52 20 2A 20 46 49 4C 45 20 4E 4F 54 20 44 45 |OR * FILE NOT DE|
00000E90: 4C 45 54 45 44 20 22 3A 8D 31 30 32 34 30 3A 8B |LETED ":.10240:.|
00000EA0: 41 24 B2 22 59 22 A7 33 32 32 30 00 7C 37 C6 0C |A$."Y".3220.|7..|
00000EB0: 8B 54 45 B2 30 A7 33 32 39 30 00 9E 37 D0 0C 99 |.TE.0.3290..7...|
00000EC0: 22 11 9A 4F 4B 2C 22 53 24 22 20 48 41 53 20 42 |"..OK,"S$" HAS B|
00000ED0: 45 45 4E 20 44 45 4C 45 54 45 44 22 00 AE 37 DA |EEN DELETED"..7.|
00000EE0: 0C 8D 31 30 32 36 30 3A 89 31 33 30 00 CA 37 E4 |..10260:.130..7.|
00000EF0: 0C 8F 20 2A 2A 20 55 4E 44 45 4C 45 54 45 20 41 |.. ** UNDELETE A|
00000F00: 20 46 49 4C 45 20 2A 2A 00 FB 37 EE 0C 99 22 93 | FILE **..7...".|
00000F10: 22 A6 38 29 22 11 9A 12 20 55 4E 44 45 4C 45 54 |".8)"... UNDELET|
00000F20: 45 20 41 20 44 45 4C 45 54 45 44 20 46 49 4C 45 |E A DELETED FILE|
00000F30: 20 22 3A 8D 31 30 32 30 30 00 0A 38 F0 0C 8B 45 | ":.10200..8...E|
00000F40: 52 B2 30 A7 33 33 32 30 00 22 38 F2 0C 8D 31 30 |R.0.3320."8...10|
00000F50: 32 32 30 3A 8B 41 24 B2 22 59 22 A7 33 33 31 30 |220:.A$."Y".3310|
00000F60: 00 2C 38 F4 0C 89 31 37 31 30 00 6A 38 F8 0C 99 |.,8...1710.j8...|
00000F70: 22 9F 11 20 4C 4F 4F 4B 49 4E 47 20 46 4F 52 20 |".. LOOKING FOR |
00000F80: 44 45 4C 45 54 45 44 20 46 49 4C 45 53 20 2E 2E |DELETED FILES ..|
00000F90: 2E 22 3A 54 B2 31 38 3A 53 B2 30 3A 9F 32 2C 44 |.":T.18:S.0:.2,D|
00000FA0: 44 2C 32 2C 22 23 32 22 00 90 38 02 0D 98 31 35 |D,2,"#2"..8...15|
00000FB0: 2C 22 55 31 3A 32 20 30 22 54 3B 53 3A 8D 31 30 |,"U1:2 0"T;S:.10|
00000FC0: 32 31 30 3A 8B 45 52 B2 30 A7 33 33 36 30 00 A4 |210:.ER.0.3360..|
00000FD0: 38 0C 0D A0 32 3A 8B 41 24 B2 22 59 22 A7 33 33 |8...2:.A$."Y".33|
00000FE0: 31 30 00 AE 38 16 0D 89 33 32 39 30 00 EE 38 20 |10..8...3290..8 |
00000FF0: 0D 44 4C B2 30 3A 98 31 35 2C 22 4D 2D 52 22 4E |.DL.0:.15,"M-R"N|
00001000: 4C 24 C7 28 35 29 3A A1 23 31 35 2C 41 24 3A 54 |L$.(5):.#15,A$:T|
00001010: 54 B2 C6 28 41 24 AA 4E 4C 24 29 3A 8B 54 54 B2 |T..(A$.NL$):.TT.|
00001020: 30 B0 54 54 B1 33 35 A7 33 34 37 30 00 19 39 2A |0.TT.35.3470..9*|
00001030: 0D 98 31 35 2C 22 4D 2D 52 22 C7 28 31 29 C7 28 |..15,"M-R".(1).(|
00001040: 35 29 3A A1 23 31 35 2C 41 24 3A 53 53 B2 C6 28 |5):.#15,A$:SS..(|
00001050: 41 24 AA 4E 4C 24 29 00 41 39 34 0D 98 31 35 2C |A$.NL$).A94..15,|
00001060: 22 55 31 3A 32 20 30 22 54 54 3B 53 53 3A 8D 31 |"U1:2 0"TT;SS:.1|
00001070: 30 32 31 30 3A 8B 45 52 B2 30 A7 33 34 31 30 00 |0210:.ER.0.3410.|
00001080: 56 39 3E 0D 8B 41 24 B2 22 4E 22 A7 A0 32 3A 89 |V9>..A$."N"..2:.|
00001090: 33 32 39 30 00 60 39 48 0D 89 33 33 38 30 00 86 |3290.`9H..3380..|
000010A0: 39 52 0D 81 50 B2 30 A4 32 35 35 3A A1 23 32 2C |9R..P.0.255:.#2,|
000010B0: 41 24 3A 5A 25 28 50 29 B2 C6 28 41 24 AA 4E 4C |A$:Z%(P)..(A$.NL|
000010C0: 24 29 3A 82 00 A2 39 5C 0D 81 50 B2 32 A4 32 35 |$):...9\..P.2.25|
000010D0: 35 A9 33 32 3A 8B 5A 25 28 50 29 A7 33 34 36 30 |5.32:.Z%(P).3460|
000010E0: 00 BF 39 66 0D 8B 5A 25 28 50 AA 31 29 B2 30 A7 |..9f..Z%(P.1).0.|
000010F0: 50 B2 32 35 36 3A 82 3A 89 33 34 37 30 00 F3 39 |P.256:.:.3470..9|
00001100: 70 0D 99 22 11 9C 46 4F 55 4E 44 20 2D 20 22 51 |p.."..FOUND - "Q|
00001110: 4F 24 3B 3A 81 5A B2 50 AA 33 A4 50 AA 31 38 3A |O$;:.Z.P.3.P.18:|
00001120: 99 C7 28 5A 25 28 5A 29 29 3B 3A 82 3A 99 51 4F |..(Z%(Z));:.:.QO|
00001130: 24 00 2A 3A 7A 0D 98 31 35 2C 22 4D 2D 57 22 C7 |$.*:z..15,"M-W".|
00001140: 28 50 29 C7 28 35 29 C7 28 31 29 C7 28 31 32 39 |(P).(5).(1).(129|
00001150: 29 3A 98 31 35 2C 22 55 32 3A 32 20 30 22 54 54 |):.15,"U2:2 0"TT|
00001160: 3B 53 53 3A 44 4C B2 31 00 48 3A 84 0D 82 3A 54 |;SS:DL.1.H:...:T|
00001170: 54 B2 5A 25 28 30 29 3A 53 53 B2 5A 25 28 31 29 |T.Z%(0):SS.Z%(1)|
00001180: 3A 89 33 33 38 30 00 65 3A 8E 0D 99 22 11 9A 20 |:.3380.e:...".. |
00001190: 4E 4F 20 22 3B 3A 8B 44 4C A7 99 22 4D 4F 52 45 |NO ";:.DL.."MORE|
000011A0: 20 22 3B 00 8F 3A 98 0D 99 22 44 45 4C 45 54 45 | ";..:..."DELETE|
000011B0: 44 20 46 49 4C 45 53 20 46 4F 55 4E 44 22 3A A0 |D FILES FOUND":.|
000011C0: 32 3A 8B 44 4C A7 98 31 35 2C 22 56 22 00 99 3A |2:.DL..15,"V"..:|
000011D0: A2 0D 89 33 32 39 30 00 BA 3A AC 0D 8F 20 2A 2A |...3290..:... **|
000011E0: 20 44 45 46 49 4E 45 20 46 55 4E 43 54 49 4F 4E | DEFINE FUNCTION|
000011F0: 20 4B 45 59 53 20 2A 2A 00 E3 3A B6 0D 99 22 93 | KEYS **..:...".|
00001200: 22 A6 38 29 22 11 9A 12 20 44 45 46 49 4E 45 20 |".8)"... DEFINE |
00001210: 38 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 20 |8 FUNCTION KEYS |
00001220: 22 00 27 3B C0 0D 99 22 11 1E 20 43 55 52 52 45 |".';...".. CURRE|
00001230: 4E 54 20 57 4F 52 44 53 20 41 52 45 20 3A 2D 11 |NT WORDS ARE :-.|
00001240: 9F 22 3A 81 54 B2 31 A4 38 3A 99 22 20 5B 46 22 |.":.T.1.8:." [F"|
00001250: C9 28 C4 28 54 29 2C 31 29 22 5D 20 22 46 4B 24 |.(.(T),1)"] "FK$|
00001260: 28 54 29 3A 82 00 5B 3B CA 0D 8D 31 30 32 36 30 |(T):..[;...10260|
00001270: 3A 99 22 93 11 11 22 3A 41 24 B2 22 45 4E 54 45 |:."...":A$."ENTE|
00001280: 52 20 4F 50 54 49 4F 4E 20 52 45 51 55 49 52 45 |R OPTION REQUIRE|
00001290: 44 22 3A 8D 31 30 31 32 30 00 A1 3B D4 0D 99 22 |D":.10120..;..."|
000012A0: 11 9F 20 31 5D 20 44 45 46 49 4E 45 20 46 55 4E |.. 1] DEFINE FUN|
000012B0: 43 54 49 4F 4E 20 4B 45 59 20 5B 46 31 2D 38 5D |CTION KEY [F1-8]|
000012C0: 22 3A 99 22 20 32 5D 20 43 4C 45 41 52 20 41 4C |":." 2] CLEAR AL|
000012D0: 4C 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 00 |L FUNCTION KEYS.|
000012E0: E1 3B DE 0D 99 22 20 33 5D 20 56 49 45 57 20 43 |.;..." 3] VIEW C|
000012F0: 55 52 52 45 4E 54 20 46 55 4E 43 54 49 4F 4E 20 |URRENT FUNCTION |
00001300: 4B 45 59 20 57 4F 52 44 53 22 3A 99 22 20 34 5D |KEY WORDS":." 4]|
00001310: 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 | RETURN TO MENU.|
00001320: 1B 3C E8 0D 42 B2 36 3A 4E 43 B2 34 3A 42 24 B2 |.<..B.6:NC.4:B$.|
00001330: 43 52 24 AA 22 31 32 33 34 22 3A 8D 31 30 31 39 |CR$."1234":.1019|
00001340: 30 3A 8D 31 30 31 33 30 3A 8B 44 4C B2 30 A7 41 |0:.10130:.DL.0.A|
00001350: B2 31 3A 8D 31 30 31 35 30 00 35 3C F2 0D 99 C8 |.1:.10150.5<....|
00001360: 28 43 44 24 2C 31 32 29 3A 8B 4F 50 B2 34 A7 33 |(CD$,12):.OP.4.3|
00001370: 32 39 30 00 77 3C FC 0D 8B 4F 50 B2 32 A7 99 22 |290.w<...OP.2.."|
00001380: 11 1C 12 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 |... FUNCTION KEY|
00001390: 53 20 43 4C 45 41 52 45 44 20 92 22 3A 81 54 B2 |S CLEARED .":.T.|
000013A0: 31 A4 38 3A 46 4B 24 28 54 29 B2 22 22 3A 82 3A |1.8:FK$(T)."":.:|
000013B0: 89 33 35 33 30 00 8E 3C 06 0E 8B 4F 50 B2 33 A7 |.3530..<...OP.3.|
000013C0: 99 22 93 11 11 22 3A 89 33 35 32 30 00 CC 3C 10 |."...":.3520..<.|
000013D0: 0E 99 22 11 9A 20 48 49 54 20 46 55 4E 43 54 49 |..".. HIT FUNCTI|
000013E0: 4F 4E 20 4B 45 59 20 54 4F 20 42 45 20 44 45 46 |ON KEY TO BE DEF|
000013F0: 49 4E 45 44 22 3A 42 24 B2 22 85 86 87 88 89 8A |INED":B$."......|
00001400: 8B 8C 22 3A 8D 31 30 30 39 30 00 F0 3C 15 0E 42 |..":.10090..<..B|
00001410: B2 C6 28 41 24 29 AB 31 33 32 3A 8B 42 B3 35 A7 |..(A$).132:.B.5.|
00001420: 44 4C B2 42 AC 32 AB 31 3A 89 33 36 31 30 00 FD |DL.B.2.1:.3610..|
00001430: 3C 17 0E 44 4C B2 42 AC 32 AB 38 00 29 3D 1A 0E |<..DL.B.2.8.)=..|
00001440: 99 22 11 1E 45 4E 54 45 52 20 5B 46 22 C9 28 C4 |."..ENTER [F".(.|
00001450: 28 44 4C 29 2C 31 29 22 5D 20 57 4F 52 44 22 3B |(DL),1)"] WORD";|
00001460: 3A 8D 31 30 30 32 30 00 63 3D 24 0E 46 4B 24 28 |:.10020.c=$.FK$(|
00001470: 44 4C 29 B2 53 24 3A 99 22 9A 11 12 20 44 45 46 |DL).S$:."... DEF|
00001480: 49 4E 45 20 41 4E 59 20 4D 4F 52 45 20 4B 45 59 |INE ANY MORE KEY|
00001490: 53 20 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 |S (Y/N) ";:.1018|
000014A0: 30 00 74 3D 2E 0E 8B 41 24 B2 22 59 22 A7 33 36 |0.t=...A$."Y".36|
000014B0: 30 30 00 7E 3D 38 0E 89 33 35 33 30 00 9B 3D 42 |00.~=8..3530..=B|
000014C0: 0E 8F 20 2A 2A 20 52 45 4E 41 4D 45 20 44 49 53 |.. ** RENAME DIS|
000014D0: 4B 20 46 49 4C 45 20 2A 2A 00 CA 3D 4C 0E 99 22 |K FILE **..=L.."|
000014E0: 93 22 A6 31 30 29 22 11 9A 12 20 52 45 4E 41 4D |.".10)"... RENAM|
000014F0: 45 20 41 4E 59 20 44 49 53 4B 20 46 49 4C 45 20 |E ANY DISK FILE |
00001500: 22 3A 8D 31 30 32 30 30 00 D9 3D 4E 0E 8B 45 52 |":.10200..=N..ER|
00001510: B2 30 A7 33 36 37 30 00 F1 3D 50 0E 8D 31 30 32 |.0.3670..=P..102|
00001520: 32 30 3A 8B 41 24 B2 22 59 22 A7 33 36 36 30 00 |20:.A$."Y".3660.|
00001530: FB 3D 52 0E 89 31 37 31 30 00 14 3E 56 0E 8D 31 |.=R..1710..>V..1|
00001540: 30 32 38 30 3A A0 32 3A 8B 45 52 B2 30 A7 33 36 |0280:.2:.ER.0.36|
00001550: 39 35 00 25 3E 60 0E 8B 41 24 B2 22 4E 22 A7 33 |95.%>`..A$."N".3|
00001560: 32 39 30 00 2F 3E 6A 0E 89 33 36 37 30 00 6A 3E |290./>j..3670.j>|
00001570: 6F 0E 99 22 11 45 4E 54 45 52 20 12 4E 45 57 92 |o..".ENTER .NEW.|
00001580: 20 46 49 4C 45 20 4E 41 4D 45 22 3B 3A 8D 31 30 | FILE NAME";:.10|
00001590: 30 32 30 3A 8B 53 24 B2 22 22 A7 53 24 B2 22 43 |020:.S$."".S$."C|
000015A0: 36 34 20 44 41 54 41 22 00 7C 3E 70 0E 8B 53 24 |64 DATA".|>p..S$|
000015B0: B3 B1 4E 41 24 A7 33 37 30 30 00 B4 3E 71 0E 99 |..NA$.3700..>q..|
000015C0: 22 11 1C 12 20 46 49 4C 45 20 4E 41 4D 45 53 20 |"... FILE NAMES |
000015D0: 41 52 45 20 54 48 45 20 53 41 4D 45 20 22 3A 8D |ARE THE SAME ":.|
000015E0: 31 30 32 34 30 3A 8B 41 24 B2 22 4E 22 A7 33 32 |10240:.A$."N".32|
000015F0: 39 30 00 BE 3E 72 0E 89 33 36 37 30 00 F9 3E 74 |90..>r..3670..>t|
00001600: 0E 99 22 1E 11 20 52 45 4E 41 4D 49 4E 47 20 46 |..".. RENAMING F|
00001610: 49 4C 45 22 3A 98 31 35 2C 22 52 3A 22 53 24 22 |ILE":.15,"R:"S$"|
00001620: 3D 22 4E 41 24 3A 8D 31 30 32 31 30 3A 8B 45 52 |="NA$:.10210:.ER|
00001630: B2 30 A7 33 32 39 30 00 11 3F 7E 0E 8D 31 30 32 |.0.3290..?~..102|
00001640: 32 30 3A 8B 41 24 B2 22 59 22 A7 33 36 37 30 00 |20:.A$."Y".3670.|
00001650: 1B 3F 88 0E 89 33 32 39 30 00 36 3F A0 0F 8F 20 |.?...3290.6?... |
00001660: 2A 2A 20 52 45 2D 52 55 4E 20 50 52 4F 47 52 41 |** RE-RUN PROGRA|
00001670: 4D 20 2A 2A 00 6E 3F AA 0F 99 22 93 22 A6 31 30 |M **.n?...".".10|
00001680: 29 22 9A 20 12 20 52 45 53 45 54 20 48 49 50 45 |)". . RESET HIPE|
00001690: 52 42 41 53 45 20 92 11 22 3A 8D 31 30 33 38 30 |RBASE ..":.10380|
000016A0: 3A 8B 41 24 B2 22 59 22 A7 9C 3A 8A 00 7E 3F B4 |:.A$."Y"..:..~?.|
000016B0: 0F 8D 31 30 32 36 30 3A 89 31 33 30 00 84 3F 0F |..10260:.130..?.|
000016C0: 27 80 00 9E 3F 10 27 8F 20 2A 2A 2A 20 53 55 42 |'...?.'. *** SUB|
000016D0: 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 00 AE 3F 1A |ROUTINES ***..?.|
000016E0: 27 81 54 B2 31 A4 44 4C 3A 82 3A 8E 00 C9 3F 24 |'.T.1.DL:.:...?$|
000016F0: 27 97 31 39 38 2C 30 3A 53 24 B2 22 22 3A 99 22 |'.198,0:S$."":."|
00001700: 20 2D 20 A4 9D 22 3B 00 E8 3F 2E 27 A1 41 24 3A | - ..";..?.'.A$:|
00001710: 41 B2 C6 28 41 24 AA 4E 4C 24 29 3A 8B 41 B2 30 |A..(A$.NL$):.A.0|
00001720: A7 31 30 30 33 30 00 F9 3F 38 27 8B 41 B2 31 33 |.10030..?8'.A.13|
00001730: A7 99 22 20 22 3A 8E 00 0F 40 42 27 8B 41 B2 32 |.." ":...@B'.A.2|
00001740: 30 AF 53 24 B2 22 22 A7 31 30 30 33 30 00 3A 40 |0.S$."".10030.:@|
00001750: 4C 27 8B 41 B2 32 30 A7 53 24 B2 C8 28 53 24 2C |L'.A.20.S$..(S$,|
00001760: C3 28 53 24 29 AB 31 29 3A 99 41 24 22 A4 9D 22 |.(S$).1):.A$".."|
00001770: 3B 3A 89 31 30 30 33 30 00 60 40 51 27 8B 41 B1 |;:.10030.`@Q'.A.|
00001780: 31 33 32 AF 41 B3 31 34 31 A7 41 24 B2 46 4B 24 |132.A.141.A$.FK$|
00001790: 28 41 AB 31 33 32 29 3A 89 31 30 30 38 30 00 75 |(A.132):.10080.u|
000017A0: 40 56 27 8B 41 B3 33 32 B0 41 B1 39 35 A7 31 30 |@V'.A.32.A.95.10|
000017B0: 30 33 30 00 92 40 60 27 53 24 B2 53 24 AA 41 24 |030..@`'S$.S$.A$|
000017C0: 3A 99 41 24 22 A4 9D 22 3B 3A 89 31 30 30 33 30 |:.A$"..";:.10030|
000017D0: 00 9D 40 6A 27 97 31 39 38 2C 30 00 B2 40 6F 27 |..@j'.198,0..@o'|
000017E0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 30 39 35 |.A$:.A$."".10095|
000017F0: 00 DB 40 74 27 81 54 B2 31 A4 C3 28 42 24 29 3A |..@t'.T.1..(B$):|
00001800: 8B 41 24 B2 CA 28 42 24 2C 54 2C 31 29 A7 54 B2 |.A$..(B$,T,1).T.|
00001810: C3 28 42 24 29 3A 82 3A 8E 00 E8 40 7E 27 82 3A |.(B$):.:...@~'.:|
00001820: 89 31 30 30 39 30 00 0C 41 88 27 41 B2 C3 28 41 |.10090..A.'A..(A|
00001830: 24 29 3A 99 41 24 C8 28 42 53 24 2C 41 AA 31 29 |$):.A$.(BS$,A.1)|
00001840: C8 28 55 4C 24 2C 41 29 3A 8E 00 28 41 92 27 44 |.(UL$,A):..(A.'D|
00001850: 4C B2 30 3A 81 54 B2 31 A4 4E 43 3A 43 48 25 28 |L.0:.T.1.NC:CH%(|
00001860: 54 29 B2 30 3A 82 00 3D 41 97 27 8D 31 30 30 39 |T).0:..=A.'.1009|
00001870: 30 3A 8B 41 24 B2 43 52 24 A7 8E 00 5F 41 9C 27 |0:.A$.CR$..._A.'|
00001880: 41 B2 C5 28 41 24 29 3A 8D 31 30 31 35 30 3A 44 |A..(A$):.10150:D|
00001890: 4C B2 44 4C AA 31 3A 89 31 30 31 33 35 00 82 41 |L.DL.1:.10135..A|
000018A0: A6 27 99 C8 28 43 44 24 2C 41 AA 42 29 22 3E 22 |.'..(CD$,A.B)">"|
000018B0: 3A 8B 43 48 25 28 41 29 A7 44 4C B2 44 4C AB 31 |:.CH%(A).DL.DL.1|
000018C0: 00 96 41 B0 27 43 48 25 28 41 29 B2 31 3A 4F 50 |..A.'CH%(A).1:OP|
000018D0: B2 41 3A 8E 00 C6 41 BA 27 99 C8 28 43 44 24 2C |.A:...A.'..(CD$,|
000018E0: 42 AA 4E 43 AA 34 29 22 12 20 41 52 45 20 54 48 |B.NC.4)". ARE TH|
000018F0: 45 53 45 20 43 4F 52 52 45 43 54 20 28 59 2F 4E |ESE CORRECT (Y/N|
00001900: 29 20 22 3B 00 DF 41 C4 27 42 24 B2 22 59 4E 22 |) ";..A.'B$."YN"|
00001910: 3A 8D 31 30 30 39 30 3A 99 41 24 3A 8E 00 12 42 |:.10090:.A$:...B|
00001920: CE 27 99 22 11 9A 45 4E 54 45 52 20 4F 50 54 49 |.'."..ENTER OPTI|
00001930: 4F 4E 20 4E 55 4D 42 45 52 53 20 26 20 52 45 54 |ON NUMBERS & RET|
00001940: 55 52 4E 20 54 4F 20 46 49 4E 49 53 48 22 3A 8E |URN TO FINISH":.|
00001950: 00 50 42 D8 27 99 22 11 9C 49 4E 53 45 52 54 20 |.PB.'."..INSERT |
00001960: 44 41 54 41 20 44 49 53 4B 20 49 4E 54 4F 20 44 |DATA DISK INTO D|
00001970: 52 49 56 45 2C 48 49 54 20 41 20 4B 45 59 22 3A |RIVE,HIT A KEY":|
00001980: 8D 31 30 32 35 30 3A 98 31 35 2C 22 49 22 00 67 |.10250:.15,"I".g|
00001990: 42 E2 27 84 31 35 2C 45 52 2C 45 52 24 2C 54 45 |B.'.15,ER,ER$,TE|
000019A0: 2C 53 45 3A 8E 00 99 42 EC 27 99 22 11 1C 2A 20 |,SE:...B.'."..* |
000019B0: 44 49 53 4B 20 45 52 52 4F 52 20 2A 20 23 22 45 |DISK ERROR * #"E|
000019C0: 52 3B 45 52 24 3B 3A 8B 54 45 A7 99 22 20 4F 4E |R;ER$;:.TE.." ON|
000019D0: 22 54 45 3B 53 45 3B 00 A3 42 F6 27 99 43 52 24 |"TE;SE;..B.'.CR$|
000019E0: 3B 00 C9 42 00 28 99 22 11 9A 12 20 54 52 59 20 |;..B.(."... TRY |
000019F0: 41 47 41 49 4E 20 28 59 2F 4E 29 20 22 3B 3A 8D |AGAIN (Y/N) ";:.|
00001A00: 31 30 31 38 30 3A 8E 00 E4 42 0A 28 97 31 39 38 |10180:...B.(.198|
00001A10: 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 |,0:.198,1:.198,0|
00001A20: 3A 8E 00 0D 43 14 28 99 A6 35 29 22 9A 12 11 20 |:...C.(..5)"... |
00001A30: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00001A40: 20 43 4F 4E 54 49 4E 55 45 20 22 00 1A 43 1E 28 | CONTINUE "..C.(|
00001A50: 8D 31 30 32 35 30 3A 8E 00 4F 43 28 28 99 22 11 |.10250:..OC((.".|
00001A60: 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 22 |ENTER FILE NAME"|
00001A70: 3B 3A 8D 31 30 30 32 30 3A 8B 53 24 B2 22 22 A7 |;:.10020:.S$."".|
00001A80: 53 24 B2 22 43 36 34 20 44 41 54 41 22 00 7E 43 |S$."C64 DATA".~C|
00001A90: 32 28 4E 41 24 B2 53 24 3A 9F 32 2C 44 44 2C 32 |2(NA$.S$:.2,DD,2|
00001AA0: 2C 53 24 AA 22 2C 53 2C 22 AA 54 59 24 3A 8D 31 |,S$.",S,".TY$:.1|
00001AB0: 30 32 31 30 3A 8B 45 52 B2 30 A7 8E 00 8B 43 3C |0210:.ER.0....C<|
00001AC0: 28 8D 31 30 32 32 30 3A 8E 00 B7 43 46 28 99 22 |(.10220:...CF(."|
00001AD0: 11 45 4E 54 45 52 20 43 55 52 52 45 4E 54 20 44 |.ENTER CURRENT D|
00001AE0: 41 54 45 22 3B 3A 8D 31 30 30 32 30 3A 45 44 24 |ATE";:.10020:ED$|
00001AF0: B2 53 24 3A 8E 00 E2 43 50 28 98 32 2C 51 4F 24 |.S$:...CP(.2,QO$|
00001B00: 45 44 24 43 4F 24 45 44 24 43 4F 24 50 57 24 51 |ED$CO$ED$CO$PW$Q|
00001B10: 4F 24 43 52 24 C7 28 4E 46 29 51 4F 24 3B 3A 8E |O$CR$.(NF)QO$;:.|
00001B20: 00 07 44 5A 28 84 32 2C 44 41 24 2C 55 44 24 2C |..DZ(.2,DA$,UD$,|
00001B30: 50 57 24 3A A1 23 32 2C 41 24 3A 4E 46 B2 C6 28 |PW$:.#2,A$:NF..(|
00001B40: 41 24 29 3A 8E 00 46 44 64 28 99 22 11 45 4E 54 |A$):..FDd(.".ENT|
00001B50: 45 52 20 50 41 53 53 57 4F 52 44 20 5B 52 45 54 |ER PASSWORD [RET|
00001B60: 55 52 4E 20 49 46 20 4E 4F 4E 45 5D 22 3B 3A 8D |URN IF NONE]";:.|
00001B70: 31 30 30 32 30 3A 41 24 B2 22 22 3A 8B 53 24 B2 |10020:A$."":.S$.|
00001B80: 22 22 A7 8E 00 71 44 6E 28 81 54 B2 31 A4 C3 28 |""...qDn(.T.1..(|
00001B90: 53 24 29 3A 41 24 B2 41 24 AA C7 28 C6 28 CA 28 |S$):A$.A$..(.(.(|
00001BA0: 53 24 2C 54 2C 31 29 29 AA 54 29 3A 82 3A 8E 00 |S$,T,1)).T):.:..|
00001BB0: 9C 44 78 28 98 33 2C 51 4F 24 44 41 24 43 4F 24 |.Dx(.3,QO$DA$CO$|
00001BC0: 45 44 24 43 4F 24 50 57 24 51 4F 24 43 52 24 C7 |ED$CO$PW$QO$CR$.|
00001BD0: 28 4E 46 29 51 4F 24 3B 3A 8E 00 BA 44 82 28 81 |(NF)QO$;:...D.(.|
00001BE0: 54 B2 31 A4 4E 46 3A 98 33 2C 44 46 24 28 54 29 |T.1.NF:.3,DF$(T)|
00001BF0: 43 4F 24 3B 3A 82 3A 8E 00 E3 44 8C 28 99 22 11 |CO$;:.:...D.(.".|
00001C00: 12 1C 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 |.. ARE YOU SURE |
00001C10: 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 31 38 30 3A |(Y/N) ";:.10180:|
00001C20: 8E 00 22 45 96 28 99 22 11 9A 12 20 45 4E 54 45 |.."E.(."... ENTE|
00001C30: 52 20 52 45 43 4F 52 44 20 23 22 4E 52 22 11 22 |R RECORD #"NR"."|
00001C40: 3A 81 54 B2 31 A4 4E 46 3A 99 22 45 4E 54 45 52 |:.T.1.NF:."ENTER|
00001C50: 20 22 44 46 24 28 54 29 3B 3A 8D 31 30 30 32 30 | "DF$(T);:.10020|
00001C60: 00 4A 45 A0 28 8B 54 B2 31 AF 53 24 B2 22 58 58 |.JE.(.T.1.S$."XX|
00001C70: 58 22 A7 98 4C 46 2C 53 24 51 4F 24 3A 54 B2 4E |X"..LF,S$QO$:T.N|
00001C80: 46 3A 82 3A A0 32 3A 8E 00 85 45 AA 28 54 45 24 |F:.:.2:...E.(TE$|
00001C90: 28 54 29 B2 53 24 3A 82 3A 99 22 11 9F 41 52 45 |(T).S$:.:."..ARE|
00001CA0: 20 41 4C 4C 20 46 49 45 4C 44 53 20 43 4F 52 52 | ALL FIELDS CORR|
00001CB0: 45 43 54 20 28 59 2F 4E 29 20 22 3B 3A 8D 31 30 |ECT (Y/N) ";:.10|
00001CC0: 31 38 30 00 97 45 B4 28 8B 41 24 B2 22 4E 22 A7 |180..E.(.A$."N".|
00001CD0: 31 30 33 39 30 00 BE 45 BE 28 81 54 B2 31 A4 4E |10390..E.(.T.1.N|
00001CE0: 46 3A 98 4C 46 2C 54 45 24 28 54 29 43 4F 24 3B |F:.LF,TE$(T)CO$;|
00001CF0: 3A 82 3A 4E 52 B2 4E 52 AA 31 3A 8E 00 00 00 52 |:.:NR.NR.1:....R|
00001D00: 53 78 A2 0A A0 00 86 14 84 15 A2 BD A0 45 86 FC |Sx...........E..|
00001D10: 84 FD A0 00 A2 7B BD DE 45 9D 33 03 CA D0 F7 4C |.....{..E.3....L|
00001D20: 84 03 46 08 0A 00 97 35 33 32 38 31 2C 31 3A 97 |..F....53281,1:.|
00001D30: 35 33 32 38 30 2C 31 3A 97 36 35 30 2C 30 3A 43 |53280,1:.650,0:C|
00001D40: 44 88 C0 FF D0 02 C6 FD B1 FC 85 FF 88 C0 FF D0 |D...............|
00001D50: 02 C6 FD B1 FC C9 73 F0 2F 9D C1 45 CA E0 FF D0 |......s./..E....|
00001D60: 06 CE 6D 03 CE 8C 03 C6 FF D0 EE 88 C0 FF D0 02 |..m.............|
00001D70: C6 FD B1 FC C9 73 F0 C9 9D C1 45 CA E0 FF D0 EB |.....s....E.....|
00001D80: CE 6D 03 CE 8C 03 D0 E3 A2 1F BD 33 03 9D 00 08 |.m.........3....|
00001D90: CA D0 F7 A9 73 A9 37 85 01 58 4C BC A8 43 C4 28 |....s.7..XL..C.(|
00001DA0: 98 92 00 A5 2D 18 65 2E C9 D6 F0 06 4C 00 23 4C |....-.e.....L.#L|
00001DB0: 80 46 AD 0B 08 18 6D 0C 08 6D 0D 08 C9 EF F0 EF |.F....m..m......|
00001DC0: 4C 00 23 20 53 E4 4C 16 08 A2 00 8E 20 D0 4C 00 |L.# S.L..... .L.|
00001DD0: 23 C0 92 |#.. |
..":A$."ENTER FIELD NUMBERS TO BE SEARCH
ED":.10120.')..."..";:.T.1.NF:.T"] "DF$(
T):.:B.6:NC.NF:B$.CR$.X)...T.1.NF:A$.D(T
):B$.B$.I(A$,C(A$).1):.:.10190.N)...1013
0:.DL.0.1790..)...10170:.A$."N".1940..).
..T.1.NF:.CH%(T).0.1990.Y)A..".STRING FO
R ."DF$(T)". FIELD ?";:.10020:TE$(T).S$.
.)F..:PW.3:.2000..*K..T.1.NF:CH%(T).1:.:
PW.1.!*P..4,PD,SA:.PF$."N".2040.M*..DL.0
:.T.1.NF:.C(DF$(T)).DL.DL.C(DF$(T)).S*..
..E*...FT$."L".2525.~*...2,A$:.A$."XXX".
2090..*...T.1.NF:.T..1..2,A$..*...C(A$).
MF%(T).MF%(T).C(A$).A* ..:.2050..**. 2:.
2,DD,2,NA$.",S,R":.10330..+/..PF$."N"..T
.1.NF:.2,A$:.:.2145..+1..4,.5);:.T.1.NF:
.2,A$.H+4.A.MF%(T):B.C(A$):.B.A.A.B.1:MF
%(T).A.G+>..CH%(T).PW.3..4,A$.A.B.1);..+
H..:.4,CR$;:NL.3:.4,.5);:.T.1.NF:.CH%(T)
.0.PW..3.2140.L+R..4,H(UL$,C(DF$(T))).MF
%(T).C(DF$(T)).1);.Z+\..:.4,CR$;..+A.NR.
1:.PW.3.2220..,F..2,A$:.A$."XXX".2600.2,
P..T.1.NF:.T.1..4,NR;.4.C(D(NR)));:.2180
.<,Z..2,A$._,...CH%(T)..4,A$.MF%(T).C(A$
).1);..,...:.T.1.LN:.4,CR$;:.:NR.NR.1:NL
.NL.1..,...NL.PL..4,CR$CR$CR$:NL.0..,...
2150.G,...2,T$:.T$."XXX".2600..,...T.1.N
F:.T..1..2,T$..,..VT$(T).T$:...-J.PW.0:.
T.1.NF:.CH%(T).0.2295.@-T.T$.VT$(T):A$.T
E$(T):.Z.1.C(A$):.Z.C(T$).2290..-...J(A$
,Z,1)..J(T$,Z,1).J(A$,Z,1).."?".PW.0:Z.C
(A$):T.NF:.2290..-..PW.1..-.....-...:.PW
.0.NR.NR.1:.2220.O-...T.1.NF:.T.1..4,NR;
.4.C(D(NR)));..-..A$.VT$(T):.4,A$.MF%(T)
.C(A$).1);......:.T.1.LN:.4,CR$;:.:NR.NR
.1:NL.NL.1.9....NL.PL..4,CR$CR$CR$:NL.0.
C.$..2220.R....PW.3.2650.K....2,T$:.T$."
XXX".2600......T.1.NF:.T..1..2,T$......C
H%(T).0.2580.A....PF$."Y"..4,DF$(T).DL.C
(DF$(T)))" - ";.K....4,T$......:.T.1.LN:
.4,CR$;:.:.2530.&/(..4: 4: 2:.2,DD,2,NA$
.",S,R":.10330:.T.1.NF:.2,A$:.:.1790.?/Z
..2,T$:.T$."XXX".2600.W/D..T.1.NF:.T..1.
.2,T$.G/N.VT$(T).T$:.../X.PW.0:.T.1.NF:.
CH%(T).0.2725../..T$.VT$(T):A$.TE$(T):.Z
.1.C(A$):.Z.C(T$).2720../...J(A$,Z,1)..J
(T$,Z,1).J(A$,Z,1).."?".PW.0:Z.C(A$):T.N
F:.2720..0..PW.1..0 ..."0...:.PW.0.NR.NR
.1:.2650.U0...T.1.NF:.PF$."Y"..4,DF$(T).
DL.C(DF$(T)))" - ";.}0...4,VT$(T):.:.T.1
.LN:.4,CR$;:.:.2650..0...OP.5.2910.K0C..
"....":A$."WHICH PRINTER CHARACTERISTIC
TO CHANGE":.10120..1H..".. 1] CURRENT LI
NES PER PAGE ="PL.4:." 2] LINE FEEDS AFT
ER RECORD ="LN.D1R.." 3] SECONDARY ADDRE
SS OF PRINTER ="SA.L1..B.6:NC.3:B$.CR$."
123":.10190:.10130..1...H(CD$,12):.DL.0.
1790..1...CH%(1).0.2840.D1...".. ENTER N
O. LINES PER PAGE";:.10020..1..PL.E(S$).
4:.PL.1.."."SP$:."..";:.2810..2...CH%(2)
.0.2870.(2"..".. ENTER NO. LINE FEEDS";:
.10020.P2,.LN.E(S$):.LN.0.."."SP$:."..";
:.2850.C26..CH%(3).0.1790..2@..".. ENTER
SECONDARY ADDRESS";:.10020..2J.SA.E(S$)
:.SA.0.SA.255.."."SP$:."..";:.2880.F2T..
1790..2^..4,PD,SA:.".. . ASCII DUMP A HI
PERBASE FILE "..3H..#2,A$:.ST.0..4,A$;:.
2920. 3R..2600.;3... ** DIRECTORY DISK *
*.J3B..".".6)"... DIRECTORY OF ANY DISK
":.10200.Y3D..ER.0.3020..3F..10220:.A$."
Y".3010..3H..1710.U3L..:A$."PLEASE ENTER
DIRECTORY STYLE AND DEVICE":.10120..4N.
.".. 1] LIST ALL FILES":." 2] LIST SEQ F
ILES ONLY.?4P.." 3] OUTPUT TO PRINTER":.
" 4] OUTPUT TO SCREEN.H4V.B.8:NC.4:B$.CR
$."1234":.10190:.10130..4...DL.0.A.1:.10
150:A.4:.10150:.3060.O4...(CH%(1).CH%(2)
..1).(CH%(3).CH%(4)..1).DL..2..H(CD$,7):
.3022..4...H(CD$,14):.CH%(3)..4,PD,SA:.3
070..4...4,3..5..NA$."$":.CH%(2).NA$."$*
=SEQ".A5...1,DD,0,NA$:.10210:.ER.0.3085.
Z5...A$."Y"..10260:.3080.D5...3140.Y5...
#1,A$,A$:.4,CR$..5...#1,A$,A$,A$,B$:.ST.
3140..5...4,F(A$.NL$).F(B$.NL$).256;.V5&
..#1,A$:.A$.""..4,CR$;:.3090..50..ST.314
0..5:..4,A$;:.3110..6D..4,CR$: 1: 4:.102
60:.130.+6... ** DELETE A FILE **.Z6..."
.".10)"... DELETE ANY DISK FILE ":.10200
.I6...ER.0.3220..6...10220:.A$."Y".3210.
.6...1710..6...10280: 2:.ER.0.3225..6...
A$."N".3290..6...3220.W6...10380:.A$."N"
.3290..7...".. DELETING FILE":.15,"S:"S$
:.10210..7...ER.1..10220:.A$."Y".3220..7
...ER.1.3290.M7...TE.0.."..* ERROR * FIL
E NOT DELETED ":.10240:.A$."Y".3220.|7F.
.TE.0.3290..7P.."..OK,"S$" HAS BEEN DELE
TED"..7Z..10260:.130.J7... ** UNDELETE A
FILE **..7...".".8)"... UNDELETE A DELE
TED FILE ":.10200..8...ER.0.3320."8...10
220:.A$."Y".3310.,8...1710.J8...".. LOOK
ING FOR DELETED FILES ...":T.18:S.0:.2,D
D,2,"#2"..8...15,"U1:2 0"T;S:.10210:.ER.
0.3360..8.. 2:.A$."Y".3310..8...3290..8
.DL.0:.15,"M-R"NL$G(5):.#15,A$:TT.F(A$.N
L$):.TT.0.TT.35.3470..9*..15,"M-R"G(1)G(
5):.#15,A$:SS.F(A$.NL$).A94..15,"U1:2 0"
TT;SS:.10210:.ER.0.3410.V9>..A$."N". 2:.
3290.`9H..3380..9R..P.0.255:.#2,A$:Z%(P)
.F(A$.NL$):...9\..P.2.255.32:.Z%(P).3460
..9F..Z%(P.1).0.P.256:.:.3470..9P.."..FO
UND - "QO$;:.Z.P.3.P.18:.G(Z%(Z));:.:.QO
$.*:Z..15,"M-W"G(P)G(5)G(1)G(129):.15,"U
2:2 0"TT;SS:DL.1.H:...:TT.Z%(0):SS.Z%(1)
:.3380.E:...".. NO ";:.DL.."MORE ";..:..
."DELETED FILES FOUND": 2:.DL..15,"V"..:
...3290..:... ** DEFINE FUNCTION KEYS **
..:...".".8)"... DEFINE 8 FUNCTION KEYS
".';...".. CURRENT WORDS ARE :-..":.T.1.
8:." [F"I(D(T),1)"] "FK$(T):..[;J..10260
:."...":A$."ENTER OPTION REQUIRED":.1012
0..;T..".. 1] DEFINE FUNCTION KEY [F1-8]
":." 2] CLEAR ALL FUNCTION KEYS..;..." 3
] VIEW CURRENT FUNCTION KEY WORDS":." 4]
RETURN TO MENU..<..B.6:NC.4:B$.CR$."123
4":.10190:.10130:.DL.0.A.1:.10150.5<...H
(CD$,12):.OP.4.3290.W<...OP.2.."... FUNC
TION KEYS CLEARED .":.T.1.8:FK$(T)."":.:
.3530..<...OP.3.."...":.3520.L<...".. HI
T FUNCTION KEY TO BE DEFINED":B$."......
..":.10090..<..B.F(A$).132:.B.5.DL.B.2.1
:.3610..<..DL.B.2.8.)=..."..ENTER [F"I(D
(DL),1)"] WORD";:.10020.C=$.FK$(DL).S$:.
"... DEFINE ANY MORE KEYS (Y/N) ";:.1018
0.T=...A$."Y".3600.~=8..3530..=B.. ** RE
NAME DISK FILE **.J=L..".".10)"... RENAM
E ANY DISK FILE ":.10200.Y=N..ER.0.3670.
.=P..10220:.A$."Y".3660..=R..1710..>V..1
0280: 2:.ER.0.3695.%>`..A$."N".3290./>J.
.3670.J>O..".ENTER .NEW. FILE NAME";:.10
020:.S$."".S$."C64 DATA".|>P..S$..NA$.37
00..>Q.."... FILE NAMES ARE THE SAME ":.
10240:.A$."N".3290..>R..3670..>T..".. RE
NAMING FILE":.15,"R:"S$"="NA$:.10210:.ER
.0.3290..?~..10220:.A$."Y".3670..?...329
0.6? .. ** RE-RUN PROGRAM **.N?...".".10
)". . RESET HIPERBASE ..":.10380:.A$."Y"
..:..~?...10260:.130..?.'...?.'. *** SUB
ROUTINES ***..?.'.T.1.DL:.:..I?$'.198,0:
S$."":." - ..";..?.'.A$:A.F(A$.NL$):.A.0
.10030..?8'.A.13.." ":...@B'.A.20.S$."".
10030.:@L'.A.20.S$.H(S$,C(S$).1):.A$".."
;:.10030.`@Q'.A.132.A.141.A$.FK$(A.132):
.10080.U@V'.A.32.A.95.10030..@`'S$.S$.A$
:.A$"..";:.10030..@J'.198,0..@O'.A$:.A$.
"".10095..@T'.T.1.C(B$):.A$.J(B$,T,1).T.
C(B$):.:...@~'.:.10090..A.'A.C(A$):.A$H(
BS$,A.1)H(UL$,A):..(A.'DL.0:.T.1.NC:CH%(
T).0:..=A.'.10090:.A$.CR$..._A.'A.E(A$):
.10150:DL.DL.1:.10135..A.'.H(CD$,A.B)">"
:.CH%(A).DL.DL.1..A.'CH%(A).1:OP.A:..FA.
'.H(CD$,B.NC.4)". ARE THESE CORRECT (Y/N
) ";..AD'B$."YN":.10090:.A$:...BN'."..EN
TER OPTION NUMBERS & RETURN TO FINISH":.
.PBX'."..INSERT DATA DISK INTO DRIVE,HIT
A KEY":.10250:.15,"I".GB.'.15,ER,ER$,TE
,SE:...B.'."..* DISK ERROR * #"ER;ER$;:.
TE.." ON"TE;SE;..B.'.CR$;.IB.(."... TRY
AGAIN (Y/N) ";:.10180:...B.(.198,0:.198,
1:.198,0:...C.(..5)"... PRESS ANY KEY TO
CONTINUE "..C.(.10250:..OC((.".ENTER FI
LE NAME";:.10020:.S$."".S$."C64 DATA".~C
2(NA$.S$:.2,DD,2,S$.",S,".TY$:.10210:.ER
.0....C<(.10220:...CF(.".ENTER CURRENT D
ATE";:.10020:ED$.S$:...CP(.2,QO$ED$CO$ED
$CO$PW$QO$CR$G(NF)QO$;:...DZ(.2,DA$,UD$,
PW$:.#2,A$:NF.F(A$):..FDD(.".ENTER PASSW
ORD [RETURN IF NONE]";:.10020:A$."":.S$.
""...QDN(.T.1.C(S$):A$.A$.G(F(J(S$,T,1))
.T):.:...DX(.3,QO$DA$CO$ED$CO$PW$QO$CR$G
(NF)QO$;:...D.(.T.1.NF:.3,DF$(T)CO$;:.:.
..D.(."... ARE YOU SURE (Y/N) ";:.10180:
.."E.(."... ENTER RECORD #"NR".":.T.1.NF
:."ENTER "DF$(T);:.10020.JE (.T.1.S$."XX
X"..LF,S$QO$:T.NF:.: 2:...E.(TE$(T).S$:.
:."..ARE ALL FIELDS CORRECT (Y/N) ";:.10
180..E.(.A$."N".10390..E.(.T.1.NF:.LF,TE
$(T)CO$;:.:NR.NR.1:....RSX.. ....... E..
.. ..{..E.3.JP.L..F....53281,1:.53280,1:
.650,0:CD...P.F........P.F...IS./.AEJ..P
.NM.N..F.P....P.F...IS.I.AEJ..P.NM.N..P.
...3....JP..S.7..XL..CD(....-.E.IV..L.#L
.F....M..M..I...L.# S.L..... PL.#..
> CLICK IMAGE PREVIEW FOR FULL MODAL