rajzolo2.bas

10 graphic1,1:color0,2,7:color1,7,2
20 x=156:y=96:draw,1,1
30 sshapea$,1,1,1,1:sshapez$,x,y,x+1,y+1
40 gshapea$,x,y,0:o=4
50 getkeya$:ifa$="r"then90:else60
60 ifa$="n"then240
70 ifa$="t"thenbox0,x,y,x,y,,1:goto240
80 ifa$="f"thenpaint,x+1,y+1:goto240
90 ifa$=chr$(145)theny=y-1:gshapea$,x,y,2:goto30
100 ifa$="q"thenx=x-1:y=y-1:gshapea$,x,y,2:goto30
110 ifa$=chr$(17)theny=y+1:gshapea$,x,y,2:goto30
120 ifa$="a"thenx=x-1:y=y+1:gshapea$,x,y,2:goto30
130 ifa$=chr$(29)thenx=x+1:gshapea$,x,y,2:goto30
140 ifa$="w"thenx=x+1:y=y-1:gshapea$,x,y,2:goto30
150 ifa$=chr$(157)thenx=x-1:gshapea$,x,y,2:goto30
160 ifa$="s"thenx=x+1:y=y+1:gshapea$,x,y,2:goto30
170 ifa$="v"thenx1=x:y1=y:goto240
180 ifa$="u"thenx2=x:y2=y:goto240
190 ifa$="h"thendraw,x1,y1tox2,y2:goto240
200 ifa$="l"thendraw0,x1,y1tox2,y2:goto240
210 ifa$="k"thencircle,x,y,o:goto230
220 ifa$="m"thencircle,x,y,o-2:goto50
230 circle0,x,y,o:o=o+2:goto50
240 draw,1,1:sshapea$,1,1,1,1
250 sshapez$,x,y,x+1,y+1:gshapea$,x,y,0
260 getkeya$:ifa$="r"then30
270 ifa$=chr$(145)theny=y-1:sshapey$,x,y,x+1,y+1:goto340
280 ifa$=chr$(17)theny=y+1:sshapey$,x,y,x+1,y+1:goto350
290 ifa$=chr$(29)thenx=x+1:sshapey$,x,y,x+1,y+1:goto360
300 ifa$=chr$(157)thenx=x-1:sshapey$,x,y,x+1,y+1:goto370
310 ifa$=" "thengshapea$,x,y,0:z$=a$:goto240
320 ifa$="t"thenbox0,x,y,x,y,,1:z$=a$:goto240
330 ifa$="f"thenpaint,x+1,y+1:goto240
340 gshapea$,x,y,2:gshapez$,x,y+1,3:goto240
350 gshapea$,x,y,2:gshapez$,x,y-1,3:goto240
360 gshapea$,x,y,2:gshapez$,x-1,y,3:goto240
370 gshapea$,x,y,2:gshapez$,x+1,y,3:goto240