101 CLS:IFS+933>MAXRAMTHENPRINT"OM Error: edit line 100":STOP
102 IFS<HIMEMTHENCLEAR256,S:S=HIMEM:FZ=1
103 S=S+769:IFFZ=1THENGOSUB2000
110 S=S-769:FZ=0
120 POKES,201:S=S+1 'poke a machine code 'return'