0 IFPEEK(1)=171THENEND'RUN-CO.100/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(64206)+256*(PEEK(64207)):IFINSTR(A$,":")THEN28
26 CLEAR256,X:GOSUB30:RUNMC$
28 CLEAR256,X:GOSUB30:RUNM":"+C$
30 C$="":Y=VARPTR(C$):POKEY,6:POKEY+1,147:POKEY+2,252:RETURN