P186 ORACLE 186 Mon26 Apr ITV 1902:03 35802033GFSN0v SQUARE 35802033GFSN0v 1 GRAPHICS |>2 PRINT CHR$(12%)|u3 ! This program was written by Steven Coote at Richard Hale School, Hertford.|.4 PRINT CUR(6,0) CYA "This program gives a simpl e animated"|'5 ; CYA "display of full gr aphics. To stop the "|46 ; CYA "display press 0."|/7 PRINT CUR(23,0) YEL "Press space for display"; : GET K$|d8 FG -1%|$ 9 FG 1%|x10 PRINT CHR$(12)|11 FOR X%=0% TO 239% STEP 2%|-12 FGPOINT X%,0%,1%| v13 FGLINE 120%,120%,1%|314 FGPOINT 239%,X%,1%|f15 FGLINE 120%,120%,1%|516 FGPOINT 0%,X%,1%|z17 FGLINE 120%,12 0%,1%|718 FGPOINT X%,239%,1%|f19 FGL INE 120%,120%,1%|920 NEXT X% |z21 FOR C% =146% TO 151%|*22 FOR R%=0% TO 23%|=23 PRINT CUR(R%,0%) CHR$(C%) NWBG|)24 NEXT R% |825 FOR U%=1% TO 2000%|!26 NEXT U% |=27 IF SYS(5) THEN GET K$ : GOTO 30 ELSE 28|—28 NEXT C% |m29 GOTO 2 1|c30 FG 0%|!31 PRINT CHR$(12%)|'|
P186 ORACLE 186 Mon26 Apr ITV 1900:11 35802033GFSN0v SQUARE 35802033GFSN0v 1 GRAPHICS |>2 PRINT CHR$(12%)|u3 ! This program was written by Steven Coote at Richard Hale School, Hertford.| 4 PRINT CUR(6,0) CYA "This program gives a simpl e animated"|'5 ; CYA "display of full gr aphics To stop the "|46 ; CYA "display press 0."|/7 PRINT CUR(23,0) YEL "Press spacd for display"; : GET K$|d8 G -1%|$ 9 FG 1%|x10 PRINT CHR$(12)|11 FOR X%=0%
P186 ORACLE 186 Mon26 Apr ITV 1900:00 TO 239% STEP 2%|-12 FGPOINT X%,0%,1%| v13 FGLINE 120%,120%,1%|314 FGPGHNT 239%,X%,1%|f15 FGLINE 120!,120%,1%|516 FGPOINT 0%,X%,1%|z17 FGLINE 120%,12 0%,1%<718 FGPGINT X%,239%,1%|j19 FGL INE 120%,120%,1%|920 NEXT X% |z21 FOR C% =146% TO 151%|*22 FOR R%=0% TO 23%|=23 PRINT CUR(R%,0%) CHR$(C%) NWBG<)24 NEXT R% |825 FOR U%=1% TO 2000%|!26 NEXT U% |=27 IF SYS(5) THEN GET K$ : GOTO 30 ELSE 28|—28 NEXT C% |m29 GOTO 2 1|c30 FG 0%|!31 PRINT CHR$(12%)|'|