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