00000000: 01 40 3F 40 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 40 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 40 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 40 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: 40 8C 00 8F 22 54 52 59 20 50 41 54 54 45 52 4E |@..."TRY PATTERN|
000000C0: 53 3A 00 F6 40 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 41 A0 00 DE 30 2C 31 3A |,4,100..A...0,1:|
00000100: E7 30 2C 31 3A E7 34 2C 31 00 3B 41 AA 00 99 22 |.0,1:.4,1.;A..."|
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 41 B4 00 | ".nA..|
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: 41 BE 00 99 22 11 11 11 20 20 20 54 52 59 20 50 |A..."... 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 41 C8 00 | 50,4,20"..A..|
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 41 D2 00 99 22 20 20 20 |4,100"..A..." |
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 42 DC 00 99 22 11 11 11 |,6,60"..B..."...|
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 42 E6 00 99 22 11 11 20 20 20 20 2A 20 |".,B...".. * |
00000220: 20 20 20 54 4F 20 52 45 52 55 4E 22 00 43 42 F0 | TO RERUN".CB.|
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 42 FA 00 99 22 20 20 20 20 50 20 |UIT.kB..." 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 42 04 01 |ES SCREEN."..B..|
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 42 0E 01 99 22 20 20 |AWING."..B..." |
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 42 18 01 85 22 11 11 20 20 |INT."..B...".. |
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 43 22 01 99 |,WAVES,AMP..C"..|
00000300: 22 20 20 20 41 42 4F 52 54 3F 20 3C 59 2F 4E 3E |" ABORT? <Y/N>|
00000310: 22 00 24 43 2C 01 A1 41 24 3A 8B 41 24 B2 22 22 |".$C,..A$:.A$.""|
00000320: A7 33 30 30 00 34 43 36 01 8B 41 24 B2 22 59 22 |.300.4C6..A$."Y"|
00000330: A7 31 30 30 00 44 43 40 01 8B 41 24 B2 22 4E 22 |.100.DC@..A$."N"|
00000340: A7 33 34 30 00 4E 43 4A 01 89 20 33 30 30 00 57 |.340.NCJ.. 300.W|
00000350: 43 54 01 DE 31 2C 31 00 66 43 5E 01 50 B2 33 36 |CT..1,1.fC^.P.36|
00000360: 30 AD 53 50 4F 4B 00 7E 43 68 01 81 20 41 4E 47 |0.SPOK.~Ch.. ANG|
00000370: 4C 45 B2 30 A4 33 36 30 AB 50 20 A9 20 50 00 8C |LE.0.360.P . P..|
00000380: 43 72 01 E6 20 31 36 30 2C 31 30 30 00 9B 43 7C |Cr.. 160,100..C||
00000390: 01 81 49 B2 30 A4 31 30 30 A9 35 00 B5 43 86 01 |..I.0.100.5..C..|
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 43 90 01 8B 41 24 B2 22 51 |:.100..C...A$."Q|
000003C0: 22 A7 DE 30 2C 31 3A 99 22 22 3A 80 00 DD 43 9A |"..0,1:."":...C.|
000003D0: 01 8B 41 24 B2 22 50 22 A7 89 35 33 30 00 F9 43 |..A$."P"..530..C|
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 44 AE 01 58 B2 |S..01745)..D..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 44 B8 01 59 B2 49 AC BF 28 |1745).1D..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 44 C2 01 E5 A4 20 31 36 30 AA 58 2C 31 |).DD.... 160.X,1|
00000440: 30 30 AA 59 00 51 44 CC 01 82 49 2C 41 4E 47 4C |00.Y.QD...I,ANGL|
00000450: 45 00 64 44 D6 01 A1 41 24 3A 8B 41 24 B2 22 22 |E.dD...A$:.A$.""|
00000460: A7 34 37 30 00 7A 44 E0 01 8B 41 24 B2 22 2A 22 |.470.zD...A$."*"|
00000470: A7 DE 30 2C 31 3A 89 31 30 30 00 8B 44 EA 01 8B |..0,1:.100..D...|
00000480: 41 24 B2 22 50 22 A7 89 35 33 30 00 A2 44 F4 01 |A$."P"..530..D..|
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 44 FE 01 89 34 37 30 00 B1 44 08 02 |:...D...470..D..|
000004B0: 80 00 D9 44 12 02 8F 20 47 2E 20 56 41 4E 20 56 |...D... 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 45 1C 02 9F 34 |G 85/P.41..E...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 45 26 02 81 59 B2 30 |PRINTER.'E&..Y.0|
00000520: A4 31 39 39 20 A9 37 00 39 45 30 02 98 34 2C C7 |.199 .7.9E0..4,.|
00000530: 28 31 35 29 A6 31 30 29 3B 00 46 45 3A 02 81 58 |(15).10);.FE:..X|
00000540: B2 30 A4 33 31 39 00 4E 45 44 02 42 B2 30 00 59 |.0.319.NED.B.0.Y|
00000550: 45 4E 02 81 5A B2 30 A4 36 00 65 45 58 02 E6 20 |EN..Z.0.6.eEX.. |
00000560: 58 2C 59 AA 5A 00 79 45 62 02 8B D0 28 32 29 B1 |X,Y.Z.yEb...(2).|
00000570: 30 A7 42 B2 42 AA 32 AE 5A 00 7F 45 6C 02 82 00 |0.B.B.2.Z..El...|
00000580: 92 45 76 02 42 24 B2 42 24 AA C7 28 42 AA 31 32 |.Ev.B$.B$..(B.12|
00000590: 38 29 00 B7 45 80 02 8B 58 B2 33 31 39 20 A7 98 |8)..E...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..A ..0,1:.0,1:.4,1.;A..."..
WAVING SPOKES ".NA..
."..====================================
====."..A..."... TRY PATTERNS: 20,6,20
50,4,20".FAH.." 40,20
,10 20,4,100"..AR.." 30
,6,60"..B..."... .WHILE IN HI-R
ES MODE:".,B...".. * TO RERUN".CB.
.." Q TO QUIT.KB..." P TO PR
INT HI-RES SCREEN."..B..." EN
TER AT END OF DRAWING.".EB..."
TAKES 30 MINUTES TO PRINT."..B..."..
SPOKES, WAVES, AMPLITUDE:";SPOK,WAVES,A
MP..C".." ABORT? <Y/N>".$C,..A$:.A$.""
.300.4C6..A$."Y".100.DC@..A$."N".340.NCJ
.. 300.WCT..1,1.FC^.P.360.SPOK.~CH.. ANG
LE.0.360.P . P..CR.. 160,100..C|..I.0.10
0.5..C...A$:.A$."*"..0,1:.100.LC...A$."Q
"..0,1:."":...C...A$."P"..530..C..D.AMP.
.(I.WAVES..01745)..D..X.I..((ANGLE.D)..0
1745).1D..Y.I..((ANGLE.D)..01745).DDB...
160.X,100.Y.QDL..I,ANGLE.DDV..A$:.A$.""
.470.ZD...A$."*"..0,1:.100..D...A$."P"..
530..D...A$."Q"..0,1:."":...D...470..D..
..YD... G. VAN VALKENBURG/RUN/AUG 85/P.4
1..E...4,4:.4:.4,G(27)"C1": . SOFT-
RESET OF 8510SP PRINTER.'E&..Y.0.199 .7.
9E0..4,G(15).10);.FE:..X.0.319.NED.B.0.Y
EN..Z.0.6.EEX.. X,Y.Z.YEB..P(2).0.B.B.2.
Z.EL....EV.B$.B$.G(B.128)..E...X.319 ..
4,G(8)B$:B$."": .660.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL