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