1 CLS:PRINT "THIS basic PROGRAM WAS AUTOMATICALLY CREATED BY CONVERT.BAS" 2 PRINT"Copyright 1982 ,Rich Schinnell Rockville,MD. Not for Sale." 3 PRINT "This program will automatically generate you a .COM program named b:necscrn.com":PRINT 4 ON ERROR GOTO 5000 6 INPUT "The file will be saved on the default drive.Place disk in the drive then Strike any key "; SCHINNELL$ 9 PRINT:PRINT " Now reading the data statements, wait!" 10 RESTORE:READ T:FOR I = 1 TO T:READ N:X#=X#+N:NEXT I 20 READ TOT# :IF TOT#<>X# THEN 5000 22 CLS:LOCATE 12,5:PRINT "Now writing file NAMED b:necscrn.com standby please " 30 RESTORE 40 OPEN "R", #1,"necscrn.com",1 50 FIELD #1, 1 AS N$ 60 READ N 70 FOR I = 1 TO N 80 READ N:LSET N$=CHR$(N): 92 PUT #1 :NEXT I:CLOSE 94 PRINT "necscrn.com CREATED * *":GOTO 5010 99 DATA 1168 1000 DATA 233,233,0,32,32,32,32,32,32,32,32,32 1011 DATA 32,32,32,32,32,78,69,67,83,67,82,78,46 1012 DATA 67,79,77,32,10,13,78,69,67,32,56,48,50 1013 DATA 51,65,32,71,82,65,80,72,73,67,83,47,84 1014 DATA 69,88,84,32,83,99,114,101,101,110,32,80,114 1015 DATA 105,110,116,101,114,46,10,13,32,32,32,76,101 1016 DATA 102,116,32,83,104,46,32,80,114,116,83,99,46 1017 DATA 32,61,32,76,65,82,71,69,32,71,82,65,80 1018 DATA 72,73,67,83,10,13,32,32,82,105,103,104,116 1019 DATA 32,83,104,46,32,80,114,116,83,99,46,32,61 1020 DATA 32,115,109,97,108,108,32,103,114,97,112,104,105 1021 DATA 99,115,10,13,32,84,101,120,116,32,115,99,114 1022 DATA 101,101,110,32,117,115,101,115,32,114,101,103,117 1023 DATA 108,97,114,32,82,79,77,32,114,111,117,116,105 1024 DATA 110,101,46,10,13,32,32,32,69,83,67,97,112 1025 DATA 101,32,119,105,108,108,32,101,120,105,116,32,103 1026 DATA 114,97,112,104,105,99,115,32,112,114,105,110,116 1027 DATA 46,10,13,36,0,0,0,0,0,0,0,0,0 1028 DATA 0,0,0,184,0,0,142,216,190,20,0,139,4 1029 DATA 139,208,70,70,139,4,142,216,176,241,180,37,205 1030 DATA 33,140,200,142,216,184,40,2,139,208,176,5,180 1031 DATA 37,205,33,140,200,142,216,184,3,1,139,208,180 1032 DATA 9,205,33,184,132,5,139,208,66,205,39,251,30 1033 DATA 80,83,81,82,87,86,184,80,0,142,216,190,0 1034 DATA 0,176,1,56,4,117,3,233,168,0,136,4,180 1035 DATA 15,205,16,60,4,116,17,60,5,116,13,60,6 1036 DATA 116,9,176,0,136,4,205,241,233,141,0,184,64 1037 DATA 0,142,216,190,23,0,139,4,37,3,0,46,162 1038 DATA 229,1,80,178,0,182,25,184,0,184,142,216,176 1039 DATA 27,232,230,0,176,84,232,225,0,176,49,233,169 1040 DATA 2,88,60,2,116,102,185,80,0,178,192,232,40 1041 DATA 1,138,196,232,195,1,178,48,232,30,1,138,196 1042 DATA 232,185,1,178,12,232,20,1,138,196,232,175,1 1043 DATA 178,3,232,10,1,138,196,232,165,1,226,214,232 1044 DATA 239,1,232,4,2,10,192,254,206,128,254,0,116 1045 DATA 9,140,216,5,20,0,142,216,235,187,184,0,0 1046 DATA 80,176,27,232,137,0,176,66,232,132,0,184,80 1047 DATA 0,142,216,190,0,0,88,136,4,94,95,90,89 1048 DATA 91,88,31,207,182,80,46,199,6,226,1,240,62 1049 DATA 46,139,54,226,1,185,100,0,138,4,233,107,2 1050 DATA 232,209,1,232,78,1,46,137,54,224,1,129,238 1051 DATA 0,32,138,4,233,96,2,232,189,1,232,58,1 1052 DATA 46,139,54,224,1,131,238,80,226,215,232,124,1 1053 DATA 232,145,1,10,192,254,206,128,254,0,116,12,46 1054 DATA 255,6,226,1,46,139,54,226,1,235,185,185,19 1055 DATA 0,176,13,232,20,0,176,10,232,15,0,226,244 1056 DATA 233,7,0,8,0,176,64,232,3,0,233,110,255 1057 DATA 80,180,0,82,186,0,0,205,23,90,128,252,1 1058 DATA 88,116,1,195,184,255,0,233,90,255,81,185,13 1059 DATA 0,176,32,232,224,255,226,249,176,27,232,217,255 1060 DATA 176,83,232,212,255,176,48,232,207,255,176,51,233 1061 DATA 162,1,89,195,81,185,6,0,176,32,232,191,255 1062 DATA 226,249,176,27,232,184,255,176,83,232,179,255,176 1063 DATA 48,232,174,255,176,52,233,145,1,89,195,184,80 1064 DATA 0,43,193,139,240,180,0,138,4,34,194,60,0 1065 DATA 116,3,232,108,0,131,198,80,138,4,34,194,60 1066 DATA 0,116,3,232,102,0,131,198,80,138,4,34,194 1067 DATA 60,0,116,3,232,96,0,131,198,80,138,4,34 1068 DATA 194,60,0,116,3,232,90,0,80,184,80,0,43 1069 DATA 193,5,0,32,139,240,88,138,4,34,194,60,0 1070 DATA 116,3,232,47,0,131,198,80,138,4,34,194,60 1071 DATA 0,116,3,232,41,0,131,198,80,138,4,34,194 1072 DATA 60,0,116,3,232,35,0,131,198,80,138,4,34 1073 DATA 194,60,0,116,3,232,29,0,195,128,204,1,195 1074 DATA 128,204,2,195,128,204,4,195,128,204,8,195,128 1075 DATA 204,16,195,128,204,32,195,128,204,64,195,128,204 1076 DATA 128,195,80,140,216,80,140,200,142,216,88,46,163 1077 DATA 230,1,46,128,62,228,1,255,117,6,88,232,238 1078 DATA 254,235,43,88,60,0,116,38,176,255,46,162,228 1079 DATA 1,88,46,128,62,229,1,1,117,9,232,236,254 1080 DATA 232,17,0,233,248,253,232,4,255,46,139,54,226 1081 DATA 1,232,3,0,233,94,254,80,46,161,230,1,142 1082 DATA 216,88,195,176,13,232,179,254,176,10,232,174,254 1083 DATA 184,0,0,46,162,228,1,46,161,230,1,142,216 1084 DATA 195,80,82,180,6,178,255,205,33,117,3,90,88 1085 DATA 195,60,27,116,2,235,247,90,88,88,233,245,253 1086 DATA 81,83,80,177,2,187,0,0,36,3,232,49,0 1087 DATA 210,203,88,80,232,39,0,36,3,232,37,0,210 1088 DATA 203,88,80,232,25,0,36,3,232,25,0,210,203 1089 DATA 88,232,12,0,36,3,232,14,0,210,203,138,195 1090 DATA 91,89,195,210,200,210,200,210,200,195,60,3,117 1091 DATA 3,128,203,3,60,2,117,3,128,203,1,60,1 1092 DATA 117,3,128,203,1,195,232,48,254,176,54,232,43 1093 DATA 254,233,76,253,232,37,254,176,50,232,32,254,176 1094 DATA 48,232,27,254,233,78,254,232,21,254,176,48,232 1095 DATA 16,254,176,48,232,11,254,233,95,254,81,80,185 1096 DATA 8,0,211,192,209,200,208,192,208,192,226,248,208 1097 DATA 200,139,200,88,138,193,89,195,232,229,255,232,227 1098 DATA 254,233,140,253,232,220,255,232,218,254,233,151,253 1099 DATA 0,0,0,0,0,0,0,0,0,0,0,0 1100 DATA 127872 5000 PRINT "* * ERROR VERIFY DATA * * * " 5010 CLOSE:END ,233,151,253 1099 DATA 0,0,0,0,0,0,0,0,0,0,0,0 1100 DATA 127872 5000 PRINT "* * ERROR VERIFY DATA