00000000: 01 1C 3F 1C 64 00 8F 22 4F 52 49 47 49 4E 41 4C |..?.d.."ORIGINAL|
00000010: 59 20 57 52 49 54 54 45 4E 20 46 4F 52 20 2B 34 |Y WRITTEN FOR +4|
00000020: 2C 20 4D 4F 44 49 46 49 45 44 20 42 59 20 44 2E |, MODIFIED BY D.|
00000030: 52 2E 42 55 4C 4C 20 46 4F 52 20 43 31 32 38 00 |R.BULL FOR C128.|
00000040: 69 1C 6E 00 8F 22 41 44 41 50 54 45 44 20 46 52 |i.n.."ADAPTED FR|
00000050: 4F 4D 20 42 49 4C 4C 20 41 4E 44 20 4C 45 45 20 |OM BILL AND LEE |
00000060: 48 41 52 44 49 4E 47 27 53 00 8C 1C 78 00 8F 22 |HARDING'S...x.."|
00000070: 50 52 4F 47 52 41 4D 20 49 4E 20 43 4F 4D 50 55 |PROGRAM IN COMPU|
00000080: 54 45 4B 20 4D 41 47 41 5A 49 4E 45 00 AE 1C 82 |TEK MAGAZINE....|
00000090: 00 8F 22 54 48 45 20 54 52 41 4E 53 41 43 54 4F |.."THE TRANSACTO|
000000A0: 52 20 56 4F 4C 20 36 2D 33 2C 20 50 2E 39 00 C2 |R VOL 6-3, P.9..|
000000B0: 1C 8C 00 8F 22 54 52 59 20 50 41 54 54 45 52 4E |...."TRY PATTERN|
000000C0: 53 3A 00 F6 1C 96 00 8F 22 32 30 2C 36 2C 32 30 |S:......"20,6,20|
000000D0: 2F 35 30 2C 34 2C 32 30 2F 33 30 2C 36 2C 36 30 |/50,4,20/30,6,60|
000000E0: 2F 34 30 2C 32 30 2C 31 30 20 20 20 20 2F 32 30 |/40,20,10 /20|
000000F0: 2C 34 2C 31 30 30 00 09 1D A0 00 DE 30 2C 31 3A |,4,100......0,1:|
00000100: E7 30 2C 31 3A E7 34 2C 31 00 3B 1D AA 00 99 22 |.0,1:.4,1.;...."|
00000110: 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 57 |.. W|
00000120: 41 56 49 4E 47 20 53 50 4F 4B 45 53 20 20 20 20 |AVING SPOKES |
00000130: 20 20 20 20 20 20 20 20 20 20 22 00 6E 1D B4 00 | ".n...|
00000140: 99 22 12 9E 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."..============|
00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 1E 22 00 9B |============."..|
00000170: 1D BE 00 99 22 11 11 11 20 20 20 54 52 59 20 50 |...."... TRY P|
00000180: 41 54 54 45 52 4E 53 3A 20 32 30 2C 36 2C 32 30 |ATTERNS: 20,6,20|
00000190: 20 20 20 35 30 2C 34 2C 32 30 22 00 C6 1D C8 00 | 50,4,20".....|
000001A0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000001B0: 20 20 20 34 30 2C 32 30 2C 31 30 20 20 32 30 2C | 40,20,10 20,|
000001C0: 34 2C 31 30 30 22 00 E6 1D D2 00 99 22 20 20 20 |4,100"......" |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 | 30|
000001E0: 2C 36 2C 36 30 22 00 11 1E DC 00 99 22 11 11 11 |,6,60"......"...|
000001F0: 20 20 20 20 20 20 20 20 20 20 12 57 48 49 4C 45 | .WHILE|
00000200: 20 49 4E 20 48 49 2D 52 45 53 20 4D 4F 44 45 3A | IN HI-RES MODE:|
00000210: 22 00 2C 1E E6 00 99 22 11 11 20 20 20 20 2A 20 |".,....".. * |
00000220: 20 20 20 54 4F 20 52 45 52 55 4E 22 00 43 1E F0 | TO RERUN".C..|
00000230: 00 99 22 20 20 20 20 51 20 20 20 20 54 4F 20 51 |.." Q TO Q|
00000240: 55 49 54 00 6B 1E FA 00 99 22 20 20 20 20 50 20 |UIT.k...." P |
00000250: 20 20 20 54 4F 20 50 52 49 4E 54 20 48 49 2D 52 | TO PRINT HI-R|
00000260: 45 53 20 53 43 52 45 45 4E 2E 22 00 97 1E 04 01 |ES SCREEN.".....|
00000270: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 45 4E |." EN|
00000280: 54 45 52 20 41 54 20 45 4E 44 20 4F 46 20 44 52 |TER AT END OF DR|
00000290: 41 57 49 4E 47 2E 22 00 C5 1E 0E 01 99 22 20 20 |AWING."......" |
000002A0: 20 20 20 20 20 20 20 20 20 20 54 41 4B 45 53 20 | TAKES |
000002B0: 33 30 20 4D 49 4E 55 54 45 53 20 54 4F 20 50 52 |30 MINUTES TO PR|
000002C0: 49 4E 54 2E 22 00 FA 1E 18 01 85 22 11 11 20 20 |INT."......".. |
000002D0: 20 53 50 4F 4B 45 53 2C 20 57 41 56 45 53 2C 20 | SPOKES, WAVES, |
000002E0: 41 4D 50 4C 49 54 55 44 45 3A 22 3B 53 50 4F 4B |AMPLITUDE:";SPOK|
000002F0: 2C 57 41 56 45 53 2C 41 4D 50 00 11 1F 22 01 99 |,WAVES,AMP..."..|
00000300: 22 20 20 20 41 42 4F 52 54 3F 20 3C 59 2F 4E 3E |" ABORT? <Y/N>|
00000310: 22 00 24 1F 2C 01 A1 41 24 3A 8B 41 24 B2 22 22 |".$.,..A$:.A$.""|
00000320: A7 33 30 30 00 34 1F 36 01 8B 41 24 B2 22 59 22 |.300.4.6..A$."Y"|
00000330: A7 31 30 30 00 44 1F 40 01 8B 41 24 B2 22 4E 22 |.100.D.@..A$."N"|
00000340: A7 33 34 30 00 4E 1F 4A 01 89 20 33 30 30 00 57 |.340.N.J.. 300.W|
00000350: 1F 54 01 DE 31 2C 31 00 66 1F 5E 01 50 B2 33 36 |.T..1,1.f.^.P.36|
00000360: 30 AD 53 50 4F 4B 00 7E 1F 68 01 81 20 41 4E 47 |0.SPOK.~.h.. ANG|
00000370: 4C 45 B2 30 A4 33 36 30 AB 50 20 A9 20 50 00 8C |LE.0.360.P . P..|
00000380: 1F 72 01 E6 20 31 36 30 2C 31 30 30 00 9B 1F 7C |.r.. 160,100...||
00000390: 01 81 49 B2 30 A4 31 30 30 A9 35 00 B5 1F 86 01 |..I.0.100.5.....|
000003A0: A1 41 24 3A 8B 41 24 B2 22 2A 22 A7 DE 30 2C 31 |.A$:.A$."*"..0,1|
000003B0: 3A 89 31 30 30 00 CC 1F 90 01 8B 41 24 B2 22 51 |:.100......A$."Q|
000003C0: 22 A7 DE 30 2C 31 3A 99 22 22 3A 80 00 DD 1F 9A |"..0,1:."":.....|
000003D0: 01 8B 41 24 B2 22 50 22 A7 89 35 33 30 00 F9 1F |..A$."P"..530...|
000003E0: A4 01 44 B2 41 4D 50 AC BF 28 49 AC 57 41 56 45 |..D.AMP..(I.WAVE|
000003F0: 53 AC 2E 30 31 37 34 35 29 00 15 20 AE 01 58 B2 |S..01745).. ..X.|
00000400: 49 AC BE 28 28 41 4E 47 4C 45 AA 44 29 AC 2E 30 |I..((ANGLE.D)..0|
00000410: 31 37 34 35 29 00 31 20 B8 01 59 B2 49 AC BF 28 |1745).1 ..Y.I..(|
00000420: 28 41 4E 47 4C 45 AA 44 29 AC 2E 30 31 37 34 35 |(ANGLE.D)..01745|
00000430: 29 00 44 20 C2 01 E5 A4 20 31 36 30 AA 58 2C 31 |).D .... 160.X,1|
00000440: 30 30 AA 59 00 51 20 CC 01 82 49 2C 41 4E 47 4C |00.Y.Q ...I,ANGL|
00000450: 45 00 64 20 D6 01 A1 41 24 3A 8B 41 24 B2 22 22 |E.d ...A$:.A$.""|
00000460: A7 34 37 30 00 7A 20 E0 01 8B 41 24 B2 22 2A 22 |.470.z ...A$."*"|
00000470: A7 DE 30 2C 31 3A 89 31 30 30 00 8B 20 EA 01 8B |..0,1:.100.. ...|
00000480: 41 24 B2 22 50 22 A7 89 35 33 30 00 A2 20 F4 01 |A$."P"..530.. ..|
00000490: 8B 41 24 B2 22 51 22 A7 DE 30 2C 31 3A 99 22 22 |.A$."Q"..0,1:.""|
000004A0: 3A 80 00 AB 20 FE 01 89 34 37 30 00 B1 20 08 02 |:... ...470.. ..|
000004B0: 80 00 D9 20 12 02 8F 20 47 2E 20 56 41 4E 20 56 |... ... G. VAN V|
000004C0: 41 4C 4B 45 4E 42 55 52 47 2F 52 55 4E 2F 41 55 |ALKENBURG/RUN/AU|
000004D0: 47 20 38 35 2F 50 2E 34 31 00 17 21 1C 02 9F 34 |G 85/P.41..!...4|
000004E0: 2C 34 3A 9D 34 3A 98 34 2C C7 28 32 37 29 22 43 |,4:.4:.4,.(27)"C|
000004F0: 31 22 3A 20 20 20 20 20 20 8F 20 53 4F 46 54 2D |1": . SOFT-|
00000500: 52 45 53 45 54 20 4F 46 20 38 35 31 30 53 50 20 |RESET OF 8510SP |
00000510: 50 52 49 4E 54 45 52 00 27 21 26 02 81 59 B2 30 |PRINTER.'!&..Y.0|
00000520: A4 31 39 39 20 A9 37 00 39 21 30 02 98 34 2C C7 |.199 .7.9!0..4,.|
00000530: 28 31 35 29 A6 31 30 29 3B 00 46 21 3A 02 81 58 |(15).10);.F!:..X|
00000540: B2 30 A4 33 31 39 00 4E 21 44 02 42 B2 30 00 59 |.0.319.N!D.B.0.Y|
00000550: 21 4E 02 81 5A B2 30 A4 36 00 65 21 58 02 E6 20 |!N..Z.0.6.e!X.. |
00000560: 58 2C 59 AA 5A 00 79 21 62 02 8B D0 28 32 29 B1 |X,Y.Z.y!b...(2).|
00000570: 30 A7 42 B2 42 AA 32 AE 5A 00 7F 21 6C 02 82 00 |0.B.B.2.Z..!l...|
00000580: 92 21 76 02 42 24 B2 42 24 AA C7 28 42 AA 31 32 |.!v.B$.B$..(B.12|
00000590: 38 29 00 B7 21 80 02 8B 58 B2 33 31 39 20 A7 98 |8)..!...X.319 ..|
000005A0: 34 2C C7 28 38 29 42 24 3A 42 24 B2 22 22 3A 20 |4,.(8)B$:B$."": |
000005B0: 20 20 20 89 36 36 30 00 00 00 0D 0D 20 20 20 20 | .660..... |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
..?.D.."ORIGINALY WRITTEN FOR +4, MODIFI
ED BY D.R.BULL FOR C128.I.N.."ADAPTED FR
OM BILL AND LEE HARDING'S...X.."PROGRAM
IN COMPUTEK MAGAZINE......"THE TRANSACTO
R VOL 6-3, P.9.B...."TRY PATTERNS:......
"20,6,20/50,4,20/30,6,60/40,20,10 /20
,4,100... ..0,1:.0,1:.4,1.;...."..
WAVING SPOKES ".N...
."..====================================
====."......"... TRY PATTERNS: 20,6,20
50,4,20".F.H.." 40,20
,10 20,4,100"...R.." 30
,6,60"......"... .WHILE IN HI-R
ES MODE:".,....".. * TO RERUN".C..
.." Q TO QUIT.K...." P TO PR
INT HI-RES SCREEN."......" EN
TER AT END OF DRAWING.".E...."
TAKES 30 MINUTES TO PRINT."......"..
SPOKES, WAVES, AMPLITUDE:";SPOK,WAVES,A
MP...".." ABORT? <Y/N>".$.,..A$:.A$.""
.300.4.6..A$."Y".100.D.@..A$."N".340.N.J
.. 300.W.T..1,1.F.^.P.360.SPOK.~.H.. ANG
LE.0.360.P . P...R.. 160,100...|..I.0.10
0.5......A$:.A$."*"..0,1:.100.L....A$."Q
"..0,1:."":.......A$."P"..530.....D.AMP.
.(I.WAVES..01745).. ..X.I..((ANGLE.D)..0
1745).1 ..Y.I..((ANGLE.D)..01745).D B...
160.X,100.Y.Q L..I,ANGLE.D V..A$:.A$.""
.470.Z ...A$."*"..0,1:.100.. ...A$."P"..
530.. ...A$."Q"..0,1:."":... ...470.. ..
..Y ... G. VAN VALKENBURG/RUN/AUG 85/P.4
1..!...4,4:.4:.4,G(27)"C1": . SOFT-
RESET OF 8510SP PRINTER.'!&..Y.0.199 .7.
9!0..4,G(15).10);.F!:..X.0.319.N!D.B.0.Y
!N..Z.0.6.E!X.. X,Y.Z.Y!B..P(2).0.B.B.2.
Z.!L....!V.B$.B$.G(B.128)..!...X.319 ..
4,G(8)B$:B$."": .660.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL