0 Members and 2 Guests are viewing this topic.
..MENU2→CIf GetCalc("appvBLUTCH1")"Chap 1"→Str1C+1→CEndIf GetCalc("appvBLUTCH2")"Chap 2"→Str2C+1→CEndIf GetCalc("appvBLUTCH3")"Chap 3"→Str3C+1→CEndC→[theta]Repeat getKey(15) ClrDraw Fix 1:Fix 5 Text(1,,"blut") Text(8,C*10,"Quit") Text(8,(C-1)*10,"Help") C-1→C If Str₃ and !Str₂ and !Str₃ Text(8,(C-1)*10,Str3) C-1→C End If Str₂ and !Str₁ and !Str₃ Text(8,(C-1)*10,Str2) C-1→C End If Str₁ and !Str₁ and !Str₂ Text(8,(C-1)*10,Str1) C-1→C End DispGraph End .FULL MENU, STILL NEED KEYPRESSES ETC LOL
:.Input: Arg1 = File number to look up:Lbl GET:Copy("appvBLUTCH1",L1,9) .Copy the name to L1:r1+'0'->{L1+7} .Overwrite the last character:Return GetCalc(L1) .Find the appvar
If sub(GET,1).draw this optionendif sub(GET,2).draw this optionend.etc
..MENU2→CIf sub(GET,1) C+1→CEndIf sub(GET,2) C+1→CEndIf sub(GET,3) C+1→CEndC→[theta]Repeat getKey(15) ClrDraw Fix 1:Fix 5 Text(1,,"blut") Text(8,C*10,"Quit") Text(8,(C-1)*10,"Help") C-1→C If sub(GET,3) Text(8,(C-1)*10,"Chap 3") C-1→C End If sub(GET,2) Text(8,(C-1)*10,"Chap 2") C-1→C End If sub(GET,1) Text(8,(C-1)*10,"Chap 1") C-1→C End DispGraph End .Input: Arg1 = File number to look upLbl GETCopy("appvBLUTCH1",L1,9) .Copy the name to L1r1+'0'->{L1+7} .Overwrite the last characterReturn GetCalc(L1) .Find the appvar .FULL MENU, STILL NEED KEYPRESSES ETC LOL
EDIT3: it's not in there unless r1=0. you might want to put it in there after that Wink