Listing of file='609WP100' on disk='vmedia/701-2739G.wvd.zip'
# Sector 734, program filename = '609WP100'
0010 REM '609WP100' - START MODULE FOR WP => TC CONVERSION UTILITY
0020 A5$()="609FG070Prime 62609Open CAT.VLISCAT.PRIMCAT.RD CAT.LISTCAT.FO/CCA
T.OPENREC.PRIMREC.RD"
: LOAD T<11>A5$()9999,9999BEG 80
0080 COM A5,C,D1,D4,D0$8
: A5=1
: COM U1$(2)64,U2$(8)4,V1$(3)82,V0$(1)1
0081 DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(1)1,S1$(1)1
: DIM T1(5),S6(5),S1(5),T2$(5)80
: DIM T2(2),S7(2),S2(2),S4(2),T5$(2)8
: DIM S2$(16)2
: DIM S1$2
: DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
: IF D4=0THEN B2$=" "
: D4=6
: RESTORE LINE2510
0270 GOSUB '61
: PRINT HEX(03);
: IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
0300 T5$()=R5$
: GOSUB '62
: ON T5GOTO 400,370,370
: COM CLEAR D1
: LOAD T"609menu"
0370 GOSUB 2575
: PRINT AT(23,40,);T1$;HEX(07);
: GOTO 300
0400 IF VER(T5$(1),"####A")=5THEN 440
: GOSUB 2580
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 300
0440 R5$=T5$(1)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN 510
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 300
0510 A1=V3
: GOSUB '88(A1,1,1,1,1)
: GOSUB '88(A1,1,VAL(STR(V1$(),3,2),2),1,1)
: $UNPACK(F=HEX(A019))V1$()TO A6$()
: $TRAN(A6$(1),HEX(8020))R
: GOSUB 2585
: PRINT AT(9,20);T1$;TAB(40);A6$(1)
: $TRAN(STR(A6$(2),,20),HEX(8020))R
: GOSUB 2590
: PRINT TAB(20);T1$;TAB(40);A6$(2)
: $TRAN(STR(A6$(3),,20),HEX(8020))R
: GOSUB 2595
: PRINT TAB(20);T1$;TAB(40);A6$(3)
0630 $TRAN(STR(A6$(4),,20),HEX(8020))R
: GOSUB 2600
: PRINT TAB(20);T1$;TAB(40);A6$(4)
: GOSUB '34(0)
: IF J$<>HEX(F0)THEN 740
0690 A5$="609WP100"
0700 COM CLEAR D1
: A5$()="609CloseJCATSMAL"
: LOAD T<2>A5$()
0740 PRINT AT(14,3);"---------------------------------------------------------
-----------------"
: RESTORE LINE2545
: GOSUB '61
: T5$()=" "
0790 GOSUB '62
: ON T5GOTO 880,850,850
: GOTO 690
0850 GOSUB 2575
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 790
0880 IF VER(STR(T5$(2),1,3),"H##")=3THEN 920
0890 GOSUB 2605
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 790
0920 SELECT #D4<STR(T5$(2),1,3)>
: ERRORGOTO 890
0940 D0$=T5$(1)
: LIMITS T#D4,D0$,D1,D2,S0,D3
: ERRORGOTO 890
0970 IF D3>=0THEN 1060
: IF D2-D1+1>=V0+2THEN 1030
1000 GOSUB 2610
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 790
1030 DATA SAVE DC OPEN T#D4,(D0$)D0$
: ERRORGOTO 1000
1040 GOTO 1220
1060 IF D3=0THEN 1100
: GOSUB 2615
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 790
1100 DATA SAVE DC OPEN T#D4,(V0+2)D0$
: ERRORC0=ERR
: GOTO 1140
1110 LIMITS T#D4,D1,D2,S0
: GOTO 1220
1140 B2$=" "
: IF C0=85THEN GOSUB 2620
: IF C0=86THEN GOSUB 2625
: IF B2$=" "THEN GOSUB 2630
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '34(1)
: GOTO 690
1220 DBACKSPACE #D4,BEG
: DSKIP #D4,V0S
: DATA SAVE DC #D4,END
: A5$()="609WP200REC-GEN REC-RD"
: LOAD T<3>A5$()
1280 DEFFN'88(D5,D6,D7,D8,D9)
: GOSUB '220(D5,D6,D7,D8,D9)
: IF R1$=HEX(00)THEN RETURN
: RETURN CLEAR ALL
1340 HEXUNPACKR1$TO T2$
: GOSUB 2635
: PRINT AT(23,0,);B2$;HEX(07);
: GOSUB '34(1)
: GOTO 690
1390 DEFFN'31
: A5$="609menu"
: GOTO 700
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WP Document to TC File Conversion Utility"
: DATA 4,3,2,"Please Enter Data"
: DATA 4,4,2,"Press EXECUTE to Continue :"
: DATA 4,7,20,"Document ID :"
: DATA 2,7,40,5," "
: DATA 0
2545 DATA 4,0,0,"WP Document to TC File Conversion Utility"
: DATA 4,16,20,"TC File Name :"
: DATA 2,16,40,8," "
: DATA 4,18,20,"Device Address :"
: DATA 2,18,40,3," "
: DATA 0
2575 T1$="Invalid Key"
: RETURN
2580 T1$="Invalid Document ID"
: RETURN
2585 T1$="Document Name :"
: RETURN
2590 T1$="Operator :"
: RETURN
2595 T1$="Author :"
: RETURN
2600 T1$="Comments :"
: RETURN
2605 T1$="Invalid Address"
: RETURN
2610 T1$="Unable to re-use file name"
: RETURN
2615 T1$="File Name already in use"
: RETURN
2620 B2$="Catalog Index Full"
: RETURN
2625 B2$="Disk Full"
: RETURN
2630 B2$="Error "
: CONVERT XTO STR(B2$,7,3),(###)
: B2$=B2$&" Occurred During Open"
: RETURN
2635 B2$="Error Occurred While Reading Document = "&T2$
: RETURN