00000000: A0 03 C3 03 DD 03 00 0A 1A 00 20 53 41 56 45 20 |.......... SAVE |
00000010: 22 40 30 3A 53 50 49 52 4F 2E 50 4C 41 49 4E 22 |"@0:SPIRO.PLAIN"|
00000020: 00 14 04 00 00 1E 1B 00 20 50 41 53 53 20 22 53 |........ PASS "S|
00000030: 30 3A 53 50 49 52 4F 4C 41 54 45 52 41 4C 22 00 |0:SPIROLATERAL".|
00000040: 28 04 00 00 32 14 8C 8F 01 00 02 00 01 93 8F 02 |(...2...........|
00000050: 00 02 00 0A 93 94 C5 00 3C 09 07 03 02 00 00 3A |........<......:|
00000060: 00 46 0D 97 04 03 02 00 00 2C 98 00 00 00 50 0B |.F.......,....P.|
00000070: 5F 02 00 93 4B 65 60 61 00 5A 0A FF 1E 02 00 02 |_...Ke`a.Z......|
00000080: FF 1F 00 64 0A FF 46 02 00 05 FF 47 00 6E 0A FF |...d..F....G.n..|
00000090: 20 02 00 0D FF 21 00 78 2D 5F 03 24 54 48 49 53 | ....!.x-_.$THIS|
000000A0: 20 50 52 4F 47 52 41 4D 20 49 53 20 43 41 4C 4C | PROGRAM IS CALL|
000000B0: 45 44 20 53 50 49 52 4F 4C 41 54 45 52 41 4C 2E |ED SPIROLATERAL.|
000000C0: 65 60 61 00 82 1E 5F 03 15 97 20 20 20 3C 50 4C |e`a..._... <PL|
000000D0: 41 49 4E 20 56 45 52 53 49 4F 4E 3E 20 1C 65 60 |AIN VERSION> .e`|
000000E0: 61 00 8C 06 5F 60 61 00 96 2C 5F 03 23 49 54 20 |a..._`a..,_.#IT |
000000F0: 57 49 4C 4C 20 41 53 4B 20 59 4F 55 20 54 4F 20 |WILL ASK YOU TO |
00000100: 53 55 50 50 4C 59 20 53 4F 4D 45 20 44 41 54 41 |SUPPLY SOME DATA|
00000110: 65 60 61 00 A0 30 5F 03 27 46 4F 52 20 54 48 45 |e`a..0_.'FOR THE|
00000120: 20 27 53 49 5A 45 27 20 4F 46 20 41 20 46 49 47 | 'SIZE' OF A FIG|
00000130: 55 52 45 2C 20 54 48 45 20 27 41 4E 47 4C 45 27 |URE, THE 'ANGLE'|
00000140: 65 60 61 00 AA 2E 5F 03 25 59 4F 55 20 57 41 4E |e`a..._.%YOU WAN|
00000150: 54 20 54 4F 20 55 53 45 2C 20 41 4E 44 20 4C 41 |T TO USE, AND LA|
00000160: 53 54 2C 20 41 20 53 45 51 55 45 4E 43 45 65 60 |ST, A SEQUENCEe`|
00000170: 61 00 B4 2B 5F 03 22 4F 46 20 4C 27 53 20 41 4E |a..+_."OF L'S AN|
00000180: 44 20 52 27 53 20 46 4F 52 20 4C 45 46 54 20 41 |D R'S FOR LEFT A|
00000190: 4E 44 20 52 49 47 48 54 2E 65 60 61 00 BE 06 5F |ND RIGHT.e`a..._|
000001A0: 60 61 00 C8 28 5F 03 1F 48 49 54 20 27 51 27 20 |`a..(_..HIT 'Q' |
000001B0: 54 4F 20 51 55 49 54 20 41 4E 44 20 53 54 41 52 |TO QUIT AND STAR|
000001C0: 54 20 4F 56 45 52 2E 65 60 61 00 D2 2D 5F 03 24 |T OVER.e`a..-_.$|
000001D0: 4F 52 20 48 4F 4C 44 20 44 4F 57 4E 20 53 50 41 |OR HOLD DOWN SPA|
000001E0: 43 45 20 42 41 52 20 54 4F 20 53 45 45 20 46 49 |CE BAR TO SEE FI|
000001F0: 47 55 52 45 65 60 61 00 DC 12 5F 03 09 44 45 56 |GUREe`a..._..DEV|
00000200: 45 4C 4F 50 45 2E 65 60 61 00 E6 06 5F 60 61 00 |ELOPE.e`a..._`a.|
00000210: F0 15 5F 03 0C 48 45 52 45 20 57 45 20 47 4F 21 |.._..HERE WE GO!|
00000220: 21 65 60 61 00 FA 06 5F 60 61 01 04 0A FF 1E 02 |!e`a..._`a......|
00000230: 00 04 FF 1F 01 0E 29 B5 03 1E 57 48 41 54 20 53 |......)...WHAT S|
00000240: 49 5A 45 20 44 4F 20 59 4F 55 20 57 41 4E 54 3F |IZE DO YOU WANT?|
00000250: 20 20 20 20 35 30 9D 9D B7 07 04 B8 BB 01 18 24 | 50.........$|
00000260: B5 03 19 57 48 41 54 20 41 4E 47 4C 45 3F 20 3C |...WHAT ANGLE? <|
00000270: 31 2D 33 35 39 3E 20 20 20 20 20 20 B7 07 05 B8 |1-359> ....|
00000280: BB 01 22 2B B5 03 20 54 59 50 45 20 41 20 53 45 |.."+.. TYPE A SE|
00000290: 51 55 45 4E 43 45 20 4F 46 20 52 27 53 20 41 4E |QUENCE OF R'S AN|
000002A0: 44 20 4C 27 53 3A 20 B7 09 02 BA BB 01 2C 0A FF |D L'S: ......,..|
000002B0: 16 02 00 00 FF 17 01 36 05 FF 53 01 40 04 95 01 |.......6..S.@...|
000002C0: 4A 09 07 06 02 00 01 3A 01 54 04 95 01 5E 0E 07 |J......:.T...^..|
000002D0: 07 02 00 01 02 00 0E 55 54 3A 01 68 1B FF 1E 02 |.......UT:.h....|
000002E0: 00 09 47 FF 1F 00 20 4D 41 4B 45 20 58 20 46 4F |..G... MAKE X FO|
000002F0: 52 20 52 4E 44 01 72 09 FF 39 04 04 FF 3A 01 7C |R RND.r..9...:.||
00000300: 10 68 0C 02 07 06 16 03 01 52 2D 69 00 00 01 86 |.h.......R-i....|
00000310: 09 FF 48 04 05 FF 49 01 90 06 6E 00 00 01 9A 09 |..H...I...n.....|
00000320: FF 3C 04 05 FF 3D 01 A4 04 6F 01 AE 09 07 06 02 |.<...=...o......|
00000330: 00 01 3D 01 B8 0D DA 04 06 09 02 51 30 96 00 00 |..=........Q0...|
00000340: 01 C2 0A 09 01 02 00 00 4B 3C 01 CC 11 97 06 01 |........K<......|
00000350: 02 00 00 4B 2D 99 09 01 F9 3C 9A 01 D6 0D DA 06 |...K-....<......|
00000360: 01 03 01 51 2D 96 00 00 01 E0 05 FF 19 01 EA 06 |...Q-...........|
00000370: 9B 00 00 01 F4 04 00 01 FE 20 00 20 44 45 4C 20 |......... . DEL |
00000380: 30 34 36 30 2B 30 34 37 30 20 46 4F 52 20 43 4F |0460+0470 FOR CO|
00000390: 4E 54 49 4E 4F 55 53 02 08 0F 00 20 4F 50 45 52 |NTINOUS.... OPER|
000003A0: 41 54 49 4F 4E 2E 00 00 00 00 00 00 00 00 00 00 |ATION...........|
000003B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003C0: 00 00 00 00 00 00 00 00 00 01 5A 03 53 45 51 01 |..........Z.SEQ.|
000003D0: 41 06 4C 45 4E 47 54 48 05 41 4E 47 4C 45 01 49 |A.LENGTH.ANGLE.I|
000003E0: 01 58 00 00 |.X.. |
.C....... SAVE "@0:SPIRO.PLAIN"........
PASS "S0:SPIROLATERAL".(...2...........
......E.<......:.F.......,....P._...KE`A
.Z.........D..F....G.N.. ....!.X-_.$THIS
PROGRAM IS CALLED SPIROLATERAL.E`A..._.
.. <PLAIN VERSION> .E`A..._`A..,_.#IT
WILL ASK YOU TO SUPPLY SOME DATAE`A. 0_.
'FOR THE 'SIZE' OF A FIGURE, THE 'ANGLE'
E`A..._.%YOU WANT TO USE, AND LAST, A SE
QUENCEE`A..+_."OF L'S AND R'S FOR LEFT A
ND RIGHT.E`A..._`A.H(_..HIT 'Q' TO QUIT
AND START OVER.E`A.R-_.$OR HOLD DOWN SPA
CE BAR TO SEE FIGUREE`A..._..DEVELOPE.E`
A..._`A..._..HERE WE GO!!E`A..._`A......
......)...WHAT SIZE DO YOU WANT? 50..
.......$...WHAT ANGLE? <1-359> ....
.."+.. TYPE A SEQUENCE OF R'S AND L'S: .
.....,.........6..S.@...J......:.T...^..
.......UT:.H......G... MAKE X FOR RND.R.
.9...:.|.H.......R-I......H...I...N.....
.<...=...O........=...Z....Q0....B......
K<.L.......K-....<..V.Z....Q-...........
......... . DEL 0460+0470 FOR CONTINOUS.
... OPERATION...........................
..........Z.SEQ.A.LENGTH.ANGLE.I.X..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL