Listing of file='ISS.000U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 122, program filename = 'ISS.000U'
0010 REM ISS.000U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0049 COM Z9$8,Z8$8,Z1$(25)8,Z2$(25)8,Z3$(25)2,Z8,Z9
: COM M1$11,M2$11
: DIM Z$(3)83
: DIM Z5$64,I1$3,I2$3,E$50
: DIM D$48
0120 % THIS MUST BE STATEMENT 120
0240 S1$="ISS.200SISS.254SISS.050S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 270
0270 GOSUB '50(0)
: $UNPACK(F=HEX(A003A0035003A008A00BA00B))Z$(Z1)TO I1$,I2$,E,M$,M1$,M2$
: GOSUB '60("COPY/VERIFY",6)
: GOSUB '61("INPUT ADDRESS",I1$,"81","DISK")
: GOSUB '61("INPUT OPTION",M1$,"82"," ")
: GOSUB '61("MODE",M$,"83"," ")
: GOSUB '61("OUTPUT ADDRESS",I2$,"84","DISK")
0360 GOSUB '61("OUTPUT OPTION",M2$,"85"," ")
: GOSUB '62("EXTRA SECTORS",E,"86")
0390 GOSUB '70
: SELECT #1<I1$>
: SELECT #2<I2$>
: GOSUB '42(M$,E)
0460 LOAD DC T#0,"ISS.001U"
: ERRORGOTO 470
0470 PRINT AT(1,0);"RE-MOUNT ISS DISK AT ";S$;TAB(S0)
: GOSUB '254
: F9$="M"
: GOTO 460
0520 DEFFN'15
: RETURN CLEAR ALL
0535 PRINT AT(1,0,3*S0);
: GOTO 390
0590 DEFFN'81
: GOSUB '40("ENTER INPUT ADDRESS")
: Z$,I1$=Z1$
: RETURN
0640 DEFFN'84
: GOSUB '40("ENTER OUTPUT ADDRESS")
: Z$,I2$=Z1$
: RETURN
0690 DEFFN'82
: PRINT AT(13,0);"1 - COPY"
: PRINT "2 - VERIFY"
: PRINT "3 - COPY/VERIFY";
: GOSUB '200("1","3",1,0,"ENTER OPTION",1)
: D$="COPY VERIFY COPY/VERIFY"
: Z$,M1$=STR(D$,Q9*11-10,11)
: PRINT AT(13,0,3*S0)
: RETURN
0830 DEFFN'85
: PRINT AT(13,0);"1 - ADD"
: PRINT "2 - REPLACE"
: PRINT "3 - ADD/REPLACE";
: GOSUB '200("1","3",1,0,"ENTER OPTION",1)
: D$="ADD REPLACE ADD/REPLACE"
: Z$,M2$=STR(D$,Q9*11-10,11)
: PRINT AT(13,0,3*S0)
: RETURN
0970 DEFFN'83
: PRINT AT(13,0);"1 - ALL 4 - INDIRECT"
: PRINT "2 - PART 5 - PROGRAM"
: PRINT "3 - RANGE 6 - DATA";
: GOSUB '200("1","6",1,0,"ENTER OPTION",1)
: D$="ALL PART RANGE INDIRECTPROGRAM DATA "
: Z$,M$=STR(D$,Q9*8-7,8)
: PRINT AT(13,0,3*S0)
: RETURN
1110 DEFFN'86
: GOSUB '200("-1","65534",5,0,"ENTER NUMBER OF EXTRA SECTORS (-1 = SAME
)",1)
: E,Z=Q9
: RETURN
1180 DEFFN'51
: $PACK(F=HEX(A003A0035003A008A00BA00B))Z$(Z1)FROMI1$,I2$,E,M$,M1$,M2$
: RETURN
1240 DEFFN'42(Z9$,Z8)
: Z9=0
: Z8$=" "
: IF Z9$="ALL"THEN 1390
: IF Z9$="DATA"THEN 1390
: IF Z9$="PROGRAM"THEN 1390
: IF Z9$="RANGE"THEN 1460
: E$="MOUNT INPUT AND OUTPUT DISKS"
1320 PRINT AT(1,0,S0);E$;
: GOSUB '254
: IF Z9$="INDIRECT"THEN 1560
: IF Z9$="PART"THEN 1670
: STOP "ERROR"
1390 IF I1$=I2$THEN GOSUB '113(1,"MODE AND ADDRESSES INCOMPATIBLE")
: Z1$(1)=ALL(HEX(00))
: Z2$(1)=ALL(HEX(FF))
: Z3$(1)=BIN(Z8+1,2)
: F9$="M"
: RETURN
1460 IF I1$=I2$THEN GOSUB '113(1,"MODE AND ADDRESSES INCOMPATIBLE")
1470 GOSUB '200(" "," ",8,0,"ENTER BEGINNING LIMIT FOR RANGE",2)
: Z1$(1)=Q6$
: GOSUB '200(" "," ",8,0,"ENTER ENDING LIMIT FOR RANGE",2)
: Z2$(1)=Q6$
: IF Z1$(1)>=Z2$(1)THEN GOSUB '113(2,"INVALID RANGE")
: Z3$(1)=BIN(Z8+1,2)
: F9$="M"
: RETURN
1560 SELECT #3<I1$>
1580 GOSUB '200(" "," ",8,0,"ENTER REFERENCE FILE NAME",2)
: Z8$=Q6$
: LIMITS T#1,Z8$,Z,Z,Z,Z
: ERRORE$="MOUNT INPUT DISK"
: PRINT HEX(07)
: GOTO 1320
1620 IF Z<1THEN GOSUB '113(3,"NOT AN ACTIVE FILE ON INPUT DISK")
: IF Z=1THEN GOSUB '113(3,"WRONG FILE TYPE")
: RETURN
1670 PRINT AT(1,0);"ENTER FILE NAMES (0 = END)"
: PRINT AT(11,20);"INPUT OUTPUT SECTORS"
: GOTO 1800
1710 Y1=12
: FOR Y=MAX(1,Z9-1)TO Z9
: PRINT AT(Y1,15);TAB(S0);
: PRINT AT(Y1,15);Y;" ";STR(Z1$(Y),1);" ";STR(Z2$(Y),1);" ";
: IF VAL(Z3$(Y),2)-1=-1THEN PRINT AT(Y1,48);
: PRINT VAL(Z3$(Y),2)-1;TAB(10)
: Y1=Y1+1
: NEXT Y
1800 Y1=MIN(12+Z9,14)
: PRINT AT(Y1,0,63);
1830 PRINT AT(Y1,15);Z9+1;
: LINPUT ?Z1$(Z9+1)
: PRINT AT(3,0,50)
: IF Z1$(Z9+1)="0"THEN 2170
: LIMITS T#1,Z1$(Z9+1),Y,Y,Y,Y
: ERRORE$="MOUNT INPUT DISK"
: PRINT HEX(07)
: GOTO 1320
1880 IF Y<1THEN GOSUB '113(4,"NOT AN ACTIVE FILE ON INPUT DISK")
: IF Z2$(Z9+1)=" "THEN Z2$(Z9+1)=Z1$(Z9+1)
1910 PRINT AT(Y1,31);
: LINPUT Z2$(Z9+1)
: PRINT AT(3,0,50)
: LIMITS T#2,Z2$(Z9+1),Y,Y,Y,Y
: ERRORE$="MOUNT OUTPUT DISK"
: PRINT HEX(07)
: GOTO 1320
1950 IF I1$=I2$AND Z1$(Z9+1)=Z2$(Z9+1)THEN GOSUB '113(5,"NAMES AND ADDRESSES I
NCOMPATIBLE")
: IF M1$<>"VERIFY"AND M2$="ADD"AND Y<>0THEN GOSUB '113(4,"FILE ALREADY EXIS
TS ON OUTPUT DISK")
: IF M1$="VERIFY"OR M2$="REPLACE"AND Y=0THEN GOSUB '113(4,"NOT AN ACTIVE FI
LE ON OUTPUT DISK")
1980 IF Z2$(Z9+1)="0"THEN GOSUB '113(5,"INVALID NAME")
: MAT SEARCHSTR(Z2$(),1,Z9*8+1),=STR(Z2$(Z9+1),1)TO Z$STEP 8
: IF M1$<>"VERIFY"AND STR(Z$,1,2)<>HEX(0000)THEN GOSUB '113(5,"DUPLICATE OU
TPUT FILE NAME")
: Z$=" "
: IF Z3$(Z9+1)<>" "THEN Y=VAL(Z3$(Z9+1),2)-1
: ELSE Y=Z8
: $PACK(D=HEX(0020))Z$FROMY
: IF STR(Z$,1,1)=" "THEN Z$=STR(Z$,2)
2050 PRINT AT(Y1,47);
: LINPUT STR(Z$,1,5)
: IF NUM(STR(Z$,1,LEN(Z$)))<>LEN(Z$)THEN GOSUB '113(6,"INVALID ENTRY")
: CONVERT Z$TO Z
: IF Z<-1OR Z>65534THEN GOSUB '113(6,"-1<= X <=65534 (ddddd.)")
: Z3$(Z9+1)=BIN(Z+1,2)
: PRINT AT(3,0,50)
: Z9=Z9+1
: IF Z9<25THEN 1710
2170 PRINT AT(11,0,5*S0)
: PRINT AT(1,0,2*S0)
: Z8=0
: RETURN
2230 DEFFN'113(Y,E$)
: RETURN CLEAR
2250 PRINT HEX(07);AT(3,0,50);"RE-ENTER, ";E$
: ON YGOTO 390,1470,1580,1830,1910,2050
2300 DEFFN'31
: PRINT HEX(03)
: COM CLEAR Z9$
2330 LOAD DC T#0,"ISS.100M"
: ERRORGOTO 2340
2340 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 2330