5748255 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n test1.bas
   1: DECLARE SUB Upper (N$)
   2: R$ = "ro is smart!"
   3: CLS
   4: Upper R$
   5: PRINT R$
   6: 
   7: SUB Upper (N$)
   8: FOR qw = 1 TO LEN(N$)
   9: IF ASC(MID$(N$, qw, 1)) > 96 AND ASC(MID$(N$, qw, 1)) < 123 THEN MID$(N$, qw, 1) = CHR$(ASC(MID$(N$, qw, 1)) - 32)
  10: NEXT qw
  11: END SUB
  12:
5748256 [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:10:04