Labels:crt screen | monitor | sky | window OCR: Turbo Basic File Edit Run Compile Options Setup Window Debug Edit E:DECBIN BAS Line Col Insert Indent Tab cls rem v=vstupni bute,x y=pomocna promenna pro prevod abcdefgh=znaky bitu 10 input 'zadej cislo rozsahu az 255 :v 15 if v<0 or v>255 then print spatny rozsah :goto 10 Prostredi progr amu Turbo Basic 20 if <n X=v/ 128 then let a=] else a=0 firmy Borland 30 let 128 40 let y=v- (int(x)*1Z8) 50 if y>=64 then let h else b=0 60 let x=y 64 Cast proar amu jazyce BASIC 70 let (int(x)x64) 80 if y> 32 then let c=1 else c=0 90 let x=y /32 100 let y=y (int x32) 110 if y>=16 then let d=1 else d=0 120 let x=yv 16 130 let y=y (int(x)*16) -He1p F5 -Zoom F6- -Next F7 Goto SCROLL- -Size /move NUM x -Exit DECRIN nsert udn7sn programt SCROLI
(.png)
