10REM Outlined text 20REM by John Walsh 30REM (c) The Micro User 40REM November 1990 50MODE1:PROCtitle:MODE2:VDU23;8202;0; 0;0;:PROCloader:CHAIN"!MENU" 60DEF PROCtitle 70PROCoutline("B.B.C. DIGITISED SOFTW ARE",6,1,3,0) 80PROCoutline("`````````````````````` ```",6,2,3,0) 90PROCoutline("This disc contains ass orted pictures",1,5,2,1) 100PROCoutline("mainly of RED DWARF II I",1,7,2,1) 110PROCoutline("Pictures digitised by" ,6,17,3,0) 120PROCoutline("Chris Ince",6,19,3,0) 130PROCoutline("Press RETURN to Contin ue",6,21,3,0):A=GET 140ENDPROC 150DEF PROCoutline(text$,x,y,c1,c2) 160gx=x*32:gy=1024-(y*32):VDU 5 170GCOL 0,c1 180MOVE gx-4,gy:PRINT text$ 190MOVE gx+4,gy:PRINT text$ 200MOVE gx,gy-4:PRINT text$ 210MOVE gx,gy+4:PRINT text$ 220MOVE gx-4,gy-4:PRINT text$ 230MOVE gx+4,gy-4:PRINT text$ 240MOVE gx+4,gy+4:PRINT text$ 250MOVE gx-4,gy+4:PRINT text$ 260GCOL 0,c2:MOVE gx,gy:PRINT text$ 270VDU 4:ENDPROC 280DEF PROCloader 290PRINTTAB(0,5)"PRESS SPACE TO LOAD"; TAB(5,8);"PICTURES" 300REPEAT UNTIL GET=32 310RESTORE 360 320FOR A%=0 TO 15 330READ C% 340VDU19,A%,C%;0; 350NEXT 360DATA 0,4,1,5,2,6,3,7 370DATA 0,4,1,5,2,6,3,7 380C%=0 390FOR X%=0 TO 1280 STEP 160 400GCOL 0,C% 410C%=C%+1 420FOR Y%=0 TO 1024 STEP 256 430*DIR P 440*L.RIMMER 450REPEAT UNTIL GET=32 460*L.HOLLY 470REPEAT UNTIL GET=32 480*L.KRYTEN 490REPEAT UNTIL GET=32 500*L.CLINT 510REPEAT UNTIL GET=32 520*DIR $ 530ENDPROC