Listing of file='DSKTST.BAS;02' on disk='vmedia/chip_129-sector.ccvf'
1 REM 3 REM 5 PLOT 12,14,3,15,15 10 T= 750:L= 6:GOTO 20 15 FOR ZZ= 1TO T:NEXT ZZ:RETURN 20 PRINT "DISK DRIVE TEST V1.00 1/4/80" 25 PRINT :PRINT ," P.I.S.L. DIAGNOSTICS - DISC READ/WRITE" 26 PRINT :PRINT " USE FRESHLY FORMATTED OR INITIALIZED DISK" 27 PRINT :INPUT " SELECT DRIVE NO. FOR TEST & HIT RETURN ";Z$ 28 A$= "DEV CD"+ Z$+ ":":PLOT 27,4:PRINT A$:PLOT 27,27 29 30 GOSUB 15 35 A$= "0" 40 B$= "1000" 45 GOSUB 180 50 A$= "20" 55 GOSUB 180 60 A$= "40" 65 GOSUB 180 70 A$= "60" 75 GOSUB 180 80 A$= "80" 85 GOSUB 180 90 A$= "A0" 95 GOSUB 180 100 A$= "C0" 101 REM 105 GOSUB 180 110 A$= "E0" 115 GOSUB 180 120 A$= "100" 125 GOSUB 180 130 A$= "120" 135 GOSUB 180 140 A$= "140" 145 GOSUB 180 150 A$= "160" 155 GOSUB 180 160 A$= "180" 165 B$= "800" 170 GOSUB 180 175 GOTO 210 180 PLOT 12 185 PRINT "READ ";A$;" 7000 ";B$ 190 PLOT 27,4 195 PRINT "REA ";A$;" 7000 ";B$ 200 PLOT 27,27 205 RETURN 210 PRINT "READ TEST COMPLETE" 215 GOSUB 15 220 PRINT "STARTING SAVE TEST" 225 FOR I= 1TO L 230 PRINT "SAVING DSKTST.BAS;"I 235 SAVE "DSKTST" 240 NEXT I:GOSUB 15:GOSUB 285 242 PLOT 27,4:PRINT "SAV COST.PRG 7000-7FFF":PLOT 27,27 245 PRINT "STARTING DELETE TEST" 250 FOR I= 1TO L 255 PRINT "DEL DSKTST.BAS;"I 260 GOSUB 15 265 PLOT 27,4:PRINT "DEL DSKTST.BAS;"I:PLOT 27,27 270 NEXT I 275 PLOT 27,4:PRINT "REN DSKTST.BAS;7 TO DSKTST;1":PLOT 27,27 280 PLOT 27,4:PRINT "DEL COST.PRG;1":PLOT 27,27 282 GOTO 1000 285 PLOT 12,15 290 FOR I= 1TO 100:Q= RND (1):NEXT 295 PLOT 6,4 300 A= 6 305 B= 25 310 PRINT "" 315 PLOT 3,127,A,B,4 320 PLOT 30,126,29 325 A= A+ 1 330 B= B- 1 335 IF B< 4THEN 345 340 GOTO 315 345 A= A- 16 350 B= 25 355 X= X+ 1 360 IF X> 6THEN 370 365 GOTO 315 370 PRINT 375 C= 5 380 D= 25 385 E= 45 390 P= PEEK (28672+ C* 2+ D* 128) 395 IF P= 30THEN 425 400 PLOT 3,127,C,D,4 405 PLOT 30,101,29 410 C= C+ 1 415 GOTO 390 420 D= D- 3 425 PLOT 30,122,29 430 C= C+ 1 435 Z= Z+ 1 440 IF Z= 7THEN 450 445 GOTO 400 450 C= C- 35 455 D= D- 3 460 Z= 0 465 IF D< 4THEN 475 470 GOTO 390 475 REM 480 C= 8 485 H1= 21 490 CC= 1 495 Y= 23 500 W= Y 501 REM 505 X= 10 510 X1= 40 515 S= 126 520 H= INT (RND (1)* 4+ H1) 525 PLOT 3,X,Y 530 REM 535 PLOT 6,C,30,101,111,S,29 540 IF Y< WTHEN 550 545 PLOT 3,X+ 2,Y,6,C,126 550 Y= Y- 1 555 IF Y< HTHEN 570 560 S= 126 565 GOTO 525 570 REM 575 PLOT 6,CC 580 PLOT 3,X,Y 585 PLOT 126,6,C,32,30,S,29 590 X= X+ 6 595 Y= W 600 H= INT (RND (1)* 4+ H1) 605 IF X> X1THEN 615 610 GOTO 515 615 PLOT 6,2 620 C= C+ 8 625 CC= CC+ 1 630 Y= Y- 3 635 X= X- 33 640 H1= H1- 3 645 H= INT (RND (1)* 4+ H1) 650 W= Y 655 X1= X1+ 3 660 IF Y< 4THEN 670 665 GOTO 525 670 REM 675 X= 0:Y= 0 680 C= 1 685 Y= 23 690 A$= "PROD." 695 PLOT 3,X,Y 700 PLOT 6,C 705 PRINT A$;C 710 C= C+ 1 715 X= X+ 3 720 Y= Y- 3 725 IF C> 7THEN 735 730 GOTO 695 735 REM 745 D= 1974 750 X= 6:Y= 26 755 PLOT 6,7 760 PLOT 3,X,Y 765 PRINT D 770 X= X+ 6 775 D= D+ 1 780 IF D> 1979THEN 790 785 GOTO 760 790 PLOT 6,2 795 X= 0 800 Y= 1 805 PLOT 3,X,Y 810 PLOT 27,10 815 PLOT 6,3:PRINT "UKL PER UNIT" 820 PLOT 27,11 825 REM 830 V= 5 835 X= 3 840 Y= 9 845 PLOT 3,X,Y 850 PRINT V 855 IF V= 5THEN X= X- 1 860 V= V+ 5 865 Y= Y- 1 870 IF V> 30THEN 880 875 GOTO 845 880 REM 885 X= 6 890 Y= 9 895 C$= " eo ~ " 900 D$= " eo~ " 905 E$= "~ " 910 PLOT 3,X,Y 915 IF Y= 9THEN PRINT C$:GOTO 930 920 IF Y> 3THEN PRINT D$:GOTO 930 925 PRINT E$ 930 Y= Y- 1 935 IF Y< 3THEN 945 940 GOTO 910 945 REM 950 PLOT 14 955 PLOT 3,15,29 960 PLOT 6,3:PRINT "PRODUCT COST PER UNIT" 965 PLOT 15 970 REM 975 PLOT 3,64,0 980 FOR Q= 1TO 8000:NEXT Q 985 RETURN 1000 PLOT 12,8,17,14 1001 REM 1005 PRINT " TESTING PURITY." 1010 FOR I= 1TO 700:NEXT 1015 PLOT 30,17,12 1020 INPUT "";A 1025 GOTO 1035 1030 FOR I= 1TO 1000:NEXT :RETURN 1035 PLOT 16,12,29,17,14 1040 PRINT " CONVERGENCE TEST. " 1045 T= 500:CX= 0:CY= 2:PLOT 29,23,15,27,25,46 1050 GOSUB 1225 1055 PLOT 11 1060 INPUT " HIT RETURN TO CONTINUE TEST.";A 1065 CLEAR 1070 PLOT 12,30,17,11,10,11,10,11,10,18,11,10,18,11,10 1075 PLOT 18,11,10,19,11,10,19,11,10,19,11,10 1080 PLOT 20,11,10,20,11,10,20,11,10,21,11,10,21,11,10,21,11,10 1085 PLOT 22,11,10,22,11,10,22,11,10,23,11,10,23,11,10,23,11,10 1090 PLOT 16,10,10,10,10,10 1095 PRINT " TESTING COLOR SEPERATION." 1100 PLOT 10,10,14 1105 X= INP (129) 1110 IF X= 121THEN 1120 1115 PRINT SPC( 29)"60HZ":GOTO 1125 1120 PRINT SPC( 29)"50HZ" 1125 INPUT "";A 1130 PLOT 12 1135 T= 500:CX= 0:CY= 2:PLOT 29,23,15,27,25,72 1140 PLOT 10,10,10,10,10,10,10,11 1145 PRINT " TESTING FOCUS." 1150 PLOT 11 1155 INPUT " HIT RETURN TO CONTINUE TEST.";A 1160 X= 0 1165 PLOT 12,23 1170 PRINT " TESTING FORGROUND COLORS. " 1175 PLOT 10 1180 FOR I= 1TO 7 1185 X= 0 1190 PLOT 15 1195 PLOT 29:PRINT ;:FOR A= 64TO 95:PLOT A,32:NEXT :PRINT 1200 PLOT 29:PRINT ;:FOR A= 96TO 127:PLOT A,32:NEXT :PRINT 1205 P= P+ 1:IF P= 7THEN 1215 1210 PLOT 6,I:NEXT 1215 FOR O= 1TO 800:NEXT 1220 FOR Z= 1TO 500:NEXT Z:GOTO 1325 1225 PLOT 8 1230 PRINT "I"; 1235 PLOT 9,9,9,9 1240 PRINT "I"; 1245 PLOT 9,9,9,9,26 1250 PRINT "I"; 1255 PLOT 10,10,10,10,10,10,10,10,10,10,10,10,10,10 1260 PRINT "I"; 1265 PLOT 9,9,9,9 1270 PRINT "I"; 1275 PLOT 9,9,9,9,26 1280 PRINT "I"; 1285 PLOT 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 1290 PRINT "I"; 1295 PLOT 9,9,9,9 1300 PRINT "I"; 1301 REM 1305 PLOT 9,9,9,25,25,25,25,25,25 1310 PRINT "I"; 1315 PLOT 8,10,10,10,10 1320 RETURN 1325 FOR I= 1TO 500:PRINT I:NEXT I 1328 FOR I= 1TO 7:PLOT 6,I 1330 PLOT 2,0,127,242,0,0,127,127,127,0,0,127,255 1335 PLOT 3,64,0:FOR Z= 1TO 500:NEXT Z:NEXT I 1340 GOTO 1000