I-------------------------------------------I I I I **** **** *** ***** *** I I * * * * * * * * * I I * * * * * * * I I **** * * *** * * I I * * ***** * * * I I * * * * * * * * * I I **** * * *** ***** *** I I I I I I **** **** ***** *** *** I I * * * * * * * * * * I I * * * * * * * * I I **** * * *** * * *** I I * * ***** * * * * I I * * * * * * * * * I I * * * * * *** *** I I I I I I I I V.02 - 030 I I-------------------------------------------I лмелнмхйю йнлюмд х ноепюрнпнб --------- ------ - ---------- ============================================================================= ! ! ! ! ! лмелнмхйю ! нангмювемле ! нялшякнбюъ мюцпсгйю ! ! ! ! ! ============================================================================= ! ! ! ! ! N,NUM ! мнлепю ярпнй ! мнлепю ярпнй ! ! EXP ! бшпюфемхе ! дносярхлне б ащиняхйе бшпюфемхе.лнфер ашрэ! ! ! ! вхякнбшл хкх ярпнйнбшл ! ! STR ! ярпнйю ! ярпнйнбне бшпюфемхе ! ! LIST ! яохянй ! щкелемрш яохяйю лнцср ашрэ йнмярюмрюлх, ! ! ! щкелемхнб ! оепелеммшлх,люяяхбюлх ! ! VAR ! оепелеммюъ ! беыеярбеммюъ,жекюъ хкх ярпнйнбюъ оепелем- ! ! ! ! мюъ ! ! CONST ! йнмярюмрю ! беыеярбеммюъ,жекюъ хкх ярпнйнбюъ йнмярюм- ! ! ! ! рю ! ============================================================================= йнлюмдш: ------- LIST ............ пюяоевюршбюер мю реплхмюке бяч опнцпюллс LIST -N..........пюяоевюршбюер вюярэ опнцпюллш нр мювюкю дн ярпнйх я мOлепнл N LIST N1,N2 ......пюяоевюршбюер сйюгюмше ярпнйх LIST N1-N2 ......пюяоевюкршбюер рейяр опнцпюллш,мювхмюъ ян ярпнйх я мнлепнл N1 дн ярпнйх я мнлепнл N2 LIST N- .........пюяоевюршбюер рейяр опнцпюллш мювхмюъ ян ярпнйх я мнлепнл N дн йнмжю рейярю LISTNH ...........юмюкнцхвмю LIST,мн ме бшбндхр гюцнкнбнй опнцпюллш DEL ..............хяйкчвюер ярпнйх рейсыеи опнцпюллш DEL .............бяч опнцпюллс DEL N1,N2 .......сйюгюмше ярпнйх DEL -N ..........ярпнйх,мювхмюъ я мювюкю рейярю дн N DEL N1-N2 .......ярпнйх,пюяонкнфемше лефдс сйюгюмшлх мнлепюлх DEL N- ..........ярпнйх,мювхмюъ я мнлепю N дн йнмжю опнцпюллш RUN ............гюосяй опнцпюллш.RUN бшбндхр гюцнкнбнй опнцпюллш,янярнъыхи хг хлемх опнцпюллш,рейсыеи дюрш,яхярелмнцн бпелемх х гюосяйюер ее мю бшонкмемхе RUN [STR]........гюцпсфюер б оюлърэ опнцпюллс хг сярпниярбю тюикнбни ярпсйрспш х бшонкмъер ее RUNNH...........юмюкнцхвмю RUN,мн ме бшбндхр гюцнкнбнй NEW ............нвхыюер яндепфхлне оюлърх х опхябюхбюер хлъ опнцпюллш,йнрнпюъ асдер гюцпсфюрэяъ NEW [NAME] SCR ............нвхыюер яндепфхлне оюлърх х опхябюхбюер хлъ NONAME опнцпюлле, йнрнпюъ асдер гюцпсфюрэяъ CLEAR ..........нвхыюер яндепфхлне люяяхбнб х япнйнбшу астепнб онкэгнбюрекъ. хлъ опнцпюллш ме хглемъеряъ SAVE ...........янупюмъер опнцпюллс,мюундъысчяъ б оюлърх б йнде йнх-7 SAVE [STR] SAVE LP: SAVE DX1: UNSAVE..........сдюкъер тюик я бмеьмецн гюонлхмючыецн сярпниярбю REPLACE ........юмюкнцхвмю йнлюмде SAVE,мн гюлемъер тюикш,пюмее янгдюмше йн- люмдни SAVE мю сярпниярбе тюикнбни ярпсйрспш.Eякх тюикю,йнрн- пши гюлемъеряъ,мер мю сярпниярбе тюикнбни ярпсйрспш,рн бнгмх- йюер ньхайю. REPLACE [STR] OLD [STR] ......гюцпсфюер опнцпюллс,янупюмеммсч SAVE б оюлърх APPEND [STR]....гюцпсфюер опнцпюллс,янупюмемсч SAVE х на'едхмъер я рейсыеи опнцпюллни RENAME [FILNAME].хглемъер мюгбюмхе опнцпюллш,мюундъыеияъ б оюлърх COMPILE.........йнлохкхпсер опнцпюллс мю сярпниярбе тюикнбни ярпсйрспш х яну- пюмъер ее мю щрнл сярпниярбе.еякх яоежхтхйюжхъ тюикю нрясряр- ярбсенр,йнлюмдю йнлохкхпсер опнцпюллс,мюундъысчяъ б оюлърх х янупюмъер ее мю яхяелмнл сярпниярбе тюикнбни ярпсйрспш SUB LIN.NUM*STR1*STR2*N .....педюйрхпсер ярпнйс рейсыеи опнцпюллш LIN.NUM .....мнлеп ярпнйх дкъ педюйрхпнбюмхъ *............яхлбнк-нцпюмхвхрекэ STR1.........онякеднбюрекэмнярэ гюлемъелшу яхлбнкнб STR2.........мнбше яхлбнкш N [вхякн]....N-мне онъбкемхе б педюйрхпселни ярпнйе RESEQ...........оепемслепюжхъ ярпнй RESEQ [N1],[N2] [-N3] [,EXP] N1 ..........мнбши мнлеп ярпнйх N1-N2 .......мнлепю йпюимху ярпнй,лефдс йнрнпшлх бяе оепемс- лепнбшбючряъ EXP .........ьюц опхпюыемхъ мнлепнб ярпнй LENGTH .........нопедекъер дкхмс опнцпюллш,мюундъыеияъ б оюлърх х оевюрюер: XXXXWORDS,YYYYFREE XXXX ........йнкхвеярбн якнб,гюмхлюелшу опнцпюллни YYYY ........йнкхвеярбн ябнандмшу якнб б астепе онкэгнбюрекъ йнлюмдш йкюбхюрспш ------------------ STRL/C .........бшгшбюер опепшбюмхе бшонкмемхъ йнлюмдш хкх опнцпюллш,оевюрюер STOP,нрлемъер деиярбхе STRL/O х STRL/S SBTRL/O .........опейпюыюер бшбнд дюммшу мю реплхмюк,мн ме опепшбюер бшонкме- мхе опнцпюллш.бшбнд асдер бнгнамнбкем,еякх STRL/O асдер мюа- пюмю онбрнпмн STRL/S .........опейпюыюер бшбнд дюммшу мю рр: х опхнярюмюбкхбюер бшонкмемхе опнцпюллш дн реу онп,онйю ме асдер мюапюмю STRL/Q STRL/Q .........онгбнкъер опнднкфюрэ бшбнд дюммшу мю рр: оняке рнцн,йюй нм ашк опейпюыем STRL/S STRL/U .........сдюкъер мюахпюелсч ярпнйс мю реплхмюке дн яхлбнкю "CR" REBOUT .........ярхпюер онякедмхи мюоевюрюмши яхлбнк мю рр: днонкмхрекэмше тсмйжхх хмрепоперюрнпю -------------- ------- ------------- TTYSET .........сярюмюбкхбюер уюпюйрепхярхйх дкъ реплхмюкю онкэгнбюрекъ. [N] [LET] VAR=TTUSET(255%,EXP) EXP ....бшпюфемхе,сярюмюбкхбючыее дкхмс бшдекемни ярпнйх дкъ дюммнцн реплхмюкю мю едхмхжс лемэье гмювемхъ EXP опхлеп:A=TTYSET(255%,81%) RCTRL/O ........опейпюыюер бшбнд дюммшу мю реплхмюк дн реу онп,онйю ме асдер мюапюмю онбрнпмн.ондюбкъер деиярбхе CTRL/O. опхлеп:[N] [LET] VAR=RCTRL/O VAR.....оепелеммюъ,яндепфюыюъ менопедекеммне гмювемхе оняке бшонкмемхъ нопернпю CTRLC & RCTRLC..RCTRLC акнйхпсер "CTRL/C" [N] [LET] VAR=RCTRLC 110 A=RCTRLC ..CTRLC пюгпеьюер деиярбхе "CTRL/C" [N] [LET] VAR=CTRLCR 120 A=RCTRLC ABORT ..........гюбепьюер бшонкмемхе опнцпюлл х б гюбхяхлнярх нр гмювемхъ юп- цслемрю сдюкъер хкх нярюбкъер опнцпюллс б оюлърх [N] [LET] VAR=ABORT(EXP) EXP.....опхмхлюер гмювемхе 0 хкх 1. 0 ......оняке бшонкмемхъ опнцпюллю нярюеряъ б оюлърх 1 ......оняке бшонкмемхъ опнцпюллю ярхпюеряъ,нярюбкъъ гюцн- кнбнй NONAME 100 A=ABORT(1) SYS ............[N] [LET] VAR=SYS(EXP1,EXP2) VAR ....оепелеммюъ EXP1 ...нопедекъер бшонкмъелсч тсмйжхч еуп2 ...опнхгбнкэмши юпцслемр,менаундхлши опх еуп1=7 днонкмхрекэмше гмювемхъ еуп1 -------------- -------- ---- ========================================================================= ! ! ! ! еуп1 ! мюгмювемхе ! ! ! ! ========================================================================= ! ! ! ! 1 ! напюаюршбюеряъ ббндхлши я реплхмюкю яхлбнк х бнгбпюыюеряъ ецн ! ! ! яелхахрнбне гмювемхе б йнх-7 оепелеммни VAR ! ! 4 ! бнгбпюыюер сопюбкемхе лнмхрнпс ! ! 6 ! опх акнйхпнбюмххх де ярбхъ "CTRL/C" тсмйжхеи RCTRLC хмрепоое-! ! ! рюрнп юмюкхгхпсер ашкю кх мюапюмю тсмйжхъ "CTRL/C".бн бпелъ ! ! ! бшонкмемхъ опнцпюллш оепелеммни VAR бнгбпюыюеряъ гмювемхе 0 ! ! ! еякх "CTRL/C" ме мюапюмю х 1 б опнрхбмнл яксвюе ! ! ! ! ------------------------------------------------------------------------- ! ! ! ! 7 ! деиярбхе SYS(7,EXP2) гюбхяхр нр еуп2 ! ! ! ! ! !---------------------------------------------------------------! ! ! ! ! ! ! еуп2 ! мюгмювемхе ! ! ! ! ! ! !---------------------------------------------------------------! ! ! ! ! ! ! 1 ! яхлбнкш оепедючряъ мю реплхмюк аег хглемемхи ! ! ! 0 ! яхлбнкш мхфмецн пецхярпю обпенапюгсчряъ мю яннрберярбс-! ! ! ! чыхе яхлбнкш бепумецн пецхярпю ! ! ! ! ! ========================================================================= 100 A=SYS(1) 110 B=SYS(4) 120 C=SYS(6) 140 D=SYS(7,0) $ARGER .........ондопнцпюллю ньханй.оевюрюер яянаыемхъ хмрепоперюрнпю опх бнгмхймнбемхх месярпюмхлшу ньханй ?ARGUMENT ERROR AT LINE ***** хкх BB?ARG AT LINE *****,цде ***** ..мнлеп ярпнйх я ноепюрнпнл CALL =================== !! 1<=NUM<=32767 !! =================== йнмярюмрш : беыеярбеммше ............... [ 10^(-38)<=ABS(CONST)<=10^(+38) ] --------- жекше ...................... [ -32767 <= CONST <= +32767 ] ярпнйнбше ...............нцпюмхвхбючряъ я дбсу ярнпнм йюбшвйюлх люяяхбш : хлъ люяяхбю-оепелеммюъ,гю йнрнпни якедсер ндхм хкх дбю хмдейяю б ------- дхюоюгнме нр 0 дн 32767.люйяхлюкэмюъ пюглепмнярэ люяяхбнб-2. еякх яоежхюкэмн ме гюпегепбхпнбюмю накюярэ дкъ люяяхбю,рн он слнквюмхч пегепбхпсеряъ 11 щкелемрнб дкъ ндмнлепмнцн хкх 121 щкелемр дкъ дбслепмнцн. б опнцпюлле лнфмн хяонкэгнбюрэ оепелеммсч х люяяхб я ндмхл х рел фе хлемел --------------------------------------------------------------------------- ноепюрнпш ащияхйю --------- ------- CALL ...........бшгшбюер ондопнцпюллс,мюохяюмсч мю юяяелакепе [N] CALL NAME [(LIST)] ащияхй бнгбпюыюер пегскэрюрш бшонкмемхъ ноепюрнпю вепег юпцс- лемрш,гю хяйкчвемхел гкелемрнб тюикнб я опълшл днярсонл 50 CALL "FIL1"(A%,A$,C(9)) CHAIN ..........яецлемрхпсер опнцпюллс,янупюмъелсч б тюике мю сярпниярбе тюи- кнбни ярпсйрспш [N] CHAIN STR [LINE EXP] STR ....яоежхтхйюжхъ бшгшбюелнцн тюикю(яецлемрю опнцпюллш) еуп ....мнлеп ярпнйх,я йнрнпни мювхмюеряъ бшонкмемхе яецлемрю опнцпюллш дкъ бшонкмемхъ CHюIN бяе нрйпшрше тюикш гюйпшбючряъ,гюцпсфю- еряъ мнбши яецлемр опнцпюллш х бшонкмемхе опнднкфюеряъ. оепелеммше х люяяхбш репъчр ябнх гмювемхъ еякх нмх ме сйюгюмш б яохяйе ноепюрнпю COMMON. еякх еуп=0,рн бшонкмемхе мювхмюеряъ ян ярпнйх я мюхлемэьхл мнлепнл. CLOSE ..........гюйпшбюер нопедекеммши кнцхвеяйхи тюик [N] CLOSE [[#]EXP1,...,[#]EXPN] ноепюрнп CLOSE аег яоежхтхйюжхх гюйпшбюер бяе нрйпшрше тюикш. оняке гюйпшрхъ бшундмше тюикш ярюмнбъряъ онярнъммшлх. ноепюрнпш CHAIN,END хкх бшонкмемхе ярпнйх я мюханкэьхл мнле- пнл гюйпшбючр тюикш. пюанрюер янблеярмн я ноепюрнпнл OPEN COMMON .........оепедюер дюммше б оюлърх лефдс яецлемрюлх опнцпюллш [N] COMMON LIST LIST ...яохянй оепелеммшу х люяяхбнб 1.онякеднбюрекэмнярэ яохяйю днкфмю ашрэ ндхмюйнбни бн бяеу яецлемрюу опнцпюллш. 2.люяяхбш,сйюгюмше б COMMON,ме днкфмш нопедекърэяъ б ноепю- рнпюу DIM. 3.вхякн гкелемрнб яохяйю ме днкфмн опебшьюрэ 255 DATA ...........нпцюмхгсер акнй дюммшу дкъ явхршбюмхъ ноепюрнпнл READ [N] DATA CONST1 [,CONST2,...,] DATA днкфем ашрэ кхан едхмярбеммшл,кхан онякедмхл ноепюрнпнл ярпнйх. агияхй дносяйюер времхе вхякнбни CONST б ярпнйнбни. оношрйю явхрюрэ ярпнйнбсч CONST б вхякнбсч оепелеммсч бшгшбю- ер яннаыемхе на ньхайе. DEF ............нопедекъер тсмйжхч онкэгнбюрекъ FNL [N] DEF FNL [%($)] (LIST)=EXP 10 DEF FNL(X,Y)=Y^2+X^2 1.рхо х йнкхвеярбн VAR днкфмш яннрберярбнбюрэ оепелеммшл хг LIST ноепюрнпю DEF 2.Oоепюрнпнл DEF лнфмн онкэгнбюрэяъ рнкэйн б опнцпюллмнл пе- фхле. DIM ............пегепбхпсер леярн б оюлърх дкъ вхякнбнцн хкх ярпнйнбнцн люя- яхбю. [N] DIM LIST 10 DIM A(23),B(4,6),C%(8,18),D$(20) DIM лнфмн онлеыюрэ б кчанл леяре опнцпюллш х б кчани вюярх лмнцнноепюрнпмни ярпнйх. DIM # ..........нопедекъер тюик дюммшу йюй тюик я опълшл днярсонл ноепюрнп OPEN аег FOR INPUT х FOR OUTPUT юмюкнцхвем ноепю- рнпс OPEN FOR INPUT. ноепюрнп DIM #,хяонкэгселши я OPEN,нопедекъер тюик дюммшу йюй тюик я опълшл днярсонл. [N] DIM #EXP VAR(EXP2[,EXP3])[=EXP4] EXP1 ...........мнлеп йюмюкю еуп2,еуп3 ......хмдейяш люяяхбю VAR VAR ............хлъ люяяхбю еуп4 ...........люйяхлюкэмюъ дкхмю яхлбнкэмшу ярпнй дкъ ярпн- йнбнцн люяяхбю 10 DIM #2 AB$(10)=128 20 OPEN "NAME" FOR INPUT AS FILE #2 END ............нопедекъер тхгхвеяйхи йнмеж б опнцпюлле [N] END ъбкъеряъ онякедмхл б опнцпюлле FOR ............сйюгшбюер мювюкн жхйкю х ецн оюпюлерпш [N] FOR VAR=EXP1 TO EXP2 [STEP EXP3] 20 FOR I=1 TO A%-4 STEP A/2 FOR хяонкэгсеряъ янблеярмн я NEXT еякх мювюкэмне гмювемхе хмдейямни оепелеммни анкэье йнмевмнцн (опх онкнфхрекэмнл ьюце) жхйк ме бшонкмъеряъ. оепедюбюрэ сопюбкемхе бмсрпэ жхйкю медносярхлн. дкъ ярпнцнцн янакчдемхъ йнкхвеярбю жхйкнб пейнлемдсеряъ хя- онкэгнбюрэ жекше гмювемхъ хмдейянб. жхйкш лнцср бйкюдшбюрэяъ,мн ме днкфмш оепейпшбюрэяъ GOSUB ..........нясыеярбкъер оепеунд й ондопнцпюлле [N] GOSUB N GO TO ..........оепеунд й сйюгюмни ярпнйе [N] GO TO N GO TO днкфем ашрэ хкх едхмярбеммшл,хкх онякедмхл ноепюврнпнл ярпнйх IF THEN ........сякнбмши ноепюрнп оепеундю IF GO TO [N] IF REL-EXP THEN N хкх [N] IF REL-EXP THEN EXP [N] IF REL-EXP GO TO N еякх сякнбхе хярхммн,рн сопюбкемхе оепедюеряъ мю сйюгюмсч ярпнйс IF END#THEN ....оепедюер сопюбкемхе о:пх намюпсфемхх йнмжю тюикю я онякеднбю- IF END#GOTO рекэмшл днярсонл [N] IF END[#]EXP THEN N [N] IF END[#]EXP THEN STATEMENT [N] IF END[#]EXP GO TO N опхгмюй йнмжю тюикю намюпсфхбюеряъ еякх б тюике мер анкэье дюммшу INPUT ..........ббндхр дюммше я реплхмюкю б опнжеяяе бшонкмемхъ опнцпюллш [N] INPUT VAR[1,VAR2,...] бярперхб INPUT,BASIC оевюрюер "?" х фдер ббндю гмювемхи дкъ йюфдни оепелеммни.гмювемхъ пюгдекъчряъ гюоършлх. яхлбнк <бй> опнхгбндхр ббнд дюммшу якебю мюопюбн дн нцпю- мхвхрекъ ярпнйх "бй" INPUT # ........явхршбюер тюик,нрйпшрши ноепюрнпнл OPEN FOR INPUT [N] INPUT #EXP,VAR1[,VAR2,...] EXP ....мнлеп йюмюкю опх явхршбюмхх тюикю менаундхлн опхдепфхбюрэяъ реу фе яхм- рюйяхвеяйху опюбхк,йюй еякх аш ббнд нясыеярбкъкяъ я реплх- мюкю KILL ...........сдюкъер нопедекеммши кнцхвеяйхи тюик [N] KILL STR STR ....яоежхтхйюжхъ сдюкъелнцн тюикю LET ............опхябюхбюер гмювемхе оепелеммни [N] LET VAR=EXP 10 LET A=B+C хкх 10 A=B+C LINPUT .........ббндхр ярпнйнбше дюммше я реплхмюкю.юмюкнцхвем INPUT,мн дкъ ярпнйнбшу оепелеммшу [N] LINPUT STR-VAR1(,STR-VAR2,...] ноепюрнп опхмхлюер янрпнйс бундмни хмтныплюжхх(я реплхмюкю), бйкчвюъ мювюкэмше,йкчвебше,опнлефсрнвмше опнаекш х йюбшвйх LINPUT # .......явхршбюер ярпнйс дюммшу хг тюикю,нрйпшрнцн ноепюрнпнл OPEN FOR INPUT [N] LINPUT #EXP,STR-VAR1[,STR-VAR2,...] NAME TO ........хглемъер хлъ тюикю [N] NAME STR1 TO STR2 STR1 ...яоежхтхйюжхъ тюикю,ондкефюыюъ хглемемхч STR2 ...мнбюъ яоежхтхйюжхъ тюикю еякх б STR1 сйюгюмн сярпниярбн,рн б STR2 рнфе днкфмн ашрэ сйюгюмн сярпниярбн NEXT ...........сйюгшбюер йнмеж жхйкю,нпцюмхгнбюмнцн ноепюрнпнл FOR 100 NEXT I ON GOSUB .......оепедюер сопюбкемхе ндмни хг меяйнкэйху ондопнцпюлл [N] ON EXP GOSUB N1[,N2,N3,...] 50 ON A+B GOSUB 50,60,70,80,90,100,110,120 ON GOTO ........оепедюер сопюбкемхе ндмни хг сйюгюмшу ярпнй б гюбхяхлнярх ON THEN нр гмювемхъ еуп [N] ON EXP THEN N1[,N2,N3,...] 10 ON A+B/C GOTO 30,40,50,60,110 OPEN ...........ябъгшбюер мнлеп йюмюкю ббндю/бшбндю я хлемел нопедекеммнцн тюикю [N] OPEN"[DEV:]FILE[.TYPE]"FOR INPUT AS FILE [#]EXP1 (бундмни йюмюк) хкх [N] OPEN "DEV:FILE.TYP" FOR OUTPUT AS FILE [#]EXP1 EXP1 ...мнлеп йюмюкю ббндю/бшбндю 1 <= еуп1 <= 12 лнцср днаюбкърэяъ якедсчыхе оюпюлерпш: [DOUBLE BUF] ...нопекедъер мюкхвхе леярю б оюлърх дкъ нопе- декемхъ брнпнцн астепю [FILESEE EXP1] .ноюпедекъер накюярэ б акнйюу дкъ бшундмнцн тюикю мю дхяйе OVERLAY ........на'едхмъер опнцпюллс б оюлърх я опнцпюллни,янупюмъелни б но- педекеммнл тюике мю сярпниярбе тюикнбни ярпсйспш [N] OVERLAY STR [LINE EXP] STR ....яоежхтхйюжхъ тюикю 1.ярпнйх бшгшбюелни опнцпюллш гюлемъчр ярпнйх опнцпюллш б ою- лърх еякх ху мнлепю янбоюдючр 2.бяе люяяхбш х оепелеммше янупюмъчр ябнх гмювемхъ 3.бяе нрйпшрше тюикш нярючряъ нрйпшршлх 4.опнцпюллю опнднкфюеряъ я сйюгюмни ярпнйх (LINE EXP) хкх ян ярпнйх,якедсчыеи гю ноепюрнпнл,бшгбюбьхл OVERLAY 5.бшгшбюелюъ опнцпюллю ме днкфмю яндепфюрэ DIM,DEF PRINT ..........бшбндхр дюммше мю реплхмюк [N] PRINT [LIST] PRINT аег LIST бшбндхр ярпнйс опнаекнб еякх щкелемрнл яохяйю ъбкъеряъ бшпюфемхе,ащияхй бшвхякъер ецн х оевюрюер пегскэрюр.ащияхй бшонкмъер оепебнд ярпнйх оняке йюфднцн PRINT. ярпнйю яхлбнкнб,бшбндхлюъ мю реплхмюк,янярнхр хг 5 гнм он 14 онгхжхи б йюфдни гнме PRINT # ........онлеыюер дюммше б нопедекеммши кнцхвеяйхи тюик [N] PRINT #EXP[,LIST] PRINT аег яохяйю онлеыюер ярпнйс опнаекнб б тюик 10 PRINT #1,T,C,A PRINT #USING ...оевюрюер пегскэрюрш пюанрш б тнплюре [N] PRINT [#EXP,] USING STR,LIST STR ....ярпнйнбюъ йнмярюмрю (тнплюр),сопюбкъчыюъ оевюрэч яох- яйю LIST б тнплюрмни ярпнйе STR лнцср ашрэ нашвмше яхлбнкш х яхлбнкш сопюбкемхъ тнплюрнл оевюрх.нашвмше яхлбнкш оевюрючряъ б хдем- рхвмни тнпле.яхлбнкш сопюбкемхъ тнплюрнл оевюрх нопедекемш дбслъ рхоюлх онкеи - вхякнбшлх х ярпнйнбшлх 40 PRINT #USING "тнплюр:###.#",15.1 тнплюр:15.1 (ял.вхякнбше онкъ) RANDOMIZE ......хглемъер гмювемхе яксвюимнцн вхякю опх бшонкмемхх тсмйжхх RND [N] RANDOMIZE RANDOMIZE онлеыюеряъ оепед оепбшл хяонкэгнбюмхел тсмйжхх якс- вюимшу вхяек б опнцпюлле.опх бшонкмемхх тсмйжхх RND ноепюрнп RANDOMIZE хглемъер мювюкэмне гмювемхе яксвюимнцн х-якю рюйхл напюгнл,врн рю фе яюлюъ опнцпюллю,бшонкмемюъ б дпсцни пюг, дюяр дпсцхе пегскэрюрш READ ...........явхршбюер акнй опнцпюллш,нпцюмхгнбюмши ноепюрнпнл DATA [N] READ VAR1[,VAR2,VAR3,...] оепед бшонкмемхел опнцпюллш ащияхй опнялюрпхбюер бяе ноепюрн- пш DATA б онпъдйе ху янгдюмхъ х янгдюер акнй дюммшу.йюфдши пюг,йнцдю бярпевюеряъ ноепюрнп READ,акнй дюммшф бшгшбюер оня- кеднбюрекэмн яннрберярбсчыхе гмювемхъ дкъ оепелеммшу щрнцн ноепюрнпю б рнл онпъдйе,б йнрнпнл нмх гюдюмш б акнйе дюммшу. оняке бшонкмемхъ READ онкнфемхе онякедмху явхрюмшу дюммшу гю- онлхмюеряъ опх онлных сйюгюрекъ.якедсчыхи ноепюрнп READ мювх- мюер бшахпюрэ дюммше я рни онгхжхх,йнрнпюъ ашкю сярюмнбкемю опедшдсыхл ноепюрнпнл REM ............хяонкэгсеряъ дкъ ббндю опхлевюмхи х йнллемрюпхеб б опнцпюллс [N] REM йнллемрюпхи опхлевюмхъ х йнллемрюпхх оевюрючряъ б кхярхмце опнцпюллш х ме бкхъер мю ее бшонкмемхе RESET ..........щйбхбюкемрем ноепюрнпс RESTORE RESTORE с-ярюмюбкхбюер сйюгюрекэ явхршбюмхъ дюммшу,нпцюмхгселшу ное- пюрнпнл DATA б мювюкэмсч онгхжхч.опх бшонкмемхх READ сйюгю- рекэ явхршбюмхъ оепелеыюеряъ.RESTORE нясыеярбкъер онбрнпмне явхршбюмхе ндмху х реу фе дюммшу RESTORE # ......сярюмюбкхбюер сйюгюрекэ явхршбюмхъ тюикю б мювюкэмсч онгхжхч. [N] RESTORE #EXP RETURN .........бнгбпюыюер сопюбкемхе ноепюрнпс,якедсчыелс гю он5якедмхл бш- онкмемшл ноепюрнпнл GOSUB [N] RETURN дкхмю ондопнцпюллш ме днкфмю опебшьюрэ 20 ярпнй STOP ...........бшгшбюер нярюмнб опнцпюллш.оняке щрнцн пюанрю опнцпюллш лнфер ашрэ бнгнамнбкемю ноепюрнпнл GO TO [N] STOP ащияхй оевюрюер яннаыемхе: STOP AT LINE N (нярюмнб б ярпнйе N ноепюрнп ме гюйпшбюер тюикю тсмйжхх ------- ------- люрелюрхвеяйхе тсмйжхх -------------- ------- ========================================================================= ! ! ! ! тсмйжхъ ! гмювемхе тсмйжхх ! !-----------------------!-----------------------------------------------! ! ! ! ! SGN(EXP) ! гмюй юпцслемрю.опх ! ! ! EXP>0 SGN= +1 ! ! ! EXP<0 SGN= -1 ! ! ! EXP=0 SGN= 0 ! ! ABS(EXP) ! лндскэ EXP ! ! INT(EXP) ! жекюъ вюярэ еуп ! ! SIN(EXP) ! яхмся ! ! COS(еуп) ! йняхмся ! ! юрN(еXP) ! юпйрюмцемя ! ! SQR(EXP) ! йбюдпюрмши йнпемэ ! ! еуп(еуп) ! щйяонмемрю,цде еуп<87 ! ! LOG(EXP) ! мюрспюкэмши кнцюпхтл,цде еуп>0 ! ! LOG10(EXP) ! деяърхвмши кнцюпхтл ! ! PI ! бнгбпюыюер о=3.1415927 ! ! RND(EXP) ! тсмйжхъ яксвюимшу вхяек ! ! RND ! цемепхпсер ояебдняксвюимне вхякн хкх янбн- ! ! ! йсомнярэ вхяек б хмрепбюке нр 0 дн 1.гмюве- ! ! ! мхе юпцслемрю еуп хцмнпхпсеряъ.тсмйжхъ цеме-! ! ! пхпсер ндхм х рнр фе яохянй опх лмнцнйпюрмнл! ! ! напюыемхх.еякх менаундхлн (ю,а),рн ! ! ! (б-ю)*RND+A ! ! ! ! ========================================================================= ярпнйнбше тсмйжхх --------- ------- ========================================================================= ! ! ! ! тсмйжхъ ! гмювемхе тсмйжхх ! ! ! ! !-----------------------!-----------------------------------------------! ! ! ! ! LEN(STR) ! нопедекъер дкхмс ярпнйх,р.е.бшдекъер йнкх- ! ! ! веярбн яхлбнкнб б яхлбнкэмни ярпнйе ! ! TRM$(STR) ! бнгбпюыюер гюдюмсч ярпнйс,хяйкчвюъ йнмевмше ! ! ! опнаекш ! ! POS(STR1,STR2,EXP) ! нясыеярбкъер онхяй ондярпнйх STR2 б ярпнйе ! ! ! STR1 я онгхжхх EXP.намюпсфхб ондярпнйс,POS ! ! ! бнгбпюыюер онгхжхч оепбнцн яхлбнкю ондярпнйх! ! ! 0 - ондярпнйх мер ! ! SEG$(STR,EXP1,EXP2) ! тсмйжхъ бшдекъер ондярпнйс б опедекюу яхл- ! ! ! бнкэмни ярпнйх STR я онгхжхх гмюйю еуп1 дн ! ! ! онгнжхх гмюйю еуп2 ! ! DAT$ ! тсмйжхъ дюрш.бнгбпюыюер рейсысч дюрс б бхде ! ! ! NN-MMM-YY ! ! CLK$ ! тсмйжхъ бпелемх TT-MM-SS ! ! ! ! ========================================================================= тсмйжхх опенапюгнбюмхъ ------- -------------- ========================================================================= ! ! ! ! тсмйжхъ ! гмювемхе тсмйжхх ! !---------------!-------------------------------------------------------! ! ! ! ! ASC(STR) ! бнгбпюыюер гмювемхе яхлбнкнб б йнде йнх-7.ярпнйю ! ! ! STR днкфмю яндепфюрэ ндхм яхлбнк х ме днкфмю ашрэ ! ! ! осярни: ! ! ! PRINT ASC("X") ! ! ! 88 ! ! CHR$(EXP) ! бнгбпюыюер ярпнйс хг ндмнцн яхлбнкю 0<=еуп<=127 ! ! VAL(STR) ! бнгбпюыюер вхякнбне гмювемхе,гюдюммне ярпнйни. ! ! ! ярпнйю днкфмю хлерэ бхд вхякнбни йнмярюмрш. ! ! ! PRINT VAL("15.3E-2") ! ! ! 0.153 ! ! STR$(EXP) ! бнгбпюыюер гмювемхе бшпюфемхъ б бхде ярпнйх аег ! ! ! опнлефсрнвмшу,мювюкэмшу х йнмевмшу опнаекнб: ! ! ! PRINT STR$(" 3 + 2 ") ! ! ! 5 ! ! BIN(STR) ! бнгбпюыюер жекне деяърхвмне гмювемхе дбнхвмнцн вхякю! ! ! опедярюбкеммнцн ярпнйни. ! ! OCT(STR) ! бнгбпюыюер жекне деяърхвмне гмювемхе бняэлепхвмнцн ! ! ! вхякю. ! ! ! ! ========================================================================= тсмйжхх онкэгнбюрекъ ------- ------------ хлемю мювхмючряъ асйбюлх FN,рперэъ асйбю - кчаюъ кюрхмяйюъ,гю йнрнпни якедсер гмюй "%" хкх "$" еякх менаундхлн.гюрел б йпсцкшу яйнайюЧ яохянй оепелеммшу (1...5) х вепег "=" бшвхякъелне бшпюфе- мхе. о_п_х_л_е_в_ю_м_х_ъ_: 1.рхо х йнкхвеярсн б яохяйе днкфмн яннрберярбнбюрэ йнкхвеярбс б бшпюфемхх 2.юпцслемр тсмйжхх лнфер нрясрярбнбюрэ 3.ндмю х рю фе тсмйжхъ мопедекъеряъ ноепюрнпнл DEF ндхм пюг тсмйжхъ рюб ------- --- [N] PRINT TAB (EXP) EXP ....гюдюбюелши мнлеп онгхжхх оевюрх.опхмхлюер гмювемхе нр 0 дн мнлепю яюлни опюбни онгхжхх ярпнйх реплхмюкю (дкъ 11 тнплюрю мю D100 = 70) тсмйжхъ рюб)онгхжхнмхпсер онкнфемхе яхлбнкю ярпнйх опх оевюрх 20 PRINT TAB (5);A;TAB (10);B вхякнбше онкъ -------- ---- онке вхяек сйюгшбюеряъ б тнплюрмни ярпнйе яхлбнкнл "#" х бшпюб- мхбюеряъ он опюбнлс йпюч.пюяонкнфемхе деяърхвмни рнвйх нопедекъеряъ "." опнхгбндхряъ нйпсцкемхе вхяек опх менаундхлнярх 30 PRINT USING"###.##",A еякх вхякнбне онке лемэье вхякю оевюрюеряъ гмюй "%" х онке хцмн- пхпсеряъ яхлбнк "**" ------ ---- еякх вхякнбне онке б тнплюрмни ярпнйе мювхмюеряъ я "**",рн кчаше мехяонкэгнбюмше гмюйнлеярю б онке тнплюрю гюонкмъчряъ **.нрпхжюрекэмше вхякю ме бшбндъряъ **,еякх мю мху мер тнплюрж "#" 10 PRINT USING "**##.##" A,B,C яхлбнк бнгбедемхъ б яреоемэ "^^^^" ------ ---------- - ------- ------ еякх вхякн опедярюбкъеряъ б щйяонмемжхюкэмни тнпле,рн гю онкел вхякю б тнплюрмни ярпнйе якедсер онякеднбюрекэмнярэ яхлбнкнб "^^^^" 10 PRINT USING "##.#^^^^" 10.5E+15 йнмжебни лхмся "-" -------- ----- --- еякх онке вхякю гюбепьюеряъ гмюйнл "-",рнгмюй лхмся нрпхжюрекэмн- цн вхякю оевюрюеряъ ягюдх 10 PRINT USING "##.##-",-10.51 10.51- яхлбнк "$" ------ --- еякх онке мювхмюеряъ я яхлбнкнб "$$",оепед оепбни жхтпни вхякю бш- бндхряъ яхлбнк "$".яхлбнкш "$$" пегепбхпсчр дбю леярю.1 дн одвюрх $,2 щйбх- бюкемрмн #.ме опхцндмш дкъ нрпхжюрекэмшу вхяек еякх б # мер леярю - 10 PRINT USING "$$##.#-" -5.2 яхлбнк "," ------ --- еякх б онке вхякю,якебю нр деяърхвмни рнвйх (б кчани онгхжхх) он- леярхрэ ",",рн гюоърюъ ярюбхряъ вепег Июфдше рпх гмюйю нр деяърхвмни рнвйх ямнбю 10 PRINT USING "#####,#.#" 15313.3 15,313.3 ярпнйнбше онкъ --------- ---- ярпнйнбше онкъ опх оевюрх бшпюбмхбючряъ якебю хкх яопюбю,хкх пюяон- кнфемш он жемрпс ярпнйнбнцн онкъ тнплюрмни ярпнйх.еякх яхлбнкнб б ярпнйе анкэье,вел пегепбмшу онгхжхи,ярпнйю сяейюеряъ яхлбнк "'" ------ --- пегепбхпсер леярн дкъ ндмнцн яхлбнкю,ъбкъеряъ яхлбнкнл мювюкю ярпн- йнбнцн онкъ,гю йнрнпшл якедсер ндмю хг асйб:L,R,C хкх е яхлбнк "L" ------ --- бшпюбмхбюер ярпнйс бкебн,пегепбхпсер леярн дкъ ндмнцн яхлбнкю яхлбнк "R" ------ --- бшпюбмхбюер ярпнйс бопюбн х пегепбхпсер леярн дкъ ндмнцн яхлбнкю яхлбнк "я" ------ --- оевюрюер ярпнйс он жемрпс ярпнйнбнцн онкъ тнплюрмни ярпнйх ярянйн- бнцн онкъ,пегепбхпсер леярн дкъ ндмнцн яхлбнкю яхлбнк "е" ------ --- бшпюбмхбюер ярпнйс бкебн,пюяьхпъер онке (еякх менаундхлн оевюрюер бяч ярпнйс),пегепбхпсер леярн дкъ ндмнцн яхлбнкю 10 PRINT USING "'CCC","ABC" гюосяй ------ .biSIC (R BASIC хкх RUN dev:BASIC)C BASIC/RAFOS V.02-030 OPTION& FUNCTION (ALL,NONE OR INDIVIDUAL)? READY нярюмнб опнцпюлнш ------- --------- дбю <яс/C> меледкеммн нярюмюбкхбюер опнцпюллс ндхм <яс/C> нярюмюбкхбюер опнцпюллс с ноепюрнпю ббндх/бшбндю бнгбпюр сопюбкемхъ б лнмхрнп он йнлюмде BYE