PLUS3DOS<ep$="" :a=64330J:20 V236099\,2:31999|:4000:%"tasword.c":a=59081:5 >:a=64@*(a/64@+0.99}p):a=03000 B4000: 4,0;"print text file p" ' :"save text file s" &:"load text file j" #&:"merge text file m" (&:"return to text file y" -' :"define graphics/printer g" 2&:"save tasword t" 7&:"into Basic b" 0i,31;1;b;:500 80P n:4000:4,8;"PRINT OPTIONS":" just press ENTER for default values given in brackets" Si=8:j0=23:i,0;"Line spacing? (1)":6000p:a$=""a$="1" 62235,a$ Hi=10 :i,0;"Start at line? (1)":6000p:a$=""a$="1" Jc=64@*(a$-1):b=c+p(62216):x=60045:950 Vi=12 :i,0;"Finish at line? (last)":6000p:a$=""b=a-c:250 b=64@*a$-c "59806:(p(62472)) 8:20,0;"Press the q key to quit printing" x=60049:950 c=62470:c0c 60038 c=62471:c0c "59806:10 ,1:4000:"Printer control graphics chars:" 1Xb=4:i=015:b=(b-4):i+4,b;i+128;(i+128) 3Lj=03:c=(60860+i*4+j):a$=c:c=255a$="" 4(i+4,10 +4*j;a$:j:i @C"Type graphics character code 128-143 (ENTER if finished)";a$ Ea$=""400 T+b=a$:b<128b>143320@ ^.21,3;1;b;0;" ";b c< j=03:(60348+b*4+j),255:j hIj=03:"Code? (ENTER if finished)";a$:a$=""300, rO(60348+b*4+j),a$:21,10 +4*j;a$:j:300, n:4000:3,0;"Reset interface/printer codes?":i=5:920::i=025 E4000:3,0;"just ENTER to keep values given:" \j0=27:i=8:j=0:a$="Interface control code1=":x=60924:850R >i=9 :j=18:a$="code2=":x=62470:850R ?i=10 :j=18:a$="code3=":x=62471:850R i=11 :i,18;"code4=";p(62472):i=12 :j0=24:6000p:j0=27:a$""b=a$:x=62472:950 Pi=14:j=0:a$="Printer carriage return=":x=60925:850R Ii=16:j=0:a$="Printer linefeed=":x=60926:850R Pi=18:j=0:a$="Left margin on printing=":x=60927:850R  20 20,0;" press the ";1;"ENTER";0;" key to proceed";21,0;" press ";1;"c";0;" to change the choice " a$=:a$="c"a$="C"20 a$=13 600X  510 Xb=116t700 bb=121y:10 lb=115s:1000 vb=109m2000 4b=106ja=59081:a=0:2000 b=112p200 b=103g300, b=100d5000 : %:a$="tasword":%a$+".bas"15 "%a$+".c"54784,10751)  25  /i,0;"Remove ear plug from cassette.": R&i,j;a$;x:6000p:a$""x,a$ \ @i,4;"press y for yes";i+2,11 ;"n for no" ="n"Ŧ="N"i=0: ="y"Ŧ="Y"i=1:  930 <x,b-256*(b/256):(x+1),(b/256): b=p(62216)::%p$ kj0=20:8,j0;"Name of";9 ,j0;"text file";10 ,j0;"to save":i=12 :6000p Ja$=0::12 ,0;"there must be a name":1005 %p$+a$b,a: b8,0;"text file ";a$;" saved:";10 ,0;a;" bytes,",a/62237;" lines" 0:20 v:j0=20:%p$:8,j0;"Type name of";9 ,j0;"text file";10 ,j0;"and press";11 ,j0;"ENTER" +i=14:6000p:a$=""2020 Eb=p(62216):%p$+a$(a+b):10 :,(p(62221)+22)*64-a:10 *i=23296[23361A[:i,32 :i 23362B[,0 58,0;"type word to be replaced / found" 5j0=0:i=10 :6000p:a$=""10 Hj=0:i=1̱a$:23297[+i,a$(i):a$(i)=" "j=j+1 i Nj0:12 ,0;"just a word - no spaces allowed":3000 23297[,a$ M12 ,0;"with (just ENTER for find only)":i=14:6000p (a$=""23362B[,1:3060 (i=1̱a$:23329![+i,a$(i):i *a=64955:a=64333M:20 T0,8;" Tasword Two ";1,3;"  Tasman Software 1983 ": ?:%p$:j0=20:8,j0;"Current path";9 ,j0;p$ 11 ,j0;"Type new";12 ,j0;"path and";13 ,j0;"press ENTER";15,j0;"Just press";16,j0;"ENTER for";17,j0;"current path" +i=19:6000p:a$="":25 p$=a$  500 pa$="":i,j0;1;" " zj=j0:""6010z b$= b$=""6020 b$=13 i,j;" ": b$12 6170 j=j062008 Gj=j-1:i,j;1;" ";0;" ":a$=a$(j-j0):62008 (b$<32 ůb$>12762008 $A.005y# =,5:i,j;b$;1;" ":j=j+1:a$=a$+b$ .&j=32 i+1,0;" ": 8""62008 B 6020 X&p(x)=x+256*(x+1) Pa@ibtAtasword