You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
: ^X<br />
"N" THEN GO TO 2508<br />
2509 IF INKEY*="Y" THEN LET Cl=<br />
C: LET R1=R: GO TO 2515<br />
2510 GO SOB 3400: LET R1=R: LET<br />
C 1=C<br />
2511 LET AT=22528+C1+32*R1<br />
2512 FOR N=0 TO 15<br />
2513 LET Q(1)=ATTR : LET<br />
0(2)=ATTR (R1,C1+1): LET Q(3)=AT<br />
TP < R 1 + 1 , C I ) : LET Q(4)=ATTR (R1 +<br />
1,C1+1)<br />
2515 INPUT PRINT #G J TAB 10; "<br />
PLEASE WAIT"<br />
2516 FOR N=0 TO 15<br />
2520 FOR M=0 TO 15<br />
2530 IF B*(M+1 ,N+-1) = "B H THEN PL<br />
OT Cl*8+M,(175-R1*8)-N<br />
2540 NEXT M<br />
2550 NEXT N<br />
2560 POKE AT,9(1>: POKE AT+1,G: POKE AT + 32,8(3) : POKE AT+33,Q<br />
44 )<br />
2562 IF ZA THEN GO TO 5360<br />
2563 RANDOMIZE USR ST<br />
2564 LET X=PEEK 23728: LET Y=PEF<br />
K 23729<br />
2565 RETURN<br />
2730 FOR M=1 TO 16<br />
2740 FOR N=1 TO 7<br />
2745 LET T*=B*(8+N,M)<br />
2750 LET B*(8+N,M)=B*(N,M)<br />
2755 LET B®(N,M)=T3.<br />
2760 NEXT N<br />
2770 NEXT M<br />
2790 RETURN<br />
2830 FOR M=1 TO 7<br />
2840 FOR N=1 TO 16<br />
2845 LET T*=BS(N,8+M)<br />
2850 LET B*(N,8+M>=B*(N,M)<br />
2855 LET B0)<br />
3470 PRINT OVER 1 J AT R,C;~ 1 ;A<br />
T R+l,c;"<br />
3480 LET R=R1: LET C=C1<br />
3490 PRINT OVER 1;AT R,C;" M ;A<br />
T R + 1 , C | "<br />
3500 GO TO 3430<br />
3610 INPUT "": PRINT WG|TAB 8;"S<br />
ELECT 1 TO 4"<br />
3620 IF INKEY*"" THEN GO TO 3<br />
620<br />
3630 IF INKEY*"4"<br />
THEN GO TO 3630<br />
3635 LET G*=INKEYS<br />
3640 LET S=65367-VAL G**6848<br />
3650 POKE 23300,S-256*INT (S/256<br />
): POKE 23301,INT (S/256): POKE<br />
23309,PEEK 23300: POKE 23310,PEE<br />
K 23301<br />
3660 INPUT "": PRINT #G;TAB 10;"<br />
SCREEN 3 •;VAL G*<br />
3670 GO SUB Z<br />
3690 RETURN<br />
3710 INPUT "TEXT '; LINE TS<br />
3715 LET R=0: LET C=0: PRINT JN<br />
K 8; OVER 1| FLASH 1 ; AT RjCj-tS 1 -<br />
3720 PRINT #5;"MOVE SQUARE TO RE<br />
QUIRED POSITION"<br />
3725 IF INKEY*"" THEN GO TO 3<br />
COMPUTING DECEMBER JANUARY 1985 29<br />
725
Change language