appleiibot: more compact pumpkin

This commit is contained in:
Vince Weaver 2020-10-16 17:05:51 -04:00
parent da0ad65c3e
commit e52ea923f7

View File

@ -1,2 +1,2 @@
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:C=FNP(I):A=FNP(I+1):B=FNP(I+2):Q=FNP(I+3):Z=FNP(I+4):COLOR=C:FORY=QTOZ:HLINA,BATY:NEXTY,I
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