dos33fsprogs/basic/appleiibot/asplode.bas

6 lines
280 B
QBasic

0REM~&!:):C&`~:)d)dC:C~dCz`~d)y!~L+T+X2X8V=R@L@I=F8F2L+~N<R<R>N>N<~K.I2H8L=L;N9R9T;T=V7V2T.~K.J3P9T3T.T0P6L1K.~L5L7N8R8S7R5~N3N1R1R3!
1HGR:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
3HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
4?"HEAD A SPLODE"