0 ' Loader program to create FINDCC.CO
1 ' By Tim Ekdom  72575,1473
2 ' July, 1985
10 CLS:PRINT
20 IFHIMEM<>MAXRAMANDHIMEM<>57248THEN500
30 IFMAXRAM<57967THEN600
40 IFFRE(0)<1000THEN700
50 CLEAR256,57248
60 PRINT"Creating FINDCC.CO ..."
70 FORAD=57248TO57957
80 READ BY:POKEAD,BY
90 CK=CK+BY
100 NEXTAD
110 IFCK<>50614THENPRINT"Incorrect checksum...not loaded":END
120 CLS:PRINT:PRINT"Finished. Load/Run address is 57248"
130 SAVEM"FINDCC.CO",57248,57957,57248
140 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 SDCOPY.":PRINT"Kill some files":END
1000 DATA205,49,66,205,34,66,33,207,224,205,88,90,205,34,66,33,224,224,205,88
1010 DATA90,205,34,66,205,34,66,33,239,224,205,88,90,205,203,18,254,13,202,214
1020 DATA223,254,27,202,72,224,254,3,194,193,223,195,72,224,62,18,33,100,225,119
1030 DATA62,255,35,119,43,43,119,205,34,66,33,83,225,205,88,90,33,100,225,52
1040 DATA62,19,190,194,24,224,62,1,119,35,52,62,80,190,202,39,224,58,58,246
1050 DATA254,37,244,34,66,62,32,231,58,101,225,111,38,0,205,212,57,62,32,231
1060 DATA205,190,224,218,73,224,205,179,224,218,88,224,195,236,223,205,34,66,33,10
1070 DATA225,205,88,90,205,34,66,33,20,225,205,88,90,205,203,18,230,31,254,25
1080 DATA202,184,223,254,14,194,57,224,201,205,34,66,33,37,225,205,88,90,205,34
1090 DATA66,195,51,224,205,41,66,33,101,225,58,99,225,190,202,104,224,205,34,66
1100 DATA62,67,187,202,125,224,33,46,225,205,88,90,38,0,107,205,212,57,195,137
1110 DATA224,205,41,66,205,41,66,33,54,225,205,88,90,33,66,225,205,88,90,58
1120 DATA101,225,111,38,0,205,212,57,33,74,225,205,88,90,58,100,225,111,38,0
1130 DATA205,212,57,205,34,66,58,101,225,50,99,225,195,236,223,33,100,225,94,35
1140 DATA86,35,255,66,2,201,205,66,114,167,200,254,27,202,205,224,254,3,194,190
1150 DATA224,55,201,32,67,68,79,83,32,67,82,67,32,70,105,110,100,101,114,0
1160 DATA32,40,69,83,67,32,61,32,65,98,111,114,116,41,0,32,73,110,115,101
1170 DATA114,116,32,100,105,115,107,44,32,112,114,101,115,115,32,69,110,116,101,114
1180 DATA32,0,32,70,105,110,105,115,104,101,100,0,32,65,110,111,116,104,101,114
1190 DATA63,32,40,89,47,78,41,32,0,32,65,98,111,114,116,101,100,0,32,69
1200 DATA114,114,111,114,32,0,32,67,82,67,32,101,114,114,111,114,58,0,32,84
1210 DATA114,97,99,107,32,0,32,83,101,99,116,111,114,32,0,32,82,101,97,100
1220 DATA105,110,103,32,116,114,97,99,107,58,0,255,0,0,0,0,0,0,0,0
1230 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1240 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1250 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1260 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1270 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1280 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1290 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1300 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1310 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1320 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1330 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1340 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1350 DATA0,0,0,0,0,0,0,0,0,0