Page Comparison

60000 END
60010 DEF PROCE(B)
60020 REM Cambridge Computer Ltd.
60030 IF B=0 THEN ENDPROC
60040 A=OPENOUT":RAM.0/EE.CLI"
60050 B$=":RAM.0/E.CLI"
60060 PRINT#A,".>"+B$
60070 PRINT#A, "".J" ,"LIST"+STR$(B),"PROCF"
60080 CLOSE#A
60090 *CLI .*:RAM.O/EE.CLI
60100 ENDPROC
60110 DEF PROOFPROCF
60120 A=INKEY(0)
60130 A=OPENIN B$
60140 INPUT#A,A$,A$
60150 CLOSE#A
60160 A=OPENOUT B$
60170 PRINT#A,".J",A$
60180 PTR#A=PTR#A-1
60190 BPUT#A,0
60200 CLOSE#A
60210 VDU 8
60220 OSCLI"*CLI .<"+B$
60230 ENDPROC