0 Members and 4 Guests are viewing this topic.
..MENUClrDrawFix 1:Fix 5Text(1,0→Y,"blut")If sub(GET,1) Text(8,Y+10→Y,"Chap 1")EndIf sub(GET,2) Text(8,Y+10→Y,"Chap 2")EndIf sub(GET,3) Text(8,Y+10→Y,"Chap 3")EndText(8,Y+10→Y,"Help")Text(8,Y+10→Y,"Quit")Fix 0:Fix 4DispGraphFnOnRepeat getKey(15) Stop .Conserve batteries!EndFnOff.Input: Arg1 = File number to look upLbl GET Copy("appvBLUTCH1",L₁,9) .Copy the name to L₁ r₁+'0'→{L₁+7} .Overwrite the last characterReturn GetCalc(L₁) .Find the appvar
..MENUClrDrawFix 1:Fix 5Text(0*256+1)Text "blut"10*256+8sub(SMP)⁻3While 1 +1→I If +3sub(GET) Copy("Chap "[],L₁+2,5) L₁+2sub(PMI) EndEnd!If I"Help"sub(PMI)"Quit"sub(PMI)Fix 0:Fix 4DispGraphFnOnWhile 1 Stop .Conserve batteries!EndIf getKey(15)FnOff.Input: File number to look upLbl GET +'0'→{L₁+7}ʳ .Write the number and terminator Copy("appvBLUTCH"[],L₁,7) .Copy the name to L₁Return GetCalc(L₁) .Find the appvar.Print Menu ItemLbl PMI Text P+2560.Set Menu PositionLbl SMP Text(→P)Return
.ROTTGetCalc("appvROTTDATA")->AClrDrawPt-On(8,8,A)DispGraphRepeat getKey(15)End
Copy(GetCalc("appvMYAPPV"),GetCalc("Pic1",768),768)
Copy(GetCalc("appvMYAPPV"),L6,768)