op(BLOCKBYTEDISKMAXLEBUFFILELINBUFLEBUFAPHYSOFSTRSCRENDSCRLENGTSTRSCSCTCNERRORESUBSTARSUBEN dFORTHCON V.2.0fCOPYRIGHT H.STRIEPEhjCONVERTS BETWEENlFORTH SCREENS ANDnDOS FILESpr 82SEP05tvSET UP FOR FIG-FORTH 1.4x##CHANGE THE FOLLOWING PARAMTRSzFOR YOUR FORTH VERSION|~ NOTE THAT TO BE COMPATIBLE""WITH AMIS TYPE BBS' CARRIAGE##RETURNS ARE ADDED FOR UPLOAD,##AND REMOVED DURING CONVERSION##TO FORTH SCREENS. THIS MIGHT!!INTERFERE WITH YOUR VERSIONOF FORTH&6-@&YOUR # BLOCKS/SCREEN?6-A?YOUR #BYTES/BLOCK E.G SET TO 512 FOR VALFORTHJ +AR@"(J(#FORTHCON V.2.0 Forth DOS CONVERTER"(by HARALD E. STRIEPE("(0-(%This program is in the public domain.0(K$( Further distributionH( must contain this message.K(6-Ab'F:,@2)F:%@,@hJ( Loading ML subroutines...X(>:@(,b A6-I:,&AV88( BUFFER SIZE: P:''&@, SCREENS  ;,;@,;@d,##@@K:@67@,.67,..67@,.76-B:,@6-C:,$($( A. Forth to DOS'($( B. DOS to Forth'(2AR2( YOUR CHOICE >))@"AR@)(>:,!! @e)!@fAv_(.(#NOTE: all SCREEN # must be decimal.@A@RAR_(>:A%,"(Your physical OFFSET "*(Your STARTING SCREEN "*-% Ax&@dAA6END OF SETUPFORTH TO DOS CONV2(Your ENDING SCREEN "2-%%@-+&,$$0  &(INSUFFICIENT BUFFERSPACE0 A 6-A( (Your destination file7(DEVICE: FILENAME ;>(A(;+(#Insert Forth source disk and 8)@;(+6-$$'A(%@+6-'A(5!6-?:<@<@:R,<<<,5@A2:*("Insert DOS destin. disk and 7)@:( @@!!-'@d&@006.7$@d%@<+%@,$@d, @ @#(#(Conversion successful...)@"-@AP& )%DOS TO FORTH CONVERSION((Your DOS source file#(DEVICE: FILNAME  (#(:*("Insert DOS source disk and 7)@:(* @@* Ab6--@@@67$@d%@,.6-%@ @=-(%Insert Forth destin. disk and :)@=( -+%@,$@d -+'',%!!-+&,$$'A(&@-$$'A(%@!!6-?:<@<@:W,<<<,"@ A0%((*** IO ERROR ***% A2END OF MAIN ROUTINES THIS SUBROUTINE ADDS DISK"HANDLER ROUTINE EXPECTING$DISK DEV#,DISK COMMAND&!!(ASC("w") OR ASC("R)),start(""SECTOR,SECT COUNT,BUFFER ADD*AS USR CALL ARGUMENTS,. 6-6-%@0 -2"  4 32,68,218,104,201,5,208,746!!104,104,141,1,3,104,104,14182,3,104,141,11,3,104,141:""10,3,104,133,204,104,133,203<104,141,5,3,104,141,4,3>32,83,228,48,35,173,4,3@24,105,128,141,4,3,173,5B3,105,0,141,5,3,238,10D3,208,3,238,11,3,198,203F""208,222,198,204,16,218,160,1H132,212,96J$D:FORTHCON.BAS