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"