Listing of file='SPEC010A' on disk='vmedia/701-2048D.wvd.zip'
# Sector 572, program filename = 'SPEC010A' 0010 REM SPEC010A,00-00(04/11/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0130 DIM Q6$64,W$8,W3$3,W4$1,W$(3)8,Q4(3),Q5(3) : DIM A2$8 : GOSUB 1530 : PRINT HEX(03) : DATA LOAD DC OPEN T#0,"MEMORY" : DATA LOAD DC #0,A1,A2$,A3,A4 : DATA LOAD DC #0,A5 0230 GOSUB 720 0250 GOSUB '245("ENTER THE NUMBER OF THE FIELD TO CHANGE. (0=END)",1,0) : IF Q9=0THEN 560 : IF Q9<3THEN 300 : GOSUB 1260 : GOTO 250 0300 ON Q9GOSUB 330,420 : GOTO 230 0330 GOSUB '245("ENTER SYSTEM MEMORY SIZE. (8,12,16...32)",2,0) : IF INT(Q9/4)<>Q9/4THEN 370 : IF Q9<8THEN 370 : IF Q9<33THEN 390 0370 GOSUB 1260 : GOTO 330 0390 A1=Q9 : RETURN 0420 GOSUB '248(11,0,0) : PRINT ,"ADDRESSES AVAILABLE" : PRINT ," 0 - VARIABLE" : PRINT ," 1 - 310 4 - B10" : PRINT ," 2 - 320 5 - B20" : PRINT ," 3 - 330 6 - B30";HEX(01) 0480 GOSUB '245("ENTER THE NUMBER OF THE DESIRED LOADING ADDRESS OF APPLICATIO NS.",1,0) : IF Q9<7THEN 520 : GOSUB 1260 : GOTO 480 0520 A4=Q9 : RETURN 0560 DATA LOAD DC OPEN T#0,"MEMORY" : DATA SAVE DC #0,A1,A2$,A3,A4 : DATA SAVE DC #0,A5 : PRINT HEX(03) 0620 GOSUB '243("DO YOU WANT TO CHANGE THE LOADING ADDRESS OF ISS? (Y/N)",1) : IF Q6$="N"THEN 680 : IF Q6$="Y"THEN 670 : GOSUB 1260 : GOTO 620 0670 LOAD DC T#0,"SPEC020A" 0680 DEFFN'15 : LOAD DC T#0,"START" 0720 GOSUB '248(7,0,0) : PRINT TAB(18);"1. MEMORY SIZE =";A1 : PRINT TAB(18);"2. APPLICATION SELECTION NUMBER =";A4 : GOSUB '248(9,0,7) : RETURN 0780 DEFFN'242(W0,Q6$) : IF W0<=0THEN 820 : INIT(Q6$)Q6$ : PRINT STR(Q6$,1,W0); 0820 RETURN 0840 DEFFN'243(Q6$,Q0) : GOSUB 1290 0860 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 1360 : IF LEN(Q6$)<=Q0THEN 1360 : GOSUB 1260 0930 DEFFN'244(Q0) : GOSUB 1340 : GOSUB 1310 : GOTO 860 0980 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1290 1010 IF ABS(Q2)+ABS(Q3)=0THEN 1050 : GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOTO 1060 1050 PRINT ,," " 1060 GOSUB 1340 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 1140 : IF ABS(Q2)+Q3=0THEN 1240 : IF Q9>=0THEN 1210 : IF Q2<=0THEN 1210 1140 GOSUB 1260 1160 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1340 : GOSUB 1310 : GOTO 1010 1210 IF ABS(Q9)>=10^ABS(Q2)THEN 1140 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 1140 1240 GOSUB '248(3,0,1) : RETURN 1260 GOSUB '248(3,0,1) : PRINT "RE-ENTER" : RETURN 1290 SELECT PRINT 005(64),CO 005 : PRINT HEX(010A);STR(Q6$,1); 1310 SELECT PRINT 005(64),CO 005 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 1340 PRINT HEX(010A0A) : RETURN 1360 PRINT HEX(0A);TAB(64) : SELECT PRINT 005(64),CO 005 : RETURN 1400 DEFFN'248(Q6,Q7,Q8) : GOSUB 1530 : IF Q8<1THEN 1500 : GOSUB 1500 : SELECT PRINT 205 : PRINT TAB(64-Q7) : IF Q8<2THEN 1500 : FOR W0=2TO Q8 : PRINT HEX(0A);TAB(64) : NEXT W0 1500 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 1530 SELECT PRINT 005(64),CO 005 : RETURN