10DEFFNS="LPenMen" 20REM By C.J.Richardson for 8 Bit Sof tware. 30MODE7 40?&80=&C6:?&81=&D6:REM FOR MAG ARTIC LES 50P%=4:R%=20 60DIMF$(P%,R%) 70B$="DR.0":C$="":REM DISC 80REM B$="DIR $":C$=".MAG":REM ADFS 90FORL%=1TOP% 100FORI%=1TOR% 110READA$ 120F$(L%,I%)=A$ 130NEXT, 140VDU23;8202;0;0;0; 150PROCsetup 160M%=1 170REPEAT 180PROCmen(M%):!&74=0 190REPEAT 200REPEAT 210REPEAT 220A%=!&74 230UNTILA%<>0 240A%=A%-&2808 250C%=A%MOD40 260A%=A%DIV40 270UNTILA%<>0 280IFC%<36 VDU31,0,B%,134,157,132,31,0 ,A%,132,157,134:B%=A%:!&74=0 290UNTILC%>35 300IFB%=1 OSCLIB$:OSCLI"EX. !BOOT":END 310IFB%=2 M%=M%+1:IFM%=5M%=1 320UNTILB%>2 330B%=B%-2 340A$=MID$(F$(M%,B%),INSTR(F$(M%,B%)," ??")+2) 350IFLEFT$(A$,1)="*" OSCLI B$+C$:OSCLI A$ ELSE CHAINA$ 360END 370DEFPROCmen(M%) 380CLS 390VDU134,157,32,133:PRINT"Lightpen Me nu:";STR$M%;" Select then ]":VDU31,36,0, 135,157 400PRINT:VDU134,157,32,129:PRINT"!BOOT disc":VDU31,36,1,135,157 410PRINT:VDU134,157,32,129:PRINT"NEXT PAGE":VDU31,36,2,135,157:PRINT 420FOR L%=1TOR% 430IF F$(M%,L%)<>"" VDU134,157,132:PRI NTLEFT$(F$(M%,L%),INSTR(F$(M%,L%),"??")- 1);:VDU31,36,L%+2,135,157:PRINT 440NEXT 450ENDPROC 460DEFPROCsetup 470FORL%=0TO2STEP2 480P%=&900 490[:OPTL%:.i SEI 500LDA#f MOD256:STA&206:LDA#f DIV256:S TA&207 510LDA#&88:STA&FE4E:CLI:RTS 520.f LDA&FC:PHA:TXA:PHA:TYA:PHA 530LDA&FE4D:AND#&88:CMP#&88:BNEout 540LDA&FE40:LDX#16:STX&FE00:INX 550LDA&FE01:CMP&71:STA&71 560BNEd:STX&FE00:LDA&FE01 570TAY:SBC&70:CLC:ADC#1:BMIe 580CMP#3:BCSe:STY&74:LDA&71 590STA&75:JMPout 600.d STX&FE00:LDY&FE01 610.e STY&70:LDA#0:STA&74:STA&75 620.out PLA:TAY:PLA:TAX:PLA:STA&FC:RTI :] 630NEXT 640!&70=0:!&74=0 650CALLi:*FX233,247 660ENDPROC 670REM **** MENU 1 **** 680DATAAbout this issue part 1??*/this 690DATAAbout this issue part 2??*/Thi2 700DATANews and views??*/news 710DATAMessages part 1??*/mess1 720DATAMessages part 2??*/Mess2 730DATAMessages to you??*/uu 740DATAProgram feedback??*/reactor 750DATASize 12's??*/Size12s 760DATAMaster battery article??*/ofbat t 770DATASound article??*/ofsound 780DATASupreme review??*/suprev 790DATARating questionnaire info??*/Ra tQinf 800DATATest cards info??*/CardInf 810DATA"","","","","","","" 820REM **** MENU 2 **** 830DATASupreme Game??Supreme 840DATAComic Strip??ComicSt 850DATAWarrington Music??Warring 860DATAPictures??PicLoad 870DATACan Can??CanCan 880DATATime Tutor??Time 890DATARating Questionnaire??RatQ 900DATAOne liner from 15A??WordPrc 910DATATest cards??Cards 920DATA"","","","","","","","","",""," " 930REM **** MENU 3 **** 940DATALine number removal??LineOut 950DATAMachine code random??AssRnd 960DATAElbow the ADFS E??Eoff! 970DATASort??Sort 980DATAWapping Editor viewer??W.Viewer 990DATAPagemaker/Clip art viewer??P.Vi ewer 1000DATAPresenting programs example 1?? F.Step1 1010DATAPresenting programs example 1?? F.Step1 1020DATAPresenting programs example 1?? F.Step1 1030DATAPresenting programs example 1?? F.Step1 1040DATACut??Cut 1050DATAPaste??Paste 1060DATA"","","","","","","","" 1070REM **** MENU 4 **** 1080DATA"","","","","","","","","",""," ","","","","","","","","",""