* ZERO PAGE LOCATIONS intA EQU &2A top EQU &12 page EQU &18 himem EQU 6 lomem EQU 0 frmem EQU 2 exvect EQU &50 wkpnt EQU &52 *FILL ZERO PAGE LOCATIONS xlo EQU &54 xhi EQU &55 ylo EQU &56 yhi EQU &57 newx EQU &58 newy EQU &5A tox EQU &5C xstep EQU &5E *first EQU &5F last EQU &61 flag EQU &63 leftx EQU &64 rightx EQU &68 oldx EQU &6A colr EQU &6F mask EQU &6C bitmap EQU &6D xshift EQU &6E *MLINE ZERO PAGE LOCATIONS mtop EQU &54 mbase1 EQU &56 mbase2 EQU &58 mflag EQU &5A mynew EQU &5D myold EQU &5E mwork EQU &5F * WORKSPACE LOCATIONS fillc1 EQU 0 fillc2 EQU 1 filltp EQU 2 turtpn EQU 3 turtx EQU 4 turty EQU 8 turth EQU &C matloc EQU &11 ; UP TO 24 whlpnt EQU &25 whlstk EQU &26 ; UP TO 5D errloc EQU &5E ; UP TO 5F zpstor EQU &60 ; UP TO 7C vlvarw EQU &7D ; UP TO 9F (PROV) Xcent EQU &A0 ; UP TO A4 Ycent EQU &A5 ; UP TO A9 Xgrid EQU &AA ; UP TO AE Ygrid EQU &AF ; UP TO B3 vlvrw2 EQU &B4 ; UP TO CB ORG &8000 EXEC &D9CD BRK DW 0 JMP svce DFB &82 DFB cpyoff-&8000 DFB 1 title0 ASC "Plus " title ASC "Extended BASIC" BRK ASC "v2" cpyoff BRK ASC "(C)1988 Stephen Harris" BRK jhlp JMP help svce PHA LDA &DF0,X BMI romoff PLA CMP #9 BEQ jhlp CMP #3 BEQ ptitle CMP #2 BEQ rsvspc CMP #6 BNE nosvce JMP brk romoff PLA nosvce RTS ptitle TYA PHA LDY #&FF ptitlp INY LDA title0,Y JSR &FFE3 CMP #0 BNE ptitlp JSR &FFE7 JSR &FFE7 PLA TAY LDA #3 RTS rsvspc TYA LDY &F4 STA &DF0,Y TAY INY STA &53 LDA #0 STA &52 TYA PHA LDA #&E LDY #errloc STA (wkpnt),Y INY LDA #&80 STA (wkpnt),Y LDY #whlpnt LDA #0 STA (wkpnt),Y JSR ctran2 JSR trti2 PLA TAY LDA #2 RTS help LDA (&F2),Y CMP #13 BNE ehelp2 TYA PHA JSR &FFE7 LDY #&FF helpl1 INY LDA title,Y JSR &FFEE CMP #0 BNE helpl1 LDA #':' JSR &FFEE JSR tstbas BCC hlpact LDY #&FF BNE helpl2 hlpact LDY #(helpm2-1)-helpm1 helpl2 INY LDA helpm1,Y JSR &FFE3 CMP #0 BNE helpl2 JSR &FFE7 PLA TAY ehelp2 LDA #9 RTS helpm1 ASC "Not " helpm2 ASC "Active" BRK brk PHA TYA PHA JSR tstbas BCC basbrk JMP nbasbk basbrk LDA &F6 PHA LDA &F7 PHA LDA &FD STA &F6 LDA &FE STA &F7 LDA #186 LDX #0 LDY #&FF JSR &FFF4 TXA TAY JSR &FFB9 TAY PLA STA &F7 PLA STA &F6 TYA CMP #4 BEQ rgterr CMP #26 BEQ jvar JMP endbrk jvar JMP variab rgterr LDA #>table STA &39 LDA #," msge2 ASC "" msge1 STR "" msge3 STR ",,," msge4 STR ",,,,,(,,,)" msge5 STR "" msge8 ASC "," msge6 STR "," msge7 STR "" msge9 STR "" msge10 STR "," msge11 STR "
" msge12 STR ",,,(,,,)" msge13 STR "," msge14 STR ",(,E)" msge15 STR "()" msge16 STR ",(,)" msge17 STR "" msge18 STR ",,," msge19 STR "()" msge21 ASC "," msge20 STR "," msge22 STR "(~)" msge23 STR " THEN PROCa..ELSE.." msge25 STR "" msge26 STR "" msge27 STR "(+)" msge28 STR "
(,C)" msge29 STR "(C/F)" msge30 STR ",,," romcll DW &8B0C ;1 } DW &8B9B ;2 } BASIC DW &9005 ;4 } DW &9B03 DW &9B29 DW &9D3B DW &8A99 DW &8AF6 DW &8F86 DW &B53A DW &B50E DW &BD37 DW &A98C DW &A990 DW &A915 DW &A997 DW &A99B DW &A917 DW &9E00 DW &9E23 DW &A015 DW 0 DW 0 DW &A93D DW &AC17 DW &ABEE DW &AB0A DW &9ED0 DW &9EDF DW &A118 DW &98B4 DW &98E3 DW &9C29 DW &B1C6 DW &B197 DW &B019 DW &BCAA DW &BC8D DW &BB15 DW &88D9 DW &8957 DW &8DB2 DW &AE1B DW &ADEC DW &AD36 CHN "ARC"