Atari 8-bit Source code

10 REM NAHRADA SCALE
20 P=0:​R=22/7:​S=-1:​T=1:​GOSUB 3000
25 REM P=Xmin R=Xmax S=Ymin T=Ymax
30 RAD
40 FOR X=0 TO 22/7 STEP 1/5:​Y=COS(X)
50 GOSUB 3000
60 IF X=0 THEN PLOT X1,​Y1
70 DRAWTO X1,​Y1
80 NEXT X
90 END
3000 REM SCALE P,​R,​S,​T
3010 IF J7=0 THEN GOSUB 3040
3020 X1=POX+X*DDX
3030 Y1=R2-(POY+Y*DDY):​GOSUB 3300:​RETURN
3040 REM NASTAVENI PARAMETRU
3050 GRAPHICS 8:​SETCOLOR 2,​0,​0:​COLOR 5:​J7=111
3060 GOSUB 3100:​GOSUB 3200:​GOSUB 3400:​RETURN
3100 REM INICIALIZACE
3110 R1=319:​R2=159:​DDX=R1/(R-P)
3120 IF P*R<0 THEN GOTO 3160
3130 IF P*R>0 THEN GOTO 3170
3140 IF P*R=0 AND P=0 THEN POX=0:​RETURN
3150 IF P*R=0 AND R=0 THEN POX=R1:​RETURN
3160 POX=R1*ABS(P)/(ABS(P)+ABS(R)):​RETURN
3170 POX=P*(-DDX):​RETURN
3200 REM INICIALIZACE
3210 DDY=R2/(T-S)
3220 IF T*S<0 THEN GOTO 3260
3230 IF T*S>0 THEN GOTO 3270
3240 IF T*S=0 AND S=0 THEN POY=0:​RETURN
3250 IF T*S=0 AND T=0 THEN POY=R2:​RETURN
3260 POY=R2*ABS(S)/(ABS(S)+ABS(T)):​RETURN
3270 POY=S*(-DDY):​RETURN
3300 REM KONTROLA
3310 IF X1<0 THEN X1=0:​T1=50:​SOUND 0,​T1,​10,​6
3320 IF X1>=R1-0.5 THEN X1=R1-1:​T1=50:​SOUND 0,​T1,​10,​6
3330 IF Y1<0 THEN Y1=0:​T2=100:​SOUND 1,​T2,​10,​6
3340 IF Y1>=R2-0.5 THEN Y1=R2-1:​T2=100:​SOUND 1,​T2,​10,​6
3350 SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0:​RETURN
3400 REM OSY SOURADNICOVEHO SYSTEMU
3410 X=P:​Y=0:​GOSUB 3020:​PLOT X1,​Y1
3420 X=R:​Y=0:​GOSUB 3020:​DRAWTO X1,​Y1
3430 X=0:​Y=T:​GOSUB 3020:​PLOT X1,​Y1
3440 X=0:​Y=S:​GOSUB 3020:​DRAWTO X1,​Y1:​RETURN	

• Download link 1
• Download link 2