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