0 ' Loader program to create SDCOPY.CO v2.2 which is (C) 1985 By Tim Ekdom.
1 ' All rights reserved.  Limited license granted to all M-100 users for
2 ' personal, non-commercial use and duplication and distribution as
3 ' necessary to achieve such use.
10 CLS:PRINT
20 IFHIMEM<>MAXRAMANDHIMEM<>56960THEN500
30 IFMAXRAM<57959THEN600
40 IFFRE(0)<1300THEN700
50 CLEAR256,56960
60 PRINT"Creating SDCOPY.CO ..."
70 FORAD=56960TO57704
80 READ BY%:POKEAD,BY%
90 CK=CK+BY%
100 NEXTAD
110 IFCK<>85253THENPRINT"Incorrect checksum...not loaded":END
120 CLS:PRINT:PRINT"Finished"
130 SAVEM"SDCOPY.CO",56960,57704,56960
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,33,151,224,205,88,90,205,34,66,42,182,251,35,35,34,100,225
1010 DATA42,244,245,235,33,100,225,126,60,187,218,162,222,21,35,35,114,205,34,66
1020 DATA33,234,224,205,88,90,205,6,224,218,220,223,205,34,66,62,2,50,243,223
1030 DATA33,103,225,34,98,225,33,5,0,34,94,225,205,232,223,218,199,223,33,94
1040 DATA225,62,1,119,35,61,119,35,119,35,119,33,94,225,1,90,225,126,2,35
1050 DATA3,126,2,35,3,126,2,42,100,225,34,98,225,205,100,224,202,34,223,33
1060 DATA99,225,126,198,6,33,102,225,190,210,34,223,205,106,224,194,22,223,205,120
1070 DATA224,205,128,224,218,220,223,195,241,222,205,31,224,218,199,223,205,76,224,195
1080 DATA13,223,205,41,66,205,34,66,33,0,225,205,88,90,205,6,224,218,220,223
1090 DATA205,34,66,58,96,225,50,97,225,33,90,225,1,94,225,126,2,35,3,126
1100 DATA2,35,3,126,2,42,100,225,34,98,225,62,4,50,243,223,205,100,224,202
1110 DATA162,223,33,97,225,126,43,190,202,133,223,205,106,224,194,121,223,205,120,224
1120 DATA205,128,224,218,220,223,195,88,223,205,31,224,218,199,223,205,76,224,195,112
1130 DATA223,205,34,66,205,41,66,33,234,224,205,88,90,205,6,224,218,220,223,205
1140 DATA34,66,62,2,50,243,223,195,219,222,205,41,66,205,34,66,33,79,225,205
1150 DATA88,90,205,34,66,33,57,225,205,88,90,205,203,18,230,31,254,25,202,165
1160 DATA222,254,14,194,183,223,201,205,41,66,205,41,66,205,34,66,33,40,225,205
1170 DATA88,90,38,0,107,205,212,57,205,34,66,33,48,225,205,88,90,195,174,223
1180 DATA33,95,225,86,43,94,42,98,225,255,66,0,201,205,66,114,167,200,254,27
1190 DATA202,4,224,254,3,194,245,223,55,201,33,27,225,205,88,90,205,203,18,167
1200 DATA254,13,200,254,27,202,29,224,254,3,194,12,224,55,201,62,6,50,93,225
1210 DATA62,3,50,89,225,205,232,223,218,64,224,34,98,225,33,94,225,52,43,53
1220 DATA62,0,167,190,200,195,36,224,33,89,225,53,62,0,190,194,41,224,55,201
1230 DATA58,58,246,254,36,244,34,66,62,32,231,58,96,225,111,38,0,205,212,57
1240 DATA62,32,231,201,58,96,225,254,240,201,58,96,225,6,0,79,33,103,225,9
1250 DATA126,254,0,201,33,94,225,126,198,6,119,201,33,94,225,126,254,19,194,142
1260 DATA224,62,1,119,35,52,33,96,225,52,167,205,245,223,201,10,13,32,67,68
1270 DATA79,83,32,83,105,110,103,108,101,45,68,114,105,118,101,32,67,111,112,121
1280 DATA32,85,116,105,108,105,116,121,32,118,50,46,50,10,13,32,40,67,41,32
1290 DATA49,57,56,53,32,84,105,109,32,69,107,100,111,109,10,13,32,40,80,114
1300 DATA101,115,115,32,69,83,67,32,116,111,32,97,98,111,114,116,41,0,32,73
1310 DATA110,115,101,114,116,32,115,111,117,114,99,101,32,100,105,115,107,44,32,0
1320 DATA32,73,110,115,101,114,116,32,100,101,115,116,105,110,97,116,105,111,110,32
1330 DATA100,105,115,107,44,32,0,112,114,101,115,115,32,69,78,84,69,82,32,0
1340 DATA32,69,114,114,111,114,32,0,32,65,98,111,114,116,101,100,0,32,65,110
1350 DATA111,116,104,101,114,32,100,105,115,107,63,32,40,89,47,78,41,32,0,32
1360 DATA70,105,110,105,115,104,101,100,0,0,0,0,0,0,0,0,0,0,0,0
1370 DATA0,0,0,0,0
32767 ' 11/16/85