5748197 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n grade.bas
   1: 1 CLS
   2: PRINT "Grade Figurer"
   3: PRINT "   "
   4: PRINT "Number Of Questions"
   5: LOCATE 3, 20: INPUT A
   6: PRINT "Points Per Question:"
   7: LET C = 100 / A
   8: LOCATE 4, 21: PRINT C; "Rounded to the Nearest Whole Number is[": LOCATE 4, 70: PRINT CINT(C); "]"
   9: PRINT "Please wait"
  10: 10 FOR I = 5 TO 1 STEP -1
  11: LOCATE 5, 13: PRINT I
  12: SLEEP 1
  13: NEXT I
  14: GOTO 1
  15: SYSTEM
  16:
5748198 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:03:18