dos33fsprogs/basic/appleiibot/xmas.bas

mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-04 05:05:13 +00:00
0REM- G =( G>G(!) 4 "( )/"(,2!;G,> >G1>(@F;=/:G*+$/1 G$-3%G$,4/G$*67G'-0+,'13-.',/78'039:'46;<'*.DE'/2FG!./')!2313!+,?A!45BD-BD6:)CC8: BC66-BC66
1GR:?"MERRY XMAS":DEFFNP(X)=PEEK(2054+I*5+X)-32:FORI=0TO28:I=I-2*(I>27):COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I
	`0REM- G =( G>G(!) 4 "( )/"(,2!;G,> >G1>(@F;=/:G+$/1 G$-3%G$,4/G$67G'-0+,'13-.',/78'039:'46;<'*.DE'/2FG!./')!2313!+,?A!45BD-BD6:)CC8: BC66-BC66`
	`1GR:?"MERRY XMAS":DEFFNP(X)=PEEK(2054+I5+X)-32:FORI=0TO28:I=I-2(I>27):COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I`