1 IFHIMEM=MAXRAMTHEN3ELSEBEEP:PRINT:PRINT"Memory not clear.":PRINT"HIMEM ="HIMEM:PRINT"Clear?"; 2 GOSUB11:IFA$="N"THENMENUELSEIFA$<>"Y"THEN2 3 CLEAR256,MAXRAM:POKE64228,243:POKE64229,127:CLS:PRINT"CO-Load":PRINT:E$=CHR$(27):NF$="@":FORM=-1617TO-1408STEP11:IF(PEEK(M)AND160)=160THENNF$=CHR$(ASC(NF$)+1):PRINTE$"p"NF$;E$"q";:FORN=3TO8:PRINTCHR$(PEEK(M+N));:NEXT:PRINT" "; 4 NEXT:PRINT:PRINT"File to load?"; 5 GOSUB11:IFA$<"A"THENMENUELSEIFA$>NF$THEN5ELSEA=ASC(A$)-65:A$="":FORM=A*8+65105TOA*8+65110:A$=A$+CHR$(PEEK(M)):NEXT 6 ONERRORGOTO14:RUNMA$ 7 ONERRORGOTO15:X=64206:P=PEEK(X)+256*PEEK(X+1):Q=PEEK(X+4)+256*PEEK(X+5):IFP