spectrum utility - OpenLibra

985
,28;- 6*
3100 PRINT PAPER 7| INK 1;AT 4,
1;•B";AT 11,28}"B"| INK 2; PAPER
71 AT 7,30 J • I•J AT 20,1J"I"| INK
6; PAPER 7 i AT 7,12»"H-;AT 20,25;
" b"
3600 LET x=15: LET y=2
3999 RETURN
4000 IF ATTR (y-l,x>40 OR ATTR
(y-2,*)=40 THEN RETURN
4005 PRINT AT y,xJ B BEEP .007
,y-i: BEEP .005,10
4010 IF ATTR (y-2,x>=62 THEN BE
EP -005,0: LET it=it+l: PRINT AT
0,6)it
4020 LET y=y-2: BEEP .007,15: PR
INT AT y,x|CHR« (ch)
4500 RETURN
5000 REM Frame
5010 FRINT PAPER 5T INK 0 J AT 1,
0;"9999999999B999999999999999999
999"?AT 21,0;•999B99999999999999
9999999999999B"
5020 FOR 1=1 TO 20: PRINT INK 0
; PAPER 5;AT i,0;"9";AT i,3l»"9"
: NEXT i
5030 PRINT AT 0,0; B Itenis " ! i t ! AT
0, 13 I "Men *lm|AT 0,24; 'Sheet ";
sh
5100 IF sh=l THEN LET x=26! LET
y=2
5110 IF sh=2 THEN LET x = 30: LET
y- 1 0
5120 LET ch=159
5999 RETURN
6000 REM Jump
6010 IF j-0 THEN GO TO 6110
6020 PRINT AT y,x;"5": BEEP .01,
13
6025 FOR i = 1 TO 10: NEXT i
6030 PRINT AT y,x;' *: LET y=y-l
: BEEP .01,16
6040 LET x=x-l: PRINT AT y,x;*I #
: BEEP .01,18
6045 FOR i = 1 TO 10: NEXT i: PRIN
T AT y, x t " ": BEEP .01,21: LET x
= x-l
6050 IF ATTR * n * THEN GO TO 7140
7150 IF a®= * y * THEN RUN
7160 IF THEN FOR i=50 TO
-10 STEP -2: BEEP .01, i.* NEXT i
: FOR i»-9 TO 50 STEP 2: BEEP .0
1,i: NEXT i: NEW
7199 STOP
7510 FOR i = 1 TO 4: PRINT AT y,xi
"N": BEEP .3,-20: PRINT AT y,xj*
Q-: BEEP .3,-10: NEXT I
7520 FOR TO 5: PRINT AT y,x}
-K-: BEEP ,1,-F: PRINT AT y,x!"L
•: BEEP .1,-^: PRINT AT y,x;'tJ":
BEEP . 1 , --f : NEXT i
7599 RETURN
7999 STOP
8000 REM udg's
8005 RESTORE 8100
8010 FOR f=0 TO 167: READ a: POK
E USR 'a'H.a: NEXT 1
8100 DATA 255,66,36,24,24,36,66,
0, 0, 6, 38, 24 , 80, 32, 0, 0, 66, 126, 66,
66,66,126,66,66,255,129,66,36,25
5,36,66,129,24,60,24,60,90,90,24
,24
8110 DATA 0,0,12,12,4,30,69,56,0
,0,0,0,0,11,139,124
ZX COMPUTING APRIL/MAY 1985 64