FruitmachiA A8C *** DE FRUITMACHINE *** **** ALGEMEEN INLEIDING ****  4000  C=100d (D16,2;1;0;" SPECTRUM FRUIT-MACHINE " 2NX=110 :.1}L,X:.1}L,-X:.2~L,0:.1}L,X:X 4 6: 6!**** VRAGEN OM TOETSINDRUK **** 71:6:0 5R+5,A*10 -7;X-5;7;A$(X*7-7+R) hNX5R+5,A*10 -7;X;7;A$(X*7-7+R) rR |X*A*.5 X #**** VERGELIJKEN VAN RADEREN **** B(A)=Z :.05|L,12 :.02{# =,16:.5,6 A 9B(1)=B(2)B(2)=B(3)2000 OB(1)=B(2)B(2)=B(3)B(1)=B(3)3000 %**** AANTAL PUNTEN, NAAR BEGIN **** C=C-10 C=01000  60< **** VERLOREN **** &0:0:7:1: +16,4;" BLUT " @X=10 30:.01z# =*X,-X:.02{# =*X,-X+3:X  0 **** NOG EEN SPEL **** -20,9 ;6;"NOG EEN SPEL ?" 121,9 ;4;"TIK J(A) OF N(EE)." $""1060$ .=""1070. 8S$= BS$="J"S$="j":30 LS$="N"S$="n"1500 V **** WE STOPPEN ERMEE **** 0:0:7: *P=119:P,P;"JAMMER ......" P /21,1;" MAAR WE STOPPEN ERMEE." 5,-10 : **** ALLEDRIE GELIJK **** 6:1 H16,0;1;7;" KASSA !! 250 pnt. " 619,0;" " JX=15:Y=13:.05|L*Y,X:.05|L*X,Y:Y:X C=C+250  557 **** TWEE GELIJK **** 2:1 H16,0;1;7;" TROOSTPRIJS 50 pnt. " 619,0;" " SX=50-1:Y=14:.02{# =*Y,X:.02{# =*X,Y:Y:X C=C+502 557 **** BONUS **** 4 1 66,13 ;0;7;" " 67,13 ;1;7;" " 68,13 ;2;7;" **** " 69 ,13 ;3;7;" ==== " 710 ,13 ;4;7;" **** " 711 ,13 ;5;7;" " 712 ,13 ;0;7;" " ?16,0;0;" BONUS 300 pnt. " 619,0;" " X=62-2:Y=162:Z=612 3:.01z# =*Y,Z:.01z# =*Z,Y:.01z# =*X,Z:.01z# =*Y,X:Z:Y:X $C=C+300, )X0:Q=612 :Q,0;6;" ":Q . 557 **** DE ARRAY **** A$(70F,7)  N=170F A$(N) .005y# =,N/3 N  G" "," "," "," "," "," "," " G" "," "," ",""," ",""," " G" ","","","",""," ","" G" "," ","","","",""," " G" "," "," "," "," "," "," " G" "," "," "," "," "," "," " G" "," "," "," "," "," "," " G" "," "," "," "," "," "," " G" "," "," ",""," "," "," " "G" "," "," "," "," ",""," "