Here's an example code in QBasic (a nice simple programming language that can be edited by NotePad and is not case-sensitive) :
Code:
'Box Drawer program
'Made by Nick Iannone on Microsoft QuickBASIC and Notepad
'Compiled by Microsoft QuickBASIC
0 :
CLS
PRINT " Box Draw "
PRINT "************************"
PRINT " Please enter length: "
INPUT L#
PRINT " Please enter width: "
INPUT W#
PRINT " Please enter depth: "
INPUT D#
PRINT " Clear or not? (1/0) "
INPUT C#
CLS
PRINT " Loading... "
SLEEP 1
LET V# = L# * W# * D#
LET D# = D# * .6
SCREEN 7
LET P# = 100 - (L# / 2)
PSET (P#, P#)
PSET (P# - L#, P#)
PSET (P# - L#, P# - W#)
PSET (P#, P# - W#)
LET A# = L# * .5
LET B# = SQR((D# * D#) - (A# * A#))
PSET (P# - L# - A#, P# - B#)
PSET (P# - L# - A#, P# - W# - B#)
PSET (P# - A#, P# - W# - B#)
LINE (P#, P#)-(P#, P# - W#)
LINE (P#, P#)-(P# - L#, P#)
LINE (P# - L#, P#)-(P# - L#, P# - W#)
LINE (P#, P# - W#)-(P# - L#, P# - W#)
LINE (P# - L#, P#)-(P# - L# - A#, P# - B#)
LINE (P#, P# - W#)-(P# - A#, P# - W# - B#)
LINE (P# - L#, P# - W#)-(P# - L# - A#, P# - W# - B#)
LINE (P# - L# - A#, P# - B#)-(P# - L# - A#, P# - W# - B#)
LINE (P# - A#, P# - W# - B#)-(P# - L# - A#, P# - W# - B#)
IF C# = 1 THEN
GOTO 2
ELSEIF C# = 0 THEN
GOTO 1
ELSE
GOTO 0
END IF
1 :
PSET (P# - A#, P# - B#)
LINE (P#, P#)-(P# - A#, P# - B#)
LINE (P# - A#, P# - B#)-(P# - L# - A#, P# - B#)
LINE (P# - A#, P# - B#)-(P# - A#, P# - W# - B#)
2 :
PRINT "Volume:"; V#
END
Bookmarks