dos33fsprogs/basic/appleiibot/person2.bas

4 lines
279 B
QBasic
Raw Normal View History

2020-10-05 22:55:32 +00:00
2POKE232,0:POKE233,3:FORL=768TO810:READB:POKEL,B:NEXT:HGR:ROT=0:SCALE=1:FORI=0TO13:XDRAW1AT5+I*20,100:NEXT
5I=INT(RND(1)*14):XDRAW2AT5+I*20,100:GOTO5
6DATA2,0,6,0,32,0,45,37,60,36,44,44,53,55,111,37,22,63,119,45,30,55,45,45,21,63,63,63,63,63,7,0,73,73,73,36,36,36,172,54,54,54,0