home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol7n08.zip
/
STAYDOWN.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-04-26
|
9KB
|
129 lines
100 REM -- BASIC PROGRAM TO CREATE staydown.COM
110 OPEN "staydown.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 108
150 LINESUM = 0
155 PRINT ".";
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 = 75565 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 54, 2, 83, 84, 65, 89, 68, 678
300 DATA 79, 87, 78, 32, 49, 46, 48, 32, 451
310 DATA 40, 99, 41, 32, 49, 57, 56, 56, 430
320 DATA 32, 90, 105, 102, 102, 32, 67, 111, 641
330 DATA 109, 109, 117, 110, 105, 99, 97, 116, 862
340 DATA 105, 111, 110, 115, 32, 67, 111, 46, 697
350 DATA 13, 10, 80, 67, 32, 77, 97, 103, 479
360 DATA 97, 122, 105, 110, 101, 32, 254, 32, 853
370 DATA 74, 101, 102, 102, 32, 80, 114, 111, 716
380 DATA 115, 105, 115, 101, 13, 10, 36, 26, 521
390 DATA 0, 0, 0, 0, 21, 0, 0, 0, 21
400 DATA 0, 46, 128, 62, 80, 1, 0, 116, 433
410 DATA 10, 251, 80, 228, 96, 232, 109, 0, 1006
420 DATA 115, 6, 88, 46, 255, 46, 85, 1, 642
430 DATA 228, 97, 138, 224, 12, 128, 230, 97, 1154
440 DATA 138, 196, 230, 97, 250, 176, 32, 230, 1349
450 DATA 32, 251, 88, 207, 128, 252, 79, 117, 1154
460 DATA 71, 251, 46, 128, 62, 80, 1, 0, 639
470 DATA 116, 58, 60, 224, 117, 8, 46, 198, 827
480 DATA 6, 83, 1, 128, 235, 46, 46, 128, 673
490 DATA 62, 83, 1, 0, 116, 24, 60, 42, 388
500 DATA 116, 12, 60, 170, 116, 8, 60, 54, 596
510 DATA 116, 4, 60, 182, 117, 8, 46, 198, 731
520 DATA 6, 83, 1, 0, 235, 14, 80, 232, 651
530 DATA 19, 0, 46, 198, 6, 83, 1, 0, 353
540 DATA 88, 202, 2, 0, 249, 202, 2, 0, 745
550 DATA 46, 255, 46, 85, 1, 168, 128, 117, 846
560 DATA 11, 46, 10, 6, 83, 1, 46, 162, 365
570 DATA 82, 1, 249, 195, 46, 128, 62, 81, 844
580 DATA 1, 0, 117, 58, 36, 127, 46, 10, 395
590 DATA 6, 83, 1, 46, 58, 6, 82, 1, 283
600 DATA 116, 8, 46, 198, 6, 82, 1, 0, 457
610 DATA 249, 195, 60, 56, 116, 20, 60, 184, 940
620 DATA 116, 16, 60, 29, 116, 12, 60, 157, 566
630 DATA 116, 8, 60, 42, 116, 4, 60, 54, 460
640 DATA 117, 224, 46, 162, 81, 1, 46, 198, 875
650 DATA 6, 82, 1, 0, 248, 195, 46, 160, 738
660 DATA 81, 1, 46, 198, 6, 81, 1, 0, 414
670 DATA 6, 80, 184, 64, 0, 142, 192, 88, 756
680 DATA 60, 54, 117, 8, 38, 128, 38, 23, 466
690 DATA 0, 254, 235, 110, 60, 42, 117, 8, 826
700 DATA 38, 128, 38, 23, 0, 253, 235, 98, 813
710 DATA 60, 157, 117, 8, 38, 128, 38, 150, 696
720 DATA 0, 251, 235, 58, 60, 29, 117, 22, 772
730 DATA 38, 128, 38, 23, 0, 251, 38, 128, 644
740 DATA 38, 24, 0, 254, 38, 246, 6, 150, 756
750 DATA 0, 16, 116, 62, 235, 32, 60, 184, 705
760 DATA 117, 8, 38, 128, 38, 150, 0, 247, 726
770 DATA 235, 20, 38, 128, 38, 23, 0, 247, 729
780 DATA 38, 128, 38, 24, 0, 253, 38, 246, 765
790 DATA 6, 150, 0, 16, 116, 28, 38, 138, 492
800 DATA 38, 24, 0, 208, 228, 208, 228, 38, 972
810 DATA 10, 38, 150, 0, 128, 228, 12, 38, 604
820 DATA 128, 38, 23, 0, 243, 38, 8, 38, 516
830 DATA 23, 0, 7, 233, 68, 255, 13, 10, 609
840 DATA 83, 84, 65, 89, 68, 79, 87, 78, 633
850 DATA 58, 32, 36, 85, 115, 97, 103, 101, 627
860 DATA 58, 32, 83, 84, 65, 89, 68, 79, 558
870 DATA 87, 78, 32, 91, 47, 68, 93, 91, 587
880 DATA 47, 85, 93, 13, 10, 36, 78, 111, 473
890 DATA 116, 32, 73, 110, 115, 116, 97, 108, 767
900 DATA 108, 101, 100, 13, 10, 36, 67, 97, 532
910 DATA 110, 110, 111, 116, 32, 85, 110, 105, 779
920 DATA 110, 115, 116, 97, 108, 108, 13, 10, 677
930 DATA 36, 85, 110, 105, 110, 115, 116, 97, 774
940 DATA 108, 108, 32, 69, 114, 114, 111, 114, 770
950 DATA 13, 10, 36, 68, 105, 115, 97, 98, 542
960 DATA 108, 101, 100, 13, 10, 36, 85, 110, 563
970 DATA 105, 110, 115, 116, 97, 108, 108, 101, 860
980 DATA 100, 13, 10, 36, 65, 99, 116, 105, 544
990 DATA 118, 97, 116, 101, 100, 13, 10, 36, 591
1000 DATA 0, 252, 247, 22, 0, 1, 51, 219, 792
1010 DATA 140, 200, 67, 142, 195, 59, 195, 116, 1114
1020 DATA 17, 190, 0, 1, 139, 254, 185, 16, 802
1030 DATA 0, 243, 166, 117, 237, 198, 6, 56, 1023
1040 DATA 3, 1, 190, 129, 0, 128, 60, 32, 543
1050 DATA 117, 3, 70, 235, 248, 128, 60, 13, 874
1060 DATA 116, 109, 128, 100, 1, 223, 129, 60, 866
1070 DATA 47, 68, 116, 30, 129, 60, 47, 85, 582
1080 DATA 116, 65, 176, 1, 186, 195, 2, 80, 821
1090 DATA 82, 186, 182, 2, 180, 9, 205, 33, 879
1100 DATA 90, 180, 9, 205, 33, 88, 180, 76, 861
1110 DATA 205, 33, 128, 62, 56, 3, 1, 116, 604
1120 DATA 7, 176, 2, 186, 222, 2, 235, 223, 1053
1130 DATA 38, 198, 6, 80, 1, 0, 186, 19, 528
1140 DATA 3, 82, 186, 182, 2, 180, 9, 205, 849
1150 DATA 33, 90, 180, 9, 205, 33, 184, 0, 734
1160 DATA 76, 205, 33, 128, 62, 56, 3, 1, 564
1170 DATA 116, 7, 176, 3, 186, 222, 2, 235, 947
1180 DATA 182, 232, 92, 0, 115, 4, 176, 4, 805
1190 DATA 235, 173, 186, 30, 3, 235, 210, 38, 1110
1200 DATA 198, 6, 80, 1, 1, 128, 62, 56, 532
1210 DATA 3, 1, 117, 5, 186, 44, 3, 235, 594
1220 DATA 192, 180, 192, 205, 21, 186, 132, 1, 1109
1230 DATA 115, 8, 198, 6, 84, 1, 9, 186, 607
1240 DATA 89, 1, 180, 53, 160, 84, 1, 205, 773
1250 DATA 33, 137, 30, 85, 1, 140, 6, 87, 519
1260 DATA 1, 180, 37, 160, 84, 1, 205, 33, 701
1270 DATA 161, 44, 0, 142, 192, 180, 73, 205, 997
1280 DATA 33, 180, 9, 186, 3, 1, 205, 33, 650
1290 DATA 184, 0, 49, 186, 52, 0, 205, 33, 709
1300 DATA 6, 180, 53, 38, 160, 84, 1, 205, 727
1310 DATA 33, 140, 195, 7, 140, 192, 59, 216, 982
1320 DATA 116, 5, 186, 238, 2, 249, 195, 30, 1021
1330 DATA 38, 197, 22, 85, 1, 180, 37, 38, 598
1340 DATA 160, 84, 1, 205, 33, 31, 38, 247, 799
1350 DATA 22, 0, 1, 180, 73, 205, 33, 186, 700
1360 DATA 1, 3, 195, 0, 0, 0, 0, 0, 199