Т > Checks 1.01 8Т Check for presence of extended BASIC functionality *Т Tests for BBFW and PDP-11 extensions (CТ Has to be edited in BB4W or extended BASIC to preserve tokens 2: < ч mem% 15 Fok%=╧:Н ┘ ok%=ё:Н ┘ ┤ PГ ok%:$$mem%="":A$=$$mem% ZЯ"$$ "єnot(ok%) d: nok%=╧:Н ┘ ok%=ё:Н ┘ ┤ xГ ok%:ч str{a,b} ┌"Я"DIM structure{..} "єnot(ok%) ▄: √ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ═"Г ok%:ч one{a,b}:ч two{}=one{} ╙,Я"DIM one{}=two{} prototyping "єnot(ok%) Є: Ўok%=╧:Н ┘ ok%=ё:Н ┘ ┤ хГ ok%:Ц A%=1 ╦ 2:EXIT Ц рГ ok%:М A% эЯ"EXIT FOR "єnot(ok%) Ф: Пok%=╧:Н ┘ ok%=ё:Н ┘ ┤ З)Г ok%:Ц A%=1 ╦ 2:Ц B%=1 ╦ 2:EXIT Ц A% Г ok%:М B%:М A% Я"EXIT FOR "єnot(ok%) : "ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ,Г ok%:У:EXIT У 6 Г ok%:Щ ╧ @Я"EXIT REPEAT "єnot(ok%) J: Tok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ^Г ok%:A%=1:х∙ A%=1:EXIT х∙ hГ ok%:A%=A%-1:н rЯ"EXIT WHILE "єnot(ok%) |: ├ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ░Г ok%:П 0,0 Я"PLOT x,y "єnot(ok%) є: ўok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ╦%Г ok%:Я"Press space...";:Рprivate бЯҐ13;"PRIVATE "єnot(ok%) л: жok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ЮГ ok%:A%=^Рpr:Р(A%) ЙЯ"PROC() "єnot(ok%) Т: Чok%=╧:Н ┘ ok%=ё:Н ┘ ┤ !Г ok%:Рpcall(Рpr):Рfcall(єfn) *Я"PROCcall(PROCname|FNname) "єnot(ok%) : &ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ 0'Г ok%:A%=єpcall(Рpr):A%=єfcall(єfn) :(Я"FNcall(PROCname|FNname) "єnot(ok%) D: Nok%=╧:Н ┘ ok%=ё:Н ┘ ┤ XГ ok%:х⌠ х■ 0,0,0,0 ╦ 0,0 bЯ"RECTANGLE SWAP "єnot(ok%) l: vok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ─Г ok%:х√ 0 ┼Я"WAIT "єnot(ok%) ■: ·ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ╗Г ok%:Рline ╡$Я"\ line continuation "єnot(ok%) ╪: фok%=╧:Н ┘ ok%=ё:Н ┘ ┤ пГ ok%:one.a=1 з%Я"structure assignment "єnot(ok%) Д: Нok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ЬГ ok%:A%=ч(one{}) Я"=DIM(struct{}) "єnot(ok%) : ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ Г ok%:A%=^єfn:A%=є(A%) *Я"FN() "єnot(ok%) 4: >ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ HГ ok%:A%=^A% RЯ"^ address-of "єnot(ok%) \: fok%=╧:Н ┘ ok%=ё:Н ┘ ┤ pГ ok%:A%=one.a z*Я"reading structure content "єnot(ok%) └: ▌ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ≤Г ok%:A%=1:A%*=2 ╒Г ok%:Г A%<>2:ok%=0 ╛Я"*= "єnot(ok%) І: юok%=╧:Н ┘ ok%=ё:Н ┘ ┤ йГ ok%:A%=4:A%/=2 тГ ok%:Г A%<>2:ok%=0 чЯ"/= "єnot(ok%) Х: Рok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ЭГ ok%:A%=7:A%─=2 Г ok%:Г A%<>2:ok%=0 Я"AND= "єnot(ok%) : $ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ .Г ok%:A%=4:A%└=2 8Г ok%:Г A%<>6:ok%=0 BЯ"OR= "єnot(ok%) L: Vok%=╧:Н ┘ ok%=ё:Н ┘ ┤ `Г ok%:A%=6:A%┌=2 jГ ok%:Г A%<>4:ok%=0 tЯ"EOR= "єnot(ok%) ~: ┬ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ▓Г ok%:A%=10:A%┐=6 °Г ok%:Г A%<>4:ok%=0 іЯ"MOD= "єnot(ok%) ╟: ╨ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ дГ ok%:A%=10:A%│=3 нГ ok%:Г A%<>3:ok%=0 ьЯ"DIV= "єnot(ok%) Б: Лok%=╧:Н ┘ ok%=ё:Н ┘ ┤ Ж5Г ok%:Я"Press space...";:Ъ"FX138,0,127":A$=Ў(0,0) ЯҐ13;"GET$(x,y) "єnot(ok%) : ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ 5Г ok%:Я"Press space...";:Ъ"FX138,0,127":A%=╔(0,0) (ЯҐ13;"GET(x,y) "єnot(ok%) 2: <ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ F3Г ok%:Я"Press space...";:Ъ"FX138,0,127":A%=╔(0) PЯҐ13;"GET(x) "єnot(ok%) Z: dok%=╧:Н ┘ ok%=ё:Н ┘ ┤ nГ ok%:A%=&o100 x#Я"&o octal constants "єnot(ok%) ┌: ▄ok%=╧:Н ┘ ok%=ё:Н ┘ ┤ √Г ok%:A$=ц=100 ═,Я"STR$= octal conversion "єnot(ok%) ╙: Єok%=╧:Н ┘ ok%=ё:Н ┘ ┤ ЎГ ok%:A$=ц/100 х-Я"STR$/ binary conversion "єnot(ok%) р: эЮ Ф1щєnot(A%)=д30-╠,".")+ю"not ",╛A%)+"available" ПщРprivate:PRIVATE a%:А З щРpr:А щєfn=1 щРline:\ comment \ А "щРpcall(Ь p%) , Р(^p%) 6А @щРfcall(Ь p%) J A%=є(^p%) TА ^щєpcall(Ь p%) h Р(^p%) r=0 |щєfcall(Ь p%) ├ A%=є(^p%) ░=A% Ъ