Category : Files from Magazines
Archive   : VOL9N08.ZIP
Filename : TYPEFAST.BAS

 
Output of file : TYPEFAST.BAS contained in archive : VOL9N08.ZIP
100 REM - BASIC PROGRAM TO CREATE TYPEFAST.COM
110 CLS:PRINT "Creating TYPEFAST.COM": OPEN "TYPEFAST.COM" AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 73
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 73 - 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 "TYPEFAST.COM created successfully": SYSTEM
260 PRINT: PRINT "TYPEFAST.COM is not valid!": END
270 DATA E9, E4, 2, D, 20, 20, 20, D, A, 54, 59, 50, 45, 46, 41, 53, 46F
280 DATA 54, 20, 31, 2E, 30, 20, 28, 63, 29, 20, 31, 39, 38, 39, 20, 5A, 34C
290 DATA 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 63D
300 DATA 6E, 73, 20, 43, 6F, 2E, D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 49B
310 DATA 69, 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 5C5
320 DATA 20, 4D, 65, 66, 66, 6F, 72, 64, D, A, A, 24, 1A, 0, 0, 0, 342
330 DATA 0, 0, 0, 0, 0, FF, FF, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1FF
340 DATA 0, 50, 53, 1E, E4, 60, 2E, C6, 6, 70, 1, 0, BB, 40, 0, 8E, 4F9
350 DATA DB, 8B, 1E, 1C, 0, 9C, 2E, FF, 1E, 5D, 1, 2E, 80, 3E, 6F, 1, 541
360 DATA 1, 75, 56, 3B, 1E, 1C, 0, 75, 28, A8, 80, 74, 9, 24, 7F, 2E, 454
370 DATA 3A, 6, 67, 1, 75, 43, 2E, C7, 6, 65, 1, FF, FF, 2E, 80, 3E, 5AB
380 DATA 6E, 1, 1, 75, 34, 2E, C6, 6, 6E, 1, 0, 89, 1E, 1A, 0, EB, 42E
390 DATA 28, 2E, A2, 67, 1, 8B, 7, 2E, 3B, 6, 65, 1, 2E, A3, 65, 1, 3FE
400 DATA 74, 11, 2E, 8A, 1E, 68, 1, D0, E3, D0, E3, 80, C3, 4, 2E, 88, 727
410 DATA 1E, 69, 1, 2E, C6, 6, 70, 1, 1, 1F, 5B, 58, CF, 1E, E, 1F, 3E0
420 DATA 80, 3E, 70, 1, 1, 75, 52, 80, 3E, 69, 1, 0, 74, 6, FE, E, 4A5
430 DATA 69, 1, EB, 45, FB, 50, 53, 51, 57, A1, 65, 1, 8B, E, 6C, 1, 5ED
440 DATA BB, 40, 0, 8E, DB, FA, 2E, D1, 6, 6A, 1, 73, 24, 8B, 1E, 1C, 62A
450 DATA 0, 8B, FB, 47, 47, 3B, 3E, 82, 0, 75, 4, 8B, 3E, 80, 0, 3B, 50C
460 DATA 3E, 1A, 0, 74, C, 89, 7, 89, 3E, 1C, 0, 2E, C6, 6, 6E, 1, 3B4
470 DATA 1, 49, 79, D2, FB, 5F, 59, 5B, 58, 1F, 2E, FF, 2E, 61, 1, 0, 5D7
480 DATA 0, 0, 80, 80, 80, 20, 84, 88, 88, 48, 92, 49, 92, 95, 92, AA, 6BA
490 DATA AA, 55, D5, DA, DA, 6D, DB, EE, EE, BD, F7, FE, FE, FE, FF, 53, CAC
500 DATA 79, 6E, 74, 61, 78, 3A, 20, 20, 54, 59, 50, 45, 46, 41, 53, 54, 51E
510 DATA 20, 5B, 6D, 5D, 5B, 2C, 6E, 5D, 20, 7C, 20, 5B, 2F, 55, 5D, 20, 4AF
520 DATA 7C, 20, 5B, 4E, 5D, D, A, 6D, 20, 3D, 20, 74, 79, 70, 65, 6D, 4D2
530 DATA 61, 74, 69, 63, 20, 72, 61, 74, 65, 20, 28, 30, 20, 2D, 20, 33, 485
540 DATA 31, 29, 3B, 20, 6C, 61, 72, 67, 65, 72, 20, 6D, 20, 3D, 20, 66, 4A2
550 DATA 61, 73, 74, 65, 72, 20, 72, 61, 74, 65, D, A, 6E, 20, 3D, 20, 4ED
560 DATA 69, 6E, 69, 74, 69, 61, 6C, 20, 64, 65, 6C, 61, 79, 20, 20, 28, 581
570 DATA 30, 20, 2D, 20, 33, 29, 3B, 20, 6C, 61, 72, 67, 65, 72, 20, 6E, 45F
580 DATA 20, 3D, 20, 6C, 6F, 6E, 67, 65, 72, 20, 64, 65, 6C, 61, 79, D, 540
590 DATA A, 64, 65, 66, 61, 75, 6C, 74, 3A, 20, 6D, 20, 3D, 20, 32, 3B, 4A0
600 DATA 20, 6E, 20, 3D, 20, 33, D, A, 4E, 20, 3D, 20, 4E, 6F, 72, 6D, 3BC
610 DATA 61, 6C, D, A, 2F, 55, 20, 3D, 20, 55, 6E, 69, 6E, 73, 74, 61, 4C7
620 DATA 6C, 6C, D, A, 24, 49, 6E, 76, 61, 6C, 69, 64, 20, 70, 61, 72, 53D
630 DATA 61, 6D, 65, 74, 65, 72, D, A, A, 7, 24, 54, 59, 50, 45, 46, 452
640 DATA 41, 53, 54, 20, 63, 61, 6E, 27, 74, 20, 62, 65, 20, 75, 6E, 69, 528
650 DATA 6E, 73, 74, 61, 6C, 6C, 65, 64, 2E, D, A, 7, 55, 6E, 69, 6E, 53D
660 DATA 73, 74, 61, 6C, 6C, 20, 72, 65, 73, 69, 64, 65, 6E, 74, 20, 70, 62E
670 DATA 72, 6F, 67, 72, 61, 6D, 73, 20, 69, 6E, 20, 72, 65, 76, 65, 72, 636
680 DATA 73, 65, 20, 6F, 72, 64, 65, 72, 2E, D, A, 54, 59, 50, 45, 46, 4E1
690 DATA 41, 53, 54, 20, 49, 4E, 41, 43, 54, 49, 56, 45, D, A, A, 24, 3A0
700 DATA 4D, 65, 6D, 6F, 72, 79, 20, 61, 6C, 6C, 6F, 63, 61, 74, 69, 6F, 651
710 DATA 6E, 20, 65, 72, 72, 6F, 72, D, A, 7, 24, 49, 6E, 73, 74, 61, 4F9
720 DATA 6C, 6C, 65, 64, D, A, A, 24, 55, 6E, 69, 6E, 73, 74, 61, 6C, 534
730 DATA 6C, 65, 64, D, A, A, 24, FC, BB, 0, 1, F6, 17, 33, D2, 8C, 5D0
740 DATA C8, 42, 8E, C2, 3B, D0, 74, B, 8B, F3, 8B, FB, B9, 10, 0, F3, 8A4
750 DATA A6, 75, EE, BA, 3, 1, E8, 7F, 1, BE, 81, 0, AC, 3C, D, 74, 6D7
760 DATA E, 3C, 2F, 75, F7, AC, 24, 5F, 3C, 55, 75, 3, E9, D6, 0, BE, 69A
770 DATA 81, 0, AC, 3C, D, 74, 4, 3C, 20, 76, F7, 4E, 8A, 4, 24, 5F, 516
780 DATA 3C, 4E, B0, 0, 74, E, E8, 24, 1, B0, 2, E3, 7, 8A, C3, 80, 632
790 DATA FB, 1F, 77, 4A, 8A, D8, B1, 4, D2, EB, 32, FF, 26, 89, 1E, 6C, 819
800 DATA 1, 24, F, 32, E4, D1, E0, 56, 8B, F0, 81, C6, 4F, 2, AD, 26, 737
810 DATA A3, 6A, 1, 5E, E8, F6, 0, B0, 3, E3, 7, 8A, C3, 80, FB, 3, 7B2
820 DATA 77, 1C, 26, A2, 68, 1, 26, C6, 6, 6F, 1, 1, BA, A6, 3, E8, 572
830 DATA 6, 1, 8C, C0, 8C, CB, 3B, C3, 74, 18, 32, C0, EB, 8, BA, 35, 708
840 DATA 3, E8, F4, 0, B0, 1, 50, BA, 6F, 2, E8, EB, 0, 58, B4, 4C, 736
850 DATA CD, 21, A1, 2C, 0, 8E, C0, B4, 49, CD, 21, BA, B0, 3, 72, E1, 7B4
860 DATA B8, 9, 35, CD, 21, 89, 1E, 5D, 1, 8C, 6, 5F, 1, BA, 71, 1, 507
870 DATA B8, 9, 25, CD, 21, B8, 8, 35, CD, 21, 89, 1E, 61, 1, 8C, 6, 552
880 DATA 63, 1, BA, ED, 1, B8, 8, 25, CD, 21, BA, CB, 3, E8, A8, 0, 6F7
890 DATA BA, 6F, 2, E8, A2, 0, BA, 4F, 2, 83, C2, F, B1, 4, D3, EA, 786
900 DATA B8, 0, 31, CD, 21, 26, C6, 6, 6F, 1, 0, 26, C6, 6, 70, 1, 49C
910 DATA 0, BA, 4B, 3, 8C, C1, 8C, CB, 3B, C3, 74, 4E, B8, 9, 35, CD, 72F
920 DATA 21, 81, FB, 71, 1, 75, 43, 8C, C3, 3B, D9, 75, 3D, B8, 8, 35, 6D1
930 DATA CD, 21, 81, FB, ED, 1, 75, 32, 8C, C3, 3B, D9, 75, 2C, B4, 49, 800
940 DATA CD, 21, BA, B0, 3, 72, 23, 26, 8B, 16, 5D, 1, 26, 8E, 1E, 5F, 546
950 DATA 1, B8, 9, 25, CD, 21, 26, 8B, 16, 61, 1, 26, 8E, 1E, 63, 1, 434
960 DATA B8, 8, 25, CD, 21, E, 1F, BA, D8, 3, E9, 34, FF, 32, DB, 33, 6F1
970 DATA C9, AC, 3C, D, 74, 20, 3C, 20, 76, F7, 4E, AC, 3C, D, 74, 16, 5E8
980 DATA 2C, 30, 72, 13, 3C, 9, 77, F, 86, C3, B1, A, F6, E1, 72, 4, 5FD
990 DATA 2, D8, 73, E7, B3, FF, 4E, C3, B4, 9, CD, 21, C3, 0, 0, 0, 765
1000 DATA 105157


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