Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
3
Task/Collections/BBC-BASIC/collections-1.basic
Normal file
3
Task/Collections/BBC-BASIC/collections-1.basic
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
DIM text$(1)
|
||||
text$(0) = "Hello "
|
||||
text$(1) = "world!"
|
||||
5
Task/Collections/BBC-BASIC/collections-2.basic
Normal file
5
Task/Collections/BBC-BASIC/collections-2.basic
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
DIM collection{(1) name$, year%}
|
||||
collection{(0)}.name$ = "Richard"
|
||||
collection{(0)}.year% = 1952
|
||||
collection{(1)}.name$ = "Sue"
|
||||
collection{(1)}.year% = 1950
|
||||
24
Task/Collections/BBC-BASIC/collections-3.basic
Normal file
24
Task/Collections/BBC-BASIC/collections-3.basic
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
DIM node{name$, year%, link%}
|
||||
list% = 0
|
||||
PROCadd(list%, node{}, "Richard", 1952)
|
||||
PROCadd(list%, node{}, "Sue", 1950)
|
||||
PROClist(list%, node{})
|
||||
END
|
||||
|
||||
DEF PROCadd(RETURN l%, c{}, n$, y%)
|
||||
LOCAL p%
|
||||
DIM p% DIM(c{})-1
|
||||
!(^c{}+4) = p%
|
||||
c.name$ = n$
|
||||
c.year% = y%
|
||||
c.link% = l%
|
||||
l% = p%
|
||||
ENDPROC
|
||||
|
||||
DEF PROClist(l%, c{})
|
||||
WHILE l%
|
||||
!(^c{}+4) = l%
|
||||
PRINT c.name$, c.year%
|
||||
l% = c.link%
|
||||
ENDWHILE
|
||||
ENDPROC
|
||||
Loading…
Add table
Add a link
Reference in a new issue