Category : Files from Magazines
Archive   : VOL8N7.ZIP
Filename : LASERLST.BAS

 
Output of file : LASERLST.BAS contained in archive : VOL8N7.ZIP
100 REM - BASIC PROGRAM TO CREATE LASERLST.COM
110 CLS:PRINT "Creating LASERLST.COM": OPEN "LASERLST.COM" AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 103
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 103 - I ;
150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
170 IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
180 NEXT J
190 READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
200 IF LINECHECK# = LINESUM# THEN GOTO 220
210 LOCATE 4,2: PRINT "Error in line #" ; 260 + 10 * I: GOTO 260
220 NEXT I
230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
250 PRINT: PRINT "LASERLST.COM created successfully": SYSTEM
260 PRINT: PRINT "LASERLST.COM is not valid!": END
270 DATA E9, E0, 1, 4C, 61, 73, 65, 72, 4C, 73, 74, 20, 31, 2E, 30, 20, 5C3
280 DATA 28, 63, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 430
290 DATA 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E, 617
300 DATA D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, FE, 20, 4D, 561
310 DATA 69, 63, 68, 61, 65, 6C, 20, 48, 6F, 6C, 6D, 65, 73, 20, 26, 20, 554
320 DATA 42, 6F, 62, 20, 46, 6C, 61, 6E, 64, 65, 72, 73, D, A, D, A, 490
330 DATA 24, 0, 0, 0, 0, 4, 0, 8, 0, 0, 0, 1B, 26, 64, 44, 6D, 186
340 DATA 6D, 2F, 64, 64, 2F, 79, 79, 79, 79, 20, 20, 68, 68, 3A, 6D, 6D, 59B
350 DATA 20, 20, 20, 20, 20, 20, 20, 46, 69, 6C, 65, 6E, 61, 6D, 65, 3A, 43B
360 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 200
370 DATA 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 200
380 DATA 20, 20, 20, 20, 20, 20, 20, 20, 50, 61, 67, 65, 78, 78, 78, 78, 45D
390 DATA D, A, A, 1B, 26, 64, 40, 46, 69, 6C, 65, 20, 6E, 6F, 74, 20, 417
400 DATA 66, 6F, 75, 6E, 64, 2E, D, A, 24, 43, 6F, 75, 6C, 64, 20, 6E, 50A
410 DATA 6F, 74, 20, 6F, 70, 65, 6E, 20, 6F, 75, 74, 70, 75, 74, 20, 66, 60C
420 DATA 69, 6C, 65, 2E, D, A, 24, D, A, 53, 59, 4E, 54, 41, 58, 3A, 3DB
430 DATA 9, 4C, 41, 53, 45, 52, 4C, 53, 54, 20, 5B, 64, 3A, 5D, 5B, 70, 4B4
440 DATA 61, 74, 68, 5D, 66, 69, 6C, 65, 6E, 61, 6D, 65, 5B, 2E, 65, 78, 641
450 DATA 74, 5D, 20, 5B, 6F, 75, 74, 66, 69, 6C, 65, 5D, 20, 5B, 2F, 54, 59F
460 DATA 6E, 5D, D, A, A, 20, 20, 6F, 66, 69, 6C, 65, 20, 64, 65, 66, 48A
470 DATA 61, 75, 6C, 74, 73, 20, 74, 6F, 20, 4C, 50, 54, 31, 3A, D, A, 4BE
480 DATA 20, 20, 6E, 20, 69, 73, 20, 74, 61, 62, 20, 77, 69, 64, 74, 68, 541
490 DATA 20, 28, 31, 36, 20, 6D, 61, 78, 29, D, A, 24, 1B, 45, 1B, 26, 31A
500 DATA 6C, 31, 4F, 1B, 28, 73, 31, 37, 48, 1B, 26, 6C, 35, 2E, 31, 34, 3C7
510 DATA 43, 1B, 26, 6C, 37, 31, 46, 1B, 26, 6C, 36, 45, 1B, 28, 73, 2D, 3A9
520 DATA 33, 42, 1B, 26, 61, 30, 52, 1B, 26, 61, 38, 35, 4D, 1B, 26, 61, 397
530 DATA 35, 4C, D, C, 1B, 45, 1B, 26, 61, 30, 52, 1B, 26, 61, 39, 30, 329
540 DATA 4D, 1B, 26, 61, 38, 38, 4C, D, A, D, A, 7C, D, A, 1B, 26, 2AD
550 DATA 61, 30, 52, 1B, 26, 61, 31, 37, 31, 4D, 1B, 26, 61, 39, 31, 4C, 3C3
560 DATA D, C, 1B, 26, 61, 30, 52, 1B, 26, 61, 38, 35, 4D, 1B, 26, 61, 33B
570 DATA 35, 4C, D, E8, 23, 0, E8, 70, 0, 72, 12, E8, 9, 1, E8, 4B, 59A
580 DATA 1, B, F6, 75, F6, 8B, 1E, C5, 7, B4, 3E, CD, 21, B4, 4F, CD, 792
590 DATA 21, 73, E3, BA, 60, 1, E8, BB, 1, FC, B4, 19, CD, 21, A2, 75, 804
600 DATA 7, BE, 76, 7, C6, 4, 5C, 46, 32, D2, B4, 47, CD, 21, BA, 3, 658
610 DATA 1, B4, 9, CD, 21, E8, B4, 1, 83, 3E, 63, 1, 0, 74, 15, 8B, 582
620 DATA 16, 63, 1, B4, 3C, 33, C9, CD, 21, 73, 6, BA, D9, 1, E8, 83, 6CC
630 DATA 1, A3, 65, 1, E8, 14, 2, B4, 4E, BA, B7, 7, 33, C9, CD, 21, 66C
640 DATA 73, 6, BA, C7, 1, E8, 6C, 1, C3, BA, 9E, 0, B8, 0, 3D, CD, 72D
650 DATA 21, 73, 1, C3, A3, C5, 7, C6, 6, C4, 7, 0, 90, BE, 9E, 0, 64A
660 DATA BF, 91, 1, 57, B0, 20, B9, F, 0, F3, AA, 5F, AC, A, C0, 74, 726
670 DATA 3, AA, EB, F8, B3, 30, A1, 98, 0, 50, 50, B1, 5, D3, E8, 25, 7E2
680 DATA F, 0, B9, 2, 0, BF, 6F, 1, E8, A5, 3, 58, 25, 1F, 0, B9, 4DE
690 DATA 2, 0, BF, 72, 1, E8, 98, 3, 58, B1, 9, D3, E8, 5, BC, 7, 64C
700 DATA B9, 4, 0, BF, 75, 1, E8, 87, 3, A1, 96, 0, 50, B1, B, D3, 67A
710 DATA E8, B9, 2, 0, BF, 7B, 1, E8, 76, 3, 58, B1, 5, D3, E8, 25, 72D
720 DATA 3F, 0, B9, 2, 0, BF, 7E, 1, E8, 65, 3, B4, 40, BB, 1, 0, 538
730 DATA B9, 35, 0, BA, 6F, 1, CD, 21, B4, 40, BB, 1, 0, B9, 2, 0, 571
740 DATA BA, 5E, 1, CD, 21, F8, C3, 50, 53, 52, BE, 0, 0, 80, 3E, C4, 6F7
750 DATA 7, 1, 74, 34, B4, 3F, 8B, 1E, C5, 7, B9, 0, 8, 90, BA, C7, 5EA
760 DATA 7, CD, 21, 72, 23, B, C0, 74, 1F, BE, C7, 7, 8B, C8, 8B, D8, 72A
770 DATA 8B, FE, B0, 1A, F2, AE, 75, 9, 41, F7, D9, C6, 6, C4, 7, 1, 81A
780 DATA 90, 3, CB, 75, 3, BE, 0, 0, 5A, 5B, 58, C3, B, F6, 75, 4, 5DE
790 DATA E8, A3, 2, C3, 50, 53, 51, 52, 56, 80, 3E, 6A, 1, 0, 75, 3, 58D
800 DATA E8, 65, 2, E8, 74, 1, 8B, D6, 8B, D9, 33, C9, 8A, 26, C7, F, 7F3
810 DATA AC, 3C, C, 75, D, E8, C2, 1, E8, F1, 1, 32, E4, 4B, 42, EB, 789
820 DATA 42, 90, 3C, A, 75, D, 4B, 41, E8, AF, 1, 32, E4, E8, 27, 2, 5E5
830 DATA EB, 31, 90, 3C, D, 75, 2, EB, 8, 3C, 8, 75, 8, FE, CC, 79, 663
840 DATA 6, 32, E4, EB, 2, FE, C4, 41, 4B, 80, FC, 51, 7C, 15, E8, 89, 826
850 DATA 1, 51, 52, BA, 5E, 1, B9, 2, 0, E8, 4D, 2, 5A, 59, 32, E4, 578
860 DATA E8, F4, 1, B, DB, 75, A9, E8, 70, 1, 88, 26, C7, F, 5E, 5A, 776
870 DATA 59, 5B, 58, C3, B4, 9, CD, 21, 8A, 16, 75, 7, B4, E, CD, 21, 646
880 DATA BA, 76, 7, B4, 3B, CD, 21, B8, 0, 4C, CD, 21, E8, 27, 2, BE, 6D5
890 DATA 81, 0, AC, 3C, 2F, 74, 2A, 3C, D, 74, 1B, 3C, 20, 76, F3, E8, 5BB
900 DATA 3A, 0, 72, 32, AC, 3C, D, 74, D, 3C, 2F, 74, 14, 3C, 20, 77, 41A
910 DATA F3, E8, 47, 0, EB, DC, E8, 42, 0, 83, 3E, 61, 1, 0, 74, 16, 6C0
920 DATA C3, E8, 37, 0, AC, 3C, 54, 75, D, E8, 7, 2, 3D, 10, 0, 7F, 55D
930 DATA C1, A3, 67, 1, EB, BC, BA, F7, 1, E8, 98, FF, 8D, 5C, FF, 83, A0F
940 DATA 3E, 61, 1, 0, 75, 6, 89, 1E, 61, 1, EB, D, 83, 3E, 63, 1, 441
950 DATA 0, 74, 2, F9, C3, 89, 1E, 63, 1, F8, C3, 80, 7C, FE, 3A, 75, 7A1
960 DATA 5, C6, 44, FE, 0, C3, C6, 44, FF, 0, C3, 8B, 3E, 61, 1, 80, 747
970 DATA 7D, 1, 3A, 75, C, 8A, 15, 80, EA, 41, B4, E, CD, 21, 83, C7, 67D
980 DATA 2, 57, 8B, DF, 32, C0, B9, 80, 0, FC, F2, AE, 8D, 75, FF, B9, 944
990 DATA 0, 0, 3B, F3, 74, 37, 4E, 80, 3C, 5C, 74, 7, 41, 3B, F3, 74, 59D
1000 DATA 3, EB, F3, 46, B, C9, 74, 25, 83, F9, C, 77, 26, 56, BF, B7, 785
1010 DATA 7, 41, F3, A4, 5E, 5F, 3B, F3, 74, 1F, 43, 3B, F3, 74, 1, 4E, 691
1020 DATA C6, 4, 0, 8B, D7, B4, 3B, CD, 21, 73, E, EB, 6, BA, F7, 1, 72D
1030 DATA E8, 1, FF, BA, C7, 1, E8, FB, FE, C3, 50, 53, 52, 57, BF, C8, 9E1
1040 DATA F, AC, 3C, 9, 75, 1A, A1, 71, 7, 48, 33, D2, 8B, 1E, 67, 1, 506
1050 DATA F7, FB, 2B, DA, B0, 20, AA, FF, 6, 71, 7, 4B, 75, F8, EB, 2C, 8BD
1060 DATA 3C, D, 74, 4, 3C, C, 75, 8, C7, 6, 71, 7, 0, 0, EB, 13, 3C9
1070 DATA 3C, 8, 75, F, AA, FF, E, 71, 7, 75, 11, C7, 6, 71, 7, 1, 4C3
1080 DATA 0, EB, 9, AA, 3C, A, 74, 4, FF, 6, 71, 7, E2, B3, BE, C8, 6F4
1090 DATA F, 8B, CF, 2B, CE, 5F, 5A, 5B, 58, C3, E3, 11, 80, 3E, 69, 1, 6AD
1100 DATA 1, 75, 3, E8, 26, 0, E8, C0, 0, 3, D1, 33, C9, C3, 50, 53, 665
1110 DATA 57, A1, 6F, 7, B9, 4, 0, B3, 20, BF, BC, 1, E8, F1, 0, BA, 70D
1120 DATA 6B, 1, B9, 5C, 0, E8, A1, 0, 5F, 5B, 58, C3, 53, 51, 52, F7, 6CC
1130 DATA 6, 6F, 7, 1, 0, 74, 21, BA, A6, 2, B9, 15, 0, E8, 89, 0, 4B3
1140 DATA BB, 42, 0, B9, 3, 0, BA, BB, 2, E8, 7D, 0, 4B, 75, FA, BA, 709
1150 DATA BE, 2, B9, 13, 0, EB, 7, 90, BA, D1, 2, B9, 12, 0, E8, 68, 6B6
1160 DATA 0, C7, 6, 73, 7, 1, 0, C6, 6, 69, 1, 0, FF, 6, 6F, 7, 3F9
1170 DATA E8, 9B, FF, 5A, 59, 5B, C3, FF, 6, 73, 7, 83, 3E, 73, 7, 42, 74F
1180 DATA 7E, 5, C6, 6, 69, 1, 1, C3, 51, 52, BA, 6C, 2, B9, 37, 0, 538
1190 DATA E8, 36, 0, C7, 6, 6F, 7, 1, 0, C7, 6, 71, 7, 1, 0, C7, 46F
1200 DATA 6, 73, 7, 1, 0, C6, 6, 6A, 1, 1, C6, 6, C7, F, 0, 90, 3EB
1210 DATA E8, 5B, FF, 5A, 59, C3, 51, 52, BA, A3, 2, B9, 3, 0, E8, 8, 766
1220 DATA 0, C6, 6, 6A, 1, 0, 5A, 59, C3, 50, 53, B4, 40, 8B, 1E, 65, 552
1230 DATA 1, CD, 21, 5B, 58, C3, 56, 57, BE, 81, 0, 8B, FE, FC, AC, 3C, 7BE
1240 DATA D, 74, D, 3C, 61, 72, 6, 3C, 7A, 77, 2, 2C, 20, AA, EB, EE, 5A1
1250 DATA 5F, 5E, C3, 33, C0, 80, 3C, 30, 72, 15, 80, 3C, 39, 77, 10, 32, 594
1260 DATA E4, B3, A, F6, E3, 8A, 1C, 80, E3, F, 2, C3, 46, EB, E6, C3, 931
1270 DATA 50, 53, 51, 52, 57, 9C, FD, 3, F9, 4F, 53, BB, A, 0, B, C0, 664
1280 DATA 74, 11, 33, D2, F7, FB, 80, CA, 30, 88, 15, 4F, 49, 75, EF, 5B, 7EA
1290 DATA EB, 6, 90, 58, AA, 49, 75, FC, 9D, 5F, 5A, 59, 5B, 58, C3, 0, 762
1300 DATA 155026


  3 Responses to “Category : Files from Magazines
Archive   : VOL8N7.ZIP
Filename : LASERLST.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/