P186 ORACLE 186 Sun20 Jun ITV 1900:10 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 Sun20 Jun ITV 1926:26 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 NEXd C% |m29 GOTO 2 1|c30 FG 0%|!31 PRINT CHR$(12%)|'|
P186 ORACLE 186 Sun20 Jun ITV 1926:25 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
P186 ORACLE 186 Sun20 Jun ITV 1901:01 35802033GFSN0v SQUARE 35800033GFSN0v 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%|f13 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%x823 PRINT CUR(R%,0%) CHR$(C%) NWBG|)24 NEXT FORUTO NEXT U% |=27 IF SYS(5) THEN GET K$ :
P186 ORACLE 186 Sun20 Jun ITV 1922:43 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 s0ace for display"; : GET K$|d8 FG -1%|$ 9 FG 1%|x10 PRINT CHR$(12)|11 FOR X%=0% TO 239% STEP 2%|-12 FGPOIND %,0%,1%| v13 FGLINE 120%,120%,1%|314 FGPOINT 239%,X%,1%|f15 FGLINE 120%,120%,1%|516 FGPOINT 0%, $,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% |821 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 Sun20 Jun ITV 0001:08 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% S @P 2%|-12 FGPOINT X%,0%,1%| v13 FGLINE 120%,120%,1%|314 FGPOINT 239%,X%,1%|f11 FGLINE 120%,120%,1%|516 FGPOINT 0%,X%,0$|z17 FGLINE 120%,12 0%,1%|718 FGPOINT X%,239%,1%|j19 FGL INE 120%,120%,1%|920 NEXD 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% x<27 IF SYS(5) THEN GED K$ : GOTO 30 ELSE 28|—28 NEXT C% |m29 GOTO 2 1|c30 FG 0%|!31 PRINT CHR$(12%)|'|
P186 ORACLE 186 Sun20 Jun ITV 1900:01 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%|f11 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 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 Sun20 Jun ITV 1940:04 CUR(6,0) CYA "This program gives a sampl 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 NEXD C% |m29 GOTO 2 1|c30 FG 0%|!31 PRINT CHR$(12%)|'|