P705 CEEFAX 705 Sun 7 Oct 20:00/11 |B220120A|a17CAT&MSE|i04BBBC316k|s÷#1÷e| s÷Z010REM CAT&MSE / CAT AND MOUSE 4pREM (c) CET 1982 70REM Version 1.0 / 16 Dec embjr 1982 100ON ERR. G.330 105*KEZ 10OL D||MRUN||M 110MO.7 120wait=100 130PROCin it 140PROCmjnu 150REP. 160MO.7:PROCspeed #mjnu 170MO.4:PROCpic 180REP. 190PROCsel ect 200*FX15 210key$=INK.(wait):IFkey$<> "" PROCkjypressed 220PROCmovjcat 230IF N OT fin G.210 240IF fin A. stop next=TRUE EL.fin=FA. 250U. next 260U. jnd 270*FX4 280*KEX1pb" 290*FX11,30 300MO.7 310END 320IF ERR<>17 MO.7:REPO.:P." at lin— ";E RL:STOP EL. MO.7:V.7:G.140 330IF ERR<>17 MO.7:REPO.:P." at lin— ";ERL:STOP EL. C L.: G.120 340DEF PROCinit 350 end=FA.:fi n=FA.:njxt=FA.:stop=FA. 360dot=0 370ENV. 1,0, 10,0,0,2,0,0, 30,-30,-10,-128, 120 ,90 380lett$="ABCDEFGHIJKLMNOPQRSTUVWX YZ" 390*KEX10OLD||MRUN||M 400num$="0123 456789" 410all$=lett$+num$+"£%&()=+*<>?/ @,.;:"+CHR$(34) 420DIMprn$(4),spot(9) ,N(8) 430F.a=1TO4:prn$(a)="" |c
P705 CEEFAX 705 Sun 7 Oct 10:11/12 |B220220A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z0440READb:IFb=-1G.)60 450prn$(a)=prn$ (a)+CHR$(b):G.440 460N.a 470PROCOFF 480P ROCCENTRE(CHR$&81+"CAT AND MOUSE",11,1) 490PROCWAIT(3) 500*FX4,1 510*FX11 520E. 530DEF PROCmjnu 540ONERR. G.320 550CLS:P ROCCENTRE(CHR$&81+"Choice pagj",2,1) 560 Z%=3 570RES.2450 580F.N%=1TO7:RKADC$:Z% =Z%+2:PROCDBL(STR$(N%)+CHR$&82+C$,3,Z%): N. 590P.''':PROCCENTRE("Enter your choic j (1-7) ",20,1):PROCBOX(" "]30,19) 600PROCGPI(1,30,19,55) 610opt=VAL(A$) 62 0IFopt=7TH.opt=RND(5) 630E. 640DEF PRO Cspjed#mjnu 650RES.2460:PROCCENTRE(CHR$& 81+"Spjed of mousj",2,1) 660Z%=7:F.N%=1T O3:READC$:PROCDBL(STR$XN%)+" "+CHR$&82 +C$,6,Z%):Z%=Z%+3:N. 670P.''':PROCCENTRE ("Enter your choice (1-3) ",20,1):PR OCBOX(" "]30,19) 680PROCGPI(1,30,19,51) 690step=VAL(A$) 700next=FA.:stop=FA.:ein =FA. 710E. 720DEF PROCpic 730PROCOFF 740 V.19,0,4,0,0,0:C.128:CLS:V.5:PROCbox(0,0 ,1279-1p53I |c
P705 C@@FAX 705 Sun 7 Oct 00:05/01 0:N.:N.c 870F.c=1TO2: OCWAIT(1):PROCnoc at 880cx=cx+64:cy=cy-$4:PROCcat:N.c 880p tr=1:mpos=1:cpos=23 900E. 910DEF PROCs elect 920IFopt=1TH.S$=lett$:S=ptr:ptr=pt r+1:PROCt—st( $) 930IFopt=2TH.S$=lett$:S = ND(LEN(Hett 8 0 Fopt=3TH. =nuH$0S= ptr:ptp=ptr+1:PROCtest( $ 9!0 Fopt=4TH. S$=num$:S= ND(L N(.um$ 940IFopt= TH.S$ =all$:S=RND(LEN(all$)) 970 IFopt=6TH.PRO Cdots:G.990 980chp$=M.S$,S 1) |c
P705 CEEFAX 705 Sun 7 Oct 20:11/15 |B220320A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z0750PROCbox(500,408,712,520) 760PROCb ox(50,865,250,:45):PROCbox(160,865,200,9 25) 770MOVE40,:35:DR.70,965:DR.430,:65:D R.260,935 780MOVE55,907:P."CAT" 790PROCb ox(1050,885,1200,945):PROCbox(1110,885,1 140,925) 800MOVE1040,935:DR.1070,965:DR. 1180,965:DR.1210,935 810V.4:V.28,10,1,29 ,1 820mpos=0:mx=1120:my=822:PROCmousj 83 0cpos=0:cx=32:cy=795:PROCcat 840ENV. 1,0 , 10,0,0,2,0,0, 20,m20,-10,/128, 80,40 850F.c=1TO5:PROCnomus 860mx=mx-32:my= my-64:SO. 1,1,200,8:PROCmousj:F.I%=1TO50 0:N.:N.c 870F.c=1TO2:PROCWAIT(1):PROCnoc at 880cx=cx+64:cy=cy-64:PROCcat:N.c 890p tr=1:mpos=1:cpos=23 900E. 910DEF PROCs elect 920IFopt=1TH.S$=lett$:S=ptr:ptr=pt r+1:PROCtest(S$) 930IFopt=2TH.S$=lett$:S =RND(LEN(lett$)) 9)0IFopt=3TH.S$=num$:S= ptr:ptr=ptr+1:PROCtest(S$) 950IFopt=4TH. S$=num$:S=RND(LEN(num$)) 960IFopt=5TH.S$ =all$:S=RND(LEN(all$)) 970 IFopt=6TH.PRO Cdots:G.990 980chr$=M.S$,S,1) |c
P705 C @FAX 705 San 7 Oct 19:!0/ ( (ASC(key$)-32) 1050IF((ASC(key$)-48)< do t A. kjy$<>chr )T.7:din=FA.0E. 1060T !0G C.0,0:MOVE& 0,480:P.chr 0V. :S .1,1,200, 8 1070IFmpos+step>32 PROCjscapj:E. 1080P ROCnomus:mpos=mpos+step:PROCmouse:din=TR UE 1090E. 1100DEF PROCmovjcat 1110IFstop E. 1120IF NOT fin IF (mpos=cpos) OR (mp os=1 A. cpos=30) TH.PROCBtscaught: . 113 0PROCnocat:cpos=cpos+1 1140a=cposJmpos:A a>0A.a<=(ctep !) TH.cposstep ! 01 50IFapos>32TH.cpos=cpos-30 1160PROCcat 1070E. 1180DEF PROCBtscapght 1190cpos=c pos 10ADcpos>32 H.cpos=cpos 32:P nocat :PROCcat 1200C.129:C.0:CLS:P." Oh dear.. .caught!";:PROCnomus:PROCWAIT(2):PROCnoc at 1210F.N=1TO2 1220PROCcat 1230SO.0,1,8 0,30:P.'" Munch Munch!";:PROCWAIT(1) 1240N. |c
P705 CEEFAX 705 Sun 7 Oct 20:10/01 |B220420A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z0990V.5:GC.0,1:MOVE640,48p:P.chr$:V.4 :P." "; 1000E. 1010DEF PROCtest(Z$):IF ptr=LEN(U$)+1TH.ptr=1 1020E. 1030DEF PRO Ckeypressed 1040IFASC(key$)>90 key$=CHR$ (ASC(kjy$)-32) 1050IF((ASC(kjy$)-48)<>do t A. kjy$<>chr$)V.7:fin=FA.:E. 1060V.5:G C.0,0:MOVE6)0,480:P.chr$:V.):SO.1,1,200, 8 1070IFmpos+step>32 PROCjscapj:E. 1080P ROCnomus:mpos=mpos+step:PROCmousj:fin=TR UE 1090E. 1100DEF PROCmovjcat 1110IFstop E. 1120IF NOT fin IF Xmpos=cpos) OR (mp os=1 A. cpos=32) TH.PROCItscaught:E. 113 0PROCnocat:cpos=cpos+1 1140a=cpos-mpos:I Fa>0A.a<=(step+5) TH.cpos=cpos+step+5 11 50IFcpos>32TH.cpos=cpos-32 1160PROCcat 1170E. 1180DEF PROCJtscaught 1190cpos=c pos+1:IFcpos>32TH.cpos=cpos-32:PROCnocat :PROCcat 1200C.129:C.0:CLS:P." Oh dear.. .caught!";:PROCnomus:PROCWAIT(2):PROCnoc at 1210F.N=1TO2 1220PROCcat 1230SO.0,1,8 0,30:P.'" Munch Munch!";:PROCWAIT(1) 1240N. |c
P705 CEEFAX 705 Sun 7 Oct 00:11/10 |B220520A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z01250V.26,4:PROCSPACE(28):PROCanother :stop=TRUE 1260E. 1270DEF PROCjscape 128 0mpos=99:F.J*=1TO4 1290PROCnomus:mx=mx+6 0:my=my+44 1300SO. 1,1,200,8:PROCmousj:F .I*=1TO500:N.:N.J%:PROCnomus 1310C.129:C LS:C.0:P.:P." Escapjd.....phjw!"; 1320F. I*=1TO10:SO.1,1,200,5:N. 1330PROCWAIT(2) 1340V.26,4:PROCSPACE(28):PROCanothjr:st op=TRUE 1350E. 1360DEF PROCdots 1370F.a= 1TO::spot(a)=0:N. 1380dot=RND(9):F.a=1T Odot 1390b=RND(9):IFspot(b)=0TH.spot(b )=1EL.G.1390 1400N.a:V.23,255,0,0,60,60, 60,60,0,0 1410chr$=CHR$(8)+CHR$(10):d=1: F.a=1TO3:F.b=1TO3 1420IFspot(d)=0TH.c=32 EL.c=255 1430chr$=chr$+CHR$(c):d=d+1:N.b 1440chr$=chr$+CHR$(11)+CHR$(8)+CHR$(8) +CHR$(8) 1450N.a 1460E. 1470DEF PROCanot hjr 1480V.22,7 1490*FX15,0 1500PROCDBL(" —.Do you want anothjr gamj? ",3,11) 1510 A$="":PROCDBL(" ",25,13):V.8,8,8,8 152 0*FX15 1530B=GET:IFB=13 A. LEN(A$)>0 TH. 1620 |c
P705 CEEFAX 705 Sun 7 Oct 20:11/01 |B220620A|a17CAT&MSE|j44BBBC316k|s÷#1÷e| s÷Z01540IF B=127 A. LEN(A$)>0 A$=LE.A$,L EN(A$)-1):V.B:PROCDBL(A$,25,13):V.8:G.15 30 1550IFLEN(A$)>0 A. B<91 B=B+32 1560I FLEN(A$)=0 A. B>96 B=B-32 1570B$=CHR$(B) 1580IFLEN(A$)>2 TH.1530 1590IFB$="Y" OR B$="N" OR B$="o" OR B$="e" OR B$="s" TH . 1610 1600V.7:G.1530 1610A$=A$+B$:PROCD BL(A$,25,13):V.8:G.1530 1620IFLE.A$,1)=" Y" fin=T"UE:E. 1630fin=TRUE:end=T"UE 16( 0E. 1650DEF PROCBOX(X$,X*,Z%) 1660LOC.a$ ,C$ 1670a$=CHR$147+CHR$104+STRI.3,CHR$44 )+CHR$52+CHR$135:b$=CHR$147+CHR$106+CHR$ 135+X$+CHR$147+CHR$53+CHR$135:c$=CHR$147 +CHR$42+STRI.3,CHR$44)+CHR$37+CHR$135 16 80P.TAB(X%,Y%)a$ 1690PROCDBL(b$,X*,Y%+1) :P.TAB(X*,Y%+3)c$ 1700V.8,8,8,8,8,8,8,11 1710PROCON 1720E. 1730DEFPROCSPACE(Y%) 1740PROCCENTREX"Press SPACE bar",Y%,0) 1 750*FX15 1760REP. U. GE.=" " 1770E. 178 0DEFPROCbox(x1,y1,x4,y2) 1790MOVEx1,y1:D R.x1,z2:DR.x2,y2 1800DR.x4,y1:DR.x1,y1:E . 1810E. 1820DEFPROCmousj |c
P705 CEEFAX 705 Sun 7 Oct 20:10/00 |B220720A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z01830IFmpos<7PROCdjfine(2470,224):prm =1:IFmpos<>0 mx=960:mz=(6-mpos)*64+192:G .1880 1840IF mpos=0 G. 1880 1850IFmpos<1 8PROCdjfine(2480,224):prm=2:mx=(17-mpos) *64+224:my=160:G.1880 1860IFmpos<23PROCd jfine(2490,224):prm=1:mx=224:my=(mpos-18 )*64+300:G.1880 1870PROCdjfine(0500,224) :prm<2:IFmpos=99G.1880EL.mx=(mpos-23)*64 +320:mx=672 1880GC.0,1:V.5:MOVEmx,mz:P.p rn$(prm):V.4 1890E. 1900DEFPROCcat 1910I Fcpos=0 OR cpos>17 TH.PROCdjfine(2510,23 0):prc=4 1920IFcpos=0 G. 1950 1930IFcpos >22 TH. cx=(cpos-23)*64+128:cy=672:G.195 0 EL. IFcpos>17 cx=160:cy=(cpos-18)*64+1 60:G.1950 1940PROCdjfinj(2530,230):prc=3 :IFcpos>6TH. cx=(17-cpos)*64+300:cy=160 EL. cx=960:cy=H6-cpos**64+488 1950GC.0,1 :V.5:MOVEcx,cy:P.prn$(prc):V.4 1960E. 19 70DEFPROCWAIT(X*) 1980LOC.P% 1990Z%=TJ. 2000REP. U. TJ.-P%>X**100 OR INK.(0)=" " 2010E. 2020DEFPROCnomus 2030GC.0,0:V.5 :MOVEmx,my:P.prn$(prm):V.4:E. |c
P705 CEEFAX 705 Sun 7 Oct 20:10/01 |B220820A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z02040DEFPROCnocat 2050GC.0,p:V.5:MOVE cx,cy:P.prn$(prc):V.4:E. 2060DEFPROC DBL(X$,X*,Y%Y 2070P.TAB(X*/1,Y%);CHRd&8D ;X$;CHR$&8C:P.TAB(X*-1,Y%+1);CHR$&8D;X$; CHR$&8C; 2080E. 2090DEFPROCCJNTRE(E$-Y%, F*) 2100IFF*=1PROCDBL(E$,20-MEN(E$)/2,Y% )EL.P.TAB(20--EN(E$)/2,Y%Z;E$ 2110E. 21 20DEF PROCOFFzV.23;11,0;0;0;0:E. 2130DEF PROCON:V.23;11,255;0;0;0:E. 2140DEFPROC GPI(F2,X%,Y%,R*) 2150LOC.B,B$ 2160A$="" 2170*FX15 2180B$=GE.:B=ASC(B$):IFB=13TH. 2250 2190IF B=127 A. A$=""TH.5180 2200IF B=127TH.A$="":PROCBOX(" ",X*,Y%):G.2180 2210IFLEN(A$)=1 OR B<32 ORB>126TH.2230 2220IFF2=1 A. (B>=4: A. B<=R*) TH.2240 2 230V.7:G.5180 2240PROCBOX(B$,X*,Y%):A$= A$+B$:G.2180 2250IFLEN(A$)=0 V.7:G.2180 2260E. 2270DEF PROCdjfinj(D%,CH%) 2280RE S.D% 2290READN(1) 2300REP. F.I*=2 TO 8:R EAD N(I*):N.:V. 23,CH%,N(1),N(4),N(3),N( 4),N(5),N(6),N(7),N(8):CH%=CH%+1:READN(1 ):U. N(1)=999 2310E. 2320REM*DATA |c
P705 CEEFAX 705 Sun 7 Oct 20:10/03 |B220900A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z02330D. 224,225 11,8,8,226,227,11,8,8 ,228,229,-1 2340D. 224,225,226,-1 2350D. 230,231,232,32,233 2360D. 11,8,8,8,8, 8 2370D. 234,235,236,237,238 2380D. 11, 8,8,8,8,8 2390D. 30,32,239,240,241,-1 2400D. 230,231,32,32,32 2410D. 11,8,8,8, 8,8 2420D. 232,233,234,235,236 2430D. 1 1,8,8,8,8,8 2440D. 237,238,239,240,241 ,-1 2450D."Ljtters in alphabjtical ordjr ","L—tters in random ordjr","Numbjrs in ordjr","Numbjrs in random ordjr","Any ch aracter in random order","Count the dots shown","Computer choice of (1-5)" 2460D ."Slow mouse (Hard)","Medium mousj", "Fast mousj (Easz)" 2470D.2,12,8,6,1 ,1,1,0,64,48,16,96,128,128,0,0,8,8,8,4,4 ,4,12,26,16,16,16 32,34,30,48,88,0,62,67 ,1,8-11,12,8,0,0,0-128,144,208,48,16 899 2,0,1,254,1,16,12,2,226,252,0,128,224,99 9 |c
P705 CEEFAX 705 Sun 7 Oct 20:10/00 |B220A20A|a17CAT&MSE|i24BBBC316k|s÷#1÷e| s÷Z02490D.8,12,11,:-1,0,0,0,16,48,208,14 4,128,194,124,0,26,12,4,4,4,8,8,8,88,48, 32,32,32,16,16,16,0,0,1,1,6,8,12,2,0,128 ,128,128,96,16,48,64,999 2500D.8,48,64,7 1,63,0,1,7,0,48,204,3,0,128,127,128,0,56 ,68,138,3,124,192,240,999 2510D.32,32,22 4,140,178,162,162,99-1,2,4,144,240,128,1 28,0,80,8p,80,81,82,76,64,32,32,64,128,0 ,0,0,0,0,0,0,8,5,6,25,96,128,7,4,4,50,20 1,71,160,112,4,248,0,0,0,128,0,0,0,0,1,2 ,5,10,20,40,0,248,96L128,0]3,12,16,0,0,0 ,31,224,0,0,0 2540D.1,1,250,6,0,0,0,0,1, 135,121,2,218,218,4,4,999 2530D.32,31,0, 0,0,1,6M3,229,38,40,80,160,64,128,0,160, 160,160]160,192,0,0,0,165,198,0,0,0,0,0, 0,128,225,158,64,91,91,32,32,12:,130,92, 96,0,0,0,4,128,0,p,0,0,12:-142,144,0,p,0 ,0,p,224,31,p]16,8,8,8,7,177,173-16{,0]3 ,12,48,64,0,15,112 2540D.112,255,12,2,1, 1,225,30,0,0,192,32,16,16,16,16,999 |c