image of READY prompt

Wang2200.org

Listing of file='609WW300' on disk='vmedia/701-2739G.wvd.zip'

# Sector 526, program filename = '609WW300'
0010 REM '609WW300' - CONVERT DOCUMENT TO WANGWRITER FILE
0180 STR(D2$(),227,18)=HEX(0011020020000220056610130401AACA1704)
   : STR(D2$(),245,6)=B4$
   : $TRAN(STR(D2$(),245,6),D3$())
   : $TRAN(STR(D2$(),245,6),HEX(0020))R
   : STR(D2$(),252,1)=BIN(56)
   : STR(D2$(),253,1)=HEX(03)
   : D2$=BIN(D7,2)
   : STR(D2$(),254,2)=STR(D2$,2,1)&STR(D2$,1,1)
   : STR(D2$(),256,1)=HEX(DF)
   : D7$()=D2$()
0360 STR(D7$(),3,5)=HEX(FF)&"A"&D1$
   : OR (STR(D7$(),8,5),80)
   : D6$=BIN(249)&STR(D7$(),8,1)
   : D8$()=STR(D7$(),9)
   : D9=2
0470 GOSUB 990
   : IF R1$<>HEX(28)AND R1$<>HEX(00)THEN 926
   : IF R1$=HEX(28)THEN D8=1
   : D2$=BIN(D9,2)
   : MAT SEARCHD6$(),=STR(D2$,1,2)TO D1$()STEP 2
   : IF D1$()=HEX(0000)THEN 720
   : C=VAL(D1$(),2)
   : IF C<>5THEN 650
   : MAT SEARCHSTR(D6$(),7),>HEX(0000)TO D6$STEP 2
   : C=VAL(D6$,2)+6
   : D9=VAL(STR(D6$(),C),2)-1
   : GOTO 470
0650 IF C<>13THEN 720
   : MAT SEARCHSTR(D6$(),15),>HEX(0000)TO D6$STEP 2
   : C=VAL(D6$,2)+14
   : D9=VAL(STR(D6$(),C),2)-1
   : GOTO 470
0720 S7=POS(STR(V1$(),2)=8F)+1
   : IF S7=1THEN 770
   : STR(V1$(),S7)=ALL(20)
   : S7=S7-1
   : GOTO 780
0770 S7=POS(-V1$()>20)
0780 D3$=BIN(S7)
   : $TRAN(V1$(),D3$())
   : IF D1$()<>HEX(0000)THEN IF C<15THEN STR(V1$(),1,1)=STR(D5$,INT(C/2)-2,1)
   : STR(D3$,2,1)=STR(V1$(),1,1)
   : D8$()=STR(V1$(),2)
   : J2$()=D3$&D8$(1)&D8$(2)
   : GOSUB 2007
   : IF R1$=HEX(00)THEN 900
0874 ON VAL(R1$)-47GOTO 875,876,877,878,879,880,,,881,882,882,884,885,886,887,
     888,889,890,891,892,893,894,895,896,897,898,899
0875 GOSUB 2542
   : GOTO 916
0876 GOSUB 2544
   : GOTO 916
0877 GOSUB 2546
   : GOTO 916
0878 GOSUB 2548
   : GOTO 916
0879 GOSUB 2550
   : GOTO 916
0880 GOSUB 2552
   : GOTO 916
0881 GOSUB 2554
   : GOTO 916
0882 GOSUB 2556
   : GOTO 916
0883 GOSUB 2558
   : GOTO 916
0884 GOSUB 2560
   : GOTO 916
0885 GOSUB 2562
   : GOTO 916
0886 GOSUB 2564
   : GOTO 916
0887 GOSUB 2566
   : GOTO 916
0888 GOSUB 2568
   : GOTO 916
0889 GOSUB 2570
   : GOTO 916
0890 GOSUB 2572
   : GOTO 916
0891 GOSUB 2574
   : GOTO 916
0892 GOSUB 2576
   : GOTO 916
0893 GOSUB 2578
   : GOTO 916
0894 GOSUB 2580
   : GOTO 916
0895 GOSUB 2582
   : GOTO 916
0896 GOSUB 2584
   : GOTO 916
0897 GOSUB 2586
   : GOTO 916
0898 GOSUB 2588
   : GOTO 916
0899 GOSUB 2590
   : GOTO 916
0900 IF D8=0THEN 470
   : GOSUB 2107
   : IF R1$=HEX(00)THEN 912
   : ON VAL(R1$)-47GOTO 875,876,877,878,879,880,,,881,882,882,884,885,886,887,
     888,889,890,891,892,893,894,895,896,897,898,899
   : GOSUB 2530
0912 A5$="609WWBEG"
0916 GOSUB 2307
   : IF R1$=HEX(00)THEN 922
   : GOSUB 2540
0922 IF B2$=" "THEN GOTO 923
   : PRINT AT(22,0,);B2$;HEX(07);
0923 COM CLEAR D1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
0926 GOSUB 2307
   : IF R1$=HEX(00)THEN 932
   : GOSUB 2540
   : PRINT AT(23,0);B2$;HEX(07)
   : GOTO 916
0932 GOSUB 2500
   : GOTO 916
0990 D9=D9+1
   : GOSUB '220(A1,1,D9,1,1)
   : RETURN
2500 HEXUNPACKR1$TO T2$
   : B2$="Error occurred while reading document = "&T2$
   : RETURN
2530 B2$="Error occurred in end of file"
   : RETURN
2540 B2$="Error occurred in exiting file transfer mode"
   : RETURN
2542 B2$="Operation Not Done"
   : RETURN
2544 B2$="Drive Not Ready"
   : RETURN
2546 B2$="Write Protected"
   : RETURN
2548 B2$="Disk CRC Error"
   : RETURN
2550 B2$="Disk Format Error"
   : RETURN
2552 B2$="Drive Malfunction"
   : RETURN
2554 B2$="Programming Error"
   : RETURN
2556 B2$="Drive Dropped Ready"
   : RETURN
2558 B2$="Document Not Found"
   : RETURN
2560 B2$="Invalid FRN"
   : RETURN
2562 B2$="File Not Open"
   : RETURN
2564 B2$="Document in Use"
   : RETURN
2566 B2$="Invalid Class"
   : RETURN
2568 B2$="Unsupported Diskette"
   : RETURN
2570 B2$="No Room on Diskette"
   : RETURN
2572 B2$="Invalid Page Number"
   : RETURN
2574 B2$="Document(s) Still in Use"
   : RETURN
2576 B2$="Volume Label Damaged"
   : RETURN
2578 B2$="No Room on Diskette"
   : RETURN
2580 B2$="Document Exists"
   : RETURN
2582 B2$="Not an Archive Disk"
   : RETURN
2584 B2$="Not a System Disk"
   : RETURN
2586 B2$="Copy Incomplete"
   : RETURN
2588 B2$="Run Recovery"
   : RETURN
2590 B2$="Number of Retries Exceeds Limit"
   : RETURN