image of READY prompt

Wang2200.org

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

# Sector 397, program filename = 'M/MD010A'
0010 REM .     M/MD010A,  00-00 (6/28/75),   12002
0100 DIM Q6$64,W1$1
0110 GOSUB 730
   : GOSUB '248(6,4,0)
   : PRINT "1.  4K"
   : GOSUB '248(7,4,0)
   : PRINT "2.  8K"
   : GOSUB '248(8,4,0)
   : PRINT "3.  12K"
   : GOSUB '248(9,4,0)
   : PRINT "4.  16K"
   : GOSUB '248(6,28,0)
   : PRINT "5.  20K"
   : GOSUB '248(7,28,0)
   : PRINT "6.  24K"
   : GOSUB '248(8,28,0)
   : PRINT "7.  28K"
0220 GOSUB '248(9,28,0)
   : PRINT "8.  32K"
0240 GOSUB '245("ENTER THE MEMORY SIZE (BY NUMBER)",1,0)
   : IF Q9>0THEN 280
0260 GOSUB 1250
   : GOTO 240
0280 IF Q9>8THEN 260
   : ON Q9GOTO 310,330,350,370,390,410,430,450
   : STOP "SYSTEM ERROR"
0310 S=4
   : GOTO 460
0330 S=8
   : GOTO 460
0350 S=12
   : GOTO 460
0370 S=16
   : GOTO 460
0390 S=20
   : GOTO 460
0410 S=24
   : GOTO 460
0430 S=28
   : GOTO 460
0450 S=32
0460 GOSUB 730
   : GOSUB '248(6,6,0)
   : PRINT "1.  SYSTEM DIAGNOSTIC"
   : GOSUB '248(7,6,0)
   : PRINT "2.  BURN IN DIAGNOSTIC"
   : GOSUB '248(1,0,0)
0520 GOSUB '245("CHOOSE THE TYPE OF THE TEST",1,0)
   : IF Q9>0THEN 560
0540 GOSUB 1250
   : GOTO 520
0560 IF Q9>2THEN 540
   : O3=Q9
   : GOSUB 730
   : PRINT "MEMORY SIZE = ";S;"K"
   : IF O3=2THEN 630
   : PRINT "TYPE        =  SYSTEM DIAGNOSTIC"
   : GOTO 640
0630 PRINT "TYPE        =  BURN IN DIAGNOSTIC"
0640 GOSUB '248(1,0,0)
0650 GOSUB '245("ENTER 0 TO ACCEPT, 1 TO RE-ENTER THE VALUES",1,0)
   : IF Q9=0THEN 700
   : IF Q9=1THEN 110
   : GOSUB 1250
   : GOTO 650
0700 BIN(STR(D9$(1),1,1))=S
   : CONVERT O3TO STR(D9$(1),2,1),(#)
   : LOAD DC T#6,"M/START"
0730 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - MEMORY"
   : GOSUB '248(4,0,10)
   : PRINT "---------------------------------------"
   : RETURN
0770 Q6=3
   : GOTO 1380
0790 DEFFN'254
   : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
   : W4$=Q6$
   : GOSUB '248(0,0,4)
   : Q6$=W4$
   : RETURN
0850 DEFFN'242(W0,Q6$)
   : IF W0<=0THEN 1530
   : IF W0=1THEN 890
   : STR(Q6$,2)=STR(Q6$,1,W0-1)
0890 PRINT Q6$;
   : RETURN
0910 DEFFN'243(Q6$,Q0)
   : GOSUB 1280
0930 SELECT CO 205
   : Q6$=" "
   : INPUT Q6$
   : IF Q0=0THEN 1350
   : IF LEN(Q6$)<=Q0THEN 1350
   : GOSUB 1250
0990 DEFFN'244(Q0)
   : GOSUB 1330
   : GOSUB 1300
   : GOTO 930
1030 DEFFN'245(Q6$,Q2,Q3)
   : Q0=ABS(Q2)+Q3+1
   : GOSUB 1280
1060 GOSUB '242(ABS(Q2)+2,HEX(09))
   : PRINT "/"
   : GOSUB 1330
   : SELECT CO 205
   : Q9,W0=-1E-99
   : INPUT Q9
   : IF W0=Q9THEN 1150
   : IF Q9>=0THEN 1210
   : IF Q2<=0THEN 1210
1150 GOSUB 1250
1160 DEFFN'246(Q2,Q3)
   : Q0=ABS(Q2)+Q3+1
   : GOSUB 1330
   : GOSUB 1300
   : GOTO 1060
1210 IF ABS(Q9)>=10^ABS(Q2)THEN 1150
   : W0=ABS(Q9*10^Q3)
   : IF INT(W0)<>W0THEN 1150
   : GOTO 770
1250 GOSUB 770
   : PRINT "RE-ENTER"
   : RETURN
1280 GOSUB 1530
   : PRINT HEX(010A);STR(Q6$,1);
1300 GOSUB 1530
   : GOSUB '242(Q0+2,"-")
   : PRINT TAB(64)
1330 PRINT HEX(010A0A)
   : RETURN
1350 PRINT HEX(0A);TAB(64)
   : GOTO 1530
1370 Q6=0
1380 Q7=0
   : Q8=1
1400 DEFFN'248(Q6,Q7,Q8)
   : GOSUB 1530
   : IF Q8<1THEN 1500
   : GOSUB 1500
   : SELECT PRINT 205
   : Q6$=" "
   : PRINT STR(Q6$,Q7+1)
   : IF Q8<2THEN 1500
   : FOR W0=2TO Q8
   : PRINT HEX(0A);STR(Q6$,1)
   : NEXT W0
1500 PRINT HEX(01)
   : GOSUB '242(Q7,HEX(09))
   : GOSUB '242(Q6,HEX(0A))
1530 SELECT PRINT 005(64),CO 005
   : RETURN
1550 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"