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