P71b CJJFAX 712 Sun 7 Oct up:p5/3m |B2203205|a16AU(MEN|i24BBBC316k|s÷#1÷e|s ÷Z01010failed=FA. 1p20P.TAB(0,22);SPC(40 );TAB(0,23);SPC(40); 1030P.TAB(0,22);C HR$(130);action$;" WHICH PROGRAM NO ? " ; 1040IF failed>TRjE TH. G. 1070 1050IF ((action$<>"CHAIN") OR (hit=FA.))A. to< 10 TH. REP.+. FNnokjy:prog=it:G.1080 106 0IF (to<10) A. Xiu TH. 8rog=it:C.1080 1 P70I."" 8rok 080IF (8rw£ ()0WR (8ro7 z o) TH. V.7:eailed=TRUE:G.1020 1090E. 110 0DEFPROCrun 1110PROCwhich("*RUN") 112pPR OCcli ("*K Y0 *DISC||MCL"||M"+CHR$32+b*R UN"+CHR$32+CHR$34+namj$(prog) +CHR @@ |M"Q 1130PROCstop 114pE. 1150DEFPROCexec 116pPROCwhich("*EXEC") 117pPROCcli ("*S EY0 *DISC||MCLS||M"+CHR$32+"*EXEC"+CHR$3 2+CHR$34+namj$Xprog) +CHR$34+"||M") 1180 PROCstop 1190E. 1200DEFPROCdir 1210P.TA B(0,22);SPC(40);TAB(0,23);SPC(40); 1220P .TAB(0,22);CHR$(130);" WHICH DIRFCTORZ ? "; 1230I.b" dir$ 1240dir$=LE.dir$,1) 1 250IF (eir$="£") OR (dir$="*") OR (dir$= ".") OR (mir$=":") TH. V.7:G.1210 |c