0100 ;XEPGRAF SOURCE CODE›0110 ; XEP80 GRAPHICS DRIVER›0120 ; 10 DIM BUF$(7680):BUF$(1)=CHR$(0):BUF$(7680)=CHR$(0):BUF$(2)=BUF$›0130 ; 20 GRAPHICS 24›0140 ; 30 A=USR(XEPFREAD, "D:PIC.GR8", ADR(BUF$))›0150 ; 40 A=USR(XEPGRAF, ADR(BUF$)):REM PRINT IT FAST!›0160 ; 50 OPEN #7,4,0,"E:":CLOSE #7:REM RESTORE TEXT MODE›0170 ICCOM = $0342›0180 ICBAL = $0344›0190 ICBAH = $0345›0200 ICBLL = $0348›0210 ICBLH = $0349›0220 CIOV =  $E456›0230     *=  $0600›0240     PLA ›0250     CMP #$01›0260     BEQ XEPGRAF›0270 ;›0280     TAX ›0290     BEQ LEAVE›0300 ;›0310 USRCHK›0320     PLA ›0330     PLA ›0340     DEX ›0350     BNE USRCHK›0360 ;›0370 LEAVE›0380     RTS ›0390 ;›0400 XEPGRAF›0410     LDX #$00›0420     PLA ›0430     STA ICBAH,X›0440     PLA ›0450     STA ICBAL,X›0460     LDA #$0B›0470     STA ICCOM,X›0480     LDA #$00›0490     STA ICBLL,X›0500     LDA #$1E›0510     STA ICBLH,X›0520     JMP CIOV    ;$E456›0530     RTS ›0540     .END        $2075›