dos33fsprogs/basic/appleiibot/edgar.bas

4 lines
280 B
QBasic

0REM&*<DG&,:@C&-9??&/7=>/6:DF 78BC 88BE!::BC%33@A%33DE+15(=+/61:+.715(66(.(15''(/3(*(/1+,(/0-.%/6//'/600//113/4613#2366/159:/35;<
1GR:?" PROGRAMMED IN EDGAR'S MOM'S BASEMENT":DEFFNP(X)=PEEK(2054+I*5+X)-32
2FORI=0TO24:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I