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