image of READY prompt

Wang2200.org

Listing of file='SPEC010A' on disk='vmedia/701-2047D.wvd.zip'

# Sector 123, 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