Category : Files from Magazines
Archive   : VOL8N17.ZIP
Filename : DIMMER.BAS

 
Output of file : DIMMER.BAS contained in archive : VOL8N17.ZIP
100 REM - BASIC PROGRAM TO CREATE DIMMER.COM
110 CLS:PRINT "Creating DIMMER.COM ": OPEN "DIMMER.COM " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 87
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 87 - 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 "DIMMER.COM created successfully": SYSTEM
260 PRINT: PRINT "DIMMER.COM is not valid!": END
270 DATA E9, F2, 2, 44, 69, 6D, 6D, 65, 72, 20, 31, 2E, 30, 20, 28, 63, 595
280 DATA 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 47F
290 DATA 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E, D, A, 554
300 DATA 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 44, 6F, 5D0
310 DATA 75, 67, 20, 42, 6F, 6C, 69, 6E, 67, 20, 61, 6E, 64, 20, 4A, 65, 579
320 DATA 66, 66, 20, 50, 72, 6F, 73, 69, 73, 65, 24, 1A, 0, 0, FF, FF, 60D
330 DATA FF, FF, 44, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 246
340 DATA 0, 0, 0, 9C, 2E, FF, 1E, 67, 1, FB, 50, 2E, A1, 60, 1, 3D, 507
350 DATA FF, FF, 74, 23, B, C0, 74, 1F, 2E, FF, E, 62, 1, 75, 18, 2E, 64C
360 DATA C7, 6, 62, 1, 44, 4, 48, 2E, A3, 60, 1, B, C0, 75, 8, 2E, 468
370 DATA 8A, 26, 5D, 1, E8, 2, 1, 58, CF, FB, 50, 2E, C7, 6, 62, 1, 5C9
380 DATA 44, 4, 2E, A1, 5E, 1, 2E, 87, 6, 60, 1, B, C0, 75, 8, 2E, 408
390 DATA 8A, 26, 5C, 1, E8, E2, 0, 1E, B8, 40, 0, 8E, D8, A0, 17, 0, 60A
400 DATA 1F, 24, F, 3C, 8, 74, 6, 58, 2E, FF, 2E, 6B, 1, E4, 60, 3C, 4AF
410 DATA 48, 75, F, 2E, 80, 3E, 5C, 1, 3F, 7D, 24, 2E, FE, 6, 5C, 1, 484
420 DATA EB, 1D, 3C, 50, 75, F, 2E, 80, 3E, 5C, 1, C1, 7E, 11, 2E, FE, 5DD
430 DATA E, 5C, 1, EB, A, 3C, 47, 75, CE, 2E, C6, 6, 5C, 1, 0, 2E, 4AB
440 DATA 8A, 26, 5C, 1, E8, 92, 0, FA, E4, 61, 8A, E0, C, 80, E6, 61, 803
450 DATA 8A, C4, E6, 61, B0, 20, E6, 20, FB, 58, CF, 2E, A3, 65, 1, 9C, 860
460 DATA 2E, FF, 1E, 6F, 1, FB, 50, 2E, 80, 3E, 64, 1, 0, 74, 1F, 2E, 518
470 DATA 83, 3E, 60, 1, 0, 75, 17, 2E, 8A, 26, 5C, 1, E8, 5A, 0, 2E, 459
480 DATA C7, 6, 62, 1, 44, 4, 2E, A1, 5E, 1, 2E, A3, 60, 1, 2E, A1, 4A7
490 DATA 65, 1, A, E4, 74, 19, 80, FC, 11, 74, 14, 3D, 10, 10, 74, A, 4D1
500 DATA 3D, 12, 10, 74, 5, 3D, 1B, 10, 75, D, E8, 49, 0, EB, 8, 2E, 414
510 DATA 8A, 26, 5C, 1, E8, 22, 0, 58, CF, FC, 51, 52, 56, BE, FF, 2, 6F2
520 DATA BA, C8, 3, 32, C0, FA, EE, B9, 0, 3, BA, C9, 3, AC, E8, 10, 845
530 DATA 0, EE, E2, F9, FB, 5E, 5A, 59, C3, 1E, E, 1F, E8, DA, FF, 1F, 8C3
540 DATA C3, A, C0, 74, 10, 2, C4, 3C, 0, 7F, 4, B0, 0, EB, 6, 3C, 573
550 DATA 3F, 76, 2, B0, 3F, C3, FC, 50, 51, 52, 57, 6, 8C, C9, 8E, C1, 759
560 DATA BF, FF, 2, BA, C7, 3, 32, C0, FA, EE, B9, 0, 3, BA, C9, 3, 860
570 DATA EC, 24, 3F, AA, E2, FA, FB, 7, 5F, 5A, 59, 58, C3, E8, D6, FF, 9C1
580 DATA 8A, 26, 5C, 1, E8, B2, FF, BA, 60, 0, B8, 0, 31, CD, 21, 0, 697
590 DATA 0, 0, 0, 50, 72, 6F, 67, 72, 61, 6D, 20, 75, 6E, 69, 6E, 73, 525
600 DATA 74, 61, 6C, 6C, 65, 64, 24, 50, 72, 6F, 67, 72, 61, 6D, 20, 6E, 600
610 DATA 6F, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 53, 79, 6E, 621
620 DATA 74, 61, 78, 3A, 20, 44, 49, 4D, 4D, 45, 52, 20, 5B, 2F, 55, 5D, 4C1
630 DATA 20, 5B, 2F, 56, 5B, 2B, 7C, 2D, 5D, 5D, 20, 5B, 2F, 44, 20, 6D, 464
640 DATA 6D, 6D, 20, 5B, 2B, 7C, 2D, 5D, 78, 78, 5D, 20, 5B, 5B, 2B, 7C, 550
650 DATA 2D, 5D, 78, 78, 5D, 24, 43, 61, 6E, 27, 74, 20, 75, 6E, 69, 6E, 582
660 DATA 73, 74, 61, 6C, 6C, 24, 56, 47, 41, 20, 72, 65, 71, 75, 69, 72, 5DA
670 DATA 65, 64, 24, 49, 6E, 74, 65, 6E, 73, 69, 74, 79, 20, 76, 61, 6C, 617
680 DATA 75, 65, 20, 6D, 75, 73, 74, 20, 62, 65, 20, 62, 65, 74, 77, 65, 5E1
690 DATA 65, 6E, 20, 2D, 36, 33, 20, 61, 6E, 64, 20, 2B, 36, 33, 24, 49, 3FD
700 DATA 6E, 76, 61, 6C, 69, 64, 20, 64, 65, 6C, 61, 79, 20, 76, 61, 6C, 610
710 DATA 75, 65, 24, 50, 72, 6F, 67, 72, 61, 6D, 20, 61, 6C, 72, 65, 61, 5FB
720 DATA 64, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 49, 6E, 76, 60E
730 DATA 61, 6C, 69, 64, 20, 69, 6E, 74, 65, 6E, 73, 69, 74, 79, 20, 76, 637
740 DATA 61, 6C, 75, 65, 24, FC, C7, 6, 0, 1, 0, 0, 33, DB, 8C, C8, 5F7
750 DATA 43, 8E, C3, 3B, C3, 74, 10, BE, 0, 1, 8B, FE, B9, 10, 0, F3, 71A
760 DATA A6, 75, ED, FE, 6, FF, 2, 8C, 6, 0, 3, B8, 0, 1A, CD, 10, 651
770 DATA BA, 76, 3, 3C, 1A, 75, 7E, BE, 81, 0, AC, 3C, 20, 74, FB, 3C, 66E
780 DATA D, 74, 61, 3C, 2F, 75, 14, AC, C, 20, 3C, 75, 74, 39, 3C, 64, 4AC
790 DATA 74, 29, 3C, 76, 74, 20, BA, 2D, 3, EB, 5A, 3C, 2D, 74, D, 3C, 538
800 DATA 2B, 74, 9, 3C, 30, 72, EF, 3C, 39, 77, EB, 4E, 80, E, 2, 3, 52D
810 DATA 1, E8, D9, 0, EB, D, E8, C1, 0, EB, 8, 80, E, 2, 3, 2, 5EB
820 DATA E8, F6, 0, 72, 30, EB, B3, BA, 17, 3, 80, 3E, FF, 2, 0, 74, 725
830 DATA 24, E8, 57, 1, BA, 66, 3, 72, 1C, BA, 3, 3, E8, 86, 0, B8, 5FB
840 DATA 0, 4C, CD, 21, 80, 3E, FF, 2, 0, 74, 2F, 80, 3E, 2, 3, 0, 45F
850 DATA 75, B, BA, C3, 3, E8, 6D, 0, B8, 1, 4C, CD, 21, F6, 6, 2, 646
860 DATA 3, 1, 74, F, 1E, 8E, 1E, 0, 3, 8A, 26, 5C, 1, E8, C9, FD, 50F
870 DATA 1F, EB, CC, F6, 6, 2, 3, 2, 75, C5, B8, 8, 35, CD, 21, 89, 67F
880 DATA 1E, 67, 1, 8C, 6, 69, 1, B8, 8, 25, BA, 73, 1, CD, 21, B8, 53B
890 DATA 9, 35, CD, 21, 89, 1E, 6B, 1, 8C, 6, 6D, 1, B8, 9, 25, BA, 4DF
900 DATA A9, 1, CD, 21, B8, 10, 35, CD, 21, 89, 1E, 6F, 1, 8C, 6, 71, 59D
910 DATA 1, B8, 10, 25, BA, 2B, 2, CD, 21, BA, 3, 1, E8, 6, 0, E9, 558
920 DATA DB, FD, D, A, 24, 52, B4, 9, BA, 12, 5, CD, 21, B4, 9, 5A, 5F8
930 DATA CD, 21, B4, 9, BA, 12, 5, CD, 21, C3, B0, 1, 80, 3C, 2D, 75, 63C
940 DATA 2, FE, C8, 8E, 6, 0, 3, 26, A2, 64, 1, F8, C3, 8B, FE, E8, 7B8
950 DATA FD, 0, BA, DD, 3, 72, 1F, 80, 7D, FF, 2D, 75, 2, F7, D8, BA, 851
960 DATA 83, 3, 3D, 3F, 0, 7F, F, 3D, C1, FF, 7C, A, 8E, 6, 0, 3, 4AA
970 DATA 26, A2, 5C, 1, F8, C3, F9, EB, FC, AC, 3C, 20, 74, FB, BA, 2D, 91E
980 DATA 3, 3C, D, 74, 63, 4E, E8, C6, 0, BA, AF, 3, 72, 5A, BB, FF, 711
990 DATA FF, B, C0, 74, 38, 8B, D8, AC, 3C, 20, 74, FB, BA, 2D, 3, 3C, 776
1000 DATA D, 74, 45, 8B, FE, 3C, 2D, 74, 5, 3C, 2B, 74, 1, 4E, 53, E8, 596
1010 DATA 9D, 0, 5B, BA, DD, 3, 72, 30, 80, 7D, FF, 2D, 75, 2, F7, D8, 7A3
1020 DATA BA, 83, 3, 3D, 3F, 0, 7F, 20, 3D, C1, FF, 7C, 1B, 8E, 6, 0, 583
1030 DATA 3, 26, A2, 5D, 1, 26, 89, 1E, 5E, 1, 26, 89, 1E, 60, 1, 26, 3A9
1040 DATA C7, 6, 62, 1, 44, 4, F8, C3, F9, EB, FC, 80, 3E, FF, 2, 0, 7D2
1050 DATA 74, 58, B8, 8, 35, CD, 21, 8C, C0, 3B, 6, 0, 3, 75, 4B, B8, 5B7
1060 DATA 9, 35, CD, 21, 8C, C0, 3B, 6, 0, 3, 75, 3E, B8, 10, 35, CD, 539
1070 DATA 21, 8C, C0, 3B, 6, 0, 3, 75, 31, 1E, 26, C5, 16, 67, 1, B8, 496
1080 DATA 8, 25, CD, 21, 26, C5, 16, 6B, 1, B8, 9, 25, CD, 21, 26, C5, 547
1090 DATA 16, 6F, 1, B8, 10, 25, CD, 21, 1F, 26, 8B, E, 2C, 0, B4, 49, 468
1100 DATA CD, 21, 8E, C1, B4, 49, CD, 21, F8, C3, F9, EB, FC, A, 0, 33, 900
1110 DATA C0, 33, DB, 8A, 1C, 80, FB, D, 74, 18, 80, FB, 20, 74, 13, 46, 6F0
1120 DATA 80, EB, 30, 72, F, 80, FB, 9, 77, A, F7, 26, 3D, 6, 3, C3, 647
1130 DATA EB, E1, F8, C3, F9, EB, FC, 0, 0, 0, 0, 0, 0, 0, 0, 0, 667
1140 DATA 131667


  3 Responses to “Category : Files from Magazines
Archive   : VOL8N17.ZIP
Filename : DIMMER.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/