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