Random game
Random game
Random game
  • Entry name:
     Polar Plotter 2 
  • Category:
    Graphics
  • Publisher/Developer:
    ANALOG Computing, Flop 5
  • Year:
    1988
  • Atari conversion:
    Dave Bader,GIA Software
  • Programming language:
    Atari BASIC
Polar Plotter 2 Polar Plotter 2 Polar Plotter 2 Polar Plotter 2 Polar Plotter 2
Listing 1
10 REM 
20 REM | POLAR PLOTTER II |
30 REM 
40 REM for all ATARI XL/XE
50 REM (c) 1987 by Dave Bader
60 REM ANALOG Computing No.56
70 REM july/august 1987
80 REM (p) 1988 by GIA Software
90 REM Atari Zpravodaj Olomouc!
100 GOTO 500
110 XM=96/Z:​FOR Q=1 TO NUM:​T=Q
120 B=0:​FOR D=0 TO 6.3 STEP 0.075:​GOSUB 190+T*10
130 IF ABS(R)>Z THEN B=0:​GOTO 170
140 R=R*XM:​X=COS(D)*R:​Y=SIN(D)*R*0.8300000000000001
150 IF B=0 THEN PLOT X+208,​191-(80+Y):​B=1
160 DRAWTO X+208,​191-(80+Y)
170 NEXT D:​NEXT Q:​GOTO 400
200 REM Formula entered during RUN
210 REM Formula entered during RUN
220 REM Formula entered during RUN
230 REM Formula entered during RUN
300 ?:​? "AUTO SCALING...":​Z=0:​FOR T=1 TO NUM:​FOR D=0 TO 6.3 STEP 0.075:​GOSUB 190+T*10:​IF R>Z THEN Z=R
310 NEXT D:​NEXT T:​GOTO 640
400 SOUND 0,​100,​10,​10:​FOR T=1 TO 100:​NEXT T:​SOUND 0,​0,​0,​0:​POKE 764,​255
410 T=PEEK(53279):​IF T=6 THEN BD=BD+1:​GOTO 650
420 REM for LOAD/SAVE routine
430 REM for HardCopy routine
440 IF PEEK(764)<>28 THEN 410
450 BD=0:​GOTO 530
500 RAD:​DIM Q$(49),​W$(49),​E$(49),​R$(49),​T$(49),​Z$(169):​GRAPHICS 24
510 DM=PEEK(88)+PEEK(89)*256:​DM=DM+40*191
520 RESTORE 1000:​FOR T=1 TO 168:​READ Q:​Z$(LEN(Z$)+1)=CHR$(Q):​NEXT T
530 GRAPHICS 0:​POKE 82,​0:​POKE 710,​144:​POKE 709,​12:​POSITION 0,​0:​? ""
540 ? "NUMBER OF FORMULA'S TO ENTER";:​INPUT NUM:​IF NUM>4 THEN 530
550 FOR T=1 TO NUM
560 ?:​? "":​?:​? "INPUT FORMULA AS R=IN TERMS OF 'D',​ WHERE 'D'=THETA"
570 ? "FORMULA # ";T:​INPUT Q$
580 GOSUB 900+T*10:​POKE 559,​0:​Q$(LEN(Q$)+1)=":​RETURN":​? "":​POSITION 0,​6:​? 190+T*10;Q$:​?:​? "CONT":​POSITION 0,​0
590 POKE 842,​13:​STOP
600 POKE 842,​12:​POKE 559,​34:​NEXT T
610 ?:​? "PLEASE CHOOSE |1] AUTOMATIC SCALING (ABS. BOUNDS) |2] MANUAL SETTING.":​INPUT T:​IF T=1 THEN 630
620 ?:​? "ABSOLUTE ENDPOINTS";:​INPUT Z
630 IF T=1 THEN GOSUB 300
640 GRAPHICS 24:​POKE 710,​58:​POKE 712,​58:​POKE 709,​0:​COLOR 1:​GOTO 110
650 IF BD=1 THEN GOSUB 800:​TRAP 400:​T=51:​GOTO 120
660 IF BD=2 THEN PLOT 275,​55:​DRAWTO 141,​167:​PLOT 141,​55:​DRAWTO 275,​167:​GOSUB 860:​FOR Q=1 TO 3:​T=51+Q:​GOTO 120
670 GOTO 400
700 R=Z:​RETURN
710 R=3*(Z/4):​RETURN
720 R=Z/2:​RETURN
730 R=Z/4:​RETURN
800 FOR T=1 TO NUM:​GOSUB 940+T*10:​IF LEN(Q$)>39 THEN Q$=Q$(1,​39)
810 X=0:​Y=(T-1):​GOSUB 840:​NEXT T:​PLOT 112,​111:​DRAWTO 302,​111:​PLOT 208,​32:​DRAWTO 208,​190
820 X=3:​Y=6:​Q$="":​GOSUB 840:​Y=7:​Q$="":​GOSUB 840:​Y=8:​Q$="":​GOSUB 840
830 X=0:​Y=10:​Q$="ABS.ENDPOINTS:​":​GOSUB 840:​Q$=STR$(Z):​X=(14-LEN(Q$))/2:​Y=11:​GOSUB 840:​RETURN
840 Q=USR(ADR(Z$),​X,​Y,​ADR(Q$),​LEN(Q$)):​RETURN
850 Q$="":​GOSUB 840:​RETURN
860 X=0:​Y=12:​GOSUB 850:​Y=13:​Q$="RADII CIRCLES":​GOSUB 840:​Y=14:​GOSUB 850
870 Q$=STR$(3*Z/4):​Y=15:​X=(14-LEN(Q$))/2:​GOSUB 840:​X=0:​Y=16:​GOSUB 850
880 Q$=STR$(Z/2):​Y=17:​X=(14-LEN(Q$))/2:​GOSUB 840:​X=0:​Y=18:​GOSUB 850
890 Q$=STR$(Z/4):​Y=19:​X=(14-LEN(Q$))/2:​GOSUB 840:​X=0:​Y=20:​GOSUB 850
900 RETURN
910 W$=Q$:​RETURN
920 E$=Q$:​RETURN
930 R$=Q$:​RETURN
940 T$=Q$:​RETURN
950 Q$=W$:​RETURN
960 Q$=E$:​RETURN
970 Q$=R$:​RETURN
980 Q$=T$:​RETURN
990 STOP
1000 DATA 104,​201,​4,​240,​9,​170,​240,​5,​104,​104,​202,​208,​251,​96,​104,​133,​215,​104,​133,​214,​104,​104,​168,​104,​133
1010 DATA 217,​104,​133,​216,​104,​104,​240,​236,​133,​212,​24,​165,​214,​101,​88,​133,​214,​165,​89,​101,​215,​133,​215,​152,​240,​15
1020 DATA 165,​214,​105,​64,​133,​214,​165,​215,​105,​1,​133,​215,​136,​208,​241,​132,​221,​160,​0,​132,​220,​177,​216,​160,​0,​170
1030 DATA 16,​1,​136,​132,​213,​138,​41,​96,​208,​4,​169,​64,​16,​14,​201,​32,​208,​4,​169,​0,​16,​6,​201,​64,​208,​2
1040 DATA 169,​32,​133,​218,​138,​41,​31,​5,​218,​133,​218,​169,​0,​162,​3,​6,​218,​42,​202,​208,​250,​109,​244,​2,​133,​219
1050 DATA 164,​221,​177,​218,​69,​213,​164,​220,​145,​214,​200,​132,​220,​196,​212,​208,​182,​24,​165,​214,​105,​40,​133,​214,​144,​2
1060 DATA 230,​215,​230,​221,​169,​8,​197,​221,​208,​159,​96,​207,​96	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!