Atari 8-bit Source code

1GOTO100
2REMMAZESISADAPTEDFROMSOFTSIDE
3REMFORTHEATARIBAYAREACOMPUTERUSERSSOCIETY
5GOTO7
6GOTO14
7X=X+1:RETURN
9GOTO13
10GOTO11
11X=X-1:RETURN
13Y=Y+1:RETURN
14Y=Y-1:RETURN
100GRAPHICS3+16
120COLOR1:PLOT4,0:DRAWTO36,0:DRAWTO36,22:DRAWTO4,22:DRAWTO4,0
200DIMM(200),N(200)
210K=0:M=18:N=10
220PLOTM,N
240LOCATEM+2,N,X:IFX=0THEN250
242LOCATEM-2,N,X:IFX=0THEN250
244LOCATEM,N+2,X:IFX=0THEN250
246LOCATEM,N-2,X:IFX=0THEN250
248GOTO370
250D=INT(RND(0)*4)+251:GOTOD
251M1=-1:N1=0:GOTO300
252M1=0:N1=1:GOTO300
253M1=1:N1=0:GOTO300
254M1=0:N1=-1
300LOCATEM+M1*2,N+N1*2,X:IFX=1THEN250
310PLOTM+M1,N+N1:PLOTM+M1*2,N+N1*2
320SOUND0,M+N,10,4:SETCOLOR0,2,8:SETCOLOR4,4,4
330M=M+M1*2:N=N+N1*2:K=K+1:M(K)=M:N(K)=N:GOTO240
370M=M(K):N=N(K):K=K-1
380IFK=0THEN400
390GOTO240
400CLR
405M=11:N=11
420SETCOLOR2,8,8:COLOR2:PLOTM,N
430SETCOLOR1,12,8:FORI=1TO24:GOSUB900:NEXTI
500S=STICK(0):IFS=15THEN600
510X=M:Y=N:GOSUBS
520COLOR0:PLOTM,N:LOCATEX,Y,Z
540IFZ=1THEN580
550IFZ=3THENHT=HT+1:FORI=1TO20:SOUND0,I+50,12,15:NEXTI:IFHT=24THENGOSUB1996:GOTO800
551IFHT=0THEN560
552COLOR3:IFHT/2=INT(HT/2)THENPLOT1,23-HT
554IFHT/2<>INT(HT/2)THENPLOT2,23-HT
560M=X:N=Y
580COLOR2:PLOTM,N
600CT=CT+0.02:COLOR2:PLOT38,22-CT:PLOT39,22-CT:IFCT>21THENPLOT38,0:PLOT39,0:GOTO800
700SOUND0,2*M+2*N,10,4:GOTO500
800IFSTRIG(0)=0THENRUN
805IFPEEK(53279)=6THENRUN"D:MENU"
810SOUND0,RND(0)*100,10,4:GOTO800
900COLOR3:X=INT(RND(0)*16)*2+5:Y=INT(RND(0)*11)*2+1:LOCATEX,Y,Z
904IFZ<>0THEN900
906PLOTX,Y:RETURN
1996SETCOLOR0,0,8:FORI=0TO75:SETCOLOR4,15*RND(1),6:SETCOLOR4,0,15*(I-2*INT(I/2)):NEXTI
1997SETCOLOR0,14,8:SETCOLOR4,2,4:RETURN	

• Download link 1

• Download link 1
• Download link 2