ROSE16.BAS

FILE INFORMATION

FILENAME(S): ROSE16.BAS

FILE TYPE(S): PRG

FILE SIZE: 931b

FIRST SEEN: 2025-10-19 22:48:47

APPEARS ON: 5 disk(s)

FILE HASH

918f70cf92ab6498a0b3a9c29fe1533c65bd261e00218d1599b30f5ec7d044ae

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FLEXIDRAW 5 5	ROSE16.BAS	PRG	Radd Maxx	34	3	DOWNLOAD FILE
LICHTPEN PROG	ROSE16.BAS	PRG	DuncanTwain	22	5	DOWNLOAD FILE
NR 50	ROSE16.BAS	PRG	DuncanTwain	6	1	DOWNLOAD FILE
C64 HULP 30 2	ROSE16.BAS	PRG	DuncanTwain	6	1	DOWNLOAD FILE
FLEXIDRAW 3 0	ROSE16.BAS	PRG	DuncanTwain	6	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1C 08 01 00 8F 20  31 36 20 4C 45 41 46 20  |....... 16 LEAF |
00000010: 52 4F 53 45 20 50 4C 4F  54 54 45 52 00 41 08 0A  |ROSE PLOTTER.A..|
00000020: 00 8F 20 46 49 52 53 54  20 4C 4F 41 44 20 49 4E  |.. FIRST LOAD IN|
00000030: 20 46 4C 45 58 49 50 4C  4F 54 20 44 52 49 56 45  | FLEXIPLOT DRIVE|
00000040: 52 00 63 08 0F 00 8B 20  41 B2 30 20 A7 20 41 B2  |R.c.... A.0 . A.|
00000050: 31 3A 93 20 22 46 4C 45  58 49 50 4C 4F 54 22 2C  |1:. "FLEXIPLOT",|
00000060: 38 2C 31 00 A0 08 28 00  43 53 B2 34 39 31 35 32  |8,1...(.CS.49152|
00000070: 20 3A 8F 20 43 4C 45 41  52 20 53 43 52 45 45 4E  | :. CLEAR SCREEN|
00000080: 20 41 4E 44 20 53 45 54  20 54 4F 20 48 49 52 45  | AND SET TO HIRE|
00000090: 53 20 42 49 54 4D 41 54  20 41 54 20 38 31 39 32  |S BITMAT AT 8192|
000000A0: 00 B9 08 2D 00 4D 44 B2  34 39 31 35 35 20 3A 8F  |...-.MD.49155 :.|
000000B0: 20 53 45 54 20 4D 4F 44  45 00 D8 08 32 00 48 50  | SET MODE...2.HP|
000000C0: B2 34 39 31 35 38 20 3A  8F 20 48 49 52 45 53 20  |.49158 :. HIRES |
000000D0: 58 2D 59 20 50 4C 4F 54  00 F8 08 35 00 44 4C B2  |X-Y PLOT...5.DL.|
000000E0: 34 39 31 36 31 20 3A 8F  20 44 52 41 57 20 4C 49  |49161 :. DRAW LI|
000000F0: 4E 45 20 45 4E 54 52 59  00 15 09 37 00 44 54 B2  |NE ENTRY...7.DT.|
00000100: 34 39 31 36 34 20 3A 8F  20 44 52 41 57 54 4F 20  |49164 :. DRAWTO |
00000110: 45 4E 54 52 59 00 37 09  3A 00 44 43 B2 34 39 31  |ENTRY.7.:.DC.491|
00000120: 36 37 20 3A 8F 20 44 52  41 57 20 43 49 52 43 4C  |67 :. DRAW CIRCL|
00000130: 45 20 45 4E 54 52 59 00  6E 09 4B 00 9E 20 43 53  |E ENTRY.n.K.. CS|
00000140: 2C 30 2C 31 35 3A 8F 20  43 4C 45 41 52 20 48 49  |,0,15:. CLEAR HI|
00000150: 52 45 53 20 53 43 52 45  45 4E 20 41 4E 44 20 53  |RES SCREEN AND S|
00000160: 45 54 55 50 20 43 4F 4C  4F 52 20 52 41 4D 00 89  |ETUP COLOR RAM..|
00000170: 09 50 00 41 B2 38 30 20  3A 8F 20 53 43 41 4C 49  |.P.A.80 :. SCALI|
00000180: 4E 47 20 46 41 43 54 4F  52 00 A2 09 5A 00 9E 20  |NG FACTOR...Z.. |
00000190: 4D 44 2C 30 3A 8F 20 4D  4F 44 45 20 54 4F 20 53  |MD,0:. MODE TO S|
000001A0: 45 54 00 C9 09 5F 00 9E  20 48 50 2C 32 31 36 2C  |ET..._.. HP,216,|
000001B0: 31 30 30 20 3A 8F 20 50  4C 4F 54 20 49 4E 49 54  |100 :. PLOT INIT|
000001C0: 49 41 4C 20 50 4F 49 4E  54 00 FB 09 64 00 81 20  |IAL POINT...d.. |
000001D0: 54 B2 30 20 A4 20 36 2E  32 38 20 A9 20 2E 30 34  |T.0 . 6.28 . .04|
000001E0: 20 20 3A 8F 20 4C 4F 4F  50 20 46 52 4F 4D 20 5A  |  :. LOOP FROM Z|
000001F0: 45 52 4F 20 54 4F 20 32  20 50 49 00 28 0A 6E 00  |ERO TO 2 PI.(.n.|
00000200: 52 B2 41 AC 28 BE 28 38  AC 54 29 29 3A 8F 20 46  |R.A.(.(8.T)):. F|
00000210: 4F 52 4D 55 4C 41 20 46  4F 52 20 31 36 20 4C 45  |ORMULA FOR 16 LE|
00000220: 41 56 45 20 52 4F 53 45  00 70 0A 70 00 8F 20 4E  |AVE ROSE.p.p.. N|
00000230: 4F 57 20 43 4F 4E 56 45  52 54 20 50 4F 4C 41 52  |OW CONVERT POLAR|
00000240: 20 54 4F 20 52 45 43 54  41 4E 47 55 4C 41 52 20  | TO RECTANGULAR |
00000250: 43 4F 4F 52 44 49 4E 41  54 45 53 20 41 4E 44 20  |COORDINATES AND |
00000260: 43 45 4E 54 45 52 20 4F  4E 20 53 43 52 45 45 4E  |CENTER ON SCREEN|
00000270: 00 81 0A 73 00 58 B2 31  33 36 AA 52 AC BE 28 54  |...s.X.136.R..(T|
00000280: 29 00 BC 0A 75 00 59 B2  31 30 30 AA 52 AC BF 28  |)...u.Y.100.R..(|
00000290: 54 29 AC 2E 38 3A 8F 20  53 43 41 4C 45 20 59 20  |T)..8:. SCALE Y |
000002A0: 44 4F 57 4E 20 46 4F 52  20 53 43 52 45 45 4E 20  |DOWN FOR SCREEN |
000002B0: 41 53 50 45 43 54 20 52  41 54 49 4F 00 DD 0A 96  |ASPECT RATIO....|
000002C0: 00 9E 20 44 54 2C 58 2C  59 20 20 20 3A 8F 20 50  |.. DT,X,Y   :. P|
000002D0: 4C 4F 54 20 54 48 45 20  50 4F 49 4E 54 00 FB 0A  |LOT THE POINT...|
000002E0: A0 00 82 20 54 20 3A 8F  20 49 4E 43 52 45 4D 45  |... T :. INCREME|
000002F0: 4E 54 20 54 48 45 20 4C  4F 4F 50 00 39 0B AA 00  |NT THE LOOP.9...|
00000300: 97 20 31 30 32 34 2C 30  20 20 3A 8F 20 53 45 54  |. 1024,0  :. SET|
00000310: 20 46 49 52 53 54 20 42  59 54 45 20 54 4F 20 57  | FIRST BYTE TO W|
00000320: 48 49 54 45 20 54 4F 20  49 4E 44 49 43 41 54 45  |HITE TO INDICATE|
00000330: 20 46 49 4E 49 53 48 45  44 00 57 0B B4 00 89 20  | FINISHED.W.... |
00000340: 31 38 30 20 3A 8F 20 57  41 49 54 20 46 4F 52 20  |180 :. WAIT FOR |
00000350: 52 45 53 54 4F 52 45 00  9A 0B C8 00 8F 20 41 46  |RESTORE...... AF|
00000360: 54 45 52 20 45 58 45 43  55 54 49 4F 4E 2C 20 52  |TER EXECUTION, R|
00000370: 55 4E 20 46 4C 45 58 49  44 52 41 57 20 41 4E 44  |UN FLEXIDRAW AND|
00000380: 20 55 53 45 20 50 55 54  20 54 4F 20 57 4F 52 4B  | USE PUT TO WORK|
00000390: 20 57 49 54 48 20 52 4F  53 45 00 A0 0B D2 00 80  | WITH ROSE......|
000003A0: 00 00 00                                          |...             |

....... 16 LEAF ROSE PLOTTER.A.... FIRST
 LOAD IN FLEXIPLOT DRIVER.C.... A.0 . A.
1:. "FLEXIPLOT",8,1. .(.CS.49152 :. CLEA
R SCREEN AND SET TO HIRES BITMAT AT 8192
...-.MD.49155 :. SET MODE.X.2.HP.49158 :
. HIRES X-Y PLOT...5.DL.49161 :. DRAW LI
NE ENTRY...7.DT.49164 :. DRAWTO ENTRY.7.
:.DC.49167 :. DRAW CIRCLE ENTRY.N.K.. CS
,0,15:. CLEAR HIRES SCREEN AND SETUP COL
OR RAM...P.A.80 :. SCALING FACTOR...Z.. 
MD,0:. MODE TO SET.I._.. HP,216,100 :. P
LOT INITIAL POINT...D.. T.0 . 6.28 . .04
  :. LOOP FROM ZERO TO 2 PI.(.N.R.A.(.(8
.T)):. FORMULA FOR 16 LEAVE ROSE.P.P.. N
OW CONVERT POLAR TO RECTANGULAR COORDINA
TES AND CENTER ON SCREEN...S.X.136.R..(T
)...U.Y.100.R..(T)..8:. SCALE Y DOWN FOR
 SCREEN ASPECT RATIO...... DT,X,Y   :. P
LOT THE POINT... .. T :. INCREMENT THE L
OOP.9.... 1024,0  :. SET FIRST BYTE TO W
HITE TO INDICATE FINISHED.W.... 180 :. W
AIT FOR RESTORE...H.. AFTER EXECUTION, R
UN FLEXIDRAW AND USE PUT TO WORK WITH RO
SE. .R.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL