Listing of file='ISS.050U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 426, program filename = 'ISS.050U'
0010 REM ISS.050U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 COM F$9,O$15,D$7,H$32,D,I1$
: DIM Z$(3)83,Z$16,Z1$3
: DIM A$45
0120 % THIS MUST BE STATEMENT 120
0230 S1$="ISS.200SISS.254SISS.050S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 260
0260 GOSUB '50(5)
: $UNPACK(F=HEX(A003A009A00FA007))Z$(Z1)TO I1$,F$,O$,D$
: GOSUB '60("SORT DISK CATALOG",4)
: GOSUB '61("INPUT ADDRESS",I1$,"80","DISK")
: GOSUB '61("SORT OPTION",O$,"81"," ")
: GOSUB '61("OUTPUT DEVICE",D$,"82"," ")
: GOSUB '61("FILE TYPE",F$,"83"," ")
0360 GOSUB '70
: GOSUB '44
: IF D$="PRINTER"AND P$="P"THEN 580
: SELECT #1<I1$>
: Q6$=H$
: GOSUB '200(" "," ",32,0,"ENTER TITLE FOR LIST",2)
: H$=Q6$
: D=1
0490 LOAD DC T#0,"ISS.051U"
: ERRORGOTO 530
0530 PRINT AT(1,0,S0);"RE-MOUNT ISS DISK AT ";S$
: GOSUB '254
: GOTO 490
0580 PRINT HEX(010A07);"PRINTER REQUIRED"
: GOSUB '254
: GOTO 360
0630 DEFFN'15
: RETURN CLEAR ALL
0650 PRINT AT(1,0,3*S0);
: GOTO 360
0710 DEFFN'80
: GOSUB '40("ENTER INPUT ADDRESS")
: Z$,I1$=Z1$
: RETURN
0760 DEFFN'81
: PRINT AT(13,0);"1 - SORT BY NAME"
: PRINT "2 - SORT BY STARTING SECTOR"
: PRINT "3 - SORT BY INDEX SEQUENCE";
: GOSUB '200("1","4",1,0,"ENTER SORT OPTION",1)
: A$="NAME STARTING SECTORINDEX SEQUENCE"
: Z$,O$=STR(A$,Q9*15-14,15)
: PRINT AT(13,0,3*S0)
: RETURN
0900 DEFFN'82
: IF D$="CRT"THEN D$,Z$="PRINTER"
: ELSE D$,Z$="CRT"
: RETURN
0950 DEFFN'83
: PRINT AT(13,0);"1 - ALL"
: PRINT "2 - ACTIVE"
: PRINT "3 - SCRATCHED";
: GOSUB '200("1","250",3,0,"ENTER FILE TYPE",1)
: PRINT AT(13,0,3*S0)
: A$="ALL ACTIVE SCRATCHED"
: Z$,F$=STR(A$,Q9*9-8,9)
: RETURN
1110 DEFFN'51
: $PACK(F=HEX(A003A009A00FA007))Z$(Z1)FROMI1$,F$,O$,D$
: RETURN
1170 DEFFN'31
: PRINT HEX(03)
: COM CLEAR F$
1200 LOAD DC T#0,"ISS.100M"
: ERRORGOTO 1210
1210 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1200