CIRCLE'AS.L
FILE INFORMATION
FILENAME(S): CIRCLE'AS.L
FILE TYPE(S): SEQ
FILE SIZE: 266b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
79b79b64b462685ad3a61d7bab91db5474e6f932287f1e3c1f60e447be1b8607
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | CIRCLE'AS.L | SEQ | hedning, Mattias H00r | 22 | 16 | DOWNLOAD FILE |
| CCS COMAL | CIRCLE'AS.L | SEQ | hedning, Mattias H00r | 22 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 43 49 52 43 4C 45 |9000 PROC CIRCLE| 00000010: 27 41 53 28 58 2C 59 2C 52 29 20 43 4C 4F 53 45 |'AS(X,Y,R) CLOSE| 00000020: 44 0D 39 30 31 30 20 59 27 3A 3D 30 0D 39 30 32 |D.9010 Y':=0.902| 00000030: 30 20 50 45 4E 55 50 20 0D 39 30 33 30 20 46 4F |0 PENUP .9030 FO| 00000040: 52 20 49 3A 3D 31 20 54 4F 20 36 34 20 44 4F 0D |R I:=1 TO 64 DO.| 00000050: 39 30 34 30 20 54 3A 3D 52 2A 2E 39 39 35 30 30 |9040 T:=R*.99500| 00000060: 34 31 36 35 2D 59 27 2A 2E 30 39 39 38 33 33 34 |4165-Y'*.0998334| 00000070: 31 36 36 0D 39 30 35 30 20 59 27 3A 3D 59 27 2A |166.9050 Y':=Y'*| 00000080: 2E 39 39 35 30 30 34 31 36 35 2B 52 2A 2E 30 39 |.995004165+R*.09| 00000090: 39 38 33 33 34 31 36 36 0D 39 30 36 30 20 52 3A |98334166.9060 R:| 000000A0: 3D 54 0D 39 30 37 30 20 53 58 3A 3D 41 53 50 45 |=T.9070 SX:=ASPE| 000000B0: 43 54 2A 52 2B 58 0D 39 30 38 30 20 53 59 3A 3D |CT*R+X.9080 SY:=| 000000C0: 59 2D 59 27 0D 39 30 39 30 20 44 52 41 57 54 4F |Y-Y'.9090 DRAWTO| 000000D0: 20 53 58 2C 53 59 0D 39 31 30 30 20 50 45 4E 44 | SX,SY.9100 PEND| 000000E0: 4F 57 4E 20 0D 39 31 31 30 20 45 4E 44 46 4F 52 |OWN .9110 ENDFOR| 000000F0: 20 49 0D 39 31 32 30 20 45 4E 44 50 52 4F 43 20 | I.9120 ENDPROC | 00000100: 43 49 52 43 4C 45 27 41 53 0D |CIRCLE'AS. |
9000 PROC CIRCLE'AS(X,Y,R) CLOSED.9010 Y ':=0.9020 PENUP .9030 FOR I:=1 TO 64 DO. 9040 T:=R*.995004165-Y'*.0998334166.9050 Y':=Y'*.995004165+R*.0998334166.9060 R: =T.9070 SX:=ASPECT*R+X.9080 SY:=Y-Y'.909 0 DRAWTO SX,SY.9100 PENDOWN .9110 ENDFOR I.9120 ENDPROC CIRCLE'AS.
> CLICK IMAGE PREVIEW FOR FULL MODAL