.A1DROID

Fix 5
Axiom(AMEMKIT)
Axiom(TEXT)
Axiom(ZSTAXE)

L1+714->°TC

[03]
[]->°Credits
"Quigibo, Runer 112: Axe Parser"[00]
"Thepenguin77: zStart, zStAxe"[00]
"Jacobly: TEXT-AMEMKIT Axioms"[00]

[]->°Sprites
[00001E00210021FC20047FFE400240024002400240024002400240027FFE0000].Folder16^^2
[9999000000008001800100000000800180010000000080018001000000009999].Empty16^^2
[0180324C4E7240022BD4242469968A599A51699624242BD440024E72324C0180].Settings16^^2
[07E01818200440024602878187E187F987F987E18781460240022004181807E0].ExecProg
[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF].Credits

3->°NbOpt
[]->°OptNames
"Settings"[00]
"ExecProg"[00]
"Credits"[00]

.put here the labels of the subroutines of the included options, then we'll call it with a Goto {...}^^r
Data(|LSettings^^r,|LExecProg^^r,|LCredits^^r)->°Labels

Lbl CODE

Fill(L5,128,0)
[07]->°List
"ExecProg"[0000]
"Settings"[0000]
"|vTEST"[0000000000]
[00000000000000000000]
"|vTEST2"[00000000]
"Credits"[000000]

"|vTEMPBUFF"->Str0
DelVar Str0
GetCalc(Str0,10000)->A
!If
 Disp "NOT ENOUGH MEM"
 Pause 3600
 Goto RET
End
ClrDraw^^r^^r


0->B->C->D
Lbl Menu
Fill(A,10000,0)

Copy(°List+1,L5,{°List}-1*10)
For(theta,0,11)
 theta*10+L5->Z
 .options included in the prog
 For(W,0,°NbOpt-1)
  !If Equ>String(Z,stdDev(°OptNames,W)->r1)
   r1->T
   W*32+°Sprites+64->S
  End
 End
 .other options
 !If {Z}
  "Empty"->T
  32+°Sprites->S
 Else!If -21
  .Folder in |var
  Z+1->T
  °Sprites->S
 End
 ~1->r1
 For(16)
  {r1++*2+S}^^r->{theta/3*24+r1+1*12+(theta^3*4)+1+A}^^r
 End
 TEXT(theta^3*32,17,T,theta/3*24*12+A)
End
TEXT(,,"Top Text Test",L6)
TEXT(0,57,"Bottom Text Test",L6)
Fill(L6+84,12,255)
Fill(L6+672,12,255)
GreyON()

Lbl MainL
While 1
 B->T
 getKey(1)?D?B+24->B,+1->D
 getKey(4)?D?-1->D,B?-24->B
 getKey(3)-getKey(2)+C+3^3->C
 B/24+D*3+C->Z
 .Z holds number of current choice
 If getKey(54)
  For(W,0,°NbOpt-1)
   !If Equ>String(Z*10+L5,stdDev(°OptNames,W))
    Goto ({W*2+°Labels}^^r)
   End
  End
 End
 For(30)
  Copy(T<B+T-(T>B)->T*12+A,L6+96,576)
  T!=B*5+1
  Pause
 End
EndIf getKey(15)

Lbl RET
DelVar Str0
LnReg
ClrHome
Return

Lbl Notif
->r1
Copy(L6,L1+84,84)
Fill(L1,84,255)
0->ZXmin+1->ZXmax->Z
ZXsclr1,L1)
For(2)
 Pause Z*200+1
 7->r1
 For(7)
  Copy(r1--*12+L1,L6,84)
  .DispGraph
  Pause 50
 End
 Exch(L1,+84,84)
End
Return

Lbl TEXT
r2->ZXmin
r1->ZXmax
ZXsclr3,r4)
Return

Lbl WKP
Pause 200
Lbl W4P
While 1
EndIf getKey(0)
Return

