Listing of file='PRVD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 370, program filename = 'PRVD010A' 0010 REM . PRVD010A, 00-00 (6/28/75), 12002 0100 DIM D$(4)64,Q6$64,P$30,W0$1,W1$1 : GOTO 450 0120 P=INT(RND(1)*29)+1 : INIT(STR(P$,P,1))D$() : A9=INT(A0/256) : A8=A0-A9*256 : BIN(STR(D$(4),62))=A9 : BIN(STR(D$(4),63))=A8 : BIN(STR(D$(4),64))=P : PRINT " VERIFY ON SECTORS ";A0;" - ";A0+3 : PRINT HEX(0C); : DATA SAVE BA T$#1,(A0,A0)D$() 0220 DATA SAVE BA T$#1,(A0,A0)D$() : DATA SAVE BA T$#1,(A0,A0)D$() : DATA SAVE BA T$#1,(A0,A0)D$() : IF A0<A1THEN 120 : GOSUB '248(7,6,2) : PRINT "PLATTER IS O.K. FOR USE" : GOSUB '248(1,0,5) : E9$(P9)="OK" 0300 GOSUB '243("ANY MORE PLATTERS TO BE VERIFIED (Y/N)",1) : IF Q6$="N"THEN 350 : IF Q6$="Y"THEN 840 : GOSUB 1510 : GOTO 300 0350 PRINT HEX(03);"MOUNT THE PROGRAM DISK, KEY (EXEC) TO RESUME"; : INPUT Z : IF O8=1THEN 390 : SELECT PRINT 215 0390 LOAD DC T#6,"S/START" 0400 ON ERRORE1$,E2$GOTO 410 0410 E9$(P9)="NG" : GOSUB '248(7,6,2) : PRINT "PLATTER IS BAD AT SECTOR #";A0-3;" - ";A0 : GOTO 300 0450 P$=HEX(0FAA2D553CB4AA69F055E1AAC34B552DAA7855AAB4554BC3AA0FAAB45587AA96) : P9=P9+1 : W0$,W1$=STR(D9$(1),7,1) : AND (W0$,F0) : W0=VAL(W0$)/16 : AND (W1$,0F) : W1=VAL(W1$) : ON W0GOTO 540,570,600,630,660 0530 STOP "SYSTEM ERROR" 0540 M$="2230-1" : A1=2399 : GOTO 680 0570 M$="2230-2" : A1=4799 : GOTO 680 0600 M$="2230-3" : A1=9791 : GOTO 680 0630 M$="2260" : A1=19583 : GOTO 680 0660 M$="DISKETTE DRIVE" : A1=1023 0680 ON W1GOTO 700,730,760,790,820,835 : STOP "SYSTEM ERROR" 0700 D$="310" : SELECT #1310 : GOTO 840 0730 D$="320" : SELECT #1320 : GOTO 840 0760 D$="350" : SELECT #1350 : GOTO 840 0790 D$="B10" : SELECT #1B10 : GOTO 840 0820 D$="B20" : SELECT #1B20 : GOTO 840 0835 D$="360" : SELECT #1360 0840 SELECT PRINT 005 : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - PLATTER VERIFY" : PRINT "------------------------------------------" : GOSUB '248(4,6,0) : PRINT "UNIT ADDRESS = ";D$ : GOSUB '248(4,30,0) : PRINT "TOTAL SECTOR = ";A1+1 0910 GOSUB '248(5,6,0) : PRINT "DISK MODEL = ";M$ : GOSUB '248(7,6,0) : PRINT "MOUNT SCRATCH DISK IN UNIT ";D$ : GOSUB '248(8,6,0) : INPUT "KEY (EXEC) TO RESUME",Z : GOSUB '248(7,0,3) : A0=0 : GOTO 120 1000 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START" 1030 Q6=3 : GOTO 1640 1050 DEFFN'254 : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0) : W4$=Q6$ : GOSUB '248(0,0,4) : Q6$=W4$ : RETURN 1110 DEFFN'242(W0,Q6$) : IF W0<=0THEN 1790 : IF W0=1THEN 1150 : STR(Q6$,2)=STR(Q6$,1,W0-1) 1150 PRINT Q6$; : RETURN 1170 DEFFN'243(Q6$,Q0) : GOSUB 1540 1190 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 1610 : IF LEN(Q6$)<=Q0THEN 1610 : GOSUB 1510 1250 DEFFN'244(Q0) : GOSUB 1590 : GOSUB 1560 : GOTO 1190 1290 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1540 1320 GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOSUB 1590 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 1410 : IF Q9>=0THEN 1470 : IF Q2<=0THEN 1470 1410 GOSUB 1510 1420 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1590 : GOSUB 1560 : GOTO 1320 1470 IF ABS(Q9)>=10^ABS(Q2)THEN 1410 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 1410 : GOTO 1030 1510 GOSUB 1030 : PRINT "RE-ENTER" : RETURN 1540 GOSUB 1790 : PRINT HEX(010A);STR(Q6$,1); 1560 GOSUB 1790 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 1590 PRINT HEX(010A0A) : RETURN 1610 PRINT HEX(0A);TAB(64) : GOTO 1790 1630 Q6=0 1640 Q7=0 : Q8=1 1660 DEFFN'248(Q6,Q7,Q8) : GOSUB 1790 : IF Q8<1THEN 1760 : GOSUB 1760 : SELECT PRINT 205 : Q6$=" " : PRINT STR(Q6$,Q7+1) : IF Q8<2THEN 1760 : FOR W0=2TO Q8 : PRINT HEX(0A);STR(Q6$,1) : NEXT W0 1760 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 1790 SELECT PRINT 005(64),CO 005 : RETURN