10 ; 32 CHAR/LINE VIDEO
  20 ;  FOR HEXDOS SYSTEM
  30 ;
  40 ; PC/JET 2/13/82
  50 ;
  60 CUR=$200
  70 CHR=$201
  80 TMP=$202
  90 TIM=$206
 100 OFF=$80
 110 ;
 120 *=$7800
 130 ;
 140 L00 LDA #$78 SET HIGH
 150     STA $86   MEMORY.
 160     LDA #$00
 170     STA $85
 210     LDA #$2B
 220     STA $09C1
 250     LDA #$F8  K10
 260     STA $08A2
 270     LDA #$78
 275     STA $09C2
 280     STA $08A3
 290     LDA #$18  CLC
 292     STA $09E4
 294     STA $09E5
 295     LDA #$38  SEC
 296     STA $08CC
 297     STA $08CD
 299     RTS
 310 V00 PHA
 320     TXA
 330     PHA      SAVE REGS
 340     TYA
 350     PHA
 360     LDA TMP
 370     BEQ V80
 380     LDY TIM  CRT TIME
 390     BEQ V30   DELAY.
 400 V10 LDX #$20
 410 V20 DEX
 420     BNE V20
 430     DEY
 440     BNE V10
 450 V30 CMP #$0A LF CHARPRINT
 460     BEQ S20   YES.
 470     CMP #$0D CR CHARPRINT
 480     BNE V40   NO.
 490     JSR T10
 500     JMP V80
 510 V40 STA CHR
 520     CMP #$5F BS CHARPRINT
 530     BNE V50   NO.
 540     LDA #$20
 550     STA CHR  ERASE
 560     JSR S70
 570     DEC CUR  BACK UP
 580     BNE V60
 590 V50 JSR S70
 600     INC CUR
 610 V60 LDA #$1F CHAR/LIN
 620     CLC
 630     ADC #OFF
 640     CMP CUR  END LINEPRINT
 650     BMI S10   YES.
 660 V70 JSR T30
 670 V80 PLA
 680     TAY
 690     PLA      RESTORE
 700     TAX
 710     PLA
 720     JSR $FF6C
 730     RTS
 740 S10 JSR T20
 750 S20 JSR S70
 760     LDA #OFF
 770     AND #$E0
 780     STA TMP
 790     LDX #$07
 800 S30 LDA T40,X
 810     STA $0207,X
 820     DEX
 830     BPL S30
 840     LDX T60,Y
 850     LDA #$20 BLANK
 860     LDY #$1F CHAR/LIN
 870     STA $0208
 880     LDY #$00
 890 S40 JSR $0207
 900     BNE S40
 910     INC $0209
 920     INC $020C
 930     CPX $0209
 940     BNE S40
 950 S50 JSR $0207
 960     CPY TMP
 970     BNE S50
 980     LDA #$20 BLANK
 990 S60 JSR $20A
 1000    DEC $0208
 1010    BNE S60
 1020    BEQ V70
 1030 S70 LDX CUR
 1040     LDA CHR
 1050 S80 STA $D300,X
 1060     RTS
 1070 T10 JSR S70
 1080 T20 LDA #OFF
 1090     STA CUR
 1100 T30 LDX CUR
 1110     LDA $D300,X
 1120     STA CHR
 1130     LDA #$5F CURSOR
 1140     BNE S80
 1150 T40 LDA $D000,Y
 1160     STA $D000,Y
 1170     INY
 1180     RTS
 1190 T60 .BYTE $D3
 1200 C10 PHA      CLEAR THE
 1210     LDX #$00  SCREEN.
 1220     JSR $09AB
 1230     PLA
 1240     RTS
 1280 K10 JSR $FFBA
 1290     CMP #$0A DEL CHARPRINT
 1300     BEQ C10   YES.
 1310     RTS
 1340     END