' CBTKEY.BAS (C) 1985 BY CHRISDOSI FUNCTION KEY FILE MAKER FORk CBTERM/C64 (C) (TM) 1985 BY CHRISDOS. ALL RIGHTS RESERVED._ V$(60),V(60):20008c(14)d" UNCTION EY ILE ROCESSOR" n" FOR TERM/64 (C) (TM) 1985"+ x" BY HRISDOS."L RR$(18):NV$(146):RV$NV$h Z132:ZZ$ZZ$(0): " 1 AKE A UNCTION EY ILE." " 2 OAD AND DIT AN ILE." " 3 AVE THE UNCTION EY ILE." " 4 IST AND DIT UNCTION EYS." " 5 "7 " HOICE";CZ C 1000,2000,3000,4000,5000d 100x , GET FILE NAME 6" ILE AME:";F$ @  DISPLAY LINES  L16 " EY"L;  M131 A$(L$(L),M,1) A(A$(0)) 20010:RV$;A$;NV$;  M:: L" 9  INPUT A NEW LINEe L0:"HAT EY UMBER. (0 TO END.)";Lq L0  L1 L6 510 "NTER NEW LINE FOR "L" (31 MAX)" &"RESS < > WHEN FINISHED." 0CC0:AA$"" :A$:A$""570 ?A$(29)6108 DAA$AA$A$:A(A$):20010:RV$;A$;NV$;O NCCCC1:CC31610Y X 570q bL$(L)(AA$ZZ$,32)w l  NEW FILE  H1 6 L$(H)ZZ$:  2020  LOAD DISPLAY AND EDIT  10000 "": 400 "": 500 L0  2020 10100-  LIST AND EDIT8  2020M "RE YOU URE?"i  X$:(X$,1)"Y" 100o  ' OPEN FILE FOR INPUT ' 300 $'8,8,8,F$",R,S" .' L16:L$(L)"" 8' M132 B'#8,A$:(A$(0)); L'L$(L)L$(L)A$V' M: L `' 8j'$t' WRITE FILE OUT.~' 300C'8,8,8,F$",W,S"O' L16]'8,L$(L);e' Lm' 8s' N "",176,"",191,"",188,"",172,"",177,"",187,"",165,"",180!N "",162,"",181,"",161,"",182,"",167,"",170,"",185,"",175E"N "",171,"",178,"",174,"",163,"",184,"",190,"",179,"",186#N "",183,"",173,"1",129,"2",149,"3",150,"4",151,"5",152,"6",153$N "7",154,"8",155,"9", 41,"$", 95%N "<1>",133,"<2>",137,"<3>",134,"<4>",138,"<5>",136,"<6>",139=&N "<7>",136,"<8>",140,"+",166,"-",220,"@",164,"*",223,"^",222_(NKC49:X1KC:V$(X),V(X)::t*N CHECK C= VALUE/NRV$NV$:A00N A32 201001N(A32A90)(A193A218)4N CK1KCHN AV(CK) A$V$(CK):CKKC:R $RR$RN CK\NNRV$RR$&NA$"^"(A64128),N