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