dos33fsprogs/basic/appleiibot/pumpkin_small.bas

3 lines
203 B
QBasic

0REM! G?O)+;*L)(>-J)&@0E)%A4>$15$)-+/26-8<26-*<?B-,:CD)./?A)67BD-346;-16:;
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