:.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