10 ON ERROR CLEAR:RUN
   20 *DRIVE0
   30 CLS:PROCclear
   40 MODE7
   50 *KEY15 0|M  
   60 *KEY14 1|M
   70 OSCLI("LOAD !Screen")
   80 PROCloadID
   90 :
  100 PRINTTAB(5,8);CHR$130;"Issue 16 Archived Programs"  
  110 PRINTTAB(5,9);CHR$130;"Issue 16 Non-Archived Programs"  
  120 PRINTTAB(5,10);CHR$130;"Issue 16 Magazine Information"   
  130 PRINTTAB(5,11);CHR$130;"Non-Linear Equations Text"  
  140 PRINTTAB(5,12);CHR$130;"DFS > ADFS Transfer Text"
  150 PRINTTAB(5,13);CHR$130;"Tree Rename Utility Text"
  160 PRINTTAB(5,14);CHR$130;"Music 500 Waltz Program"  
  170 PRINTTAB(5,15);CHR$130;"Extra Repton Screens"  
  180 PRINTTAB(5,16);CHR$130;"Return to Issue 16 Magazine"    
  190 PRINTTAB(5,17);CHR$130;"***ARCHIVER INSTRUCTIONS***"
  200 choice%=FNA(3,8,34,17) 
  210 IF choice%=1 THEN MODE0:VDU23;8202;0;0;0;:PRINT:OSCLI("TYPE T.ArcTxt"):PRINT:PRINT:OSCLI("FX 15"):A=GET:PAGE=&1900:CHAIN":2.ARCHIVE"  
  220 IF choice%=2 THEN PROCmenu
  230 IF choice%=3 THEN MODE0:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE T.MagINS"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN   
  240 IF choice%=9 THEN CLS:PRINT"Insert Disc 1 Into Drive 0"''"Press Any Key"':OSCLI("FX 15"):A=GET:PAGE=&1900:OSCLI("DRIVE 0"):CHAIN"!Run"   
  250 IF choice%=7 THEN MODE0:VDU23;8202;0;0;0;:PRINT:OSCLI("TYPE 5.M500TXT"):PRINT:PRINT:OSCLI("FX 15"):PRINT"Press RETURN to Return to !Menu ...":A=GET:CLEAR:RUN  
  260 IF choice%=5 THEN MODE0:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE T.ADFSTFR"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN   
  270 IF choice%=4 THEN MODE0:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE :0.T.NLinEq"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN
  280 IF choice%=6 THEN MODE0:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE T.TREETXT"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN   
  290 IF choice%=8 THEN MODE0:VDU23;8202;0;0;0;:OSCLI("TYPE RepText"):A=GET:CLEAR:RUN 
  300 IF choice%=10 THEN MODE0:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE T.ARCINS"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN 
  310 RUN
  320 :
  330 DEF PROCmenu
  340 PROCclear
  350 PRINTTAB(5,7);CHR$130;"'Buzz' Aldrin Picture & Text"
  360 PRINTTAB(5,8);CHR$130;"'Bones' Demonstration Program"   
  370 PRINTTAB(5,9);CHR$130;"'Nite & Day' Demonstration"   
  380 PRINTTAB(5,10);CHR$130;"Chemistry Database/Test Prog"
  390 PRINTTAB(5,11);CHR$130;"Formatted Program Listings"
  400 PRINTTAB(5,12);CHR$130;"DFS to ADFS Transfer Utility"   
  410 PRINTTAB(5,13);CHR$130;"NLinEq BASIC Demonstration"
  420 PRINTTAB(5,14);CHR$130;"Mastermind Thought Game"
  430 PRINTTAB(5,15);CHR$130;"Tree Rename Utility v2"   
  440 PRINTTAB(5,16);CHR$130;"*CAT Replacement Command"   
  450 PRINTTAB(5,17);CHR$130;"Slatter Arcade Game"
  460 PRINTTAB(5,18);CHR$130;"Archive/De-Archive Utility"
  470 PRINTTAB(5,19);CHR$130;"PREVIOUS MENU (<ESC>)"  
  480 choice%=FNA(3,7,34,19)
  490 CLS
  500 IF choice%=1 THEN CHAIN"AldLOAD"
  510 IF choice%=2 THEN CHAIN"BONES"
  520 IF choice%=3 THEN CHAIN"NITEDAY"
  530 IF choice%=4 THEN CHAIN"CHEMTST"
  540 IF choice%=5 THEN PAGE=&1900:CHAIN"FORMLST"   
  550 IF choice%=6 THEN CHAIN"ADFSTFR"
  560 IF choice%=7 THEN CHAIN"NLINEQ"
  570 IF choice%=8 THEN CHAIN"MASTER"
  580 IF choice%=9 THEN PAGE=&1900:CHAIN"TREE"  
  590 IF choice%=10 THEN *XTRACAT
  600 IF choice%=10 THEN END
  610 IF choice%=11 THEN OSCLI("DRIVE 2"):CHAIN"SLATRUN" 
  620 IF choice%=12 THEN CHAIN":2.ARCHIVE"
  630 IF choice%=13 THEN CLEAR:RUN 
  640 ENDPROC
  650 :
  660 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  670 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$130;TAB((`%+b%),a%);CHR$156:*FX15
  680 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO730
  690 IFe%=0THENe%=-1
  700 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO730
  710 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO730
  720 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  730 UNTILA$=CHR$13:*FX4,0
  740 =(a%-d%)
  750 DEFPROCA:*KEY14 1|M
  760 *KEY15 0|M
  770 *KEY12 0|M
  780 *KEY13 1|M
  790 ENDPROC
  800 :
  810 DEF PROCloadID
  820 PRINTTAB(6,0);"";:TIME=0:REPEATUNTILTIME>50
  830 X=OPENIN"!8bs":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT:END
  840 PTR#X=105
  850 INPUT#X,Name$,User$,Issue$:CLOSE#X
  860 PRINTTAB(5,0);CHR$130;User$;TAB(35,1);CHR$130;Issue$  
  870 VDU23;8202;0;0;0;
  880 ENDPROC
  890 :
  900 DEF PROCclear
  910 FOR X=5 TO 22 STEP 1
  920 PRINTTAB(3,X);SPC(34)
  930 NEXT X
  940 ENDPROC