dos33fsprogs/basic/appleiibot/gator.bas

3 lines
281 B
QBasic

1GR:POKE49234,0:DEFFNP(X)=PEEK(2162+I*5+X)-35:FORI=0TO26:FORX=0TO(I=18)*9:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,X,I:GETA
2"*#J#R#,A%P(66DN(485?(399;(574@*677>*578=(::==2-@&1*AA34)=>//%<?..$<?--,<>,,0<>++/<?**/==))/>>(()#JOR'CJ@N'/JDK'02BC#DEAB#HIAB212LN267LN