Category : Utilities for DOS and Windows Machines
Archive : BACOPY.ZIP
Filename : BAC.ASC
Output of file : BAC.ASC contained in archive : BACOPY.ZIP
110 CLS:PRINT "Checking DATA; please wait..."
120 FOR B=1 TO 87
130 FOR C=1 TO 17
140 READ A$:IF C<17 THEN 160
150 Z#=Z#+VAL(A$)
160 NEXT:NEXT
170 IF Z#=105881 THEN RESTORE:GOTO 200
180 PRINT "ERROR: CHECK THE LAST NUMBER IN"
190 PRINT "EACH DATA STATEMENT--THEN REDO":END
200 FOR B=1 TO 87
210 FOR C=1 TO 16
220 READ A$:TTL=TTL+VAL("&H"+A$)
230 NEXT
240 READ S:IF S=TTL THEN 270
250 PRINT "DATA ERROR IN LINE";B*10+330
260 PRINT "CHECK FIGURES AND REDO":END
270 TTL=0:NEXT:RESTORE
280 OPEN "BAC.COM" AS #1 LEN=1:FIELD #1,1 AS D$
290 FOR B=1 TO 87
300 FOR C=1 TO 16
310 READ A$:LSET D$=CHR$(VAL("&H"+A$))
320 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
330 PRINT "BAC.COM CREATED"
340 DATA E9, 97, 02, 42, 41, 43, 6F, 70, 79, 20, 28, 43, 29, 20, 31, 39, 1246
350 DATA 38, 35, 2C, 20, 44, 69, 63, 6B, 69, 6E, 73, 6F, 6E, 20, 41, 73, 1327
360 DATA 73, 6F, 63, 69, 61, 74, 65, 73, 20, 49, 6E, 63, 2E, 0D, 0A, 24, 1278
370 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
380 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
390 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
400 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
410 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
420 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
430 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
440 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
450 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
460 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
470 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
480 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
490 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
500 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
510 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
520 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 61, 62, 63, 64, 65, 66, 597
530 DATA 67, 68, 69, 6A, 6B, 6C, 6D, 6E, 6F, 70, 71, 72, 73, 74, 75, 76, 1768
540 DATA 77, 78, 79, 7A, 2C, 3B, 3D, 09, 41, 42, 43, 44, 45, 46, 47, 48, 1203
550 DATA 49, 4A, 4B, 4C, 4D, 4E, 4F, 50, 51, 52, 53, 54, 55, 56, 57, 58, 1288
560 DATA 59, 5A, 20, 20, 20, 20, 00, 00, 00, 00, 0A, 0D, 42, 41, 43, 6F, 639
570 DATA 70, 79, 20, 45, 72, 72, 6F, 72, 20, 2D, 20, 24, 43, 6F, 72, 72, 1338
580 DATA 65, 63, 74, 20, 53, 79, 6E, 74, 61, 78, 20, 69, 73, 3A, 0D, 0A, 1328
590 DATA 0A, 42, 41, 43, 6F, 70, 79, 20, 5B, 64, 3A, 5D, 5B, 73, 6F, 75, 1360
600 DATA 72, 63, 65, 5F, 70, 61, 74, 68, 5D, 73, 6F, 75, 72, 63, 65, 5F, 1683
610 DATA 66, 69, 6C, 65, 6E, 61, 6D, 65, 5B, 2E, 65, 78, 74, 5D, 20, 5B, 1523
620 DATA 64, 3A, 5D, 5B, 74, 61, 72, 67, 65, 74, 5F, 70, 61, 74, 68, 5D, 1606
630 DATA 24, 46, 69, 6C, 65, 20, 4E, 6F, 74, 20, 46, 6F, 75, 6E, 64, 24, 1333
640 DATA 4F, 70, 65, 6E, 69, 6E, 67, 20, 53, 6F, 75, 72, 63, 65, 20, 46, 1479
650 DATA 69, 6C, 65, 24, 43, 72, 65, 61, 74, 69, 6E, 67, 20, 54, 61, 72, 1490
660 DATA 67, 65, 74, 20, 46, 69, 6C, 65, 24, 21, 21, 0A, 0A, 0D, 54, 61, 1052
670 DATA 72, 67, 65, 74, 20, 44, 69, 73, 6B, 20, 69, 73, 20, 46, 75, 6C, 1440
680 DATA 6C, 0D, 0A, 0A, 49, 6E, 73, 65, 72, 74, 20, 4E, 65, 77, 20, 44, 1200
690 DATA 69, 73, 6B, 20, 61, 6E, 64, 20, 50, 72, 65, 73, 73, 20, 5B, 45, 1415
700 DATA 6E, 74, 65, 72, 5D, 07, 24, 0A, 0A, 0D, 20, 2E, 20, 2E, 20, 2E, 844
710 DATA 20, 41, 62, 6F, 72, 74, 69, 6E, 67, 0A, 0D, 0D, 24, 20, 2E, 20, 1036
720 DATA 2E, 20, 24, 42, 41, 43, 6F, 70, 69, 65, 64, 20, 74, 6F, 20, 2E, 1178
730 DATA 20, 2E, 20, 24, 0A, 0D, 24, 0D, 0A, 4E, 6F, 20, 46, 69, 6C, 65, 833
740 DATA 73, 20, 4E, 65, 65, 64, 65, 64, 20, 74, 6F, 20, 62, 65, 20, 42, 1316
750 DATA 41, 43, 6F, 70, 69, 65, 64, 0D, 0A, 24, 8D, 16, 03, 01, B4, 09, 1076
760 DATA CD, 21, BE, 80, 00, 8A, 0C, 32, ED, E3, 61, 8B, D1, 46, 8B, FE, 2128
770 DATA FC, AC, 57, 8D, 3E, 2A, 02, 51, B9, 1F, 00, F2, AE, E3, 09, BB, 1894
780 DATA 1F, 00, 2B, D9, 8A, 87, 47, 02, 59, 5F, AA, E2, E4, 8B, CA, BA, 1972
790 DATA 02, 00, 8D, 1E, 30, 01, B0, 20, BF, 81, 00, F3, AE, 8B, F7, 4E, 1631
800 DATA 41, E3, 22, 8B, FB, 8B, C1, AA, AC, 3C, 20, 74, 01, AA, E0, F8, 2241
810 DATA 29, 0F, E3, 11, FE, 0F, 8B, FE, 4F, 41, 4A, 83, FA, 00, 74, 05, 1682
820 DATA 83, C3, 4D, EB, D6, 80, 3E, 30, 01, 00, 77, 07, 8D, 16, 7C, 02, 1506
830 DATA E9, 0C, 02, 8D, 36, 30, 01, AC, 32, E4, 8B, FE, 03, F8, 4F, 8B, 1803
840 DATA C8, B0, 5C, FD, F2, AE, 75, 06, 83, C7, 02, EB, 0F, 90, 83, C7, 2316
850 DATA 01, 80, 3E, 32, 01, 3A, 75, 04, 8D, 3E, 33, 01, 89, 3E, CA, 01, 1078
860 DATA FC, 8D, 36, 7D, 01, AC, 3C, 00, 74, 24, 32, E4, 03, F0, 4E, AC, 1728
870 DATA 8B, FE, 3C, 5C, 74, 11, 80, 3E, 7D, 01, 02, 75, 07, 80, 3E, 7F, 1437
880 DATA 01, 3A, 74, 03, B0, 5C, AA, 89, 3E, CC, 01, EB, 07, 90, C7, 06, 1611
890 DATA CC, 01, 7E, 01, B8, FF, FD, 8D, 16, 65, 06, 2B, C2, A3, 66, 02, 1798
900 DATA 33, C0, B4, 1A, 8D, 16, D2, 01, CD, 21, 8D, 16, 31, 01, B4, 4E, 1532
910 DATA B9, 00, 00, CD, 21, 73, 07, 8D, 16, D1, 02, E9, 81, 01, C6, 06, 1486
920 DATA 68, 02, 00, 8D, 36, F0, 01, 8B, 3E, CA, 01, 56, B9, 0D, 00, F3, 1473
930 DATA A4, 8B, 3E, CC, 01, 5E, B9, 0D, 00, F3, A4, B4, 1A, 32, C0, 8D, 1858
940 DATA 16, FE, 01, CD, 21, B4, 4E, 8D, 16, 7E, 01, B9, 00, 00, CD, 21, 1486
950 DATA 72, 2B, 8D, 36, EA, 01, AD, 8B, D0, 8D, 36, 16, 02, AD, 3B, D0, 1766
960 DATA 77, 1B, 75, 13, 8D, 36, E8, 01, AD, 8B, D0, 8D, 36, 14, 02, AD, 1620
970 DATA 3B, D0, 77, 09, EB, 01, 90, E8, 40, 01, E9, F8, 00, B4, 3D, 8D, 1935
980 DATA 16, 31, 01, B0, 00, CD, 21, A3, CE, 01, 73, 0D, 8D, 16, E0, 02, 1373
990 DATA C7, 06, CE, 01, 00, 00, E9, 06, 01, 33, C0, B4, 3C, 8D, 16, 7E, 1424
1000 DATA 01, 33, C9, CD, 21, A3, D0, 01, 73, 0D, 8D, 16, F4, 02, C7, 06, 1605
1010 DATA D0, 01, 00, 00, E9, E8, 00, 8D, 36, 31, 01, AC, 3C, 00, 74, 08, 1275
1020 DATA 8A, D0, B4, 02, CD, 21, EB, F3, B4, 09, 8D, 16, 5D, 03, CD, 21, 1930
1030 DATA B4, 3F, 8B, 0E, 66, 02, 8B, 1E, CE, 01, 8D, 16, 65, 06, CD, 21, 1384
1040 DATA 3D, 00, 00, 74, 53, 8B, C8, 3B, 0E, 66, 02, 74, 05, C6, 06, 68, 1205
1050 DATA 02, 01, 51, B4, 40, 8B, 1E, D0, 01, 8D, 16, 65, 06, CD, 21, 59, 1303
1060 DATA 3B, C1, 74, 2B, E8, B3, 00, B4, 41, 8D, 16, 7E, 01, CD, 21, 8D, 1736
1070 DATA 16, 09, 03, B4, 09, CD, 21, B4, 08, CD, 21, 3C, 0D, 75, F8, B9, 1510
1080 DATA 02, 00, 8D, 16, 74, 03, B4, 09, CD, 21, E2, F6, E9, EF, FE, 80, 2037
1090 DATA 3E, 68, 02, 01, 74, 02, EB, 98, B4, 57, B0, 00, 8B, 1E, CE, 01, 1493
1100 DATA CD, 21, B4, 57, B0, 01, 8B, 1E, D0, 01, CD, 21, E8, 6B, 00, 8D, 1778
1110 DATA 16, 63, 03, B4, 09, CD, 21, 8D, 36, 7E, 01, AC, 3C, 00, 74, 08, 1229
1120 DATA 8A, D0, B4, 02, CD, 21, EB, F3, 8D, 16, 74, 03, B4, 09, CD, 21, 1953
1130 DATA C6, 06, 69, 02, 01, 33, C0, B4, 1A, 8D, 16, D2, 01, CD, 21, B4, 1553
1140 DATA 4F, B9, 00, 00, CD, 21, 73, 03, EB, 04, 90, E9, 90, FE, 80, 3E, 1824
1150 DATA 69, 02, 01, 74, 08, 8D, 16, 77, 03, B4, 09, CD, 21, CD, 20, 52, 1263
1160 DATA B4, 09, 8D, 16, 6A, 02, CD, 21, B4, 09, 5A, CD, 21, B4, 09, 8D, 1545
1170 DATA 16, 47, 03, E8, 04, 00, CD, 21, CD, 20, 83, 3E, CE, 01, 00, 74, 1323
1180 DATA 0E, B4, 3E, 8B, 1E, CE, 01, CD, 21, C7, 06, CE, 01, 00, 00, 83, 1413
1190 DATA 3E, D0, 01, 00, 74, 0E, 8B, 1E, D0, 01, B4, 3E, CD, 21, C7, 06, 1464
1200 DATA D0, 01, 00, 00, C3, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 404
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/