image of READY prompt

Wang2200.org

Listing of file='609INAC' on disk='vmedia/731-0067G.wvd.zip'

# Sector 1739, 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