Unreleased crap ...
100 CALL SCREEN(2)::CALL CLEAR::CALL MAGNIFY(3)::DISPLAY AT(1,11):"STARCRAP"
110 CALL COLOR(5,16,1,6,16,1,7,16,1,11,11,1,12,3,1)
120 PL$="2F7FFFDDFB7B7121BDFFFFF7EBDDAD044CFEFF3EFFFE9C08"
130 CALL CHAR(112,PL$,120,PL$)
140 CH=120::LI=7::CO=25::LE=6::GOSUB 260::LI=11::CO=5::GOSUB 260
150 LI=14::CO=16::LE=4::GOSUB 260::CH=112::LI=24::CO=1::LE=32::GOSUB 260
160 CALL CHAR(96,"F00D03EDEFEDF10101F10D03EDEFEDF007F90E0909FE0EF9F9FEFEF9F9FEF806")
170 CALL CHAR(100,"FFC040C0FF407FE0EF607EE0FE7EE0FFFE273927E739F9E7E7F9F9E7E7F9E7FE")
180 CALL CHAR(104,"008060188F6898F7F7F7F7F7F8E08000000000008040205F5F60408")
190 FOR SP=1 TO 3::CALL SPRITE(#SP,92+SP*4,16,64,17+16*SP)::NEXT SP
200 DISPLAY AT(18,6):"PRESS FIRE TO FIRE"
210 CALL KEY(0,K,S)::IF K<>1 THEN 210
220 DISPLAY AT(18,6):"PRESS QUIT TO QUIT"
230 CALL MOTION(#1,0,4,#2,0,4,#3,0,4)
240 FOR SP=1 TO 3::CALL POSITION(#SP,Y,X)::IF X>253 THEN CALL COLOR(#SP,1)
250 NEXT SP::GOTO 240
260 CALL HCHAR(LI,CO,CH)::CALL HCHAR(LI,CO+1,CH+1,LE-2)::CALL HCHAR(LI,CO+LE-1,CH+2)::RETURN
1
