Atari 8-bit Source code

0 R=(V+L)*(L+V>R)+R*(L+V<=R):​L=L*(V>0)+(V=0):​V=3*(V=0)+V*(V>0):​GRAPHICS 17:​? #6;"WWW.GWOBBY.WEBS.COM oa  ":​PAUSE 175
1 ? #6;" ":​FOR Z=0 TO 19:​POSITION Z,​1:​? #6;"x":​POSITION Z,​21:​? #6;"x":​NEXT Z:​SOUND
2 G=(L>90):​H=0:​I=0:​X=0:​POSITION 1,​22:​? #6;"LIVES ";V;" LEVEL ";L:​? #6;" TOP GWOBSTER ";R;:​IF L+STRIG(0)+PEEK(53279)=9 THEN 2
3 T=51-L*2*(L<17)-(L+16)*(L>16):​Y=INT(RND(0)*18)+3:​J=0:​K=Y-1:​POSITION 19,​(RND(0)*16)+3:​? #6;"":​POSITION X,​Y:​? #6;""
4 S=STICK(0):​A=X:​B=Y:​IF X<18 THEN X=X+(S=7)+(S=13)+(S=14):​Y=Y+(S=13)*(Y<20)-(S=14)*(Y>3):​POSITION X,​Y:​? #6;"":​IF NOT G THEN 9
5 POSITION H,​I:​? #6;" ":​POSITION J,​K:​? #6;"Q":​H=J:​I=K:​J=J+1:​LOCATE J,​K,​W:​LOCATE J,​K+1,​U:​K=K-(W=173)+(W=32)*(U=32)
6 SOUND 0,​J+K,​6,​J/1.3:​LOCATE J,​K+1,​U:​LOCATE J,​K,​W:​L=L+(W=163):​Z=9*((U<>32)*(J<19))+8*(W=163):​IF Z THEN GOTO Z
7 V=V-1:​FOR Z=K TO 20 STEP 0.05:​POSITION J,​Z:​? #6;"Q":​POSITION H,​I:​? #6;" ":​SOUND 0,​Z,​10,​Z/2:​H=J:​I=Z:​NEXT Z:​PAUSE K:​SOUND:​PAUSE 200*(V=0):​GOTO 0+(V>0)
8 POSITION J-1,​K:​? #6;" ":​FOR Z=90 TO 0 STEP -1.5:​SOUND 0,​Z,​10,​8:​SETCOLOR 4,​Z,​Z:​PAUSE 1:​SOUND:​NEXT Z:​GOTO 1-(L=100)
9 T=T-1:​G=(X>12) OR (T<1):​FOR D=0 TO 221-29*(G>0)-L*3*(L<51)-150*(L>50):​NEXT D:​POKE 77,​0:​GOTO 4
90 REM SAVE "D:​GWOBBYM.TUR"
91 REM   
92 REM 
93 REM 
94 REM 
95 REM   
96 REM  
97 REM   
98 REM L=level V=Lives R=hsc h/I=wipeXY X/T=lineXY J/K=gwobbyXY H/I wipe
99 REM E=exitY G=GoGwobby T=GwobbyWait Z/D loops/delay/temp	

• Download link 1

• Download link 1
• Download link 2