home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 22
/
CD_ASCQ_22_0695.iso
/
win
/
prg
/
lb11wi
/
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