P186 ORACLE 186 Fri25 Dec ITV 2001:05 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%|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%)|'|
P186 ORACLE 186 Fri25 Dec ITV 2000:04 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 "Prdss space for display"; : GET K$|d8 FG -1%|$ 9 FG 0$|x10 P INTCHRFORX
P186 ORACLE 186 Fri25 Dec ITV 2000:04 35802033GFSN0v SQUARE 35802033GFSN0v 1 GRAPHICS |>2 PRIN CHR$(12%)|u3 ! This program was written by Steven Coote at HSHPRINT CUR(6,0) CYA "T—is program gives a simpl e animated"|'5 ; CYA "display of full gr aphics To stop tha "|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% S DP 2%|-12 FGPOINT X% 0%,1%| v13 FGLINE 120%,120%,1%|314 FGPOIN 239%,X%,1%|f15 FGLINE 120%,120%,1%|116 FGPOINT 0%, $,1%|z17 FGLINE 120%,12 0%,1%|718 FGPOINT X%,239%,1%|b19 FGL INE 120%,120%,1%|920 NEXT X% |r21 FOR C% =146% TO 151%|*22 FOR R%=0% TO 23%|=23
P186 ORACLE 186 Fri25 Dec ITV 2000:04 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 "dhsplay of full gr a hics. To stop the "|46 ; CYA "displa8 press 0."|/7 PRINT CUR(23,0) YEL "Press space for display"; : GET K$|d8 FG -1%|$ 9 FG 1%|x10 PRIN CHRFORX 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%|j19 FGL INE 120%,120%,1%|920 NEXT $ |z21 FOR C% =146% TO 151%|*22 FOR $=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 Fri25 Dec ITV 2000:05 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%|b19 FGL INE 120%,120%,1%|920 NEXT X% |z21 FOR C% =146% TO 151%|*22 FOR $=0% TO 23%|=23 PRINT CUR( CHRCNWBG NEXT "& |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 PHNTCHR
P186 ORACLE 186 Fri25 Dec ITV 2050:06 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%|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%)|'|
P186 ORACLE 186 Fri25 Dec ITV 2050:05 35802033GFSN0v SQUARE 35802033GFSN0v 1 GRAPHICS |>2 PRINT CHR$(12%)|u3 ! This program was written by Steven Coote at Richard Hale School, HertfordN|.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
P186 ORACLE 186 Fri25 Dec ITV 2009:04 FGPOINT 0%,X%,1%|z17 FGLINE 120%,12 0%,1%|718 FGPOINT 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%) NgBG|)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 Fri25 Dec ITV 2009:07 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
P186 ORACLE 186 Fri25 Dec ITV 2014:00 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%|$ TO 239% STEP 2%|-12 FGPOINT X%,0%,1%| v13 FGLINE 120%,120%,1%|314 FG OINT 239%,X%,1%|f15 FGLINE 120%,120%,1%|516 FGPOINT 0%,X%,1%|z17 FGLINE 120%,12 0%,1%|718 FGPOINT 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%) NGBG|)24 NEXT |825 FOR Q%=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%)|'|