dos33fsprogs/basic/appleiibot/ship.bas

2POKE232,20:POKE233,8
5REM7:'%%,5..>'<29'
6HGR2:FOR X=1 TO 100:HCOLOR=7:HPLOT RND(1)*280,RND(1)*192:NEXT
7SCALE=5:FORR=0TO16:ROT=R:GOSUB9:GOSUB9:NEXT:FOR X=100TO270:GOSUB9
8HCOLOR=5:HPLOTX-30,86+RND(1)*16TOX-10,91:X1=X+SQR(X/25):GOSUB9:X=X1:NEXT:GOTO6
9XDRAW1ATX,91:RETURN
2-liners: update with nyan 2020-10-07 01:34:28 -04:00			`2POKE232,20:POKE233,8`
			`5REM7:'%%,5..>'<29'`
			`6HGR2:FOR X=1 TO 100:HCOLOR=7:HPLOT RND(1)280,RND(1)192:NEXT`
			`7SCALE=5:FORR=0TO16:ROT=R:GOSUB9:GOSUB9:NEXT:FOR X=100TO270:GOSUB9`
			`8HCOLOR=5:HPLOTX-30,86+RND(1)*16TOX-10,91:X1=X+SQR(X/25):GOSUB9:X=X1:NEXT:GOTO6`
			`9XDRAW1ATX,91:RETURN`