1 'CHRLDR - Loads/Unloads CHR100.CO
2 'by Gary Weber 11/19/92
10 CLS:SCREEN,0:PRINT"CHR100.CO loader/unloader":HIMEM=PEEK(62340!)+PEEK(62341!)*256
20 IFPEEK(65215!)+PEEK(65216!)*256<>61388!THEN50
30 POKE65215!,0:POKE65216!,0:PRINT"Unhooked, ";
40 IFHIMEM<61388!THENPRINT"but CAN'T free memory due to":PRINT"other .CO pgms in memory below CHR100":PRINT"Press any key: ";:I$=INPUT$(1):MENUELSECLEAR256,62138!:PRINT"and unloaded from memory!":MENU
50 IFHIMEM>61388!THENCLEAR256,61388!ELSEPRINT"WARNING: Possible conflict.  Proceed?";:I$=INPUT$(1):IFI$<>"Y"ANDI$<>"y"THENMENUELSEPRINTI$:LOCATE0,1:PRINTCHR$(27)"K";
60 BLOAD"CHR100":POKE65215!,204:POKE65216!,239:PRINT"-LOADED-":FORA=131TO255:PRINTCHR$(A);:NEXT:MENU