Bmpreal.bas


Title: bmpreal
Description: Simple program to calculate a relation when transforming a bmp file
rem coming from frehand drawing to real.
rem


Category: Graphics/Utilities
Copyright: Jaime Andres Maturana Viera
Email: jaimemv@gmail.com
Created: 2002
Version: 1.0
Sbver: 0.8.2


'#sec:Main
10 cls:color 9
20 print "RELACION DE DIBUJO A BMP"
30 color 0
40 input "Ancho bmp en dots?",b
45 if b=0 then goto 120
50 input "Ancho real mm?",a
55 if a=0 then goto 120
60 r=(b/10):r=a/r
70 ? "Relacion=";
80 color 12
90 ? r:color 0
110 goto 40
120 end
'