Category : Files from Magazines
Archive   : VOL7N10.ZIP
Filename : TOGGLE.BAS

 
Output of file : TOGGLE.BAS contained in archive : VOL7N10.ZIP
100 REM -- BASIC PROGRAM TO CREATE toggle.COM
110 OPEN "toggle.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 43
150 LINESUM = 0
155 PRINT ".";
160 FOR J = 1 TO 8
170 READ BYTE
180 CHECKSUM = CHECKSUM + BYTE
190 LINESUM = LINESUM + BYTE
200 IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
210 PUT #1
220 NEXT J
230 READ LINECHECK
240 IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
250 NEXT I
260 CLOSE
270 IF CHECKSUM = 28071 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 188, 0, 84, 79, 71, 71, 76, 802
300 DATA 69, 32, 49, 46, 48, 32, 40, 99, 415
310 DATA 41, 32, 49, 57, 56, 56, 32, 90, 413
320 DATA 105, 102, 102, 32, 67, 111, 109, 109, 737
330 DATA 117, 110, 105, 99, 97, 116, 105, 111, 860
340 DATA 110, 115, 32, 67, 111, 46, 13, 10, 504
350 DATA 80, 67, 32, 77, 97, 103, 97, 122, 675
360 DATA 105, 110, 101, 32, 254, 32, 74, 101, 809
370 DATA 102, 102, 32, 80, 114, 111, 115, 105, 761
380 DATA 115, 101, 13, 10, 36, 26, 13, 10, 324
390 DATA 85, 115, 97, 103, 101, 58, 32, 32, 623
400 DATA 84, 79, 71, 71, 76, 69, 32, 91, 573
410 DATA 43, 99, 124, 45, 99, 93, 32, 91, 626
420 DATA 43, 110, 124, 45, 110, 93, 32, 91, 648
430 DATA 43, 115, 124, 45, 115, 93, 13, 10, 558
440 DATA 36, 13, 10, 32, 32, 32, 32, 67, 254
450 DATA 97, 112, 115, 76, 111, 99, 107, 32, 749
460 DATA 32, 32, 58, 32, 32, 36, 32, 32, 286
470 DATA 32, 32, 78, 117, 109, 76, 111, 99, 654
480 DATA 107, 32, 32, 32, 32, 58, 32, 32, 357
490 DATA 36, 32, 32, 32, 32, 83, 99, 114, 460
500 DATA 111, 108, 108, 76, 111, 99, 107, 32, 752
510 DATA 58, 32, 32, 36, 79, 110, 13, 10, 370
520 DATA 36, 79, 102, 102, 13, 10, 36, 184, 562
530 DATA 64, 0, 142, 192, 252, 190, 129, 0, 969
540 DATA 172, 60, 32, 116, 251, 60, 13, 116, 820
550 DATA 63, 60, 43, 116, 16, 60, 45, 116, 519
560 DATA 12, 180, 9, 186, 78, 1, 205, 33, 704
570 DATA 184, 1, 76, 205, 33, 172, 36, 223, 930
580 DATA 180, 16, 60, 83, 116, 12, 180, 32, 679
590 DATA 60, 78, 116, 6, 180, 64, 60, 67, 631
600 DATA 117, 223, 128, 124, 254, 43, 117, 7, 1013
610 DATA 38, 8, 38, 23, 0, 235, 193, 246, 781
620 DATA 212, 38, 32, 38, 23, 0, 235, 184, 762
630 DATA 180, 9, 186, 3, 1, 205, 33, 180, 797
640 DATA 9, 186, 121, 1, 205, 33, 180, 64, 799
650 DATA 232, 29, 0, 180, 9, 186, 142, 1, 779
660 DATA 205, 33, 180, 32, 232, 17, 0, 180, 879
670 DATA 9, 186, 161, 1, 205, 33, 180, 16, 791
680 DATA 232, 5, 0, 184, 0, 76, 205, 33, 735
690 DATA 186, 185, 1, 38, 132, 38, 23, 0, 603
700 DATA 116, 3, 186, 180, 1, 180, 9, 205, 880
710 DATA 33, 195, 0, 0, 0, 0, 0, 0, 228


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