dos33fsprogs/appleiibot/a2_4ever.bas
Vince Weaver bf7202c441 aiibot: a2_4ever
80 column mode

as always turns up bugs in my tokenizer
2020-10-23 16:11:15 -04:00

5 lines
265 B
QBasic

1REM______/X__ X_______N__[WO_/ # [& .<'^?^O_C_CC_[W=__.X.X.XN#W?W]_[N[N[N[NM_=W_O'N#G#GS!XP=X_Y[NGNGN\O[WO_? X@[@#. . ^__O[O[__________@_@__
2PR#3:FORY=0TO140:Z=PEEK(2054+Y)-32:FORI=0TO5:NORMAL:Q%=Z/2:IFQ%*2-ZTHENINVERSE
3Z=Q%:?" ";:NEXTI,Y
4?"F O R E V E R";