10REM¶*Basic 20REM¶CHAIN"$.!Boot" 30*Exec 40REM *** 50REM First three lines MUST NOT be e dited 60REM 8BS Menu, S.Flintham. 70REM Modified by J.Ripley, C.J.Richa rdson, J.G.Harston, V2.15 80MODE&87:VDU23;8202;0;0;0; 90PROCa:PROCb 100ONERRORVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("FX21"):PROCc("KEY0 LIS T "+STR$(ERL)+"|M"):PROCc("FX138,0,128") :PROCd:END 110REPEATe$=FNf:IFASCe$<>27:PROCg(e$) 120UNTILASCe$=27:MODE7:PROCd:END:REM I FDir$="$":END ELSE CHAIN"$.!Boot" 130: 140DEFPROCa:*FX4,1 150*FX225,128 160*FX229,1 170ENDPROC 180DEFPROCd:*FX4 190*FX225,1 200*FX229 210ENDPROC 220: 230DEFFNS:IFTOP-PAGE>&2200:PRINT"Too l ong" 240="!Boot" 250DEFPROCb:*FX12 260v$="MODE3TEXT MODE7TTXT ARCHIARCHIC HAINBASICLOAD LOAD LIST LIST CALL CALL L DPICLDPICSCRLOSCRLO" 270d%=1:REM Description 280i%=3:REM ID 290p%=6:REM Menu outline 300q%=3:REM "8-Bit Software" 310r%=5:REM Date + issue 320s%=3:REM Menu heading 330t%=3:REM Letters 340u%=2:REM Menu items 350v%=7:REM Help prompt 360w%=4:REM Selection bar 370x%=3:REM Help screen title 380y%=6:REM Help screen text 390z%=5:REM Help screen prompt 400aa%=7:REM Scroll screen text 410ba%=7:REM Unused 420: 430DIMh%256,l%(14):X%=h%:Y%=X%DIV256:i $=FNj:REM *DIR$ 440PROCfs("S"):RESTORE:READ n$,m$ 450IFLEFT$(STR$(V%),5)="985"+n$:f%=VAL (MID$(STR$(V%),6,2)):e%=VAL(MID$(STR$(V% ),8,2)) ELSE f%=1:e%=1 460VDU26:CLS:PRINTCHR$(128+i%);" I.D. ";i$;" ";CHR$(144+p%);"¶///////%¶/////// //////////¶"; 470PRINTCHR$(144+p%);"¶///////////*/// /////";CHR$(128+r%);" Issue ";LEFT$(n $,2);" ";CHR$(144+p%);"¶"; 480PRINTCHR$(144+p%);"¶";CHR$(144+q%); "6£4 7i(h0 6) 0`$t` ` 0 0` ";CH R$(144+p%);"¶"; 490PRINTCHR$(144+p%);"¶";CHR$(144+q%); "6£4!7ijj 2ijjj!5jhj`nj =!";CHR$(128+r% );LEFT$(m$,8);CHR$(144+p%);"¶"; 500PRINTCHR$(144+p%);" ""£ £!" ! "! !" " !! £" "! ";CH R$(145);" "; 510FORn%=1TO18:PRINTCHR$(144+p%);"¶";S PC(36);CHR$(144+p%);"¶";:NEXT 520PRINTCHR$(144+p%);"¶||||||||||||||| ||||||||||||||||||||||¶"; 530VDU28,2,22,37,5 540ENDPROC 550DEFPROCfs(A$):LOCALn%:fs%=FNfs:Dn$= FNgbpbN(5):drv%=(X%?(22+X%?20))AND&FD 560l$=A$:IFA$="":l$="$.Library":IFfs%= 4 ORfs%=&105:l$=":"+STR$drv%+".S" 570REM Dir$=FNgbpbN(6):IFDir$<>"$":l$= "$."+Dir$+MID$(l$,2) 580Dir$="$":REM PATCH 590PROCc("LIB "+l$):IFA$="":IFfs%>4:n% =OPENIN("%"):IFn%:CLOSE#n%:l$="%" 600t3$=l$+".7to3":t7$=l$+".3to7":sc$=l $+".Scroll":ar$=l$+".Archive":ENDPROC 610DEFFNfs:LOCALA%,Y%,E%:=(USR&FFDA)AN D&FF 620DEFFNgbpbN(A%):X%!1=X%+20:CALL&FFD1 :A%=X%+20+((1+X%?20)AND(A%>5)):A%?(1+?A% )=13:=LEFT$($(A%+1),INSTR($(A%+1)+" "," ")-1) 630: 640DEFPROCc($h%):LOCALX%,Y% 650X%=h%:Y%=X%DIV256:CALL&FFF7 660ENDPROC 670DEFPROCos(c$):IFASCc$=42 ORc$="":OS CLIc$:ENDPROC ELSE CHAINc$:ENDPROC 680DEFFNj=$(PAGE+&2F) 690DEFFNf:LOCALt$,n%,m$,s$,g%,m% 700CLS:PROCla(f%):READt$,n0% 710IFn0%>14:n0%=14 720PRINTTAB(0,0);CHR$(128+s%);TAB(1+(1 7.5-(LEN(t$)/2)),0);t$ 730n%=0:m%=n0%:REPEATREADm$,s$,s$,s$ 740IFVALs$>99:IFVALs$DIV100=fs%:s$=RIG HT$(s$,2) ELSE IFVALs$>99:s$="0":m$="" 750o%=VALs$:IFo%=0ANDASCs$<>42:o%=-1-I NSTR(v$,LEFT$(s$,5))DIV10 760IFs$<>"0":n%=n%+1:l%(n%)=o%:PRINTTA B(1,1+n%)" "CHR$(128+t%)CHR$(64+n%)CHR$ (128+u%)LEFT$(m$,32);TAB(35,1+m%)CHR$156 ; 770m%=m%-1:UNTILm%<1:PRINTTAB(0,1+e%); CHR$(128+w%);CHR$157; 780PRINTTAB(0,17);CHR$(128+v%);"Press" ;CHR$129;"f0";CHR$(128+v%);"for help.";C HR$(128+d%); 790REPEAT:REPEAT*FX21 800PRINTTAB(20,17);:IFl%(e%)>0:PRINT"A nother menu ";ELSE PRINTMID$("Runs Code 80 Column Text40 Column TextArchive Basic Program Loads Basic Lists Basic Calls Basic LDPIC Picture Scr Load Pictr ",-14*l%(e%)+1,14); 810g%=GET:IF(g%AND&E0)=&60:g%=g%-32 820UNTILINSTR(CHR$128+CHR$138+CHR$139+ CHR$13+"48PRSX",CHR$g%)OR(g%>64 ANDg%<=6 4+n%)OR(g%=27ANDINKEY-1) 830PRINTTAB(1,1+e%);" "; 840IFg%=138:e%=e%MODn%+1 850IFg%=139:e%=e%-1:IFe%=0:e%=n% 860IFg%>64ANDg%<=64+n%:e%=g%-64 870PRINTTAB(1,1+e%);CHR$(128+w%);CHR$1 57; 880V%=985000000+VALn$*10000+f%*100+e% 890UNTILINSTR("48PRSX"+CHR$128+CHR$27+ CHR$13,CHR$g%):IFg%=128:PROCma 900PRINTTAB(5,1+e%);">"; 910=CHR$(g%)+STR$(e%) 920: 930DEFPROCma:LOCALg%:CLS 940PRINTTAB(5,0);CHR$(128+x%);"Using t he 8BS menu system" 950PRINTTAB(0,2);CHR$(128+y%);"Use the up and down cursor keys to"'CHR$(128+y% );"move the bar or press the letter"'CHR $(128+y%);"next to the required menu opt ion to";CHR$(128+y%);"position it immedi ately." 960PRINT'CHR$(128+y%);"Press RETURN to load or view the"'CHR$(128+y%);"highlig hted program/article. If it"'CHR$(128+y% );"is an article, pressing 8 will"'CHR$( 128+y%);"display it in 80 columns. Press ing" 970PRINTCHR$(128+y%);"4 will display i t in 40 columns," 980PRINTCHR$(128+y%);"and pressing P w ill print it out." 990PRINTTAB(0,16);CHR$(128+z%);"Press" ;CHR$(129);"f0";CHR$(128+z%);"for more h elp or ESCAPE"'CHR$(128+z%);"to return t o the menu..."; 1000REPEAT:*FX21 1010g%=GET:UNTILg%=27ORg%=128 1020IFg%=27:ENDPROC 1030CLS:PRINTTAB(5,0);CHR$(128+x%);"Usi ng the 8BS menu system" 1040PRINTTAB(0,2)CHR$(128+y%)"If it is a Basic program, pressing"'CHR$(128+y%)" R will run it, S will load it, and"'CHR$ (128+y%)"X will load and list it. Pressi ng" 1050PRINTCHR$(128+y%)"Return will run/l oad/list the"'CHR$(128+y%)"program with the default option." 1060PRINT'CHR$(128+y%);"Pressing SHIFT and ESCAPE together"'CHR$(128+y%);"at th e menu will return you to"'CHR$(128+y%); "BASIC." 1070PRINTTAB(0,16);CHR$(128+z%);"Press ESCAPE to return to the"'CHR$(128+z%);"m enu..."; 1080REPEAT:*FX21 1090UNTILGET=27:ENDPROC 1100: 1110DEFPROCg(e$):IFASCe$=128:ENDPROC 1120LOCALn%,x$,d$,f$,s$ 1130PROCla(f%):READd$,n% 1140FORn%=1TOVAL(MID$(e$,2)) 1150READx$,d$,f$,s$:IFVALs$>99:IFVALs$D IV100=fs%:s$=RIGHT$(s$,2) ELSE IFVALs$>9 9:s$="0":n%=n%-1 1160NEXT:o%=VALs$:IFo%>0:f%=o%:e%=1:END PROC 1170IFo%=0 ANDs$="0":ENDPROC 1180VDU26,31,0,21:e$=CHR$ASCe$:PROCd:IF d$="%":d$=l$:REM ...152 1190I%=INSTR(d$,"//"):IFI%:d$=MID$(d$,1 +((I%+1)AND(fs%<>4)),I%-1-128*(fs%<>4)) 1200IFfs%=4 AND MID$(f$,2,1)="/":f$=LEF T$(f$,1)+"."+MID$(f$,3) 1210IFfs%=4:f$=LEFT$(f$,7-2*(MID$(f$,2, 1)=".")) 1220IFfs%=4:IFLEFT$(d$,1)=":":d$=":"+ST R$(drv%ORVALMID$(d$,2))+MID$(d$,3) 1230IFLEFT$(d$,1)="$":IFDir$<>"$":d$="$ ."+Dir$+MID$(d$,2) 1240IFo%=0:o%=INSTR(v$,LEFT$(s$,5)):o%= (-1-o%DIV10)AND(o%>0) 1250IFo%=-1:PROCu:ENDPROC 1260IFo%=-2:PROCv:ENDPROC 1270IFd$<>"":PROCc("Dir "+d$) 1280IFo%=-3:PROCos(ar$+" -quit $.!Boot| M -e "+f$):ENDPROC 1290IFo%>-7 ANDo%<-2 ANDe$<>CHR$13:o%=I NSTR("XSR",e$)-7 1300IFo%=-4:CHAINf$ 1310IFo%=-5:PROCKey("*Load "+f$+"|F|M") 1320IFo%=-6:PROCKey("LOAD """+f$+"""|ML IST|F|N|M|O") 1330IFo%=-7:PROCos(f$+" -quit $.!Boot") :END 1340IFo%=-8:PROCKey("*LdPic "+f$+"|F|M" ) 1350IFo%=-9:PROCKey("*ScrLoad "+f$+"|F| M") 1360I%=INSTR(s$,"//"):IFI%:REPEATOSCLIL EFT$(s$,I%-1):s$=MID$(s$,I%+2):I%=INSTR( s$,"//"):UNTILI%=0:IFs$="RUN":RUN 1370PROCos(s$+" "+f$):END 1380ENDPROC 1390: 1400DEFPROCu 1410IFd$<>"":f$=d$+"."+f$ 1420IFe$="4":PROCos(t7$+" "+f$) 1430PROCos(sc$+" -lp *lp -4 "+t7$+" "+f $+" -quit $.!Boot") 1440ENDPROC 1450DEFPROCv 1460IFd$<>"":f$=d$+"."+f$ 1470IFe$="8":Z%=0:PROCos(t3$+" "+f$) 1480IFe$="P":Z%=1:PROCos(t3$+" "+f$) 1490IFe$<>"O":PROCd:PROCc("Run "+f$):EN D 1500CLS:PRINTCHR$(128+aa%);"Please pres s the key to use to"'CHR$(128+aa%);"scro ll up...":?&80=0:?&80=FNya 1510PRINT'CHR$(128+aa%);"Please press t he key to use to"'CHR$(128+aa%);"scroll down...":*FX21 1520?&81=FNya:PROCd:PROCKey("*Load "+f$ +"|M?&1974=?&80:?&1981=?&81:CALL&1904|F| M"):END 1530VDU21:END 1540ENDPROC 1550DEFPROCKey(A$):PROCc("KEY0 "+A$):PR OCc("FX21"):PROCc("FX138,0,192"):VDU22,7 :END::ENDPROC 1560DEFFNya:LOCALA%,B%:A%=&7A 1570REPEAT:B%=255-((USR&FFF4)AND&FF00)D IV256:UNTILB% ANDB%<>182ANDB%<>?&80 1580=B% 1590DEFPROCla(f%):LOCALm$,n%:RESTORE:RE ADm$,m$:IFf%<2:ENDPROC 1600REPEATREADm$,n%:REPEAT 1610READm$,m$,m$,m$:n%=n%-1:UNTILn%<1:f %=f%-1:UNTILf%<2:ENDPROC 1620: 1630REM Issue num, Issue Date 1640DATA 67,Apr 2013 1650: 1660DATA Magazine Disc Menu,7 1670DATA About This Disc,:0,Thi1,-2 1680DATA Editorial,:0,Editori,-2 1690DATA Program Info Menu,,,2 1700DATA Messages,:0,Gen,-2 1710DATA Articles Menu,,,3 1720DATA Games Utilities Demos Menu,,,4 1730DATA 8BS Messaging System,S,SendMes ,-4 1740: 1750DATA Program Info,3 1760DATA ADFS Rescue MkMap,:0.J,MkMapin ,-1 1770DATA Messaging System Info,S,MsgInf ,-2 1780DATA Return To Main Menu,,,1 1790: 1800DATA Articles Menu,11 1810DATA Prisoner's Dilemma,:0,PrisTxt, -2 1820DATA Detokenise BBC BASIC Article,: 2.J,DtokenT,-1 1830DATA Detokenise BBC BASIC Program,: 2.J,DtokenB,-4 1840DATA * Command Article,:2.J,CoProCd ,-1 1850DATA * Command Program ASsrc,:2.J,A Ssrc,-6 1860DATA * Command Program ShowREM,:2.J ,ShowREM,-6 1870DATA * Command Program VListSR,:2.J ,VListSR,-6 1880DATA * Command Program xssrc,:2.J,x ssrc,-6 1890DATA Dave Edwards Its Full Of Stars ,:0.t,pcn8bs,-1 1900DATA John Kortink's GoSDC,:0,GoSDC, -2 1910DATA Return To Main Menu,,,1 1920: 1930DATA Games Utilities Demos,13 1940DATA Sparse Invaders,:2.P,SiLoad,-4 1950DATA Tetris,:2.t,TETRIS,-4 1960DATA Hard Hat Harry 2,:2.H,LOADER,- 4 1970DATA GoSDC Image,:0.I,LDGOSDC,-4 1980DATA CB750 CE 1981 Image,:0.I,LDCB, -4 1990DATA Home Made BBC B Image,:0.I,LDh ome,-4 2000DATA The Beeb at 30 Image,:0.I,LDBE EB,-4 2010DATA Master 128 Image,:0.I,LDM128,- 4 2020DATA Airwolf Conversion,:2,Wolf1MP, -6 2030DATA MkMap ADFS Rescue ADFS ONLY,:0 .J,MkMap,-4 2040DATA Teletext Collection,:0,TtxtC,- 2 2060DATA Prisoner's Dilemma Example,:2, Comp1,-4 2070DATA Return To Main Menu,,,1 2080: