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