spectrum graphics - OpenLibra

v, -' v v v,''^'''/T; *VAAVV'^Vi'/i^f^fp-',! „ y>?
'rVv/vV'- < - " ' - . ^ V v W - ' ^ V t t i . Vj
1 REM XXXKXXKXXXXXXIXXKXXXXXX
•Underlined characters*
•are entered in *
•GRAPHICS mode. •
«HHHHHHHHHHHHHHHHHHHHHHI
20 CLS : PRINT AT 10,0J"READIN
G GRAPHICS! HANG ON A SEC."
30 GO SUB 9500
40 INK 7: PAPER 0: BORDER 0: B
RIGHT 1! CLS
45 LET z*="P.9.PRODUCTIONS PRE
SENTS": FOR z=l TO LEN z*: PRINT
AT 3,z+3;z*(z): PAUSE 5: NEXT z
: RESTORE 45: FOR n-i TO 3: READ
t: BEEP .15,t: NEXT n: DATA 0,2
,4: BEEP .35,7: BEEP .20,4: BEEP
.3,7
50 RESTORE 50: DIM a(6>: FOR t
=1 TO 6: READ a(t): NEXT t: DATA
10,12,14,16,18,20: FOR x=*l TO 6
: FOR y«=20 TO 10 STEP -1: PRINT
AT y,a(x){ INK x+l|"CD"JAT y-1, a
< x) ; INK x + l;"ftB": BEEP .023,y/x
:: PRINT AT y,a(x);" NEXT y:
PRINT AT y+l,a(x)|. INK x + ll * CD*
: PRINT AT 3,4| INK X+l} BRIGHT
1;"P.Q.PRODUCTIONS PRESENTS": NE
XT x
60 INK 6: BRIGHT l: FOR x=l TO
6: PRINT AT 9,a|"R5«|AT 10,a
;"TU»: BEEP .01,0: BEEP . 0 1 , 3
: BEEP .01,10: PRINT AT 9,a(x>»"
"J AT 10,a(x M" ": GO SUB 100:
NEXT x
70 GO TO 165
100 GO TO 100+(x*10)
110 PLOT 84,90: DRAW 0,10: DRAW
10,-1,-1.5: DRAW -7,-5,-1.5: DR
AW 0,2: DRAW 3,3,.5: RETURN
99 ZX COMPUTING DECEMBER/JANUARY 1985
120 CIRCLE 102,95,6: CIRCLE 102
,95,4: RETURN
130 CIRCLE 118,95,6: CIRCLE 118
,95,4*. RETURN
140 PLOT 128,88: DRAW 5,0: DRAW
5,13,1.5: DRAW -7,0: DRAW 0,-2:
DRAW 5,0: DRAW -5,-9,-2.5: DRAW
-3,0: DRAW 0,-2: RETURN
150 PLOT 144,90: DRAW 0,8: DRAW
14,0,-2: DRAW 0,-8: DRAW -3,0,-
2: DRAW 0,4: DRAW -8,0: DRAW 0,-
4: DRAW -2,0,-2: PLOT 147,97: DR
AW 6,0: DRAW -6,0,1: RETURN
160 PLOT 163,92: DRAW 0,10: DRA
W 3,0,-1: DRAW 10,-10,2: DRAW 0,
10: DRAW 3,0,-1: DRAW 0,-13: DRA
W -3,0: DRAW -10,5,-2: DRAW 0,-5
: DRAW -3,0,-2: DRAW 0,3: RETURN
165 FOR t=l TO 2: FOR y=0 TO i:
FOR x=l TO 7: PLOT INK x; BRIG
HT y;56,72: DRAW INK x; BRIGHT
y;150,0: BEEP .02,0: DRAW INK x
; BRIGHT y t 0,48: BEEP .02,7: DRA
W INK x; BRIGHT yj-150,0: BEEP
.02,9: DRAW INK x| BRIGHT y*0,~
48: BEEP .02,5: NEXT x: NEXT y:
NEXT t
170 BEEP 1,0: BEEP 1,-12
175 DIM s(10): DIM n*(10,20): F
OR t = l TO 10: LET n*(t>«=" 77777?
• ; NEXT t
180 INK 6: BRIGHT l: CLS
185 LEY z*= " CONTROL • FOR z = l T
O LEN z«: PRINT AT 2,z+12;2$(2);
: PAUSE 2: NEXT z
187 LET z*=" UP KEY
A": FOR z-1 TO LEN z*: PRINT AT
6,z+5;z*(z>|: PAUSE 2: NEXT z
189 LET z*="DOWN KEY
I