SPECULATOR֛f!A6#6H#6G#6v#6G#6v#6#6@#6G#6v#6;#6#6w#6v#6w#6v#6#6#6w#6v#6#6!B6"#6P#6E#6U#6E#6U#6#6#6E#6U#6*#6#6T#6U#6T#6U#6#6@#6T#6U#6>#6>!C6"#6`#6E#6u#6E#6u#6#6#6E#6u#6:#6#6v#6u#6v#6u#6#6#6v#6u#6*#6*!D6"#6`#6E#6U#6E#6U#6#6#6E#6U#62#6#6d#6U#6d#6U#6#6#6d#6U#6>#6>!E6"#6P#6w#6V#6w#6V#6#6@#6w#6V#6+#6#6W#6V#6W#6V#6#6#6W#6V#6#6!F6#6H!F6#6#6#6#6#6!Q6<#6$!Q6#6!Q6#6!R6$#6$#6w#6W#6w#6W#6#6@#6w#6W#6:#6#6w#6w#6#6@#6w#6w#6w#6w#6"#6$^qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq !S6$#6$#6E#6T#6E#6T#6#6#6E#6T#6"#6#6T#6E#6#6#6T#6E#6T#6E#6 #6B!T6<#6$#6w#6V#6w#6V#6#6#6w#6V#6##6#6v#6g#6#6#6v#6g#6v#6g#6.#6B!U6 #6$#6#6$#6#6$#6#6#6#6$#6"#6#6T#6D#6#6#6T#6D#6T#6D#6$#6$!V6 #6#6u#6'#6u#6'#6#6#6u#6'#6:#6#6w#6t#6#6@#6w#6t#6w#6t#6#6!@A6|6T686|66|!`A66|66|66|!F66R!@6 6!A6|6D686|66|!A66|66|66|!I6|6D686|66|! I66|66|66|!@J6|6D6D6|6!`H6|6|6|66!I6|666|6T6Dý`qqqqqqqqqqqqqqq !!I6|6T6D6|66l!I6|666|66|!I6|6D6D6|66l!Q6|666|6T6D! Q6|6T6D6|66l!@Q6|666|6T6D!`Q6|6T6D6|66l!Q66$6 6 6$6!5A66>6*6>66!U@6"6*6>6666>!u@6>6"6>686(6>!@6"6*6>6666>!@6>6"6>686(6>!@6666>6"6"6>!@6>6(6>686(6>!H6"6*6>D6666>!5H6>6"6>686(6>!UJ686(6>6>!uH6>66>6"6"6>!I6>6666>6>!H66>6:6,6>!I6>6666>6>!H66>6:6,6>ñbqqqqqqqqqqqqqqqqqqq q!V6 6P!5P6J6 !UQ6>6666>6>!uP66>6:6,6>!B@6!BA6#6`#6#6#6#6@#B#6#6:#6#6#6#6#6#6#6#6#6!BB6?#6#6#6@#6#6#6#6@#6"#6#6#6#6#6@#6#6@#6#6!BC6#6 ##6@#6#6#6#6#6##6##6##6@##6#6#6!BD6#6 #6#6#6#6##6@#6"#6##6#6#6#6##6#6!BE6#6 #6##6#6@##6@#6:#6##6#6####6#6!BF6#6#6#6###6#6#6##6#6#6#6#6##6#6?!BG6!SG6!bP6!sP6!bQ6#6#6#6#6#6#6#6###6#6###6#6#6 #6?!bR6#6#6#6@#6#6@#6#6#6;#6##6@#6#6@#6#6@#6#6ôdqqqqqqqqqqqqqqq qqqqqq!bS6#6`#6#6@##6##6#6*#6#6#6#6#6#6#6@#6#6!bT6#6#6#6#6###6#6;#6#6#6@#6#6#6#6#6#6!bU6?#6#6#####6#62#6#6#6@#6#6#6##6#6!bV6#6#6#6#6##6#6#6+#6#6#6#6#6@#6#6#6#6!bW6!b@6B6J6J64!F66R!@6 6!F6d6R!@6R6L!N6D6B!"H6~6@6@!BJ6|646\6|6D!bH6|6|66<66|!N6B6J!H6J64!I6|646\6|66|!I6|66<66|!V6d6R!"P6R6L!BS6D6B6~6@6@!s@666~6B6"!F626J!@6J6&!B6>6 6<6 6>!@6>6(6>6:6,6>ífqqqqqqqqqqqqqqqqqqqqqqq !N6,6R!3H6R6B!SJ6>6 6<6 6>!sH6>6"6>6:6,6>!M666~!H6B6"!N626J!H6J6&!V6 6P!3P6J6 !SS6,6R6R6B!F6!@B6D!jT6:!H6"6*6>6666>!5F6!K6!HA6 !X6#6#6'#6'#6'#6'#6#6#6'#6'#6#6#6#6#6#6#60#60#6#6#68#668686060606066606066666660606666! X66660606666666/6/666/6/6/6/66#6#6#6#6#6#60#60#6#6#6#6#6'#6'#6#6#6'#6'#6'#6'#6!BX6 #6'#6'#6'#6 #6#6'#6'#6#6ðhqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq qqqqqq#6#6#6#6#60#60#6#6606060666060666666606066#!bX660606666666/6/666/6/6/6*#6#6#6#60#60#6#6#6#6#6'#6'#6#6#6'#6'#6'qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq  0 :23761\:167,15:-158,0:167,167:-159,0:0,-159:168,167:0,-7:160,159:0,-151 f=16012 -16:f,15:0,-7:f,167:0,-7:f:f=15912 -16:167,f:-7,0:15,f:-7,0:f Hf=318:6;0;f,3;" ":f b24,151:127,0:0,-127:-127,0:0,127 f=46:7;f,5;" ":f:f=1517:7;f,10 ;" ":f:5,8;"?":16,13 ;"*" )((23672x\*256)+23673y\) ^f=192194:f,175:0,-95_:44,,0:0,95_:f ]f=175:192,f-94^:44,,0:193,f-93]:44,,0 7;0;14,25;" CPU";4;15,25;"";16,25;" ";17,25;" ";18,25;"" 56;0;10 ,5;"wait a moment" :g=140(:f=14:o$(f,g)="0":f:g 128,255,0,0,0,255,128,0,0,0,0,128,128,0,14,174,238,128,128,0,10 ,164,136,128,128,0,14,228,206,128,128,0,10 ,68D,130,128,128,0,14,68D,238,128,128,0,0,0,0,128 i25:f=07:u,v,w,x,y,z:"P"+f,u:"Q"+f,v:"R"+f,w:"S"+f,x:"T"+f,y:"U"+f,z:f am=0:bm=0:cm=0:dm=0:a=0:b=0:c=0:d=0:ag=0:bg=0:cg=0:dg=0 0ao=0:bo=0:co=0:do=0  79906 6;0;10 ,5;"Press no. of";11 ,7;"Players";12 ,6;"(2 to 4)":.5,0 a$= no=a$-480 !!no<2no>431 "7ch=no:f=(1800/no):asc=f:bsc=f:csc=f:dsc=f #no3do=1 $no2co=1 (Tf=1no:0;7;f*3-3,25;(f+64@);"":f )x7;0;1,25;asc:.2~L,10 :7;0;4,25;bsc:.2~L,12 *Tno37;0;7,25;csc:no3.2~L,14 +Uno47;0;10 ,25;dsc:no=4.2~L,15 -g=1no:skip=0 .g=1ao=1g /g=2bo=1g 0g=3co=1g 1g=4do=1g 3 g=1am=061= 4 g=2bm=061= 5 g=3cm=061= 6 g=4dm=061= 7skip=160< 8!g=1am=1350^ 9!g=2bm=1350^ :!g=3cm=1350^ ;!g=4dm=1350^ < g:45- =f=714:6;f,4;" ":f:7,8;6;0;(g+64@);" to go";9 ,6;"Press T to";10 ,6;"throw dice" >="t"64@ ? 62> @i.3,28:skip=1:6;9 ,6;" ";10 ,6;" " A 400 C""67C E.3,20 F qw=(di+dic) H16;0;12 ,7;"Total ";qw P(g=1ag=1didic102f Q(g=2bg=1didic102f R(g=3cg=1didic102f S(g=4dg=1didic102f T(g=4dg=1di=dic100d U'g=3cg=1di=dic97a V'g=2bg=1di=dic94^ W'g=1ag=1di=dic90Z X 120x Z-ag=0:7;16,26;" " [ ^-bg=0:7;16,27;" " _ a-cg=0:7;17,26;" " b d-dg=0:7;17,27;" " e ff=1100d:f:6;0;9 ,5;"You're still ";10 ,4;" stuck in the ";11 ,4;" CPU lose ";12 ,4;" a sixth of ";13 ,4;" your bytes " g2,5,1,10 ,1,10 ,1,10 ,1,10 ,1,10 ,2,10 ,1,10 ,1,9 ,1,7,1,7,1,7,4,7,1,7,1,9 ,1,9 ,1,9 ,1,9 ,1,9 ,2,9 ,1,9 ,1,7,1,5,1,5,1,5,4,5 h6103g:f=126:x,y:x/6.5P,y:f jg=1asc=(asc-(asc/6)):ao=07;0;1,25;" ";1,25;asc:asc<07500L kg=2bsc=(bsc-(bsc/6)):bo=07;0;4,25;" ";4,25;bsc:bsc<07500L lg=3csc=(csc-(csc/6)):g=3co=07;0;7,25;" ";7,25;csc:csc<07500L mg=4dsc=(dsc-(dsc/6)):g=4do=07;0;10 ,25;" ";10 ,25;dsc:dsc<07500L n xg=1p=a yg=2p=b zg=3p=c {g=4p=d | 500 }80;7;1;1;x,y;(g+64@) ~%f=10 30:.05|L,f:f .7;0;0;0;x,y;"" g=1a=a+qw:a>40(asc=asc+100d:ao=07;0;1,25;asc:a>40(a=a-40( g=2b=b+qw:b>40(bsc=bsc+100d:bo=07;0;4,25;bsc:b>40(b=b-40( g=3c=c+qw:c>40(csc=csc+100d:no3co=07;0;7,25;csc:c>40(c=c-40( g=4d=d+qw:d>40(dsc=dsc+100d:no=4do=07;0;10 ,25;dsc:d>40(d=d-40( g=1p=a g=2p=b g=3p=c g=4p=d 500 (x,y)=71Gg=1a=p-qw:a<1g=1asc=asc-100d:ao=07;0;1,25;" ";1,25;asc:a<1a=a+40( (x,y)=71Gg=2b=p-qw:b<1g=2bsc=bsc-100d:bo=07;0;4,25;" ";4,25;bsc:b<1b=b+40( (x,y)=71Gg=3c=p-qw:c<1g=3csc=csc-100d:no3co=07;0;7,25;" ";7,25;csc:c<1c=c+40( (x,y)=71Gg=4d=p-qw:d<1g=4dsc=dsc-100d:no=4do=07;0;10 ,25;" ";10 ,25;dsc:d<1d=d+40( (x,y)=71G1000 80;7;1;1;x,y;(g+64@) .f=3010 -1:.05|L,f:f 80;7;0;1;x,y;(g+64@) p=307000X g=1a=p g=2b=p g=3c=p g=4d=p o$(g,p)="1"176 o$(g,p)="2"250 o$(g,p)="3" Bo$(1,p)="1"o$(1,p)="2"o$(1,p)="3"180 Bo$(2,p)="1"o$(2,p)="2"o$(2,p)="3"190 Bo$(3,p)="1"o$(3,p)="2"o$(3,p)="3"200 Bo$(4,p)="1"o$(4,p)="2"o$(4,p)="3"210 o$(g,p)="0"2000: ,ti=0:pay=g:(p*10 )+3000 .p=5p=25p=35#p=15 ti35000  pay=1 2500 pay=2 2500 pay=3 2500 pay=4 2500 ,ti=0:pay=g:(p*10 )+3000 .p=5p=15p=25p=35# ti65500|  ^76;7,4;" ":79906 _f=1100d:f `^6;0;9 ,6;"(";(g+64@);")has to";11 ,6;"miss a go" c,f=40(0-2:.1}L,f:f hg=1am=0 ig=2bm=0 jg=3cm=0 kg=4dm=0 r 2di=(*6)+1:v=64@:w=103g v,w:4;0;0,-15:4;0;15,0:4;0;0,15:4;0;-15,0 ((di*5)+405)  445 v+8,w-8  ,v+12 ,w-4:v+4,w-12  Av+12 ,w-4:v+8,w-8:v+4,w-12  Xv+4,w-4:v+12 ,w-4:v+4,w-12 :v+12 ,w-12  mv+4,w-4:v+12 ,w-4:v+4,w-12 :v+12 ,w-12 :v+8,w-8  v+4,w-4:v+12 ,w-4:v+4,w-12 :v+12 ,w-12 :v+4,w-8:v+12 ,w-8  v=96`:w=103g 9dic=(*6)+1:(*12 )=5dic=di ×v,w:4;0;0,-15:4;0;15,0:4;0;0,15:4;0;-15,0 ((dic*5)+405)  p10 x=20 "p20p30x=1 "p10 p20y=1 #p30p40(y=20 p=40(x=20 #p9 y=20-(p*2) /p21p29y=(p*2)-40( /p11 p19x=40(-(p*2) /p31p39'x=(p*2)-60<  g=1p=a g=2p=b g=3p=c g=4p=d  79906 66;0;11 ,4;"You can't move" ,f=300-2:.1}L,f:f -6;11 ,4;" "  500 /0;7;1;x,y;(g+64@)  /p=10 p=20p=30p=40( Mp=3p=23p=7p=18p=28p=38&8000@  2501 g=1tot>asc g=2tot>bsc g=3tot>csc g=4tot>dsc  79906 6;0;9 ,5;"Do you want ";10 ,5;"to buy that";11 ,5;" CHIP for";12 ,5;tot;" bytes Y/N"  ="n" ="y"2051  2030 2052:2060  "p9 p1y=y+1 $p19p11 x=x+1 $p29p21y=y+1 &p39'p31x=x+1:   g=1asc=asc-tot  g=2bsc=bsc-tot g=3csc=csc-tot g=4dsc=dsc-tot x,y;(g+64@)  Mg=17;0;1,25;" ";1,25;asc !Mg=27;0;4,25;" ";4,25;bsc "Mg=37;0;7,25;" ";7,25;csc #Og=47;0;10 ,25;" ";10 ,25;dsc $ o$(g,p)="1" 4 2501 :2520 #p6p9 tot=30 %p11 p14tot=40( %p16p19tot=502 %p21p24tot=60< %p26p29tot=70F %p31p34"tot=80P &p36$p39'tot=100d :p=5p=15p=25p=35#tot=502 &p=13 p=33!tot=150 #p1p4tot=20  ti=0 79906 (p*10 )+3000 tot=(tot*ti)/2 k6;0;10 ,7;(g+64@);" pays ";(pay+64@);12 ,7;tot;" Bytes" 1,10 ,1,12 ,1,13 ,1,10 ,1,12 ,5,13 ,1,12 ,1,10 ,1,12 ,4,13 ,1,12 ,1,10 ,1,13 ,2,13 ,8,10 52577 :f=115:x,y:x/7,y:f ((pay*502)+2600( ) Z asc=asc+tot d91,25;7;" ";1,25;asc f((g*10 )+2890J ) n bsc=bsc+tot 94,25;7;" ";4,25;bsc ((g*10 )+2890J )  csc=csc+tot 97,25;7;" ";7,25;csc ((g*10 )+2890J )  dsc=dsc+tot ;10 ,25;7;" ";10 ,25;dsc ((g*10 )+2890J )  T asc=asc-tot UB7;0;1,25;" ";1,25;asc Vasc<07500L W ^ bsc=bsc-tot _B7;0;4,25;" ";4,25;bsc `bsc<07500L a h csc=csc-tot iB7;0;7,25;" ";7,25;csc jcsc<07500L k r dsc=dsc-tot sD7;0;10 ,25;" ";10 ,25;dsc tdsc<07500L u Gl=1:3500 :l=2:3500 :l=4:3500 : 3350 Gl=6:3500 :l=8:3500 :l=9 :3500 : 9 3140D : 3330 DJl=11 :3500 :l=12 :3500 :l=14:3500 : N 3350 vJl=16:3500 :l=17:3500 :l=19:3500 : Jl=21:3500 :l=22:3500 :l=24:3500 : 3350 Jl=26:3500 :l=27:3500 :l=29:3500 : 3340 2l=13 :3500 :l=33!:3500 : Jl=31:3500 :l=32 :3500 :l=34":3500 : al=5:3500 :l=15:3500 :l=25:3500 :l=35#:3500 : >Jl=36$:3500 :l=37%:3500 :l=39':3500 : ti=ti+(o$(pay,l)-480)  1:1:7: 5,1;"       ";6,1;"    ";7,1;"    " g9 ,15;"By";11 ,10 ;"J.Fletcher";16,3;"1983 Protek Computing Ltd" 421,1;"Do you want instructions?(Y/N)" =""4040 ="N"Ŧ="n"4490 ="Y"Ŧ="y"4080  4040 :0,11 ;"SPECULATOR";1;6;0,11 ;"__________":2,0;7;"Here is a short version of the rules,for fuller details refer to the cassette insert." 5,0;"After entering the number of players,(2 to 4),the computer will set up the board and the bank.Press 't' to throw the dice,and the computer will move yourcounter." 11 ,0;"If you land on an unclaimed square,then you have the option to buy it.If you do,your letter will be put in with a white background." 16,0;"If you own all the three squaresin the set,then you can double the value of that square and thebackground colour will change tored.":21,0;1;"Press any key to continue.":0 :0,0;"If all the squares are doubled, then you can treble the value ofthe square on which you have landed,and the background colourwill change to blue." "u5,0;"Forfeits,calculated as the average value of the set,are paid to the owner of the square." ,^8,0;"You lose your go if you would land on a square that is alreadyoccupied." 611 ,0;"Your squares have no surrender value,if your bank balance goes into the red,then you are out ofthe game,and your squares are made available to the remaining players.";21,0;1;"Press any key to continue":0 @:"Square values are:-" J'3,0;"'BEEP' Squares= 20 Bytes","'SAVE' Squares= 30 Bytes","'PEEK' Squares= 40 Bytes","'DATA' Squares= 50 Bytes","'LOAD' Squares= 60 Bytes","'READ' Squares= 70 Bytes","'POKE' Squares= 80 Bytes","'RUN' Squares= 100 Bytes",,,"'ROM' Squares= 50 Bytes","'RAM' Squares= 75 Bytes" ^K15,0;"'RAM' and 'ROM' squares cannot be increased in Value." h?21,0;1;"Press any key to start.":0 &7:7:0::9 $79906:2052:2501 g=1asc