10 ON ERROR CLEAR:RUN 20*FX255 15 30MODE7:PROCA:*LOAD !screen 40VDU23;8202;0;0;0; 50PRINTTAB(8,10);CHR$134;"Issue 13 Di sc Magazine" 60PRINTTAB(8,11);CHR$134;"Issue 13 So ftware Menu" 70PRINTTAB(8,12);CHR$134;"Disc Magazi ne Help" 80PRINTTAB(8,13);CHR$134;"Repton 3 Sc reens" 90PRINTTAB(8,14);CHR$134;"Repton Infi nity Screens" 100PRINTTAB(8,15);CHR$134;"*** MESSAGE S FOR YOU ***" 110select%=FNA(3,10,33,15) 120IF select%=1 THEN OSCLI("DRIVE 2"): CHAIN"!MAG" 130IF select%=2 THEN PROCmenu 140IF select%=3 THEN type$=":2.$.MagIN S":MODE0:PRINT"Press Control & Shift to Pause"'"Press Return to start"'':A=GET:O SCLI("TYPE "+(type$)):PRINT:PRINT"Press any Key":A=GET:CLEAR:RUN 150IF select%=4 THEN PROCrepton 160IF select%=5 THEN PROCrepton 170IF select%=6 THEN MODE3:PROCmessage s:CLEAR:GOTO 30 180RUN 190: 200DEF PROCmenu 210FOR X=8 TO 22 220PRINTTAB(3,X);SPC(34) 230NEXT X 240PRINTTAB(8,9);CHR$134;"Amcom to ADF S Transfer" 250PRINTTAB(8,10);CHR$134;"AxelF Music (BASIC)" 260PRINTTAB(8,11);CHR$134;"Broadway Bo ogie (BASIC)" 270PRINTTAB(8,12);CHR$134;"Directory R ename Utility" 280PRINTTAB(8,13);CHR$134;"Envelope Cr eator" 290PRINTTAB(8,14);CHR$134;"E Type Game Cheat" 300PRINTTAB(8,15);CHR$134;"Froggy Game (BASIC)" 310PRINTTAB(8,16);CHR$134;"Golden Brow n (BASIC)" 320PRINTTAB(8,17);CHR$134;"Stairway to Heaven" 330PRINTTAB(8,18);CHR$134;"Kix Game Ch eat" 340PRINTTAB(8,19);CHR$134;"Motor Consu mption Util" 350PRINTTAB(8,20);CHR$134;"News Reader Demo" 360PRINTTAB(8,21);CHR$134;"******* NEX T PAGE *******" 370choice%=FNA(5,9,32,21) 380*FX 4 0 390IF choice%=1 THEN CHAIN"Amcom" 400IF choice%=2 THEN CHAIN"Axelf" 410IF choice%=3 THEN CHAIN"Boogie" 420IF choice%=4 THEN PAGE=&1900:CHAIN" DirName" 430IF choice%=5 THEN CHAIN"EnvCRT" 440IF choice%=6 THEN CHAIN"EtypeCH" 450IF choice%=7 THEN CHAIN"Froggy" 460IF choice%=8 THEN CHAIN"GOLDEN" 470IF choice%=9 THEN CHAIN"Heaven" 480IF choice%=10 THEN CHAIN"KixCHT" 490IF choice%=11 THEN CHAIN"MOTOR" 500IF choice%=12 THEN CHAIN"NEWS" 510IF choice%=13 THEN PROCmenu2:GOTO 2 10 520ENDPROC 530: 540DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 550REPEATPRINTTAB(£%,a%);CHR$132;CHR$1 57;CHR$131;TAB((£%+b%),a%);CHR$156:*FX15 560A$=GET$:e%=VALA$:IFA$=CHR$13GOTO610 570IFe%=0THENe%=-1 580IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO610 590IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO610 600PRINTTAB(£%,a%);SPC2:a%=a%+e% 610UNTILA$=CHR$13:*FX4,0 620=(a%-d%) 630DEFPROCA:*KEY14 1|M 640*KEY15 0|M 650*KEY12 0|M 660*KEY13 1|M 670ENDPROC 680: 690DEF PROCmessages 700CLS:PRINT"Press Control & Shift to PAUSE"'"Press RETURN to view your messag es"'':A=GET:OSCLI("DRIVE 2"):OSCLI("TYPE $.Message"):PRINT:PRINT"Press RETURN to go back to !Menu ....":A=GET:OSCLI("DRI VE 0") 710ENDPROC 720: 730DEF PROCrom(a$) 740FOR X=8 TO 22 STEP 1 750PRINTTAB(2,X);SPC(30) 760NEXT X 770PRINTTAB(2,9);CHR$135;"Filename(s) = ";a$ 780PRINTTAB(2,11);CHR$135;"This progra m is ROM based and" 790PRINTTAB(2,12);CHR$135;"should be l oaded into your" 800PRINTTAB(2,13);CHR$135;"sideways RA M or SHADOW RAM" 810PRINTTAB(2,14);CHR$135;"facilities. Please refer to" 820PRINTTAB(2,15);CHR$135;"disc magazi ne for full info" 830PRINTTAB(2,16);CHR$135;"and instruc tions." 840PRINTTAB(2,18);CHR$135;"PRESS RETUR N" 850*FX15 860A=GET 870ENDPROC 880DEF PROCrepton 890FOR X=8 TO 22 STEP 1 900PRINTTAB(2,X);SPC(30) 910NEXT X 920PRINTTAB(2,9);CHR$134;"REPTON SCREE NS" 930PRINTTAB(2,11);CHR$134;"Two filenam es on the disc this" 940PRINTTAB(2,12);CHR$134;"month calle d R.2J3REP and I.KISEI" 950PRINTTAB(2,13);CHR$134;"The former is a new set of screens" 960PRINTTAB(2,14);CHR$134;"for the REP TON 3 program and the" 970PRINTTAB(2,15);CHR$134;"latter for the REPTON INFINITY" 980PRINTTAB(2,16);CHR$134;"program. Bo th files are on disc" 990PRINTTAB(2,17);CHR$134;"drive 2 - J ust LOAD Repton and" 1000PRINTTAB(2,18);CHR$134;"select L to Load Screens ...." 1010PRINTTAB(2,20);CHR$134;"PRESS RETUR N" 1020*FX15 1030A=GET 1040ENDPROC 1050: 1060DEF PROCdeleted 1070CLS 1080PRINT"This program has been removed from" 1090PRINT"this disc after information w as" 1100PRINT"received from members about t heir" 1110PRINT"PD authenticity. The people con-" 1120PRINT"cerned who submitted these pr ogs" 1130PRINT"under their own name have bee n" 1140PRINT"expelled from 8BS. Please ac cept" 1150PRINT"my apologies for any inconven ience" 1160PRINT 1170PRINT"Press RETURN":A=GET 1180ENDPROC 1190: 1200DEF PROCmenu2 1210FOR X=8 TO 22 1220PRINTTAB(3,X);SPC(34) 1230NEXT X 1240PRINTTAB(8,9);CHR$134;"ADFS String Search" 1250PRINTTAB(8,10);CHR$134;"Phantom of the Opera" 1260PRINTTAB(8,11);CHR$134;"Rom to Disc Utility" 1270PRINTTAB(8,12);CHR$134;"Seasick Mod e Split Demo" 1280PRINTTAB(8,13);CHR$134;"Thomas the Tank Engine" 1290PRINTTAB(8,14);CHR$134;"Ample Music 5000 Tune" 1300PRINTTAB(8,15);CHR$134;"Ample Music 500 Tune" 1310PRINTTAB(8,16);CHR$134;"Blakes 7 Li berator Pic" 1320PRINTTAB(8,17);CHR$134;"Digitised A nimations" 1330PRINTTAB(8,18);CHR$134;"Message to Amiga/ST Owners" 1340PRINTTAB(8,19);CHR$134;"**** PREVIO US MENU ****" 1350choice2%=FNA(5,9,32,19) 1360*FX15 1370IF choice2%=1 THEN CHAIN"ADFSSCH" 1380IF choice2%=2 THEN CHAIN"Phan2" 1390IF choice2%=3 THEN CHAIN"RomDisc" 1400IF choice2%=4 THEN PAGE=&1900:CHAIN "Seasick" 1410IF choice2%=5 THEN OSCLI("LDPIC THO MAS"):A=GET:RUN 1420IF choice2%=6 OR choice2%=7 THEN PR OCample:RUN 1430IF choice2%=8 THEN CHAIN":2.LIBERAT " 1440IF choice2%=9 THEN OSCLI("DRIVE 2") :CHAIN"DEMO" 1450IF choice2%=10 THEN CHAIN":2.BRITIS H" 1460ENDPROC 1470: 1480DEF PROCample 1490FOR X=8 TO 22 STEP 1 1500PRINTTAB(2,X);SPC(35) 1510NEXT X 1520PRINTTAB(2,9);CHR$134;"AMPLE Music 500 and 5000" 1530PRINTTAB(2,11);CHR$134;"Two Ample p ieces are on the disc" 1540PRINTTAB(2,12);CHR$134;"this month. The first tune is for" 1550PRINTTAB(2,13);CHR$134;"the Music 5 00 and is called 5.HILOW" 1560PRINTTAB(2,14);CHR$134;"The second is for the Music 5000" 1570PRINTTAB(2,15);CHR$134;"and is call ed A.AxelF. You should" 1580PRINTTAB(2,16);CHR$134;"LOAD and RU N the appropriate AMPLE" 1590PRINTTAB(2,17);CHR$134;"Langauge RO M before entering ...." 1600PRINTTAB(2,18);CHR$134;"""<Filename >""LOAD RUN <return>" 1610PRINTTAB(2,20);CHR$134;"PRESS RETUR N" 1620*FX15 1630A=GET:ENDPROC 1640: