home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_prog / lbas09p2.arj / EXP.BAS < prev    next >
BASIC Source File  |  1992-04-27  |  1KB  |  49 lines
  1.  
  2.                                                                                              
  3.     button #1, Done, [done], LR, 5, 5
  4.     open "Please enter some text and press button." for text as #1
  5.     input r$
  6.  
  7.     end
  8.  
  9. [done]
  10.     print #1, "!lines" ;
  11.     input #1, lines
  12.     print lines; " lines of text:" : print
  13.     for x = 1 to lines
  14.         print #1, "!line "; x ;
  15.         input #1, line$
  16.         print line$
  17.     next x
  18.     input r$
  19.  
  20.  end
  21.  
  22.  
  23.  print "say" ' this line prints hello  : print tab(5); "hi"
  24.   print "hello"
  25.  
  26.     open "TEXT TEST" for text as #1
  27.     print #1, "This is a test"
  28.     input r$
  29.     print #1, "!cls"
  30.     print #1, "This isn't a test"
  31.     input r$
  32.  
  33.     print #1, "!font TmsRmn 5 13"
  34.     input r$
  35.     print #1, "!font TmsRmn 6 16"
  36.     input r$
  37.     print #1, "!font TmsRmn 8 19"
  38.     input r$
  39.     print #1, "!font TmsRmn 9 21"
  40.     input r$
  41.     print #1, "!font TmsRmn 12 27"
  42.     input r$
  43.     print #1, "!font TmsRmn 16 35"
  44.     input r$
  45.     print #1, "!font Roman 19 32"
  46.     input r$
  47.  
  48.     close #1
  49.