Listing of file='ISS.011U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 179, program filename = 'ISS.011U'
0010 REM ISS.011U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 COM F2$(E1)8,F3$(E1)8,F4$(E1)1
: DIM G$(2,14)8,H2$(14)8,H3$(14)8,H4$(14)1,J$63
0120 % THIS MUST BE STATEMENT 120
0170 S1$="ISS.200SISS.217SISS.254S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 190
0190 IF F9$=" "THEN 270
0210 PRINT AT(1,0,S0);"MOUNT INPUT PLATTER"
: GOSUB '254
: LIMITS T#1,N$,A1,A1,A1,A2
: ERRORGOTO 210
0240 IF O$<>"CREATE"AND A2<>2THEN 210
: IF O$="CREATE"AND A2<>0THEN 210
0270 PRINT HEX(03);"OPENING FILE"
: IF O$="CREATE"THEN GOSUB 400
: F=1
: GOSUB 700
: IF O$="PRINT"THEN 1180
: GOTO 1260
0400 IF STR(M$,1,3)="OLD"THEN 540
: GOSUB '217(N$,1,S2,E1/14+2,4,"ISS 4.0 REF"," ",0)
: IF Q$<>" "THEN 640
: A$=BIN(E+1)
: F4$()=ALL(A$)
: FOR I6=1TO E1/14
: DATA SAVE DC #1,STR(F2$(),1,112),STR(F3$(),1,112),STR(F4$(),1,14)
: NEXT I6
: GOSUB '218(N$,1," ",0)
: GOSUB '219(N$,1,S2," ",0)
: RETURN
0540 GOSUB '217(N$,1,S2,E1/14+2,4,"ISS"," ",0)
: IF Q$<>" "THEN 640
: FOR I6=1TO E1/14
: DATA SAVE DC #1,G$()
: NEXT I6
: GOSUB '218(N$,1," ",0)
: GOSUB '219(N$,1,S2," ",0)
: RETURN
0640 PRINT HEX(010A07);"UNABLE TO CREATE FILE AT DISK ADDRESS ";I1$
: GOSUB '254
: GOSUB '31
0700 IF STR(M$,1,3)="OLD"THEN 870
: GOSUB '217(N$,1,S2,-2,4,"ISS 4.0 REF"," ",0)
: IF Q$<>" "THEN 1070
: FOR I=1TO E1/14
: DATA LOAD DC #1,STR(H2$(),1),STR(H3$(),1),STR(H4$(),1)
: STR(F2$(),I*112-111,112)=H2$()
: STR(F3$(),I*112-111,112)=H3$()
: STR(F4$(),I*14-13,14)=H4$()
: NEXT I
: GOSUB '219(N$,1,S2," ",0)
: RETURN
0870 GOSUB '217(N$,1,S2,-2,4,"ISS"," ",0)
: IF Q$<>" "THEN 1070
: FOR I=1TO E1/14
: DATA LOAD DC #1,G$()
: FOR J=1TO 14
: F2$((I-1)*14+J)=G$(1,J)
: F3$((I-1)*14+J)=G$(2,J)
: NEXT J
: NEXT I
: GOSUB '219(N$,1,S2," ",0)
: IF STR(M$,5,3)="OLD"THEN RETURN
: GOSUB '200("-1","250",3,0,"ENTER DEFAULT FOR NUMBER OF EXTRA SECTORS",1)
: E=Q9
1030 K$=BIN(E+1)
: F4$()=ALL(K$)
: RETURN
1070 J$=" "
: IF Q$="M"THEN J$="FILE SPECIFIED IS NOT A REFERENCE FILE"
: IF Q$="P"AND STR(M$,1,3)="NEW"THEN J$="FILE SPECIFIED IS NOT A ISS-4 REFE
RENCE FILE"
: IF Q$="P"AND STR(M$,1,3)="OLD"THEN J$="FILE SPECIFIED IS NOT A PRE ISS-4
REFERENCE FILE"
1110 IF J$=" "THEN J$="FILE SPECIFIED WAS NOT CLOSED PROPERLY"
: PRINT HEX(07010A);J$
: GOSUB '254
: GOSUB '31
1180 PRINT HEX(03)
1190 LOAD DC T#0,"ISS.014U"
: ERRORGOTO 1200
1200 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1190
1260 LOAD DC T#0,"ISS.012U"
: ERRORGOTO 1270
1270 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1260
1330 DEFFN'31
: PRINT HEX(03)
: COM CLEAR N$
: IF F=1THEN GOSUB '219(N$,1,S2," ",0)
1370 LOAD DC T#0,"ISS.100M"
: ERRORGOTO 1380
1380 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1370