Listing of file='SPEC020A' on disk='vmedia/701-2049C.wvd.zip'
# Sector 501, program filename = 'SPEC020A'
0010 REM SPEC020A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 COM O$(1)3
: DIM R1$8,R2$1,R3$2,R9$8,R9$(16)
: DIM Q6$64
: DIM B$(16),B1$(1)2,A$2
: PRINT HEX(03)
0110 GOSUB '243("ENTER THE DESIRED LOADING ADDRESS OF ISS.",3)
: IF STR(Q6$,1,1)="B"THEN 160
: IF STR(Q6$,1,1)="3"THEN 160
: GOSUB 1180
: GOTO 110
0160 O$(1)=Q6$
: GOSUB '97(O$(1))
: IF Q6$="Y"THEN 220
: GOSUB 1180
: GOTO 110
0220 GOSUB '248(7,20,9)
: PRINT "NEW ISS LOADING ADDRESS = ";O$(1)
: GOSUB '98(280,2,O$(1))
: LOAD DC T#0,"SELECT"280,280
0280 % SELECT #2 GOES HERE
0310 PRINT HEX(010A);"MOUNT DISK TO BE MODIFIED AT NEW ISS ADDRESS. (0 = END)
"
: GOSUB '254
: IF Q6$="0"THEN 370
: GOSUB 420
: GOTO 310
0370 DEFFN'15
: COM CLEAR O$()
: LOAD DC T#0,"START"
0420 GOSUB '229(2,"START")
: IF R2$=HEX(10)THEN 480
: PRINT HEX(030A);"FILE - START - NOT AN ACTIVE PROGRAM FILE"
: GOSUB '254
: RETURN
0480 LIMITS T#2,"START",X,Y,Z
: DATA LOAD BA T#2,(X+1,Z)B$()
: A$=HEX(A58E)
: MAT SEARCHB$(),=A$TO B1$()
: IF B1$(1)=HEX(0000)THEN 590
: P=256*VAL(B1$(1))+VAL(STR(B1$(1),2,1))+2
: MAT COPY O$()TO B$()<P,3>
: DATA SAVE BA T#2,(X+1,Z)B$()
0590 RETURN
0610 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 660
: IF W0=1THEN 650
: STR(Q6$,2)=STR(Q6$,1,W0-1)
0650 PRINT Q6$;
0660 RETURN
0680 DEFFN'254
: GOSUB '248(2,0,1)
: INPUT "KEY RETURN(EXEC) TO RESUME ",Q6$
: W4$=Q6$
: GOSUB '248(1,0,3)
: Q6$=W4$
: RETURN
0760 DEFFN'243(Q6$,Q0)
: GOSUB 1210
0780 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 1280
: IF LEN(Q6$)<=Q0THEN 1280
: GOSUB 1180
0850 DEFFN'244(Q0)
: GOSUB 1260
: GOSUB 1230
: GOTO 780
0900 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1210
0930 IF ABS(Q2)+ABS(Q3)=0THEN 970
: GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOTO 980
0970 PRINT ,," "
0980 GOSUB 1260
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 1060
: IF ABS(Q2)+Q3=0THEN 1160
: IF Q9>=0THEN 1130
: IF Q2<=0THEN 1130
1060 GOSUB 1180
1080 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1260
: GOSUB 1230
: GOTO 930
1130 IF ABS(Q9)>=10^ABS(Q2)THEN 1060
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 1060
1160 GOSUB '248(3,0,1)
: RETURN
1180 GOSUB '248(3,0,1)
: PRINT "RE-ENTER"
: RETURN
1210 SELECT PRINT 005(64),CO 005
: PRINT HEX(010A);STR(Q6$,1);
1230 SELECT PRINT 005(64),CO 005
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
1260 PRINT HEX(010A0A)
: RETURN
1280 PRINT HEX(0A);TAB(64)
: SELECT PRINT 005(64),CO 005
: RETURN
1320 DEFFN'248(Q6,Q7,Q8)
: GOSUB 1460
: IF Q8<1THEN 1430
: GOSUB 1430
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 1430
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
1430 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
1460 SELECT PRINT 005(64),CO 005
: RETURN
1490 DEFFN'229(R9,R9$)
: DATA LOAD BA T#R9,(0,R3)R9$()
: AND (STR(R9$(1),2,1),7F)
: R4=VAL(STR(R9$(1),2,1))
: R1$=R9$
: XOR (STR(R1$,2),R1$)
: R2$=STR(R1$,8,1)
: R3$=HEX(0000)
: ADDC(R3$,R2$)
: ADDC(R3$,R2$)
: ADDC(R3$,R2$)
1650 ADD(STR(R3$,1,1),STR(R3$,2,1))
: R3=VAL(R3$)
: R3=R3-INT(R3/R4)*R4
: R5=R3
1730 DATA LOAD BA T#R9,(R3,R)R9$()
: R6=0
: FOR R7=1TO 16
: IF R3<>0THEN 1810
: IF R7<>1THEN 1810
: R7=2
1810 R2$=STR(R9$(R7),1,1)
: IF R2$=HEX(00)THEN 1900
: IF R2$=HEX(10)THEN 1870
: IF R2$<>HEX(11)THEN 1910
1870 IF STR(R9$(R7),9,8)<>R9$THEN 1910
: R6=R7
1900 R7=16
1910 NEXT R7
: IF R2$=HEX(00)THEN 2040
: IF R6<>0THEN 2040
: R2$=HEX(00)
: R3=R3-1
: IF R3=R5THEN 2040
: IF R3>=0THEN 1730
: R3=R4-1
: GOTO 1730
2040 RETURN
2070 DEFFN'97(Q6$)
: STR(Q6$,4)=HEX(00300131023203330434053506360737083809390A410B420C430D440E
450F462020)
: $TRAN(Q6$<2,2>,Q6$<4>)R
: IF STR(Q6$,2,1)>HEX(0F)THEN 2210
: IF STR(Q6$,3,1)>HEX(0F)THEN 2210
: ROTATE(STR(Q6$,2,1),4)
2140 STR(Q6$,4,1)=STR(Q6$,2,1)
: OR (STR(Q6$,4,1),STR(Q6$,3,1))
: $GIO(02000316122273404400,Q6$)
: IF STR(Q6$,8,1)<>HEX(00)THEN 2210
: Q6$="Y"
: RETURN
2210 Q6$="N"
: RETURN
2250 DEFFN'98(Q8,Q9,Q6$)
: R9$(1)=HEX(20FF0000A5D7313331300D0000FE)
: PACK(####)STR(R9$(1),3,2)FROMQ8
: CONVERT Q9TO STR(R9$(1),7,1),(#)
: STR(R9$(1),8,3)=Q6$
: LIMITS T#0,"SELECT",Q8,Q9,Q9
: DATA SAVE BA T#0,(Q8+1,Q9)R9$()
: RETURN