Listing of file='WDMD030A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 384, program filename = 'WDMD030A' 0010 REM . WDMD030A, 00-00 (6/28/75), 12002 0100 DIM C$(16),A$40,Q0$42,W1$1,N$8,N1$8,L$2,L$(1)2,A$(2),A1$(2,2),X(2),X1(2,2 ),H$2,H1$1,Y2$5,Y3$5 : ON ERRORE1$,E2$GOTO 1130 : A9=0 : ON O9GOTO 150,180,140,200,220,140 0140 STOP "SYSTEM ERROR" 0150 SELECT DISK 310 0160 A9=1 : GOTO 230 0180 SELECT DISK 320 : GOTO 160 0200 SELECT DISK 310 : GOTO 230 0220 SELECT DISK 320 0230 PRINT HEX(03);"MOUNT OLD SCRATCH DISK IN THE SAME DRIVE, NEW ONE IN THE O THER" : INPUT "KEY EXEC TO RESUME",Z : GOSUB 980 : IF O8=1THEN 280 : GOSUB '100 0280 PRINT "MOVE "; : E=0 : IF A9=0THEN 350 : MOVE FR : V4=1 : GOSUB 1160 : GOTO 380 0350 MOVE RF : V4=0 : GOSUB 1160 0380 GOSUB '40(24,424,800,V4) : ON O9GOTO 410,430,400,450,470,400 0400 STOP "SYSTEM ERROR" 0410 SELECT #1310 : GOTO 480 0430 SELECT #1320 : GOTO 480 0450 SELECT #1B10 : GOTO 480 0470 SELECT #1B20 0480 IF E>0THEN 500 : PRINT "OK" 0500 PRINT "COPY "; : E=0 : IF A9=0THEN 527 : COPY #4,RF(0,24) : GOTO 530 0527 COPY #3,FR(0,24) 0530 GOSUB '40(24,424,800,V4) : IF E>0THEN 560 : PRINT "OK" 0560 FOR I=1TO 200 : NEXT I : PRINT HEX(03); : IF E0=0THEN 610 : E9$(P9)="NG" 0610 SELECT PRINT 005(64) : PRINT HEX(01);TAB(64);HEX(01);"MOUNT PROGRAM DISK" : INPUT "KEY EXEC TO RESUME",Z$ : LOAD DC T#6,"S/START" 0650 DEFFN'40(V1,V2,V3,V4) : DATA LOAD BA T#1,(0,L$)C$() : GOSUB '61(STR(C$(1),1,1)) : IF V1<>VAL(STR(C$(1),2,1))THEN 930 : GOSUB '61(STR(C$(1),3,2)) : IF V4=0THEN 720 : AND (STR(C$(1),3,1),7F) 0720 GOSUB '62(STR(C$(1),3,2)) : IF V2<>V0THEN 930 : IF V4=0THEN 760 : AND (STR(C$(1),5,1),7F) 0760 GOSUB '62(STR(C$(1),5,2)) : IF V3<>V0-1THEN 930 : FOR I=1TO 10 : IF STR(C$(1),6+I,1)<>HEX(00)THEN 930 : NEXT I : RETURN 0820 DEFFN'61(W1$) : AND (W1$,80) : IF V4=0THEN 870 : IF W1$<>HEX(80)THEN 930 : RETURN 0870 IF W1$>HEX(00)THEN 930 : RETURN 0890 DEFFN'62(L$) : V0=VAL(STR(L$,1,1))*256+VAL(STR(L$,2,1)) : RETURN 0920 IF E>OTHEN 960 0930 PRINT "ERROR" : E=E+1 : E0=E0+1 0960 RETURN 0970 STOP "SYS ERROR" 0980 PRINT HEX(0A0A); : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - DISK INST" : RETURN 1010 DEFFN'100 : ON O8GOTO 1040,1060,1080 : STOP "SYSTEM ERROR" 1040 SELECT PRINT 005 : RETURN 1060 SELECT PRINT 215 : RETURN 1080 SELECT PRINT 211 : RETURN 1100 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START" 1130 E9$(P9)="NG" : PRINT "ERROR ";E1$;" AT STMT #";E2$ : GOTO 610 1160 ON O9GOTO 1180,1200,1170,1220,1240,1170 1170 STOP "SYSTEM ERROR" 1180 SELECT #1B10 : RETURN 1200 SELECT #1B20 : RETURN 1220 SELECT #1310 : RETURN 1240 SELECT #1320 : RETURN