image of READY prompt

Wang2200.org

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