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õ