...
Code Block |
---|
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 |
...