Listing of file='ISS.014U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 224, program filename = 'ISS.014U' 0010 REM ISS.014U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0120 % THIS MUST BE STATEMENT 120 0130 %### ######## ######## -### 0180 S1$="ISS.254S" : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 200 0200 SELECT #4<S$(1)> : IF STR(M$,5,3)="OLD"THEN F4$()=ALL(01) : GOSUB '94 : PRINT HEX(03);"PRINTING REFERENCE FILE" : SELECT PRINT <S$(1)> : PRINT HEX(0D0C0E);"REFERENCE FILE - ";N$;TAB(30);Q1$ : PRINT : PRINT "ENTRY INPUT OUTPUT X-SEC "; : PRINT "ENTRY INPUT OUTPUT X-SEC" : FOR I=1TO E1/2 0340 IF F2$(I)=" "THEN PRINTUSING 130,I; : ELSE PRINTUSING 130,I,F2$(I),F3$(I),VAL(F4$(I))-1; : PRINT TAB(33); : J=I+E1/2 : IF F2$(J)=" "THEN PRINTUSING 130,J : ELSE PRINTUSING 130,J,F2$(J),F3$(J),VAL(F4$(J))-1 : NEXT I : GOSUB '31 0430 DEFFN'94 0450 $OPEN 520,#4 0460 $GIO#4(010A02001212400040004000,A$) : IF STR(A$,8,1)=HEX(00)THEN RETURN : PRINT AT(1,0,S0);"SELECT PRINTER" : $BREAK255 : GOTO 460 0520 PRINT AT(1,0,S0);"PRINTER HOGGED" : $BREAK255 : GOTO 450 0580 DEFFN'31 : SELECT PRINT 005 : PRINT HEX(03) : $CLOSE#4 : COM CLEAR N$ 0630 LOAD DC T#0,"ISS.100M" : ERRORGOTO 640 0640 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$ : GOSUB '254 : GOTO 630