spectrum graphics - OpenLibra

2860 LET z*-*BONUS : 100x": FOR
g-1 TO LEN z«: PRINT AT 10,g+3»z
*(g)j: PAUSE 3: NEXT g! PRINT ;h
lti "J INK 71100*hit
2870 IF hit=20 THEN LET z*="EXT
RA BONUS : 25,000"! FOR g=i TO L
EN z*: PRINT AT I3,g+5| INK 6;z»
< g) : BEEP .07,CODE z*(g>-60: NEX
T g: LET sc—sc + 23000
2880 LET sc=sc+hit*100
2890 RESTORE 2890: FOR n-1 TO 8:
READ t! BEEP .35,t: NEXT n: DAT
A 12,9,7,9,12,9,7,9: BEEP .5,5
3000 INK 5: CLS : LET z*="STAGE
-: FOR z=l TO LEN z«: PRINT AT 1
0,11+Z|Z*(Z)I: PAUSE 3: NEXT z:
PRINT stage: LET stage=atage+1:
GO SUB 8500
3010 LET now"19: LET w=wl+5: LET
x2=2: LET x=5
3100 PRINT AT 0,0|"l I'JAT 1,0
{"I I' I AT 2,0i"|_J"
3105 FOR x=0 TO 7*. PRINT AT x, 23
; INK 6;"E-: NEXT X
3110 PRINT AT 12,25; INK 2; PAPE
R 01" •MAT 13,251" JML" I AT 1
4,25;" JM Hi'lAT 15, 23| " JHBL'
;AT 16,25i PAPER 1; INK 4; BRIGH
T 0; M MMTMM M i AT 17,231hhb*
; AT 18, 25; • • • B ' i AT 19,25; "••
• M";AT 20, 23; " • ,H';AT 21,
25;-HH mm"
3115 PRINT AT 0,8;"SCORE:";sc
3120 PRINT AT 1,19; INK 6J ",!•»» *;
AT 2,19; INK 6| " "JP "
3130 PLOT 229,165: DRAW 26,0: DR
AW 0,10: DRAW -26,0: DRAW 0,-10:
PRINT AT 0,29; INVERSE 1) PAPER
1; "
3140 LET z$="READY ?"S FOR z=l T
O LEN z«: PRINT AT 12,11+z;z*(z)
;: PAUSE 3: NEXT Z: FOR t=0 TO 8
0: NEXT t: PRINT AT 12,12;"
"(AT 10,12;"
3150 LET y2«2l: LET a*="FG*: LET
y=22
3152 LET X3-INT
3155 LET i-INT *=bon THEN LET pig=pi
g+2: LET bon-bon+20000
3160 PRINT AT l,lf INVERSE l; PA
PER Hw(" " ; AT 0, 29) ranow- ( 19-now
)
3165 IF 19-nowranow THEN GO TO
5500
3170 IF w-0 THEN GO TO 5557
SPECTRUM GAME
3180 PRINT AT y2-l,x3f INK 71'J"
;AT y2,x3; INK 7|*K": GO TO 3500
3200 LET y2«y2-l
3210 IF y222 THEN GO TO 3600
3530 IF INKEYS-" " THEN LET x2=
x+l: LET a*="": LET y=y-1
3600 PRINT AT x,23; INK 6; "LM"I A
T x+l,23; INK 6|"NO*;AT x+2,23;
INK 6;"PO"(AT x-1,23; INK 6;"E"|
AT x+l,21| INK 5;a*
3610 IF y =>22 THEN GO TO 3200
3650 LET y=»y-2
3655 IF y