0 Members and 8 Guests are viewing this topic.
:.VOYAGERX:Fix 5:DelVar A:0→A→S:Full:ClrHome:ClrDraw:31→Y:[0000000000000000]→Pic0:[10587EFD7E581000]→Pic1:[F87E1B79791B7EF8]→Pic3:[387C7EFFFFFF7E30]→Pic2:[1E3F1EFDFD1E3F1E]→Pic4:0→T:DrawF (20,20,"VOYAGER X")::::::Repeat T>0:If getKey(34):1→T:End:If getKey(26):2→T:End:If getKey(18):3→T:End:End:ClrDraw:Repeat getKey(15):S+1→S:Text(0,,S►Dec):Pt-Off(0,Y,Pic0):Horizontal -:Horizontal -:If pxl-Test(5,Y) or pxl-Test(6,Y+1) or pxl-Test(8,Y+2) or pxl-Test(9,Y+3) or pxl-Test(8,Y+4) or pxl-Test(6,Y+5) or pxl-Test(5,Y+6):If S>H:S→H:End:Return:End:If pxl-Test(4,Y) or pxl-Test(5,Y+1) or pxl-Test(7,Y+2) or pxl-Test(8,Y+3) or pxl-Test(7,Y+4) or pxl-Test(5,Y+5) or pxl-Test(4,Y+6):If S>H:S→H:End:Return:End:If rand^14-T=1:rand^45+9→B:Pt-Off(86,B,Pic2):End:If getKey(4):If Y≥11:Y-T→Y:End:End:If getKey(1):If Y≤52:Y+T→Y:End:End:If T=2:Pt-On(0,Y,Pic1):End:If T=1:Pt-On(0,Y,Pic3):End:If T=3:Pt-On(0,Y,Pic4):End:DispGraph:End
Basically, Text( lets you set the coordinates before displaying text, while Text uses the current coordinates and takes only a single argument (the string).
1st Pass: 19%ERR: BAD SYMBOL
.KEYWhile 1getKey->KIf K=25:ThenDisp getKey(K)End:End