>L.

    0PROCerrtrap

    1ONERRORMODE7:PROCerror:END

32500DEFPROCerror:VDU7:REPORT:PRINT" at line ";ERL" statement ";?&70-1

32501PRINT"Error number: ";ERR'

32502$&CD5="KEY11"+STRING$(2,"LIST"+STR$ERL+":|K|M")+"*FX4|M|H|K"+STRING$(5," ")+"|M":X%=&D5:Y%=&C:CALL&FFF7

32503*FX4 2

32504*FX138 0 139

32505ENDPROC

32506DEFPROCerrtrap:FORPASS=0TO2STEP2:P%=&C00

32507[OPTPASS:PHP:PHA:TXA:PHA:TYA:PHA

32508LDA&C:CMP#7:BEQ Return:STA&71:LDA&B:STA&70:LDY#0:LDX#2

32509.Loop LDA(&70),Y:CMP#ASC":":BNE Cont:INX

32510.Cont CMP#13:BEQ End:LDA&70:SEC:SBC#1:STA&70:LDA&71:SBC#0:STA&71:BNE Loop

32511.End CPX#2:BEQ Return

32512LDA&20E:STA Oswrch:LDA&20F:STA Oswrch+1

32513LDA#Newoswrch MOD256:STA&20E:LDA#Newoswrch DIV256:STA&20F

32514.Return STX&70:PLA:TAY:PLA:TAX:PLA:PLP:JMP&B402

32515.Write:]?P%=&4C:P%=P%+1:[OPTPASS

32516.Oswrch BRK:BRK

32517.Newoswrch JSR Write:CMP#ASC":":BNE Rts:DEC&70:BMI Off:BNE Rts

32518PHA:LDA#136

32519.On JSR Write:PLA:RTS

32520.Off PHA:LDA#137:JSR Write

32521LDA Oswrch:STA&20E:LDA Oswrch+1:STA&20F

32522PLA

32523.Rts RTS

32524]NEXT:?&202=0:?&203=12

32525ENDPROC

>*SPOOL

