Category : Files from Magazines
Archive   : VOL7N12.ZIP
Filename : ALLKEYS.BAS

 
Output of file : ALLKEYS.BAS contained in archive : VOL7N12.ZIP
100 REM - BASIC PROGRAM TO CREATE ALLKEYS.COM (PC Magazine June 28,1988)
110 CLS:PRINT "Creating ALLKEYS.COM": OPEN "ALLKEYS.COM" AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 55: LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 55 - 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$)): PUT #1
170 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
220 CLOSE: LOCATE 6,2: IF CHECKSUM# <> 76568 THEN GOTO 240
230 PRINT "ALLKEYS.COM created successfully": SYSTEM
240 PRINT "ALLKEYS.COM is not valid!": SYSTEM
250 DATA E9, 25, 2, 41, 4C, 4C, 4B, 45, 59, 53, 20, 31, 2E, 30, 20, 28, 41C
260 DATA 63, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 474
270 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E, D, 5B7
280 DATA A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 52, 579
290 DATA 6F, 62, 65, 72, 74, 20, 4C, 2E, 20, 4D, 6F, 72, 74, 6F, 6E, D, 562
300 DATA A, 4C, 6F, 77, 20, 63, 6F, 70, 79, 20, 69, 6E, 73, 74, 61, 6C, 5C2
310 DATA 6C, 65, 64, D, A, 24, 41, 4C, 4C, 4B, 45, 59, 53, 20, 68, 69, 476
320 DATA 67, 68, 20, 63, 6F, 70, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 626
330 DATA 64, D, A, 43, 74, 72, 6C, 2D, 41, 6C, 74, 2D, 5A, 20, 74, 6F, 4E8
340 DATA 20, 74, 6F, 67, 67, 6C, 65, 20, 74, 73, 72, 27, 73, 20, 6F, 6E, 5B2
350 DATA 2F, 6F, 66, 66, D, A, 24, 41, 4C, 4C, 4B, 45, 59, 53, 20, 61, 43B
360 DATA 6C, 72, 65, 61, 64, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 661
370 DATA 20, 68, 69, 67, 68, 20, 61, 6E, 64, 20, 6C, 6F, 77, D, A, 24, 4C0
380 DATA 56, 65, 63, 74, 6F, 72, 73, 20, 63, 6F, 75, 6C, 64, 20, 6E, 6F, 61A
390 DATA 74, 20, 62, 65, 20, 72, 65, 73, 74, 6F, 72, 65, 64, 20, 2D, 20, 550
400 DATA 41, 4C, 4C, 4B, 45, 59, 53, 20, 64, 69, 73, 61, 62, 6C, 65, 64, 56D
410 DATA D, A, 24, 41, 4C, 4C, 4B, 45, 59, 53, 20, 6E, 6F, 74, 20, 6C, 44D
420 DATA 6F, 61, 64, 65, 64, 20, 79, 65, 74, D, A, 24, 41, 4C, 4C, 4B, 4CE
430 DATA 45, 59, 53, 20, 75, 6E, 2D, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 5E1
440 DATA D, A, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3B
450 DATA 0, 0, 0, 2C, C, 0, 0, F4, 1, DC, 5, F4, 1, 32, 0, FB, 430
460 DATA 50, 2E, 80, 3E, 46, 2, 0, 75, 22, E4, 60, 2E, 3A, 6, 43, 2, 412
470 DATA 75, 1F, B4, 2, CD, 16, 24, F, 2E, 3A, 6, 44, 2, 75, 12, E8, 483
480 DATA A1, 0, 2E, 80, 36, 45, 2, FF, E8, 2F, 0, 58, 2E, FF, 2E, 3B, 5D0
490 DATA 2, 2E, 80, 3E, 45, 2, 0, 74, F2, 58, 2E, FF, 2E, 33, 2, FB, 57E
500 DATA 2E, 80, 3E, 46, 2, 0, 75, D, 2E, 80, 3E, 45, 2, 0, 74, 5, 362
510 DATA 2E, FF, 2E, 37, 2, 2E, FF, 2E, 3F, 2, 51, 1E, E, 1F, 80, 3E, 48A
520 DATA 45, 2, 0, 74, 14, 8B, E, 47, 2, E8, 21, 0, 3, E, 4B, 2, 318
530 DATA 3B, E, 49, 2, 76, F3, EB, 12, 90, 8B, E, 49, 2, E8, D, 0, 563
540 DATA 2B, E, 4B, 2, 3B, E, 47, 2, 73, F3, 1F, 59, C3, 50, 51, 52, 4AC
550 DATA BA, 12, 0, B8, DE, 34, F7, F1, 8B, C8, 8A, C1, E6, 42, 8A, C5, 993
560 DATA E6, 42, E4, 61, C, 3, E6, 61, 8B, E, 4D, 2, E8, A, 0, E4, 681
570 DATA 61, 24, FC, E6, 61, 5A, 59, 58, C3, 51, B9, FF, 0, E2, FE, 59, 8D8
580 DATA E2, F7, C3, E4, 61, 8A, E0, C, 80, E6, 61, 8A, C4, EB, 0, E6, A3D
590 DATA 61, FA, B0, 20, E6, 20, FB, C3, BE, 80, 0, 80, 3C, 0, 75, 3, 761
600 DATA E9, 98, 0, 8A, C, 32, ED, 46, FC, AC, 3C, 2F, 74, 5, E2, F9, 7E3
610 DATA E9, 88, 0, 80, 24, DF, 80, 3C, 55, 74, 3, EB, 7E, 90, E8, F0, 84D
620 DATA 0, 72, C, BA, 3, 2, B4, 9, CD, 21, B8, 1, 4C, CD, 21, 6, 4E1
630 DATA 1F, 33, C0, 8E, C0, C7, 6, 0, 1, FF, 0, 8C, D8, 26, 3B, 6, 5F8
640 DATA 26, 0, 75, 39, 26, 3B, 6, 5A, 0, 75, 32, 1E, 7, B8, 9, 25, 347
650 DATA 26, 8B, 16, 3B, 2, 26, 8E, 1E, 3D, 2, CD, 21, B8, 16, 25, 26, 41C
660 DATA 8B, 16, 3F, 2, 26, 8E, 1E, 41, 2, CD, 21, B4, 49, CD, 21, E, 4DE
670 DATA 1F, BA, 1C, 2, B4, 9, CD, 21, B8, 0, 4C, CD, 21, 83, 3E, 3B, 590
680 DATA 2, 0, 75, D, 1E, 7, E, 1F, B4, 49, CD, 21, BA, 1C, 2, EB, 484
690 DATA E3, C6, 6, 46, 2, 1, BA, D0, 1, EB, 8B, E8, 73, 0, 72, 32, 6F8
700 DATA A1, 2C, 0, 8E, C0, B4, 49, CD, 21, B8, 9, 35, CD, 21, 89, 1E, 691
710 DATA 33, 2, 8C, 6, 35, 2, B8, 16, 35, CD, 21, 89, 1E, 37, 2, 8C, 45B
720 DATA 6, 39, 2, BA, 3, 1, B4, 9, CD, 21, B8, 0, 31, BA, 33, 0, 480
730 DATA CD, 21, 6, 1F, 83, 3E, 3B, 2, 0, 74, 6, BA, A7, 1, E9, 45, 51B
740 DATA FF, B8, 9, 35, CD, 21, 89, 1E, 3B, 2, 8C, 6, 3D, 2, B8, 16, 566
750 DATA 35, CD, 21, 89, 1E, 3F, 2, 8C, 6, 41, 2, B8, 9, 25, BA, 4F, 4CF
760 DATA 2, CD, 21, B8, 16, 25, BA, 8F, 2, CD, 21, BA, 66, 1, E9, 63, 689
770 DATA FF, C7, 6, 0, 1, 0, 0, BB, 0, 6, 8C, C8, FC, 43, 3B, C3, 61F
780 DATA 8E, C3, 74, 10, BE, 0, 1, 8B, FE, B9, 10, 0, F3, A6, B, C9, 753
790 DATA 75, EB, F9, C3, F8, C3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4D7


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