10 PROCclear
   20 ON ERROR MODE7:VDU23;8202;0;0;0;:CLOSE#0:RUN  
   30 VDU6
   40 VDU23;8202;0;0;0;
   50 *KEY15 0|M  
   60 *KEY14 1|M
   70 OSCLI("LOAD !Screen")
   80 :
   90 PRINTTAB(5,8);CHR$134;"Issue 18 Archived Programs"  
  100 PRINTTAB(5,9);CHR$134;"Issue 18 Non-Archived Programs"    
  110 PRINTTAB(5,10);CHR$134;"HADFS Text Files Display"  
  120 PRINTTAB(5,11);CHR$134;"Return to Issue 17 Magazine"  
  130 PRINTTAB(5,12);CHR$134;"Extra Repton 3 Screens"  
  140 PRINTTAB(5,13);CHR$134;"Run Archiver Program v3.0"
  150 choice%=FNA(3,8,34,13) 
  160 IF choice%=1 THEN PROCarc
  170 IF choice%=2 THEN PROCmenu
  180 IF choice%=3 THEN MODE3:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE T.HADFS"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN   
  190 IF choice%=4 THEN OSCLI("DRIVE 2"):CHAIN"!Mag"
  200 IF choice%=5 THEN PROCrepton   
  210 IF choice%=6 THEN CHAIN":2.ARC3.0"
  220 RUN
  230 :
  240 DEF PROCmenu
  250 PROCclear
  260 PRINTTAB(5,7);CHR$134;"Harston ADFS System"
  270 PRINTTAB(5,8);CHR$134;"Escape from Jail Game"
  280 PRINTTAB(5,9);CHR$134;"ADFS Sector Rescue"
  290 PRINTTAB(5,10);CHR$134;"80 Col 16 Colour Modes"
  300 PRINTTAB(5,11);CHR$134;"Program Chopper/Joiner"
  310 PRINTTAB(5,12);CHR$134;"Screen Load/Save Utility"
  320 PRINTTAB(5,13);CHR$134;"Tree Rename (Revised)"
  330 PRINTTAB(5,14);CHR$134;"Address Database"
  340 PRINTTAB(5,15);CHR$134;"Assembler Tutorial Example"
  350 PRINTTAB(5,16);CHR$134;"Character Set Exploder"
  360 PRINTTAB(5,17);CHR$134;"VLIST Utility Command"
  370 PRINTTAB(5,18);CHR$134;"*** Return to Main Menu ***"  
  380 choice%=FNA(3,7,34,18) 
  390 IF choice%=1 THEN PROChadfs
  400 IF choice%=2 THEN *Escape
  410 IF choice%=3 THEN CHAIN"Rescue"
  420 IF choice%=4 THEN CHAIN"ModeDem"
  430 IF choice%=5 THEN PROCchop
  440 IF choice%=6 THEN PROCscr
  450 IF choice%=7 THEN PAGE=&1900:CHAIN"TreeRen"
  460 IF choice%=8 THEN CHAIN"DBase"
  470 IF choice%=9 THEN CHAIN"Ass1"
  480 IF choice%=10 THEN PROCexplode
  490 IF choice%=11 THEN PROCvlist
  500 ENDPROC
  510 :
  520 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  530 REPEATPRINTTAB(`%,a%);CHR$129;CHR$157;CHR$134;TAB((`%+b%),a%);CHR$156:*FX15
  540 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO590
  550 IFe%=0THENe%=-1
  560 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO590
  570 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO590
  580 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  590 UNTILA$=CHR$13:*FX4,0
  600 =(a%-d%)
  610 DEFPROCA:*KEY14 1|M
  620 *KEY15 0|M
  630 *KEY12 0|M
  640 *KEY13 1|M
  650 ENDPROC
  660 :
  670 DEF PROCloadID
  680 PRINTTAB(6,0);"";:TIME=0:REPEATUNTILTIME>10
  690 X=OPENIN"!8bs":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT:END
  700 PTR#X=105
  710 INPUT#X,Name$,User$,Issue$:CLOSE#X
  720 PRINTTAB(5,0);CHR$131;User$;TAB(35,1);CHR$131;Issue$ 
  730 VDU23;8202;0;0;0;
  740 ENDPROC
  750 :
  760 DEF PROCclear
  770 FOR X=5 TO 22 STEP 1
  780 PRINTTAB(3,X);SPC(34)
  790 NEXT X
  800 ENDPROC
  810 :
  820 DEF PROCrepton
  830 PROCclear
  840 PRINTTAB(2,7);CHR$131;"EXTRA REPTON SCREENS"
  850 PRINTTAB(2,9);CHR$134;"The set of screens on this months"
  860 PRINTTAB(2,10);CHR$134;"disc are on side 2 and are"
  870 PRINTTAB(2,11);CHR$134;"resident under the filename"
  880 PRINTTAB(2,12);CHR$134;"R.YJ2REP. To load these screens"     
  890 PRINTTAB(2,13);CHR$134;"you should load REPTON 3 as you"
  900 PRINTTAB(2,14);CHR$134;"normally would before pressing"
  910 PRINTTAB(2,15);CHR$134;"the letter L to load screens."
  920 PRINTTAB(2,17);CHR$131;"PRESS RETURN"
  930 *fx15
  940 A=GET:CLEAR:RUN
  950 ENDPROC
  960 :
  970 DEF PROCarc
  980 PROCclear
  990 PRINTTAB(3,7);CHR$131;"Archived Software" 
 1000 PRINTTAB(3,9);CHR$134;"200th Anniversary Mozart's Death"
 1010 PRINTTAB(3,10);CHR$134;"Welsh Boys PD Demo Software"
 1020 PRINTTAB(3,11);CHR$134;"Sorting Article Part III"
 1030 PRINTTAB(3,12);CHR$134;"3D Grand Prix Extra Screens"
 1040 PRINTTAB(3,14);CHR$131;"Please refer to Magazine"
 1050 PRINTTAB(3,15);CHR$131;"De-Archiving Instructions"
 1060 PRINTTAB(3,17);CHR$134;"Press Return"  
 1070 *FX15
 1080 A=GET
 1090 RUN
 1100 ENDPROC
 1110 :
 1120 DEF PROCexplode
 1130 CLS
 1140 PRINT"Press RETURN to Explode CHAR SET"
 1150 PRINT
 1160 PRINT"The filename EXPLODE on side 0"
 1170 PRINT"of this disc can be copied to"
 1180 PRINT"your utilities disc and then"
 1190 PRINT"activated by issuing the"
 1200 PRINT"command *EXPLODE <Return>"
 1210 PRINT
 1220 *FX15
 1230 A=GET
 1240 CLS:PRINT"Fusewire Lit ..... ";
 1250 TIME=0:REPEATUNTILTIME>100
 1260 PRINT"Bang!":TIME=0:REPEATUNTILTIME>100    
 1270 PRINT
 1280 *EXPLODE
 1290 END
 1300 :
 1310 DEF PROCvlist
 1320 CLS
 1330 OSCLI("VLIST")
 1340 PRINT
 1350 PRINT"The filename VLIST on side 0"
 1360 PRINT"of this disc can be called"
 1370 PRINT"by typing *VLIST <Return>"
 1380 PRINT"This very useful routine"
 1390 PRINT"will automatically list"
 1400 PRINT"all currently defined"
 1410 PRINT"variables (see above)."
 1420 PRINT
 1430 END
 1440 :
 1450 DEF PROCchop
 1460 CLS
 1470 PRINT"The Filenames JOINER and"
 1480 PRINT"CHOPPER on side 0 of this"
 1490 PRINT"disc can be called by the"
 1500 PRINT"commands *JOINER and *CHOPPER"
 1510 PRINT"respectively. Refer to magazine"
 1520 PRINT"for further guidance."
 1530 PRINT
 1540 PRINT"Press Return"
 1550 *FX15
 1560 A=GET
 1570 RUN
 1580 ENDPROC
 1590 :
 1600 DEF PROCscr
 1610 CLS
 1620 PRINT"Commands *SCRLOAD and *SCRSAVE"
 1630 PRINT"will save the current showing"
 1640 PRINT"screen to the filename you"
 1650 PRINT"specify.  Example ...."
 1660 PRINT
 1670 PRINT"*SCRSAVE ""DUNCAN"" <return>"
 1680 PRINT
 1690 PRINT"This would save the current"
 1700 PRINT"screen under the filename of"
 1710 PRINT"DUNCAN. *SCRLOAD ""DUNCAN"" would"
 1720 PRINT"redisplay the screen."
 1730 PRINT
 1740 PRINT"Both files are available on"
 1750 PRINT"side 0 of this disc."
 1760 *FX15
 1770 A=GET
 1780 RUN
 1790 :
 1800 DEF PROChadfs
 1810 CLS
 1820 PRINT"Disc Space will not allow me to"
 1830 PRINT"give guidance on HADFS from this"
 1840 PRINT"program. Please refer to the User"
 1850 PRINT"guide from the disc magazine and"
 1860 PRINT"the paper notes."
 1870 PRINT
 1880 PRINT"Press Return"
 1890 *fx15
 1900 a=GET
 1910 RUN
 1920 ENDPROC
 1930 :