home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol4n24.zip
/
SWEEP.BAS
< prev
next >
Wrap
BASIC Source File
|
1985-06-03
|
6KB
|
94 lines
100 REM -- BASIC PROGRAM TO CREATE SWEEP.COM
110 OPEN "SWEEP.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I% = 1 TO 74
150 LINESUM% = 0
160 FOR J% = 1 TO 8
170 READ BYTE%
180 CHECKSUM = CHECKSUM + BYTE%
190 LINESUM% = LINESUM% + BYTE%
200 LSET A$ = CHR$(BYTE%)
210 PUT #1
220 NEXT J%
230 READ LINECHECK%
240 IF LINECHECK% <> LINESUM% THEN PRINT "Error in Line";299 + I%
250 NEXT I%
260 CLOSE
270 IF CHECKSUM = 55708 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
300 DATA 233, 173, 0, 13, 10, 62, 62, 62, 615
301 DATA 32, 83, 87, 69, 69, 80, 32, 62, 514
302 DATA 62, 62, 32, 0, 58, 92, 40, 67, 413
303 DATA 41, 32, 67, 111, 112, 121, 114, 105, 703
304 DATA 103, 104, 116, 32, 67, 104, 97, 114, 737
305 DATA 108, 101, 115, 32, 80, 101, 116, 122, 775
306 DATA 111, 108, 100, 44, 32, 49, 57, 56, 557
307 DATA 53, 26, 78, 101, 101, 100, 115, 32, 606
308 DATA 68, 79, 83, 32, 50, 46, 48, 32, 438
309 DATA 43, 36, 65, 108, 108, 111, 99, 97, 667
310 DATA 116, 105, 111, 110, 32, 80, 114, 111, 779
311 DATA 98, 108, 101, 109, 36, 83, 87, 69, 691
312 DATA 69, 80, 58, 32, 67, 79, 77, 77, 539
313 DATA 65, 78, 68, 32, 80, 114, 111, 98, 646
314 DATA 108, 101, 109, 36, 83, 87, 69, 69, 662
315 DATA 80, 58, 32, 65, 98, 110, 111, 114, 668
316 DATA 109, 97, 108, 32, 69, 120, 105, 116, 756
317 DATA 36, 0, 0, 0, 67, 79, 77, 83, 342
318 DATA 80, 69, 67, 61, 0, 0, 0, 0, 277
319 DATA 0, 0, 125, 0, 0, 0, 92, 0, 217
320 DATA 0, 0, 108, 0, 0, 0, 42, 46, 196
321 DATA 42, 0, 46, 46, 0, 143, 4, 0, 281
322 DATA 180, 48, 205, 33, 60, 2, 115, 9, 652
323 DATA 186, 58, 1, 180, 9, 205, 33, 205, 877
324 DATA 32, 134, 196, 163, 137, 1, 188, 143, 994
325 DATA 4, 187, 254, 9, 177, 4, 211, 235, 1081
326 DATA 180, 74, 205, 33, 115, 5, 186, 74, 872
327 DATA 1, 235, 224, 6, 187, 44, 0, 142, 839
328 DATA 7, 43, 255, 190, 140, 1, 252, 38, 926
329 DATA 128, 61, 0, 116, 20, 86, 87, 185, 683
330 DATA 8, 0, 243, 166, 95, 94, 116, 15, 737
331 DATA 42, 192, 185, 255, 255, 242, 174, 235, 1580
332 DATA 230, 7, 186, 93, 1, 235, 180, 131, 1063
333 DATA 199, 8, 137, 62, 148, 1, 140, 6, 701
334 DATA 150, 1, 140, 6, 152, 1, 140, 14, 604
335 DATA 156, 1, 140, 14, 160, 1, 140, 14, 626
336 DATA 164, 1, 7, 160, 128, 0, 4, 3, 467
337 DATA 162, 125, 0, 198, 6, 126, 0, 32, 649
338 DATA 199, 6, 127, 0, 47, 67, 184, 0, 630
339 DATA 51, 205, 33, 136, 22, 139, 1, 42, 629
340 DATA 210, 184, 1, 51, 205, 33, 186, 60, 930
341 DATA 3, 184, 35, 37, 205, 33, 180, 25, 702
342 DATA 205, 33, 4, 65, 162, 19, 1, 190, 679
343 DATA 79, 3, 42, 210, 180, 71, 205, 33, 823
344 DATA 190, 22, 1, 42, 210, 180, 71, 205, 921
345 DATA 33, 190, 3, 1, 252, 172, 10, 192, 853
346 DATA 116, 8, 138, 208, 180, 2, 205, 33, 890
347 DATA 235, 243, 185, 244, 1, 180, 11, 205, 1304
348 DATA 33, 226, 250, 129, 62, 137, 1, 10, 848
349 DATA 3, 114, 12, 178, 13, 180, 2, 205, 707
350 DATA 33, 178, 10, 180, 2, 205, 33, 187, 828
351 DATA 152, 1, 197, 22, 148, 1, 42, 192, 755
352 DATA 180, 75, 205, 33, 140, 200, 142, 216, 1191
353 DATA 142, 192, 142, 208, 188, 143, 4, 156, 1175
354 DATA 42, 210, 184, 1, 51, 205, 33, 138, 864
355 DATA 22, 19, 1, 128, 234, 65, 180, 14, 663
356 DATA 205, 33, 157, 186, 93, 1, 114, 12, 801
357 DATA 186, 21, 1, 180, 59, 205, 33, 115, 800
358 DATA 10, 186, 116, 1, 180, 9, 205, 33, 740
359 DATA 235, 98, 144, 139, 22, 173, 1, 180, 992
360 DATA 26, 205, 33, 128, 62, 175, 1, 0, 630
361 DATA 117, 12, 186, 166, 1, 185, 16, 0, 683
362 DATA 180, 78, 205, 33, 235, 4, 180, 79, 994
363 DATA 205, 33, 114, 37, 139, 30, 173, 1, 732
364 DATA 246, 71, 21, 16, 116, 240, 131, 195, 1036
365 DATA 30, 128, 63, 46, 116, 232, 139, 211, 965
366 DATA 180, 59, 205, 33, 131, 6, 173, 1, 788
367 DATA 43, 198, 6, 175, 1, 0, 233, 63, 719
368 DATA 255, 129, 62, 173, 1, 143, 4, 116, 883
369 DATA 19, 131, 46, 173, 1, 43, 198, 6, 617
370 DATA 175, 1, 255, 186, 170, 1, 180, 59, 1027
371 DATA 205, 33, 235, 159, 186, 78, 3, 180, 1079
372 DATA 59, 205, 33, 138, 22, 139, 1, 184, 781
373 DATA 1, 51, 205, 33, 205, 32, 92, 0, 619