home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n20.zip
/
SUGGEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-12-12
|
4KB
|
73 lines
100 REM -- BASIC PROGRAM TO CREATE suggest.COM
110 OPEN "SUGGEST.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I% = 1 TO 49
150 LINESUM% = 0
160 FOR J% = 1 TO 8
170 READ BYTE%
180 CHECKSUM = CHECKSUM + BYTE%
190 LINESUM% = LINESUM% + BYTE%
200 IF (BYTE% < 256) THEN LSET A$ = CHR$(BYTE%)
210 PUT #1
220 NEXT J%
230 READ LINECHECK%
240 IF LINECHECK% <> LINESUM% THEN PRINT "Error in Line";320 + 10 * I%
250 NEXT I%
260 FOR I% = 1 TO 236
270 LSET A$ = CHR$(0)
280 PUT #1
290 NEXT
300 CLOSE
310 IF CHECKSUM = 38454! THEN PRINT "Successful Completion!" : END
320 PRINT "COM file is not valid!" : END
330 DATA 233, 212, 0, 67, 111, 112, 121, 114, 970
340 DATA 105, 103, 104, 116, 32, 49, 57, 56, 622
350 DATA 54, 32, 90, 105, 102, 102, 45, 68, 598
360 DATA 97, 118, 105, 115, 32, 80, 117, 98, 762
370 DATA 108, 105, 115, 104, 105, 110, 103, 32, 782
380 DATA 67, 111, 46, 0, 176, 0, 0, 0, 400
390 DATA 0, 0, 0, 0, 0, 1, 0, 135, 136
400 DATA 115, 251, 156, 80, 81, 82, 30, 6, 801
410 DATA 86, 87, 14, 31, 255, 6, 51, 1, 531
420 DATA 139, 22, 51, 1, 59, 22, 55, 1, 350
430 DATA 117, 71, 199, 6, 51, 1, 0, 0, 445
440 DATA 184, 64, 0, 142, 192, 38, 160, 73, 853
450 DATA 0, 60, 1, 118, 52, 60, 3, 118, 412
460 DATA 4, 60, 7, 117, 44, 139, 22, 49, 442
470 DATA 1, 161, 43, 1, 30, 7, 142, 216, 601
480 DATA 190, 224, 6, 191, 116, 3, 252, 232, 1214
490 DATA 36, 0, 30, 6, 31, 7, 190, 132, 432
500 DATA 2, 232, 47, 0, 139, 14, 53, 1, 488
510 DATA 73, 117, 253, 190, 116, 3, 232, 34, 1018
520 DATA 0, 95, 94, 7, 31, 90, 89, 88, 494
530 DATA 157, 46, 255, 46, 45, 1, 185, 240, 975
540 DATA 0, 236, 168, 1, 117, 251, 250, 236, 1259
550 DATA 168, 1, 116, 251, 172, 251, 170, 70, 1199
560 DATA 226, 239, 195, 191, 224, 6, 185, 240, 1506
570 DATA 0, 172, 138, 224, 236, 168, 1, 117, 1056
580 DATA 251, 250, 236, 168, 1, 116, 251, 138, 1411
590 DATA 196, 170, 251, 71, 226, 235, 195, 176, 1520
600 DATA 32, 191, 132, 2, 185, 240, 0, 243, 1025
610 DATA 170, 51, 201, 190, 130, 0, 128, 124, 994
620 DATA 254, 1, 119, 2, 205, 32, 172, 65, 850
630 DATA 60, 13, 116, 47, 60, 47, 117, 246, 706
640 DATA 172, 60, 13, 116, 38, 36, 95, 60, 590
650 DATA 70, 117, 14, 232, 109, 0, 187, 204, 933
660 DATA 12, 247, 227, 41, 6, 55, 1, 235, 824
670 DATA 231, 60, 68, 117, 227, 232, 91, 0, 1026
680 DATA 187, 109, 16, 247, 227, 1, 6, 53, 846
690 DATA 1, 235, 213, 190, 130, 0, 191, 212, 1172
700 DATA 2, 73, 131, 249, 80, 114, 5, 185, 839
710 DATA 80, 0, 235, 9, 187, 80, 0, 43, 634
720 DATA 217, 209, 235, 3, 251, 243, 164, 184, 1506
730 DATA 64, 0, 142, 192, 38, 161, 99, 0, 696
740 DATA 5, 6, 0, 163, 49, 1, 61, 186, 471
750 DATA 3, 116, 6, 129, 6, 43, 1, 0, 304
760 DATA 8, 184, 28, 53, 205, 33, 137, 30, 678
770 DATA 45, 1, 140, 6, 47, 1, 186, 57, 483
780 DATA 1, 184, 28, 37, 205, 33, 186, 101, 775
790 DATA 4, 205, 39, 50, 228, 172, 60, 49, 807
800 DATA 114, 7, 60, 57, 119, 3, 44, 48, 452
810 DATA 195, 176, 0, 195, 0, 0, 0, 0, 566