image of READY prompt

Wang2200.org

Listing of file='M/VD010A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 24, program filename = 'M/VD010A'
0010 REM .     M/VD010A,  00-00 (6/28/75),   12002
0100 DIM Q6$64
0110 GOSUB 800
   : GOSUB '248(6,6,0)
   : PRINT "1.  310"
   : GOSUB '248(7,6,0)
   : PRINT "2.  320"
   : GOSUB '248(8,6,0)
   : PRINT "3.  350"
   : GOSUB '248(6,22,0)
   : PRINT "4.  B10"
   : GOSUB '248(7,22,0)
   : PRINT "5.  B20"
   : GOSUB '248(8,22,0)
   : PRINT "6.  360"
   : GOSUB '248(1,0,0)
0230 GOSUB '245("ENTER THE DISK ADDRESS (BY NUMBER)",1,0)
   : IF Q9>0THEN 270
0250 GOSUB 1320
   : GOTO 230
0270 IF Q9>6THEN 250
   : O5=Q9
   : GOSUB '248(6,6,4)
   : PRINT "1.    2230-1"
   : GOSUB '248(7,6,0)
   : PRINT "2.    2230-2"
   : GOSUB '248(8,6,0)
   : PRINT "3.    2230-3"
   : GOSUB '248(6,28,0)
   : PRINT "4.    2260"
   : GOSUB '248(7,28,0)
   : PRINT "5.    DISKETTE DRIVE"
0390 GOSUB '245("ENTER THE DISK MODEL NO.(1-5)",1,0)
   : IF Q9>0THEN 430
0410 GOSUB 1320
   : GOTO 390
0430 IF Q9>5THEN 410
   : A9=Q9
   : GOSUB 800
   : GOSUB '248(6,6,0)
   : PRINT "DISK ADDRESS = ";
   : ON O5GOTO 500,520,540,560,580,584
   : STOP "SYSTEM ERROR"
0500 PRINT "310"
   : GOTO 590
0520 PRINT "320"
   : GOTO 590
0540 PRINT "350"
   : GOTO 590
0560 PRINT "B10"
   : GOTO 590
0580 PRINT "B20"
   : GOTO 590
0584 PRINT "360"
0590 GOSUB '248(8,6,0)
   : PRINT "DISK MODEL   = ";
   : ON A9GOTO 630,650,670,690,710
   : STOP "SYSTEM ERROR"
0630 PRINT "2230-1"
   : GOTO 720
0650 PRINT "2230-2"
   : GOTO 720
0670 PRINT "2230-3"
   : GOTO 720
0690 PRINT "2260"
   : GOTO 720
0710 PRINT "DISKETTE DRIVE"
0720 GOSUB '248(1,0,0)
0730 GOSUB '245("ENTER 0 TO ACCEPT, 1 TO RE-ENTER",1,0)
   : IF Q9=0THEN 780
   : IF Q9=1THEN 110
   : GOSUB 1320
   : GOTO 730
0780 BIN(STR(D9$(1),7,1))=A9*16+O5
   : LOAD DC T#6,"M/START"
0800 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - PLATTER VERIFY"
   : GOSUB '248(4,0,0)
   : PRINT "----------------------------------------"
   : RETURN
0840 Q6=3
   : GOTO 1450
0860 DEFFN'254
   : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
   : W4$=Q6$
   : GOSUB '248(0,0,4)
   : Q6$=W4$
   : RETURN
0920 DEFFN'242(W0,Q6$)
   : IF W0<=0THEN 1610
   : IF W0=1THEN 960
   : STR(Q6$,2)=STR(Q6$,1,W0-1)
0960 PRINT Q6$;
   : RETURN
0980 DEFFN'243(Q6$,Q0)
   : GOSUB 1350
1000 SELECT CO 205
   : Q6$=" "
   : INPUT Q6$
   : IF Q0=0THEN 1420
   : IF LEN(Q6$)<=Q0THEN 1420
   : GOSUB 1320
1060 DEFFN'244(Q0)
   : GOSUB 1400
   : GOSUB 1370
   : GOTO 1000
1100 DEFFN'245(Q6$,Q2,Q3)
   : Q0=ABS(Q2)+Q3+1
   : GOSUB 1350
1130 GOSUB '242(ABS(Q2)+2,HEX(09))
   : PRINT "/"
   : GOSUB 1400
   : SELECT CO 205
   : Q9,W0=-1E-99
   : INPUT Q9
   : IF W0=Q9THEN 1220
   : IF Q9>=0THEN 1280
   : IF Q2<=0THEN 1280
1220 GOSUB 1320
1230 DEFFN'246(Q2,Q3)
   : Q0=ABS(Q2)+Q3+1
   : GOSUB 1400
   : GOSUB 1370
   : GOTO 1130
1280 IF ABS(Q9)>=10^ABS(Q2)THEN 1220
   : W0=ABS(Q9*10^Q3)
   : IF INT(W0)<>W0THEN 1220
   : GOTO 840
1320 GOSUB 840
   : PRINT "RE-ENTER"
   : RETURN
1350 GOSUB 1610
   : PRINT HEX(010A);STR(Q6$,1);
1370 GOSUB 1610
   : GOSUB '242(Q0+2,"-")
   : PRINT TAB(64)
1400 PRINT HEX(010A0A)
   : RETURN
1420 PRINT HEX(0A);TAB(64)
   : GOTO 1610
1440 Q6=0
1450 Q7=0
   : Q8=1
1470 DEFFN'248(Q6,Q7,Q8)
   : GOSUB 1610
   : IF Q8<1THEN 1580
   : GOSUB 1580
   : SELECT PRINT 205
   : Q6$=" "
   : PRINT STR(Q6$,Q7+1)
   : IF Q8<2THEN 1580
   : FOR W0=2TO Q8
   : PRINT HEX(0A);STR(Q6$,1)
   : NEXT W0
1580 PRINT HEX(01)
   : GOSUB '242(Q7,HEX(09))
   : GOSUB '242(Q6,HEX(0A))
1610 SELECT PRINT 005(64),CO 005
   : RETURN
1630 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"