Listing of file='ISS.013U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 213, program filename = 'ISS.013U'
0010 REM ISS.013U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0070 DIM G$(2,14)8,E$(16)16
0120 % THIS MUST BE STATEMENT 120
0140 S1$="ISS.217SISS.200SISS.254S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 160
0160 IF F9$=" "THEN 250
0180 PRINT AT(1,0,S0);"MOUNT INPUT PLATTER"
: GOSUB '254
0200 LIMITS T#1,N$,A1,A1,A1,A2
: ERRORGOTO 180
0210 IF A2<>2THEN 180
0250 IF STR(M$,1,3)="NEW"THEN GOSUB '217(N$,1,S2,-2,4,"ISS 4.0 REF"," ",0)
: ELSE GOSUB '217(N$,1,S2,-2,4,"ISS"," ",0)
: IF STR(M$,5,3)="OLD"THEN 370
: FOR I=1TO E1/14
: DATA SAVE DC #1,STR(F2$(),I*112-111,112),STR(F3$(),I*112-111,112),STR(F4$
(),I*14-13,14)
: NEXT I
: GOSUB '219(N$,1,S2," ",0)
: GOTO 490
0370 FOR I=1TO E1/14
: FOR J=1TO 14
: G$(1,J)=F2$((I-1)*14+J)
: G$(2,J)=F3$((I-1)*14+J)
: NEXT J
: DATA SAVE DC #1,G$()
: NEXT I
: GOSUB '219(N$,1,S2," ",0)
0490 LIMITS T#1,N$,I,J,I
: DATA LOAD BA T#1,(J)E$()
: IF STR(M$,5,3)="NEW"THEN E$(2)="ISS 4.0 REF"
: ELSE E$(2)="ISS"
: DATA SAVE BA T#1,(J)E$()
: PRINT AT(0,0,45)
0590 GOSUB '200("N","Y",1,0,"DO YOU WANT TO PRINT THE REFERENCE FILE ? (Y/N)
",2)
: IF Q6$="N"THEN GOSUB '31
: IF Q6$="Y"THEN 670
: GOSUB '255
: GOTO 590
0670 PRINT HEX(03)
: GOSUB '44
: IF P$="P"THEN 760
0710 LOAD DC T#0,"ISS.014U"
: ERRORGOTO 720
0720 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 710
0760 PRINT HEX(010A07);"PRINTER REQUIRED"
: GOSUB '254
: GOSUB '31
: PRINT HEX(07010A);"MOUNT INPUT PLATTER"
: GOSUB '254
: GOTO 200
0880 DEFFN'44
: P$=" 000005"
: MAT SEARCHP$,=S$(1)TO P$
: IF STR(P$,1,2)=HEX(0000)THEN P$=" "
: ELSE P$="P"
: RETURN
0960 DEFFN'31
: PRINT HEX(03)
: GOSUB '219(N$,1,S2," ",0)
: COM CLEAR N$
1000 LOAD DC T#0,"ISS.100M"
: ERRORGOTO 1010
1010 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1000