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