main.bas
1
2
3
4
5
6
7
8
9
10
11
INPUT "Enter height, increment and drop:", h,i,d   'these are input using the : symbol in QBIC, and stored in a, b, c resp.
q=1           'not declared in QBIC, part of the environment/language
IF i>d THEN  
WHILE h-i>0
q=q+1
h=h-i+d
WEND
PRINT q
ELSE
PRINT 0
END IF        'there are slightly shorter ways to do this in pure basic, but this is the most literal translation of my QBIC code.
QBasic (qb.js) Copyright (c) 2010 Steve Hanov