home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / WBASIC14 / WBASIC14.ZIP / BB14.ZIP / SAMPLE1.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-05-08  |  571 b   |  25 lines
  1.  
  2.  
  3. rem
  4. rem Example of Program to print HELLO on screen.
  5. rem
  6. rem This program has waits for input before stopping.
  7. rem We are waiting for input because in Windows, when program stops
  8. rem the window is erased and we couldn't see the Hello.
  9. rem
  10. rem This program uses a function unique to BasicBasic.  This is the
  11. rem function OSTYPE.  This function returns a 1 if DOS or a 2 if running
  12. rem under Windows.
  13. rem
  14.  
  15.  
  16.     print "Hello!"
  17.  
  18.     if ostype=1 then
  19.       print
  20.       print "Press any key to continue..."
  21.     end if
  22.  
  23. 100 if inkey$="" then goto 100
  24.  
  25.