Platformer base

ClrHome
9->A:2->B:0->K:.0625->R
Output(10,2,"IIIIIIIIIIIIIIIIIIIIIIII")
Output(1,1,"|                        ||                        ||                        ||                        ||                        ||                        ||                        ||                        ||                        |")
Output(10,1,"|"):Output(10,26,"|")
Repeat K=105
getKey->K
Output(A,B,"plotsquare")
If K=25:Then
Output(A,B," ")
A-1->A
Output(A,B,"plotsquare"):prgmDELAY
Output(A,B," ")
A-1->A
Output(A,B,"plotsquare"):prgmDELAY
Output(A,B," ")
A-1->A
Output(A,B,"plotsquare"):prgmDELAY
Output(A,B," ")
A+1->A
Output(A,B,"plotsquare"):prgmDELAY
Output(A,B," ")
A+1->A
Output(A,B,"plotsquare"):prgmDELAY
Output(A,B," ")
A+1->A
End
If K=24:Then
If B>2:Then
Output(A,B," ")
B-1->B
End
End
If K=26:Then
If B<25:Then
Output(A,B," ")
B+1->B
End
End
End
ClrHome