image of READY prompt

Wang2200.org

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

# Sector 1179, program filename = '609WC200'
0010 REM '609WC200' - CONVERT WANGWRITER DATA FILE TO DOCUMENT
0150 COM D0$(16),D1$(123)2,D8$5,D2$(16),D3$(16),D$(32)16,D3$4,D4$(160)1,D9$2,D
     5$(2)124,V4$1
   : COM D,D2,D3,D4,D5
   : D4=0
   : B2$=" "
   : B2$=" "
   : D2=17
   : D3$=HEX(84838286)
   : A6$(1)=C0$
   : STR(D0$(),8)=ALL(20)
   : A6$(2)=STR(D0$(),40,20)
   : A6$(3)=STR(D0$(),61,20)
   : A6$(4)=STR(D0$(),81,20)
0390 $TRAN(A6$(),J1$())
   : A7$(1)=R5$
   : A7$(3)=STR(D0$(),112,2)&STR(D0$(),115,2)
   : AND (A7$(3),7F)
   : A7$(2)=STR(D0$(),103,2)&STR(D0$(),106,2)&STR(D0$(),109,2)
   : AND (A7$(2),7F)
   : A7$(4)=STR(D0$(),118,4)&STR(D0$(),123,2)
   : AND (A7$(4),7F)
   : A7$(6)=STR(D0$(),142,2)&STR(D0$(),145,2)
   : AND (A7$(6),7F)
0550 A7$(5)=STR(D0$(),133,2)&STR(D0$(),136,2)&STR(D0$(),139,2)
   : AND (A7$(5),7F)
   : A7$(7)=STR(D0$(),148,4)&STR(D0$(),153,2)
   : AND (A7$(7),7F)
   : A7$(9)=STR(D0$(),172,2)&STR(D0$(),175,2)
   : AND (A7$(9),7F)
   : A7$(8)=STR(D0$(),163,2)&STR(D0$(),166,2)&STR(D0$(),169,2)
   : AND (A7$(8),7F)
0670 A7$(11)=STR(D0$(),187,2)&STR(D0$(),190,2)
   : AND (A7$(11),7F)
   : A7$(10)=STR(D0$(),178,2)&STR(D0$(),181,2)&STR(D0$(),184,2)
   : AND (A7$(10),7F)
   : A7$(12)=STR(D0$(),193,5)
   : A7$(13)=STR(D0$(),203,4)&STR(D0$(),208,2)
   : AND (A7$(13),7F)
   : MAT A0=ZER
   : D1$=STR(D0$(),126,6)
   : AND (D1$,7F)
   : CONVERT D1$TO A0(1)
   : ERRORA0(1)=0
0840 D1$=STR(D0$(),156,6)
   : AND (D1$,7F)
   : CONVERT D1$TO A0(2)
   : ERRORA0(2)=0
0880 D1$=STR(D0$(),199,3)
   : AND (D1$,7F)
   : CONVERT D1$TO A0(3)
   : ERRORA0(3)=0
0910 A0(3)=A0(3)+7
   : D1$=STR(D0$(),211,5)
   : AND (D1$,7F)
   : CONVERT D1$TO A0(4)
   : ERRORA0(4)=0
0970 D1$=STR(D0$(),217,6)
   : AND (D1$,7F)
   : CONVERT D1$TO A0(5)
   : ERRORA0(5)=0
1010 $PACK(F=HEX(A019A005A009))U1$()FROMA6$(),R5$,HEX(000000000000003130)
   : GOSUB '235(A1,U1$())
   : D1$()=ALL(00)
   : STR(D1$(),16)=ALL(FF)
   : STR(D1$(),1,4)=BIN(1,2)&BIN(2,2)
   : V1$()=D1$()
   : V4$="P"
   : GOSUB 1350
   : IF R1$<>HEX(00)THEN 1270
   : A8$()=HEX(001A120A0002002A002A50AA66AA01AA1AAA1AAA10AA)
   : A9$()=ALL(01)
1140 $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
   : V4$="A"
   : GOSUB 1350
   : IF R1$<>HEX(00)THEN 1270
   : A5$()="609WC300FILERS  JCATSMALREC-GEN REC-RD"
   : LOAD T<5>A5$()
1220 COM CLEAR J1$()
   : A5=1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
1270 ON VAL(R1$)GOTO 1320
   : HEXUNPACKR1$TO T2$
   : GOSUB 2307
   : IF R1$=HEX(00)THEN 1298
   : GOSUB 2540
   : PRINT AT(23,0);B2$;HEX(07)
   : GOTO 1220
1298 GOSUB 2520
   : GOTO 1220
1320 GOSUB 2530
   : GOTO 1220
1350 GOSUB '225(A1,1,1,1)
   : IF R1$<>HEX(00)THEN 1270
   : D=D+1
   : D3=D3+1
   : RETURN
1430 DEFFN'31
   : A5$="609menu"
   : GOTO 1220
2500 % DO NOT RENUMBER THE FOLLOWING
2510 B2$="(In Progress)"
   : RETURN
2520 B2$="Error occurred while adding records = "&T2$
   : RETURN
2530 B2$="Volume Full"
   : RETURN
2535 B2$="Wangwriter unable to send data"
   : RETURN
2540 B2$="Problem exiting file transfer mode"
   : RETURN