image of READY prompt

Wang2200.org

Listing of file='609WW200' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1156, program filename = '609WW200'
0010 REM '609WW200' - CONVERT DOCUMENT TO WANGWRITER FILE
0160 COM D1$3,D1$(1)2,D2$(16),D3$2,D3$(16),D4$(16),D5$(3)82,D6$2,D6$(3)82,D7$(
     16),D8$(2)124,D5$3
   : COM D0,D2,D3,D4,D5,D6,D8,D9
   : COM V1$(3)82,V4$1
   : B2$=" "
   : B2$=" "
   : D8=0
   : D5$=HEX(848382)
   : LIMITS T#0,"609$TRAN",D2,D3,D5,D6
   : DATA LOAD BA T#0,(D2)D3$()
   : CONVERT STR(R5$,1,4)TO S7
   : PACK(####)D1$FROMS7
0330 STR(D1$,3,1)=STR(R5$,5,1)
   : GOSUB 1480
   : IF R1$<>HEX(00)THEN 1440
   : D6$()=V1$()
   : GOSUB 1480
   : IF R1$<>HEX(00)THEN 1440
   : D5$()=V1$()
   : $UNPACK(F=HEX(A019A0066006A002A001))D5$()TO A6$(),A7$(),A0(),A8$(),A9$()
   : D2$()=ALL(00)
   : STR(D2$(),14,25)=A6$(1)
   : $TRAN(STR(D2$(),14,25),D3$())
   : STR(D2$(),40,20)=A6$(2)
0520 $TRAN(STR(D2$(),40,20),D3$())
   : STR(D2$(),61,20)=A6$(3)
   : $TRAN(STR(D2$(),61,20),D3$())
   : STR(D2$(),81,20)=A6$(4)
   : $TRAN(STR(D2$(),81,20),D3$())
   : STR(D2$(),8,5)=A7$(1)
   : OR (A7$(3),80)
   : STR(D2$(),112,2)=A7$(3)
   : STR(D2$(),115,2)=STR(A7$(3),3)
   : OR (A7$(2),80)
   : STR(D2$(),103,2)=A7$(2)
0680 STR(D2$(),106,2)=STR(A7$(2),3,2)
   : STR(D2$(),109,2)=STR(A7$(2),5,2)
   : OR (A7$(4),80)
   : STR(D2$(),118,4)=A7$(4)
   : STR(D2$(),123,2)=STR(A7$(4),5,2)
   : OR (A7$(6),80)
   : STR(D2$(),142,2)=A7$(6)
   : STR(D2$(),145,2)=STR(A7$(6),3,2)
   : OR (A7$(5),80)
   : STR(D2$(),133,2)=A7$(5)
   : STR(D2$(),136,2)=STR(A7$(5),3,2)
0820 STR(D2$(),139,2)=STR(A7$(5),5,2)
   : OR (A7$(7),80)
   : STR(D2$(),148,4)=A7$(7)
   : STR(D2$(),153,2)=STR(A7$(7),5,2)
   : OR (A7$(9),80)
   : STR(D2$(),172,2)=A7$(9)
   : STR(D2$(),175,2)=STR(A7$(9),3,2)
   : OR (A7$(8),80)
   : STR(D2$(),163,2)=A7$(8)
   : STR(D2$(),166,2)=STR(A7$(8),3,2)
   : STR(D2$(),169,2)=STR(A7$(8),5,2)
0970 STR(D2$(),187,2),STR(D2$(),190,2)="00"
   : STR(D2$(),178,2)=STR(R2$,,2)
   : STR(D2$(),181,2)=STR(R2$,3,2)
   : STR(D2$(),184,2)=STR(R2$,5,2)
   : STR(D2$(),193,5)=D4$
   : OR (A7$(13),80)
   : STR(D2$(),203,4)=A7$(13)
   : STR(D2$(),208,2)=STR(A7$(13),5,2)
   : CONVERT A0(1)TO D2$,(######)
   : GOSUB 1380
   : OR (D2$,80)
   : STR(D2$(),126,6)=D2$
1150 CONVERT A0(2)TO D2$,(######)
   : GOSUB 1380
   : OR (D2$,80)
   : STR(D2$(),156,6)=D2$
   : CONVERT A0(3)-7TO D2$,(###)
   : GOSUB 1380
   : OR (D2$,80)
   : STR(D2$(),199,3)=D2$
   : CONVERT A0(4)TO D2$,(#####)
   : GOSUB 1380
   : OR (D2$,80)
   : STR(D2$(),211,5)=D2$
   : CONVERT A0(5)TO D2$,(######)
   : GOSUB 1380
   : OR (D2$,80)
   : STR(D2$(),217,6)=D2$
   : A5$()="609WW300FILERS  REC-GEN REC-RD"
1360 LOAD T<4>A5$()
1380 IF STR(D2$,1,1)>"0"THEN RETURN
   : IF POS(D2$>"0")=0THEN D2$=" "
   : ELSE STR(D2$,1,POS(D2$>"0")-1)=" "
   : RETURN
1410 REM DATA SAVE DC CLOSE #D4
1420 COM CLEAR D1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
1440 GOSUB 2307
   : IF R1$<>HEX(00)THEN 1445
   : GOSUB 2535
   : PRINT AT(23,0);B2$;HEX(07)
   : GOTO 1420
1445 GOSUB 2510
   : GOTO 1410
1480 D9=D9+1
   : GOSUB '220(A1,1,D9,1,1)
   : RETURN
2500 B2$="(In Progress)"
   : RETURN
2510 HEXUNPACKR1$TO T2$
   : B2$="Error occurred while reading document = "&T2$
   : RETURN
2535 B2$="Problem exiting file transfer mode"
   : RETURN