04.03.2013 Views

spectrum graphics - OpenLibra

spectrum graphics - OpenLibra

spectrum graphics - OpenLibra

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

+ .3)<br />

2420 NEXT r<br />

2425 IF b(t,1) =b ( t, 2 > THEN<br />

0 2410<br />

2430 NEXT t<br />

2506 PRINT AT 0,01"<br />

GO T<br />

1 -1 | AT 2,0; •<br />

2507 FOR x*=0 TO 7: PRINT<br />

I INK 6|"E": NEXT x<br />

2510 PRINT AT 12,25; INK 2) PAPE<br />

R 01* •* i AT 13,231" m'|AT 1<br />

4,25;- JH •L" ) AT 15 , 25) • M H »<br />

;AT 16,25J PAPER 1| INK 4; BRIGH<br />

T 0| *••••••" J AT 17,25) MM"<br />

;AT 1 8 , 2 5 1 A T 19,25)-*<br />

• V)AT 20, 25) " ••• .• < !AT 21,<br />

25) -••i wm m<br />

2515 PRINT AT 0,8)"SCORE:")ac<br />

2517 LET z»=«" READY<br />

0 LEN z*: PRINT AT<br />

I: PAUSE 3: NEXT z<br />

age+ 1<br />

?•: FOR z=l T<br />

12, 11+z) z*(z><br />

LET stage=st<br />

2518 RESTORE 2518: FOR n=l TO 13<br />

: READ t: BEEP .30,t: NEXT n: DA<br />

TA 0,4,0,5,0,7,5,4,4,5,2,0,-1: B<br />

EEP .45,0: PRINT AT 10,8;"<br />

")AT 12,12)"<br />

2520 LET hit=0: LET r=-0: LET cou<br />

nt*10: LET x2=2: LET y=22: LET x<br />

=5: LET a*="FG"<br />

2525 LET r-r+i: LET vv-l: LET v=<br />

l: LET y21=20.6: LET y22=20.3<br />

2526 LET il=INT =*bon THEN LET pig=pi<br />

g+2: LET bon=bori+ 20000<br />

2535 PRINT AT 1,1) INVERSE 1) IN<br />

K 5)11-r)" "<br />

2555 IF v=0 AND vv=0 THEN GO TO<br />

2525<br />

2557 IF v=0 THEN GO TO 2575<br />

2560 LET y21=y21-.8<br />

2565 IF INT (y21 + .5)

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!