PRINTFILES2

00000000: 55 54 49 4E 45 53 20 2A  2A 2A 00 AE 3F 1A 27 81  |UTINES ***..?.'.|
00000010: 54 B2 31 A4 44 4C 3A 82  3A 8E 00 C9 3F 24 27 97  |T.1.DL:.:...?$'.|
00000020: 31 39 38 2C 30 3A 53 24  B2 22 22 3A 99 22 20 2D  |198,0:S$."":." -|
00000030: 20 A4 9D 22 3B 00 E8 3F  2E 27 A1 41 24 3A 41 B2  | ..";..?.'.A$:A.|
00000040: C6 28 41 24 AA 4E 4C 24  29 3A 8B 41 B2 30 A7 31  |.(A$.NL$):.A.0.1|
00000050: 30 30 33 30 00 F9 3F 38  27 8B 41 B2 31 33 A7 99  |0030..?8'.A.13..|
00000060: 22 20 22 3A 8E 00 0F 40  42 27 8B 41 B2 32 30 AF  |" ":...@B'.A.20.|
00000070: 53 24 B2 22 22 A7 31 30  30 33 30 00 3A 40 4C 27  |S$."".10030.:@L'|
00000080: 8B 41 B2 32 30 A7 53 24  B2 C8 28 53 24 2C C3 28  |.A.20.S$..(S$,.(|
00000090: 53 24 29 AB 31 29 3A 99  41 24 22 A4 9D 22 3B 3A  |S$).1):.A$"..";:|
000000A0: 89 31 30 30 33 30 00 60  40 51 27 8B 41 B1 31 33  |.10030.`@Q'.A.13|
000000B0: 32 AF 41 B3 31 34 31 A7  41 24 B2 46 4B 24 28 41  |2.A.141.A$.FK$(A|
000000C0: AB 31 33 32 29 3A 89 31  30 30 38 30 00 75 40 56  |.132):.10080.u@V|
000000D0: 27 8B 41 B3 33 32 B0 41  B1 39 35 A7 31 30 30 33  |'.A.32.A.95.1003|
000000E0: 30 00 92 40 60 27 53 24  B2 53 24 AA 41 24 3A 99  |0..@`'S$.S$.A$:.|
000000F0: 41 24 22 A4 9D 22 3B 3A  89 31 30 30 33 30 00 9D  |A$"..";:.10030..|
00000100: 40 6A 27 97 31 39 38 2C  30 00 B2 40 6F 27 A1 41  |@j'.198,0..@o'.A|
00000110: 24 3A 8B 41 24 B2 22 22  A7 31 30 30 39 35 00 DB  |$:.A$."".10095..|
00000120: 40 74 27 81 54 B2 31 A4  C3 28 42 24 29 3A 8B 41  |@t'.T.1..(B$):.A|
00000130: 24 B2 CA 28 42 24 2C 54  2C 31 29 A7 54 B2 C3 28  |$..(B$,T,1).T..(|
00000140: 42 24 29 3A 82 3A 8E 00  E8 40 7E 27 82 3A 89 31  |B$):.:...@~'.:.1|
00000150: 30 30 39 30 00 0C 41 88  27 41 B2 C3 28 41 24 29  |0090..A.'A..(A$)|
00000160: 3A 99 41 24 C8 28 42 53  24 2C 41 AA 31 29 C8 28  |:.A$.(BS$,A.1).(|
00000170: 55 4C 24 2C 41 29 3A 8E  00 28 41 92 27 44 4C B2  |UL$,A):..(A.'DL.|
00000180: 30 3A 81 54 B2 31 A4 4E  43 3A 43 48 25 28 54 29  |0:.T.1.NC:CH%(T)|
00000190: B2 30 3A 82 00 3D 41 97  27 8D 31 30 30 39 30 3A  |.0:..=A.'.10090:|
000001A0: 8B 41 24 B2 43 52 24 A7  8E 00 5F 41 9C 27 41 B2  |.A$.CR$..._A.'A.|
000001B0: C5 28 41 24 29 3A 8D 31  30 31 35 30 3A 44 4C B2  |.(A$):.10150:DL.|
000001C0: 44 4C AA 31 3A 89 31 30  31 33 35 00 82 41 A6 27  |DL.1:.10135..A.'|
000001D0: 99 C8 28 43 44 24 2C 41  AA 42 29 22 3E 22 3A 8B  |..(CD$,A.B)">":.|
000001E0: 43 48 25 28 41 29 A7 44  4C B2 44 4C AB 31 00 96  |CH%(A).DL.DL.1..|
000001F0: 41 B0 27 43 48 25 28 41  29 B2 31 3A 4F 50 B2 41  |A.'CH%(A).1:OP.A|
00000200: 3A 8E 00 C6 41 BA 27 99  C8 28 43 44 24 2C 42 AA  |:...A.'..(CD$,B.|
00000210: 4E 43 AA 34 29 22 12 20  41 52 45 20 54 48 45 53  |NC.4)". ARE THES|
00000220: 45 20 43 4F 52 52 45 43  54 20 28 59 2F 4E 29 20  |E CORRECT (Y/N) |
00000230: 22 3B 00 DF 41 C4 27 42  24 B2 22 59 4E 22 3A 8D  |";..A.'B$."YN":.|
00000240: 31 30 30 39 30 3A 99 41  24 3A 8E 00 12 42 CE 27  |10090:.A$:...B.'|
00000250: 99 22 11 9A 45 4E 54 45  52 20 4F 50 54 49 4F 4E  |."..ENTER OPTION|
00000260: 20 4E 55 4D 42 45 52 53  20 26 20 52 45 54 55 52  | NUMBERS & RETUR|
00000270: 4E 20 54 4F 20 46 49 4E  49 53 48 22 3A 8E 00 50  |N TO FINISH":..P|
00000280: 42 D8 27 99 22 11 9C 49  4E 53 45 52 54 20 44 41  |B.'."..INSERT DA|
00000290: 54 41 20 44 49 53 4B 20  49 4E 54 4F 20 44 52 49  |TA DISK INTO DRI|
000002A0: 56 45 2C 48 49 54 20 41  20 4B 45 59 22 3A 8D 31  |VE,HIT A KEY":.1|
000002B0: 30 32 35 30 3A 98 31 35  2C 22 49 22 00 67 42 E2  |0250:.15,"I".gB.|
000002C0: 27 84 31 35 2C 45 52 2C  45 52 24 2C 54 45 2C 53  |'.15,ER,ER$,TE,S|
000002D0: 45 3A 8E 00 99 42 EC 27  99 22 11 1C 2A 20 44 49  |E:...B.'."..* DI|
000002E0: 53 4B 20 45 52 52 4F 52  20 2A 20 23 22 45 52 3B  |SK ERROR * #"ER;|
000002F0: 45 52 24 3B 3A 8B 54 45  A7 99 22 20 4F 4E 22 54  |ER$;:.TE.." ON"T|
00000300: 45 3B 53 45 3B 00 A3 42  F6 27 99 43 52 24 3B 00  |E;SE;..B.'.CR$;.|
00000310: C9 42 00 28 99 22 11 9A  12 20 54 52 59 20 41 47  |.B.(."... TRY AG|
00000320: 41 49 4E 20 28 59 2F 4E  29 20 22 3B 3A 8D 31 30  |AIN (Y/N) ";:.10|
00000330: 31 38 30 3A 8E 00 E4 42  0A 28 97 31 39 38 2C 30  |180:...B.(.198,0|
00000340: 3A 92 31 39 38 2C 31 3A  97 31 39 38 2C 30 3A 8E  |:.198,1:.198,0:.|
00000350: 00 0D 43 14 28 99 A6 35  29 22 9A 12 11 20 50 52  |..C.(..5)"... PR|
00000360: 45 53 53 20 41 4E 59 20  4B 45 59 20 54 4F 20 43  |ESS ANY KEY TO C|
00000370: 4F 4E 54 49 4E 55 45 20  22 00 1A 43 1E 28 8D 31  |ONTINUE "..C.(.1|
00000380: 30 32 35 30 3A 8E 00 4F  43 28 28 99 22 11 45 4E  |0250:..OC((.".EN|
00000390: 54 45 52 20 46 49 4C 45  20 4E 41 4D 45 22 3B 3A  |TER FILE NAME";:|
000003A0: 8D 31 30 30 32 30 3A 8B  53 24 B2 22 22 A7 53 24  |.10020:.S$."".S$|
000003B0: B2 22 43 36 34 20 44 41  54 41 22 00 7E 43 32 28  |."C64 DATA".~C2(|
000003C0: 4E 41 24 B2 53 24 3A 9F  32 2C 44 44 2C 32 2C 53  |NA$.S$:.2,DD,2,S|
000003D0: 24 AA 22 2C 53 2C 22 AA  54 59 24 3A 8D 31 30 32  |$.",S,".TY$:.102|
000003E0: 31 30 3A 8B 45 52 B2 30  A7 8E 00 8B 43 3C 28 8D  |10:.ER.0....C<(.|
000003F0: 31 30 32 32 30 3A 8E 00  B7 43 46 28 99 22 11 45  |10220:...CF(.".E|
00000400: 4E 54 45 52 20 43 55 52  52 45 4E 54 20 44 41 54  |NTER CURRENT DAT|
00000410: 45 22 3B 3A 8D 31 30 30  32 30 3A 45 44 24 B2 53  |E";:.10020:ED$.S|
00000420: 24 3A 8E 00 E2 43 50 28  98 32 2C 51 4F 24 45 44  |$:...CP(.2,QO$ED|
00000430: 24 43 4F 24 45 44 24 43  4F 24 50 57 24 51 4F 24  |$CO$ED$CO$PW$QO$|
00000440: 43 52 24 C7 28 4E 46 29  51 4F 24 3B 3A 8E 00 07  |CR$.(NF)QO$;:...|
00000450: 44 5A 28 84 32 2C 44 41  24 2C 55 44 24 2C 50 57  |DZ(.2,DA$,UD$,PW|
00000460: 24 3A A1 23 32 2C 41 24  3A 4E 46 B2 C6 28 41 24  |$:.#2,A$:NF..(A$|
00000470: 29 3A 8E 00 46 44 64 28  99 22 11 45 4E 54 45 52  |):..FDd(.".ENTER|
00000480: 20 50 41 53 53 57 4F 52  44 20 5B 52 45 54 55 52  | PASSWORD [RETUR|
00000490: 4E 20 49 46 20 4E 4F 4E  45 5D 22 3B 3A 8D 31 30  |N IF NONE]";:.10|
000004A0: 30 32 30 3A 41 24 B2 22  22 3A 8B 53 24 B2 22 22  |020:A$."":.S$.""|
000004B0: A7 8E 00 71 44 6E 28 81  54 B2 31 A4 C3 28 53 24  |...qDn(.T.1..(S$|
000004C0: 29 3A 41 24 B2 41 24 AA  C7 28 C6 28 CA 28 53 24  |):A$.A$..(.(.(S$|
000004D0: 2C 54 2C 31 29 29 AA 54  29 3A 82 3A 8E 00 9C 44  |,T,1)).T):.:...D|
000004E0: 78 28 98 33 2C 51 4F 24  44 41 24 43 4F 24 45 44  |x(.3,QO$DA$CO$ED|
000004F0: 24 43 4F 24 50 57 24 51  4F 24 43 52 24 C7 28 4E  |$CO$PW$QO$CR$.(N|
00000500: 46 29 51 4F 24 3B 3A 8E  00 BA 44 82 28 81 54 B2  |F)QO$;:...D.(.T.|
00000510: 31 A4 4E 46 3A 98 33 2C  44 46 24 28 54 29 43 4F  |1.NF:.3,DF$(T)CO|
00000520: 24 3B 3A 82 3A 8E 00 E3  44 8C 28 99 22 11 12 1C  |$;:.:...D.(."...|
00000530: 20 41 52 45 20 59 4F 55  20 53 55 52 45 20 28 59  | ARE YOU SURE (Y|
00000540: 2F 4E 29 20 22 3B 3A 8D  31 30 31 38 30 3A 8E 00  |/N) ";:.10180:..|
00000550: 22 45 96 28 99 22 11 9A  12 20 45 4E 54 45 52 20  |"E.(."... ENTER |
00000560: 52 45 43 4F 52 44 20 23  22 4E 52 22 11 22 3A 81  |RECORD #"NR".":.|
00000570: 54 B2 31 A4 4E 46 3A 99  22 45 4E 54 45 52 20 22  |T.1.NF:."ENTER "|
00000580: 44 46 24 28 54 29 3B 3A  8D 31 30 30 32 30 00 4A  |DF$(T);:.10020.J|
00000590: 45 A0 28 8B 54 B2 31 AF  53 24 B2 22 58 58 58 22  |E.(.T.1.S$."XXX"|
000005A0: A7 98 4C 46 2C 53 24 51  4F 24 3A 54 B2 4E 46 3A  |..LF,S$QO$:T.NF:|
000005B0: 82 3A A0 32 3A 8E 00 85  45 AA 28 54 45 24 28 54  |.:.2:...E.(TE$(T|
000005C0: 29 B2 53 24 3A 82 3A 99  22 11 9F 41 52 45 20 41  |).S$:.:."..ARE A|
000005D0: 4C 4C 20 46 49 45 4C 44  53 20 43 4F 52 52 45 43  |LL FIELDS CORREC|
000005E0: 54 20 28 59 2F 4E 29 20  22 3B 3A 8D 31 30 31 38  |T (Y/N) ";:.1018|
000005F0: 30 00 97 45 B4 28 8B 41  24 B2 22 4E 22 A7 31 30  |0..E.(.A$."N".10|
00000600: 33 39 30 00 BE 45 BE 28  81 54 B2 31 A4 4E 46 3A  |390..E.(.T.1.NF:|
00000610: 98 4C 46 2C 54 45 24 28  54 29 43 4F 24 3B 3A 82  |.LF,TE$(T)CO$;:.|
00000620: 3A 4E 52 B2 4E 52 AA 31  3A 8E 00 00 00 52 53 78  |:NR.NR.1:....RSx|
00000630: A2 0A A0 00 86 14 84 15  A2 BD A0 45 86 FC 84 FD  |...........E....|
00000640: A0 00 A2 7B BD DE 45 9D  33 03 CA D0 F7 4C 84 03  |...{..E.3....L..|
00000650: 46 08 0A 00 97 35 33 32  38 31 2C 31 3A 97 35 33  |F....53281,1:.53|
00000660: 32 38 30 2C 31 3A 97 36  35 30 2C 30 3A 43 44 88  |280,1:.650,0:CD.|
00000670: C0 FF D0 02 C6 FD B1 FC  85 FF 88 C0 FF D0 02 C6  |................|
00000680: FD B1 FC C9 73 F0 2F 9D  C1 45 CA E0 FF D0 06 CE  |....s./..E......|
00000690: 6D 03 CE 8C 03 C6 FF D0  EE 88 C0 FF D0 02 C6 FD  |m...............|
000006A0: B1 FC C9 73 F0 C9 9D C1  45 CA E0 FF D0 EB CE 6D  |...s....E......m|
000006B0: 03 CE 8C 03 D0 E3 A2 1F  BD 33 03 9D 00 08 CA D0  |.........3......|
000006C0: F7 A9 73 A9 37 85 01 58  4C BC A8 43 C4 28 98 92  |..s.7..XL..C.(..|
000006D0: 00 A5 2D 18 65 2E C9 D6  F0 06 4C 00 23 4C 80 46  |..-.e.....L.#L.F|
000006E0: AD 0B 08 18 6D 0C 08 6D  0D 08 C9 EF F0 EF 4C 00  |....m..m......L.|
000006F0: 23 20 53 E4 4C 16 08 A2  00 8E 20 D0 4C 00 23 C0  |# S.L..... .L.#.|
00000700: 92                                                |.               |

UTINES ***..?.'.T.1.DL:.:..I?$'.198,0:S$
."":." - ..";..?.'.A$:A.F(A$.NL$):.A.0.1
0030..?8'.A.13.." ":...@B'.A.20.S$."".10
030.:@L'.A.20.S$.H(S$,C(S$).1):.A$"..";:
.10030.`@Q'.A.132.A.141.A$.FK$(A.132):.1
0080.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$):.1
0150: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'."..ENTE
R OPTION NUMBERS & RETURN TO FINISH":..P
BX'."..INSERT DATA DISK INTO DRIVE,HIT A
 KEY":.10250:.15,"I".GB.'.15,ER,ER$,TE,S
E:...B.'."..* DISK ERROR * #"ER;ER$;:.TE
.." ON"TE;SE;..B.'.CR$;.IB.(."... TRY AG
AIN (Y/N) ";:.10180:...B.(.198,0:.198,1:
.198,0:...C.(..5)"... PRESS ANY KEY TO C
ONTINUE "..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 DAT
E";:.10020:ED$.S$:...CP(.2,QO$ED$CO$ED$C
O$PW$QO$CR$G(NF)QO$;:...DZ(.2,DA$,UD$,PW
$:.#2,A$:NF.F(A$):..FDD(.".ENTER PASSWOR
D [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(N
F)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$."XXX"
..LF,S$QO$:T.NF:.: 2:...E.(TE$(T).S$:.:.
"..ARE ALL FIELDS CORRECT (Y/N) ";:.1018
0..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:.6
50,0:CD...P.F........P.F...IS./.AEJ..P.N
M.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