1 'LINLDR - Loads/Unloads LINE.CO
2 'by Gary Weber 11/19/92
10 CLS:SCREEN,0:PRINT"LINE.CO loader/unloader":HIMEM=PEEK(62340!)+PEEK(62341!)*256
20 IFPEEK(64082!)+PEEK(64083!)*256<>62139!THEN50
30 POKE64082!,135:POKE64083!,11:PRINT:PRINT"Unhooked, ";
40 IFHIMEM<62138!THENPRINT"but CAN'T free memory due to":PRINT"other .CO pgms in memory below LINE":PRINT"Press any key: ";:I$=INPUT$(1):MENUELSECLEAR256,62336!:PRINT"and unloaded from memory!":MENU
50 IFHIMEM=62336!THENCLEAR256,62138!ELSEPRINT"WARNING: Possible conflict.  Proceed?";:I$=INPUT$(1):IFI$<>"Y"ANDI$<>"y"THENMENUELSEPRINTI$:LOCATE0,1:PRINTCHR$(27)"K";
60 BLOAD"LINE":POKE64082!,187:POKE64083!,242:LINE(239,0)-(0,63):PRINT"-LOADED-":MENU