1 ' Loader program for TCOMPF.CO 2 ' By Tim Ekdom 72575,1473 3 ' September, 1985 10 CLS:PRINT:IFHIMEM=57967THENLFILESOFF 20 IFHIMEM<>MAXRAMTHEN500 30 IFMAXRAM<62960THEN600 40 IFFRE(0)<1500THEN700 50 CLEAR256,62448:DEFINTM:DIMML(17):RESTORE5000 55 FORN=0TO17:READML(N):NEXT 60 PRINT"Creating TCOMPF.CO ...":RESTORE1000 70 FORAD=62448TO62958 80 READ BY:POKEAD,BY 90 CK=CK+BY 100 NEXTAD 110 IFCK<>59336THENPRINT"Incorrect checksum...not loaded":END 120 CLS:PRINT:PRINT"Finished" 130 CALLVARPTR(ML(0)) 140 SAVEM"TCOMPF.CO",62448,62958,62448 150 END 500 PRINT"HIMEM <> MAXRAM. Is there a ML program" 510 PRINT "loaded (other than CDOS) that you want":PRINT"saved? (Y/N)" 520 A$=INKEY$:IFA$=""THEN520 530 IFA$="Y"ORA$="y"THENEND 540 IFA$="N"ORA$="n"THENCLS:PRINT:GOTO30 550 GOTO520 600 PRINT"Cannot load over MAXRAM":END 700 PRINT"Inadequate free RAM to save TCOMPF.CO":PRINT"Kill some files":END 1000 DATA205,58,66,205,49,66,33,3,8,205,124,66,33,127,245,205,88,90,33,5 1010 DATA13,205,124,66,33,154,245,205,88,90,33,7,11,205,124,66,33,168,245,205 1020 DATA88,90,1,255,3,30,255,29,194,31,244,11,121,254,0,194,29,244,120,254 1030 DATA0,194,29,244,205,49,66,205,49,66,205,34,66,205,58,31,205,34,66,33 1040 DATA62,245,205,88,90,205,68,70,35,223,202,52,245,33,98,249,34,60,245,126 1050 DATA254,128,202,109,244,1,11,0,9,17,138,250,223,218,80,244,33,81,245,205 1060 DATA88,90,195,60,244,35,126,50,58,245,35,126,50,59,245,17,132,246,14,0 1070 DATA12,62,7,185,202,163,244,19,35,26,205,233,15,254,46,202,157,244,254,0 1080 DATA202,157,244,190,202,124,244,42,60,245,195,89,244,126,254,32,194,151,244,33 1090 DATA100,245,205,88,90,205,34,66,33,91,245,30,8,205,11,76,22,248,30,2 1100 DATA33,7,0,175,50,53,245,205,18,77,33,133,246,205,88,90,205,34,66,205 1110 DATA34,66,42,58,245,94,35,86,175,186,202,28,245,235,34,58,245,235,35,126 1120 DATA50,54,245,35,126,50,55,245,34,56,245,42,56,245,35,34,56,245,126,254 1130 DATA0,202,206,244,254,128,218,235,244,33,187,245,14,53,190,202,235,244,35,13 1140 DATA194,2,245,42,54,245,205,212,57,205,34,66,62,1,50,53,245,195,206,244 1150 DATA58,53,245,254,0,194,45,245,33,111,245,205,88,90,205,34,66,175,205,56 1160 DATA77,205,41,66,199,0,0,0,0,0,0,0,0,0,66,65,32,102,105,108 1170 DATA101,32,116,111,32,99,104,101,99,107,63,32,0,78,111,116,32,102,111,117 1180 DATA110,100,0,76,73,78,69,83,46,68,79,0,87,111,114,107,105,110,103,46 1190 DATA46,46,0,65,108,108,32,107,101,121,119,111,114,100,115,32,79,75,0,80 1200 DATA114,101,45,67,111,109,112,105,108,101,32,75,101,121,119,111,114,100,32,70 1210 DATA105,108,116,101,114,0,70,111,114,32,84,67,79,77,80,46,49,50,49,0 1220 DATA40,67,41,32,49,57,56,53,32,84,105,109,32,69,107,100,111,109,0,128 1230 DATA129,130,131,133,134,135,136,138,139,140,141,142,143,146,150,151,161,162,163,176 1240 DATA177,178,180,181,185,186,193,201,205,206,208,209,210,211,212,213,214,215,218,219 1250 DATA220,221,222,223,224,225,227,231,238,250,255 5000DATA 17214,-21710,16127,12897,-83,27710,-20686,16127,12908,-79 5010 DATA 12350,-19662,16127,12813,-75,1598,-21966,-13825 32767 REM 9/22/85 #1