home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / FAST.GOTO.DEMO.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  966 b   |  37 lines
  1. 1  REM  ***********************
  2. 2  REM  * FAST.GOTO DEMO      *
  3. 3  REM  * BY DALE WADDELL     *
  4. 4  REM  * COPYRIGHT (C) 1983  *
  5. 5  REM  * BY MICROSPARC, INC. *
  6. 6  REM  * LINCOLN, MA. 01773  *
  7. 7  REM  ***********************
  8. 10  PRINT  CHR$(4)"BRUN  FAST.GOTO.OBJ0"
  9. 20 S1 = 100: GOSUB S1
  10. 30 S2% = 200: GOSUB S2%
  11. 40  GOSUB S1 +S2%
  12. 50  GOTO 400
  13. 60  GOTO S1 +400
  14. 90  GOTO 1020
  15. 100  PRINT "THIS IS 100": RETURN 
  16. 200  PRINT "THIS IS 200": RETURN 
  17. 300  PRINT "THIS IS 300": RETURN 
  18. 400  PRINT "THIS IS 400": GOTO 60
  19. 450  PRINT "THIS IS 450": GOTO 1060
  20. 500  PRINT "THIS IS 500": GOTO 90
  21. 550  PRINT "THIS IS 550": GOTO 1090
  22. 1020 S1 = 100: GOSUB S1
  23. 1030 S2% = 200: GOSUB S2%
  24. 1040  GOSUB S1 +S2%
  25. 1050  GOTO 450
  26. 1060  GOTO S1 +450
  27. 1090 A$ = "1500"
  28. 1100  GOTO  VAL(A$)
  29. 1400  STOP 
  30. 1500  PRINT "THIS IS LINE 1500"
  31. 1600 B$ = "ABC2000DEF"
  32. 1610 L = 4:M% = 4
  33. 1620  GOTO  VAL( MID$ (B$,L,M%))
  34. 1900  STOP 
  35. 2000  PRINT "THIS IS LINE 2000"
  36. 2100  &  HOME : REM  REMOVE FAST.GOTO
  37. 2500  END