100 SYS999
110 ;
120 *= $F000
130 .OBJ "UNDERKERN"
140 ;
150 ;
160 BORDER = $D020
170 FARJSR = $C803
180 ;
190 BEGIN  INC BORDER
200 :      LDA #$FF
210 :      LDY #$F0   ;WANT TO CALL PLOT
220 :      STY $14
230 :      STA $15
240 :      CLC        ;WILL SET CURSOR
250 :      PHP        ;IRQS NOT NEEDED
260 :      PLA
270 :      STA $030F  ;STATUS REG.
280 :      LDX #$0A   ;ROW 10
290 :      LDY #$11   ;COL 17
300 ;
310 :      JSR REGFAR ;ACC. NOT NEEDED
320 ;
330 :      LDA #$BD
340 :      LDY #$CD   ;BASIC LINPRT @ $BDCD
350 :      STY $14
360 :      STA $15
370 :      PHP        ;NO CHANGE IN STATUS REG.
380 :      PLA
390 :      STA $030F
400 :      LDA #$FF   ;TWO-BYTE INTERGER IN X/A
410 :      TAX        ;WILL PRINT 65535
420 ;
430 :      JSR REGFAR ;.Y NOT NEEDED
440 ;
450 :      RTS        ;BACK TO FAR-SYS
460 ;
470 REGFAR STA $030C  ;PREPARE REGISTERS
480 :      STX $030D  ;SINCE WE JSR'D HERE
490 :      STY $030E  ;WE CAN SAFELY...
500 :      JMP FARJSR
510 .END