dos33fsprogs/basic/appleiibot/pumpkin2.bas

6 lines
272 B
QBasic

0REM~$?.(<$L+P+Z(g+n2qEnSd]T`B`2Z'K$?~8??5F?8?~S?Z5`?S?~L?PIIIL?~5IBPBSISIPPPPSVSVP]LdF]SSZFZ;S5I"~E(I$Q"S&P(P+!
1HGR2:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99
2IFFNP(0)=3THENHCOLOR=1:I=I+1
3IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2