Listing of file='ISS.010U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 165, program filename = 'ISS.010U'
0010 REM ISS.010U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 COM N$8,E,E1,M$7,O$,I1$3
: DIM Z$(3)83,Z1$3
0120 % THIS MUST BE STATEMENT 120
0160 DEFFNG(G)=INT(SPACE/238)*14
: S1$="ISS.200SISS.254SISS.050S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 290
0290 GOSUB '50(1)
: $UNPACK(F=HEX(A003A00850025002A007))Z$(Z1)TO I1$,N$,E,E1,M$
0320 GOSUB '60("CREATE REFERENCE FILE",5)
0340 PRINT AT(13,0);"1 - CREATE"
: PRINT "2 - EDIT"
: PRINT "3 - PRINT";
: F=0
: GOSUB '200("1","3",1,0,"ENTER OPTION",1)
: F=1
: PRINT AT(13,0,3*S0)
: S1$="CREATEEDIT PRINT"
: O$=STR(S1$,Q9*6-5,6)
: GOSUB '44
: IF O$="PRINT"AND P$="P"THEN 1090
: IF O$="EDIT"THEN GOSUB '60("EDIT REFERENCE FILE",4)
0460 IF O$="PRINT"THEN GOSUB '60("PRINT REFERENCE FILE",3)
: GOSUB '61("FILE NAME",N$,"80"," ")
: GOSUB '61("DISK ADDRESS",I1$,"81","DISK")
: GOSUB '61("TYPE",M$,"84"," ")
: IF O$<>"PRINT"THEN GOSUB '62("EXTRA SECTOR DEFAULT",E,"83")
: IF O$="CREATE"THEN GOSUB '62("NUMBER OF ENTRIES",E1,"82")
0540 GOSUB '70
: SELECT #1<I1$>
0580 PRINT HEX(010A);"MOUNT INPUT PLATTER"
: GOSUB '254
: LIMITS T#1,N$,A1,A1,A1,A2
: ERRORPRINT HEX(07)
: GOTO 580
0620 IF O$<>"CREATE"AND A2<>2THEN 1180
: IF O$="CREATE"AND A2<>0THEN 1260
: IF O$<>"CREATE"THEN E1=(A1-2)*14
: IF E1>FNG(G)THEN 1220
0680 LOAD DC T#0,"ISS.011U"
: ERRORGOTO 1130
0700 DEFFN'15
: RETURN CLEAR ALL
0715 IF F=0THEN 340
: PRINT AT(1,0,3*S0);
: GOTO 540
0780 DEFFN'80
: Q6$=N$
: GOSUB '200(" "," ",8,0,"ENTER REFERENCE FILE NAME",3)
: Z$,N$=Q6$
: RETURN
0830 DEFFN'81
: GOSUB '40("ENTER DISK ADDRESS")
: Z$,I1$=Z1$
: RETURN
0880 DEFFN'82
: GOSUB '200("1","994",3,0,"ENTER NUMBER OF ENTRIES",1)
: Z,E1=-INT(-Q9/14)*14
: RETURN
0930 DEFFN'83
: GOSUB '200("-1","250",3,0,"ENTER THE DEFAULT FOR NUMBER OF EXTRA SECTORS
(-1 = SAME)",1)
: Z,E=Q9
: RETURN
0980 DEFFN'84
: PRINT AT(14,0);"1 - OLD/OLD 3 - OLD/NEW"
: PRINT "2 - NEW/NEW 4 - NEW/OLD";
: GOSUB '200("1","4",1,0,"ENTER TYPE",1)
: S1$="OLD/OLDNEW/NEWOLD/NEWNEW/OLD"
: Z$,M$=STR(S1$,Q9*7-6,7)
: PRINT AT(14,0,2*S0)
: RETURN
1090 PRINT HEX(010A07);"PRINTER REQUIRED"
: GOSUB '254
: GOTO 320
1130 PRINT HEX(010A07);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: F9$="M"
: GOTO 680
1180 PRINT HEX(010A07);"FILE ";N$;" IS NOT AN ACTIVE DATA FILE"
: GOSUB '254
: GOTO 540
1220 PRINT HEX(07010A);"CURRENT MEMORY SIZE TO SMALL BY";E1-FNG(G);"ENTRIES"
: GOSUB '254
: GOTO 540
1260 PRINT HEX(010A07);"FILE ";N$;" ALREADY EXISTS ON PLATTER"
: GOSUB '254
: GOTO 540
1320 DEFFN'51
: $PACK(F=HEX(A003A00850025002A007))Z$(Z1)FROMI1$,N$,E,E1,M$
: RETURN
1380 DEFFN'31
: PRINT HEX(03)
: COM CLEAR N$
1410 LOAD DC T#0,"ISS.100M"
: ERRORGOTO 1420
1420 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1410