home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / sortsubs.zip / BEFORE.BAS < prev    next >
BASIC Source File  |  1993-07-11  |  406b  |  26 lines
  1. cls
  2. print "This is the main part"
  3. print "of the program."
  4. end
  5. sub test1
  6. rem this is a test
  7. end sub
  8. function alpha
  9. end function
  10. sub dandysub
  11. rem dandy subroutine
  12. end sub
  13. function weirdfunction
  14. 'do nothing
  15. 'now
  16. end function
  17. 'This is a rem line between SUBs
  18. sub xray
  19. 'do nothing here too
  20. end sub
  21. function beta
  22. print "test"
  23. end function
  24. 'This is a rem line at the end of the program.
  25.  
  26.