dos33fsprogs/appleiibot/pumpkin_small.bas

3 lines
203 B
QBasic
Raw Normal View History

2020-10-16 20:53:20 +00:00
0REM! G?O)+;*L)(>-J)&@0E)%A4>$15$)-+/26-8<26-*<?B-,:CD)./?A)67BD-346;-16:;
2020-10-16 21:05:51 +00:00
1DEFFNP(X)=PEEK(2054+X)-32:GR:POKE49234,0:FORI=0TO65STEP5:COLOR=FNP(I):FORY=FNP(I+3)TOFNP(I+4):HLINFNP(I+1),FNP(I+2)ATY:NEXTY,I