Category : Utilities for DOS and Windows Machines
Archive   : XPANDISK.ZIP
Filename : XPANBOSS.BAS

 
Output of file : XPANBOSS.BAS contained in archive : XPANDISK.ZIP
100 REM - BASIC PROGRAM TO CREATE XPANBOSS.COM
110 CLS:PRINT "Creating XPANBOSS.COM": OPEN "XPANBOSS.COM" AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 56
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 56 - 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 "XPANBOSS.COM created successfully": SYSTEM
260 PRINT: PRINT "XPANBOSS.COM is not valid!": END
270 DATA E9, CB, 2, D, A, 58, 50, 41, 4E, 42, 4F, 53, 53, 20, 31, 2E, 4BA
280 DATA 30, 20, 28, 43, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 3AD
290 DATA 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 62C
300 DATA 6F, 2E, D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, 4B3
310 DATA FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 4D, 65, 66, 5A1
320 DATA 66, 6F, 72, 64, D, A, A, 53, 79, 6E, 74, 61, 78, 3A, 20, 58, 505
330 DATA 50, 41, 4E, 42, 4F, 53, 53, 20, 5B, 64, 3A, 5D, 5B, 2F, 44, 20, 47A
340 DATA 64, 69, 73, 6B, 20, 73, 69, 7A, 65, 5D, 5B, 2F, 53, 20, 73, 65, 5B8
350 DATA 63, 74, 6F, 72, 20, 73, 69, 7A, 65, 5D, 5B, 2F, 45, 20, 65, 6E, 5B2
360 DATA 74, 72, 69, 65, 73, 5D, 5B, 2F, 57, 5D, 5B, 2F, 52, 5D, 5B, 2F, 585
370 DATA 4D, 5D, 5B, 2F, 41, 5D, D, A, A, 64, 69, 73, 6B, 20, 73, 69, 49A
380 DATA 7A, 65, 20, 20, 20, 3D, 20, 28, 31, 36, 20, 2D, 20, 33, 32, 37, 334
390 DATA 36, 38, 29, 4B, 20, 62, 79, 74, 65, 73, 3B, 20, 64, 65, 66, 61, 514
400 DATA 75, 6C, 74, 20, 3D, 20, 36, 34, D, A, 73, 65, 63, 74, 6F, 72, 4E3
410 DATA 20, 73, 69, 7A, 65, 20, 3D, 20, 28, 31, 32, 38, 2C, 32, 35, 36, 3E4
420 DATA 2C, 35, 31, 32, 29, 20, 62, 79, 74, 65, 73, 3B, 20, 64, 65, 66, 4BE
430 DATA 61, 75, 6C, 74, 20, 3D, 20, 32, 35, 36, D, A, 65, 6E, 74, 72, 4A0
440 DATA 69, 65, 73, 20, 20, 20, 20, 20, 3D, 20, 28, 34, 20, 2D, 20, 35, 33C
450 DATA 31, 32, 29, 69, 6E, 20, 72, 6F, 6F, 74, 20, 64, 69, 72, 65, 63, 56E
460 DATA 74, 6F, 72, 79, 3B, 20, 64, 65, 66, 61, 75, 6C, 74, 20, 3D, 20, 58B
470 DATA 36, 34, D, A, 2F, 57, 20, 3D, 20, 43, 68, 61, 6E, 67, 65, 20, 3EA
480 DATA 73, 69, 7A, 65, 20, 57, 49, 54, 48, 4F, 55, 54, 20, 61, 73, 6B, 56E
490 DATA 69, 6E, 67, 2E, 20, 57, 41, 52, 4E, 49, 4E, 47, 3A, 20, 41, 6C, 4A9
500 DATA 6C, 20, 64, 61, 74, 61, 20, 77, 69, 6C, 6C, 20, 62, 65, 20, 6C, 571
510 DATA 6F, 73, 74, 2E, D, A, 2F, 52, 20, 3D, 20, 52, 65, 61, 64, 2D, 442
520 DATA 6F, 6E, 6C, 79, 20, 64, 72, 69, 76, 65, D, A, 2F, 4D, 20, 3D, 4EC
530 DATA 20, 4D, 69, 6E, 69, 6D, 75, 6D, 20, 64, 69, 73, 6B, 20, 73, 69, 5C3
540 DATA 7A, 65, 20, 28, 31, 36, 4B, 29, D, A, 2F, 41, 20, 3D, 20, 41, 347
550 DATA 6C, 6C, 20, 6F, 66, 20, 61, 76, 61, 69, 6C, 61, 62, 6C, 65, 20, 5AE
560 DATA 65, 78, 70, 61, 6E, 64, 65, 64, 20, 6D, 65, 6D, 6F, 72, 79, D, 60F
570 DATA A, A, 55, 73, 65, 20, 58, 50, 41, 4E, 42, 4F, 53, 53, 20, 74, 463
580 DATA 6F, 20, 63, 6F, 6E, 74, 72, 6F, 6C, 20, 74, 68, 65, 20, 58, 50, 5B9
590 DATA 41, 4E, 44, 49, 53, 4B, 20, 76, 69, 72, 74, 75, 61, 6C, 20, 64, 565
600 DATA 69, 73, 6B, D, A, 24, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 4FC
610 DATA 65, 20, 50, 72, 6F, 64, 75, 63, 74, 69, 76, 69, 74, 79, 0, 0, 59B
620 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
630 DATA 0, 0, 0, 0, 0, 0, 0, 44, 72, 69, 76, 65, 20, 24, 3A, 20, 298
640 DATA 64, 6F, 65, 73, 20, 6E, 6F, 74, 20, 62, 65, 6C, 6F, 6E, 67, 20, 5D3
650 DATA 74, 6F, 20, 58, 50, 41, 4E, 42, 4F, 53, 53, 7, D, A, 24, D, 3C0
660 DATA A, 57, 41, 52, 4E, 49, 4E, 47, 3A, 20, 41, 6C, 6C, 20, 63, 75, 48B
670 DATA 72, 72, 65, 6E, 74, 20, 64, 61, 74, 61, 20, 6F, 66, 20, 24, 3A, 558
680 DATA 20, 77, 69, 6C, 6C, 20, 62, 65, 20, 6C, 6F, 73, 74, 2E, D, A, 4E6
690 DATA 44, 6F, 20, 79, 6F, 75, 20, 77, 69, 73, 68, 20, 74, 6F, 20, 63, 591
700 DATA 6F, 6E, 74, 69, 6E, 75, 65, 3F, 20, 20, 59, 2F, 4E, 20, 24, 55, 4F0
710 DATA 4E, 53, 55, 43, 43, 45, 53, 53, 46, 55, 4C, D, A, 24, FC, BA, 53F
720 DATA 3, 1, E8, 9C, 0, 8A, 1E, 5C, 0, 8A, C3, FE, C8, 79, 4, B4, 6D0
730 DATA 19, CD, 21, 4, 41, A2, 5C, 0, C6, 6, 5D, 0, 24, BA, 2E, 3, 482
740 DATA 8B, F2, B9, 18, 0, B8, 4, 44, CD, 21, BF, 16, 3, F3, A6, 74, 721
750 DATA 11, BA, CB, 3, E8, 6A, 0, E8, 5E, 0, BA, 4E, 3, E8, 61, 0, 685
760 DATA EB, 25, 80, 3C, 0, 74, B, E8, 2B, 0, 75, 1D, BA, CB, 3, E8, 660
770 DATA 4F, 0, BA, 16, 3, B9, 18, 0, B8, 5, 44, CD, 21, B0, 0, 73, 505
780 DATA 8, BA, BF, 3, E8, 3A, 0, B0, 1, 50, BA, CB, 3, E8, 31, 0, 648
790 DATA 58, B4, 4C, CD, 21, BA, 6F, 3, E8, 26, 0, E8, 1A, 0, BA, 8F, 6CB
800 DATA 3, E8, 1D, 0, 32, E4, CD, 16, 80, FC, 15, 75, A, B4, E, CD, 6A0
810 DATA 10, 32, E4, CD, 16, 3C, D, C3, BA, 47, 3, E8, 3, 0, BA, 5C, 61A
820 DATA 0, B4, 9, CD, 21, C3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 26E
830 DATA 71516


  3 Responses to “Category : Utilities for DOS and Windows Machines
Archive   : XPANDISK.ZIP
Filename : XPANBOSS.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/