Lbl WLP
While 1
Pause 50
End!If getKey(0)
Return

Lbl GreyON
FnOff
fnInt(DG,0)
Return

Lbl DG
TC++
!If ^10
 Cursor()
 DispGraph(L6,°BG+156)^^r
 Cursor()
End
Return

Lbl Cursor
RectI(C*32,D*24+8,32,24)
Return

Lbl Settings
stdDev(°OptNames,0)
sub(Notif)
Goto Menu

Lbl ExecProg
FnOff
Prgm()
If
 DelVar Str0
 .DelVar TEMPBUFF to save mem
 Fill(L5,128,0)
 .Clears L5 to prevent strange tokens on homescreen
 Fpdf(T)
End
Goto Menu

Lbl Credits
stdDev(°OptNames,2)
sub(Notif)
Goto Menu

Lbl Prgm
.browse programs and returns pointer to selected program, or 0 if no programs found
.btw, how could there be no program if you launched this program ?
StorePic
ClrDraw(L1)
0->N
First(5)
If
 Print(A)
 While Next()
  Print(N++*10+A)
 End
 0->T->S
 WLP()
 While 1
  S+getKey(1)-getKey(4)->S
  !If S+1
   ->S
   T--+1??->T
  Else!If S-9
   S--
   N-8>T+T->T
  End
  S-(+T>N)->S
  ~1->Z
  ClrDraw
  For(8)
   If Z+++T<=N
    Text(5,Z*6,T+Z*10+A+1)
   End
  End
  Text(0,S*6,"-")
  DispGraph
 EndIf getKey(54) or getKey(48)
 5->{T+S*10+A->T}
Else
 0
End
RecallPic
Return

Lbl First
Xminr1)
Return

Lbl Last
Xmaxr1)
Return

Lbl Next
Xscl)
Return

Lbl Prev
Ymin)
Return

Lbl Print
Ymaxr1)
Ymaxr1)^^r
Return

Lbl BG
[00000000000000000000000000000000000000000000000000000000000000000000000000000000003F8000000000000000000003FFF00000000000000000000FFFFE0000000000000000003FFFFF800000000000000000FFFFFFE00000000000000000FFFFFFF00000000000000007FFFFFFF80000000000000007FFFFFFFC000000000000000FFFFFFFFE000000000000000E000071FE000000000000003E000071FF000000000000003E000071FF800000000000007FFE3FF1FFC00000000000007FFE3FF1FFC0000000000000FFFE3FF1FFC0000000000000FFFE3FF1FFE0000000000000FFFE3FF1FFE0000000000000FFFE3FF1FFF0000000000001FFFE3FF1FFF0000000000003FFFE3FF1FFF0000000000007FFFE3FF1FFF0000000000007FFFE3FF1FFF0000000000005FFFE3FF1FFF000000000000DFFFE3FF1FFF000000000000DFFFE3FF1FFF0000000000019FFFE3FF1FFF0000000000019FFFE3FF1FFF0000000000019FFFE3FF1FFF0000000000018FFFE3FF1FFE0000000000018FFFE3FF1FFE0000000000030FFFFFFFFFFE0000000000030FFFFFFFFFFE00000000000307FFDFFFF7FC00000000000307F8D8E733FC00000000000307FB56DAD7F800000000000303FB5CDA17F800000000000301FB52DAF7F000000000000301F8D15A11E000000000000180FBFFFFFFF8000000000001807BFFFFFFFE000000000001803FFFFFFFFF000000000001800FFFFFFFFF800000000001C007FFFFFFFFC00000000000C001FFFFFFFFC00000000000E0007FFFF8CCC0000000000060000FFC3ABB400000000000700000003ABB4000000000003800000028B8C000000000001C0000003FFBC000000000000E0000003FFCC0000000000007800001FFFF80000000000003C00007FFFF80000000000001FC003FEFFF000000000000007FFFFF87FE000000000000000FFFF800F00000000000000001FFC000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000]->°BG