home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
interpre
/
liberty
/
windows
/
demo.bas
< prev
next >
Wrap
BASIC Source File
|
1992-03-21
|
295b
|
15 lines
' this is a BASIC demo program
input "give me a #>"; number$
number = val(number$ + ".05") * -10
print number
number$ = str$(number / 15)
long = len( number$ )
for x = 1 to long
print mid$(number$,x,1)
next x
print
print 50 - 100