Listing of file='609WC300' on disk='vmedia/701-2739G.wvd.zip'
# Sector 574, program filename = '609WC300'
0010 REM '609WC300' - CONVERT WANGWRITER DATA FILE TO DOCUMENT
0145 B2$=" "
: GOSUB 2210
: IF R1$=HEX(00)THEN 216
: ON VAL(R1$)-47GOTO 164,165,166,167,168,169,,,170,171,172,173,174,175,176,
177,178,179,180,181,182,183,184,185,186,187,188
0164 GOSUB 2552
: GOTO 210
0165 GOSUB 2554
: GOTO 210
0166 GOSUB 2556
: GOTO 210
0167 GOSUB 2558
: GOTO 210
0168 GOSUB 2560
: GOTO 210
0169 GOSUB 2562
: GOTO 210
0170 GOSUB 2564
: GOTO 210
0171 GOSUB 2566
: GOTO 210
0172 GOSUB 2568
: GOTO 210
0173 GOSUB 2570
: GOTO 210
0174 GOSUB 2572
: GOTO 210
0175 GOSUB 2574
: GOTO 210
0176 GOSUB 2576
: GOTO 210
0177 GOSUB 2578
: GOTO 210
0178 GOSUB 2580
: GOTO 210
0179 GOSUB 2582
: GOTO 210
0180 GOSUB 2584
: GOTO 210
0181 GOSUB 2586
: GOTO 210
0182 GOSUB 2588
: GOTO 210
0183 GOSUB 2590
: GOTO 210
0184 GOSUB 2592
: GOTO 210
0185 GOSUB 2594
: GOTO 210
0186 GOSUB 2596
: GOTO 210
0187 GOSUB 2598
: GOTO 210
0188 GOSUB 2600
0210 GOSUB 2307
: IF R1$=HEX(00)THEN 212
0212 PRINT AT(23,0);B2$;HEX(07)
: GOTO 475
0216 D9$=STR(J2$(),,2)
: D5$()=STR(J2$(),3,248)
: D=3
: IF STR(D9$,2,1)<>HEX(84)THEN 260
: V4$="F"
: GOSUB '84(4)
0260 IF STR(D9$,2,1)<>HEX(83)THEN 300
: V4$="H"
: GOSUB '84(5)
0300 IF STR(D9$,2,1)<>HEX(82)THEN 360
: V4$="W"
: GOSUB '84(6)
0360 V4$="T"
: D6=7
0400 GOSUB '83
: IF D4=0THEN 400
0430 V1$()=D1$()
: V4$="P"
: GOSUB '221(A1,1,1,1,1)
0470 IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
0475 COM CLEAR J1$()
: GOSUB 2307
: IF R1$=HEX(00)THEN 480
0480 A5=1
: A5$()="609CloseJCATSMAL"
: LOAD T<2>A5$()
0520 GOSUB 2510
: GOTO 430
0550 ON VAL(R1$)GOTO 600
: HEXUNPACKR1$TO T2$
: GOSUB 2520
: GOTO 470
0600 GOSUB 2530
: GOTO 470
0640 DEFFN'83
: D6=D6+1
0670 DEFFN'84(D6)
: IF D6>123THEN 520
: D1$(D6)=BIN(D,2)
: D3=1
: D2$()=ALL(20)
0770 STR(D0$(),8)=STR(D9$,2)&D5$()
: $TRAN(STR(D0$(),8,1),HEX(868486838682))R
: $TRAN(STR(D0$(),8),J1$())
: IF D3=1AND POS(D2$()>20)=0THEN D4$()=STR(D0$(),8,POS(STR(D0$(),8)=83))
: D1=VAL(D9$)
: IF D1>0THEN GOSUB '85(STR(D0$(),8,D1))
: GOSUB 2210
: IF R1$=HEX(01)THEN D4=1
: IF D4=1THEN 994
: IF R1$=HEX(00)THEN 974
0885 ON VAL(R1$)-47GOTO 164,165,166,167,168,169,,,170,171,172,173,174,175,176,
177,178,179,180,181,182,183,184,185,186,187,188
: PRINT AT(23,0);B2$;HEX(07)
0974 D9$=STR(J2$(),,2)
: D5$()=STR(J2$(),3,248)
: IF END THEN D4=1
: IF D4=1THEN 994
: IF POS(STR(D3$,1)=STR(D9$,2,1))=0THEN 770
: IF D6<>123THEN GOSUB '85(HEX(8F))
0994 IF POS(-D2$()>20)=0THEN 1002
: V1$()=D2$()
: GOSUB 1540
: IF R1$<>HEX(00)THEN 550
1002 RETURN
1030 DEFFN'85(D3$())
1050 IF POS(-D2$()>20)+POS(-D3$()>20)>245THEN 1090
: STR(D2$(),POS(D2$()=20))=D3$()
: RETURN
1090 S7=POS(-D2$()>20)
: IF S7=0THEN 1130
: V1$()=STR(D2$(),1,S7)
: D2$()=" "
1130 IF S7<246THEN STR(V1$(),1+S7)=STR(D3$(),1,246-S7)
: D3$()=STR(D3$(),246-S7+1)
: IF D3=D2THEN 1240
: GOSUB 1540
: IF POS(-D3$()>20)>245THEN 1090
: D2$()=D3$()
: RETURN
1240 GOSUB 2540
: S8=POS(V1$()=86)
: IF S8=0THEN 1320
: S9=POS(STR(V1$(),S8)=83)+S8-1
: IF S9=S8-1THEN S8=S8-1
: ELSE S8=S9+1
: GOTO 1350
1320 S8=POS(STR(V1$(),230)=80)+229
: IF S8=229THEN S8=245
1350 D$()=STR(V1$(),S8)
: IF D6<>123THEN STR(V1$(),S8)=HEX(8F)
: ELSE STR(V1$(),S8)=" "
: GOSUB 1540
: D3=1
: D6=D6+1
: IF D6>123THEN 520
: D1$(D6)=BIN(D,2)
: D2$()=D4$()
: D$()=D$()&D3$()
: D3$()=D$()
: GOTO 1050
1540 GOSUB '225(A1,1,1,1)
: IF R1$<>HEX(00)THEN 550
: D=D+1
: D3=D3+1
: RETURN
1620 DEFFN'31
: A5$="609menu"
: GOTO 470
2500 % DO NOT RENUMBER THE FOLLOWING
2510 B2$="Too many pages, document partially retrieved"
: RETURN
2520 B2$="Error occurred while adding records = "&T2$
: RETURN
2530 B2$="Volume Full"
: RETURN
2540 B2$="Warning : a page was split in document due to size limits"
: RETURN
2550 B2$="Unable to transfer data"
: RETURN
2552 B2$="Operation Not Done"
: RETURN
2554 B2$="Drive Not Ready"
: RETURN
2556 B2$="Write Protected"
: RETURN
2558 B2$="Disk CRC Error"
: RETURN
2560 B2$="Disk Format Error"
: RETURN
2562 B2$="Drive Malfunction"
: RETURN
2564 B2$="Programming Error"
: RETURN
2566 B2$="Drive Dropped Ready"
: RETURN
2568 B2$="Document Not Found"
: RETURN
2570 B2$="Invalid FRN"
: RETURN
2572 B2$="File Not Open"
: RETURN
2574 B2$="Document in Use"
: RETURN
2576 B2$="Invalid Class"
: RETURN
2578 B2$="Unsupported Diskette"
: RETURN
2580 B2$="No Room on Diskette"
: RETURN
2582 B2$="Invalid Page Number"
: RETURN
2584 B2$="Document(s) Still in Use"
: RETURN
2586 B2$="Volume Label Damaged"
: RETURN
2588 B2$="No Room on Diskette"
: RETURN
2590 B2$="Document Exists"
: RETURN
2592 B2$="Not an Archive Disk"
: RETURN
2594 B2$="Not a System Disk"
: RETURN
2596 B2$="Copy Incomplete"
: RETURN
2598 B2$="Run Recovery"
: RETURN
2600 B2$="Number of Retries Exceeds Limit"
: RETURN