How do i use list function (e.g. LGOLD) on the sourcecoder? I cant find the token. Also, how do i upload my stuff onto cemetech. I have some games i like to publish.

ClrDraw:AxesOff:ClrHome
FnOff :PlotsOff
6->dim(|LGOLD
Lbl 0
3->Y
ClrHome
Disp "THE GOLD EMPIRE",""," SAVED"," NEW"," QUIT
Lbl 00
Output(Y,1,">
Repeat θ=21 or θ=25 or θ=34
getKey→θ
End
Output(Y,1,"
If θ=25
Then
If Y=3
6->Y
Y-1->Y
End
If θ=34
Then
If Y=5
2->Y
Y+1->Y
End
If θ=21
Then
If Y=3
Goto 01
If Y=4
Goto 02
If Y=5
Goto 03
End
Goto 00
Lbl 03
ClrDraw:ClrHome:AxesOn
Stop
Lbl 02
If ⌊GOLD(5)=1
Then
ClrHome
Disp "ERASE SAVED GAME?","[2ND] YES","[ALPHA] NO"
Repeat θ=21 or θ=31
getKey→θ:End
If θ=31
Goto 01
If θ=21
0→|LGOLD(5
End
0→B:1→D:100→M:48.08→P:0→R:0→W
Goto ST
Lbl 01
If ⌊GOLD(5)=0
Goto 02
|LGOLD(1)→B
|LGOLD(2)→D
|LGOLD(3)→M
|LGOLD(4)→P
|LGOLD(6)→W
Lbl ST
ClrDraw
TextColor(BLACK
Text(1,5,40,"THE GOLD EMPIRE
Text(25,0,"PRICE:
Text(25,48,P
If R≥0
Then
TextColor(GREEN
Text(25,85,"+
Text(25,93,R
TextColor(BLACK
Else
TextColor(RED
Text(25,85,"-
Text(25,93,abs(R
TextColor(BLACK
End
Text(55,0,"MONEY:
Text(55,54,M
Text(40,0,"BARS:
Text(40,40,B
Text(70,0,"DAY:
Text(70,35,D
Text(50,110,"BUY
Text(62,110,"SELL
Text(74,110,"NEXT DAY
Text(86,110,"SAVE
Text(98,110,"QUIT
50→Y
Lbl 05
Text(Y,100,">
Repeat θ=11 or θ=12 or θ=21 or θ=25 or θ=34:getKey→θ:End
Text(Y,100,"
If θ=25
Then
If Y=50
110→Y
Y-12→Y
End
If θ=34
Then
If Y=98
38→Y
Y+12→Y
End
If θ=11
Goto I
If θ=12
Goto MP
If θ=21
Then
If Y=50
Goto BU
If Y=62
Goto SE
If Y=74
Goto ND
If Y=86
Goto SV
If Y=98
Goto 03
End
Goto 05
Lbl I
ClrDraw
Text(1,1,1,"INVEST:
Text(30,15,"2 BARS.................... 5 DOLLARS A DAY
Text(50,15,"3 BARS.................... 10 DOLLARS A DAY
Text(70,15,"4 BARS.................... 15 DOLLARS A DAY
Text(90,15,"5 BARS.................... 20 DOLLARS A DAY
Text(110,15,"BACK
30→Y
Lbl I0
Text(Y,3,">
Repeat θ=21 or θ=25 or θ=34:getKey→θ:End
Text(Y,3,"
If θ=25
Then
If Y=30
130→Y
Y-20→Y
End
If θ=34
Then
If Y=110
10→Y
Y+20→Y
End
If θ=21
Then
If Y=30
Goto I1
If Y=50
Goto I2
If Y=70
Goto I3
If Y=90
Goto I4
If Y=110
Goto ST
Goto I0
Lbl I1:2→A:Goto I5
Lbl I2:3→A:Goto I5
Lbl I3:4→A:Goto I5
Lbl I4:5→A
Lbl I5
If A>B
Then
ClrHome
Disp "INSUFFICIENT BARS!","NEED:"
Output(2,7,A-B
Repeat 21=getKey:End
Goto ST
Else
ClrHome
Output(1,1,A
Output(1,3," BARS INVESTED!"
B-A→B
If A=2:5→W:If A=3:10→W
If A=4:15→W:If A=5:20→W
Repeat 21=getKey:End
Goto ST
End
Lbl MP
ClrHome
Disp "MOB POWER","","COST (MONEY): 300","OUTPUT (BARS): 8","SUCCESS RATE: 50","FAIL RATE: 40","CATCH RATE: 10
Repeat 21=getKey:End
If M<300
Then
ClrHome
Disp "INSUFFICIENT MONEY!","NEED:
Output(2,7,300-M
Repeat 21=getKey:End
Goto ST
End
M-300→M
randInt(1,10)→θ
6→θ
If θ>6
Then
ClrHome
Disp "FAILED!"
Repeat 21=getKey:End
Goto ST
End
If θ<6
Then
ClrHome
Disp "SUCCESSFUL!"
B+8→B
Repeat 21=getKey:End
Goto ST
End
If θ=6
Then
ClrHome
Disp "CAUGHT!...","AND IT WAS TRACED BACK TO","YOU!":Repeat 21=getKey:End
Disp "","MONEY LOST:","BARS LOST:"
0→W
If M<200
Then
Output(5,13,M
0→M
End
If M≥200
Then
Output(5,13,200
M-200→M
End
If B<5
Then
Output(6,12,B
0→B
End
If B≥5
Then
Output(6,12,5
B-5→B
End
Repeat 21=getKey:End
Disp "INVESTORS DENY YOUR STOCK!"
Repeat 21=getKey:End
Goto ST
End
Lbl BU
ClrHome
Input "BUY: ",θ
If θP>M
Then
ClrHome
Disp "INSUFFICIENT MONEY!","NEED:"
Output(2,7,Pθ-M
Repeat 21=getKey:End
Goto ST
Else
M-θP→M
B+θ→B
Goto ST
End
Lbl SE
ClrHome
Input "SELL: ",θ
If θ>B
Then
ClrHome
Disp "INSUFFICIENT BARS!"
Repeat 21=getKey:End
Goto ST
Else
B-θ→B
M+Pθ→M
Goto ST
End
Lbl ND
If P>58.08
Then
randInt(1,2)→θ
If θ=1
Then
randInt(50,75→Z
Z/10→Z
P-Z→P
2→θ
Goto NE
End
End
If P<38.08
Then
randInt(1,2)→θ
If θ=1
Then
randInt(50,75)→Z
Z/10→Z
P+Z→P
1→θ
Goto NE
End
End
randInt(1,8)→θ
If θ<5
randInt(1,15)→Z
If θ=6 or θ=7
randInt(10,25)→Z
If θ=8
Then
randInt(1,3)→θ
If θ≠1
Goto ND
randInt(50,100)→Z
End
Z/10→Z
randInt(1,2)→θ
randInt(1,10)→Ś
Ś/100→Ś
If θ=1
P+Z+Ś→P
If θ=2
P-Z-Ś→P
Lbl NE
If θ=1:Z+Ś→R
If θ=2:Z-Ś→R
D+1→D
M+W→M
round(R,2)→R
round(P,2)→P
Goto ST
Lbl SV
B→|LGOLD(1
D→|LGOLD(2
M→⌊|LGOLD(3
P→|LGOLD(4
1→|LGOLD(5
W→|LGOLD(6
ClrHome
Disp "GAME SAVED!
Repeat 21=getKey:End
Goto ST
Advertisement