MANUAL 3.1(AANV)

00000000: 20 2A 2A 00 CA 3D 4C 0E  99 22 93 22 A6 31 30 29  | **..=L..".".10)|
00000010: 22 11 9A 12 20 52 45 4E  41 4D 45 20 41 4E 59 20  |"... RENAME ANY |
00000020: 44 49 53 4B 20 46 49 4C  45 20 22 3A 8D 31 30 32  |DISK FILE ":.102|
00000030: 30 30 00 D9 3D 4E 0E 8B  45 52 B2 30 A7 33 36 37  |00..=N..ER.0.367|
00000040: 30 00 F1 3D 50 0E 8D 31  30 32 32 30 3A 8B 41 24  |0..=P..10220:.A$|
00000050: B2 22 59 22 A7 33 36 36  30 00 FB 3D 52 0E 89 31  |."Y".3660..=R..1|
00000060: 37 31 30 00 14 3E 56 0E  8D 31 30 32 38 30 3A A0  |710..>V..10280:.|
00000070: 32 3A 8B 45 52 B2 30 A7  33 36 39 35 00 25 3E 60  |2:.ER.0.3695.%>`|
00000080: 0E 8B 41 24 B2 22 4E 22  A7 33 32 39 30 00 2F 3E  |..A$."N".3290./>|
00000090: 6A 0E 89 33 36 37 30 00  6A 3E 6F 0E 99 22 11 45  |j..3670.j>o..".E|
000000A0: 4E 54 45 52 20 12 4E 45  57 92 20 46 49 4C 45 20  |NTER .NEW. FILE |
000000B0: 4E 41 4D 45 22 3B 3A 8D  31 30 30 32 30 3A 8B 53  |NAME";:.10020:.S|
000000C0: 24 B2 22 22 A7 53 24 B2  22 43 36 34 20 44 41 54  |$."".S$."C64 DAT|
000000D0: 41 22 00 7C 3E 70 0E 8B  53 24 B3 B1 4E 41 24 A7  |A".|>p..S$..NA$.|
000000E0: 33 37 30 30 00 B4 3E 71  0E 99 22 11 1C 12 20 46  |3700..>q.."... F|
000000F0: 49 4C 45 20 4E 41 4D 45  53 20 41 52 45 20 54 48  |ILE NAMES ARE TH|
00000100: 45 20 53 41 4D 45 20 22  3A 8D 31 30 32 34 30 3A  |E SAME ":.10240:|
00000110: 8B 41 24 B2 22 4E 22 A7  33 32 39 30 00 BE 3E 72  |.A$."N".3290..>r|
00000120: 0E 89 33 36 37 30 00 F9  3E 74 0E 99 22 1E 11 20  |..3670..>t..".. |
00000130: 52 45 4E 41 4D 49 4E 47  20 46 49 4C 45 22 3A 98  |RENAMING FILE":.|
00000140: 31 35 2C 22 52 3A 22 53  24 22 3D 22 4E 41 24 3A  |15,"R:"S$"="NA$:|
00000150: 8D 31 30 32 31 30 3A 8B  45 52 B2 30 A7 33 32 39  |.10210:.ER.0.329|
00000160: 30 00 11 3F 7E 0E 8D 31  30 32 32 30 3A 8B 41 24  |0..?~..10220:.A$|
00000170: B2 22 59 22 A7 33 36 37  30 00 1B 3F 88 0E 89 33  |."Y".3670..?...3|
00000180: 32 39 30 00 36 3F A0 0F  8F 20 2A 2A 20 52 45 2D  |290.6?... ** RE-|
00000190: 52 55 4E 20 50 52 4F 47  52 41 4D 20 2A 2A 00 6E  |RUN PROGRAM **.n|
000001A0: 3F AA 0F 99 22 93 22 A6  31 30 29 22 9A 20 12 20  |?...".".10)". . |
000001B0: 52 45 53 45 54 20 48 49  50 45 52 42 41 53 45 20  |RESET HIPERBASE |
000001C0: 92 11 22 3A 8D 31 30 33  38 30 3A 8B 41 24 B2 22  |..":.10380:.A$."|
000001D0: 59 22 A7 9C 3A 8A 00 7E  3F B4 0F 8D 31 30 32 36  |Y"..:..~?...1026|
000001E0: 30 3A 89 31 33 30 00 84  3F 0F 27 80 00 9E 3F 10  |0:.130..?.'...?.|
000001F0: 27 8F 20 2A 2A 2A 20 53  55 42 52 4F 55 54 49 4E  |'. *** SUBROUTIN|
00000200: 45 53 20 2A 2A 2A 00 AE  3F 1A 27 81 54 B2 31 A4  |ES ***..?.'.T.1.|
00000210: 44 4C 3A 82 3A 8E 00 C9  3F 24 27 97 31 39 38 2C  |DL:.:...?$'.198,|
00000220: 30 3A 53 24 B2 22 22 3A  99 22 20 2D 20 A4 9D 22  |0:S$."":." - .."|
00000230: 3B 00 E8 3F 2E 27 A1 41  24 3A 41 B2 C6 28 41 24  |;..?.'.A$:A..(A$|
00000240: AA 4E 4C 24 29 3A 8B 41  B2 30 A7 31 30 30 33 30  |.NL$):.A.0.10030|
00000250: 00 F9 3F 38 27 8B 41 B2  31 33 A7 99 22 20 22 3A  |..?8'.A.13.." ":|
00000260: 8E 00 0F 40 42 27 8B 41  B2 32 30 AF 53 24 B2 22  |...@B'.A.20.S$."|
00000270: 22 A7 31 30 30 33 30 00  3A 40 4C 27 8B 41 B2 32  |".10030.:@L'.A.2|
00000280: 30 A7 53 24 B2 C8 28 53  24 2C C3 28 53 24 29 AB  |0.S$..(S$,.(S$).|
00000290: 31 29 3A 99 41 24 22 A4  9D 22 3B 3A 89 31 30 30  |1):.A$"..";:.100|
000002A0: 33 30 00 60 40 51 27 8B  41 B1 31 33 32 AF 41 B3  |30.`@Q'.A.132.A.|
000002B0: 31 34 31 A7 41 24 B2 46  4B 24 28 41 AB 31 33 32  |141.A$.FK$(A.132|
000002C0: 29 3A 89 31 30 30 38 30  00 75 40 56 27 8B 41 B3  |):.10080.u@V'.A.|
000002D0: 33 32 B0 41 B1 39 35 A7  31 30 30 33 30 00 92 40  |32.A.95.10030..@|
000002E0: 60 27 53 24 B2 53 24 AA  41 24 3A 99 41 24 22 A4  |`'S$.S$.A$:.A$".|
000002F0: 9D 22 3B 3A 89 31 30 30  33 30 00 9D 40 6A 27 97  |.";:.10030..@j'.|
00000300: 31 39 38 2C 30 00 B2 40  6F 27 A1 41 24 3A 8B 41  |198,0..@o'.A$:.A|
00000310: 24 B2 22 22 A7 31 30 30  39 35 00 DB 40 74 27 81  |$."".10095..@t'.|
00000320: 54 B2 31 A4 C3 28 42 24  29 3A 8B 41 24 B2 CA 28  |T.1..(B$):.A$..(|
00000330: 42 24 2C 54 2C 31 29 A7  54 B2 C3 28 42 24 29 3A  |B$,T,1).T..(B$):|
00000340: 82 3A 8E 00 E8 40 7E 27  82 3A 89 31 30 30 39 30  |.:...@~'.:.10090|
00000350: 00 0C 41 88 27 41 B2 C3  28 41 24 29 3A 99 41 24  |..A.'A..(A$):.A$|
00000360: C8 28 42 53 24 2C 41 AA  31 29 C8 28 55 4C 24 2C  |.(BS$,A.1).(UL$,|
00000370: 41 29 3A 8E 00 28 41 92  27 44 4C B2 30 3A 81 54  |A):..(A.'DL.0:.T|
00000380: B2 31 A4 4E 43 3A 43 48  25 28 54 29 B2 30 3A 82  |.1.NC:CH%(T).0:.|
00000390: 00 3D 41 97 27 8D 31 30  30 39 30 3A 8B 41 24 B2  |.=A.'.10090:.A$.|
000003A0: 43 52 24 A7 8E 00 5F 41  9C 27 41 B2 C5 28 41 24  |CR$..._A.'A..(A$|
000003B0: 29 3A 8D 31 30 31 35 30  3A 44 4C B2 44 4C AA 31  |):.10150:DL.DL.1|
000003C0: 3A 89 31 30 31 33 35 00  82 41 A6 27 99 C8 28 43  |:.10135..A.'..(C|
000003D0: 44 24 2C 41 AA 42 29 22  3E 22 3A 8B 43 48 25 28  |D$,A.B)">":.CH%(|
000003E0: 41 29 A7 44 4C B2 44 4C  AB 31 00 96 41 B0 27 43  |A).DL.DL.1..A.'C|
000003F0: 48 25 28 41 29 B2 31 3A  4F 50 B2 41 3A 8E 00 C6  |H%(A).1:OP.A:...|
00000400: 41 BA 27 99 C8 28 43 44  24 2C 42 AA 4E 43 AA 34  |A.'..(CD$,B.NC.4|
00000410: 29 22 12 20 41 52 45 20  54 48 45 53 45 20 43 4F  |)". ARE THESE CO|
00000420: 52 52 45 43 54 20 28 59  2F 4E 29 20 22 3B 00 DF  |RRECT (Y/N) ";..|
00000430: 41 C4 27 42 24 B2 22 59  4E 22 3A 8D 31 30 30 39  |A.'B$."YN":.1009|
00000440: 30 3A 99 41 24 3A 8E 00  12 42 CE 27 99 22 11 9A  |0:.A$:...B.'."..|
00000450: 45 4E 54 45 52 20 4F 50  54 49 4F 4E 20 4E 55 4D  |ENTER OPTION NUM|
00000460: 42 45 52 53 20 26 20 52  45 54 55 52 4E 20 54 4F  |BERS & RETURN TO|
00000470: 20 46 49 4E 49 53 48 22  3A 8E 00 50 42 D8 27 99  | FINISH":..PB.'.|
00000480: 22 11 9C 49 4E 53 45 52  54 20 44 41 54 41 20 44  |"..INSERT DATA D|
00000490: 49 53 4B 20 49 4E 54 4F  20 44 52 49 56 45 2C 48  |ISK INTO DRIVE,H|
000004A0: 49 54 20 41 20 4B 45 59  22 3A 8D 31 30 32 35 30  |IT A KEY":.10250|
000004B0: 3A 98 31 35 2C 22 49 22  00 67 42 E2 27 84 31 35  |:.15,"I".gB.'.15|
000004C0: 2C 45 52 2C 45 52 24 2C  54 45 2C 53 45 3A 8E 00  |,ER,ER$,TE,SE:..|
000004D0: 99 42 EC 27 99 22 11 1C  2A 20 44 49 53 4B 20 45  |.B.'."..* DISK E|
000004E0: 52 52 4F 52 20 2A 20 23  22 45 52 3B 45 52 24 3B  |RROR * #"ER;ER$;|
000004F0: 3A 8B 54 45 A7 99 22 20  4F 4E 22 54 45 3B 53 45  |:.TE.." ON"TE;SE|
00000500: 3B 00 A3 42 F6 27 99 43  52 24 3B 00 C9 42 00 28  |;..B.'.CR$;..B.(|
00000510: 99 22 11 9A 12 20 54 52  59 20 41 47 41 49 4E 20  |."... TRY AGAIN |
00000520: 28 59 2F 4E 29 20 22 3B  3A 8D 31 30 31 38 30 3A  |(Y/N) ";:.10180:|
00000530: 8E 00 E4 42 0A 28 97 31  39 38 2C 30 3A 92 31 39  |...B.(.198,0:.19|
00000540: 38 2C 31 3A 97 31 39 38  2C 30 3A 8E 00 0D 43 14  |8,1:.198,0:...C.|
00000550: 28 99 A6 35 29 22 9A 12  11 20 50 52 45 53 53 20  |(..5)"... PRESS |
00000560: 41 4E 59 20 4B 45 59 20  54 4F 20 43 4F 4E 54 49  |ANY KEY TO CONTI|
00000570: 4E 55 45 20 22 00 1A 43  1E 28 8D 31 30 32 35 30  |NUE "..C.(.10250|
00000580: 3A 8E 00 4F 43 28 28 99  22 11 45 4E 54 45 52 20  |:..OC((.".ENTER |
00000590: 46 49 4C 45 20 4E 41 4D  45 22 3B 3A 8D 31 30 30  |FILE NAME";:.100|
000005A0: 32 30 3A 8B 53 24 B2 22  22 A7 53 24 B2 22 43 36  |20:.S$."".S$."C6|
000005B0: 34 20 44 41 54 41 22 00  7E 43 32 28 4E 41 24 B2  |4 DATA".~C2(NA$.|
000005C0: 53 24 3A 9F 32 2C 44 44  2C 32 2C 53 24 AA 22 2C  |S$:.2,DD,2,S$.",|
000005D0: 53 2C 22 AA 54 59 24 3A  8D 31 30 32 31 30 3A 8B  |S,".TY$:.10210:.|
000005E0: 45 52 B2 30 A7 8E 00 8B  43 3C 28 8D 31 30 32 32  |ER.0....C<(.1022|
000005F0: 30 3A 8E 00 B7 43 46 28  99 22 11 45 4E 54 45 52  |0:...CF(.".ENTER|
00000600: 20 43 55 52 52 45 4E 54  20 44 41 54 45 22 3B 3A  | CURRENT DATE";:|
00000610: 8D 31 30 30 32 30 3A 45  44 24 B2 53 24 3A 8E 00  |.10020:ED$.S$:..|
00000620: E2 43 50 28 98 32 2C 51  4F 24 45 44 24 43 4F 24  |.CP(.2,QO$ED$CO$|
00000630: 45 44 24 43 4F 24 50 57  24 51 4F 24 43 52 24 C7  |ED$CO$PW$QO$CR$.|
00000640: 28 4E 46 29 51 4F 24 3B  3A 8E 00 07 44 5A 28 84  |(NF)QO$;:...DZ(.|
00000650: 32 2C 44 41 24 2C 55 44  24 2C 50 57 24 3A A1 23  |2,DA$,UD$,PW$:.#|
00000660: 32 2C 41 24 3A 4E 46 B2  C6 28 41 24 29 3A 8E 00  |2,A$:NF..(A$):..|
00000670: 46 44 64 28 99 22 11 45  4E 54 45 52 20 50 41 53  |FDd(.".ENTER PAS|
00000680: 53 57 4F 52 44 20 5B 52  45 54 55 52 4E 20 49 46  |SWORD [RETURN IF|
00000690: 20 4E 4F 4E 45 5D 22 3B  3A 8D 31 30 30 32 30 3A  | NONE]";:.10020:|
000006A0: 41 24 B2 22 22 3A 8B 53  24 B2 22 22 A7 8E 00 71  |A$."":.S$.""...q|
000006B0: 44 6E 28 81 54 B2 31 A4  C3 28 53 24 29 3A 41 24  |Dn(.T.1..(S$):A$|
000006C0: B2 41 24 AA C7 28 C6 28  CA 28 53 24 2C 54 2C 31  |.A$..(.(.(S$,T,1|
000006D0: 29 29 AA 54 29 3A 82 3A  8E 00 9C 44 78 28 98 33  |)).T):.:...Dx(.3|
000006E0: 2C 51 4F 24 44 41 24 43  4F 24 45 44 24 43 4F 24  |,QO$DA$CO$ED$CO$|
000006F0: 50 57 24 51 4F 24 43 52  24 C7 28 4E 46 29 51 4F  |PW$QO$CR$.(NF)QO|
00000700: 24 3B 3A 8E 00 BA 44 82  28 81 54 B2 31 A4 4E 46  |$;:...D.(.T.1.NF|
00000710: 3A 98 33 2C 44 46 24 28  54 29 43 4F 24 3B 3A 82  |:.3,DF$(T)CO$;:.|
00000720: 3A 8E 00 E3 44 8C 28 99  22 11 12 1C 20 41 52 45  |:...D.(."... ARE|
00000730: 20 59 4F 55 20 53 55 52  45 20 28 59 2F 4E 29 20  | YOU SURE (Y/N) |
00000740: 22 3B 3A 8D 31 30 31 38  30 3A 8E 00 22 45 96 28  |";:.10180:.."E.(|
00000750: 99 22 11 9A 12 20 45 4E  54 45 52 20 52 45 43 4F  |."... ENTER RECO|
00000760: 52 44 20 23 22 4E 52 22  11 22 3A 81 54 B2 31 A4  |RD #"NR".":.T.1.|
00000770: 4E 46 3A 99 22 45 4E 54  45 52 20 22 44 46 24 28  |NF:."ENTER "DF$(|
00000780: 54 29 3B 3A 8D 31 30 30  32 30 00 4A 45 A0 28 8B  |T);:.10020.JE.(.|
00000790: 54 B2 31 AF 53 24 B2 22  58 58 58 22 A7 98 4C 46  |T.1.S$."XXX"..LF|
000007A0: 2C 53 24 51 4F 24 3A 54  B2 4E 46 3A 82 3A A0 32  |,S$QO$:T.NF:.:.2|
000007B0: 3A 8E 00 85 45 AA 28 54  45 24 28 54 29 B2 53 24  |:...E.(TE$(T).S$|
000007C0: 3A 82 3A 99 22 11 9F 41  52 45 20 41 4C 4C 20 46  |:.:."..ARE ALL F|
000007D0: 49 45 4C 44 53 20 43 4F  52 52 45 43 54 20 28 59  |IELDS CORRECT (Y|
000007E0: 2F 4E 29 20 22 3B 3A 8D  31 30 31 38 30 00 97 45  |/N) ";:.10180..E|
000007F0: B4 28 8B 41 24 B2 22 4E  22 A7 31 30 33 39 30 00  |.(.A$."N".10390.|
00000800: BE 45 BE 28 81 54 B2 31  A4 4E 46 3A 98 4C 46 2C  |.E.(.T.1.NF:.LF,|
00000810: 54 45 24 28 54 29 43 4F  24 3B 3A 82 3A 4E 52 B2  |TE$(T)CO$;:.:NR.|
00000820: 4E 52 AA 31 3A 8E 00 00  00 52 53 78 A2 0A A0 00  |NR.1:....RSx....|
00000830: 86 14 84 15 A2 BD A0 45  86 FC 84 FD A0 00 A2 7B  |.......E.......{|
00000840: BD DE 45 9D 33 03 CA D0  F7 4C 84 03 46 08 0A 00  |..E.3....L..F...|
00000850: 97 35 33 32 38 31 2C 31  3A 97 35 33 32 38 30 2C  |.53281,1:.53280,|
00000860: 31 3A 97 36 35 30 2C 30  3A 43 44 88 C0 FF D0 02  |1:.650,0:CD.....|
00000870: C6 FD B1 FC 85 FF 88 C0  FF D0 02 C6 FD B1 FC C9  |................|
00000880: 73 F0 2F 9D C1 45 CA E0  FF D0 06 CE 6D 03 CE 8C  |s./..E......m...|
00000890: 03 C6 FF D0 EE 88 C0 FF  D0 02 C6 FD B1 FC C9 73  |...............s|
000008A0: F0 C9 9D C1 45 CA E0 FF  D0 EB CE 6D 03 CE 8C 03  |....E......m....|
000008B0: D0 E3 A2 1F BD 33 03 9D  00 08 CA D0 F7 A9 73 A9  |.....3........s.|
000008C0: 37 85 01 58 4C BC A8 43  C4 28 98 92 00 A5 2D 18  |7..XL..C.(....-.|
000008D0: 65 2E C9 D6 F0 06 4C 00  23 4C 80 46 AD 0B 08 18  |e.....L.#L.F....|
000008E0: 6D 0C 08 6D 0D 08 C9 EF  F0 EF 4C 00 23 20 53 E4  |m..m......L.# S.|
000008F0: 4C 16 08 A2 00 8E 20 D0  4C 00 23 C0 92           |L..... .L.#..   |

 **.J=L..".".10)"... RENAME ANY DISK FIL
E ":.10200.Y=N..ER.0.3670..=P..10220:.A$
."Y".3660..=R..1710..>V..10280: 2:.ER.0.
3695.%>`..A$."N".3290./>J..3670.J>O..".E
NTER .NEW. FILE NAME";:.10020:.S$."".S$.
"C64 DATA".|>P..S$..NA$.3700..>Q.."... F
ILE NAMES ARE THE SAME ":.10240:.A$."N".
3290..>R..3670..>T..".. RENAMING FILE":.
15,"R:"S$"="NA$:.10210:.ER.0.3290..?~..1
0220:.A$."Y".3670..?...3290.6? .. ** RE-
RUN PROGRAM **.N?...".".10)". . RESET HI
PERBASE ..":.10380:.A$."Y"..:..~?...1026
0:.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.2
0.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$"..";:.100
30..@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.'.10
090:.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$."Y
N":.10090:.A$:...BN'."..ENTER OPTION NUM
BERS & RETURN TO FINISH":..PBX'."..INSER
T 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";:.100
20:.S$."".S$."C64 DATA".~C2(NA$.S$:.2,DD
,2,S$.",S,".TY$:.10210:.ER.0....C<(.1022
0:...CF(.".ENTER CURRENT DATE";:.10020:E
D$.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 PASSWORD [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.(."... EN
TER 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 F
IELDS 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