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