home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n13.zip
/
STATLINE.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-04-17
|
4KB
|
72 lines
100 REM -- BASIC PROGRAM TO CREATE statline.COM
110 OPEN "statline.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I% = 1 TO 52
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";280 + 10 * I%
250 NEXT I%
260 CLOSE
270 IF CHECKSUM = 37052 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 69, 1, 83, 116, 97, 116, 108, 823
300 DATA 105, 110, 101, 44, 32, 98, 121, 32, 643
310 DATA 74, 111, 104, 110, 32, 83, 111, 99, 724
320 DATA 104, 97, 13, 10, 36, 0, 0, 1, 261
330 DATA 244, 15, 32, 244, 15, 18, 240, 15, 823
340 DATA 32, 240, 15, 35, 236, 15, 32, 236, 841
350 DATA 15, 24, 0, 0, 0, 0, 0, 0, 39
360 DATA 0, 0, 156, 46, 255, 30, 50, 1, 538
370 DATA 46, 128, 62, 31, 1, 1, 117, 3, 389
380 DATA 232, 1, 0, 207, 80, 83, 81, 82, 766
390 DATA 86, 87, 30, 6, 184, 64, 0, 142, 599
400 DATA 216, 139, 22, 99, 0, 184, 0, 184, 844
410 DATA 129, 250, 208, 3, 115, 3, 184, 0, 892
420 DATA 176, 142, 192, 131, 194, 6, 138, 30, 1009
430 DATA 23, 0, 177, 4, 210, 235, 140, 200, 989
440 DATA 142, 216, 58, 30, 29, 1, 116, 46, 638
450 DATA 136, 30, 29, 1, 190, 32, 1, 185, 604
460 DATA 3, 0, 86, 208, 235, 115, 3, 131, 781
470 DATA 198, 3, 139, 60, 138, 68, 2, 81, 689
480 DATA 138, 200, 236, 168, 8, 117, 251, 236, 1354
490 DATA 168, 8, 116, 251, 138, 193, 170, 89, 1133
500 DATA 94, 131, 198, 6, 226, 220, 7, 31, 913
510 DATA 95, 94, 90, 89, 91, 88, 195, 10, 752
520 DATA 228, 116, 5, 46, 255, 46, 54, 1, 751
530 DATA 46, 162, 30, 1, 46, 136, 38, 31, 490
540 DATA 1, 156, 46, 255, 30, 54, 1, 232, 775
550 DATA 22, 0, 46, 198, 6, 29, 1, 0, 302
560 DATA 232, 113, 255, 207, 4, 26, 5, 3, 845
570 DATA 6, 26, 7, 26, 0, 6, 26, 0, 97
580 DATA 80, 81, 82, 86, 30, 140, 200, 142, 841
590 DATA 216, 198, 6, 31, 1, 0, 160, 30, 642
600 DATA 1, 60, 1, 126, 69, 60, 3, 126, 446
610 DATA 4, 60, 7, 117, 61, 198, 6, 31, 484
620 DATA 1, 1, 190, 220, 1, 186, 180, 3, 782
630 DATA 30, 184, 64, 0, 142, 216, 160, 16, 812
640 DATA 0, 36, 48, 60, 48, 31, 116, 21, 360
650 DATA 186, 212, 3, 30, 184, 0, 240, 142, 997
660 DATA 216, 129, 62, 234, 255, 67, 79, 31, 1073
670 DATA 116, 3, 190, 229, 1, 252, 172, 10, 973
680 DATA 192, 116, 7, 238, 66, 172, 238, 74, 1103
690 DATA 235, 244, 31, 94, 90, 89, 88, 195, 1066
700 DATA 141, 22, 3, 1, 180, 9, 205, 33, 594
710 DATA 180, 15, 205, 16, 162, 30, 1, 232, 841
720 DATA 142, 255, 232, 239, 254, 184, 0, 0, 1306
730 DATA 142, 216, 250, 161, 36, 0, 46, 163, 1014
740 DATA 50, 1, 161, 38, 0, 46, 163, 52, 511
750 DATA 1, 199, 6, 36, 0, 58, 1, 140, 441
760 DATA 14, 38, 0, 161, 64, 0, 46, 163, 486
770 DATA 54, 1, 161, 66, 0, 46, 163, 56, 547
780 DATA 1, 199, 6, 64, 0, 183, 1, 140, 594
790 DATA 14, 66, 0, 251, 186, 72, 2, 205, 796
800 DATA 39, 0, 0, 0, 0, 0, 0, 0, 39