ZXTape! 0Created with Ramsoft MakeTZXTRANSFORM  J6 "TRANSFORM" (1:1:7:49999O  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x4A$="MATHEMATICS":L=9 :C=3:9180# 0:1 140:A=50000P !N=047/:B:A+N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,200,1,0,27,237,176,201 m33!,0,200,17,0,64@,1,9 ,27,237,176,201 621,0;" " 50000P :21,0;" SEARCHING AND LOADING " 20,0; 7:1:""  #' "dbsize"" #("DOUBLE HEIGHT" #2a=50050 #<.z:z999a,z:a=a+1:9020<# #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z 209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201,999 #"DOUBLE WIDTH" #a=50150 #.z:z999a,z:a=a+1:9130# #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ȥ16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201,999 # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #50150 #350050:23728\,c+1:50050 #c=c+2:n $ 0/(bGIZ PaPzA MATHEMATICSTransform A% !C%50012\:90Z "Transform" E 1984 MERCURIAN PULP  PRODUCTS/CONTRACT BOOKS  KP1:A$=" TRANSFORM ":7:1:L=13 :C=3:4000 P21,0;" ":50000P:21,0;" STOP THE TAPE - PRESS ANY KEY " Z1,10 :0 d2:1:7: na1,2;" TRANSFORM  produces a wide";3,2;"range of transformations." xy5,2;"It can  REFLECT ,  ENLARGE ";7,2;"  ROTATE  or  TRANSLATE ." e9 ,2;"Compound transformations can";11 ,2;"be achieved stage by stage." b13 ,2;"Design a figure by plotting";15,2;"its vertices (Max. 50), then" S17,2;"select your transformation ";19,2;"and sit back." @21,0;" Do you want a demonstration?  " p#1;0,0;"   Y  for yes  N  for no  " .5,0 a$=:a$=""160 &a$="Y"a$="y"1400x:190 A$"N"A$"n"155 :21,0;" " ~#1;0,0;" Press  any key  to start work  ":1,0: ""175 a$=:a$=""180 4S=0:0:0:7::1000 U0,0;"ENTER no. of points wanted: ";a$:1200:f200 (n=a$:n>502n<1200 T=1N \0,0;("ENTER X coordinate Point ";t;" ");a$:1200:f220 kx(t)=a$:X(T)>127#1;0,10 ;" TOO BIG ! ":1,-10 :220 \0,0;("ENTER Y coordinate Point ";t;" ");a$:1200:f240 hy(t)=a$:y(T)>87W#1;0,10 ;" TOO BIG ! ":1,-10 :240 X(T)+128,Y(T)+88X T=1290" %X(T-1)-X(T),Y(T-1)-Y(T) "T ,?x(n)+128,y(n)+88X:X(1)-X(n),Y(1)-Y(n) 6p#1;0,0;"  T  to transform the figure  N  for new shape  E  to end " ;)23658j\,0:.5,0 @a$=:a$=""320@ Ea$="e"4500 JA$="n"190 Oa$"t"315; TS=0370r ^j#1;0,0;"  1  transform new figure  2  transform original figure " `.5,10 ca$=:a$=""355c hA$="1"400 ma$"2"352` rT=1N:A(T)=X(T) |B(T)=Y(T):T r#1;0,0;"  1  Reflect  2  Enlarge  3  Translate  4  Rotate " '23658j\,0:.5,0 a$=:a$=""420 a$<"1"a$>"4"400 &400+(100d*a$):3106 R1=1:R2=1  3000 t#1;0,0;" Reflect in which axis?  1  x=0  2  y=0  3  x=y  4  x+y=0 " '23658j\,0:.5,0 a$=:a$=""520  a$<"1"a$>"4"510  a$="1"r1=-1:550&  a$="2"r2=-1:550& -a$="4"r2=-1:r1=-1:550& !6t=1n:c=a(t):a(t)=b(t):b(t)=c:t:580D &T=1N:A(T)=A(T)*R1 0B(T)=B(T)*R2:T D36:2000:1:3000 :0 N Xp.5,0:0,0;" ENTER  Scale Factor for  X  ";a$:1200:f600X bs1=a$ l T=1N vd(A(T)*S1)>128#1;0,10 ;" TOO BIG ":1,-10 :600X T n.5,0:0,0;"ENTER Scale Factor for  Y  ";a$:1200:f650 s2=a$ pt=1n:(b(T)*S2)>88X#1;0,10 ;" TOO BIG ":1,-10 :650 T T=1N:A(T)=A(T)*S1 &B(T)=B(T)*S2:T:5:2000  m.5,0:0,0;"ENTER Translation for  X  ";a$:1200:f700 m1=a$ oT=1N:(A(T)+M1)>128#1;0,10 ;" TOO FAR ":1,-10 :700 T k.5,0:0,0;"ENTER Translation for Y ";a$:1200:f740 m2=a$ nT=1N:(b(T)+M2)>88X#1;0,10 ;" TOO FAR ":1,-10 :740 T T=1N:A(T)=A(T)+M1  &B(T)=B(T)+M2:T:4:2000   U0,0;"ENTER Angle of Rotation ";a$:1200:f800  *an=a$ 45an=an/180*:t=1n:c=a(t)*an+b(t)*an >#b(t)=b(t)*an-a(t)*an:a(t)=c:t H3:2000: 4X(502):y(502):a(502):b(502) K0,88X:255,0:128,0:0,175 wx=824810 :x,89Y:0,2+(3(x-28)/502=((x-28)/502)):x xy=816810 :129,y:2+(3(y-38&)/502=((y-38&)/502)),0:y 4,13 ;"+50";11 ,1;-100d;11 ,8;-502;11 ,16;0;11 ,21;"+50";11 ,27;"+100";17,13 ;-502 -20,15;"y";9 ,0;"x"   a$="" :f=0:q=1̱a$:a$(q)<"0"a$(q)>"9"f=1 *a$(q)="."a$(q)="-"a$(q)="+"f=0 q /a$=1(a$="."a$="-"a$="+")f=1  Ba(t)>127a(t)=127*(1-(2a(t)<0)) @b(t)>87Wb(t)=87W*(1-(2b(t)<0)) ( x 1600@ $r1=-1:r2=1:550& w#1;0,5;"  Reflection  in X=0 ";1,0;" Press  any key  for next figure" .5,0:0  1600@ $s1=.5:s2=2:680 #1;0,0;"  Enlargement  Y=Y*2 : X=X*.5 ";1,0;" Press  any key  for next figure" .5,0:0  1600@ %m1=0:m2=-80P:770 y#1;0,5;"  Translation  Y=Y-80 ";1,0;" Press  any key  for next figure" .5,0:0  1600@ an=135:8204 ~#1;0,2;"  Rotation  of 135 degrees ";1,0;" Press  any key  for next figure" .5,0:0  1600@ "`an=45-:m1=-90Z:m2=0:8204:1,0:770:1,10 ,#1;0,3;"  Rotate  then  TRANSLATE ";1,1;" Press  any key  to start work " 61,30:0: @)0:0:7::1000 J01600@:t=14:a(t),b(t):t:n TQ10 ,10 ,10 ,502,70F,502,70F,10 ,4 ^ 2000 hr#1;0,4;" The original figure ";1,1;" Press  any key  to transform " r.5,0:0:   T=1N *a(t)+128>255a(t)=127 )a(t)+128<0a(t)=-127 'b(t)+88X<0b(t)=-87W (b(t)+88X>175b(t)=87W A(T)+128,B(T)+88X T=12050 %A(T-1)-A(T),B(T-1)-B(T) T ?a(n)+128,b(n)+88X:a(1)-a(n),b(1)-b(n)  S=1: Z8:x=-80P80P4:128+x,88X+x:128+x,88X-x:x :0,15;5;"x=0";9 ,28;"y=0" =0,27;5;"x=y";21,25;"x+y=0"  N=1̱A$:L,C;A$(N) ,23729\,L:23728\,C:50150 350050:23728\,C+1:50050 C=C+2:N  E1:50012\:21,8;" END OF PROGRAM ": M(23730\+256*23731\)-(23653e\+256*23654f\) s2 2722yy  f &fffA TRANSFORM l c STATS  d:  "STATS" (1:1:7:56999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x4A$="MATHEMATICS":L=9 :C=3:9180# 0:1 140:A=57000 !N=023:B:A+N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 621,0;" " 57000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #' "dbsize"" #("DOUBLE HEIGHT" #2a=57050 #<.z:z999a,z:a=a+1:9020<# #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z 209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201,999 #"DOUBLE WIDTH" #a=57150> #.z:z999a,z:a=a+1:9130# #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ȥ16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201,999 # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #57150> #357050:23728\,c+1:57050 #c=c+2:n $ (bGIZ PazA MATHEMATICSStats ; +9-;!1:57012:80P "Stats" G 1984 MERCURIAN PULP  PRODUCTS/CONTRACT BOOKS  2S7:1:A$="STATISTICS":23729\,13 :C=4:N=1̱A$ <>23728\,C:13 ,c;a$(n):57150>:57050 F523728\,C+1:57050:C=C+2:N P21,0;" ":57000:21,0;" PROGRAM READY - PRESS ANY KEY ":1,0:0 Z 9000(# dG7:7:0::0,7;" DISPLAY OPTIONS " n95,149:0,-70F:100d,0 xe1:Y=80P120x:8,Y:12 ,0:y/2=(y/2)4,4 }@y:x=8202:x,120x:4,4:x f2:Y=80P138:32 ,Y:12 ,0:y/2=(y/2)4,4 Ay:x=32 44,2:x,138:4,4:x f3:Y=80P112p:568,Y:12 ,0:y/2=(y/2)4,4 Ay:x=56868D2:x,112p:4,4:x f4:Y=80P142:80P,Y:12 ,0:y/2=(y/2)4,4 Ay:x=80P92\2:x,142:4,4:x &0:13 ,5;" 1 " <196,112p,42*:196,112p,43+ C200:A(1,6):N=16:A(1,N):N 845-,100d,75K,30,85U,25 Hu=1:z=40(:X=196:Y=112p:i=6:6000p '0:13 ,28;" 2 " 870F,60<:0,-502:70F,0 70F,10 :10 ,10 :10 ,5:10 ,5:5,10 :10 ,7:10 ,12 :10 ,5 <18,15;" 3 ";21,9 ;"Cum.Freq." Z#1;1,4;"  Press  1   2  or  3  ":.5,0 a$=:a$=""270 a$<"1"a$>"3"260 "BP=A$(1)-1 , 1000 ~#1;0,0;" Do you want to SAVE this data ? Press  Y  or  N  ":.5,0 -23658j\,0:a$=:a$=""410 a$="y"445 a$="n"510  410 bp=26500d S.5,0:0,0;" Name for SAVING ?";s$:s$=""450  a$>10 a$=a$(10 ) Y#1;0,0;" Insert tape and press  ENTER  ":.5,10 A$=:A$=""475 a$13 470 s$d() ]#1;0,0;" !VERIFY! Rewind tape  ENTER  ":.5,10 A$=:A$=""492 a$13 490 D#1;0,0;" If VERIFY fails then GOTO 450 " s$d() }#1;0,0;" Do you want another option? Press  Y  or  N  ":.5,10 a$=:a$=""520 a$="y"100d a$="n"5600 & 510 0E1:57012:21,8;" END OF PROGRAM ": G1:1:7::0,7;" DATA COLLECTION " ^0,0;"ENTER TITLE for charts. (Max.20 letters): ";c$:c$=""1005 U0,0;" ENTER number of tables? ";A$:7000X:F1010 uTN=A$:TN>4#1;0,10 ;" TOO MANY !! ":1,10 :1,0:1010 t$(tn,5):n=1tn q0,0;(" ENTER Heading for table ";n;" (Max. 5 letters)");t$(n):t$(n)=""1025 I2,n*6;1+(6n>3);8-n;" ";t$(n):n  bp=11095G  bp=21200 l#1;0,0;"DISCRETE OR CONTINUOUS VARIABLES PRESS  D  OR  C  " '.5,0:23658j\,0 $A$=:A$=""1060$ .*D=0:A$="d"D=1:1090B 8A$"c"1050 BD=01200 G*M=(24/TN):m>12 m=12 Lm0,0;("ENTER number of divisions (MAX.=";M;") ");A$:7000X:F1100L Vi=A$:xn=1+(i<9 ) [i$(i,5):N=1i `s0,0;(" ENTER  name of division ";N;" (MAX.5 LETTERS) ");i$(N):i$(n)=""1120` j*3+n*xn,0;" ";i$(n);"" tn:6600:DA1490 ~d(tn,i):n=1tn H21,2;7-n;9 ;" Figures please for ";t$(n);" "  t=1i n.5,0:1,0;(" Item: ";i$(t);". ENTER data: ");a$:7000X:f1170  d(n,t)=a$ P3+t*xn,1+n*6;1+(6n>3);8-n;d(n,t) t:n:1490 5m=(24/tn):bp=2m>15m=15 b(m+1) 121,5;" Range of readings ? " `.5,0:1,0;"  ENTER  Minimum: ";a$:7000X:f1220  min=a$ b.5,0:1,0;"  ENTER  Maximum: ";a$:7000X:f1240  max=a$ /21,5;" " y.5,0:0,0;("  ENTER  number of divisions: (Max.";m;")");a$:7000X:f1270 .i=a$:xn=1+(i<9 ):i$(i,5) i>m1270  ~#1;0,0;"Shall I work out the boundaries? Press  Y  or  N  ":.5,0 .23658j\,0:a$=:a$=""1300 a$="y"1350F a$="n"1320( # 1300 ( n=1i -m0,0;(" ENTER Upper boundary for division ";n;": ");a$:7000X:f1325- 2)b(n+1)=a$:n=11340< 71b(n+1)max#1;1,0;" Number beyond set limits!! ":1,-10 :25:1400x r(t,n)=a$:n t 2d(tn,I):t=1tn:j=1rn:n=1i lr(t,j)b(n)r(t,j)bnbn=d(n,t) t:n  6300 @s=120x/bn J 6400 rfn=1i:t=15:6;16+t,7+(n-1)*(24/i);i$(n,t):t:n |5n=1tn:17+n,0;n;9 ;t$(n) Xx=568+8*(n-1)*xs:t=1i:y=d(n,t)*s:d(n,t)=01690 cn:e=44,y+44,:x,e:xd,0:(e-1)/2=((e-1)/2)1685 '1+xd/3,1+xd/3 e Jn:z=0xd2:x+z,e:1+xd/3,1+xd/3:z x=x+(24/i)*8:t Zn12090*  ak=1:l,c:n=1i:l+n,c;k;9 ;i$(n):l+n+1>21l=l-n:c=c+8 !#n/2ɺ(n/2)k=7 "-n/2=(n/2)k=n/2+1 %n:7:0 *u 4l#1;0,0;"Do you want this as a Bar Chart? Press  Y  or  N  " >'.5,0:23685\,0 Ha$=:a$=""2120H Ra$="y"1500 \a$"n"2110> f ?97a,87W,70F,10 ,10 ,2,23 m67C,75K,557,12 ,6,15,16,187,110n,557,7,22 502,110n,44,,7,4,12 ,25,131,491,44,,15,14,208,128,44,,5,24 43+,90Z,35#,10 ,3,12 ,23,107k,40(,35#,16,11 ,123{,123{,35#,6,13 ,212,133,35#,5,24 bn=100d "6400:1,5;"%" yn=5572518:n,43+:0,-4+(-4(n-557)/24=((n-557)/24)):n Cn=0MAXMAX/4:18,6+N*23/MAX;n:n DR=(RN<480) 5T=1TN:16+T,1;T;9 ;T$(T) Ma=1:x=557:y=43+:x,y:n=192/i192191/i 8x1=x:y1=y:y=y+d(t,a)*120x/rn:x=557+n:x,y ai6050 *P=E+(A(u,N+1)*/180)/2 b0;22-Y/8-P*z/10 ,(X-8)/8+P*z/10 ;A(u,N+1);"" k=k+1:N: `#1;1,0;" Press any key for data analysis":1,0:0 a$=:a$=""6090 $V(TN):4:6:0: &"  NUMERICAL ANALYSIS OF DATA " >t=1tn:2,(t-1)*32 /tn+1;t$(t) #n=1rn:V(T)=V(t)+r(t,n):n o4,(t-1)*32 /tn+1;" TOTAL";5,(t-1)*32 /tn+1;" ";V(T);" " 7,(t-1)*32 /tn+1;" MEAN ";8,(t-1)*32 /tn+1;" ";((V(T)/rn)*10 )/10 ;" " 610 ,(t-1)*32 /tn+1;"MEDIAN" 613 ,(t-1)*32 /tn+1;"S.Dev." 616,(t-1)*32 /tn+1;" I.Q.R" D#1;1,0;" Sorting data - please wait. "  ?sd=0:on=rn-1:n=1rn-1:o=1on #r(t,o)r(t,o+1)6180$ 3g=r(t,o):r(t,o)=r(t,o+1):r(t,o+1)=g $0o:sd=sd+((r(t,on+1)-v(t)/rn)^2): .Yon=on-1:n:11 ,(t-1)*32 /tn+1;" ";r(t,rn/2);" " 0mHI=R(T,RN/4):LO=R(T,RN*3/4):17,(t-1)*32 /tn+1;" ";HI-LO;" " 3-sd=sd+((r(t,on+1)-V(T)/rn)^2): 8Y14,(t-1)*32 /tn+1;" ";(((sd/rn))*100d)/100d;" " BVt"9"F=1 l a$(q)="-"a$(q)="."f=0 vQ: @7:7:0 JM(23730\+256*23731\)-(23653e\+256*23654f\) #(/9000(#:r=07:b:"a"+r,b:r #2E24,36$,36$,24,0,0,0,0 #< (#b#v334\#-dKU 2uz(iks We;ks pB fbmia2 g"daP#Cfrdnow then S p H<10 <20 <30 <40 <50 7.+# ""!7 A STATISTICScg ODDS  cu "ODDS" (1:1:7:56999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x4A$="MATHEMATICS":L=9 :C=3:9180# 0:1 140:A=57000 !N=023:B:A+N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 621,0;" " 57000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #' "dbsize"" #("DOUBLE HEIGHT" #2a=57050 #<.z:z999a,z:a=a+1:9020<# #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z 209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201,999 #"DOUBLE WIDTH" #a=57150> #.z:z999a,z:a=a+1:9130# #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ȥ16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201,999 # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #57150> #357050:23728\,c+1:57050 #c=c+2:n $ (bGIZ PazA MATHEMATICSOdds af dK^[cfz=57012:502 "Odds" D 1984 MERCURIAN PULP PRODUCTS/CONTRACT BOOKS BA$=" ODDS ":L=13 :C=8:7:1:7000X (J21,0;" ":Z=57000 2K21,0;" PROGRAM READY - PRESS ANY KEY ":1,0 <A$=:A$=""60< d+z$(32 ):1:1:7: nD2;Z$;z$;8;" PROGRAM OPTIONS  "'Z$;Z$ xV'''5;" 1  SPINNING COINS "'''5;" 2  ROLLING DICE " },''5;" 3  CUTTING CARDS " ,''5;" 4  END OF PROGRAM " b#1;0,2;"  Press  1   2   3  or  4  ":.5,0 a$=:a$=""140 a$="1"1000:200 a$="2"2300:200 A$="3"3200 :200 A$="4"240 130  Ȁ#1;0,0;"  Another Option ?  Press  Y  or  N  ":.5,0 -23658j\,0:a$=:a$=""210 a$="y"100d a$"n"200 G1:z=57012:21,8;" END OF PROGRAM ": U6600:1000:N=113 :G$:R=07:B:G$+R,B:R:N "a",7,30,546,111o,126~,220,248,181,"b",224,216,252,238,122z,61=,27,173 "c",212,245,247,123{,118v,62>,30,7,"d",47/,175,239,94^,110n,124|,120x,224 "E",7,30,60<,120x,121y,250,248,252,"F",224,120x,60<,158,30,31,15,31 "G",254,252,248,120x,112p,62>,31,7,"H",31,63?,63?,30,14,12 ,248,224 "i",0,0,0,7,31,119w,255,247,"j",0,0,0,224,248,254,207,247 $"k",243,223,111o,25,7,0,0,0,"l",239,251,246,88X,224,0,0,0 .G"m",255,0,0,0,0,0,0,0 8eH$(2,5):p$(8,2,2):n=18:p$(n,1),p$(n,2):n =H$(1),H$(2) BQ"","","","","__","","","","","","","","__","","","" G"HEADS","TAILS" L_ht=1:1:7:0::1,5;" SPINNING A COIN ":1900l V3,1;"Each time you spin a coin";5,1;"there is an even chance of";7,1;"it landing Heads." [ 1900l `9 ,1;"However,the more often you";11 ,1;"spin,the smaller the chance";13 ,1;"that it will land Heads";15,1;"every time." e 1900l j17,1;" Your Choice ?";18,2;" 1  PASCAL'S TRIANGLE ";20,2;" 2  TAKE A SPIN " oht=0:1900l t^#1;1,0;"  Please press  1  or  2  ":.5,0 ~a$=:a$=""1150~ a$<"1"a$>"2"1140t a$="2"2000 Jht=1:1450::1,3;" PASCAL'S TRIANGLE " ~0,25;1;" ":n=020:n,25;1;" ":n:21,25;1;" " l14,2;" SPIN 1 AT A TIME ";15,4;"HEAD TAIL":C=28:N=7 1905q:1440 Gnl=3:nc=8:nu=1:1980:n=3:1905q %1440:nc=12 :1980  1480 14,2;" SPIN 2 AT A TIME ";15,2;" 2H  1H1T  2T ";19,27;"";20,27;"":60<,524:0,-480:116t,524:0,-480:1450 1440:1440 0nl=5:nc=6:1980:1450 11440:1440:nc=10 :1980 <1450:1440:1440:nu=2:1980 I1450:1440:1440:nc=14:nu=1:1980  1480 14,2;"  SPIN 3 AT A TIME ";15,1;" 3H  2H1T 1H2T  3T ";19,26;"";20,26;"":X=480144480:X,524:0,-480:X:1455  01430:nl=7:nc=4:1980 MQ=13::1455:1430:nc=8:nu=q:1980:Q MQ=13:1455:1430:nc=12 :nu=q:1980:Q (=1455:1430:nc=16:nu=1:1980 2|1480:14,3;"  SPIN 4 AT A TIME ";15,1;" 4H  3H1T 2H2T 1H3T  4T " .49zG) n C=28 ql=18:lx=-1 vfl,c;" ";l+1,c;8;2;p$(n,1);l+2,c;p$(n,2);l+3,c;" "; l=l+lx:l<4lx=1  t=15-l/4:t l>181950 -n=n+1-(8n=8):1910v ht1,-5  qt=15:nl,nc;1;nu:.1}L,10 :nl,nc;7-nu;0;nu:.1}L,0:t: 2:6:0: 2;7;z$;Z$;Z$ @A$="HONEST JO'S TAKE-A-SPIN":L=0:C=4:7100 3,26;1;" ":n=420:n,26;"   ":n:21,26;1;" " 8O=0:H=0:YA=0:S$(2,24) )3,2;" YOUR ACCOUNT " p7:8,0;" LAST 8 SPINS "'Z$(26)'Z$(26)'Z$(26)'Z$(26) ,C$=" ":YA<0C$="IN DEBT "  YA>0C$="IN CREDIT" S8:5,2;"` ";4;YA;" ";7,2;YA<0;C$ F10 ,1;2;S$(1);11 ,1;S$(2)  613 ,0;" ODDS ON HEADS NEXT SPIN " "ohoh=h-o:o=0 $hoho=o-h:h=0 %od=2^o:hd=2^h ,|15,4;">>> ";1;;od;" to ";hd;0;" <<<":q=15:.1}L,10 :.1}L,0:q /t15,4;">>> ";od;" to ";hd;" <<<";17,2;" ":bf=2^h/2^o 4.5,10 :0,0;" What do you bet it's HEADS ?  ENTER  how much. `";a$:6000p:f21004 >db=a$:b=01,-10 :#1;1,1;" Aah! Not feeling lucky, eh? " HH17,2;" This Bet `";b;" " MY.5,12 :.5,5:1900l-(10 b>100dƥ>.5) Rbn=52150f Tb=02160p W*q=15:.15~,30:q \bO=O+1:ya=ya-b:#1;0,0;" Hard luck. You lose `";b;".":2160p f1b=b*bf:ya=ya+b:h=h+1:1,-30 kB#1;0,0;" Good guess. you win `";b;" " pO#1;1,0;"  A  Again  E  to End. " u4q=12:s$(q)=s$(q,4)+p$(n,q):q z.23658j\,0:a$=:a$=""2170z a$="a"2040  a$="e"  2170z 1:7:0: G1,9 ;" ROLLING DICE ":JO=0:  /2300:r=07:b:"n"+r,b:r I0,24,60<,126~,126~,60<,24,0 $^d$(6,3,3):n=16:d$(n,1),d$(n,2),d$(n,3):n .Z""," ",""," ","",""," "," ",""," ",""," "," "," "," "," "," "," " 8 6400:mygo=1 L 6190. Vb10 ,2;"Do you feel lucky or do you";12 ,2;"want to know the odds first?" `e15,4;" 1  DICE DISTRIBUTION ";17,4;" 2  ROLL THEM BONES " jV#1;1,4;" Press  1  or  2  ":.5,5 ta$=:a$=""2420t ~a$="2"2800 a$"1"2410j 6:7:0: -1,6;" DICE DISTRIBUTIONS " fW$=Z$+"A single (honest) dice is just as likely to give any number between 1 and 6. "+z$:1850: :31,151:0,-72H:200,0 on=16:c=2+4*n:13 ,c;n;15,c;1;16,c;"/";17,c;6 1l=9 11 :l,c-1;n;" ":l:n ;6100::1,6;" DICE DISTRIBUTIONS " aw$=z$+"Two dice will give scores from 2 to 12 but some scores are more likely than others. "+z$  1850: x=67C21124:x,513:0,96`:x:y=51314716:67C,y:144,0:y Zn=16:2+2*n,6;7-n;16,6+3*n;n:n (Rt=16:n=16:x=t+n:i=8-x:x>7i=x-6 2;16-2*t,6+3*n;i;9 ;x:n:t <;6100::1,6;" DICE DISTRIBUTIONS " F;36$,147:0,-100d:184,0 Pn=16:16-n*2,3;n:n:17,5;"2 3 4 5 6 7 8 9 101112" ZFtot=1:n=212 :i=8-n:n>7i=n-6 dKh=7-i:t=1h*2:16-t,1+n*2;i;" ":t nT16-t,1+n*2;tot:tot=tot+(nn<7)+(12 -nn>6):n xYw$=z$+"With 36 possible combinations there is only 1 chance in 36 of scoring 12 or 2, " 3w$=w$+" but 6 in 36 (1 in 6) chances of a 7."+z$ 1850: Uw$=z$+"Notice also the cummulative totals >>>> If the dice are rolled to give 9 , " Fw$=w$+"then the odds are 26 to 6 that the next score will be lower." 1850: Hw$=z$+" Bear these facts in mind when playing Dice with Honest Jo."+z$ 1850: ~#1;0,0;" Would you like to play Dice ? Press  Y  or  N  ":.5,5 .23658j\,0:a$=:a$=""2770 a$="y"2800 a$"n"2760  2:6:0: 2;7;z$;Z$;Z$ BA$="HONEST JO'S ROLLING-BONES":L=0:C=3:7100 <L=49 :7;L,9 ;" ":L $6400:6190.:6500d DYA=0:MYGO=1:11 ,2;" YOUR ACCOUNT " "$c$=" ":mygo=mygo*-1 ,YA>0C$="IN CREDIT" 6YA<0C$=" IN DEBT " @M13 ,2;"` ";4;ya;" ";14,2;(YA<0);C$ El=1620:z$:l TMYGO=-13000 ^616,4;" I GO FIRST THIS TIME " h+6190.:ms=x1:B=10 :5000 r:19,2;"I bet `";mb;" you can't beat ";ms;"." |25100:b=03140D :a2850" ~b=0a=0 6190.:ys=x1 3100 a=0 2850" 416,4;" YOU GO FIRST THIS TIME " 6190.:YS=X1 ;a=0:5100:B=03140D :A=0 B=0A2850" B5000:19,2;"I bet `";mb;" I can beat ";ys;"." 6190.:ms=x1 3100 :a=0 2850" Sms=ys#1;0,2;"  Draw. All bets cancelled. ":3140D &ms,127,127,127,127,63?,"f",0,28,62>,127,255,255,255,254,"g",31,15,7,3,3,1,1,0,"h",252,248,240,224,224,192,192,128 "i",7,15,15,15,7,3,29,63?,"j",192,224,224,224,192,128,112p,248 7"k",1,3,7,15,31,63?,127,255,"l",0,128,192,224,240,248,252,254,"m",127,63?,31,15,7,3,1,0,"n",252,248,240,224,192,128,0,0 Hn$(13 ,2):p$(6,8):m$(4,2,2) n=113 :n$(n):n n=16:p$(n):n 6"2","3","4","5","6","7","8","9","10","J","Q","K","A" 4"SPADES","CLUBS","HEARTS","DIAMONDS","RED","BLACK" 3n=14:m$(n,1),m$(n,2):n )"","","","","","","","" G3:6:0::1,8;" CUTTING CARDS " RC=9 :4800:502:C=18:CN=13 :SN=1:4900$ c14,4;" 1  CARD COMBINATIONS ";17,4;" 2  CUT-A-CARD " ^#1;1,0;"  Press  1  or  2  ":.5,5 a$=:a$=""3340 a$="2"3600 a$"1"3330 *K3:6:0::1,6;" CARD COMBINATIONS " 423,3;" FIRST CUT PROBABILITIES " >:L=614:L,4;7;Z$(24):L H`32 ,127:192,0:0,-71G:-192,0:0,71G RBY=107k75K-16:32 ,Y:192,0:Y \q7:7,5;"RED or BLACK";20;"1 in 2";9 ,5;"Specific SUIT";20;"1 in 4" fn11 ,5;"Specific VAlUE";20;"1 in 13";13 ,5;"Specific CARD";20;"1 in 52" p(156,127:0,-71G u 250 ze6:17,4;"The odds for predicting";18,4;"COLOUR are 1 in 2."  200 w$=z$+"It's hard enough to predict one card correctly, but if you try to predict 2 or more cards in succession the odds pile up against you."+z$ 1850::" " ^18,4;"colour and then SUIT ";19,4;"are 1/2 * 1/4 =1 in 8." 200 >21,0;"  Feeling full of foresight? " #1;0,0;"  1  CUT-A-CARD  2  Return Press  1  or  2  ":.5,5 a$=:a$=""3520 a$="1"3600 a$"2"3510  2:6:0: 2;7;z$;Z$;Z$ ?A$="HONEST JO'S CUT-A-CARD":L=0:C=4:7100 $C=4:4800 .BOD=1:YA=0:11 ,2;" YOUR ACCOUNT " 8,C$=" ":YA>0C$="IN CREDIT" BYA<0C$=" IN DEBT " LM13 ,2;"` ";4;ya;" ";14,2;(YA<0);C$ Q<c=4l=49 :l,10 ;z$(18):l Vs16,2;"What do you want to predict?";18,2;" 1  COLOUR  2  SUIT " `>20,2;" 3  VALUE  4  CARD " eps=0:pv=0 jf#1;1,0;"  Press  1   2   3  or  4  ":.5,5 ta$=:a$=""3700t ~ a$="1"4200h:3760  a$="2"4300:3760  a$="3"44000:3760 ,a$="4"4300:44000:3760  3690j %16,0;Z$;Z$;Z$;Z$;Z$;Z$ =16,2;" PREDICTION ";:PS5;P$(PS); PV" ";N$(PV);" " .PSOD=OD*4:PS>4OD=OD/2 PVOD=OD*13 B18,2;" The odds are 1 in ";od;" ":5150 Cmb=b*od:20,2;"I'll pay `";mb;" if you're right" ,t=130:.05|L,-20:t Lc=c+6:cn=(*13 )+1:sn=(*4)+1:4900$ PSPVPS=SNPV=CN3900<  SPSPV=0(PS=SN(PS=5SN>2)(PS=6SN<3))3900< !PS=0PVPV=CN3900< `OD=1:C=4:YA=YA-B:#1;0,2;" Hard luck. You lose `";b;" " (5t=15:.1}L,30:t:3930Z <^ya=ya+mb:1,-10 :#1;0,2;" Good guess. You win `";mb;" " Fc>16oD=1:c=4:20,2;" Aren't you doing well!!";21,2;" Let's start again. " Zf#1;1,0;"  A  to guess Again  E  to End ":.5,5 d.23658j\,0:a$=:a$=""3940d i" " na$="a"36408 x a$="e"  3930Z g hj.5,0:23658j\,8:0,0;" Red or Black? ENTER R or B:";a$ ra$="R"ps=5: |a$="B"ps=6:  4200h ́.5,10 :23658j\,8:0,0;"Spades,Hearts,Diamonds or Clubs? ENTER S,H,D,C:";a$ a$="S"PS=1: a$="C"PS=2: a$="H"PS=3: a$="D"PS=4:  4300 0.5,0:23658j\,8:0,0;" 2,3,4,5,6,7,8,9,10,J,Q,K or A ENTER predicted value:";a$ 5a$=""44000 :*a$>"1"a$"9"pv=a$(1)-1: Da$="10"pv=9 : Na$="J"pv=10 : Xa$="Q"pv=11 : ba$="K"pv=12 : la$="A"pv=13 : v 44000  4,C;7;2;"";5,C;"";6,C;"";7,C;"";8,C;"";9 ,C;"": $4,C;7;(2SN>2);N$(CN);" ";5,C;" ";6,C;" ";M$(SN,1);" ";7,C;" ";M$(SN,2);" ";8,C;" ";9 ,C;" ":  Ilx=0:hx=0:lo=0:t=1x1-2:lo=lo+p(t):t lo=0lx=1 *hi=0:t=x111 :hi=hi+p(t):t hi=0hx=1 N(lo=0mygo=1)(hi=0mygo=-1)mb=0:5040 mygo=-15035 ;mb=((B*(lo+lx)/(hi+hx))*100d)/100d:5040 /mb=((B*(hi+hx)/(lo+lx))*100d)/100d A18,3;" ODDS: LOWER ";LO;" HIGHER ";HI;" "  _#1;1,0;" Do you want to bet?  Y  or  N  ":.5,10 .23658j\,0:a$=:a$=""5110 a$="y"5150  a$="n"5200P  5100 c.5,0:1,0;" How much do you bet? `";a$:6000p:f5150 (b=a$ 2 PW#1;1,0;" What's up? Not feeling lucky? ":1,-10 Z502:b=0:" ": pa$=""f=1: z:f=0:q=1̱a$:a$(q)<"0"a$(q)>"9"f=1 q: X#1;1,0;" Press  any key  to go on ":.5,5 a$=:a$=""6110  .Ex1=0:l=6:c=11 176:62008:c: 8yt=13:n=16:7;l,c;d$(n,1);l+1,c;d$(n,2);l+2,c;d$(n,3) B.03{u\,-10 :n:t LAx=1+(*6)+(mygoƥ>.9ffff):x=x-(x>6) Q x1=x1+x V`n=1x:7;l,c;d$(n,1);l+1,c;d$(n,2);l+2,c;d$(n,3) `.03{u\,-10 :n j vx=85U133480:x,129:28,0:0,-28:-28,0:0,28  o6,4:26,0:0,-26:-4,-6:0,28:4,4:x  d66500d:P(11 ):N=111 :P(N):N nY1,2,3,4,5,6,5,4,3,2,1 x H#1;0,0;" ONE MOMENT PLEASE ": X9N=1̱A$:23729\,L:23728\,C:L,C;A$(N) b7Z=57150>:Z=57050:23728\,C+1 l"Z=57050:C=C+2:N: 9N=1̱A$:23729\,L:23728\,C:L,C;A$(N) &Z=57050:C=C+1:N: @ #(_ HELLO THERE! ARE YOU TRYING TO FIND HOW HONEST JO FIXES THE ODDS?  #F_ SEE LINES 1890,2125 AND 6220.  z#  b= X0yg E .  io$hW{ Bear these facts in mind when playing Dice with Honest Jo. : afz333C IN DEBT A