10 MODE7
   20 PROCclear
   30 ON ERROR MODE7:VDU23;8202;0;0;0;:CLOSE#0:RUN  
   40 VDU6
   50 VDU23;8202;0;0;0;
   60 *KEY15 0|M  
   70 *KEY14 1|M
   80 OSCLI("LOAD !Screen")
   90 :
  100 PRINTTAB(5,8);CHR$135;"Issue 19 Archived Programs"  
  110 PRINTTAB(5,9);CHR$135;"Issue 19 Non-Archived Programs"  
  120 PRINTTAB(5,10);CHR$135;"Return to Issue 19 Magazine" 
  130 PRINTTAB(5,11);CHR$135;"Extra Repton 3 Screens"  
  140 PRINTTAB(5,12);CHR$135;"Run Archiver Program v3.0"   
  150 PRINTTAB(5,13);CHR$135;"8BS Catalogue (issue 4-18)"
  160 choice%=FNA(3,8,34,13) 
  170 IF choice%=1 THEN PROCarc
  180 IF choice%=2 THEN PROCmenu
  190 IF choice%=3 THEN OSCLI("DRIVE 2"):CHAIN"!Mag"  
  200 IF choice%=4 THEN PROCrepton  
  210 IF choice%=5 THEN CHAIN"ARC3.0"  
  220 IF choice%=6 THEN MODE7:OSCLI("8BS"):END
  230 RUN
  240 :
  250 DEF PROCmenu
  260 PROCclear
  270 PRINTTAB(5,6);CHR$134;"Pantheon Game (see Mag)"
  280 PRINTTAB(5,7);CHR$135;"Oil Rig Drilling Game"
  290 PRINTTAB(5,8);CHR$135;"Bazzasoft BASIC II ROM"
  300 PRINTTAB(5,9);CHR$135;"Hash (#) Generator"
  310 PRINTTAB(5,10);CHR$135;"View-ASCII Converter"
  320 PRINTTAB(5,11);CHR$135;"Mix-Editor User Guide"
  330 PRINTTAB(5,12);CHR$135;"Noughts & Crosses"
  340 PRINTTAB(5,13);CHR$135;"Simon Copycat Game"
  350 PRINTTAB(5,14);CHR$135;"Catch'em / Prikkomani Games"
  360 PRINTTAB(5,15);CHR$135;"Klax Game Cheat"
  370 PRINTTAB(5,16);CHR$135;"Greek Learning Program"
  380 PRINTTAB(5,17);CHR$135;"8BS Allpurpose Database"
  390 PRINTTAB(5,18);CHR$135;"*** Return to Main Menu ***"  
  400 choice%=FNA(3,6,34,18) 
  410 IF choice%=1 THEN OSCLI("DRIVE2"):OSCLI("OMCL"):END
  420 IF choice%=2 THEN OSCLI("DRIVE2"):CHAIN"OILRIG"
  430 IF choice%=3 THEN CHAIN"BASICII"
  440 IF choice%=4 THEN CHAIN"HASHGEN"
  450 IF choice%=5 THEN OSCLI("VIEWASC"):END
  460 IF choice%=6 THEN OSCLI("MIXINF"):END
  470 IF choice%=7 THEN PAGE=&1900:CHAIN"Noughts" 
  480 IF choice%=8 THEN CHAIN"SIMON"
  490 IF choice%=9 THEN CHAIN"TwoGame"
  500 IF choice%=10 THEN CHAIN":2.KlaxHax"
  510 IF choice%=11 THEN OSCLI("DRIVE 2"):CHAIN"!Loader" 
  520 IF choice%=12 THEN OSCLI("DRIVE 2"):CHAIN"Intro"
  530  
  540  
  550 ENDPROC
  560 :
  570 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  580 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$135;TAB((`%+b%),a%);CHR$156:*FX15
  590 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO640
  600 IFe%=0THENe%=-1
  610 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO640
  620 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO640
  630 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  640 UNTILA$=CHR$13:*FX4,0
  650 =(a%-d%)
  660 DEFPROCA:*KEY14 1|M
  670 *KEY15 0|M
  680 *KEY12 0|M
  690 *KEY13 1|M
  700 ENDPROC
  710 :
  720 DEF PROCclear
  730 FOR X=5 TO 17 STEP 1  
  740 PRINTTAB(3,X);SPC(34)
  750 NEXT X
  760 ENDPROC
  770 :
  780 DEF PROCrepton
  790 PROCclear
  800 PRINTTAB(2,7);CHR$131;"EXTRA REPTON SCREENS"   
  810 PRINTTAB(2,9);CHR$135;"All screens published to date" 
  820 PRINTTAB(2,10);CHR$135;"appear on this disc under the"     
  830 PRINTTAB(2,11);CHR$135;"archive name C.REPTON on side"
  840 PRINTTAB(2,12);CHR$135;"0 of this disc. Use Arc3.0 to"
  850 PRINTTAB(2,13);CHR$135;"de-arc and dont forget to vote!"
  860 PRINTTAB(2,17);CHR$131;"PRESS RETURN"
  870 *fx15
  880 A=GET:CLEAR:RUN
  890 ENDPROC
  900 :
  910  
  920 DEF PROCarc
  930 PROCclear
  940 PRINTTAB(5,10);CHR$135;"Repton Competition Screens"  
  950 PRINTTAB(5,11);CHR$135;"Chris Richardson's Text Editor"  
  960 PRINTTAB(5,12);CHR$135;"Outer Space Graphic Pictures"  
  970 PRINTTAB(5,14);CHR$131;"USE ARC3.0 TO DE-ARC AND RUN"  
  980 PRINTTAB(5,15);CHR$131;"PRESS RETURN FOR MAIN MENU"    
  990 PRINTTAB(5,8);CHR$131;"ISSUE 19 ARCHIVED SOFTWARE"
 1000 A=GET
 1010 ENDPROC
 1020 :