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