Category : Files from Magazines
Archive   : VOL7N12.ZIP
Filename : FSB.BAS
110 CLS:PRINT "Creating FSB.EXE": OPEN "FSB.EXE" AS #1 LEN = 1
120 FIELD #1,1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 159: LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 159 - I;
140 FOR J = 1 TO 16 : READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
150 LINESUM#=LINESUM#+VAL("&H"+BYTE$)
160 IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$))
170 PUT #1: NEXT J
180 READ LINETOT$: LINECHECK# = VAL("&H" + LINETOT$)
190 IF LINECHECK# = LINESUM# THEN GOTO 210
200 LOCATE 4,2: PRINT "Error in line #";240 + 10 * I
210 NEXT I: CLOSE: LOCATE 6,2
220 IF CHECKSUM# <> 223179 THEN GOTO 240
230 PRINT "FSB.EXE created successfully": SYSTEM
240 PRINT "FSB.EXE is not valid!": SYSTEM
250 DATA 4D, 5A, E4, 1, 5, 0, 0, 0, 4, 0, 0, 0, FF, FF, 0, 0, 393
260 DATA B8, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, 0, F8
270 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
280 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 0, 0, 0, 80
290 DATA E, 1F, BA, E, 0, B4, 9, CD, 21, B8, 1, 4C, CD, 21, 54, 68, 54F
300 DATA 69, 73, 20, 70, 72, 6F, 67, 72, 61, 6D, 20, 63, 61, 6E, 6E, 6F, 623
310 DATA 74, 20, 62, 65, 20, 72, 75, 6E, 20, 69, 6E, 20, 44, 4F, 53, 20, 4ED
320 DATA 6D, 6F, 64, 65, 2E, D, A, 24, 0, 0, 0, 0, 0, 0, 0, 0, 20E
330 DATA 4E, 45, 5, 1, C0, 0, 2, 0, E7, B1, 84, 96, 2, 0, 2, 0, 411
340 DATA 0, 0, 0, 0, 0, 0, 1, 0, D0, 92, 2, 0, 2, 0, 3, 0, 16A
350 DATA B, 0, 40, 0, 50, 0, 50, 0, 57, 0, 5D, 0, 42, 1, 0, 0, 1E2
360 DATA 0, 0, 4, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
370 DATA 15, 0, 3C, 6, 0, D, 3C, 6, 86, 0, 84, 1, 1, C, D0, 92, 320
380 DATA 3, 46, 53, 42, 0, 0, 0, 1, 0, A, 0, 1D, 0, 0, 8, 44, 152
390 DATA 4F, 53, 43, 41, 4C, 4C, 53, 8, 4B, 42, 44, 43, 41, 4C, 4C, 53, 459
400 DATA 9, 4B, 42, 44, 43, 48, 41, 52, 49, 4E, 8, 56, 49, 4F, 43, 41, 409
410 DATA 4C, 4C, 53, 9, 56, 49, 4F, 47, 45, 54, 42, 55, 46, A, 56, 49, 448
420 DATA 4F, 47, 45, 54, 4D, 4F, 44, 45, E, 56, 49, 4F, 52, 45, 41, 44, 46C
430 DATA 43, 45, 4C, 4C, 53, 54, 52, A, 56, 49, 4F, 53, 48, 4F, 57, 42, 494
440 DATA 55, 46, D, 56, 49, 4F, 57, 52, 54, 43, 45, 4C, 4C, 53, 54, 52, 4AC
450 DATA 0, 0, 7, 46, 53, 42, 2E, 45, 58, 45, 0, 0, 0, 0, 0, 0, 1F2
460 DATA 1E, 7, 8E, D8, 8B, F3, AC, A, C0, 75, FB, AC, A, C0, 75, 3, 7DD
470 DATA E9, 97, 0, B9, 5, 0, BF, 47, 1, F2, AE, 74, EE, 80, 3C, 3A, 73D
480 DATA 75, 16, 24, DF, 2C, 40, 2A, E4, 50, 9A, FF, FF, 0, 0, BA, 7A, 724
490 DATA 0, B, C0, 75, 78, 83, C6, 2, 4E, 26, 89, 36, 84, 1, 26, 8C, 56D
500 DATA 1E, 86, 1, AC, 3C, 5C, 75, 5, 26, 89, 36, 88, 1, B9, 6, 0, 490
510 DATA BF, 47, 1, F2, AE, 75, EC, C6, 44, FF, 0, 26, 8B, 36, 88, 1, 781
520 DATA B, F6, 74, 38, 4E, 26, 3B, 36, 84, 1, 75, D, 26, FF, 6, 84, 548
530 DATA 1, 68, FF, FF, 68, 45, 1, EB, 13, C6, 4, 0, 26, FF, 36, 86, 6BE
540 DATA 1, 26, FF, 36, 84, 1, 46, 26, 89, 36, 84, 1, 6A, 0, 6A, 0, 465
550 DATA 9A, FF, FF, 0, 0, BA, 92, 0, B, C0, 75, 11, 6, 1F, E8, 25, 667
560 DATA 0, 6A, 1, 6A, 0, 9A, FF, FF, 0, 0, BA, 0, 0, B8, 72, 0, 551
570 DATA 8E, D8, BB, 2, 0, E8, C5, 0, 8B, C8, E8, B2, 0, 6A, 1, 6A, 792
580 DATA 1, 9A, A6, 0, 0, 0, 1E, 68, 8A, 1, 1E, 68, 8C, 1, 68, 0, 3CD
590 DATA 40, 9A, FF, FF, 0, 0, BA, C0, 0, B, C0, 75, D0, E, 68, 94, 76C
600 DATA 1, 1E, 68, 8E, 1, 1E, 68, 90, 9, 9A, FF, FF, 0, 0, BA, DC, 663
610 DATA 0, B, C0, 75, B8, B9, 50, 0, BA, 90, 9, 8B, 1E, 8A, 1, E8, 670
620 DATA 5F, 0, 83, 3E, E0, 9, 0, 74, 57, 3, 16, E0, 9, 2B, E, E0, 4EF
630 DATA 9, 75, E8, BA, A9, 0, 80, 3E, 90, 9, 0, 74, 90, BB, 1, 0, 5E0
640 DATA BA, 90, 9, E8, 57, 0, 8B, C8, E8, 44, 0, B9, 2, 0, BA, 77, 6FD
650 DATA 0, E8, 3B, 0, 80, 3E, 4D, 1, 1, 75, BA, E8, D3, 1, B, C0, 5E6
660 DATA 74, B3, 3D, FF, FF, 74, 19, 3D, 26, 1, 75, 5, C6, 6, 4D, 1, 5E7
670 DATA 0, BB, 2, 0, 8B, D0, E8, 24, 0, 8B, C8, E8, 11, 0, EB, 95, 6F0
680 DATA C3, 53, 1E, 52, 51, 1E, 68, E0, 9, 9A, FF, FF, 0, 0, C3, 53, 6F4
690 DATA 1E, 52, 51, 1E, 68, E2, 9, 9A, FF, FF, 0, 0, C3, 6, 57, 51, 63B
700 DATA 1E, 7, 8B, FA, B9, FF, FF, 2A, C0, F2, AE, F7, D1, 49, 8B, C1, A48
710 DATA 59, 5F, 7, C3, 1E, 68, 8, A, 1E, 68, 9D, A, 9A, FF, FF, 0, 5DF
720 DATA 0, 80, 6, 8, A, 40, C6, 6, 9, A, 3A, C6, 6, A, A, 5C, 32D
730 DATA E8, 21, 0, FF, 36, 8C, 1, 9A, FF, FF, 0, 0, 6A, 0, 6A, 0, 637
740 DATA 9A, C2, 0, 0, 0, 8B, 1E, 8C, 1, BA, 4D, A, B9, 50, 0, E8, 594
750 DATA 9D, FF, EB, DF, C8, 4, 0, 0, C7, 6, 4B, A, 40, 0, 6A, 0, 5FE
760 DATA 1E, 68, B, A, 1E, 68, 4B, A, 9A, FF, FF, 0, 0, BA, 8, A, 4DA
770 DATA E8, 8A, FF, 3D, 3, 0, 74, C, 8B, F2, 3, F0, C6, 4, 5C, C6, 78D
780 DATA 44, 1, 0, 40, A3, 4B, A, C7, 46, FE, FF, FF, C7, 46, FC, 1, 790
790 DATA 0, FF, 36, 86, 1, FF, 36, 84, 1, 16, 8D, 46, FE, 50, 6A, 7, 61E
800 DATA 1E, 68, E4, 9, 6A, 24, 1E, 8D, 46, FC, 50, 6A, 0, 6A, 0, 9A, 5AC
810 DATA FF, FF, 0, 0, B, C0, 74, 7, 3D, 12, 0, 74, 46, EB, 86, 83, 641
820 DATA 7E, FC, 0, 74, 3E, 8B, 1E, 8C, 1, BA, 8, A, 8B, E, 4B, A, 51C
830 DATA 8B, F1, E8, 1A, FF, BA, FB, 9, 8A, E, FA, 9, 2A, ED, 3, F1, 8E1
840 DATA E8, C, FF, BA, 4D, A, B9, 50, 0, 2B, CE, E8, 1, FF, FF, 76, 863
850 DATA FE, 1E, 68, E4, 9, 6A, 24, 1E, 8D, 46, FC, 50, 9A, FF, FF, 0, 7D4
860 DATA 0, EB, B1, FF, 76, FE, 9A, FF, FF, 0, 0, C7, 46, FE, FF, FF, AB0
870 DATA C7, 46, FC, 1, 0, 1E, 68, 51, 1, 16, 8D, 46, FE, 50, 6A, 10, 593
880 DATA 1E, 68, E4, 9, 6A, 24, 1E, 8D, 46, FC, 50, 6A, 0, 6A, 0, 9A, 5AC
890 DATA 30, 2, 0, 0, B, C0, 74, 8, 3D, 12, 0, 74, 4A, E9, 5, FF, 473
900 DATA 83, 7E, FC, 0, 74, 41, F7, 6, F8, 9, 10, 0, 74, 24, 80, 3E, 616
910 DATA FB, 9, 2E, 74, 1D, 1E, 68, FB, 9, 6A, 0, 6A, 0, 9A, 91, 0, 54C
920 DATA 0, 0, E8, EF, FE, 1E, 68, 4E, 1, 6A, 0, 6A, 0, 9A, DE, 2, 5F8
930 DATA 0, 0, FF, 76, FE, 1E, 68, E4, 9, 6A, 24, 1E, 8D, 46, FC, 50, 6B1
940 DATA 9A, 7D, 2, 0, 0, EB, AD, FF, 76, FE, 9A, 87, 2, 0, 0, C9, 710
950 DATA C3, C7, 6, 6A, 1, FF, FF, C7, 6, 6C, 1, FF, FF, 1E, 68, 90, 847
960 DATA 9, 1E, 68, C5, 8A, 1E, 68, C7, 8A, 2B, C0, 50, 50, 50, 6A, 1, 5FB
970 DATA 68, A0, 0, 50, 50, 9A, FF, FF, 0, 0, B, C0, 74, 4, B8, 1, 63C
980 DATA 1, C3, C7, 6, A1, A, C, 0, 1E, 68, A1, A, 6A, 0, 9A, FF, 57C
990 DATA FF, 0, 0, B, C0, 74, 4, B8, 26, 1, C3, F6, 6, A3, A, 2, 58F
1000 DATA 75, F5, A1, A5, A, F7, 26, A7, A, 72, EC, 3, C0, 72, E8, A3, 8A6
1010 DATA B7, 8A, 1E, 68, C1, 8A, 1E, 68, B7, 8A, 6A, 0, 9A, FF, FF, 0, 7DB
1020 DATA 0, B, C0, 75, D2, FF, 36, B7, 8A, 1E, 68, CD, 8A, 6A, 0, 9A, 769
1030 DATA FF, FF, 0, 0, B, C0, 75, BF, FF, 36, CD, 8A, 2B, C0, 50, 1E, 7E2
1040 DATA 68, B7, 8A, 50, 50, 50, 9A, FF, FF, 0, 0, E8, 6E, 0, E8, B0, 81F
1050 DATA 0, 89, 36, B9, 8A, FF, 36, 8E, 1, 9A, FF, FF, 0, 0, E8, 16, 75C
1060 DATA 1, FF, 36, 8E, 1, 9A, FF, FF, 0, 0, 1E, 68, AD, A, 6A, 0, 604
1070 DATA 6A, 0, 9A, FF, FF, 0, 0, A0, AD, A, 3C, 20, 74, 2B, 3C, 1B, 5AB
1080 DATA 74, 30, 3C, E0, 74, 4, A, C0, 75, E0, A0, AE, A, 2C, 47, 72, 694
1090 DATA D9, 3C, A, 77, D5, 2A, E4, 3, C0, 8B, D8, 8B, 36, B9, 8A, FF, 8A2
1100 DATA 97, 6E, 1, 89, 36, B9, 8A, EB, AC, E8, 28, 0, E8, 19, 0, 2B, 6DB
1110 DATA C0, C3, E8, 1F, 0, E8, 10, 0, B8, FF, FF, C3, 6A, 1, E, 68, 7DC
1120 DATA 53, 4, 9A, FF, FF, 0, 0, C3, 6A, 2, E, 68, 53, 4, 9A, 23, 5A8
1130 DATA 4, 0, 0, C3, FF, 36, CD, 8A, 6A, 0, FF, 36, B7, 8A, 6A, 0, 69D
1140 DATA 6A, 0, 6A, 0, 9A, FF, FF, 0, 0, FF, 36, C5, 8A, 9A, B8, 1, 743
1150 DATA 0, 0, C3, E8, DE, FF, 6A, 3, 6A, 0, 6A, 0, 9A, 2F, 4, 0, 596
1160 DATA 0, 2B, DB, A1, 6A, 1, B, 6, 6C, 1, 89, 1E, 6A, 1, 89, 1E, 449
1170 DATA 6C, 1, 89, 1E, BD, 8A, BE, B7, A, 74, 9, BA, B7, A, B9, 0, 68B
1180 DATA 80, E8, 7D, 1, C3, E8, 37, 1, 72, C, E8, 32, 1, 72, 7, 3C, 617
1190 DATA A, 75, F7, E8, DB, 0, C3, 8B, E, A7, A, 49, E8, E6, FF, E2, 93E
1200 DATA FB, C3, C7, 6, BD, 8A, 0, 0, C3, A0, 69, 1, 2A, E4, 1, 6, 6B4
1210 DATA BD, 8A, C3, 8B, DE, E8, 14, 0, 3B, DE, 75, F7, C3, E8, B1, 0, 950
1220 DATA 72, 9, E8, AC, 0, 72, C3, 3C, A, 75, F7, C3, 8B, E, A7, A, 703
1230 DATA 49, E8, E9, FF, E2, FB, C3, 6, C4, 3E, C1, 8A, 8B, E, B7, 8A, 9E6
1240 DATA D1, E9, B0, 20, 8A, 26, 5B, 1, F3, AB, 8B, E, A5, A, 8B, 3E, 745
1250 DATA C1, 8A, BE, 90, 9, AC, A, C0, 74, 7, 8A, 26, 62, 1, AB, E2, 733
1260 DATA F4, 8B, 36, B9, 8A, B2, 1, A0, A5, A, 2A, E4, 3, 6, BD, 8A, 758
1270 DATA A3, BF, 8A, 2B, DB, A0, A5, A, F6, E2, 3, C0, 8B, F8, 3, 3E, 8A0
1280 DATA C1, 8A, E8, 4C, 0, 72, 3B, 3C, D, 74, F7, 3C, A, 74, 2B, 3C, 601
1290 DATA 9, 74, 19, B9, 1, 0, 3B, 1E, BD, 8A, 72, B, 3B, 1E, BF, 8A, 50F
1300 DATA 73, 5, 8A, 26, 5B, 1, AB, 43, E2, EC, EB, D6, 8B, C3, 25, 7, 77B
1310 DATA 0, B9, 8, 0, 2B, C8, B0, 20, EB, DC, FE, C2, 3A, 16, A7, A, 70C
1320 DATA 72, B1, 6A, 0, FF, 36, B7, 8A, 6A, 0, 9A, FF, FF, 0, 0, 7, 70C
1330 DATA C3, 3B, 36, BB, 8A, 73, 46, 81, FE, B7, 8A, 72, 3C, 51, 52, 57, 79A
1340 DATA 6, 1E, 7, BE, B7, 4A, BF, B7, A, B9, 0, 40, 29, E, B9, 8A, 5DD
1350 DATA F3, A4, 8B, F7, 81, 6, 6A, 1, 0, 80, 83, 16, 6C, 1, 0, BA, 64B
1360 DATA B7, 4A, B9, 0, 40, E8, 59, 0, 81, 2E, 6A, 1, 0, 40, 83, 1E, 536
1370 DATA 6C, 1, 0, 7, 5F, 5A, 59, EB, B8, AC, 24, 7F, F9, F5, C3, 81, 7AA
1380 DATA FE, B7, A, 77, 34, A1, 6A, 1, B, 6, 6C, 1, 74, 31, 51, 52, 53C
1390 DATA 6, 1E, 7, BE, B7, A, BF, B7, 4A, B9, 0, 40, 1, E, B9, 8A, 5B5
1400 DATA F3, A4, 81, 2E, 6A, 1, 0, 40, 83, 1E, 6C, 1, 0, BA, B7, A, 57A
1410 DATA B9, 0, 40, E8, B, 0, 7, 5A, 59, 4E, 8A, 4, 24, 7F, F9, F5, 613
1420 DATA C3, 50, 53, C7, 6, BB, 8A, FF, FF, FF, 36, C5, 8A, FF, 36, 6C, 99B
1430 DATA 1, FF, 36, 6A, 1, 6A, 0, 1E, 68, C9, 8A, 9A, FF, FF, 0, 0, 67C
1440 DATA 8B, 1E, C5, 8A, E8, 3A, FB, B, C0, A1, E0, 9, 74, 2, 2B, C0, 7CB
1450 DATA 3B, C1, 74, 5, 3, C2, A3, BB, 8A, 5B, 58, C3, 1A, 0, 2, 0, 5B4
1460 DATA AE, 0, 2, 0, 0, 0, 3, 1, C1, 1, 1, 0, 5, 0, 3, 1, 180
1470 DATA 5D, 4, 1, 0, 7, 0, 3, 1, 6A, 1, 1, 0, 89, 0, 3, 1, 166
1480 DATA 78, 1, 1, 0, 8A, 0, 3, 1, D2, 0, 1, 0, 10, 0, 3, 1, 1EF
1490 DATA EA, 0, 1, 0, 91, 0, 3, 1, C6, 3, 1, 0, 1A, 0, 3, 1, 268
1500 DATA BA, 3, 1, 0, 1B, 0, 3, 2, D3, 3, 2, 0, 13, 0, 3, 1, 1CD
1510 DATA 90, 3, 1, 0, 22, 0, 3, 2, 7D, 3, 3, 0, 26, 0, 3, 1, 168
1520 DATA EE, 2, 1, 0, 39, 0, 3, 1, 1C, 6, 1, 0, 3A, 0, 3, 1, 18F
1530 DATA 4E, 4, 1, 0, 3B, 0, 3, 1, B, 3, 1, 0, 3F, 0, 3, 1, E4
1540 DATA B0, 2, 1, 0, 40, 0, 3, 2, 4F, 3, 3, 0, 30, 0, 3, 1, 181
1550 DATA 1, 3, 1, 0, 41, 0, 3, 1, 36, 3, 1, 0, 46, 0, 3, 1, CE
1560 DATA E9, 1, 1, 0, 47, 0, 3, 1, 9D, 1, 1, 0, 48, 0, 3, 2, 222
1570 DATA A7, 3, 3, 0, 3B, 0, 3, 1, 2A, 0, 1, 0, 51, 0, 3, 2, 16D
1580 DATA 6B, 5, 3, 0, 4A, 0, 3, 2, 45, 4, 3, 0, 55, 0, 0, 0, 163
1590 DATA D, A, 53, 79, 6E, 74, 61, 78, 3A, 20, 46, 53, 42, 20, 66, 69, 4C2
1600 DATA 6C, 65, 73, 70, 65, 63, D, A, D, A, 46, 69, 6C, 65, 20, 53, 49D
1610 DATA 65, 61, 72, 63, 68, 20, 61, 6E, 64, 20, 42, 72, 6F, 77, 73, 65, 5E8
1620 DATA 20, 28, 63, 29, 20, 31, 39, 38, 38, 2C, 20, 5A, 69, 66, 66, 20, 3C9
1630 DATA 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 62C
1640 DATA 6F, 2E, D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, 4B3
1650 DATA FE, 20, 43, 68, 61, 72, 6C, 65, 73, 20, 50, 65, 74, 7A, 6F, 6C, 67E
1660 DATA 64, 2C, 20, 33, 2F, 38, 38, D, A, 0, 46, 53, 42, 3A, 20, 49, 317
1670 DATA 6E, 76, 61, 6C, 69, 64, 20, 64, 69, 73, 6B, 20, 64, 72, 69, 76, 61E
1680 DATA 65, 0, 46, 53, 42, 3A, 20, 49, 6E, 76, 61, 6C, 69, 64, 20, 64, 4E5
1690 DATA 69, 72, 65, 63, 74, 6F, 72, 79, 0, 46, 53, 42, 3A, 20, 49, 6E, 55D
1700 DATA 76, 61, 6C, 69, 64, 20, 66, 69, 6C, 65, 20, 73, 70, 65, 63, 0, 59B
1710 DATA 46, 53, 42, 3A, 20, 43, 61, 6E, 6E, 6F, 74, 20, 6E, 6F, 74, 20, 529
1720 DATA 63, 72, 65, 61, 74, 65, 20, 70, 69, 70, 65, 0, 46, 53, 42, 3A, 557
1730 DATA 20, 43, 61, 6E, 6E, 6F, 74, 20, 6E, 6F, 74, 20, 63, 72, 65, 61, 5AF
1740 DATA 74, 65, 20, 73, 65, 63, 6F, 6E, 64, 20, 74, 68, 72, 65, 61, 64, 60D
1750 DATA 0, 9, 46, 53, 42, 3A, 20, 43, 61, 6E, 6E, 6F, 74, 20, 6F, 70, 4A0
1760 DATA 65, 6E, 20, 66, 69, 6C, 65, 20, 66, 6F, 72, 20, 72, 65, 61, 64, 5B6
1770 DATA 69, 6E, 67, D, A, 0, 9, 46, 53, 42, 3A, 20, 55, 6E, 73, 75, 43E
1780 DATA 70, 70, 6F, 72, 74, 65, 64, 20, 76, 69, 64, 65, 6F, 20, 6D, 6F, 631
1790 DATA 64, 65, D, A, 0, 5C, 0, 9, 20, 2C, 3B, 3D, 0, 1, 2E, 2E, 266
1800 DATA 0, 2A, 2E, 2A, 0, 41, 54, 54, 52, 31, 3D, 1E, 41, 54, 54, 52, 384
1810 DATA 32, 3D, 4F, 53, 48, 49, 46, 54, 3D, 8, FF, FF, FF, FF, 61, 4, 6E2
1820 DATA 85, 4, 97, 4, 84, 4, A2, 4, 84, 4, A9, 4, 84, 4, B3, 4, 4C6
1830 DATA BD, 4, CC, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 191
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/