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