10 MODE7:PROCA:*LOAD !screen
   20 VDU23;8202;0;0;0;
   30 PRINTTAB(8,12);CHR$130;"ADFS Backup (Master)"
   40 PRINTTAB(8,13);CHR$130;"Menu Program Utility"
   50 PRINTTAB(8,14);CHR$130;"Mode 7 Graph Routine"  
   60 PRINTTAB(8,15);CHR$130;"Lower to Upper Case"
   70 PRINTTAB(8,16);CHR$130;"SOUND SAMPLES MENU"
   80 _%=FNA(6,12,25,16) 
   90 IF _%=1 THEN PROCadfsb
  100 IF _%=2 THEN CLS:CHAIN"MENUPRG"
  110 IF _%=3 THEN CLS:CHAIN"GRAFGEN"
  120 IF _%=4 THEN CLS:CHAIN"UPPCASE"
  130 FOR X=9 TO 21:PRINTTAB(1,X);SPC(38);:NEXT X
  140 PRINTTAB(8,11);CHR$130;"Breakout"
  150 PRINTTAB(8,12);CHR$130;"The Radio Star"
  160 PRINTTAB(8,13);CHR$130;"Ghostbusters"
  170 PRINTTAB(8,14);CHR$130;"Knight Rider"
  180 PRINTTAB(8,15);CHR$130;"Short Sentence"
  190 PRINTTAB(8,16);CHR$130;"Top Gun Theme"
  200 PRINTTAB(8,17);CHR$130;"Vincent"
  210 PRINTTAB(8,18);CHR$130;"Laura"
  220 _%=FNA(6,11,25,18) 
  230 REM *DIR S
  240 FOR X=9 TO 21:PRINTTAB(1,X);SPC(38);:NEXT X  
  250 PRINTTAB(0,12);CHR$130;"           SOUND SAMPLES"   
  260 PRINTTAB(0,14);CHR$130;"Press <CTRL> <BREAK> and Re-Boot disc"  
  270 PRINTTAB(0,16);CHR$130;"       when finished listening"   
  280 IF _%=1 THEN CHAIN"BREAK"
  290 IF _%=2 THEN PAGE=&1100:CHAIN"BUGGLE"   
  300 IF _%=3 THEN CHAIN"GHOST"
  310 IF _%=4 THEN CHAIN"KNIGHT"
  320 IF _%=5 THEN CHAIN"SENT1"
  330 IF _%=6 THEN CHAIN"TOPGUN"
  340 IF _%=7 THEN CHAIN"VINCENT"
  350 IF _%=8 THEN CHAIN"LAURA"
  360 *DIR $:RUN  
  370 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  380 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$130;TAB((`%+b%),a%);CHR$156:*FX15    
  390 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO440
  400 IFe%=0THENe%=-1
  410 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO440
  420 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO440
  430 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  440 UNTILA$=CHR$13:*FX4,0
  450 =(a%-d%)
  460 DEFPROCA:*KEY14 1|M
  470 *KEY15 0|M
  480 *KEY12 0|M
  490 *KEY13 1|M
  500 ENDPROC
  510  
  520 DEF PROCadfsb:CHAIN"ADFSBCK"
  530 CLS
  540 OSCLI("LOAD !Screen")
  550  PRINTTAB(0,10);CHR$130;"Please copy program $.ADFSBCK onto"
  560 PRINTTAB(0,11);CHR$130;"an appropriate ADFS format disc"
  570 PRINTTAB(0,12);CHR$130;"before running this program."
  580 PRINTTAB(0,13);CHR$130;"Program runs on Master Series"
  590 PRINTTAB(0,14);CHR$130;"microcomputers only."
  600 A=GET
  610 RUN
  620 ENDPROC