AMOS Basic V1.233| J8 ****************************************************** J8 ** ASCII FILE PRINTER - BY DAVID BOUCHER - (C) 1991 ** J8 ** VERSION 1.1 ** J8 ** RIPOFFWARE SOFTWARE PRODUCTIONS ** J8 ****************************************************** JJ See .doc file for more info J> &*v$bxx\y\ xx\yy\t\zt>D> D>x\y xx>\yy>t>D> D>x>\y> xx\yy t>D>T D>&x>\y> xx>\yy>&Dz>hz\x\y xx\yy'vHtboxx\y\ txt\md\zOmd>bxx>\y> \xtt txt|>|>\y>\md\z (md>P>\>TP>\>Jx\y\ txt)v*6xinputtxt\ml\ pos\cx\cy~nocttxt| xcx\cyvtxt^tmltnoc>||xcx pos\cy~8 $ltr|t|  $ltrf&*cct$ltr|0scb*cc>  *cc>Xnoczml D posnoc txttxt$ltr h1 txt(ttxt\ pos|$ltr6ttxt\noc pos|  D pos:*cc>X pos> N pos>*cc>X posnoc D pos  *cc>X pos>Xnoc> R posnoc txt(ttxt\noc>| d/ txt(ttxt\ pos>|6ttxt\noc pos|  N pos"0sc>FX posnocXnoc> N pos> txt6ttxt\noc>| h1 txt(ttxt\ pos|6ttxt\noct pos>||  txt%v0 num_inputx\y\ ll\numnum6t&00tnum|& \>| xx\y vnumd~ char& h>char& char  B t$ltnum|char|tchar|*cctchar|*cc>  9j*cc>/X*cc>:X$l llvchardTnumnumchar7f*cc>X$l>vd& ddTnum(tnum\$l>|numtnum| numvmessagee.e(t^tt>Mte||>|e^t>N|\>N|tbox>\>>\e\>\>(v$buttonx\y\ txt\m\z m>-bxx\y\x>5\y> \m\z P>\>it>t txt||>>Jx>i\y> \ txt^,bxx\y\x>5\y> \>\zv  set_buttonb\m"m>m>*Lb>button>\>\&LOAD\m\>+Nb>button>\>\&PRINT\m\>)Jb>button>>\>\&OK\m\>+Nb>button>|\>\&CANCEL\m\>+Nb>button>\>\&ABOUT\m\>+Nb>button>\>\&F.INFO\m\>*Lb>button>6\>\&QUIT\m\> vreqtxtmessagetxt set_button>\> set_button>\>~Rz< B>Xtz>Lz>|*Lz> set_button>\>T> T ok>*Lz> set_button>\>T> T okH  ok vsetup >\>\>G\>\  >\>\>d\>\>GF> F 4n>\>c>\> >\6\6\63  >\6  >\6  >\>>> bx>\>\>\>F\>\>6tbox>t\>\&5 ASCII FILE PRINTER - Version 1.1 - by David Boucher \>\>v file_dispfile f(t&FILE:file^t>I|\>N|tbox>\>.\f\>\>v page_disp plines#l6t&00tplines|& \>|& &tbox>\>\& PAGE LENGTH:l\>\>v pitch_disp pitch%.pitch>l&ELITEl&PICA tbox>\>\l\>\> vreset_buttons$fl set_button>\> set_button>\fl set_button>\> set_button>\> set_button>\> set_button>\fl set_button>\>-message&@WELCOME TO The ASCII FILE PRINTER by BOUCH (C) 1991. RIPOFFWAREvX enter_namefile<Fa>> set_buttona\>Fmessage&ENTER NAME OF FILE TO LOAD>>T$xinputfile\>F\tfile|\>\>F file p file_disp 6reset_buttonsv enter_lengthplines\$fl<Fa>> set_buttona\>Fmessage&ENTER NEW PAGE LENGTH P>\>T num_input> \>\>\plines plinesF.plines>Tplines>T ^ page_disp 6reset_buttonsfl>infov change_pitchpitch\$fl&0pitch>pitch>Tpitch> L pitch_dispfl>infovnew_filetitle$fl set_button>\>> jtitle& 6reset_buttonsmessage&ERROR:NO FILENAME SELECTED<<Fa>> set_buttona\>F~v Nttitle| message& LOADING... !^> >\title  l|t>|  > >\ l  title\@t>| fl> ok>  z" req&-ERROR:CAN'T FIND FILE. TRY AGAIN? (OK/CANCEL) z zHT T$ok6reset_buttonsT<infov H file_printplines\*pr\pitch set_button>\>> <Fa>> set_buttona\>Freq&$PRINT TEXT? ARE YOU SURE (OK/CANCEL)z&zH6reset_buttonsT< pr>~  Nt&SYS:|& req&5PLEASE INSERT YOUR BOOT DISK IN ANY DRIVE (OK/CANCEL) z zHT T0XNt&SYS:|T6reset_buttonsTmessage&ERROR:CANNOT PRINTT<T",pitch> v>MT v>P5Rt>|Rt>@|Rt>|Rt v|Rt>|Rt>l|Rt>|d pr>req&CONFIRM EACH PAGE? (OK/CANCEL)z z>con> zHcon> set_button>\> set_button>\>look@t>| lines> $page> *ok>",pitch>0ll>ZT0ll>K~6oldlooklook&lines>Xcon>$ req& PRINT PAGE t$page|& ? (OK/CANCEL) z "z>T*ok>T "zHT*ok>T  set_button>\>  set_button>\>lines>. T*ok>Tmessage&PRINTING PAGE t$page|&..T D$page)look!tlook>@t>|Lt>|\Rt> || look>)J6oldlook0lllooklook6oldlook0ll <st& *ok> <^Bs6oldlooklook> <st<stRt!tBs|| F <stRt> | Dlines look@t>|Lt>|4`linesplinesTlines>T&*ok>TRt> |dTT *ok>Rt> | 6reset_buttonsmessage&FINISHED PRINTING vBinfoplines\pitchmessage&COUNTING LINESlook@t>| lines>",pitch> ll>ZT ll>K~&oldlooklook)look!tlook>@t>|Lt>|\Rt> || look>)Joldlook lllooklookoldlook ll Dlines0 look@t>|Lt>|Nl& FILE SIZE: tLt>||& BYTES tlines|& LINES ttlinesplines|>|& PAGE9Ptlinesplines|>>ll&.Tll&S. 6reset_buttonsmessagel vaboutbx>\>\>\>F\>\>6tbox>t\>\&5 ASCII FILE PRINTER - Version 1.1 - by David Boucher \>\>bx>\>\>z\>A\>\>>>2vt>\>|d&DASCII FILE PRINTER V1.1 (C) 1991 David Boucher - RIPOFFWARE SOFTWARE>.vt> \>|d&;AMOS file printer sutable for ANY EPSON compatable printer.>3vt>\>|d&EAny comments, suggestions, bug reports or *MONEY* should be sent to:->-vt> \>|d&:DAVID BOUCHER, 37, SMITH STREET, LONGTON, STOKE-ON-TRENT, !vt>\>|d&STAFFORDSHIRE. ST3 1DR ENGLAND.d~  B>bx>\>\>\>F\>\>6tbox>t\>\&5 ASCII FILE PRINTER - Version 1.1 - by David Boucher \>\> ^ page_disp p file_disp L pitch_disp 6reset_buttons plines><setup p file_disp ^ page_disp L pitch_disp 6reset_buttons~b 0dummy 6pz<z~*<z  B>"<z>$ enter_name$<z> enter_length.<z>new_filefile4<z>X$fl> file_print*L<z> set_button>\>T> Tabout2\<z>X$fl> set_button>\>T> Tinfo*L<z>  set_button>\>T> T >T$<z>  change_pitchAmBs