10  PROCcompile 
   12  V%=PAGE:*KEY10"PAGE=V%|M OLD|M"
   20  CHAIN"ASCPROG"
   30  
   40  DEFPROCcompile
   50  FOR I%=0 TO 2 STEP 2
   60  P%=PAGE-&1F0
   70  [OPTI%
   80  \
   90  \ ******** PRINT PAGE ********
  100  \
  110  .W%
  120  LDA #0:STA &40C:STA &40D
  130  LDA #24:STA &40B
  140  LDA #26:JSR &FFEE
  150  LDA #30:JSR &FFEE 
  160  LDA &410:BNE loop2
  170  LDA &411:BNE loop2
  180  LDA &40A:BNE end2
  190  .loop2
  200  CLC
  210  LDA &78:ADC &40C:STA &72
  220  LDA &79:ADC &40D:STA &73
  230  LDY #0:LDA (&72),Y:STA &408
  240  CMP #13:BNE nt1:DEC &40B
  250  .nt1
  260  JSR &FFE3
  270  INC &40C:BNE nt2:INC &40D
  280  .nt2
  290  LDA &40B:BEQ end2
  300  LDA &408:CMP #&FF:BEQ end2
  310  LDA &40A:BEQ loop2
  320  LDA &40C:CMP &410:BNE loop2
  330  LDA &40D:CMP &411:BNE loop2 
  340  .end2
  350  INC &40A:LDA &40A 
  360  CMP #1:BNE leave:JMP W%
  370  .leave
  380  LDA #0:STA &72:STA &73
  390  RTS
  400  \
  410  \ ********** JUMP COUNT *********
  420  \
  422  .X%
  430  LDA &70:STA &80
  440  LDA &71:STA &81
  450  LDY #0:LDA (&80),Y:BMI end3
  460  .loop3
  470  LDA (&80),Y:CMP #13:BNE p3
  480  INC &408:BNE c3:INC &409
  490  .c3
  500  LDA &81:CMP &7D:BCC add:BNE p3
  510  LDA &80:CMP &7C:BCS p3
  520  .add
  530  INC &40C:BNE p3:INC &40D  
  540  .p3
  550  JSR inc 
  560  BCS end3
  570  LDA &408:CMP &410:BNE loop3
  580  LDA &409:CMP &411:BNE loop3 
  590  .end3
  600  RTS 
  610  \
  620  \******* DELETE CHR$ ******
  630  \
  640  .Y%
  650  LDY #0
  660  INY:LDA (&80),Y
  670  DEY:STA (&80),Y 
  680  JSR inc
  690  BCC Y%:RTS
  700  \
  710  \******* INSERT CHR$ ******
  720  \
  730  .Z%
  740  LDY #0
  750  LDA (&80),Y:INY
  760  STA (&80),Y:DEY
  810  LDA &81:CMP &7D:BNE dec
  815  LDA &80:CMP &7C:BNE dec
  820  RTS
  821  .dec
  822  LDA &80:BNE n1:DEC &81
  823  .n1
  824  DEC &80
  826  JMP Z%
  830  \
  840  \
  850  \
  860  .inc
  870  INC &80:BNE t1:INC &81 
  880  .t1
  890  LDA &80:CMP &74:BNE r1
  900  LDA &81:CMP &75:BEQ r2
  910  .r1
  920  CLC:RTS 
  930  .r2
  940  SEC:RTS
  950  ]
  960  NEXT
  970  ENDPROC