Listing of file='OXO.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
10 REM * DISPLAY TO SEE HOW COLOURS LOOK ALL OVER SCREEN 20 REM * TO CHECK CONVERGENCE QUALITY. ALSO TESTS BELL. 30 REM * BY K. G. WINDER. NOV. 1982 40 PLOT 14,12:PRINT :PRINT :PRINT 50 PRINT TAB( 13)"CONVERGENCE TEST DISPLAY OF COLOURS" 60 X= 0:Z= 0:Y= 1 70 PLOT 15,3,16,15 80 INPUT "SILENT OR WITH BELL TEST? - ";Q$ 90 IF Q$= "S"THEN P= 0 100 IF Q$= "B"THEN P= 1 110 IF Q$< > "B"AND Q$< > "S"THEN 70 120 PLOT 12 130 REM 140 X= X+ 1:PLOT 6,X 150 IF X> = 7THEN X= 0 160 PLOT 3,Z,Y 170 IF Y> = 30THEN Z= Z+ 4 180 IF Y> = 30THEN Y= 0:IF P= 1THEN 250 190 IF Z> = 64THEN Z= 0:X= X+ 1:Y= 1:GOTO 210 200 Y= Y+ 1 210 PRINT "OXO":REM - OR CHOOSE OWN THREE LETTERS. 220 IF P= 0THEN 240 240 GOTO 130 250 FOR I= 1TO 200:NEXT 260 PLOT 7:Y= Y+ 1:GOTO 130 270 END