---- ---- ----

00000000: 36 30 00 BF 39 66 0D 8B  5A 25 28 50 AA 31 29 B2  |60..9f..Z%(P.1).|
00000010: 30 A7 50 B2 32 35 36 3A  82 3A 89 33 34 37 30 00  |0.P.256:.:.3470.|
00000020: F3 39 70 0D 99 22 11 9C  46 4F 55 4E 44 20 2D 20  |.9p.."..FOUND - |
00000030: 22 51 4F 24 3B 3A 81 5A  B2 50 AA 33 A4 50 AA 31  |"QO$;:.Z.P.3.P.1|
00000040: 38 3A 99 C7 28 5A 25 28  5A 29 29 3B 3A 82 3A 99  |8:..(Z%(Z));:.:.|
00000050: 51 4F 24 00 2A 3A 7A 0D  98 31 35 2C 22 4D 2D 57  |QO$.*:z..15,"M-W|
00000060: 22 C7 28 50 29 C7 28 35  29 C7 28 31 29 C7 28 31  |".(P).(5).(1).(1|
00000070: 32 39 29 3A 98 31 35 2C  22 55 32 3A 32 20 30 22  |29):.15,"U2:2 0"|
00000080: 54 54 3B 53 53 3A 44 4C  B2 31 00 48 3A 84 0D 82  |TT;SS:DL.1.H:...|
00000090: 3A 54 54 B2 5A 25 28 30  29 3A 53 53 B2 5A 25 28  |:TT.Z%(0):SS.Z%(|
000000A0: 31 29 3A 89 33 33 38 30  00 65 3A 8E 0D 99 22 11  |1):.3380.e:...".|
000000B0: 9A 20 4E 4F 20 22 3B 3A  8B 44 4C A7 99 22 4D 4F  |. NO ";:.DL.."MO|
000000C0: 52 45 20 22 3B 00 8F 3A  98 0D 99 22 44 45 4C 45  |RE ";..:..."DELE|
000000D0: 54 45 44 20 46 49 4C 45  53 20 46 4F 55 4E 44 22  |TED FILES FOUND"|
000000E0: 3A A0 32 3A 8B 44 4C A7  98 31 35 2C 22 56 22 00  |:.2:.DL..15,"V".|
000000F0: 99 3A A2 0D 89 33 32 39  30 00 BA 3A AC 0D 8F 20  |.:...3290..:... |
00000100: 2A 2A 20 44 45 46 49 4E  45 20 46 55 4E 43 54 49  |** DEFINE FUNCTI|
00000110: 4F 4E 20 4B 45 59 53 20  2A 2A 00 E3 3A B6 0D 99  |ON KEYS **..:...|
00000120: 22 93 22 A6 38 29 22 11  9A 12 20 44 45 46 49 4E  |".".8)"... DEFIN|
00000130: 45 20 38 20 46 55 4E 43  54 49 4F 4E 20 4B 45 59  |E 8 FUNCTION KEY|
00000140: 53 20 22 00 27 3B C0 0D  99 22 11 1E 20 43 55 52  |S ".';...".. CUR|
00000150: 52 45 4E 54 20 57 4F 52  44 53 20 41 52 45 20 3A  |RENT WORDS ARE :|
00000160: 2D 11 9F 22 3A 81 54 B2  31 A4 38 3A 99 22 20 5B  |-..":.T.1.8:." [|
00000170: 46 22 C9 28 C4 28 54 29  2C 31 29 22 5D 20 22 46  |F".(.(T),1)"] "F|
00000180: 4B 24 28 54 29 3A 82 00  5B 3B CA 0D 8D 31 30 32  |K$(T):..[;...102|
00000190: 36 30 3A 99 22 93 11 11  22 3A 41 24 B2 22 45 4E  |60:."...":A$."EN|
000001A0: 54 45 52 20 4F 50 54 49  4F 4E 20 52 45 51 55 49  |TER OPTION REQUI|
000001B0: 52 45 44 22 3A 8D 31 30  31 32 30 00 A1 3B D4 0D  |RED":.10120..;..|
000001C0: 99 22 11 9F 20 31 5D 20  44 45 46 49 4E 45 20 46  |.".. 1] DEFINE F|
000001D0: 55 4E 43 54 49 4F 4E 20  4B 45 59 20 5B 46 31 2D  |UNCTION KEY [F1-|
000001E0: 38 5D 22 3A 99 22 20 32  5D 20 43 4C 45 41 52 20  |8]":." 2] CLEAR |
000001F0: 41 4C 4C 20 46 55 4E 43  54 49 4F 4E 20 4B 45 59  |ALL FUNCTION KEY|
00000200: 53 00 E1 3B DE 0D 99 22  20 33 5D 20 56 49 45 57  |S..;..." 3] VIEW|
00000210: 20 43 55 52 52 45 4E 54  20 46 55 4E 43 54 49 4F  | CURRENT FUNCTIO|
00000220: 4E 20 4B 45 59 20 57 4F  52 44 53 22 3A 99 22 20  |N KEY WORDS":." |
00000230: 34 5D 20 52 45 54 55 52  4E 20 54 4F 20 4D 45 4E  |4] RETURN TO MEN|
00000240: 55 00 1B 3C E8 0D 42 B2  36 3A 4E 43 B2 34 3A 42  |U..<..B.6:NC.4:B|
00000250: 24 B2 43 52 24 AA 22 31  32 33 34 22 3A 8D 31 30  |$.CR$."1234":.10|
00000260: 31 39 30 3A 8D 31 30 31  33 30 3A 8B 44 4C B2 30  |190:.10130:.DL.0|
00000270: A7 41 B2 31 3A 8D 31 30  31 35 30 00 35 3C F2 0D  |.A.1:.10150.5<..|
00000280: 99 C8 28 43 44 24 2C 31  32 29 3A 8B 4F 50 B2 34  |..(CD$,12):.OP.4|
00000290: A7 33 32 39 30 00 77 3C  FC 0D 8B 4F 50 B2 32 A7  |.3290.w<...OP.2.|
000002A0: 99 22 11 1C 12 20 46 55  4E 43 54 49 4F 4E 20 4B  |."... FUNCTION K|
000002B0: 45 59 53 20 43 4C 45 41  52 45 44 20 92 22 3A 81  |EYS CLEARED .":.|
000002C0: 54 B2 31 A4 38 3A 46 4B  24 28 54 29 B2 22 22 3A  |T.1.8:FK$(T)."":|
000002D0: 82 3A 89 33 35 33 30 00  8E 3C 06 0E 8B 4F 50 B2  |.:.3530..<...OP.|
000002E0: 33 A7 99 22 93 11 11 22  3A 89 33 35 32 30 00 CC  |3.."...":.3520..|
000002F0: 3C 10 0E 99 22 11 9A 20  48 49 54 20 46 55 4E 43  |<...".. HIT FUNC|
00000300: 54 49 4F 4E 20 4B 45 59  20 54 4F 20 42 45 20 44  |TION KEY TO BE D|
00000310: 45 46 49 4E 45 44 22 3A  42 24 B2 22 85 86 87 88  |EFINED":B$."....|
00000320: 89 8A 8B 8C 22 3A 8D 31  30 30 39 30 00 F0 3C 15  |....":.10090..<.|
00000330: 0E 42 B2 C6 28 41 24 29  AB 31 33 32 3A 8B 42 B3  |.B..(A$).132:.B.|
00000340: 35 A7 44 4C B2 42 AC 32  AB 31 3A 89 33 36 31 30  |5.DL.B.2.1:.3610|
00000350: 00 FD 3C 17 0E 44 4C B2  42 AC 32 AB 38 00 29 3D  |..<..DL.B.2.8.)=|
00000360: 1A 0E 99 22 11 1E 45 4E  54 45 52 20 5B 46 22 C9  |..."..ENTER [F".|
00000370: 28 C4 28 44 4C 29 2C 31  29 22 5D 20 57 4F 52 44  |(.(DL),1)"] WORD|
00000380: 22 3B 3A 8D 31 30 30 32  30 00 63 3D 24 0E 46 4B  |";:.10020.c=$.FK|
00000390: 24 28 44 4C 29 B2 53 24  3A 99 22 9A 11 12 20 44  |$(DL).S$:."... D|
000003A0: 45 46 49 4E 45 20 41 4E  59 20 4D 4F 52 45 20 4B  |EFINE ANY MORE K|
000003B0: 45 59 53 20 28 59 2F 4E  29 20 22 3B 3A 8D 31 30  |EYS (Y/N) ";:.10|
000003C0: 31 38 30 00 74 3D 2E 0E  8B 41 24 B2 22 59 22 A7  |180.t=...A$."Y".|
000003D0: 33 36 30 30 00 7E 3D 38  0E 89 33 35 33 30 00 9B  |3600.~=8..3530..|
000003E0: 3D 42 0E 8F 20 2A 2A 20  52 45 4E 41 4D 45 20 44  |=B.. ** RENAME D|
000003F0: 49 53 4B 20 46 49 4C 45  20 2A 2A 00 CA 3D 4C 0E  |ISK FILE **..=L.|
00000400: 99 22 93 22 A6 31 30 29  22 11 9A 12 20 52 45 4E  |.".".10)"... REN|
00000410: 41 4D 45 20 41 4E 59 20  44 49 53 4B 20 46 49 4C  |AME ANY DISK FIL|
00000420: 45 20 22 3A 8D 31 30 32  30 30 00 D9 3D 4E 0E 8B  |E ":.10200..=N..|
00000430: 45 52 B2 30 A7 33 36 37  30 00 F1 3D 50 0E 8D 31  |ER.0.3670..=P..1|
00000440: 30 32 32 30 3A 8B 41 24  B2 22 59 22 A7 33 36 36  |0220:.A$."Y".366|
00000450: 30 00 FB 3D 52 0E 89 31  37 31 30 00 14 3E 56 0E  |0..=R..1710..>V.|
00000460: 8D 31 30 32 38 30 3A A0  32 3A 8B 45 52 B2 30 A7  |.10280:.2:.ER.0.|
00000470: 33 36 39 35 00 25 3E 60  0E 8B 41 24 B2 22 4E 22  |3695.%>`..A$."N"|
00000480: A7 33 32 39 30 00 2F 3E  6A 0E 89 33 36 37 30 00  |.3290./>j..3670.|
00000490: 6A 3E 6F 0E 99 22 11 45  4E 54 45 52 20 12 4E 45  |j>o..".ENTER .NE|
000004A0: 57 92 20 46 49 4C 45 20  4E 41 4D 45 22 3B 3A 8D  |W. FILE NAME";:.|
000004B0: 31 30 30 32 30 3A 8B 53  24 B2 22 22 A7 53 24 B2  |10020:.S$."".S$.|
000004C0: 22 43 36 34 20 44 41 54  41 22 00 7C 3E 70 0E 8B  |"C64 DATA".|>p..|
000004D0: 53 24 B3 B1 4E 41 24 A7  33 37 30 30 00 B4 3E 71  |S$..NA$.3700..>q|
000004E0: 0E 99 22 11 1C 12 20 46  49 4C 45 20 4E 41 4D 45  |.."... FILE NAME|
000004F0: 53 20 41 52 45 20 54 48  45 20 53 41 4D 45 20 22  |S ARE THE SAME "|
00000500: 3A 8D 31 30 32 34 30 3A  8B 41 24 B2 22 4E 22 A7  |:.10240:.A$."N".|
00000510: 33 32 39 30 00 BE 3E 72  0E 89 33 36 37 30 00 F9  |3290..>r..3670..|
00000520: 3E 74 0E 99 22 1E 11 20  52 45 4E 41 4D 49 4E 47  |>t..".. RENAMING|
00000530: 20 46 49 4C 45 22 3A 98  31 35 2C 22 52 3A 22 53  | FILE":.15,"R:"S|
00000540: 24 22 3D 22 4E 41 24 3A  8D 31 30 32 31 30 3A 8B  |$"="NA$:.10210:.|
00000550: 45 52 B2 30 A7 33 32 39  30 00 11 3F 7E 0E 8D 31  |ER.0.3290..?~..1|
00000560: 30 32 32 30 3A 8B 41 24  B2 22 59 22 A7 33 36 37  |0220:.A$."Y".367|
00000570: 30 00 1B 3F 88 0E 89 33  32 39 30 00 36 3F A0 0F  |0..?...3290.6?..|
00000580: 8F 20 2A 2A 20 52 45 2D  52 55 4E 20 50 52 4F 47  |. ** RE-RUN PROG|
00000590: 52 41 4D 20 2A 2A 00 6E  3F AA 0F 99 22 93 22 A6  |RAM **.n?...".".|
000005A0: 31 30 29 22 9A 20 12 20  52 45 53 45 54 20 48 49  |10)". . RESET HI|
000005B0: 50 45 52 42 41 53 45 20  92 11 22 3A 8D 31 30 33  |PERBASE ..":.103|
000005C0: 38 30 3A 8B 41 24 B2 22  59 22 A7 9C 3A 8A 00 7E  |80:.A$."Y"..:..~|
000005D0: 3F B4 0F 8D 31 30 32 36  30 3A 89 31 33 30 00 84  |?...10260:.130..|
000005E0: 3F 0F 27 80 00 9E 3F 10  27 8F 20 2A 2A 2A 20 53  |?.'...?.'. *** S|
000005F0: 55 42 52 4F 55 54 49 4E  45 53 20 2A 2A 2A 00 AE  |UBROUTINES ***..|
00000600: 3F 1A 27 81 54 B2 31 A4  44 4C 3A 82 3A 8E 00 C9  |?.'.T.1.DL:.:...|
00000610: 3F 24 27 97 31 39 38 2C  30 3A 53 24 B2 22 22 3A  |?$'.198,0:S$."":|
00000620: 99 22 20 2D 20 A4 9D 22  3B 00 E8 3F 2E 27 A1 41  |." - ..";..?.'.A|
00000630: 24 3A 41 B2 C6 28 41 24  AA 4E 4C 24 29 3A 8B 41  |$:A..(A$.NL$):.A|
00000640: B2 30 A7 31 30 30 33 30  00 F9 3F 38 27 8B 41 B2  |.0.10030..?8'.A.|
00000650: 31 33 A7 99 22 20 22 3A  8E 00 0F 40 42 27 8B 41  |13.." ":...@B'.A|
00000660: B2 32 30 AF 53 24 B2 22  22 A7 31 30 30 33 30 00  |.20.S$."".10030.|
00000670: 3A 40 4C 27 8B 41 B2 32  30 A7 53 24 B2 C8 28 53  |:@L'.A.20.S$..(S|
00000680: 24 2C C3 28 53 24 29 AB  31 29 3A 99 41 24 22 A4  |$,.(S$).1):.A$".|
00000690: 9D 22 3B 3A 89 31 30 30  33 30 00 60 40 51 27 8B  |.";:.10030.`@Q'.|
000006A0: 41 B1 31 33 32 AF 41 B3  31 34 31 A7 41 24 B2 46  |A.132.A.141.A$.F|
000006B0: 4B 24 28 41 AB 31 33 32  29 3A 89 31 30 30 38 30  |K$(A.132):.10080|
000006C0: 00 75 40 56 27 8B 41 B3  33 32 B0 41 B1 39 35 A7  |.u@V'.A.32.A.95.|
000006D0: 31 30 30 33 30 00 92 40  60 27 53 24 B2 53 24 AA  |10030..@`'S$.S$.|
000006E0: 41 24 3A 99 41 24 22 A4  9D 22 3B 3A 89 31 30 30  |A$:.A$"..";:.100|
000006F0: 33 30 00 9D 40 6A 27 97  31 39 38 2C 30 00 B2 40  |30..@j'.198,0..@|
00000700: 6F 27 A1 41 24 3A 8B 41  24 B2 22 22 A7 31 30 30  |o'.A$:.A$."".100|
00000710: 39 35 00 DB 40 74 27 81  54 B2 31 A4 C3 28 42 24  |95..@t'.T.1..(B$|
00000720: 29 3A 8B 41 24 B2 CA 28  42 24 2C 54 2C 31 29 A7  |):.A$..(B$,T,1).|
00000730: 54 B2 C3 28 42 24 29 3A  82 3A 8E 00 E8 40 7E 27  |T..(B$):.:...@~'|
00000740: 82 3A 89 31 30 30 39 30  00 0C 41 88 27 41 B2 C3  |.:.10090..A.'A..|
00000750: 28 41 24 29 3A 99 41 24  C8 28 42 53 24 2C 41 AA  |(A$):.A$.(BS$,A.|
00000760: 31 29 C8 28 55 4C 24 2C  41 29 3A 8E 00 28 41 92  |1).(UL$,A):..(A.|
00000770: 27 44 4C B2 30 3A 81 54  B2 31 A4 4E 43 3A 43 48  |'DL.0:.T.1.NC:CH|
00000780: 25 28 54 29 B2 30 3A 82  00 3D 41 97 27 8D 31 30  |%(T).0:..=A.'.10|
00000790: 30 39 30 3A 8B 41 24 B2  43 52 24 A7 8E 00 5F 41  |090:.A$.CR$..._A|
000007A0: 9C 27 41 B2 C5 28 41 24  29 3A 8D 31 30 31 35 30  |.'A..(A$):.10150|
000007B0: 3A 44 4C B2 44 4C AA 31  3A 89 31 30 31 33 35 00  |:DL.DL.1:.10135.|
000007C0: 82 41 A6 27 99 C8 28 43  44 24 2C 41 AA 42 29 22  |.A.'..(CD$,A.B)"|
000007D0: 3E 22 3A 8B 43 48 25 28  41 29 A7 44 4C B2 44 4C  |>":.CH%(A).DL.DL|
000007E0: AB 31 00 96 41 B0 27 43  48 25 28 41 29 B2 31 3A  |.1..A.'CH%(A).1:|
000007F0: 4F 50 B2 41 3A 8E 00 C6  41 BA 27 99 C8 28 43 44  |OP.A:...A.'..(CD|
00000800: 24 2C 42 AA 4E 43 AA 34  29 22 12 20 41 52 45 20  |$,B.NC.4)". ARE |
00000810: 54 48 45 53 45 20 43 4F  52 52 45 43 54 20 28 59  |THESE CORRECT (Y|
00000820: 2F 4E 29 20 22 3B 00 DF  41 C4 27 42 24 B2 22 59  |/N) ";..A.'B$."Y|
00000830: 4E 22 3A 8D 31 30 30 39  30 3A 99 41 24 3A 8E 00  |N":.10090:.A$:..|
00000840: 12 42 CE 27 99 22 11 9A  45 4E 54 45 52 20 4F 50  |.B.'."..ENTER OP|
00000850: 54 49 4F 4E 20 4E 55 4D  42 45 52 53 20 26 20 52  |TION NUMBERS & R|
00000860: 45 54 55 52 4E 20 54 4F  20 46 49 4E 49 53 48 22  |ETURN TO FINISH"|
00000870: 3A 8E 00 50 42 D8 27 99  22 11 9C 49 4E 53 45 52  |:..PB.'."..INSER|
00000880: 54 20 44 41 54 41 20 44  49 53 4B 20 49 4E 54 4F  |T DATA DISK INTO|
00000890: 20 44 52 49 56 45 2C 48  49 54 20 41 20 4B 45 59  | DRIVE,HIT A KEY|
000008A0: 22 3A 8D 31 30 32 35 30  3A 98 31 35 2C 22 49 22  |":.10250:.15,"I"|
000008B0: 00 67 42 E2 27 84 31 35  2C 45 52 2C 45 52 24 2C  |.gB.'.15,ER,ER$,|
000008C0: 54 45 2C 53 45 3A 8E 00  99 42 EC 27 99 22 11 1C  |TE,SE:...B.'."..|
000008D0: 2A 20 44 49 53 4B 20 45  52 52 4F 52 20 2A 20 23  |* DISK ERROR * #|
000008E0: 22 45 52 3B 45 52 24 3B  3A 8B 54 45 A7 99 22 20  |"ER;ER$;:.TE.." |
000008F0: 4F 4E 22 54 45 3B 53 45  3B 00 A3 42 F6 27 99 43  |ON"TE;SE;..B.'.C|
00000900: 52 24 3B 00 C9 42 00 28  99 22 11 9A 12 20 54 52  |R$;..B.(."... TR|
00000910: 59 20 41 47 41 49 4E 20  28 59 2F 4E 29 20 22 3B  |Y AGAIN (Y/N) ";|
00000920: 3A 8D 31 30 31 38 30 3A  8E 00 E4 42 0A 28 97 31  |:.10180:...B.(.1|
00000930: 39 38 2C 30 3A 92 31 39  38 2C 31 3A 97 31 39 38  |98,0:.198,1:.198|
00000940: 2C 30 3A 8E 00 0D 43 14  28 99 A6 35 29 22 9A 12  |,0:...C.(..5)"..|
00000950: 11 20 50 52 45 53 53 20  41 4E 59 20 4B 45 59 20  |. PRESS ANY KEY |
00000960: 54 4F 20 43 4F 4E 54 49  4E 55 45 20 22 00 1A 43  |TO CONTINUE "..C|
00000970: 1E 28 8D 31 30 32 35 30  3A 8E 00 4F 43 28 28 99  |.(.10250:..OC((.|
00000980: 22 11 45 4E 54 45 52 20  46 49 4C 45 20 4E 41 4D  |".ENTER FILE NAM|
00000990: 45 22 3B 3A 8D 31 30 30  32 30 3A 8B 53 24 B2 22  |E";:.10020:.S$."|
000009A0: 22 A7 53 24 B2 22 43 36  34 20 44 41 54 41 22 00  |".S$."C64 DATA".|
000009B0: 7E 43 32 28 4E 41 24 B2  53 24 3A 9F 32 2C 44 44  |~C2(NA$.S$:.2,DD|
000009C0: 2C 32 2C 53 24 AA 22 2C  53 2C 22 AA 54 59 24 3A  |,2,S$.",S,".TY$:|
000009D0: 8D 31 30 32 31 30 3A 8B  45 52 B2 30 A7 8E 00 8B  |.10210:.ER.0....|
000009E0: 43 3C 28 8D 31 30 32 32  30 3A 8E 00 B7 43 46 28  |C<(.10220:...CF(|
000009F0: 99 22 11 45 4E 54 45 52  20 43 55 52 52 45 4E 54  |.".ENTER CURRENT|
00000A00: 20 44 41 54 45 22 3B 3A  8D 31 30 30 32 30 3A 45  | DATE";:.10020:E|
00000A10: 44 24 B2 53 24 3A 8E 00  E2 43 50 28 98 32 2C 51  |D$.S$:...CP(.2,Q|
00000A20: 4F 24 45 44 24 43 4F 24  45 44 24 43 4F 24 50 57  |O$ED$CO$ED$CO$PW|
00000A30: 24 51 4F 24 43 52 24 C7  28 4E 46 29 51 4F 24 3B  |$QO$CR$.(NF)QO$;|
00000A40: 3A 8E 00 07 44 5A 28 84  32 2C 44 41 24 2C 55 44  |:...DZ(.2,DA$,UD|
00000A50: 24 2C 50 57 24 3A A1 23  32 2C 41 24 3A 4E 46 B2  |$,PW$:.#2,A$:NF.|
00000A60: C6 28 41 24 29 3A 8E 00  46 44 64 28 99 22 11 45  |.(A$):..FDd(.".E|
00000A70: 4E 54 45 52 20 50 41 53  53 57 4F 52 44 20 5B 52  |NTER PASSWORD [R|
00000A80: 45 54 55 52 4E 20 49 46  20 4E 4F 4E 45 5D 22 3B  |ETURN IF NONE]";|
00000A90: 3A 8D 31 30 30 32 30 3A  41 24 B2 22 22 3A 8B 53  |:.10020:A$."":.S|
00000AA0: 24 B2 22 22 A7 8E 00 71  44 6E 28 81 54 B2 31 A4  |$.""...qDn(.T.1.|
00000AB0: C3 28 53 24 29 3A 41 24  B2 41 24 AA C7 28 C6 28  |.(S$):A$.A$..(.(|
00000AC0: CA 28 53 24 2C 54 2C 31  29 29 AA 54 29 3A 82 3A  |.(S$,T,1)).T):.:|
00000AD0: 8E 00 9C 44 78 28 98 33  2C 51 4F 24 44 41 24 43  |...Dx(.3,QO$DA$C|
00000AE0: 4F 24 45 44 24 43 4F 24  50 57 24 51 4F 24 43 52  |O$ED$CO$PW$QO$CR|
00000AF0: 24 C7 28 4E 46 29 51 4F  24 3B 3A 8E 00 BA 44 82  |$.(NF)QO$;:...D.|
00000B00: 28 81 54 B2 31 A4 4E 46  3A 98 33 2C 44 46 24 28  |(.T.1.NF:.3,DF$(|
00000B10: 54 29 43 4F 24 3B 3A 82  3A 8E 00 E3 44 8C 28 99  |T)CO$;:.:...D.(.|
00000B20: 22 11 12 1C 20 41 52 45  20 59 4F 55 20 53 55 52  |"... ARE YOU SUR|
00000B30: 45 20 28 59 2F 4E 29 20  22 3B 3A 8D 31 30 31 38  |E (Y/N) ";:.1018|
00000B40: 30 3A 8E 00 22 45 96 28  99 22 11 9A 12 20 45 4E  |0:.."E.(."... EN|
00000B50: 54 45 52 20 52 45 43 4F  52 44 20 23 22 4E 52 22  |TER RECORD #"NR"|
00000B60: 11 22 3A 81 54 B2 31 A4  4E 46 3A 99 22 45 4E 54  |.":.T.1.NF:."ENT|
00000B70: 45 52 20 22 44 46 24 28  54 29 3B 3A 8D 31 30 30  |ER "DF$(T);:.100|
00000B80: 32 30 00 4A 45 A0 28 8B  54 B2 31 AF 53 24 B2 22  |20.JE.(.T.1.S$."|
00000B90: 58 58 58 22 A7 98 4C 46  2C 53 24 51 4F 24 3A 54  |XXX"..LF,S$QO$:T|
00000BA0: B2 4E 46 3A 82 3A A0 32  3A 8E 00 85 45 AA 28 54  |.NF:.:.2:...E.(T|
00000BB0: 45 24 28 54 29 B2 53 24  3A 82 3A 99 22 11 9F 41  |E$(T).S$:.:."..A|
00000BC0: 52 45 20 41 4C 4C 20 46  49 45 4C 44 53 20 43 4F  |RE ALL FIELDS CO|
00000BD0: 52 52 45 43 54 20 28 59  2F 4E 29 20 22 3B 3A 8D  |RRECT (Y/N) ";:.|
00000BE0: 31 30 31 38 30 00 97 45  B4 28 8B 41 24 B2 22 4E  |10180..E.(.A$."N|
00000BF0: 22 A7 31 30 33 39 30 00  BE 45 BE 28 81 54 B2 31  |".10390..E.(.T.1|
00000C00: A4 4E 46 3A 98 4C 46 2C  54 45 24 28 54 29 43 4F  |.NF:.LF,TE$(T)CO|
00000C10: 24 3B 3A 82 3A 4E 52 B2  4E 52 AA 31 3A 8E 00 00  |$;:.:NR.NR.1:...|
00000C20: 00 52 53 78 A2 0A A0 00  86 14 84 15 A2 BD A0 45  |.RSx...........E|
00000C30: 86 FC 84 FD A0 00 A2 7B  BD DE 45 9D 33 03 CA D0  |.......{..E.3...|
00000C40: F7 4C 84 03 46 08 0A 00  97 35 33 32 38 31 2C 31  |.L..F....53281,1|
00000C50: 3A 97 35 33 32 38 30 2C  31 3A 97 36 35 30 2C 30  |:.53280,1:.650,0|
00000C60: 3A 43 44 88 C0 FF D0 02  C6 FD B1 FC 85 FF 88 C0  |:CD.............|
00000C70: FF D0 02 C6 FD B1 FC C9  73 F0 2F 9D C1 45 CA E0  |........s./..E..|
00000C80: FF D0 06 CE 6D 03 CE 8C  03 C6 FF D0 EE 88 C0 FF  |....m...........|
00000C90: D0 02 C6 FD B1 FC C9 73  F0 C9 9D C1 45 CA E0 FF  |.......s....E...|
00000CA0: D0 EB CE 6D 03 CE 8C 03  D0 E3 A2 1F BD 33 03 9D  |...m.........3..|
00000CB0: 00 08 CA D0 F7 A9 73 A9  37 85 01 58 4C BC A8 43  |......s.7..XL..C|
00000CC0: C4 28 98 92 00 A5 2D 18  65 2E C9 D6 F0 06 4C 00  |.(....-.e.....L.|
00000CD0: 23 4C 80 46 AD 0B 08 18  6D 0C 08 6D 0D 08 C9 EF  |#L.F....m..m....|
00000CE0: F0 EF 4C 00 23 20 53 E4  4C 16 08 A2 00 8E 20 D0  |..L.# S.L..... .|
00000CF0: 4C 00 23 C0 92                                    |L.#..           |

60..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 KEY
S ".';...".. CURRENT WORDS ARE :-..":.T.
1.8:." [F"I(D(T),1)"] "FK$(T):..[;J..102
60:."...":A$."ENTER OPTION REQUIRED":.10
120..;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$."1
234":.10190:.10130:.DL.0.A.1:.10150.5<..
.H(CD$,12):.OP.4.3290.W<...OP.2.."... FU
NCTION KEYS CLEARED .":.T.1.8:FK$(T)."":
.:.3530..<...OP.3.."...":.3520.L<...".. 
HIT 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) ";:.10
180.T=...A$."Y".3600.~=8..3530..=B.. ** 
RENAME DISK FILE **.J=L..".".10)"... REN
AME ANY DISK FILE ":.10200.Y=N..ER.0.367
0..=P..10220:.A$."Y".3660..=R..1710..>V.
.10280: 2:.ER.0.3695.%>`..A$."N".3290./>
J..3670.J>O..".ENTER .NEW. FILE NAME";:.
10020:.S$."".S$."C64 DATA".|>P..S$..NA$.
3700..>Q.."... FILE NAMES ARE THE SAME "
:.10240:.A$."N".3290..>R..3670..>T..".. 
RENAMING FILE":.15,"R:"S$"="NA$:.10210:.
ER.0.3290..?~..10220:.A$."Y".3670..?...3
290.6? .. ** RE-RUN PROGRAM **.N?...".".
10)". . RESET HIPERBASE ..":.10380:.A$."
Y"..:..~?...10260:.130..?.'...?.'. *** S
UBROUTINES ***..?.'.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:..F
A.'.H(CD$,B.NC.4)". ARE THESE CORRECT (Y
/N) ";..AD'B$."YN":.10090:.A$:...BN'."..
ENTER OPTION NUMBERS & RETURN TO FINISH"
:..PBX'."..INSERT DATA DISK INTO DRIVE,H
IT A KEY":.10250:.15,"I".GB.'.15,ER,ER$,
TE,SE:...B.'."..* DISK ERROR * #"ER;ER$;
:.TE.." ON"TE;SE;..B.'.CR$;.IB.(."... TR
Y AGAIN (Y/N) ";:.10180:...B.(.198,0:.19
8,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(NF)QO$;:...DZ(.2,DA$,UD
$,PW$:.#2,A$:NF.F(A$):..FDD(.".ENTER PAS
SWORD [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) ";:.1018
0:.."E.(."... ENTER RECORD #"NR".":.T.1.
NF:."ENTER "DF$(T);:.10020.JE (.T.1.S$."
XXX"..LF,S$QO$:T.NF:.: 2:...E.(TE$(T).S$
:.:."..ARE ALL FIELDS 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