0 Members and 2 Guests are viewing this topic.
:.ARUN:prgmθθ:[000C3D8E50380402]→Str1:[000C1C2C1328C404:[000C0C1830103050:[000C1C2C1328C404:[0C4D3E10102C2240:[7EFFFFFFE7662442→Str2:[000E314040310E00:[00708C02028C7000:[7EFFFFFFFF7E3C7E→Str3:[000E3F7F7F3F0E00:[0070FCFEFEFC7000:0→A→C→M:4→S:20→J:Repeat getKey(15):¦ If A=4:0→A:End:C+S→C:ClrDraw:ClrDrawr::Pt-Off(70-C,48,Str2):Pt-Off(70-C,48,Str3)r:Pt-Off(135-C,48,Str3)r:Pt-Off(135-C,48,Str2):Pt-Off(210-C,48,Str2):Pt-Off(210-C,48,Str3)r:Pt-Off(3223-C,48,Str2):Pt-Off(3223-C,48,Str3)r:Line(0,56,94,56:Line(0,56,94,56)r:Pt-Off(80-C,10,Str2+8):Pt-Off(80-C,10,Str3+8)r:Pt-Off(88-C,10,Str2+16:Pt-Off(88-C,10,Str3+16)r:Pt-Off(250-C,18,Str2+8:Pt-Off(250-C,18,Str3+8)r:Pt-Off(258-C,18,Str2+16:Pt-Off(258-C,18,Str3+16)r:Pt-Off(305-C,48,Str4:Pt-Off(305-C,48,Str5)r:Pt-Off(313-C,40,Str5:Pt-Off(313-C,40,Str4)r:Pt-Off(313-C,48,Str4+16:Pt-Off(313-C,48,Str5+16)r:Pt-Off(321-C,48,Str4+16:Pt-Off(321-C,48,Str5+16)r:Pt-Off(321-C,40,Str5+8:Pt-Off(321-C,40,Str4+8)r:Pt-Off(329-C,48,Str4+8:Pt-Off(329-C,48,Str5+8)r:Line(2,2,2,4:Line(2,2,20,2:Line(20,2,20,4:Line(2,4,20,4:Line(3,3,J-1,3:Line(3,3,J-1,3)r:!If getKey(54):Pt-Change(10,48,8*A+Str1:Pt-Change(10,48,8*A+Str1)r:!If J=20:J+1→J:End:End:If getKey(54) and (J>4):Pt-Change(10,40,32+Str1)r:Pt-Change(10,40,32+Str1):J-1→J:End:If getKey(2):S-1→S:End:If getKey(3):S+1→S:End:If S<2:2→S:End:If S>40:40→S:End::A+1→A:If A=4:0→A:M+1→M:End:DispGraphrr:Pause 70:End