Listing of file='609INAC' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1764, program filename = '609INAC'
0010 REM 609INAC , Release 01-00, (01/31/81) - Copyright Wang Laboratories, In
c.
0180 DIM T2$2,V0$(4)64,C1$122,C3$32,U1$(8),U2$(8),C0$1,J1$2,T1$80,D7$(256)1
: $PSTAT="609INAC"
: C3$=HEX(0000040108020C030104050509060D07020806090A0A0E0B030C070D0B0E0F0F)
: LIMITS T#0,"609$TRAN",J0,J8,J8,J8
: DATA LOAD BA T#0,(J0+1)D7$()
: C9=0
: C3=INT(D4/6)+SGN(MOD(D4,6))
: PRINT HEX(0306)
: GOSUB 2020
: C6,C2=1
0260 D3=4
0270 C1=0
: FOR C6=1TO 6
: C9=C9+1
: UNPACK(####)STR(J9$(C9),1,2)TO D9
: CONVERT D9TO B0$,(####)
: J2$=STR(J9$(C9),5,1)
: $TRAN(J2$,C3$)R
: C0$=STR(J9$(C9),6,1)
: PRINT AT(D3,0);HEX(85);BOX(1,6);AT(D3,2);B0$;STR(J9$(C9),3,1);
: J0=VAL(STR(J9$(C9),4,1))*16+VAL(J2$)
: DATA LOAD BA T#D0,(J0+D1)V0$()
: $TRAN(STR(V0$(),11,100),D7$())
0330 IF STR(V0$(),245,6)<>HEX(000000000000)THEN PRINT AT(D3,8);"*";
: PRINT AT(D3,10);B5$(2);STR(V0$(),14,25);AT(D3,37);STR(V0$(),82,20);AT(D3,
59);STR(V0$(),61,20);B5$(1)
: PRINT AT(D3+1,38);"from disk ";D1$;AT(D3+1,60);STR(V0$(),40,20);
: GOSUB 2100
: PRINT AT(D3+2,0);BOX(0,79)
: D3=D3+3
: C1=C1+1
: IF C9=D4THEN C6=6
: NEXT C6
: GOSUB 2180
0395 PRINT AT(23,4);B2$;C2;AT(4,0);HEX(05);
: C6=1
: D3=4
0420 PRINT HEX(06);AT(D3,0);HEX(05);
: KEYIN J1$,,500
: PRINT HEX(06);AT(23,40,);
: ON POS(HEX(2008820D)=J1$)GOTO 525,525,465,465
: PRINT HEX(07);
: GOTO 420
0465 J2=6*(C2-1)+C6
: UNPACK(####)STR(J9$(J2),1,2)TO D9
: CONVERT D9TO B0$,(####)
: R5$=B0$&STR(J9$(J2),3,1)
: GOTO 545
0500 ON POS(HEX(46454342F00F)=J1$)GOTO 525,525,665,630,545,605
: PRINT HEX(07);
: GOTO 420
0525 GOSUB 715
: GOTO 420
0545 IF C8=0THEN 590
: GOSUB 1220
: GOSUB 1250
: IF J3=0THEN 590
: PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
: GOTO 420
0590 COM CLEAR C
: $PSTAT=" "
: LOAD T"609menu"
0605 GOSUB 840
: PRINT HEX(0306)
: GOSUB 2020
: GOTO 270
0630 IF C2-1<1THEN 645
: C2=C2-1
: GOTO 690
0645 GOSUB 2200
: PRINT AT(23,40,40);B5$(2);HEX(070E);B2$;B5$(1);
: GOTO 420
0665 IF C2+1<=C3THEN 685
: GOSUB 2220
: PRINT AT(23,40,40);B5$(2);HEX(070E);B2$;B5$(1);
: GOTO 420
0685 C2=C2+1
0690 PRINT HEX(0306)
: C9=(C2-1)*6
: GOSUB 2020
: GOTO 270
0715 PRINT HEX(06);
: ON POS(HEX(20450846)=J1$)GOTO 730,730,775,775
0730 C6=C6+1
: IF C6>C1THEN C6=1
: C7=D3+3
: IF C7>19OR C7>3*(C6+1)THEN C7=4
: D3=C7
: GOTO 825
0775 C6=C6-1
: IF C6>0THEN 810
: C6=7
0790 C6=C6-1
: IF C6>C1THEN 790
0810 C7=D3-3
: IF C7<4THEN C7=3*(C6+1)-2
: D3=C7
0825 PRINT AT(D3,0);HEX(05);
: RETURN
0840 GOSUB 2240
: PRINT HEX(06);AT(0,58);B5$(2);HEX(0E);B2$;AT(23,40,40);B5$(1);
: GOSUB '100(1,2,0,70," ")
: PRINT HEX(06);AT(0,48,32);AT(23,40,20);
: IF STR(C1$,1,2)=" "THEN 885
: CONVERT STR(C1$,1,2)TO C2
: IF C2=0THEN C2=1
: IF C2>C3THEN C2=C3
: GOTO 890
0885 C2=1
0890 C9=(C2-1)*6
: RETURN
0910 DEFFN'100(D2,J4,J7,C0,C1$)
0915 D8=1
: J1$=ALL(20)
: PRINT AT(J7,C0);
0935 PRINT HEX(05);
: KEYIN J1$,,965
: IF J1$>=HEX(30)AND J1$<=HEX(39)THEN 1145
: ON POS(HEX(080DE582)=J1$)GOTO 1105,1065,1085,1080
0965 PRINT HEX(06);AT(23,60,20);
: ON POS(HEX(F04C4D)=J1$)GOTO 1000,1020,1040
: GOSUB 2260
: PRINT HEX(0607);AT(23,60);B5$(2);HEX(0E);B2$;AT(J7,C0+D8-1);B5$(1);
: GOTO 935
1000 PRINT HEX(06);AT(23,60,20);AT(0,40,40);
: RETURN CLEAR
1015 GOTO 420
1020 D8=D8+1
: IF D8>J4THEN D8=J4
: PRINT HEX(06);AT(J7,C0+D8-1);
: GOTO 935
1040 D8=D8-1
: IF D8<1THEN D8=1
: PRINT HEX(06);AT(J7,C0+D8-1);
: GOTO 935
1060 GOTO 935
1065 $TRAN(C1$,HEX(2020))R
: RETURN
1080 RETURN
1085 C1$=ALL(20)
: PRINT HEX(06);AT(J7,C0);STR(C1$,1,J4);
: GOTO 915
1105 D8=D8-1
: IF D8>=1THEN 1130
: PRINT HEX(06);
: GOTO 915
1130 PRINT HEX(082008);
: STR(C1$,D8,1),J1$=" "
: GOTO 1205
1145 STR(C1$,D8,1)=J1$
: IF J1$=" "THEN J1$=HEX(20)
: PRINT HEX(06);J1$;
: IF D8=1THEN 1190
: J1$=" "
: D8=D8+1
: IF D8>J4THEN 1065
: GOTO 1205
1190 STR(C1$,2,J4-1)=ALL(20)
: PRINT STR(C1$,2,J4-1);AT(J7,C0+1);
: D8=D8+1
1205 PRINT HEX(06);AT(23,60,20);AT(J7,C0+D8-1);
: GOTO 935
1220 $OPEN 1230,#D0
: RETURN
1230 $BREAK255
: GOTO 1220
1250 J3=1
: C8=0
: DATA LOAD BA T#D0,(D1)V0$()
: ERRORGOTO 1335
1270 IF VER(STR(V0$(),4,5),"####A")=5THEN 1290
: GOSUB 2320
: GOTO 1320
1290 IF STR(V0$(),9,1)=HEX(00)THEN 1315
: STR(V0$(),9,1)=HEX(00)
: DATA SAVE BA T#D0,(D1)V0$()
: ERRORGOTO 1350
1315 J3=0
1320 $CLOSE#D0
: RETURN
1335 GOSUB 2280
: GOTO 1320
1350 GOSUB 2300
: GOTO 1320
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
2100 C0$=AND HEX(40)
: IF C0$=HEX(00)THEN 2140
: PRINT AT(D3+1,4);"in use";
: GOTO 2170
2140 C0$=STR(J9$(C9),6,1)
: C0$=AND HEX(80)
: IF C0$<>HEX(00)THEN PRINT AT(D3+1,4);"damaged";
: ELSE PRINT AT(D3+1,4);"available";
2170 RETURN
2180 B2$="Page"
: RETURN
2200 B2$="No previous page"
: RETURN
2220 B2$="No next page"
: RETURN
2240 B2$="Which page?"
: RETURN
2260 B2$="Digits only!"
: RETURN
2280 B2$="Please mount archive, press EXECUTE or CANCEL"
: RETURN
2300 B2$="Archive not available"
: RETURN
2320 B2$="Platter mounted is not an archive"
: RETURN