home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n08.zip / STATUS.BAS < prev    next >
BASIC Source File  |  1987-01-20  |  9KB  |  144 lines
  1. 10 CLS:PRINT "checking DATA; please wait..."
  2. 20 FOR Y=1 TO 95:FOR X=1 TO 10:READ A:T=T+A
  3. 30 NEXT:READ B:IF T=B THEN 50
  4. 40 PRINT "Error in line ";130+Y*10:END
  5. 50 T=0:NEXT:FOR X=1 TO 45:READ A$
  6. 60 IF A$="-1" THEN 80 ELSE READ B:IF LEN(A$)=B THEN 80
  7. 70 PRINT "Error in length of text:":PRINT A$:END
  8. 80 NEXT:RESTORE:OPEN "STATUS.COM" FOR OUTPUT AS #1
  9. 90 FOR X=1 TO 10:READ A:IF A=-1 THEN 110 ELSE B$=CHR$(A)
  10. 100 PRINT #1,B$;:NEXT:READ DUMMY$:GOTO 90
  11. 110 FOR X=1 TO 3:READ D$:NEXT:FOR X=1 TO 44:READ A$
  12. 120 IF A$="-1" THEN PRINT #1,CHR$(13);CHR$(10);ELSE PRINT #1,A$;:READ D$
  13. 130 NEXT:CLOSE:PRINT "STATUS.COM created"
  14. 140 DATA   235,   98,  144,   67,  111,  112,  121,  114,  105,  103, 1210
  15. 150 DATA   104,  116,   32,   49,   57,   56,   55,   32,   90,  105,  696
  16. 160 DATA   102,  102,   45,   68,   97,  118,  105,  115,   32,   80,  864
  17. 170 DATA   117,   98,  108,  105,  115,  104,  105,  110,  103,   32,  997
  18. 180 DATA    67,  111,   46,   26,   77,  105,   99,  104,   97,  101,  833
  19. 190 DATA   108,   32,   74,   46,   32,   77,  101,  102,  102,  111,  785
  20. 200 DATA   114,  100,  179,   32,   79,   32,   49,   32,   50,   32,  699
  21. 210 DATA    51,   32,   52,   32,   53,   32,   54,   32,   55,   32,  425
  22. 220 DATA    56,   32,  179,   36,   49,   32,  179,   32,   78,   32,  705
  23. 230 DATA    36,   48,   32,  179,   32,   24,   32,   36,    0,    0,  419
  24. 240 DATA   180,    8,   50,  255,  205,   16,  138,  252,   51,  201, 1356
  25. 250 DATA   186,   79,   24,  184,    0,    6,  205,   16,  189,   22,  911
  26. 260 DATA     0,  186,  179,    4,  232,  230,    2,  189,   35,    1, 1058
  27. 270 DATA   186,  215,    4,  232,  221,    2,  189,   29,    2,  232, 1312
  28. 280 DATA   229,    2,  178,  218,  232,  205,    2,  232,  234,    2, 1534
  29. 290 DATA   178,  191,  232,  197,    2,  189,   29,    3,  186,   62, 1269
  30. 300 DATA     1,  232,  193,    2,  189,   27,    4,  186,   84,    1,  919
  31. 310 DATA   232,  184,    2,  187,  219,   32,  235,   17,  178,  179, 1465
  32. 320 DATA   232,  169,    2,  189,   27,    5,  186,   91,    1,  232, 1134
  33. 330 DATA   165,    2,  187,   32,  219,  185,    8,    0,  205,   17, 1020
  34. 340 DATA   138,  240,  138,  215,  246,  198,    1,  116,    2,  138, 1432
  35. 350 DATA   211,  232,  138,    2,  178,   32,  232,  133,    2,  208, 1368
  36. 360 DATA   206,  226,  235,  254,    6,   98,    1,  128,   62,   98, 1314
  37. 370 DATA     1,    2,  117,  200,  178,  179,  232,  113,    2,  189, 1213
  38. 380 DATA    29,    6,  232,  126,    2,  178,  192,  232,  102,    2, 1101
  39. 390 DATA   232,  131,    2,  178,  217,  232,   94,    2,  186,  224, 1498
  40. 400 DATA     4,  232,   83,    2,  205,   17,  139,  216,  189,    2, 1089
  41. 410 DATA     8,  178,   42,  247,  195,    1,    0,  116,    4,  129,  920
  42. 420 DATA   197,    0,    1,  232,   78,    2,  189,    2,   11,  247,  959
  43. 430 DATA   195,    2,    0,  116,    4,  129,  197,    0,    1,  232,  876
  44. 440 DATA    62,    2,  189,    2,   18,  232,   87,    2,  189,   39,  822
  45. 450 DATA    11,  232,   81,    2,  184,    0,  192,  142,  216,  190, 1250
  46. 460 DATA    30,    0,  191,  225,    7,  186,  228,    7,  185,    3, 1062
  47. 470 DATA     0,  243,  166,   14,   31,  117,    6,  131,  197,   19,  924
  48. 480 DATA   232,   14,    2,  189,   39,   16,  232,   46,    2,  189,  961
  49. 490 DATA     1,   20,  232,   16,    2,  205,   17,  178,   48,  246,  965
  50. 500 DATA   196,  128,  116,    3,  128,  194,    2,  246,  196,   64, 1273
  51. 510 DATA   116,    2,  254,  194,  232,  231,    1,  186,   75,    7, 1298
  52. 520 DATA   232,  220,    1,  189,    1,   21,  232,  238,    1,  205, 1340
  53. 530 DATA    17,  178,   48,  246,  196,    4,  116,    3,  128,  194, 1130
  54. 540 DATA     2,  246,  196,    2,  116,    2,  254,  194,  232,  197, 1441
  55. 550 DATA     1,  186,   93,    7,  232,  186,    1,  189,    1,   22,  918
  56. 560 DATA   232,  204,    1,  205,   17,  178,   48,  246,  196,   16, 1343
  57. 570 DATA   116,    2,  254,  194,  232,  171,    1,  186,  109,    7, 1272
  58. 580 DATA   232,  160,    1,  189,   38,   18,  186,  120,    7,  232, 1183
  59. 590 DATA   161,    1,  205,   18,  232,   75,    1,  178,   75,  232, 1178
  60. 600 DATA   146,    1,  189,   38,   19,  186,  137,    7,  232,  142, 1097
  61. 610 DATA     1,  232,   30,    1,  178,   75,  232,  129,    1,  189, 1068
  62. 620 DATA    38,   20,  186,  154,    7,  232,  125,    1,   30,  184,  977
  63. 630 DATA     0,  240,  142,  216,  160,  254,  255,   31,   60,  252, 1610
  64. 640 DATA   117,   20,  180,  136,  205,   21,  251,   61,    0,    0,  991
  65. 650 DATA   116,   10,  232,   17,    1,  178,   75,  232,   88,    1,  950
  66. 660 DATA   235,    6,  186,  234,    7,  232,   75,    1,  189,   38, 1203
  67. 670 DATA    21,  186,  171,    7,  232,   76,    1,  184,  103,   53, 1034
  68. 680 DATA   205,   33,  190,  222,    7,  191,   10,    0,  185,    3, 1046
  69. 690 DATA     0,  243,  166,   14,    7,  117,   19,  180,   66,  205, 1017
  70. 700 DATA   103,  184,   16,    0,  247,  226,  232,  219,    0,  178, 1405
  71. 710 DATA    75,  232,   34,    1,  235,    6,  186,  234,    7,  232, 1242
  72. 720 DATA    21,    1,  189,   38,   22,  186,  188,    7,  232,   22,  906
  73. 730 DATA     1,  180,   48,  205,   33,  138,  220,   50,  255,  138, 1268
  74. 740 DATA   208,  128,  194,   48,  232,    1,    1,  178,   46,  232, 1268
  75. 750 DATA   252,    0,  232,  198,    0,  189,   38,   23,  186,  205, 1323
  76. 760 DATA     7,  232,  245,    0,  184,    0,  240,  142,  216,  190, 1456
  77. 770 DATA   245,  255,  185,    8,    0,  232,  105,    0,  189,   38, 1257
  78. 780 DATA    24,  232,  239,    0,  186,    0,    8,  189,    9,    0,  887
  79. 790 DATA   232,   70,    0,  115,   44,  186,  239,    7,  189,    5, 1087
  80. 800 DATA     0,  232,   59,    0,  115,   33,  186,  244,    7,  189, 1065
  81. 810 DATA     5,    0,  232,   48,    0,  115,   22,  186,  249,    7,  864
  82. 820 DATA   189,    3,    0,  232,   37,    0,  115,   11,  186,  253, 1026
  83. 830 DATA     7,  189,    3,    0,  232,   26,    0,  114,   16,   30,  617
  84. 840 DATA    14,   31,  186,  249,    7,  232,  151,    0,   31,  185, 1086
  85. 850 DATA    38,    0,  232,   28,    0,  189,    0,   23,  232,  162,  904
  86. 860 DATA     0,  205,   32,  187,    0,    0,  139,  205,  139,  243, 1150
  87. 870 DATA   139,  250,  243,  166,  116,    5,   67,  117,  243,  249, 1595
  88. 880 DATA   195,  248,  195,  172,   60,   32,  114,   11,   60,  122, 1209
  89. 890 DATA   119,    7,  138,  208,  232,  107,    0,  226,  240,  195, 1472
  90. 900 DATA    51,  219,  180,   74,  205,   33,  180,   72,  187,  255, 1456
  91. 910 DATA   255,  205,   33,  139,  195,   51,  210,  185,   64,    0, 1337
  92. 920 DATA   247,  241,  131,  250,   32,  114,    1,   64,  139,  216, 1435
  93. 930 DATA   198,    6,   99,    1,    0,  185,   16,   39,  232,   25,  801
  94. 940 DATA     0,  185,  232,    3,  232,   19,    0,  185,  100,    0,  956
  95. 950 DATA   232,   13,    0,  185,   10,    0,  232,    7,    0,  185,  864
  96. 960 DATA     1,    0,  232,    1,    0,  195,  139,  195,   51,  210, 1024
  97. 970 DATA   247,  241,  139,  218,  138,  208,   60,    0,  116,    4, 1371
  98. 980 DATA     8,    6,   99,    1,  128,   62,   99,    1,    0,  119,  523
  99. 990 DATA     1,  195,  128,  194,   48,  232,    6,    0,  195,  180, 1179
  100. 1000 DATA    9,  205,   33,  195,  180,    2,  205,   33,  195,  232, 1289
  101. 1010 DATA   11,    0,  232,  240,  255,  195,  232,    4,    0,  232, 1401
  102. 1020 DATA  238,  255,  195,   82,   83,  139,  213,   50,  255,  180, 1690
  103. 1030 DATA    2,  205,   16,   91,   90,  195,  185,   19,    0,  178,  981
  104. 1040 DATA  196,  232,  216,  255,  226,  251,  195,  177,    2,  211, 1961
  105. 1050 DATA  203,  178,   42,  247,  195,    3,    0,  116,   24,  129, 1137
  106. 1060 DATA  237,    0,    1,  247,  195,    1,    0,  116,   14,  129,  940
  107. 1070 DATA  237,    0,    1,  247,  195,    2,    0,  116,    4,  129,  931
  108. 1080 DATA  237,    0,    1,  232,  186,  255,  195,   -1,    0,    0, 1105
  109. 1090 DATA "PC Magazine System Checkout Utility$",36
  110. 1100 DATA "Switches$",9,-1
  111. 1110 DATA " Bit 1                                Bits 5-6 initial video mode"
  112. 1120 DATA 65,-1
  113. 1130 DATA "    0 = No disk drive installed          11 = 80X25 monochrome"
  114. 1140 DATA 62,-1
  115. 1150 DATA "    1 = Disk drive installed             10 = 40X25 color",57,-1
  116. 1160 DATA " Bit 2                                   01 = 80X25 color",57,-1
  117. 1170 DATA "    0 = No math coprocessor              00 = None",50,-1
  118. 1180 DATA "    1 = Math coprocessor installed    Bits 7-8 no. of disks",59
  119. 1190 DATA " (if bit 1 =1)",14,-1
  120. 1200 DATA " Bits 3-4 memory on system board         11 = 4",47,-1
  121. 1210 DATA "    XT/PC2        PC1       AT           10 = 3",47,-1
  122. 1220 DATA "    11 = 256K     64K    Does not        01 = 2",47,-1
  123. 1230 DATA "    10 = 192K     48K     apply          00 = 1",47,-1
  124. 1240 DATA "    01 = 128K     32K",21,-1
  125. 1250 DATA "    00 =  64K     16K$",22
  126. 1260 DATA " Parallel port(s)$",18
  127. 1270 DATA " Serial port(s)$",16
  128. 1280 DATA " Game port$",11
  129. 1290 DATA "Main memory     $",17
  130. 1300 DATA "Bytes free      $",17
  131. 1310 DATA "Extended memory $",17
  132. 1320 DATA "Expanded memory $",17
  133. 1330 DATA "DOS  version    $",17
  134. 1340 DATA "BIOS version    $",17
  135. 1350 DATA "EMM",3
  136. 1360 DATA "IBM",3
  137. 1370 DATA "(EGA)$",6
  138. 1380 DATA "None$",5
  139. 1390 DATA "COPR.",5
  140. 1400 DATA "Copr.",5
  141. 1410 DATA "(C)$",4
  142. 1420 DATA "(c)",3
  143. 1430 DATA "Copyright",9
  144.