0 IFPEEK(1)<>171THENEND'RUN-CO.200/RHESS1.2
5 CLEAR256,MAXRAM
10 CLS:FILES:PRINT:LINEINPUT".CO File (0:?) = ";A$:IFA$=""THENMENUELSEA$=A$+".CO":ONERRORGOTO20:RUNMA$
20 IFERR=7THENRESUME25ELSEBEEP:PRINTERR;ERL:END
25 X=PEEK(62715)+256*(PEEK(62716)):IFINSTR(A$,":")THEN28
26 CLEAR256,X:GOSUB30:RUNMC$
28 CLEAR256,X:GOSUB30:RUNM":"+C$
30 C$="":Y=VARPTR(C$):POKEY,6:POKEY+1,70:POKEY+2,247:RETURN