home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / gosub.bas < prev    next >
BASIC Source File  |  1993-11-09  |  1KB  |  55 lines
  1. 10 REM -------------------------------------------------------- 
  2. 20 REM GOSUB.BAS Test Bywater BASIC Interpreter GOSUB Statement
  3. 30 REM -------------------------------------------------------- 
  4. 40 GOSUB 160 
  5. 50 PRINT "Test GOSUB Statements" 
  6. 60 PRINT "---------------------" 
  7. 70 PRINT 
  8. 80 PRINT "1 - Run Subroutine" 
  9. 90 PRINT "9 - Exit to system" 
  10. 92 PRINT "x - Exit to BASIC" 
  11. 100 PRINT 
  12. 110 INPUT c$ 
  13. 120 IF c$ = "1" then gosub 430 
  14. 130 IF c$ = "9" then goto 600 
  15. 132 IF c$ = "x" then end 
  16. 134 IF c$ = "X" then end 
  17. 140 GOTO 10 
  18. 150 END 
  19. 160 REM subroutine to clear screen 
  20. 170 PRINT 
  21. 180 PRINT 
  22. 190 PRINT 
  23. 200 PRINT 
  24. 210 PRINT 
  25. 220 PRINT 
  26. 230 PRINT 
  27. 240 PRINT 
  28. 250 PRINT 
  29. 260 PRINT 
  30. 270 PRINT 
  31. 280 PRINT 
  32. 290 PRINT 
  33. 300 PRINT 
  34. 310 PRINT 
  35. 320 PRINT 
  36. 330 PRINT 
  37. 340 PRINT 
  38. 350 PRINT 
  39. 360 PRINT 
  40. 370 PRINT 
  41. 380 PRINT 
  42. 390 PRINT 
  43. 400 PRINT 
  44. 410 PRINT 
  45. 420 RETURN 
  46. 430 REM subroutine to test branching 
  47. 435 GOSUB 160 
  48. 440 PRINT "This is the subroutine." 
  49. 445 PRINT "Press any key: "; 
  50. 450 INPUT x$ 
  51. 460 RETURN 
  52. 600 GOSUB 160 
  53. 610 PRINT "Exit from Bywater BASIC Test Program" 
  54. 620 SYSTEM 
  55.