P703 CEEFAX 703 Sat 16 Apr 17:25/45 OWL This is a short program designed to demonstrate telesoftware downloading The logo of the Computer Literacy Project is shown, together with the referal address for the project. Program followsP703 CEEFAX 703 Sat 16 Apr 17:21/27 |B21112|a33OWL10816:03/83|i24BBBC316k|s÷ #1÷e|s÷Z0 1 MODE1:VDU5:REPEAT:READC,X,Y 2 IFC<88THENPLOTC,X,Y:GOTO7 3 IFC<120THENPROCA(C-100):GOTO7 4 IFC<140THENPROCB(C-120):GOTO7 5 IFC<160THENPROCC(C-140):GOTO7 6 IFC=160THENVDU19,X,Y,0,0,0 7 UNTJLC>255:RJPEATUNTJLFALSE 8 DEFPROCA(V):READS$:MOVEX,Y:GCOL0,V :PRINTS$:ENDPROC 9 DEFPROCB(V):READA,B:GCOL0,V:PLOT4, X,Y:PLOT1,0,-B:PLOT81,A,0:PLOT1,0,B:PLOT 81,-A,0:ENDPROC 10 DEFPROCC(V):READA,B:GCOL0,V:PLOT4, X+A,Y:FOR =0TO6.4STEP0.2:PLOT5,X,Y:PLOT8 1,A*COSI,B*SINE:NEXT:ENDPROC 2p DATA101,300,1 00,CEEFAX703,102,700 ,1000,BBC Telesoftware 22 DATA1 2,190,8p0,BBC,1 2,1 0,750,CO MPUTER,1p2,1p0,700,LITERACY,1p2,115,650, PROJECT,103,100,500,POBox7,103,120,450,L ONDON,103,140,400,W36XJ |c0P703 CEEFAX 703 Sat 16 Apr 17:27/14 |B21212|a33OWL10816:03/83|i24BBBC316k|s÷ #1÷e|s÷Z0 24 DATA123,700,8p0,4p0,200,122,730,10 0,340,50,4,1100,100,5,1100,700,85,1050,6 p0,5,1100,100,85,750,600 26 DATA4,700,680,5,1050,180,85,700,55 0,85,1000,180,141,810,720,40,60,141,990, 720,40,60,122,810,720,8,14,122,990,720,8 ,14,4,900,670,5,870,640,85,930,640,256,0 ,0 |c0P703 CEEFAX 703 Sat 16 Apr 17:29/45 TVtest TVtest is designed to provide some testing routines for monitors and TV receivers. This page contains two programs, OWL and TVtest, for experimental purposes. Program followsP703 CEEFAX 703 Sat 16 Apr 17:24/13 |B21114|a36TVtest10815:04/83|i24BBBC316k |p|s÷#1÷e|s÷Z0 10 REM TVTEST / Test pattern generato r 11 REM (C) BBC 1982 / 12 REM bz T.E.Kennington, TV Network 13 REM VET 1.3 / 09-08-82 14 REM BBC microcomputer, 16k 15 20 MODE7:PROCintro 3p PRJNTTABX2,24)"Select>";:A=0 40 B=GET:IF B=13 GOTO 90 ELSE B=B-48 50 IF B>=1 AND B<=4 A=B ELSE 40 70 PRINTTAB(9,24);A;:GOTO40 90 IF A=p MODE7:PROCmjnu:GOTO 30 100 ON A GOTO 110,120,130,140 11p MODE5:PROCgrill:GOTO30 120 MODE4:PROCzone:GOTO30 130 MODE7:PROCbars:GOTO30 140 MODE7:END 500 DEF PROCzonj 510 FOR R=50 TO 500 STEP 50 u20 PROCcircle(640,512,R,"L") |c0P703 CEEFAX 703 Sat 16 Apr 17:26/20 |B21214|a36TVtest10815:04/83|i24BBBC316k |p|s÷#1÷e|s÷Z0 530 NEXT 540 ENDPROC 5u0 560 DEF PROCcircle(X,Y,R,F$) 57p IF F$=bF"THENv20 580 MOVEX+R,Y 590 FOR Z=0TO 2*PI+0.2 STEP0.2 v00 DRAWX+(R*COS(Z)),Y+(R*SIN(Z)) 61p NEXT:ENDPROC 620 MOVE X,Y 630 DRAWX+R,Y 640 FOR Z=0TO 2*PI+0.2 STEP0.2 650 PLOT85,X+(R*COS(Z)),Y+(R*SIN(Z)) 660 MOVE X,Y 670 NEXT:ENDPROC v8p 690 DEF PROCgrill 700 FOR I%=25 TO 1280 STEP 95 710 MOVE I%,0:DRAW I%,1p24 720 NEXT 730 FORE%=25 TO 1024 STEP 95 |c0P703 CEEFAX 703 Sat 16 Apr 17:27/51 |B21314|a36TVtest10815:04/83|i24BBBC316k |p|s÷#1÷e|s÷Z0 74p MOVE 0,I*:DRAW 1280,I% 750 NEXT 760 ENDPROC 770 780 DEF PROCbars 790 FOR I%=0 TO 23 8p0 VDU&9E,&97,&FF,&FF,&FF,&FF,&93,&FF ,&FF,&FF,&FF,&96,&FF,&FF,&FF,&FF,&92,&FF ,&FF,&FF,&FF,&95,&FF,&FF,&FF,&FF,&91,&FF ,&FF,&FF,&FF,&94,&FF,&FF,&FF,&FF,&FF,&A0 ,&97,&FF 870 NEXT 88p ENDPROC 1000 DEFPROCintro:VDU23;8202;0;0;0; 101p PRJNTTAB(13,8)CHR$141"TV tester":P RJNTTAB(13,9)CHR$141"TV testis" 1020 A=INKEY(500):PROCmenu:ENDPROC 1p25 DEFPROCmenu 1030 PRJNTTAB(4,11)"MODSelict from the following:" 1040 PRINT'"MOD 1. Grill (crosshatch|c0P703 CEEFAX 703 Sat 16 Apr 17:16/21 |B21414|a36TVtest10815:04/83|i24BBBC316k |p|s÷#1÷e|s÷Z0 )" 1050 PRINT'"MOD 2. Circles" 1060 PRINT'"MOD 3. Colour bars" 1070 PRINT'"MOD 4. END" 1100 ENDPROC |c0