TELETRON $C0

00000000: 54 24 B2 22 58 58 58 22  A7 32 36 30 30 00 DF 2C  |T$."XXX".2600..,|
00000010: B6 08 81 54 B2 31 A4 4E  46 3A 8B 54 B3 B1 31 A7  |...T.1.NF:.T..1.|
00000020: 84 32 2C 54 24 00 EF 2C  C0 08 56 54 24 28 54 29  |.2,T$..,..VT$(T)|
00000030: B2 54 24 3A 82 00 0F 2D  CA 08 50 57 B2 30 3A 81  |.T$:...-..PW.0:.|
00000040: 54 B2 31 A4 4E 46 3A 8B  43 48 25 28 54 29 B2 30  |T.1.NF:.CH%(T).0|
00000050: A7 32 32 39 35 00 40 2D  D4 08 54 24 B2 56 54 24  |.2295.@-..T$.VT$|
00000060: 28 54 29 3A 41 24 B2 54  45 24 28 54 29 3A 81 5A  |(T):A$.TE$(T):.Z|
00000070: B2 31 A4 C3 28 41 24 29  3A 8B 5A B1 C3 28 54 24  |.1..(A$):.Z..(T$|
00000080: 29 A7 32 32 39 30 00 81  2D DE 08 8B CA 28 41 24  |).2290..-....(A$|
00000090: 2C 5A 2C 31 29 B3 B1 CA  28 54 24 2C 5A 2C 31 29  |,Z,1)...(T$,Z,1)|
000000A0: AF CA 28 41 24 2C 5A 2C  31 29 B3 B1 22 3F 22 A7  |..(A$,Z,1).."?".|
000000B0: 50 57 B2 30 3A 5A B2 C3  28 41 24 29 3A 54 B2 4E  |PW.0:Z..(A$):T.N|
000000C0: 46 3A 89 32 32 39 30 00  8A 2D E8 08 50 57 B2 31  |F:.2290..-..PW.1|
000000D0: 00 90 2D F2 08 82 00 AA  2D F7 08 82 3A 8B 50 57  |..-.....-...:.PW|
000000E0: B2 30 A7 4E 52 B2 4E 52  AA 31 3A 89 32 32 32 30  |.0.NR.NR.1:.2220|
000000F0: 00 CF 2D FC 08 81 54 B2  31 A4 4E 46 3A 8B 54 B2  |..-...T.1.NF:.T.|
00000100: 31 A7 98 34 2C 4E 52 3B  A6 34 AB C3 28 C4 28 4E  |1..4,NR;.4..(.(N|
00000110: 52 29 29 29 3B 00 F4 2D  06 09 41 24 B2 56 54 24  |R)));..-..A$.VT$|
00000120: 28 54 29 3A 98 34 2C 41  24 A6 4D 46 25 28 54 29  |(T):.4,A$.MF%(T)|
00000130: AB C3 28 41 24 29 AA 31  29 3B 00 1C 2E 10 09 82  |..(A$).1);......|
00000140: 3A 81 54 B2 31 A4 4C 4E  3A 98 34 2C 43 52 24 3B  |:.T.1.LN:.4,CR$;|
00000150: 3A 82 3A 4E 52 B2 4E 52  AA 31 3A 4E 4C B2 4E 4C  |:.:NR.NR.1:NL.NL|
00000160: AA 31 00 39 2E 1A 09 8B  4E 4C B1 50 4C A7 98 34  |.1.9....NL.PL..4|
00000170: 2C 43 52 24 43 52 24 43  52 24 3A 4E 4C B2 30 00  |,CR$CR$CR$:NL.0.|
00000180: 43 2E 24 09 89 32 32 32  30 00 52 2E DD 09 8B 50  |C.$..2220.R....P|
00000190: 57 B2 33 A7 32 36 35 30  00 6B 2E E2 09 84 32 2C  |W.3.2650.k....2,|
000001A0: 54 24 3A 8B 54 24 B2 22  58 58 58 22 A7 32 36 30  |T$:.T$."XXX".260|
000001B0: 30 00 83 2E EC 09 81 54  B2 31 A4 4E 46 3A 8B 54  |0......T.1.NF:.T|
000001C0: B3 B1 31 A7 84 32 2C 54  24 00 96 2E F6 09 8B 43  |..1..2,T$......C|
000001D0: 48 25 28 54 29 B2 30 A7  32 35 38 30 00 C1 2E 00  |H%(T).0.2580....|
000001E0: 0A 8B 50 46 24 B2 22 59  22 A7 98 34 2C 44 46 24  |..PF$."Y"..4,DF$|
000001F0: 28 54 29 A6 44 4C AB C3  28 44 46 24 28 54 29 29  |(T).DL..(DF$(T))|
00000200: 29 22 20 2D 20 22 3B 00  CB 2E 0A 0A 98 34 2C 54  |)" - ";......4,T|
00000210: 24 00 E9 2E 14 0A 82 3A  81 54 B2 31 A4 4C 4E 3A  |$......:.T.1.LN:|
00000220: 98 34 2C 43 52 24 3B 3A  82 3A 89 32 35 33 30 00  |.4,CR$;:.:.2530.|
00000230: 26 2F 28 0A 98 34 3A A0  34 3A A0 32 3A 9F 32 2C  |&/(..4:.4:.2:.2,|
00000240: 44 44 2C 32 2C 4E 41 24  AA 22 2C 53 2C 52 22 3A  |DD,2,NA$.",S,R":|
00000250: 8D 31 30 33 33 30 3A 81  54 B2 31 A4 4E 46 3A 84  |.10330:.T.1.NF:.|
00000260: 32 2C 41 24 3A 82 3A 89  31 37 39 30 00 3F 2F 5A  |2,A$:.:.1790.?/Z|
00000270: 0A 84 32 2C 54 24 3A 8B  54 24 B2 22 58 58 58 22  |..2,T$:.T$."XXX"|
00000280: A7 32 36 30 30 00 57 2F  64 0A 81 54 B2 31 A4 4E  |.2600.W/d..T.1.N|
00000290: 46 3A 8B 54 B3 B1 31 A7  84 32 2C 54 24 00 67 2F  |F:.T..1..2,T$.g/|
000002A0: 6E 0A 56 54 24 28 54 29  B2 54 24 3A 82 00 87 2F  |n.VT$(T).T$:.../|
000002B0: 78 0A 50 57 B2 30 3A 81  54 B2 31 A4 4E 46 3A 8B  |x.PW.0:.T.1.NF:.|
000002C0: 43 48 25 28 54 29 B2 30  A7 32 37 32 35 00 B8 2F  |CH%(T).0.2725../|
000002D0: 82 0A 54 24 B2 56 54 24  28 54 29 3A 41 24 B2 54  |..T$.VT$(T):A$.T|
000002E0: 45 24 28 54 29 3A 81 5A  B2 31 A4 C3 28 41 24 29  |E$(T):.Z.1..(A$)|
000002F0: 3A 8B 5A B1 C3 28 54 24  29 A7 32 37 32 30 00 F9  |:.Z..(T$).2720..|
00000300: 2F 8C 0A 8B CA 28 41 24  2C 5A 2C 31 29 B3 B1 CA  |/....(A$,Z,1)...|
00000310: 28 54 24 2C 5A 2C 31 29  AF CA 28 41 24 2C 5A 2C  |(T$,Z,1)..(A$,Z,|
00000320: 31 29 B3 B1 22 3F 22 A7  50 57 B2 30 3A 5A B2 C3  |1).."?".PW.0:Z..|
00000330: 28 41 24 29 3A 54 B2 4E  46 3A 89 32 37 32 30 00  |(A$):T.NF:.2720.|
00000340: 02 30 96 0A 50 57 B2 31  00 08 30 A0 0A 82 00 22  |.0..PW.1..0...."|
00000350: 30 A5 0A 82 3A 8B 50 57  B2 30 A7 4E 52 B2 4E 52  |0...:.PW.0.NR.NR|
00000360: AA 31 3A 89 32 36 35 30  00 55 30 AA 0A 81 54 B2  |.1:.2650.U0...T.|
00000370: 31 A4 4E 46 3A 8B 50 46  24 B2 22 59 22 A7 98 34  |1.NF:.PF$."Y"..4|
00000380: 2C 44 46 24 28 54 29 A6  44 4C AB C3 28 44 46 24  |,DF$(T).DL..(DF$|
00000390: 28 54 29 29 29 22 20 2D  20 22 3B 00 7D 30 B4 0A  |(T)))" - ";.}0..|
000003A0: 98 34 2C 56 54 24 28 54  29 3A 82 3A 81 54 B2 31  |.4,VT$(T):.:.T.1|
000003B0: A4 4C 4E 3A 98 34 2C 43  52 24 3B 3A 82 3A 89 32  |.LN:.4,CR$;:.:.2|
000003C0: 36 35 30 00 8C 30 BE 0A  8B 4F 50 B2 35 A7 32 39  |650..0...OP.5.29|
000003D0: 31 30 00 CB 30 C3 0A 99  22 93 11 11 9A 22 3A 41  |10..0..."....":A|
000003E0: 24 B2 22 57 48 49 43 48  20 50 52 49 4E 54 45 52  |$."WHICH PRINTER|
000003F0: 20 43 48 41 52 41 43 54  45 52 49 53 54 49 43 20  | CHARACTERISTIC |
00000400: 54 4F 20 43 48 41 4E 47  45 22 3A 8D 31 30 31 32  |TO CHANGE":.1012|
00000410: 30 00 18 31 C8 0A 99 22  11 9F 20 31 5D 20 43 55  |0..1...".. 1] CU|
00000420: 52 52 45 4E 54 20 4C 49  4E 45 53 20 50 45 52 20  |RRENT LINES PER |
00000430: 50 41 47 45 20 3D 22 50  4C AA 34 3A 99 22 20 32  |PAGE ="PL.4:." 2|
00000440: 5D 20 4C 49 4E 45 20 46  45 45 44 53 20 41 46 54  |] LINE FEEDS AFT|
00000450: 45 52 20 52 45 43 4F 52  44 20 3D 22 4C 4E 00 44  |ER RECORD ="LN.D|
00000460: 31 D2 0A 99 22 20 33 5D  20 53 45 43 4F 4E 44 41  |1..." 3] SECONDA|
00000470: 52 59 20 41 44 44 52 45  53 53 20 4F 46 20 50 52  |RY ADDRESS OF PR|
00000480: 49 4E 54 45 52 20 3D 22  53 41 00 6C 31 DC 0A 42  |INTER ="SA.l1..B|
00000490: B2 36 3A 4E 43 B2 33 3A  42 24 B2 43 52 24 AA 22  |.6:NC.3:B$.CR$."|
000004A0: 31 32 33 22 3A 8D 31 30  31 39 30 3A 8D 31 30 31  |123":.10190:.101|
000004B0: 33 30 00 86 31 E6 0A 99  C8 28 43 44 24 2C 31 32  |30..1....(CD$,12|
000004C0: 29 3A 8B 44 4C B2 30 A7  31 37 39 30 00 99 31 F0  |):.DL.0.1790..1.|
000004D0: 0A 8B 43 48 25 28 31 29  B2 30 A7 32 38 34 30 00  |..CH%(1).0.2840.|
000004E0: C4 31 FA 0A 99 22 11 1C  20 45 4E 54 45 52 20 4E  |.1...".. ENTER N|
000004F0: 4F 2E 20 4C 49 4E 45 53  20 50 45 52 20 50 41 47  |O. LINES PER PAG|
00000500: 45 22 3B 3A 8D 31 30 30  32 30 00 EE 31 04 0B 50  |E";:.10020..1..P|
00000510: 4C B2 C5 28 53 24 29 AB  34 3A 8B 50 4C B3 31 A7  |L..(S$).4:.PL.1.|
00000520: 99 22 91 22 53 50 24 3A  99 22 91 91 22 3B 3A 89  |."."SP$:."..";:.|
00000530: 32 38 31 30 00 01 32 18  0B 8B 43 48 25 28 32 29  |2810..2...CH%(2)|
00000540: B2 30 A7 32 38 37 30 00  28 32 22 0B 99 22 11 1C  |.0.2870.(2".."..|
00000550: 20 45 4E 54 45 52 20 4E  4F 2E 20 4C 49 4E 45 20  | ENTER NO. LINE |
00000560: 46 45 45 44 53 22 3B 3A  8D 31 30 30 32 30 00 50  |FEEDS";:.10020.P|
00000570: 32 2C 0B 4C 4E B2 C5 28  53 24 29 3A 8B 4C 4E B3  |2,.LN..(S$):.LN.|
00000580: 30 A7 99 22 91 22 53 50  24 3A 99 22 91 91 22 3B  |0.."."SP$:."..";|
00000590: 3A 89 32 38 35 30 00 63  32 36 0B 8B 43 48 25 28  |:.2850.c26..CH%(|
000005A0: 33 29 B2 30 A7 31 37 39  30 00 8D 32 40 0B 99 22  |3).0.1790..2@.."|
000005B0: 11 1C 20 45 4E 54 45 52  20 53 45 43 4F 4E 44 41  |.. ENTER SECONDA|
000005C0: 52 59 20 41 44 44 52 45  53 53 22 3B 3A 8D 31 30  |RY ADDRESS";:.10|
000005D0: 30 32 30 00 BC 32 4A 0B  53 41 B2 C5 28 53 24 29  |020..2J.SA..(S$)|
000005E0: 3A 8B 53 41 B3 30 B0 53  41 B1 32 35 35 A7 99 22  |:.SA.0.SA.255.."|
000005F0: 91 22 53 50 24 3A 99 22  91 91 22 3B 3A 89 32 38  |."SP$:."..";:.28|
00000600: 38 30 00 C6 32 54 0B 89  31 37 39 30 00 F8 32 5E  |80..2T..1790..2^|
00000610: 0B 9F 34 2C 50 44 2C 53  41 3A 99 22 93 9A 20 12  |..4,PD,SA:.".. .|
00000620: 20 41 53 43 49 49 20 44  55 4D 50 20 41 20 48 49  | ASCII DUMP A HI|
00000630: 50 45 52 42 41 53 45 20  46 49 4C 45 20 22 00 16  |PERBASE FILE "..|
00000640: 33 68 0B A1 23 32 2C 41  24 3A 8B 53 54 B2 30 A7  |3h..#2,A$:.ST.0.|
00000650: 98 34 2C 41 24 3B 3A 89  32 39 32 30 00 20 33 72  |.4,A$;:.2920. 3r|
00000660: 0B 89 32 36 30 30 00 3B  33 B8 0B 8F 20 2A 2A 20  |..2600.;3... ** |
00000670: 44 49 52 45 43 54 4F 52  59 20 44 49 53 4B 20 2A  |DIRECTORY DISK *|
00000680: 2A 00 6A 33 C2 0B 99 22  93 22 A6 36 29 22 11 9A  |*.j3...".".6)"..|
00000690: 12 20 44 49 52 45 43 54  4F 52 59 20 4F 46 20 41  |. DIRECTORY OF A|
000006A0: 4E 59 20 44 49 53 4B 20  22 3A 8D 31 30 32 30 30  |NY DISK ":.10200|
000006B0: 00 79 33 C4 0B 8B 45 52  B2 30 A7 33 30 32 30 00  |.y3...ER.0.3020.|
000006C0: 91 33 C6 0B 8D 31 30 32  32 30 3A 8B 41 24 B2 22  |.3...10220:.A$."|
000006D0: 59 22 A7 33 30 31 30 00  9B 33 C8 0B 89 31 37 31  |Y".3010..3...171|
000006E0: 30 00 D5 33 CC 0B 99 3A  41 24 B2 22 50 4C 45 41  |0..3...:A$."PLEA|
000006F0: 53 45 20 45 4E 54 45 52  20 44 49 52 45 43 54 4F  |SE ENTER DIRECTO|
00000700: 52 59 20 53 54 59 4C 45  20 41 4E 44 20 44 45 56  |RY STYLE AND DEV|
00000710: 49 43 45 22 3A 8D 31 30  31 32 30 00 0B 34 CE 0B  |ICE":.10120..4..|
00000720: 99 22 11 9F 20 31 5D 20  4C 49 53 54 20 41 4C 4C  |.".. 1] LIST ALL|
00000730: 20 46 49 4C 45 53 22 3A  99 22 20 32 5D 20 4C 49  | FILES":." 2] LI|
00000740: 53 54 20 53 45 51 20 46  49 4C 45 53 20 4F 4E 4C  |ST SEQ FILES ONL|
00000750: 59 00 3F 34 D0 0B 99 22  20 33 5D 20 4F 55 54 50  |Y.?4..." 3] OUTP|
00000760: 55 54 20 54 4F 20 50 52  49 4E 54 45 52 22 3A 99  |UT TO PRINTER":.|
00000770: 22 20 34 5D 20 4F 55 54  50 55 54 20 54 4F 20 53  |" 4] OUTPUT TO S|
00000780: 43 52 45 45 4E 00 68 34  D6 0B 42 B2 38 3A 4E 43  |CREEN.h4..B.8:NC|
00000790: B2 34 3A 42 24 B2 43 52  24 AA 22 31 32 33 34 22  |.4:B$.CR$."1234"|
000007A0: 3A 8D 31 30 31 39 30 3A  8D 31 30 31 33 30 00 8E  |:.10190:.10130..|
000007B0: 34 E0 0B 8B 44 4C B2 30  A7 41 B2 31 3A 8D 31 30  |4...DL.0.A.1:.10|
000007C0: 31 35 30 3A 41 B2 34 3A  8D 31 30 31 35 30 3A 89  |150:A.4:.10150:.|
000007D0: 33 30 36 30 00 CF 34 EA  0B 8B 28 43 48 25 28 31  |3060..4...(CH%(1|
000007E0: 29 AA 43 48 25 28 32 29  B3 B1 31 29 B0 28 43 48  |).CH%(2)..1).(CH|
000007F0: 25 28 33 29 AA 43 48 25  28 34 29 B3 B1 31 29 B0  |%(3).CH%(4)..1).|
00000800: 44 4C B3 B1 32 A7 99 C8  28 43 44 24 2C 37 29 3A  |DL..2...(CD$,7):|
00000810: 89 33 30 32 32 00 F5 34  F4 0B 99 C8 28 43 44 24  |.3022..4....(CD$|
00000820: 2C 31 34 29 3A 8B 43 48  25 28 33 29 A7 9F 34 2C  |,14):.CH%(3)..4,|
00000830: 50 44 2C 53 41 3A 89 33  30 37 30 00 FE 34 F9 0B  |PD,SA:.3070..4..|
00000840: 9F 34 2C 33 00 1F 35 FE  0B 4E 41 24 B2 22 24 22  |.4,3..5..NA$."$"|
00000850: 3A 8B 43 48 25 28 32 29  A7 4E 41 24 B2 22 24 2A  |:.CH%(2).NA$."$*|
00000860: 3D 53 45 51 22 00 41 35  08 0C 9F 31 2C 44 44 2C  |=SEQ".A5...1,DD,|
00000870: 30 2C 4E 41 24 3A 8D 31  30 32 31 30 3A 8B 45 52  |0,NA$:.10210:.ER|
00000880: B2 30 A7 33 30 38 35 00  5A 35 09 0C 8B 41 24 B2  |.0.3085.Z5...A$.|
00000890: 22 59 22 A7 8D 31 30 32  36 30 3A 89 33 30 38 30  |"Y"..10260:.3080|
000008A0: 00 64 35 0A 0C 89 33 31  34 30 00 79 35 0D 0C A1  |.d5...3140.y5...|
000008B0: 23 31 2C 41 24 2C 41 24  3A 98 34 2C 43 52 24 00  |#1,A$,A$:.4,CR$.|
000008C0: 96 35 12 0C A1 23 31 2C  41 24 2C 41 24 2C 41 24  |.5...#1,A$,A$,A$|
000008D0: 2C 42 24 3A 8B 53 54 A7  33 31 34 30 00 B6 35 1C  |,B$:.ST.3140..5.|
000008E0: 0C 98 34 2C C6 28 41 24  AA 4E 4C 24 29 AA C6 28  |..4,.(A$.NL$)..(|
000008F0: 42 24 AA 4E 4C 24 29 AC  32 35 36 3B 00 D6 35 26  |B$.NL$).256;..5&|
00000900: 0C A1 23 31 2C 41 24 3A  8B 41 24 B2 22 22 A7 98  |..#1,A$:.A$.""..|
00000910: 34 2C 43 52 24 3B 3A 89  33 30 39 30 00 E3 35 30  |4,CR$;:.3090..50|
00000920: 0C 8B 53 54 A7 33 31 34  30 00 F4 35 3A 0C 98 34  |..ST.3140..5:..4|
00000930: 2C 41 24 3B 3A 89 33 31  31 30 00 11 36 44 0C 98  |,A$;:.3110..6D..|
00000940: 34 2C 43 52 24 3A A0 31  3A A0 34 3A 8D 31 30 32  |4,CR$:.1:.4:.102|
00000950: 36 30 3A 89 31 33 30 00  2B 36 80 0C 8F 20 2A 2A  |60:.130.+6... **|
00000960: 20 44 45 4C 45 54 45 20  41 20 46 49 4C 45 20 2A  | DELETE A FILE *|
00000970: 2A 00 5A 36 8A 0C 99 22  93 22 A6 31 30 29 22 11  |*.Z6...".".10)".|
00000980: 9A 12 20 44 45 4C 45 54  45 20 41 4E 59 20 44 49  |.. DELETE ANY DI|
00000990: 53 4B 20 46 49 4C 45 20  22 3A 8D 31 30 32 30 30  |SK FILE ":.10200|
000009A0: 00 69 36 8C 0C 8B 45 52  B2 30 A7 33 32 32 30 00  |.i6...ER.0.3220.|
000009B0: 81 36 8E 0C 8D 31 30 32  32 30 3A 8B 41 24 B2 22  |.6...10220:.A$."|
000009C0: 59 22 A7 33 32 31 30 00  8B 36 90 0C 89 31 37 31  |Y".3210..6...171|
000009D0: 30 00 A4 36 94 0C 8D 31  30 32 38 30 3A A0 32 3A  |0..6...10280:.2:|
000009E0: 8B 45 52 B2 30 A7 33 32  32 35 00 B5 36 95 0C 8B  |.ER.0.3225..6...|
000009F0: 41 24 B2 22 4E 22 A7 33  32 39 30 00 BF 36 96 0C  |A$."N".3290..6..|
00000A00: 89 33 32 32 30 00 D7 36  99 0C 8D 31 30 33 38 30  |.3220..6...10380|
00000A10: 3A 8B 41 24 B2 22 4E 22  A7 33 32 39 30 00 01 37  |:.A$."N".3290..7|
00000A20: 9E 0C 99 22 1E 11 20 44  45 4C 45 54 49 4E 47 20  |...".. DELETING |
00000A30: 46 49 4C 45 22 3A 98 31  35 2C 22 53 3A 22 53 24  |FILE":.15,"S:"S$|
00000A40: 3A 8D 31 30 32 31 30 00  1F 37 A8 0C 8B 45 52 B1  |:.10210..7...ER.|
00000A50: 31 A7 8D 31 30 32 32 30  3A 8B 41 24 B2 22 59 22  |1..10220:.A$."Y"|
00000A60: A7 33 32 32 30 00 2E 37  B2 0C 8B 45 52 B1 31 A7  |.3220..7...ER.1.|
00000A70: 33 32 39 30 00 6D 37 BC  0C 8B 54 45 B2 30 A7 99  |3290.m7...TE.0..|
00000A80: 22 11 1C 2A 20 45 52 52  4F 52 20 2A 20 46 49 4C  |"..* ERROR * FIL|
00000A90: 45 20 4E 4F 54 20 44 45  4C 45 54 45 44 20 22 3A  |E NOT DELETED ":|
00000AA0: 8D 31 30 32 34 30 3A 8B  41 24 B2 22 59 22 A7 33  |.10240:.A$."Y".3|
00000AB0: 32 32 30 00 7C 37 C6 0C  8B 54 45 B2 30 A7 33 32  |220.|7...TE.0.32|
00000AC0: 39 30 00 9E 37 D0 0C 99  22 11 9A 4F 4B 2C 22 53  |90..7..."..OK,"S|
00000AD0: 24 22 20 48 41 53 20 42  45 45 4E 20 44 45 4C 45  |$" HAS BEEN DELE|
00000AE0: 54 45 44 22 00 AE 37 DA  0C 8D 31 30 32 36 30 3A  |TED"..7...10260:|
00000AF0: 89 31 33 30 00 CA 37 E4  0C 8F 20 2A 2A 20 55 4E  |.130..7... ** UN|
00000B00: 44 45 4C 45 54 45 20 41  20 46 49 4C 45 20 2A 2A  |DELETE A FILE **|
00000B10: 00 FB 37 EE 0C 99 22 93  22 A6 38 29 22 11 9A 12  |..7...".".8)"...|
00000B20: 20 55 4E 44 45 4C 45 54  45 20 41 20 44 45 4C 45  | UNDELETE A DELE|
00000B30: 54 45 44 20 46 49 4C 45  20 22 3A 8D 31 30 32 30  |TED FILE ":.1020|
00000B40: 30 00 0A 38 F0 0C 8B 45  52 B2 30 A7 33 33 32 30  |0..8...ER.0.3320|
00000B50: 00 22 38 F2 0C 8D 31 30  32 32 30 3A 8B 41 24 B2  |."8...10220:.A$.|
00000B60: 22 59 22 A7 33 33 31 30  00 2C 38 F4 0C 89 31 37  |"Y".3310.,8...17|
00000B70: 31 30 00 6A 38 F8 0C 99  22 9F 11 20 4C 4F 4F 4B  |10.j8...".. LOOK|
00000B80: 49 4E 47 20 46 4F 52 20  44 45 4C 45 54 45 44 20  |ING FOR DELETED |
00000B90: 46 49 4C 45 53 20 2E 2E  2E 22 3A 54 B2 31 38 3A  |FILES ...":T.18:|
00000BA0: 53 B2 30 3A 9F 32 2C 44  44 2C 32 2C 22 23 32 22  |S.0:.2,DD,2,"#2"|
00000BB0: 00 90 38 02 0D 98 31 35  2C 22 55 31 3A 32 20 30  |..8...15,"U1:2 0|
00000BC0: 22 54 3B 53 3A 8D 31 30  32 31 30 3A 8B 45 52 B2  |"T;S:.10210:.ER.|
00000BD0: 30 A7 33 33 36 30 00 A4  38 0C 0D A0 32 3A 8B 41  |0.3360..8...2:.A|
00000BE0: 24 B2 22 59 22 A7 33 33  31 30 00 AE 38 16 0D 89  |$."Y".3310..8...|
00000BF0: 33 32 39 30 00 EE 38 20  0D 44 4C B2 30 3A 98 31  |3290..8 .DL.0:.1|
00000C00: 35 2C 22 4D 2D 52 22 4E  4C 24 C7 28 35 29 3A A1  |5,"M-R"NL$.(5):.|
00000C10: 23 31 35 2C 41 24 3A 54  54 B2 C6 28 41 24 AA 4E  |#15,A$:TT..(A$.N|
00000C20: 4C 24 29 3A 8B 54 54 B2  30 B0 54 54 B1 33 35 A7  |L$):.TT.0.TT.35.|
00000C30: 33 34 37 30 00 19 39 2A  0D 98 31 35 2C 22 4D 2D  |3470..9*..15,"M-|
00000C40: 52 22 C7 28 31 29 C7 28  35 29 3A A1 23 31 35 2C  |R".(1).(5):.#15,|
00000C50: 41 24 3A 53 53 B2 C6 28  41 24 AA 4E 4C 24 29 00  |A$:SS..(A$.NL$).|
00000C60: 41 39 34 0D 98 31 35 2C  22 55 31 3A 32 20 30 22  |A94..15,"U1:2 0"|
00000C70: 54 54 3B 53 53 3A 8D 31  30 32 31 30 3A 8B 45 52  |TT;SS:.10210:.ER|
00000C80: B2 30 A7 33 34 31 30 00  56 39 3E 0D 8B 41 24 B2  |.0.3410.V9>..A$.|
00000C90: 22 4E 22 A7 A0 32 3A 89  33 32 39 30 00 60 39 48  |"N"..2:.3290.`9H|
00000CA0: 0D 89 33 33 38 30 00 86  39 52 0D 81 50 B2 30 A4  |..3380..9R..P.0.|
00000CB0: 32 35 35 3A A1 23 32 2C  41 24 3A 5A 25 28 50 29  |255:.#2,A$:Z%(P)|
00000CC0: B2 C6 28 41 24 AA 4E 4C  24 29 3A 82 00 A2 39 5C  |..(A$.NL$):...9\|
00000CD0: 0D 81 50 B2 32 A4 32 35  35 A9 33 32 3A 8B 5A 25  |..P.2.255.32:.Z%|
00000CE0: 28 50 29 A7 33 34 36 30  00 BF 39 66 0D 8B 5A 25  |(P).3460..9f..Z%|
00000CF0: 28 50 AA 31 29 B2 30 A7  50 B2 32 35 36 3A 82 3A  |(P.1).0.P.256:.:|
00000D00: 89 33 34 37 30 00 F3 39  70 0D 99 22 11 9C 46 4F  |.3470..9p.."..FO|
00000D10: 55 4E 44 20 2D 20 22 51  4F 24 3B 3A 81 5A B2 50  |UND - "QO$;:.Z.P|
00000D20: AA 33 A4 50 AA 31 38 3A  99 C7 28 5A 25 28 5A 29  |.3.P.18:..(Z%(Z)|
00000D30: 29 3B 3A 82 3A 99 51 4F  24 00 2A 3A 7A 0D 98 31  |);:.:.QO$.*:z..1|
00000D40: 35 2C 22 4D 2D 57 22 C7  28 50 29 C7 28 35 29 C7  |5,"M-W".(P).(5).|
00000D50: 28 31 29 C7 28 31 32 39  29 3A 98 31 35 2C 22 55  |(1).(129):.15,"U|
00000D60: 32 3A 32 20 30 22 54 54  3B 53 53 3A 44 4C B2 31  |2:2 0"TT;SS:DL.1|
00000D70: 00 48 3A 84 0D 82 3A 54  54 B2 5A 25 28 30 29 3A  |.H:...:TT.Z%(0):|
00000D80: 53 53 B2 5A 25 28 31 29  3A 89 33 33 38 30 00 65  |SS.Z%(1):.3380.e|
00000D90: 3A 8E 0D 99 22 11 9A 20  4E 4F 20 22 3B 3A 8B 44  |:...".. NO ";:.D|
00000DA0: 4C A7 99 22 4D 4F 52 45  20 22 3B 00 8F 3A 98 0D  |L.."MORE ";..:..|
00000DB0: 99 22 44 45 4C 45 54 45  44 20 46 49 4C 45 53 20  |."DELETED FILES |
00000DC0: 46 4F 55 4E 44 22 3A A0  32 3A 8B 44 4C A7 98 31  |FOUND":.2:.DL..1|
00000DD0: 35 2C 22 56 22 00 99 3A  A2 0D 89 33 32 39 30 00  |5,"V"..:...3290.|
00000DE0: BA 3A AC 0D 8F 20 2A 2A  20 44 45 46 49 4E 45 20  |.:... ** DEFINE |
00000DF0: 46 55 4E 43 54 49 4F 4E  20 4B 45 59 53 20 2A 2A  |FUNCTION KEYS **|
00000E00: 00 E3 3A B6 0D 99 22 93  22 A6 38 29 22 11 9A 12  |..:...".".8)"...|
00000E10: 20 44 45 46 49 4E 45 20  38 20 46 55 4E 43 54 49  | DEFINE 8 FUNCTI|
00000E20: 4F 4E 20 4B 45 59 53 20  22 00 27 3B C0 0D 99 22  |ON KEYS ".';..."|
00000E30: 11 1E 20 43 55 52 52 45  4E 54 20 57 4F 52 44 53  |.. CURRENT WORDS|
00000E40: 20 41 52 45 20 3A 2D 11  9F 22 3A 81 54 B2 31 A4  | ARE :-..":.T.1.|
00000E50: 38 3A 99 22 20 5B 46 22  C9 28 C4 28 54 29 2C 31  |8:." [F".(.(T),1|
00000E60: 29 22 5D 20 22 46 4B 24  28 54 29 3A 82 00 5B 3B  |)"] "FK$(T):..[;|
00000E70: CA 0D 8D 31 30 32 36 30  3A 99 22 93 11 11 22 3A  |...10260:."...":|
00000E80: 41 24 B2 22 45 4E 54 45  52 20 4F 50 54 49 4F 4E  |A$."ENTER OPTION|
00000E90: 20 52 45 51 55 49 52 45  44 22 3A 8D 31 30 31 32  | REQUIRED":.1012|
00000EA0: 30 00 A1 3B D4 0D 99 22  11 9F 20 31 5D 20 44 45  |0..;...".. 1] DE|
00000EB0: 46 49 4E 45 20 46 55 4E  43 54 49 4F 4E 20 4B 45  |FINE FUNCTION KE|
00000EC0: 59 20 5B 46 31 2D 38 5D  22 3A 99 22 20 32 5D 20  |Y [F1-8]":." 2] |
00000ED0: 43 4C 45 41 52 20 41 4C  4C 20 46 55 4E 43 54 49  |CLEAR ALL FUNCTI|
00000EE0: 4F 4E 20 4B 45 59 53 00  E1 3B DE 0D 99 22 20 33  |ON KEYS..;..." 3|
00000EF0: 5D 20 56 49 45 57 20 43  55 52 52 45 4E 54 20 46  |] VIEW CURRENT F|
00000F00: 55 4E 43 54 49 4F 4E 20  4B 45 59 20 57 4F 52 44  |UNCTION KEY WORD|
00000F10: 53 22 3A 99 22 20 34 5D  20 52 45 54 55 52 4E 20  |S":." 4] RETURN |
00000F20: 54 4F 20 4D 45 4E 55 00  1B 3C E8 0D 42 B2 36 3A  |TO MENU..<..B.6:|
00000F30: 4E 43 B2 34 3A 42 24 B2  43 52 24 AA 22 31 32 33  |NC.4:B$.CR$."123|
00000F40: 34 22 3A 8D 31 30 31 39  30 3A 8D 31 30 31 33 30  |4":.10190:.10130|
00000F50: 3A 8B 44 4C B2 30 A7 41  B2 31 3A 8D 31 30 31 35  |:.DL.0.A.1:.1015|
00000F60: 30 00 35 3C F2 0D 99 C8  28 43 44 24 2C 31 32 29  |0.5<....(CD$,12)|
00000F70: 3A 8B 4F 50 B2 34 A7 33  32 39 30 00 77 3C FC 0D  |:.OP.4.3290.w<..|
00000F80: 8B 4F 50 B2 32 A7 99 22  11 1C 12 20 46 55 4E 43  |.OP.2.."... FUNC|
00000F90: 54 49 4F 4E 20 4B 45 59  53 20 43 4C 45 41 52 45  |TION KEYS CLEARE|
00000FA0: 44 20 92 22 3A 81 54 B2  31 A4 38 3A 46 4B 24 28  |D .":.T.1.8:FK$(|
00000FB0: 54 29 B2 22 22 3A 82 3A  89 33 35 33 30 00 8E 3C  |T)."":.:.3530..<|
00000FC0: 06 0E 8B 4F 50 B2 33 A7  99 22 93 11 11 22 3A 89  |...OP.3.."...":.|
00000FD0: 33 35 32 30 00 CC 3C 10  0E 99 22 11 9A 20 48 49  |3520..<...".. HI|
00000FE0: 54 20 46 55 4E 43 54 49  4F 4E 20 4B 45 59 20 54  |T FUNCTION KEY T|
00000FF0: 4F 20 42 45 20 44 45 46  49 4E 45 44 22 3A 42 24  |O BE DEFINED":B$|
00001000: B2 22 85 86 87 88 89 8A  8B 8C 22 3A 8D 31 30 30  |."........":.100|
00001010: 39 30 00 F0 3C 15 0E 42  B2 C6 28 41 24 29 AB 31  |90..<..B..(A$).1|
00001020: 33 32 3A 8B 42 B3 35 A7  44 4C B2 42 AC 32 AB 31  |32:.B.5.DL.B.2.1|
00001030: 3A 89 33 36 31 30 00 FD  3C 17 0E 44 4C B2 42 AC  |:.3610..<..DL.B.|
00001040: 32 AB 38 00 29 3D 1A 0E  99 22 11 1E 45 4E 54 45  |2.8.)=..."..ENTE|
00001050: 52 20 5B 46 22 C9 28 C4  28 44 4C 29 2C 31 29 22  |R [F".(.(DL),1)"|
00001060: 5D 20 57 4F 52 44 22 3B  3A 8D 31 30 30 32 30 00  |] WORD";:.10020.|
00001070: 63 3D 24 0E 46 4B 24 28  44 4C 29 B2 53 24 3A 99  |c=$.FK$(DL).S$:.|
00001080: 22 9A 11 12 20 44 45 46  49 4E 45 20 41 4E 59 20  |"... DEFINE ANY |
00001090: 4D 4F 52 45 20 4B 45 59  53 20 28 59 2F 4E 29 20  |MORE KEYS (Y/N) |
000010A0: 22 3B 3A 8D 31 30 31 38  30 00 74 3D 2E 0E 8B 41  |";:.10180.t=...A|
000010B0: 24 B2 22 59 22 A7 33 36  30 30 00 7E 3D 38 0E 89  |$."Y".3600.~=8..|
000010C0: 33 35 33 30 00 9B 3D 42  0E 8F 20 2A 2A 20 52 45  |3530..=B.. ** RE|
000010D0: 4E 41 4D 45 20 44 49 53  4B 20 46 49 4C 45 20 2A  |NAME DISK FILE *|
000010E0: 2A 00 CA 3D 4C 0E 99 22  93 22 A6 31 30 29 22 11  |*..=L..".".10)".|
000010F0: 9A 12 20 52 45 4E 41 4D  45 20 41 4E 59 20 44 49  |.. RENAME ANY DI|
00001100: 53 4B 20 46 49 4C 45 20  22 3A 8D 31 30 32 30 30  |SK FILE ":.10200|
00001110: 00 D9 3D 4E 0E 8B 45 52  B2 30 A7 33 36 37 30 00  |..=N..ER.0.3670.|
00001120: F1 3D 50 0E 8D 31 30 32  32 30 3A 8B 41 24 B2 22  |.=P..10220:.A$."|
00001130: 59 22 A7 33 36 36 30 00  FB 3D 52 0E 89 31 37 31  |Y".3660..=R..171|
00001140: 30 00 14 3E 56 0E 8D 31  30 32 38 30 3A A0 32 3A  |0..>V..10280:.2:|
00001150: 8B 45 52 B2 30 A7 33 36  39 35 00 25 3E 60 0E 8B  |.ER.0.3695.%>`..|
00001160: 41 24 B2 22 4E 22 A7 33  32 39 30 00 2F 3E 6A 0E  |A$."N".3290./>j.|
00001170: 89 33 36 37 30 00 6A 3E  6F 0E 99 22 11 45 4E 54  |.3670.j>o..".ENT|
00001180: 45 52 20 12 4E 45 57 92  20 46 49 4C 45 20 4E 41  |ER .NEW. FILE NA|
00001190: 4D 45 22 3B 3A 8D 31 30  30 32 30 3A 8B 53 24 B2  |ME";:.10020:.S$.|
000011A0: 22 22 A7 53 24 B2 22 43  36 34 20 44 41 54 41 22  |"".S$."C64 DATA"|
000011B0: 00 7C 3E 70 0E 8B 53 24  B3 B1 4E 41 24 A7 33 37  |.|>p..S$..NA$.37|
000011C0: 30 30 00 B4 3E 71 0E 99  22 11 1C 12 20 46 49 4C  |00..>q.."... FIL|
000011D0: 45 20 4E 41 4D 45 53 20  41 52 45 20 54 48 45 20  |E NAMES ARE THE |
000011E0: 53 41 4D 45 20 22 3A 8D  31 30 32 34 30 3A 8B 41  |SAME ":.10240:.A|
000011F0: 24 B2 22 4E 22 A7 33 32  39 30 00 BE 3E 72 0E 89  |$."N".3290..>r..|
00001200: 33 36 37 30 00 F9 3E 74  0E 99 22 1E 11 20 52 45  |3670..>t..".. RE|
00001210: 4E 41 4D 49 4E 47 20 46  49 4C 45 22 3A 98 31 35  |NAMING FILE":.15|
00001220: 2C 22 52 3A 22 53 24 22  3D 22 4E 41 24 3A 8D 31  |,"R:"S$"="NA$:.1|
00001230: 30 32 31 30 3A 8B 45 52  B2 30 A7 33 32 39 30 00  |0210:.ER.0.3290.|
00001240: 11 3F 7E 0E 8D 31 30 32  32 30 3A 8B 41 24 B2 22  |.?~..10220:.A$."|
00001250: 59 22 A7 33 36 37 30 00  1B 3F 88 0E 89 33 32 39  |Y".3670..?...329|
00001260: 30 00 36 3F A0 0F 8F 20  2A 2A 20 52 45 2D 52 55  |0.6?... ** RE-RU|
00001270: 4E 20 50 52 4F 47 52 41  4D 20 2A 2A 00 6E 3F AA  |N PROGRAM **.n?.|
00001280: 0F 99 22 93 22 A6 31 30  29 22 9A 20 12 20 52 45  |..".".10)". . RE|
00001290: 53 45 54 20 48 49 50 45  52 42 41 53 45 20 92 11  |SET HIPERBASE ..|
000012A0: 22 3A 8D 31 30 33 38 30  3A 8B 41 24 B2 22 59 22  |":.10380:.A$."Y"|
000012B0: A7 9C 3A 8A 00 7E 3F B4  0F 8D 31 30 32 36 30 3A  |..:..~?...10260:|
000012C0: 89 31 33 30 00 84 3F 0F  27 80 00 9E 3F 10 27 8F  |.130..?.'...?.'.|
000012D0: 20 2A 2A 2A 20 53 55 42  52 4F 55 54 49 4E 45 53  | *** SUBROUTINES|
000012E0: 20 2A 2A 2A 00 AE 3F 1A  27 81 54 B2 31 A4 44 4C  | ***..?.'.T.1.DL|
000012F0: 3A 82 3A 8E 00 C9 3F 24  27 97 31 39 38 2C 30 3A  |:.:...?$'.198,0:|
00001300: 53 24 B2 22 22 3A 99 22  20 2D 20 A4 9D 22 3B 00  |S$."":." - ..";.|
00001310: E8 3F 2E 27 A1 41 24 3A  41 B2 C6 28 41 24 AA 4E  |.?.'.A$:A..(A$.N|
00001320: 4C 24 29 3A 8B 41 B2 30  A7 31 30 30 33 30 00 F9  |L$):.A.0.10030..|
00001330: 3F 38 27 8B 41 B2 31 33  A7 99 22 20 22 3A 8E 00  |?8'.A.13.." ":..|
00001340: 0F 40 42 27 8B 41 B2 32  30 AF 53 24 B2 22 22 A7  |.@B'.A.20.S$."".|
00001350: 31 30 30 33 30 00 3A 40  4C 27 8B 41 B2 32 30 A7  |10030.:@L'.A.20.|
00001360: 53 24 B2 C8 28 53 24 2C  C3 28 53 24 29 AB 31 29  |S$..(S$,.(S$).1)|
00001370: 3A 99 41 24 22 A4 9D 22  3B 3A 89 31 30 30 33 30  |:.A$"..";:.10030|
00001380: 00 60 40 51 27 8B 41 B1  31 33 32 AF 41 B3 31 34  |.`@Q'.A.132.A.14|
00001390: 31 A7 41 24 B2 46 4B 24  28 41 AB 31 33 32 29 3A  |1.A$.FK$(A.132):|
000013A0: 89 31 30 30 38 30 00 75  40 56 27 8B 41 B3 33 32  |.10080.u@V'.A.32|
000013B0: B0 41 B1 39 35 A7 31 30  30 33 30 00 92 40 60 27  |.A.95.10030..@`'|
000013C0: 53 24 B2 53 24 AA 41 24  3A 99 41 24 22 A4 9D 22  |S$.S$.A$:.A$".."|
000013D0: 3B 3A 89 31 30 30 33 30  00 9D 40 6A 27 97 31 39  |;:.10030..@j'.19|
000013E0: 38 2C 30 00 B2 40 6F 27  A1 41 24 3A 8B 41 24 B2  |8,0..@o'.A$:.A$.|
000013F0: 22 22 A7 31 30 30 39 35  00 DB 40 74 27 81 54 B2  |"".10095..@t'.T.|
00001400: 31 A4 C3 28 42 24 29 3A  8B 41 24 B2 CA 28 42 24  |1..(B$):.A$..(B$|
00001410: 2C 54 2C 31 29 A7 54 B2  C3 28 42 24 29 3A 82 3A  |,T,1).T..(B$):.:|
00001420: 8E 00 E8 40 7E 27 82 3A  89 31 30 30 39 30 00 0C  |...@~'.:.10090..|
00001430: 41 88 27 41 B2 C3 28 41  24 29 3A 99 41 24 C8 28  |A.'A..(A$):.A$.(|
00001440: 42 53 24 2C 41 AA 31 29  C8 28 55 4C 24 2C 41 29  |BS$,A.1).(UL$,A)|
00001450: 3A 8E 00 28 41 92 27 44  4C B2 30 3A 81 54 B2 31  |:..(A.'DL.0:.T.1|
00001460: A4 4E 43 3A 43 48 25 28  54 29 B2 30 3A 82 00 3D  |.NC:CH%(T).0:..=|
00001470: 41 97 27 8D 31 30 30 39  30 3A 8B 41 24 B2 43 52  |A.'.10090:.A$.CR|
00001480: 24 A7 8E 00 5F 41 9C 27  41 B2 C5 28 41 24 29 3A  |$..._A.'A..(A$):|
00001490: 8D 31 30 31 35 30 3A 44  4C B2 44 4C AA 31 3A 89  |.10150:DL.DL.1:.|
000014A0: 31 30 31 33 35 00 82 41  A6 27 99 C8 28 43 44 24  |10135..A.'..(CD$|
000014B0: 2C 41 AA 42 29 22 3E 22  3A 8B 43 48 25 28 41 29  |,A.B)">":.CH%(A)|
000014C0: A7 44 4C B2 44 4C AB 31  00 96 41 B0 27 43 48 25  |.DL.DL.1..A.'CH%|
000014D0: 28 41 29 B2 31 3A 4F 50  B2 41 3A 8E 00 C6 41 BA  |(A).1:OP.A:...A.|
000014E0: 27 99 C8 28 43 44 24 2C  42 AA 4E 43 AA 34 29 22  |'..(CD$,B.NC.4)"|
000014F0: 12 20 41 52 45 20 54 48  45 53 45 20 43 4F 52 52  |. ARE THESE CORR|
00001500: 45 43 54 20 28 59 2F 4E  29 20 22 3B 00 DF 41 C4  |ECT (Y/N) ";..A.|
00001510: 27 42 24 B2 22 59 4E 22  3A 8D 31 30 30 39 30 3A  |'B$."YN":.10090:|
00001520: 99 41 24 3A 8E 00 12 42  CE 27 99 22 11 9A 45 4E  |.A$:...B.'."..EN|
00001530: 54 45 52 20 4F 50 54 49  4F 4E 20 4E 55 4D 42 45  |TER OPTION NUMBE|
00001540: 52 53 20 26 20 52 45 54  55 52 4E 20 54 4F 20 46  |RS & RETURN TO F|
00001550: 49 4E 49 53 48 22 3A 8E  00 50 42 D8 27 99 22 11  |INISH":..PB.'.".|
00001560: 9C 49 4E 53 45 52 54 20  44 41 54 41 20 44 49 53  |.INSERT DATA DIS|
00001570: 4B 20 49 4E 54 4F 20 44  52 49 56 45 2C 48 49 54  |K INTO DRIVE,HIT|
00001580: 20 41 20 4B 45 59 22 3A  8D 31 30 32 35 30 3A 98  | A KEY":.10250:.|
00001590: 31 35 2C 22 49 22 00 67  42 E2 27 84 31 35 2C 45  |15,"I".gB.'.15,E|
000015A0: 52 2C 45 52 24 2C 54 45  2C 53 45 3A 8E 00 99 42  |R,ER$,TE,SE:...B|
000015B0: EC 27 99 22 11 1C 2A 20  44 49 53 4B 20 45 52 52  |.'."..* DISK ERR|
000015C0: 4F 52 20 2A 20 23 22 45  52 3B 45 52 24 3B 3A 8B  |OR * #"ER;ER$;:.|
000015D0: 54 45 A7 99 22 20 4F 4E  22 54 45 3B 53 45 3B 00  |TE.." ON"TE;SE;.|
000015E0: A3 42 F6 27 99 43 52 24  3B 00 C9 42 00 28 99 22  |.B.'.CR$;..B.(."|
000015F0: 11 9A 12 20 54 52 59 20  41 47 41 49 4E 20 28 59  |... TRY AGAIN (Y|
00001600: 2F 4E 29 20 22 3B 3A 8D  31 30 31 38 30 3A 8E 00  |/N) ";:.10180:..|
00001610: E4 42 0A 28 97 31 39 38  2C 30 3A 92 31 39 38 2C  |.B.(.198,0:.198,|
00001620: 31 3A 97 31 39 38 2C 30  3A 8E 00 0D 43 14 28 99  |1:.198,0:...C.(.|
00001630: A6 35 29 22 9A 12 11 20  50 52 45 53 53 20 41 4E  |.5)"... PRESS AN|
00001640: 59 20 4B 45 59 20 54 4F  20 43 4F 4E 54 49 4E 55  |Y KEY TO CONTINU|
00001650: 45 20 22 00 1A 43 1E 28  8D 31 30 32 35 30 3A 8E  |E "..C.(.10250:.|
00001660: 00 4F 43 28 28 99 22 11  45 4E 54 45 52 20 46 49  |.OC((.".ENTER FI|
00001670: 4C 45 20 4E 41 4D 45 22  3B 3A 8D 31 30 30 32 30  |LE NAME";:.10020|
00001680: 3A 8B 53 24 B2 22 22 A7  53 24 B2 22 43 36 34 20  |:.S$."".S$."C64 |
00001690: 44 41 54 41 22 00 7E 43  32 28 4E 41 24 B2 53 24  |DATA".~C2(NA$.S$|
000016A0: 3A 9F 32 2C 44 44 2C 32  2C 53 24 AA 22 2C 53 2C  |:.2,DD,2,S$.",S,|
000016B0: 22 AA 54 59 24 3A 8D 31  30 32 31 30 3A 8B 45 52  |".TY$:.10210:.ER|
000016C0: B2 30 A7 8E 00 8B 43 3C  28 8D 31 30 32 32 30 3A  |.0....C<(.10220:|
000016D0: 8E 00 B7 43 46 28 99 22  11 45 4E 54 45 52 20 43  |...CF(.".ENTER C|
000016E0: 55 52 52 45 4E 54 20 44  41 54 45 22 3B 3A 8D 31  |URRENT DATE";:.1|
000016F0: 30 30 32 30 3A 45 44 24  B2 53 24 3A 8E 00 E2 43  |0020:ED$.S$:...C|
00001700: 50 28 98 32 2C 51 4F 24  45 44 24 43 4F 24 45 44  |P(.2,QO$ED$CO$ED|
00001710: 24 43 4F 24 50 57 24 51  4F 24 43 52 24 C7 28 4E  |$CO$PW$QO$CR$.(N|
00001720: 46 29 51 4F 24 3B 3A 8E  00 07 44 5A 28 84 32 2C  |F)QO$;:...DZ(.2,|
00001730: 44 41 24 2C 55 44 24 2C  50 57 24 3A A1 23 32 2C  |DA$,UD$,PW$:.#2,|
00001740: 41 24 3A 4E 46 B2 C6 28  41 24 29 3A 8E 00 46 44  |A$:NF..(A$):..FD|
00001750: 64 28 99 22 11 45 4E 54  45 52 20 50 41 53 53 57  |d(.".ENTER PASSW|
00001760: 4F 52 44 20 5B 52 45 54  55 52 4E 20 49 46 20 4E  |ORD [RETURN IF N|
00001770: 4F 4E 45 5D 22 3B 3A 8D  31 30 30 32 30 3A 41 24  |ONE]";:.10020:A$|
00001780: B2 22 22 3A 8B 53 24 B2  22 22 A7 8E 00 71 44 6E  |."":.S$.""...qDn|
00001790: 28 81 54 B2 31 A4 C3 28  53 24 29 3A 41 24 B2 41  |(.T.1..(S$):A$.A|
000017A0: 24 AA C7 28 C6 28 CA 28  53 24 2C 54 2C 31 29 29  |$..(.(.(S$,T,1))|
000017B0: AA 54 29 3A 82 3A 8E 00  9C 44 78 28 98 33 2C 51  |.T):.:...Dx(.3,Q|
000017C0: 4F 24 44 41 24 43 4F 24  45 44 24 43 4F 24 50 57  |O$DA$CO$ED$CO$PW|
000017D0: 24 51 4F 24 43 52 24 C7  28 4E 46 29 51 4F 24 3B  |$QO$CR$.(NF)QO$;|
000017E0: 3A 8E 00 BA 44 82 28 81  54 B2 31 A4 4E 46 3A 98  |:...D.(.T.1.NF:.|
000017F0: 33 2C 44 46 24 28 54 29  43 4F 24 3B 3A 82 3A 8E  |3,DF$(T)CO$;:.:.|
00001800: 00 E3 44 8C 28 99 22 11  12 1C 20 41 52 45 20 59  |..D.(."... ARE Y|
00001810: 4F 55 20 53 55 52 45 20  28 59 2F 4E 29 20 22 3B  |OU SURE (Y/N) ";|
00001820: 3A 8D 31 30 31 38 30 3A  8E 00 22 45 96 28 99 22  |:.10180:.."E.(."|
00001830: 11 9A 12 20 45 4E 54 45  52 20 52 45 43 4F 52 44  |... ENTER RECORD|
00001840: 20 23 22 4E 52 22 11 22  3A 81 54 B2 31 A4 4E 46  | #"NR".":.T.1.NF|
00001850: 3A 99 22 45 4E 54 45 52  20 22 44 46 24 28 54 29  |:."ENTER "DF$(T)|
00001860: 3B 3A 8D 31 30 30 32 30  00 4A 45 A0 28 8B 54 B2  |;:.10020.JE.(.T.|
00001870: 31 AF 53 24 B2 22 58 58  58 22 A7 98 4C 46 2C 53  |1.S$."XXX"..LF,S|
00001880: 24 51 4F 24 3A 54 B2 4E  46 3A 82 3A A0 32 3A 8E  |$QO$:T.NF:.:.2:.|
00001890: 00 85 45 AA 28 54 45 24  28 54 29 B2 53 24 3A 82  |..E.(TE$(T).S$:.|
000018A0: 3A 99 22 11 9F 41 52 45  20 41 4C 4C 20 46 49 45  |:."..ARE ALL FIE|
000018B0: 4C 44 53 20 43 4F 52 52  45 43 54 20 28 59 2F 4E  |LDS CORRECT (Y/N|
000018C0: 29 20 22 3B 3A 8D 31 30  31 38 30 00 97 45 B4 28  |) ";:.10180..E.(|
000018D0: 8B 41 24 B2 22 4E 22 A7  31 30 33 39 30 00 BE 45  |.A$."N".10390..E|
000018E0: BE 28 81 54 B2 31 A4 4E  46 3A 98 4C 46 2C 54 45  |.(.T.1.NF:.LF,TE|
000018F0: 24 28 54 29 43 4F 24 3B  3A 82 3A 4E 52 B2 4E 52  |$(T)CO$;:.:NR.NR|
00001900: AA 31 3A 8E 00 00 00 52  53 78 A2 0A A0 00 86 14  |.1:....RSx......|
00001910: 84 15 A2 BD A0 45 86 FC  84 FD A0 00 A2 7B BD DE  |.....E.......{..|
00001920: 45 9D 33 03 CA D0 F7 4C  84 03 46 08 0A 00 97 35  |E.3....L..F....5|
00001930: 33 32 38 31 2C 31 3A 97  35 33 32 38 30 2C 31 3A  |3281,1:.53280,1:|
00001940: 97 36 35 30 2C 30 3A 43  44 88 C0 FF D0 02 C6 FD  |.650,0:CD.......|
00001950: B1 FC 85 FF 88 C0 FF D0  02 C6 FD B1 FC C9 73 F0  |..............s.|
00001960: 2F 9D C1 45 CA E0 FF D0  06 CE 6D 03 CE 8C 03 C6  |/..E......m.....|
00001970: FF D0 EE 88 C0 FF D0 02  C6 FD B1 FC C9 73 F0 C9  |.............s..|
00001980: 9D C1 45 CA E0 FF D0 EB  CE 6D 03 CE 8C 03 D0 E3  |..E......m......|
00001990: A2 1F BD 33 03 9D 00 08  CA D0 F7 A9 73 A9 37 85  |...3........s.7.|
000019A0: 01 58 4C BC A8 43 C4 28  98 92 00 A5 2D 18 65 2E  |.XL..C.(....-.e.|
000019B0: C9 D6 F0 06 4C 00 23 4C  80 46 AD 0B 08 18 6D 0C  |....L.#L.F....m.|
000019C0: 08 6D 0D 08 C9 EF F0 EF  4C 00 23 20 53 E4 4C 16  |.m......L.# S.L.|
000019D0: 08 A2 00 8E 20 D0 4C 00  23 C0 92                 |.... .L.#..     |

T$."XXX".2600..,...T.1.NF:.T..1..2,T$..,
..VT$(T).T$:...-J.PW.0:.T.1.NF:.CH%(T).0
.2295.@-T.T$.VT$(T):A$.TE$(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....P
W.3.2650.K....2,T$:.T$."XXX".2600......T
.1.NF:.T..1..2,T$......CH%(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.NF:.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$;:.:.2
650..0...OP.5.2910.K0C.."....":A$."WHICH
 PRINTER CHARACTERISTIC TO CHANGE":.1012
0..1H..".. 1] CURRENT LINES PER PAGE ="P
L.4:." 2] LINE FEEDS AFTER RECORD ="LN.D
1R.." 3] SECONDARY ADDRESS OF PRINTER ="
SA.L1..B.6:NC.3:B$.CR$."123":.10190:.101
30..1...H(CD$,12):.DL.0.1790..1...CH%(1)
.0.2840.D1...".. ENTER NO. LINES PER PAG
E";:.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 ADDRE
SS";:.10020..2J.SA.E(S$):.SA.0.SA.255.."
."SP$:."..";:.2880.F2T..1790..2^..4,PD,S
A:.".. . ASCII DUMP A HIPERBASE 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..171
0.U3L..:A$."PLEASE ENTER DIRECTORY STYLE
 AND DEVICE":.10120..4N..".. 1] LIST ALL
 FILES":." 2] LIST SEQ FILES ONLY.?4P.."
 3] OUTPUT TO PRINTER":." 4] OUTPUT TO S
CREEN.H4V.B.8:NC.4:B$.CR$."1234":.10190:
.10130..4...DL.0.A.1:.10150: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:.3070..4...4,3..5.
.NA$."$":.CH%(2).NA$."$*=SEQ".A5...1,DD,
0,NA$:.10210:.ER.0.3085.Z5...A$."Y"..102
60:.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.3140..5:..4,A$;:.31
10..6D..4,CR$: 1: 4:.10260:.130.+6... **
 DELETE A FILE **.Z6...".".10)"... DELET
E ANY DISK FILE ":.10200.I6...ER.0.3220.
.6...10220:.A$."Y".3210..6...1710..6...1
0280: 2:.ER.0.3225..6...A$."N".3290..6..
.3220.W6...10380:.A$."N".3290..7...".. D
ELETING FILE":.15,"S:"S$:.10210..7...ER.
1..10220:.A$."Y".3220..7...ER.1.3290.M7.
..TE.0.."..* ERROR * FILE NOT DELETED ":
.10240:.A$."Y".3220.|7F..TE.0.3290..7P..
"..OK,"S$" HAS BEEN DELETED"..7Z..10260:
.130.J7... ** UNDELETE A FILE **..7...".
".8)"... UNDELETE A DELETED FILE ":.1020
0..8...ER.0.3320."8...10220:.A$."Y".3310
.,8...1710.J8...".. LOOKING FOR DELETED 
FILES ...":T.18:S.0:.2,DD,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"N
L$G(5):.#15,A$:TT.F(A$.NL$):.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.."..FOUND - "QO$;:.Z.P
.3.P.18:.G(Z%(Z));:.:.QO$.*:Z..15,"M-W"G
(P)G(5)G(1)G(129):.15,"U2: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 ".';...".. CURRE
NT WORDS ARE :-..":.T.1.8:." [F"I(D(T),1
)"] "FK$(T):..[;J..10260:."...":A$."ENTE
R OPTION REQUIRED":.10120..;T..".. 1] DE
FINE FUNCTION KEY [F1-8]":." 2] CLEAR AL
L FUNCTION KEYS..;..." 3] VIEW CURRENT F
UNCTION KEY WORDS":." 4] RETURN TO MENU.
.<..B.6:NC.4:B$.CR$."1234":.10190:.10130
:.DL.0.A.1:.10150.5<...H(CD$,12):.OP.4.3
290.W<...OP.2.."... FUNCTION KEYS CLEARE
D .":.T.1.8:FK$(T)."":.:.3530..<...OP.3.
."...":.3520.L<...".. HIT FUNCTION KEY T
O 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) ";:.10180.T=...A$."Y".36
00.~=8..3530..=B.. ** RENAME DISK FILE *
*.J=L..".".10)"... RENAME ANY DISK FILE 
":.10200.Y=N..ER.0.3670..=P..10220:.A$."
Y".3660..=R..1710..>V..10280: 2:.ER.0.36
95.%>`..A$."N".3290./>J..3670.J>O..".ENT
ER .NEW. FILE NAME";:.10020:.S$."".S$."C
64 DATA".|>P..S$..NA$.3700..>Q.."... FIL
E NAMES ARE THE SAME ":.10240:.A$."N".32
90..>R..3670..>T..".. RENAMING FILE":.15
,"R:"S$"="NA$:.10210:.ER.0.3290..?~..102
20:.A$."Y".3670..?...3290.6? .. ** RE-RU
N PROGRAM **.N?...".".10)". . RESET HIPE
RBASE ..":.10380:.A$."Y"..:..~?...10260:
.130..?.'...?.'. *** SUBROUTINES ***..?.
'.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.'.1009
0:.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'."..ENTER OPTION NUMBE
RS & 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 FILE NAME";:.10020
:.S$."".S$."C64 DATA".~C2(NA$.S$:.2,DD,2
,S$.",S,".TY$:.10210:.ER.0....C<(.10220:
...CF(.".ENTER CURRENT DATE";:.10020:ED$
.S$:...CP(.2,QO$ED$CO$ED$CO$PW$QO$CR$G(N
F)QO$;:...DZ(.2,DA$,UD$,PW$:.#2,A$:NF.F(
A$):..FDD(.".ENTER PASSWORD [RETURN IF N
ONE]";:.10020:A$."":.S$.""...QDN(.T.1.C(
S$):A$.A$.G(F(J(S$,T,1)).T):.:...DX(.3,Q
O$DA$CO$ED$CO$PW$QO$CR$G(NF)QO$;:...D.(.
T.1.NF:.3,DF$(T)CO$;:.:...D.(."... ARE Y
OU SURE (Y/N) ";:.10180:.."E.(."... ENTE
R RECORD #"NR".":.T.1.NF:."ENTER "DF$(T)
;:.10020.JE (.T.1.S$."XXX"..LF,S$QO$:T.N
F:.: 2:...E.(TE$(T).S$:.:."..ARE ALL FIE
LDS CORRECT (Y/N) ";:.10180..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.#..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL