home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 March / 1990-03.d64 / labels.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  538b  |  17 lines
  1. 10 ifa=0thena=1:load"basic labels",8,1
  2. 20 poke53280,14:poke53281,6:sys52900
  3. 30 print"[147][154]";tab(3)"copyright 1990 compute! pub., inc."
  4. 40 printtab(10)"all rights reserved":print:print
  5. 50 printtab(3):print"the line number of each branch is"
  6. 60 printtab(4):print"displayed as it executes below[158]":print:print
  7. 70 gosub label:gosub label1:gosub ccc
  8. 80 gosub ddd:goto a long label
  9. 90 this part of line will not be used:[label:gosub ddd:print"110":return
  10. 100 [label1:print"120":return
  11. 110 [ccc: print"130":return
  12. 120 [ddd:print"140":[eee:return
  13. 130 [a long label:gosub150:print"end"
  14. 140 end
  15. 150 print:printtab(2)"[154]you can use normal branches as well"
  16. 160 printtab(8)"(goto 20, for example)":return
  17.