Listing of file='SPEC010A' on disk='vmedia/701-2049C.wvd.zip'
# Sector 124, 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