5 replies to this topic

[sometimes99er]

Move your ship left and right using the joystick. Also pull the joystick forward to shoot.

100 CALL CLEAR::CALL SCREEN(2)::CALL MAGNIFY(3)
110 CALL CHAR(64,"01010103070F001B376FDF00D47F1F03808080C0A0D000B8B4DADD0055FEF8C")
120 CALL CHAR(68,"0043AF19193F3F78073B72637339100001C2F42828F4F43AE0DCCEC6CE9C08")
130 CALL CHAR(72,"0103030301010101010100010100000180C0C0C08080800080808080008")
140 CALL CHAR(76,"000000107C3828000703117D39280000000020F8701040E0FCF8F0B01")
150 CALL COLOR(6,5,1)::FOR X=1 TO 20::CALL HCHAR(X,RND*32,76)::NEXT X
160 CALL SPRITE(#1,64,16,170,96,#2,68,16,10,96,2,0,#3,72,10,200,256)
170 CALL JOYST(1,X,Y)::IF X THEN CALL MOTION(#1,0,X*4)
180 IF Y=0 THEN IF RND>.8 THEN CALL MOTION(#2,1,RND*32-16)
190 IF Y THEN CALL POSITION(#1,Y,X)::CALL SPRITE(#3,72,10,154,X,-16,0)
200 CALL POSITION(#3,Y,X)::IF Y>154 THEN CALL DELSPRITE(#3)
210 CALL POSITION(#2,Y,X)::IF Y>154 THEN CALL DELSPRITE(#3)::Y=1::GOTO 230
220 CALL COINC(ALL,X)::IF X=0 THEN 170 ELSE Y=2
230 CALL MOTION(#1,0,0,#2,0,0,#3,0,0)::FOR X=3 TO 16::CALL COLOR(#Y,X)::CALL SOUND(-300,-6,(X*2)-6)::NEXT X
240 CALL PATTERN(#Y,76)::FOR X=3 TO 16 STEP .2::CALL COLOR(#Y,X)::NEXT X::GOTO 160

Edited by sometimes99er, Mon Oct 17, 2011 3:52 AM.

[Willsy]

Ha that is lovely! That would have blown peoples minds if it was published as a snippet in C&VG in 1984

[sometimes99er]

Willsy, on Mon Oct 17, 2011 4:18 AM, said:

That would have blown peoples minds if it was published as a snippet in C&VG in 1984

Which I think is exactly what this retro thing is about, whether it being a programming language, an emulator, demo or game.

[unhuman]

I need to check this out - just to compare it with :

http://www.atariage....less-inaccuracy

[idflyfish]

Looks great man! Your demos always get me pumped up. Man I need to find some time to do more TI coding.

[unhuman]

wow - so much goodness in so little code!!!