 
Ї "В 4/3/87    6:57 ╙=&7C00 у P=0 ╕ 1 (P%=&A00 2[OPT P*2 <
BCS go FRTS P.go ZLDA #&30:STA &F2 d$LDA #&A:STA &F3:LDY #0:JSR &FFC2 nBEQ end x	.loop В(JSR &FFC5:BCS end:JSR &FFE3:JMP loop М.end ЦJSR &FFE7:JMP &FFE7 а] кэP:*KEY 10O.|K|MG.190|K|M ┤7у MM=0 ╕ 2:Є_DWIND(MM,0,дheight,дwidth,0):эMM:хНdp@ ╛	ю Е ∙ ╚WY%=╝:ёК0,1);"Sigma Computer":ёК0,Y%);"      ";К0,Y%-2);"      ":ч ?&355<>7 М х Нd\@ ╥5ч (?&28A А 8)=0 М у Z=32200 ╕ У И -4:!Z=!(Z-3):эZ ▄Є_STRIPES:ёК0,Y%-2); цMч ?&408>4 Д ?&409>4 Д ?&40A>4 Д ?&40B>4 М ?&408=0:?&409=1:?&40A=2:?&40B=3 Ё╪ ·▐ mcode% 50у P=0 ╕ 1P%=mcode%[OPT P*2"LDA #help А 255:STA &F2,LDA #help Б 256:STA &F36LDA #143:LDX #9:LDY #0@JMP &FFF4J	.helpTEQUB 13^]hэ Prx▐ COM$(21),BCOM$(7),str$(15),err% 40:str$(0)="S":str$(1)="S":str$(2)="P":str$(3)="R":printer=0:?err%=0:VER$="OS 1.3"|у L=1 ╕ 21:є COM$(L):э LЖ:▄ CAT,EXEC,ENTER,EXAMINE,FX,HELP,INFO,KEY,LOAD,MESSAGEР8▄ OPT,OS,ROMS,RUN,SAVE,SPOOL,TAPE,*,*,HARSTON,MASTERЪу L=1 ╕ 7:є BCOM$(L):э Lд,▄ AUTO,BASIC,EDIT,ERASE,RENUMBER,TRACE,*ою Е х НTRB╕!ёд_STREAM(1);:ч R%=1 М х НdLK┬ё"Operating System"'╠:$err%=╜0+╜128+"OS (C)Harston Computing Ltd."+╜0:╓ err%╓line=480рR%=0:ёд_STREAM(0);:я42ъA$=д_EDITЇrline=480■Є_OSC(A$)х rline ч Я=128 М ?(err%+1)=0:х Ю+10чЯ=127МхНdhC&я6:ч (?&28A А 2)=0 М я70)ч Я=251 Д Я=250 М *K.10O.|KMG.180|K|M:$ёд_STREAM(0);:Ў:ч Я<>17 М х НDNBDч ж(-57)=0М х НDXBN;ч Я<128 М ё" at line ";Ю;д_STREAM(0);: "FX4": "FX121":рXёд_STREAM(0):х lineb▌д_TBVAR(X,Y)lч X=0 М =COM$(Y)vч X=1 М =BCOM$(Y)АЇIF X=2 THEN =UCOM$(Y)Кч X>15 М є Z$:=Z$Ф="/"Ю▌д_TLK2(TB,STRT,MAX)иHL2=HL:C=STRT:х НdPB▓▌д_TLOOK(TB,MAX)╝
HL2=HL╞C=1╨L=1:CC$=д_TBVAR(TB,C)┌"ч ┴A$,HL,1)=┴CC$,L,1) М х НTVCфч ┴A$,HL,1)<"a" М х НdxBю)ч (Ч┴A$,HL,1))-32=Ч┴CC$,L,1) М х НTVC°ч ┴A$,HL,1)="." М =CC=C+1:HL=HL2:ч C>MAX М=-1
х НdPB(L=L+1:HL=HL+1:ч L>й CC$ М HL=HL-1:=C 
х НdZB*~▌Є_STRIPES:ч?&355<>7 Д (?&28A А 8)<>0 Му MM=0 ╕ 2:Є_DWIND(MM,0,дheight,дwidth,0):эMM:я26:?&408=0:?&409=0:?&40A=0:?&40B=0:с4Хя26:Є_DWIND(0,3,24,37,15):Є_DWIND(1,3,14,39,0):Є_DWIND(2,3,14,39,0):Є_DWIND(3,0,24,39,0):уZ=0╕14:ёК0,Z);"Б";╜157;"З":эZ:уZ=15╕23:ё"Д";╜157;"З":эZ>ё"Д";╜157;"З";HсR▌Є_OSC(A$)\HL=0fч A$="" М сpч A$=╜13Мсzч д_Nxtchar="*" М х НDpCДч ┴A$,HL,1)="/"М х НTxDОNUM=д_TLOOK(0,20)Шч NUM<>-1 М х НdJCвЄ_BROM(1):ч found=1 М смЄ_UROM(1):ч found=1 М с╢ЇPRINT"Looking elsewhere.."└
  A$:с╩oю NUM х НdPG,НTLH,НD^F,Нd~F,НTVH,НtXH,НTxI,НDBI,НtHI,НttE,НdXI,НTFD,НTTJ,НTrJ,НDZJ,Нd\J,НddL,НTPD,НTZD,НdTC╘kMM=д_GETDEC Г 8:A%=133:X%=MM:U%=(║&FFF4)А&FFFF00:ч U% Б 256<(╕P+2000) М $(err%+1)="ВBad mode"+╜0:╓ err%▐?(err%+1)=127:╓err%шыMM:Є_STRIPESЄ	хline№сR%=0:х Нdp@FL$=д_GSTR:╫FL$FL$=д_GSTR:я21: "INFO "+FL$$LFL$="LOAD"""+FL$+""""+╜6+╜13:уL=1 ╕ й FL$: "FX 138,0,"+├(Ч┴FL$,L,1)):э L.я6,11,21:р8A$=┴A$,HL+1):хНtvCB▌д_NxtcharLHL=HL+1:ч HL>й A$М =╜13Vч ┴A$,HL,1)=╜13М=╜13`ч ┴A$,HL,1)<"!"М х НDLDj=┴A$,HL,1)t▌д_GetChar~ч HL>й A$ М=13 Л=Ч┴A$,HL,1)И▌д_GETDECТ ъ V:V=0Ь, AA$=д_Nxtchar:ч AA$<"0" Д AA$>"9" М =-1ж
х НtzD░*AA$=д_Nxtchar:ч AA$<"0" Д AA$>"9" М =V║V=V*10+Ч AA$-48─
х НtpD╬▌д_GHEX╪-AA$=д_Nxtchar:ч AA$>"`" М AA$=╜(Ч AA$-32)т HX=Ч AA$-48:ч HX>9 М HX=HX-7ьZZ=Чд_Nxtchar+д_SEPAR:=HXЎ!$err%=╜0+"БBad hex"+╜0:╓ err% =0
▌д_SEPAR"ч HL>й A$ Д ┴A$,HL,1)=╜13 М =0(ч ┴A$,HL,1)="," Д ┴A$,HL,1)=";" М =1(
х НT`H2▌Є_STREM(ST):хНDZE<▌Є_STRMF5ъ ST:AA$=д_Nxtchar:ч AA$<>"#"М HL=HL-1:ST=1:хНDZEPST=д_GHEX:ZZ=д_SEPARZ?ST=ST А15:ч str$(ST)="" $(err%+1)="ЕStream closed"+╜0:╓err%dMstflg=з"SPR",str$(ST)):ч stflg=0 $(err%+1)="ЖInvalid I/O device"+╜0:╓err%nю stflg х НDxE,НtBE,НtVEx: "FX3,68":ч ST=0 ёд_WIND(?&408);:с Л ёд_WIND(?&409);:сВ:ч м printer $(err%+1)="ЗPrinter not selected"+╜0:╓err%М "FX3,10":сЦ "FX3,7":саёд_STREAM(ST);кс┤"NUM=д_GETDEC:ч NUM=-1 М х НT`H╛ч NUM<>?&AFF М х НDJF╚ч д_SEPAR=0 М х НT`H╥"NUM=д_GETDEC:ч NUM=-1 М х НT`H▄#HL1=HL:ч д_Nxtchar=╜13 М х НTXFц*ч ┴A$,HL)=""""""+╜13 М  "FX 247":хНTvFЁHL=HL1:ZZ=д_SEPAR·/ "KEY 10,"+┴A$,HL+1):*KEY 10O.|K|MG.180|K|Mч й A$>200 М х НD@F $&A30=┴A$,HL+1):?&A2F=й A$-1*FX249,10"
*FX248,*FX247,766?&AFF=NUM:с@)$(err%+1)=╜&FD+"Bad string"+╜0:╓ err%J%$(err%+1)="ГBad number"+╜0:╓ err%Tс^,AA$=д_Nxtchar:VV=д_GET2HEX:ёд_STREAM(0);hёд_HEX(VV);" ";:CHK=0rAA$=д_EDIT|(ч й AA$<>19 М ё"Wrong length":х НDhFЖAA$=└AA$,18)Ру LOOP1=VV ╕ VV+7Ъ:V1=д_GHEX1(┴AA$,1,2)):CHK=CHK+V1:?LOOP1=V1:AA$=┴AA$,3)дHэ LOOP1:CHK=CHK А 255:ч CHK<>д_GHEX1(AA$) М ё"Checksum error":х НDhFоVV=VV+8:ч VV<65536 М х НDhF╕с┬▌д_GHEX1(A$)╠ч й A$<>2 М =0╓$V4=Ч┴A$,1,1)-48:ч V4>9 М V4=V4-7р$V5=Ч┴A$,2,1)-48:ч V5>9 М V5=V5-7ъ=V4*16+V5Їс■%Є_STRM:AA$=д_Nxtchar:VV=д_GET2HEX+ёд_HEX(VV);" ";:CHK=0:у LOOP1=VV ╕ VV+72ёд_HEX1(?(LOOP1));" ";:CHK=CHK+?(LOOP1):эLOOP1%ё" =";:CHK=CHK А 255:ёд_HEX1(CHK)&#VV=VV+8:ч VV>65535 М с Л х НTHG0▌д_HEX1(Z): ч Z<15 М ="0"+├~(Z) Л =├~(Z)D▌д_HEX(Z)N$=д_HEX1(Z Б 256)+д_HEX1(Z А 255)X▌д_GET2HEXb ъ VV,AA$,FL:VV=0:FL=0l-AA$=┴A$,HL,1):ч AA$>"`" М AA$=╜(Ч AA$-32)v6ч AA$<"0" Д AA$>"F" Д (AA$>"9" А AA$<"A") М х НtTGА.FL=1:VV=VV*16+Ч AA$-48:ч AA$>"9" М VV=VV-7КHL=HL+1:х НDlGФч FL=1 М =VV Л х НDJFЮ
▌Є_SPCич HL>й A$М с▓#ч ┴A$,HL,1)=" "М HL=HL+1:х НthG╝ч ┴A$,HL,1)=╜13 М с╞с╨FF$="."┌
Є_STRMф%ч Ч(д_Nxtchar)=-1 М FL$="":х НdxGюFL$=FF$+┴A$,HL)°	  FL$сFF$="EXEC ":х НdZG!VL=д_GETDEC:ч VL<>-1 М х НTjH )$err%=╜0+╜254+"Bad command"+╜0:╓ err%*"VB=0:VC=0:ч д_SEPAR=3 М х НT`H4%VB=д_GETDEC:ч VB=-1 М VB=0:х НDRH>ZZ=д_SEPARHVC=д_GETDEC:ч VC=-1 М VC=0R'AA$="FX "+├(VL)+","+├(VB)+","+├(VC)\чVL=101 М Ў:ё" (";Я;")":сf*чVL=13 А VB<4 А VC<8 М ?(&408+VB)=VC:сp7чVL=13 А VB=255 М ?&408=0:?&409=1:?&40A=2:?&40B=3:сz/чVL=0 А VB=0 М $(err%+1)=╜247+VER$+╜0:╓err%ДчVL=0 М сО
 AA$:сШ
Є_STRMвAA$=д_Nxtchar:AL$=┴A$,HL)мч AA$=╜13 М ё'VER$:хНTZI╢:HL1=HL:NUM1=д_TLK2(0,12,14):HL=HL1:ч NUM1<>12 М х НTZI└'ё'VER$:MAX=17:ў НdrH:Є_HLP(0):хНTZI╩▌Є_HLP(X)╘у L=1 ╕ MAX▐&ё "  ";д_TBVAR(X,L);" ";:є Z$:ё Z$шэ LЄО▄ (#<strm>) (<pointer>),(#<strm>) <afsp>,<start>,(#<strm>) <start>,<fx> <1st par> <2nd par>,(#<strm>) <name>,(#<strm>) <afsp>,<key> <text>№Ь▄ <afsp> <start>,<oldpass> <newpass> <message>,<opt> <par>,,(#<strm>),(#<strm>) <afsp>,<afsp> <start> (<end>/+<length>) <exec> <reload>,(#<strm>) <afsp>	▄ <baud>	AA$="":с	Є_BROM(2):Є_UROM(2)	$$help=└AL$,10):╓ mcode%	.с	8FF$="INFO ":х НdZG	BKY=д_GETDEC	Lч KY=-1 Д KY>25М Л х НD`I	V$$err%=╜0+╜251+"Bad key"+╜0:╓err%	`ZZ=д_SEPAR	j,ч KY=10 М AA$="O.|K|MG.180|K|M" Л AA$=""	t  "KEY"+├(KY)+AA$+┴A$,HL+1)	~с	ИAA$=д_Nxtchar:HL2=HL:хНt\I	ТAA$=д_Nxtchar	Ь-ч AA$<>"," А AA$<>";" А AA$<>╜13 М х НtRI	жFL$=┴A$,HL2,HL-HL2)	░ADD$=┴A$,HL+1)	║FL$="LOAD "+FL$+" "+ADD$	─	  FL$	╬с	╪ VL=д_GETDEC:ч VL=-1 М х НT@J	тZZ=д_SEPAR	ь  A$	Ўс
 '$err%=╜0+╜203+"Bad option"+╜0:╓err%

с

Є_STRM
Yё"15 OS"К20)"( / / /S)"'"14 BASIC"К20)"(F/R/L/S)"'"13 Extra Utilities"К20)"( / / /S)"
(с
2
Є_STRM
<AA$="RUN "+┴A$,HL+1)
F	  AA$
Pс
Z+FL$="SAVE "+д_GSTR:ч д_SEPAR=0 М х Нt`J
dRFL$=FL$+" "+д_GSTR:ч ┴A$,HL,1)<>"," А ┴A$,HL,1)<>";" А ┴A$,HL,1)<>"+" М х Нt`J
n0ч ┴A$,HL,1)<>"+" М FL$=FL$+" " Л FL$=FL$+"+"
x'FL$=FL$+д_GSTR:ч д_SEPAR=0 М х НtVJ
В+FL$=FL$+" "+д_GSTR:ч д_SEPAR=0 М х НtVJ
М4FL$=FL$+" "+д_GSTR:ч д_SEPAR=0 М х НtVJ Л х Нt`J
Ц  FL$:с
а)$(err%+1)=╜252+"Bad address"+╜0:╓err%
к▌д_GSTR
┤AA$=д_Nxtchar:HL2=HL:хНdHJ
╛AA$=д_Nxtchar
╚8ч AA$<>";" А AA$<>"," А AA$<>"+" А AA$<>╜13 М х Нt~J
╥=┴A$,HL2,HL-HL2)
▄FF$="SPOOL ":х НdZG
цс
Ё2Ї This is the BASIC 'ROM' from here onwards...
·▌Є_BROM(X)found=0ч X>2 М сч X=2 М х НDJK"!NUM=д_TLOOK(1,6):ч NUM=-1 М с,$found=1:ч NUM=2 Д NUM=6 М х НD@K6ч R%<>1 found=0:с@)ю NUM х НtFK,Нd`K,НtTL,НDbL,НthL,НdPLJ$ч д_GetChar=13М ё'"BASIC 1.00":сT(HL1=HL:ч д_TLK2(1,2,2)<>2 М HL=HL1:с^HL=HL1:ё'"BASIC 1.00"h
ў НD|KrMAX=6:Є_HLP(1):с|?▄ <start> <step>,,<line>,<start> <end>,<start> <step>,<1/0>Ж+VL=д_GETDEC:ч VL=-1 М VL=10:ST=10:хНtdKРZZ=д_SEPARЪST=д_GETDEC:ч ST=-1 М ST=10ду LO=VL ╕ 65000 И STоЄ_PR(LO):A$=д_EDIT╕э LO┬с╠Є_SB:х НdjK╓	▌Є_SBр)line=2060:R%=1:ё"BASIC"':rline=2060:съ2$err%=╜0+"А(C)1986 Harston Computing"+╜0:╓err%Ї:ёд_STREAM(0);">";:A$=д_EDIT:ч A$="CALL !-4"+╜13 М ╓!-4■"HL=0:ч д_Nxtchar<>"*" М х НdtKЄ_OSC(┴A$,HL+1))
х НdtK▌Є_PR(LO)&ч LO>9999 х НDXL0ч LO>999 ё" ";:х НDXL:ч LO>99 ё"  ";:х НDXLDч LO>9 ё"   ";:х НDXLNё"    ";Xё;LO;" ";:сb VL=д_GETDEC:ч VL=-1 М х НT`Hlч д_SEPAR<>1 М х НT`Hv!VL2=д_GETDEC:ч VL=-1 М х НT`HА(ё"Lines deleted from ";VL;" to ";VL2КсФ VL=д_GETDEC:ч VL=-1 М х НT`HЮё"Editing line ";VL:си*VL=д_GETDEC:ч VL=-1 VL=10:ST=10:х НdFL▓ZZ=д_SEPAR╝ST=д_GETDEC:ч ST=-1 М ST=10╞@ё"Lines renumbered, starting at ";VL;","'"going up by ";ST:с╨VL=Ф д_GETDEC┌HVL=VL А 1:ё"Trace is o";:я (110*VL)+(102*(1-VL)),(102*(1-VL)):ё".":сф&baud=д_GETDEC:ч baud=-1 М baud=300юё"Tape baud ";baud°#ч baud=300 М  "TAPE3" Л *TAPE12сЇ Editing routine:▌Є_restofline 'ё└Y$,йY$-1);B$;:ч B$<>"" М я8:B$=""*с4▌Є_doline>Є_restoflineHё─й Y$-1,╜(8));Rс\▌Є_INITf*X$="":Y$=" ":edflag=0:keylen=0:edflg=0pя 23,1,0;0;0;0;zЇДсОA2=255:keylen=-1:=╜(27)Ш▌Є_EEXITв*FX225,1м*FX225,128╢*FX225,144└с╩▌д_GETKEY╘ч keylen=-1 М keylen=0:=A2▐A$=д_KEY:A=Ч A$шч A=?&26C М х НtNMЄ ч A=27 М A2=27:keylen=-1:=╜A№ч A<128 М =A$ч A<138 М х НDBNч (A А 15)<11 М =╜(ЧA$-16)ч (?&28A А 1)=0 М х НTnN$*ч (A А 48)<20 М A=(A В 16):Ї 'AMSTRAD'.'ч (A А 48)=0 Д (A А 15)=11 М х НDLN88A2=((A-11)А 7):A=(A А 48)/2:A2=A2+A:keylen=-1:=╜(27)B "FX138,0,"+├(A+64):хНd^ML.A=A А 15:ю A-10 х НDVN,НtHN,НD`N,НD~N,НtRNV/A=д_SCRN:ф НDjN:ч A<>0 М =╜(A) Л я 7:х Нd^M`ф НDjN:edflag=1:х Нd^Mj&edx=edx+1:ч edx<дwidth М ° Л edx=0t)edy=edy+1:ч edy<дheight М ° Л edy=0:°~ф НDtN:edflag=1:х Нd^MИ7edx=edx-1:edflag=1:ч edx>-1 М х Нd^M Л edx=дwidth-1Т?edy=edy-1:edflag=1:ч edy>-1 М х Нd^M Л edy=дheight-1:х Нd^MЬ▌дheight=?&309-?&30B+1ж▌дwidth=?&30A-?&308+1░▌д_SCRN║Є_DECURSOR─X1=▒:Y1=╝:ёКedx,edy);╬3A%=135:U%=║ &FFF4:ёКX1,Y1);:=((U% А &FF00)/256)╪
▌д_KEYт#ч edflag=0 М edx=▒:edy=╝:х НdvNья23,1,1;0;0;0;:ёКedx,edy);Ў=╛ ▌Є_CURSOR
ч ?&355=7 М ё╜(255);╜(8);:с+?&D3=255-?&D3:ё└Y$,1);:я8:?&D3=255-?&D3,xp=▒:yp=╝:ч edflag=0 М с Л ёКedx,edy);:с(▌Є_DECURSOR2ч ?&355=7 М с<$ч ?&355=7 М ёКxp,yp);" ";╜(8);:сFёКxp,yp);└Y$,1);:я8:сP▌д_EDITZ4ъ A$,B$,A,B,X$,Y$,edflag,edx,edy,xp,yp:xp=▒:yp=╝dЇn
Є_INITxescflag=?&275:*FX 229,1В*FX 225,128М*FX 226,144Ц*FX 227,160а*FX 228,176к*FX221,1┤
*FX4,2╛#ч Y$="" М Y$=" ":X$=└X$,й X$-1)╚)Є_CURSOR:ч edflag=1 М я 23,1,1;0;0;0;╥	Їloop▄ч ?&355<>7 М х НdzOця255:Є_doline:я8Ёч X$<>"" М я 8:ё┬X$,1);·lxp=▒:lyp=╝:A$=д_GETKEYёКlxp,lyp);Є_DECURSOR
A=Ч A$"ч A=27 М х НdBP,ч A=127 М Є_DEL:хНt~O6ч A<32 М х НtPP@ч й X$+й Y$>250 М я7:х Нt~OJzч (й X$+й Y$)>=(дwidth*дheight)-2 М ?&275=escflag:Є_restofline:я32,8:ё:Є_EEXIT:$(err%+1)="ДNo room for line"+╜0:╓ err%TX$=X$+A$:ёA$;:Є_doline^
х Нt~Oh
▌Є_DELrч X$="" М Є_BEEP:с|я 32,8,127:X$=└X$,й X$-1)ЖB$="  "+╜(8):Є_doline:сРMч A=13 М ?&275=escflag:Є_restofline:я32,8:ё:Є_EEXIT:=X$+└Y$,й Y$-1)+╜(13)ЪЇ Decode control keysдNчA<>21 МяA: "FX218":хНt~O Л ч X$="" М х Нt~O Л у L1=1 ╕ й X$:Є_DEL:э:хНt~OоIч (escflag А 1)=0 М ?&275=escflag:Є_restofline:я32,8:ё:Є_EEXIT:*FX125╕
х НdRO┬Ї esc codes╠A=д_GETKEY:ч A=27 М х НdRO╓ч A=255 М х НtnPрA2=A Б 8:A=A А 7ъю A2 х НTRQ,НtJQ,НTBRЇЄ_BEEP:хНt~O■ ▌Є_BEEP:ч (?&28A А 4)=0 М я7сч A>2 М Є_doline$ю A+1 х НTfQ,НTzQ,НDNQ,НDbQ,НDvQ&ч Y$=" " М х НdtP0$Y$=┴Y$,2):B$=" ":Є_doline:х Нt~O:ч X$="" М х НdtPD*Y$=┬X$,1)+Y$:X$=└X$,й X$-1):я 8:х Нt~ONч Y$=" " М х НdtPX%X$=X$+└Y$,1):Y$=┴Y$,2):я 9:х Нt~Obч й Y$-1<дwidth М х НdtPl2X$=X$+└Y$,дwidth):Y$=┴Y$,дwidth+1):я 10:х Нt~Ovч й X$<дwidth М х НdtPА5Y$=┬X$,дwidth)+Y$:X$=└X$,й X$-дwidth):я 11:х Нt~OКч A=1 Д A=2 М Є_dolineФ$ю A+1 х НdtP,НdFQ,НddQ,НtrQ,Нt^QЮч X$="" М х Нt~Oи'ё─й X$,╜(8));:Y$=X$+Y$:X$="":х Нt~O▓ч Y$=" " М х Нt~O╝0Є_restofline:X$=X$+└Y$,й Y$-1):Y$=" ":х Нt~O╞x1=▒:ч x1=0 М х НdtP╨ч й X$<дwidth М x1=й X$┌4ё─x1,╜(8));:Y$=┬X$,x1)+Y$:X$=└X$,й X$-x1):х Нt~Oфx1=▒:ч x1=дwidth-1 М х НdtPюFч дwidth-x1>й Y$-1 М ё─й Y$-1,╜9);:X$=X$+└Y$,й Y$-1):Y$=" ":х Нt~O°Hё─дwidth-x1-1,╜(9));:X$=X$+└Y$,дwidth-x1-1):Y$=┴Y$,дwidth-x1):х Нt~Oч A=0 М х НdtPяA+7:х Нt~O▌Є_DWIND(wind%,a%,b%,c%,d%) 	ъ BA%*ч wind%>7 Д wind%<0 М с4BA%=wind%*9+&411>?BA%=0:?(BA%+1)=0H3?(BA%+2)=a%:?(BA%+3)=b%:?(BA%+4)=c%:?(BA%+5)=d%R.?(BA%+6)=?&D2:?(BA%+7)=?&D3:?(BA%+8)=?&358\сf▌д_WIND(w%)pч w%<0 Д w%>7 М =""z	ъ BA%ДBA%=(7 А (?&410))*9+&411О=?BA%=▒:BA%?1=╝:?(BA%+6)=?&D2:?(BA%+7)=?&D3:?(BA%+8)=?&358ШBA%=w%*9+&411в,я 28,?(BA%+2),?(BA%+3),?(BA%+4),?(BA%+5)мя31,?BA%,?(BA%+1)╢7?&410=w%:?&D2=?(BA%+6):?&D3=?(BA%+7):?&358=?(BA%+8)└=""╩▌д_STREAM(w%)╘Є_STREM(w%):=""▐▌Є_UROM(X)шч X>2 М сЄч X=2 М х НtHS№8ў НDLS:NUM=д_TLOOK(16,17):ч NUM=-1 Д (NUM А 1)=0 М сFfound=1:ю (NUM+1)/2 х НTPD,НDVS,НdTC,НTZD,НTPS,НTZS,НTnS,НDjS,НTdSя2:printer=-1:ся3:printer=0:с$>ёд_STREAM(0);:у L=0╕15:ё;~L;╜8;╜10;str$(L);╜9;╜11;:э:ё'':с.
Є_STRM8VL=д_GETDEC:ч VL=-1 М сBяVL:хНTxSLа▄ CHAIN,<afsp>,DEFWINDOW,<window> <left> <bottom> <right> <top>,MODE,<mode>,PLOAD,<afsp>,PRINTON,,PRINTOFF,,VDU,(#<strm>) <ascii> ...,TIME,(<time>),STREAMS,VoNM1=д_GETDEC:NM2=д_GETDEC:NM3=д_GETDEC:NM4=д_GETDEC:NM5=д_GETDEC:ч (NM1 Д NM2 Д NM3 Д NM4 Д NM5)<0 М х НT`H`"Є_DWIND(NM1,NM2,NM3,NM4,NM5):сj3VL=д_GETDEC:VL1=д_GETDEC:ч (VL Д VL1)<0 М хНD~St╤=360000*VL+6000*VL1~>ёд_STREAM(0);"The time is ";С Б 360000;":";С Б 6000 Г 60:сИ[ў НtfS:HL1=HL:VL=д_TLK2(16,1,1):HL=HL1:ч д_GetChar=13Д VL>-1 М ё'"Extra Utilities 1.00"Тч VL=-1 М хНtpSЬ!ў НDLS:MAX=9:Є_HLP(16):HL=HL1ж▄ EXTRA░ч д_GetChar=13 МхНtzS║ч┴A$,HL,1)="."Мс─8ў НdXS:HL1=HL:VL=д_TLK2(16,1,1):HL=HL1:ч VL=-1МхНdlS╬"ё'"*FX calls:":MAX=8:Є_HLP(16)╪\▄ FX,*FX0,Returns OS version,*FX13,Set windows for streams 0-2,*FX101,Reports last errorт▒▄ *FX250,Sets control bits as follows:,"  1",BBC/Amstrad cursor key operation,"  2",No BEEP on errors,"  4",No BEEP on editing errors,"  8",QL-type/Ordinary screen in mode 7ь4ўНTJT:HL1=HL:VL=д_TLK2(16,1,1):HL=HL1:ч VL=-1М сЎ,ё'"Acknowledgements to:":MAX=4:Є_HLP(16) с
D▄ ACKNOW,Greg,Heslington,Chris,Gooch,Jonathan,Murphy,Steve,Oxley