ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 392bffc737
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '392bffc737'
${ noResults }
bwBASIC/BAS-EXAMPLES/gosub.bas

55 lines
1.1 KiB
Raw Blame History 

  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 cls 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