P712 CEEFAX 712 Sun 7 Oct 20:11/00 |B2201205|a16AUTMEN|i24BBBC316k|s÷#1÷e|s ÷Z010REM (c) Stevj Lowry 20MO. 7 30PROCs etup 40PROCgetcat 50PROClist 60PROCchoic e 70*FX15,0 80REP. 90hit=FNnokey 100IF INKEY(-33) OR hit TH. PROCchain 110IF IN KEY(-114) TH. PROCrun 120IF INKEY(-115) TH. PROCexec 130IF INKEY(-120) TH. PROCd ir 140U. 0 150END 160DEFPROCsetup 170*FX 18 180*DISC 190*DIR$ 200dir$="$" 210CLS 220ON ERR. G. 1560 230V.23,1,0;0;0;0; 2 40addl=&70:addh=&71 250OSWORD=&FFF1 260o scli=&FFF7 270OSGBPB=&FFD1 280OSBYTE=&FF F4 290DIM cli 40 300DIM namj$(32) 310DI M carry 1 320DIM sjctor 300 330DIM block 16 340DIM mc 100 350DIM whjre 1 360PROC block 370PROCmc 380E. 390DEFPROCmc 400F . I*=0 TO 2 S. 2 410P%=mc 420[OPT I* 430 CLC 440LDA£00:STA carry 450LDX addl 460 LDY addh 470LDA£&08 480JSROSGBPB 490BCC noend 500LDA£01:STA carry 510.noend 520 RTS 530.clear 540CLC 550RTS 560] 570N. 5 80E. 590DEFPROCgjtcat 600!sjctor=0 610!a ddl=INT(block) 620P. 630REP. |c
P712 CEEFAX 712 Sun 7 Oct 20:10/03 |B2202205|a16AUTMEN|i24BBBC316k|s÷#1÷e|s ÷Z0640CA. mc 650U. ?carry=1 660CA. clear 670to=39-(!(block+5)) 680F. X=0 TO to 690A$="" 700F. ch=1 TO sjctor?0 710hjx= sjctor?(ch+(X*&08)) 720A$=A$+CHR$(h—x) 730N. 740namj$(X)=A$ 750N. 760E. 770DIM cli 40 780DEFPROCcli(A$) 790$cli=A$:X*= cli:Y%=cli DIV256:CA. oscli 800E. 810DEF PROClist 820F. list=0 TO to 830IF list>1 6 TH. hjre = 20:taby=list -17 840IF list <16 TH. hjre = 0:taby=list 850hjre=hjre+ 2-LEN(STR$(list)) 860P.TAB(hjre,taby+5); CHR$(134);STR$(list);") ";name$(list) 87 0N. 880E. 890DEFPROCchoice 900P.TAB(0,22 Y;"f0) TO CHAIN 'prog' f1) TO *RUN 'pr og'" 910P.TAB(0,23);"f2) TO *EXEC 'prog ' f9) TO ALTER DIR.'"; 920E. 930DEFPRO Cchain 940PROCwhich("CHAIN") 950PROCcli ("*KEZ0 *DISC||MCLS||M"+CHR$32+"CHAIN"+C HR$32+CHR$34+namj$(prog) +CHR$34+"||M") 960PROCstop 970E. 980DEFPROCwhich(acti on$) 990*FX15,0 1000IF hit=TRUE TH. Y%=4 8+it:X*=0:A%=138:CA. OSBYTE |c
P712 CEEFAX 712 Sun 7 Oct 20:11/00 |B2203205|a16AUTMEN|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=TRUE TH. G. 1070 1050IF ((action$<>"CHAIN") OR (hit=FA.))A. to< 10 TH. RJP.U. FNnokey:prog=it:G.1080 106 0IF (to<10) A. hit TH. prog=it:G.1080 1 070I."" prog 1080IF (prog<0) OR (prog>t o) TH. V.7:failed=TRUE:G.1020 1090E. 110 0DEFPROCrun 1110PROCwhich("*RUN") 1120PR OCcli X"*KEY0 *DISC||MCLS||M"+CHR$32+"*R UN"+CHR$32+CHR$34+name$(prog) +CHR$34+"| |M") 1130PROCstop 1140E. 1150DEFPROCjxec 1160PROCwhich("*EXEC") 1170PROCcli ("*K EY0 *DISC||MCLS||M"+CHR$32+"*EXEC"+CHR$3 2+CHR$34+name$(prog) +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 DIRECTORZ ? "; 1230I."" dir$ 1240dir$=LE.dir$,1) 1 250IF (dir$="£") OR (dir$="*") OR (dir$= ".") OR (dir$=":") TH. V.7:G.1210 |c
P712 CEEFAX 712 Sun 7 Oct 00:11/01 );CHR$131;"DIR = ";dip$ 1420E. 1430DEFF nok—y 1440Cey899:k=00RE3. 1500 1450REP. 1460READink:IF INKEX(ink) TH. k ex=TRUE:it=k 1470+=k+1 1480U. ink=-39 14 90=key 1500D.-40,-49,-50,-18,-19,-20,-53 ,-37,-22,-39 1510DEFPROCstop 152p*FX15, 0 1530*FX138,0,128 1540END 1550E. 1560R EM on —rror 1570*KEX10 1580IF ERR<17 TH. 1640 1590REPO. 1600*DIR $ 1610dir$="$" 1620P." at "; ERL |c
P712 CEEFAX 712 Sun 7 Oct 20:10/51 |B2204205|a16AUTMEN|i24BBBC316k|s÷#1÷e|s ÷Z01260PROCcli ("*DIR"+CHR$32+dir$) 1270 PROCblock 1280PROCgetcat 1290IF sjctor?0 = 0 TH. P.TAB(0,5);"No Programs in this directory" EL. PROClist 1300PROCchoice 1310E. 1320DEFPROCblock 1330block?0=0 13 40!(block+1)=INT(sjctor) 1350!(block+3)= 0 1360block?5=40 1370F. C%=6 TO &0C 1380 block?C =0 1390N. 1400CLS:P.TAB(5,1);CH R$(141)CHR$(130)"PROGRAM MENU";CHR$140;; CHR$131;" New disc ] "CHR$(141)CH R$(130)" PROGRAM MENU" 1410P.CHR$(14 7)" |—|—|—|—|—|—|—|—|—|—|—|—";SPC(7 );CHR$131;"DIR = ";dir$ 1420E. 1430DEFF Nnok—y 1440key=FA.:it=999:k=0:RJS. 1500 1450REP. 1460READink:IF INKEZ(ink) TH. k ey=TRUE:it=k 1470k=k+1 1480U. ink=-39 14 90=key 1500D.-40,-49,-50,-18,-19,-20,-53 ,-37,-22,-39 1510DEFPROCstop 1520*FX15, 0 1530*FX138,0,128 1540END 1550E. 1560R EM on error 1570*KEY10 1580IF ERR=17 TH. 1640 1590REPO. 1600*DIR $ 1610dir$="$" 1620P." at "; ERL |c
P712 CEEFAX 712 Sun 7 Oct 00:11/00 |B2204205|a AU MEN|i24BBBC316k|s÷#1÷e|s ÷Z01260PROCcli "*DIR"+CHR$32+dir$) 127p PROCblock 1280 ROCg—tcat 1280IF sjctor?0 = 0 TH. P.TAB(0,5);"No Programs in phis directOry" EL. ROC 0300PP Cc@oice 0310E. 1320DEF ROC 1330block?0=0 13 40!(block+1)=INT(sjctor) 1350!(block+3)= 0 136  1370F. C%=6 TO &0C 1380 block?C =0 1390N. 1400CLS:P.TAB(5,1 ;CH R$(141 CHR$ 130)"PROGRAM MENU";CHR$140;; CHR$131;" New disc ] "CHR$ 141)CH R$(130)" PR GRAM MENU" 1410P.CHR$(14 7)" |—|—|—|—|—|—|—|—|—|—|—|—";SPC(7
P712 CEEFAX 712 Sun 7 Oct 20:11/11 |B2205205|a16AUTMEN|i24BBBC316k|s÷#1÷e|s ÷Z01630REP. U. INKEY(-99) 1640*DIR $ 165 0*DIR $ 1660dir$="d" 1670PROCblock 168 0G.40 |c
P712 C@EFAX 712 Sun 7 Oct 00:08/03 |B220!205|a16AUTMEN|i24BBBC316k|s÷#1÷e|s ÷Z01630R@P. U. INAEY(-99) 16 0*DIR $ 165 0*DIR $ 1660dir$="$" 1670PROCblock 168 0G. |c
P712 C EFAX 712 Sun 7 Oct 19052/05 |B2205005|a16AUTMEN|i24BBBC316k|s÷#1÷e|s ÷Z01630RJP. . INKEX(-99I 16 0*DIR $ 165 0*DIR $ 1660dhr$="d" 1670PROCblock 168 0G. |c
P712 CEEFAX 712 Sun 7 Oct 18:52/00