Listing of file='ISS.050S' on disk='vmedia/701-2427C.wvd.zip'
# Sector 49, program filename = 'ISS.050S'
0010 REM ISS.050S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0099 DIM X$(16)2,X0$(16)1,X1$(16,2)1,X$8,Y$32,Y1$4,Y0$32,Z$16,Z1$3
5015 DEFFN'50(X)
: X$="ISS.000D"
: CONVERT S2TO STR(X$,6,2),(##)
: DATA LOAD DC OPEN T#0,X$
: DSKIP #0,INT(X/3)+1S
: DATA LOAD DC #0,Z$()
: Z1=MOD(X,3)+1
: RETURN
5085 DEFFN'60(Y$,X0)
: PRINT HEX(0306);AT(4,24-LEN(Y$)/2);Y$;" ( STATION #";S2;")"
: X1=0
: RETURN
5135 DEFFN'61(Y$,Y0$,X$(X1+1),Y1$)
: X1=X1+1
: X0$(X1)="A"
: IF Y1$="DISK"THEN GOSUB '43(Y0$,1)
: Y=4+X1-INT(X0/2)*INT(2*X1/(X0+1))+INT(S0/80)
: IF X1<=INT(X0/2)THEN Y1=0
: ELSE Y1=32
: PRINT AT(Y,Y1);X1;Y$;" - ";Y0$
: X1$(X1,1)=BIN(Y)
: X1$(X1,2)=BIN(Y1+LEN(Y$)+6)
: RETURN
5220 DEFFN'62(Y$,Y0,X$(X1+1))
: X1=X1+1
: X0$(X1)="N"
: Y=4+X1-INT(X0/2)*INT(2*X1/(X0+1))+INT(S0/80)
: IF X1<=INT(X0/2)THEN Y1=0
: ELSE Y1=32
: PRINT AT(Y,Y1);X1;Y$;" - ";
: IF POS(Z$()<>00)=0THEN PRINT
: ELSE PRINT Y0
: X1$(X1,1)=BIN(Y)
: X1$(X1,2)=BIN(Y1+LEN(Y$)+6)
: RETURN
5305 DEFFN'70
: FOR I=1TO X0
: X9,X1=I
: IF POS(Z$(Z1)<>00)=0OR X0$(I)="D"THEN GOSUB 5410
: IF X0$(I)="D"THEN X0$(I)="A"
: NEXT I
5345 CONVERT X0+1TO Y$,(##)
: PRINT AT(VAL(X1$(X0,1))+1,0,);HEX(0A);X0+1;"SAVE DEFAULTS";TAB(33);"'15 R
ETURN TO CHANGE PARAMETERS";
: IF POS(Z$(Z1)<>00)=0THEN GOSUB '72
: GOSUB '200("0",Y$,2,0,"ENTER DESIRED FUNCTION (0 = END)",1)
: IF Q9=0THEN 5620
: X9,X1=Q9
: IF Q9=X0+1THEN GOSUB '72
: ELSE GOSUB 5410
: GOTO 5345
5410 CONVERT X$(X9)TO Y
: ON Y-79GOTO 5430,5440,5450,5460,5470,5480,5490,5500,5510,5520,5530,5540,5
550,5560,5570,5580
: STOP
5430 GOSUB '80
: GOTO 5595
5440 GOSUB '81
: GOTO 5595
5450 GOSUB '82
: GOTO 5595
5460 GOSUB '83
: GOTO 5595
5470 GOSUB '84
: GOTO 5595
5480 GOSUB '85
: GOTO 5595
5490 GOSUB '86
: GOTO 5595
5500 GOSUB '87
: GOTO 5595
5510 GOSUB '88
: GOTO 5595
5520 GOSUB '89
: GOTO 5595
5530 GOSUB '90
: GOTO 5595
5540 GOSUB '91
: GOTO 5595
5550 GOSUB '92
: GOTO 5595
5560 GOSUB '93
: GOTO 5595
5570 GOSUB '94
: GOTO 5595
5580 GOSUB '95
5590 DEFFN'71
5595 PRINT HEX(06);AT(VAL(X1$(X9,1)),VAL(X1$(X9,2))+INT(X9/10));
: IF X0$(X9)="N"THEN PRINT Z;
: ELSE PRINT Z$;
: PRINT TAB(INT(VAL(X1$(X9,2))/32)*32+32)
: RETURN
5620 PRINT AT(VAL(X1$(X0,1))+2,0,)
: RETURN
5645 DEFFN'72
: DATA LOAD DC OPEN T#0,X$
: DSKIP #0,INT(X/3)+1S
: GOSUB '51
: DATA SAVE DC #0,Z$()
: RETURN
5690 DEFFN'40(Y$)
: PRINT AT(14,0,2*S0);S$;
: FOR Z=2TO 18
: PRINT " ";S$(Z);
: NEXT Z
5725 GOSUB '200(" "," ",3,0,Y$,2)
: GOSUB '43(Q6$,0)
: IF Y1$<>HEX(00000000)THEN Z1$=Q6$
: ELSE GOTO 5775
: PRINT AT(14,0,2*S0)
: RETURN
5775 GOSUB '255
: GOTO 5725
5800 DEFFN'43(Y1$,Y)
: IF Y1$=S$THEN RETURN
: IF Y1$=" "THEN 5825
: MAT SEARCHSTR(S$(),4),=STR(Y1$,,3)TO Y1$STEP 3
: IF STR(Y1$,1,2)<>HEX(0000)THEN RETURN
5825 Y0$,Y1$=ALL(00)
: IF Y=0THEN RETURN
: STR(X0$(),X1,1)="D"
: RETURN
5860 DEFFN'44
: P$=" 000005"
: MAT SEARCHP$,=S$(1)TO P$
: IF STR(P$,1,2)=HEX(0000)THEN P$=" "
: ELSE P$="P"
: RETURN