Listing of file='609INAB' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1745, program filename = '609INAB'
0010 REM 609INAB WP 2.3.5 Copyright Wang Laboratories, Inc. 1986
0130 DIM T2$2,U1$(8),V0$(1)1,C1$122,U2$(8),V2$(256)1,T1$80,C0$2,C4$5,D0$2
: $PSTAT="609INAB"
: C9=0
: C3=INT(D4/6)+SGN(MOD(D4,6))
: PRINT HEX(0306)
: GOSUB 2020
: C6,C2=1
: D3=4
0195 C1=0
: FOR C6=1TO 6
: C9=C9+1
: IF C8=0THEN 250
: MAT SEARCHC8$(),=STR(J9$(C9),5,1)TO D0$
: IF D0$=HEX(0000)THEN 340
: J=VAL(D0$,2)
: B0$="DOCUMENT."&C8$(J)&"."&STR(J9$(C9),1,4)
: B9$=C9$(J)
: GOTO 255
0250 B0$="DOCUMENT."&T5$(1)&"."&J9$(C9)
0255 GOSUB '217(1,1,B0$,B9$)
: B0$=STR(B0$,1,10)
: $TRAN(U1$(),HEX(8020))R
: IF C8=0THEN C4$=J9$(C9)&T5$(1)
: ELSE C4$=J9$(C9)
: PRINT AT(D3,0);HEX(85);AT(D3,1);BOX(1,6);AT(D3,2);C4$;
: IF R1$<>HEX(00)THEN 315
: IF STR(V2$(),8,6)<>HEX(202020202020)THEN PRINT AT(D3,8);"*";
0295 PRINT AT(D3,10);B5$(2);STR(U1$(),1,25);AT(D3,37);STR(U1$(),76,20);AT(D3,5
9);STR(U1$(),51,20);B5$(1)
: PRINT AT(D3+1,37);STR(U1$(),101,5);AT(D3+1,59);STR(U1$(),26,20);
: GOSUB 2091
0315 PRINT AT(D3+2,0);BOX(0,79)
: D3=D3+3
: C1=C1+1
: IF C9=D4THEN C6=6
0340 NEXT C6
: IF C9<D4 THEN 366
: IF @L3=0 THEN 366
: GOSUB 2434
0366 GOSUB 2160
: PRINT AT(23,4);B2$;C2;AT(4,0);HEX(05);
: C6=1
: D3=4
0380 PRINT HEX(06);AT(D3,0);HEX(05);
: KEYIN C0$,,450
: PRINT HEX(06);AT(23,40,);
: ON POS(HEX(2008820D)=C0$)GOTO 475,475,425,425
: PRINT HEX(07);
: GOTO 380
0425 IF C8=0THEN R5$=J9$((C2-1)*6+C6)&T5$(1)
: ELSE R5$=J9$((C2-1)*6+C6)
: COM CLEAR C
: $PSTAT=" "
: LOAD T"609menu"
0450 ON POS(HEX(46454342F00F)=C0$)GOTO 475,475,565,530,490,505
: PRINT HEX(07);
: GOTO 380
0475 GOSUB 615
: GOTO 380
0490 COM CLEAR C
: $PSTAT=" "
: LOAD T"609menu"
0505 GOSUB 740
: PRINT HEX(0306)
: GOSUB 2020
: GOTO 195
0530 IF C2-1<1THEN C2=C3+1
: C2=C2-1
: GOTO 590
0565 IF C2+1<=C3THEN 585
: C2=0
0585 C2=C2+1
0590 PRINT HEX(0306)
: C9=(C2-1)*6
: GOSUB 2020
: GOTO 195
0615 PRINT HEX(06);
: ON POS(HEX(20450846)=C0$)GOTO 630,630,675,675
0630 C6=C6+1
: IF C6>C1THEN C6=1
: IF C6>6OR J9$((C2-1)*6+C6)=" "THEN C6=1
: C7=D3+3
: IF C7>19OR C7>3*(C6+1)THEN C7=4
: D3=C7
: GOTO 725
0675 C6=C6-1
: IF C6>0THEN 710
: C6=7
0690 C6=C6-1
: IF C6>C1THEN 690
: IF J9$((C2-1)*6+C6)=" "THEN 690
0710 C7=D3-3
: IF C7<4THEN C7=3*(C6+1)-2
: D3=C7
0725 PRINT AT(D3,0);HEX(05);
: RETURN
0740 GOSUB 2220
: PRINT HEX(06);AT(0,58);B5$(2);HEX(0E);B2$;AT(23,40,40);B5$(1);
: GOSUB '100(1,4,0,70," ")
: PRINT HEX(06);AT(0,48,32);AT(23,40,20);
: IF STR(C1$,1,3)=" "THEN 785
: CONVERT STR(C1$,1,3)TO C2
: IF C2=0THEN C2=1
: IF C2>C3THEN C2=C3
: GOTO 790
0785 C2=1
0790 C9=(C2-1)*6
: RETURN
0810 DEFFN'100(D2,J4,J7,C0,C1$)
0815 D8=1
: C0$=ALL(20)
: PRINT AT(J7,C0);
0835 PRINT HEX(05);
: KEYIN C0$,,865
: IF C0$>=HEX(30)AND C0$<=HEX(39)THEN 1045
: ON POS(HEX(080DE582)=C0$)GOTO 1005,965,985,980
0865 PRINT HEX(06);AT(23,60,20);
: ON POS(HEX(F04C4D)=C0$)GOTO 900,920,940
: GOSUB 2240
: PRINT HEX(0607);AT(23,60);B5$(2);HEX(0E);B2$;AT(J7,C0+D8-1);B5$(1);
: GOTO 835
0900 PRINT HEX(06);AT(23,60,20);AT(0,40,40);
: RETURN CLEAR
0915 GOTO 380
0920 D8=D8+1
: IF D8>J4THEN D8=J4
: PRINT HEX(06);AT(J7,C0+D8-1);
: GOTO 835
0940 D8=D8-1
: IF D8<1THEN D8=1
: PRINT HEX(06);AT(J7,C0+D8-1);
: GOTO 835
0960 GOTO 835
0965 $TRAN(C1$,HEX(2020))R
: RETURN
0980 RETURN
0985 C1$=ALL(20)
: PRINT HEX(06);AT(J7,C0);STR(C1$,1,J4);
: GOTO 815
1005 D8=D8-1
: IF D8>=1THEN 1030
: PRINT HEX(06);
: GOTO 815
1030 PRINT HEX(082008);
: STR(C1$,D8,1),C0$=" "
: GOTO 1105
1045 STR(C1$,D8,1)=C0$
: IF C0$=" "THEN C0$=HEX(20)
: PRINT HEX(06);C0$;
: IF D8=1THEN 1090
: C0$=" "
: D8=D8+1
: IF D8>J4THEN 965
: GOTO 1105
1090 STR(C1$,2,J4-1)=ALL(20)
: PRINT STR(C1$,2,J4-1);AT(J7,C0+1);
: D8=D8+1
1105 PRINT HEX(06);AT(23,60,20);AT(J7,C0+D8-1);
: GOTO 835
2020 PRINT B6$(2)
: PRINT AT(1,11);B5$(2);"Document Name";AT(1,38);"Comments";B5$(1);"/Archiv
e ID";AT(1,60);B5$(2);"Author";B5$(1);"/Operator";
: C1$=ALL(CC)
: PRINT B5$(2);STR(C1$,1,80);B5$(1);B6$(1);
: D3=4
: C6=-1
: RETURN
2091 IF STR(U1$(),109,1)=HEX(00)THEN 2100
: IF STR(U1$(),109,1)=HEX(FF)THEN PRINT AT(D3+1,4);"archived";
: GOTO 2140
2100 IF STR(V2$(),7,1)=HEX(00)AND STR(U1$(),107,1)=HEX(00)THEN 2130
: PRINT AT(D3+1,4);"in use";
: GOTO 2140
2130 IF STR(U1$(),106,1)=HEX(00)THEN PRINT AT(D3+1,4);"available";
: ELSE PRINT AT(D3+1,4);"recovered";
2140 RETURN
2160 B2$="Page"
: RETURN
2220 B2$="Which page?"
: RETURN
2240 B2$="Digits only!"
: RETURN
2422 %Warning: Program can report only ### documents. Volume has #,### docum
ents.
2424 %Consider reporting index with different selection from the 'Which Ones'
column
2426 % on the selection menu for 'Document Index'.
2428 %Consider removing documents by using 'Delete from Library' or 'File to A
rchive'
2430 % on the selection menu for 'Document Filing'.
2432 %Good luck. Hope your day is interesting and productive.
2434 PRINT
: PRINTUSING 2422,@L2,@L4
: PRINT
: PRINTUSING 2424
: PRINTUSING 2426
: PRINT
: PRINTUSING 2428
: PRINTUSING 2430
: PRINT
: PRINTUSING 2432
: PRINT
: PRINT BOX(0,79)
: RETURN