load, execute & erase--restore file copy & reclaim himem. dec/83 Ken Brisbin40000FN$(6):ST(6):EN(6):EX(6):CA(6) CT3 name,start,end,transfer,callSP,55000,62220,55000,55000$STAR,58048,62930,58048,580487empty,0,0,0,0i2X1CT:FN$(X):ST(X):EN(X):EX(X):CA(X):d4811::(27)"W";n" OPTIONS:"o@44,"<1>-load & execute."؂p@84,"<2>-load, execute & erase.";q@124,"<3>-restore file & reclaim himem.";+r@164,"<4>-restore file only.";Qs@204,"<5>-reclaim high memory.";kt@282,"Your choice?";xOP$݄$(1):OP(OP$):OP1OP5120yOP5530:" PROGRAM LISTING."Z1CT:Z$(Z):@4240Z,Z$;">-";FN$(Z)".CO": @282,"Your choice?";4,PL$݄$(1):X(PL$):X1X(CT1)300d^FN$(X)FN$(X)".CO":OP400,400,500,500,530儐:"RAM:TEMP.DO" PUT AS 1:#1,FN$(X)::"RAM:TEMP.DO" APP AS 1:#1,CA(X)::"RAM:TEMP.DO" APP AS 1:#1,OP::256,CA(X)"RAM:TEMP.DO" AS 1:#1,FN$(X)::MFN$(X)v"RAM:TEMP.DO" AS 1:#1,FN$(X),CA(X),OP::"TEMP.DO": OP2 FN$(X):CA(X) : CA(X)4,"RUN520"(13)::@162,"Press KEY 4 to complete."΅MFN$(X),ST(X),EN(X),EX(X)4,"RUN"(13):OP4550:256,RAM&@TI$"LOADER & RESET for .CO":LTI(TI$):AU$"by KJB":LAU(AU$):TI(40LTI)2:0,0:OP$"LCD:":OP$ PUT AS 1::(27)"V";:X12:(160,255);:J(6TI6,19)((6TI)(6LTI)4,35),1,BF:(6TI4,21)((6TI)(6LTI)2,33),0,BF:@120TI,TI$QT(237(LAU6)8,45)(237,57),1,BF:(237(LAU6)7,46)(236,56),0,BF:@279LAU,AU$:10