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