Ї > Inlay Ї Cassette Inlay Printer Ї *** Mervyn Jackson *** (Ї **** BBC Computer **** 2Ї *** Epson Printer *** <ы7 F*|FX5,4 P*|PS BLANK Zю Е Єreport dЄinit:Єmenu nр x▌ Єinit Вя23;8202;0;0;0; М▐ A$(38) Ц▐ title$(2) а▐ detail$(2) к▐ dolby$(2) ┤ C$="" ╛с ╚▌ Єcass ╥ side=1 ▄input$="type of cassette" цЄinput(11) Ёчin$=""М C$=C$ Л C$=in$ ·с ▌ Єmenu ю Е Єreport █ "*FX21,0 ,*ёК2,2)╜131"CASSETTE INDEX LABEL MENU"; 6чC$<>""М ё" FOR" @ёК14);╜131C$ J"ёК3,5);╜133"S";╜135"ave data"' T ёК3);╜133"L";╜135"oad data"' ^,ёК3);╜133"P";╜135"rint full index card"' h,ёК3);╜133"T";╜135"itle only to printer"' r(ёК3);╜133"E";╜135"nter new details"' |2ёК3);╜133"V";╜135"iew/Amend existing details"' Ж$ёК3);╜133"Q";╜135"uit program"'' Р#ёК2)╜130"PLEASE SELECT OPTIONР" Ъx$=╛ д<чx$="E" Д x$="e"М Єcass:Єside:Єtitle:Єtrack:Єscreenprint о.чx$="V" Д x$="v"М Єcass:Єside:Єscreenprint ╕чx$="P" Д x$="p" Єpprint ┬чx$="T" Д x$="t" Єtprint ╠чx$="S" Д x$="s" М Єsave ╓чx$="L" Д x$="l" М Єload рчx$="Q" Д x$="q" М Єquit ъчx$="*" Єosc Ї хНTXA ■с ▌ Єside █ aёК3,5)"Enter/View information for"''К15)"SIDE 1 or SIDE 2 ?"К5,23)"]Press to abort[" &x$=╛ 0side=╗x$ :%чside<>0А side<>1А side<>2 М НT\B Dчside=0 М Єmenu Nчside=1 М beg=1 Л beg=20 Xс b▌ Єtitle lti=1 v█ А0input$="new Title (max 26 chars)":Єinput(26) К9чin$=""М title$(side)=title$(side) Л title$(side)=in$ ФCinput$="Details for SIDE "+├(side)+" (max 65 chars)":Єinput(65) Ю<чin$=""М detail$(side)=detail$(side) Л detail$(side)=in$ и?input$="DOLBY for SIDE "+├(side)+" (max 3 chars)":Єinput(3) ▓9чin$=""М dolby$(side)=dolby$(side) Л dolby$(side)=in$ ╝с ╞▌ Єtrack ╨уtrack=beg ╕ beg+18 ┌+input$="Text (max 31 chars)":Єinput(31) ф1чin$="" М A$(track)=A$(track) Л A$(track)=in$ юэ °с ▌ Єinput(length) in$="" чside=1 М asc=64 Л asc=45 █ *Iчlength=26 М ё К0,5)"SIDE ";side;" existing Title is"''title$(side)'' 4Mчlength=65 М ё К0,5)"SIDE ";side;" existing Details are"''detail$(side)'' >\чlength=31 М ё К0,5)"SIDE ";side;" TRACK ";╜(track+asc);" existing Text is"''A$(track)'' HOчlength=3 М ё К0,5)"SIDE ";side;" existing DOLBY detail is"''dolby$(side)'' R0чlength=11 М ё К0,5)"Existing type is"''C$'' \2ё"Enter ";input$''"or press if OK"''' fz$=╛ pч Ч z$=13 М с z.ч Ч z$=127 М in$=└in$,йin$-1) Л in$=in$+z$ Д(ч й in$>length М in$=└in$,length):я7 ОёК0,16);in$;" ";╜8; Ш хНDfC вс м▌ Єscreenprint ╢█ └Xё title$(side);К31,0);"DOLBY ";dolby$(side);К0,1);detail$(side);К31,2);"SIDE ";side' ╩чside=1 М beg=1 Л beg=20 ╘чside=1 М asc=64 Л asc=45 ▐уtrack=beg ╕ beg+18 шяtrack+asc; Єё" ";A$(track) №э Єcheck с ▌ Єcheck $ti=0 .>ё"Enter track to amend- for Title"'"or if OK"; 8x=е Bчx=84 Д x=116 М Єtitle Lчx>90 М x=x-32 V чx=13 М с `%чside=1 М track=x-64 Л track=x-45 j#чtrack<1 Д track>side*19 М НtRD tчti=1 М НtRD ~+input$="Text (max 31 chars)":Єinput(31) И1чin$="" М A$(track)=A$(track) Л A$(track)=in$ ТЄscreenprint Ьс ж ▌ Єpad ░уtrack=1╕38 ║+A$(track)=A$(track)+─32-йA$(track)," ") ─э ╬ уside=1╕2 ╪4title$(side)=title$(side)+─26-йtitle$(side)," ") т7detail$(side)=detail$(side)+─65-йdetail$(side)," ") ьэ Ўс ▌ Єpprint ^Єdatacheck:чdatalen=0 я7:ёК2,20);╜129"You have not entered any data yet!":уwait=1╕6000:э:с Єonline:ч buffer=г с 4ёК2,20);╜129"PRINTING IN PROGRESS - PLEASE WAIT" (Єpad 2*FX3,10 <я27,64:Ї Reset to default F!я27,51,14:Ї 14/216 line space Pя27,15:Ї Condensed print Zя27,85,1:Ї unidir print dAё"SIDE 1 DOLBY ";dolby$(1);К34);"SIDE 2 DOLBY ";dolby$(2) n!я27,51,18:Ї 18/216 line space xё ─65,"-");" |" В!я27,51,27:Ї 27/216 line space Муtrack=1╕19 Ц&ё A$(track);"| ";A$(track+19);" |" аэ кё ─65,"-");" |" ┤ё"SIDE 1: "; ╛2я27,14:Ї Enlarged print with self cancellation ╚я27,71:Ї Double strike ╥ёtitle$(1) ▄ я18:Ї Cancel Condensed print ц!я27,72:Ї Cancel Double strike Ёё К38-й C$);C$ ·я27,15:Ї Condensed print ё"SIDE 2: "; 2я27,14:Ї Enlarged print with self cancellation я27,71:Ї Double strike "ёtitle$(2) ,!я27,72:Ї Cancel Double strike 6ё ─65,"-");" |" @Jё"SIDE 1:";К67)"|"'detail$(1);" |"'"SIDE 2:";К67)"|"'detail$(2);" |" J ёК67);"|" Tуst=1╕3:ё ─65,"*");" |":э ^ё h *FX3,0 rс |▌ Єsave Ж^Єdatacheck:чdatalen=0 я7:ёК2,20);╜129"You have not entered any data yet!":уwait=1╕6000:э:с Рю Е Єreport Ъ#ш"ENTER FILE NAME TO SAVE : "x$ д" "Save "+x$+" 0+800":ch%=о(x$) оуx=1╕38 ╕ё#ch%,A$(x) ┬э ╠ уx=1╕2 ╓(ё#ch%,title$(x),detail$(x),dolby$(x) рэ ъё#ch%,C$ Ї ┘#ch% ■с ▌ Єload ю Е Єreport #ш"ENTER FILE NAME TO LOAD : "x$ & ch%=О(x$) 0уx=1╕38 :ш#ch%,A$(x) Dэ N уx=1╕2 X(ш#ch%,title$(x),detail$(x),dolby$(x) bэ lш#ch%,C$ v ┘#ch% Ас К ▌ Єreport Ф ю Е З Ю┘#0:*FX3,0 иЎ ▓1ё'"Error code number ";Я;" at Line number ";Ю ╝7ё"PRESS TO STOP PROGRAM"'"PRESS FOR MENU" ╞x$=╛ ╨ч x$="M" Д x$="m":Єmenu ┌ хНthG фс ю ▌ Єtprint °Дdatalen=0:уZ%=1╕2:datalen=datalen+й(title$(Z%)):э:чdatalen=0 я7:ёК2,20);╜129"You have not entered a title yet!":уwait=1╕6000:э:с Єonline:ч buffer=г с CёК2,20);╜129"PRINTING IN PROGRESS - PLEASE WAIT":уwait=1╕1000:э *FX3,10 я27,64:Ї Reset to default *я27,15:Ї Condensed Print 4я27,85,1:Ї unidir print > я27,50:Ї line space 1/6 inch Hё"SIDE 1: "; R2я27,14:Ї Enlarged print with self cancellation \я27,71:Ї Double strike fёtitle$(1) p!я27,72:Ї Cancel Double strike zё"SIDE 2: "; Д2я27,14:Ї Enlarged print with self cancellation Оя27,71:Ї Double strike Шёtitle$(2) в!я27,72:Ї Cancel Double strike м *FX3,0 ╢с └ ▌ Єonline ╩*FX21,3 ╘*FX3,10 ▐я2,1:уW%=1╕500:э:я3 ш *FX3,0 Є}ч Ц(-4)<>63 buffer=г:я7:ёК2,20);╜129"Printer is busy or not on line"'К21)╜129" - please check.":уwait=1╕6000:э:Л buffer=╣ №*FX21,3 с ▌ Єquit █:Єdatacheck $│ч datalen=0 ё╜133"END";:р:Л ёК0,6)"You have entered data."''"Press";:ё╜130"RETURN";:ё╜135"to return to the Menu."''"Any other key will END the program and may lose the data." .x$=╛ 8#ч Ч x$=13 Єmenu Л ё╜133"END";:р Bс L▌ Єdatacheck V datalen=0 `(уZ%=1╕38:datalen=datalen+й(A$(Z%)):э j+уZ%=1╕2:datalen=datalen+й(title$(Z%)):э t,уZ%=1╕2:datalen=datalen+й(detail$(Z%)):э ~+уZ%=1╕2:datalen=datalen+й(dolby$(Z%)):э Иdatalen=datalen+й(C$) Тс Ь% ▌Єosc:ъ A$:їшЖ"*"A$: A$:¤A$="":с