image of READY prompt

Wang2200.org

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

# Sector 1379, program filename = '609WP300'
0010 REM '609WP300' - CONVERT DOCUMENT TO TC FILE  RWL 11/30/84
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)
   : DATA SAVE DC #D4,D6$,D8$()
   : D9=2
0470 GOSUB 990
   : IF R1$<>HEX(28)AND R1$<>HEX(00)THEN 950
   : 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)
   : DATA SAVE DC #D4,D3$,D8$()
   : IF D8=0THEN 470
   : DATA SAVE DC #D4,END
   : A5$="609WP100"
0920 DATA SAVE DC CLOSE#D4
   : COM CLEAR D1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
0950 GOSUB 2500
   : GOTO 920
0990 D9=D9+1
   : GOSUB '220(A1,1,D9,1,1)
   : RETURN
2500 HEXUNPACKR1$TO T2$
   : B2$="Error occurred while reading document = "&T2$
   : RETURN