Transactor/Transactor_21_1988_Transactor_Publishing.d64

Commodore Disk Image | 1988-01-01 | 170.8 KB

%D
v%{CBM-R}{CBM-F}(0): .. this must be first
rN
 160,   2, 177,  45, 141, 161,   3, 169
{$7f}X
   0, 145,  45, 200, 177,  45, 141, 162
{CBM-D}
   3, 160,   0, 140, 160,   3, 140, 163
Y
   3,  14, 162,   3,  46, 161,   3,  46

 160,   3,  14, 162,   3,  46, D
 save"@0:place.pal"
7N
 8,8,8,"0:place.obj,p,w
aX
 700
m
.opt o8
R
;{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}

;{CBM-Z}{CBM-Z}                           {CBM-Z}{CBM-Z}
{CBM-C}
;{CBM-Z}{CBM-Z} machine code placeholder  {CBM-Z}{CBM-Z}
{$de}{CBM-N}
;{CBM-Z}{CBM-Z}  commod{CBM-A}e 64          {CBM-Z}{CBM-Z}
{CBM-H}
;{CBM-Z}{CBM-Z}                        ;{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}
#
;
e
;{CBM-Z}{CBM-Z} c64 basic 2.0 routines {CBM-Z}{CBM-Z}
k
";
U
,b{CBM-A}der {CBM-R} $d020         ;exteri{CBM-A} colour
{CBM-I}
6clean  {CBM-R} $e9ff         ;erase line in .x
G
@chrout {CBM-R} $ffd2         ; a char
{$e9}
j{CBM-K}in  {CBM-R} $ffe4         ;{CBM-K} a key
tplot   {CBM-R} $ff
 ing screen
%Ltxa             ; x, y Eues
iVpha             ;push them away
J tya             ; later use
R{$ea}pha
{$f4}clc             ;set {CBM-I} locati
{CBM-R}{$fe}ldy #$0c        ;12 over
Oldx #$18        ;24 down
{$f4}jsr plot        ;put curs{CBM-A} there
    ;reset b{CBM-A}der colour
'Lsta b{CBM-A}der      ;{CBM-@} n{CBM-A}mal
/Vpla
utay             ;recall where you
Tpla             ;were bee
{$7c}tax
clc             ;{CBM-P} K there
{CBM-L}{CBM-POUND}jmp plot        ;(rts)
{CBM-C}{CBM-R};
R{CBM-C};{CBM-Z}{CBM-Z}  messages {CBM-Z}{CBM-Z}
XF;
Pprimms sty $5d
]4;{CBM-Z}{CBM-Z} message {CBM-Z}{CBM-Z}
>;
1hcermsg .byt $12: .F" press any key "
br.byt $92,$00
i\.


e you
Tpla             ;were bee
{$7c}tax
clc             ;{CBM-P} K there
{CBM-L}{CBM-POUND}jmp plot        ;(rts)
{CBM-C}{CBM-R};
R{CBM-C};{CBM-Z}{CBM-Z}  messages {CBM-Z}{CBM-Z}
XF;
Pprimms sty $5d       D
: placeholder example
>N
: first load data into $c000
sX
: then show off
J
: paul blair 5/85
P
:
Y
330

m{CBM-R}53280:rt{CBM-R}49152:G(31)
{CBM-M}{CBM-N}
m,15:m{CBM-N}1,15
O{CBM-H}
"           test placeholder":rt
{$ec}{CBM-V}
:"hello there! ";:290
H
"from transaay{CBM-R}1{CBM-@}1000::rt:

,:
.
6: load m/c into $c000
4
@:
h
js{CBM-R}49152:f{CBM-R}49237
E
ti{CBM-R}s{CBM-@}f:a:cs{CBM-R}cs{CBM-N}a:i,a:
{$7f}
^cs{CBM-W}{CBM-E}10286{CBM-M}"error":

H:160

R:
{CBM-X}
{$7c} 169,   2, 141,  32, 208,  56,  32, 240
{$ea}
 255, 138,  72, 152,  72,  24, 160,  12
 162,  24,

%L 200, 208, 246,  96,  18,  32,  80,  82
rV  69,  83,  83,  32,  65,  78,  89,  32
U   75,  69,  89,  32, 146,   0


":

H:160

R:
{CBM-X}
{$7c} 169,   2, 141,  32, 208,  56,  32, 240
{$ea}
 255, 138,  72, 152,  72,  24, 160,  12
 162,  24,D
: plot routine in basic
5N
: paul blair 5/85
;X
:
q
G(147);:sy{CBM-R}65520
G
a{CBM-R}781:b{CBM-R}782:c{CBM-R}783
{$7c}
"hello there ";

c,B(c){CBM-A}1:sy: set carry flag
{CBM-E}{CBM-N}
x{CBM-R}B(a):y{CBM-R}B(b)
T{CBM-H}
c,B(c){CBM-P}254: clear carry flag
{$e8}{CBM-V}
a,24:b,14:sy
{$fc}H
"press a key";
161,   3
3
  46, 160,   3,  14, 163,   3, 173, 163
{$60}{CBM-N}
   3,  10, 170, 232, 142, 164,   3, 173
{CBM-H}
 160,   3, 205, 164,   3, 144,   9, 238
{SHIFT-@}{CBM-V}
 163,   3, 237, 164,   3, 141, 160,   3
{$e7}H
 200, 192,   8, 208, 204, 160,   3, 173

R
 163,   3, 145,   {CBM-Z}{CBM-Z}
'{CBM-V}
;{CBM-Z}{CBM-Z} routine {CBM-@} hold screen    {CBM-Z}{CBM-Z}
gH
;{CBM-Z}{CBM-Z} place,  message    {CBM-Z}{CBM-Z}
DR
;{CBM-Z}{CBM-Z} last line, {CBM-M}     {CBM-Z}{CBM-Z}
{CBM--}
;{CBM-Z}{CBM-Z} whence thee came          {CBM-Z}{CBM-Z}
{CBM-S}{$e6}
;{CBM-Z}{CBM-Z}                           {CBM-Z}{CBM-Z}
S{$f0}
;{CBM-Z}{CBM-Z} may 85       paul blair   {CBM-Z}{CBM-Z}
{$f8}{$fa}
;{CBM-Z}{CBM-Z}                           {CBM-Z}{CBM-Z}

f0         ;screen routine
^;
2H;{CBM-Z}{CBM-Z} main program {CBM-Z}{CBM-Z}
8R;
z{$7c}{CBM-D}{CBM-R}$c000         ;49152 calls
{$60};
;{CBM-Z}{CBM-Z} err{CBM-A} message flip b{CBM-A}der {CBM-Z}{CBM-Z}
;
{CBM-E}{CBM-@}ohdear lda #$02        ;visual err{CBM-A}
{CBM-B}{CBM-S}sta b{CBM-A}der
 {CBM-U}sec             ;{CBM-K} our place
Bjsr plot        ;by
ldy #{CBM-E}cermsg    ; message
4
&lda #{CBM-W}cermsg    ;maybe add a
y
0jsr primms      ;"tone here too?
{$7b}
:keypls jsr {CBM-K}in       ; a key

dbeq keypls      ;loop  no key
A
nldx #$18        ;erase message
{$e3}
xjsr clean       ; bot{CBM-@}m line
Blda #$0f      ;po{CBM-J} {CBM-@} message
Zsta $5c
+{$e4}ldy #$00        ;counter
n{$ee}primm2 lda ($5c),y     ;{CBM-K} char
M{$f8}beq primm3      ; zero,
jsr chrout      ; it
{CBM-+}iny             ;inc index
Ebne primm2      ;loop back
{$e9} primm3 rts             ;all de
{$ef}*;
































































































































































































































































ctor magazine":290
3R
::"as you can see, ";:290
v{CBM--}
"screen control is easy":290
{$7e}{$e6}
::"           now i'm here":290
 {$f0}
::::"now down here":290
{SHIFT-@}{$fa}
:"have fun!!";:290
S" have fun!!";:290
{$ed}" have fun!!":290:
{$f3}:


"del  32, 240, 255, 160, 192, 169
d  68,  32,  51, 192,  32, 228, 255, 240
Q{CBM-@} 251, 162,  24,  32, 255, 233, 169,  15
{CBM-S} 141,  32, 208, 104, 168, 104, 170,  24
K{CBM-U}  76, 240, 255, 132,  93, 133,  92, 160
{$f8}B   0, 177,  92, 240,   6,  32, 210, 255
































































































































































































































































>R
{CBM-K}y$:y${CBM-R}""{CBM-M}210
!{CBM--}
a,x:b,y:sy
8{$e6}
"from transactor"





polygon.pal












ml square roots











placeholder.pal











placeholder.demo










































































E  45,  96

{CBM--}
 j{CBM-R}828 {CBM-@} 912
-
{$e6}
 x: t{CBM-R}t{CBM-N}x:  j,x
5
{$f0}
 j
g
{$fa}
 t{CBM-W}{CBM-E}8554 {CBM-M}
B
 test run starts here
Q
 j{CBM-R}1 {CBM-@} 10

v{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}4096)

"v%{CBM-R}v

, 828
{CBM-J}
6 "the root of";v;"is";v%
{CBM-X}
@ j


3,  46, 161,   3,  46

 160,   3,  14, 162,   3,  46,
pq{CBM-D}ai(d,e){CBM-Z}(2{CBM-D}~)
{$e1}&2qp{CBM-R}{CBM-J}(pq{CBM-Z}2)
{$fd}&<{CBM-L}(cp){CBM-Q}{CBM-J}({CBM-L}(cp)){CBM-E}.5{CBM-M}3950
0'f cp{CBM-W}0 {CBM-M} cp{CBM-R}{CBM-J}(cp): f{CBM-R}nf {CBM-M} ai(d,e){CBM-R}(cp{CBM-N}1){CBM-D}~{CBM-Z}qp
F'p cp{CBM-E}{CBM-R}0 {CBM-M} cp{CBM-R}{CBM-J}(cp){CBM-N}1: f{CBM-R}nf {CBM-M} ai(d,e){CBM-R}(cp{CBM-Q}1){CBM-D}~{CBM-Z}qp
Z'z hp${CBM-R}"n"{CBM-M} 4290
'D 3980
{SHIFT-@}'N cp{CBM-W}0 {CBM-M} cp{CBM-R}{CBM-J}(cp){CBM-Q}1: f{CBM-R}nf {CBM-M} ai(d,e){CBM-R}(cp{CBM-N}1){CBM-D}~{CBM-Z}qp
{$ed}'Xers"
{$f9}${$7c} i{CBM-R}1 {CBM-@} 8:e(i){CBM-R}2{CBM-S}i{CBM-Q}1:e(i{CBM-N}8){CBM-R}e(i){CBM-D}2{CBM-S}(8{CBM-Q}i):
% i{CBM-R}1 {CBM-@} 11:  j{CBM-R}1 {CBM-@} 15:  k{CBM-R}1 {CBM-@} 8
h%ch{CBM-R}0:  k{CBM-W}(13{CBM-Q}i) {CBM-P} k{CBM-E}(8{CBM-Q}i) {CBM-M} ch{CBM-R}e(j)
D%ch$(i,j){CBM-R}ch$(i,j){CBM-N}G(ch)
P%{CBM-@} k,j,i
V%{$7e}:
% 2,4,5
% 6,4,6:6,G(21)
{CBM-A}% main plotting loop
{CBM-O}%{CBM-+}tb{CBM-R}0
T%{CBM-A}nf{CBM-R}2: "

 ml circles, polygons, arcs
a
B(49152){CBM-W}{CBM-E}76{CBM-M}"hires",8,1
F
B(32820){CBM-W}{CBM-E}32{CBM-M}"polygon.obj",8,1
LD
:
N
hires{CBM-R}12{CBM-D}4096:draw{CBM-R}hi{CBM-N}3:plot{CBM-R}dr{CBM-N}3
{CBM-L}X
move{CBM-R}pl{CBM-N}3:clscr{CBM-R}mo{CBM-N}3:dmode{CBM-R}cl{CBM-N}3
Z
selpc{CBM-R}dm{CBM-N}3:colour{CBM-R}se{CBM-N}3:box{CBM-R}co{CBM-N}3
{$fd}
text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3:chset{CBM-R}pr{CBM-N}3

of the max. amp is";n2

#
p2;"% of amp's are equal or smaller"
#{CBM-N}
" "
4#{CBM-H}
"10% of the max. amp is";n1
^#{CBM-V}
p1;"% of amp's are equal or smaller"
G#H
" "
{$7c}#R
"time is  ";ti$
#{CBM--}
" "
{CBM-H}#{$e6}
"what no. do you want to normalize to";nl
{CBM-X}#{$f0}
" "
{$ec}#{$fa}
"whic
 t imaginary amplitude:";ii
{$e8}-*4,"phase angle:";ip$
.44,"no. of phase quantization levels:";pq
+.> ip${CBM-R}"r" {CBM-M} 4700
t.h4,"transform normalized with...";nl
.r4,"percent of transformed amp's truncated...";pt
.\


1 {CBM-M} in{CBM-R}1
{SHIFT-@},{CBM-POUND} in{CBM-W}.1 {CBM-M}4," ";: ar(d,e){CBM-W}{CBM-R}n8 {CBM-M} p8{CBM-R}p8{CBM-N}1
!{$ec} ar(d,e){CBM-W}{CBM-R}n6 {CBM-M} p6{CBM-R}p6{CBM-N}1
!{$f6} ar(d,e){CBM-W}{CBM-R}n4 {CBM-M} p4{CBM-R}p4{CBM-N}1
:!

 ar(d,e){CBM-W}{CBM-R}n2 {CBM-M} p2{CBM-R}p2{CBM-N}1
v!

 ar(d,e){CBM-W}{CBM-R}n1 {CBM-M} p1{CBM-R}p1{CBM-N}1
{$60}!
 e,d
!(
p8{CBM-R}{CBM-J}(p8{CBM-Z}1024{CBM-D}100):p6{CBM-R}{CBM-J}(p6{CBM-Z}1024{CBM-D}100):p4{CBM-R}{CBM-J}(p4{CBM-Z}1024{CBM-D}100)
B!2
p2{CBM-R}{CBM-J}(p2{CBM-Z}1024{CBM-D}100):p1{CBM-R}{CBM-J}(p1{CBM-Z}1024{CBM-D}100)
{$e3}!<
"80%d,e))
W+&ai(d,e){CBM-R}ap{CBM-D}{CBM-B}(ai(d,e))
{$e1}+0 e,d
{$e7}+d
{$ed}+n:
,x gray scale picture routine
,B4," "
',L d{CBM-R}1 {CBM-@} n
4,V4,{CBM-T}23);
b, e{CBM-R}1 {CBM-@} n
L,in{CBM-R}{SHIFT-@}(ar(d,e){CBM-D}ar(d,e){CBM-N}ai(d,e){CBM-D}ai(d,e))
,af{CBM-R}1{CBM-Z}{SHIFT-@}(ir{CBM-D}ir{CBM-N}ii{CBM-D}ii):in{CBM-R}af{CBM-D}in
, in{CBM-E}1 {CBM-M} in{CBM-R}1
{SHIFT-@},{CBM-POUND} in{CBM-W}.1 {CBM-M}4," ";:,e){CBM-W}0 {CBM-P} ai(d,e){CBM-E}0 {CBM-M}pa{CBM-R}~{CBM-N}pa
{$fc} ar(d,e){CBM-W}0 {CBM-P} ai(d,e){CBM-W}0 {CBM-M}pa{CBM-R}pa{CBM-Q}~
4 ar(d,e){CBM-E}0 {CBM-P} ai(d,e){CBM-W}0 {CBM-M}pa{CBM-R}pa
oar(d,e){CBM-R}ap: ai(d,e){CBM-R}pa
y e,d
_.
E8:
b amplitude normalization routine
{CBM-POUND}l find largest amplitude
{CBM-Y}vla{CBM-R}ar(1,1)
E{$60} d{CBM-R}1 {CBM-@} n
SJ e{CBM-R}1 M)" cp{CBM-W}0 {CBM-M} 4180
{CBM-*}),cp{CBM-R}cp{CBM-N}11{CBM-Q}cp{CBM-D}2
{$f2})64," ";G(141);
#*@tb{CBM-R}tb{CBM-N}1:2,ch$(cp,ht):4,{CBM-T}tb);G(254);G(141);
-*j4260
?*t cp{CBM-E}0 {CBM-M} 4230
n*^cp{CBM-R}{CBM-L}(cp){CBM-N}1
R*H2,ch$(cp,ht):4,G(254);G(141);
*Rtb{CBM-R}tb{CBM-N}1:4,{CBM-T}tb);" ";G(141);
*{$7c} 4260
{CBM-P}* ht{CBM-R}0 {CBM-M} 3990
D* ht{CBM-W}8sa{CBM-R}90: ea{CBM-R}270: inc{CBM-R}5

, 370

6:
<
@ prnt,16,1,"more arcs"
t
jsa{CBM-R}0: ea{CBM-R}180: inc{CBM-R}5
^
t 370
D
^
J
H:

Rxc{CBM-R}155:yc{CBM-R}100:xr{CBM-R}99:yr{CBM-R}79
{CBM-Q}
{$7c} circle,xc,yc,xr,yr,sa,ea,inc
{SHIFT-*}
 prnt,19,12,"1"
F
:
{$e4}
xc{CBM-R}100:yc{CBM-R}120:xr{CBM-R}90:yr{CBM-R}50
{CBM-@} circle,xc,yc,xr cp{CBM-E}0{CBM-M} cp{CBM-R}{CBM-J}(cp){CBM-N}2: f{CBM-R}nf{CBM-M} ai(d,e){CBM-R}(cp{CBM-Q}1){CBM-D}~{CBM-Z}qp
( hp${CBM-R}"n" {CBM-M} 4290
( f{CBM-W}{CBM-E}1 {CBM-M} 4230
7( ht{CBM-R}0 {CBM-M} 4,"  ";G(141);:4260
k(  {CBM-L}(cp){CBM-E}2{CBM-M} 4130
^({CBM-N} cp{CBM-E}{CBM-Q}2 {CBM-M} 4050
({CBM-H}2,ch$(3,ht):4,G(254);G(141);
{CBM-R}({CBM-V}tb{CBM-R}tb{CBM-N}1:2,ch$(11,ht):4,{CBM-T}tb);G(254);G(141);
{CBM-X}(H 4260

 hp${CBM-R}"n" {CBM-M} nf{CBM-R}1
{$e2}%{SHIFT-@} d{CBM-R}1 {CBM-@} n
{$f1}%D f{CBM-R}1 {CBM-@} nf
~%N e{CBM-R}1 {CBM-@} n
&X determine which character
;&{$e2} find character height
l&{$ec}ht{CBM-R}8{CBM-D}ar(d,e)
\&{$f6}dh{CBM-R}ht{CBM-Q}{CBM-J}(ht)
{$7d}&
 dh{CBM-W}.125{CBM-Z}2 {CBM-M} ht{CBM-R}{CBM-J}(ht):3860
&
ht{CBM-R}{CBM-J}(ht){CBM-N}1
{SHIFT-POUND}& f{CBM-R}nf {CBM-M} ar(d,e){CBM-R}ht{CBM-Z}8{CBM-D}nl
{SHIFT-@}& find phase
R&(cp{CBM-R}
trap{CBM-R}ch{CBM-N}3

:
b{CBM-N}
circle{CBM-R}32768{CBM-N}52 : not the same as potential
t{CBM-H}
 hires,0,1,6
z{CBM-V}
:
TH
 prnt,16,1,"circles"
R
sa{CBM-R}0: ea{CBM-R}360: inc{CBM-R}5
{CBM--}
 370
{$e6}
:
{CBM-Y}{$f0}
 prnt,16,1,"polygons"
P{$fa}
sa{CBM-R}0: ea{CBM-R}360: inc{CBM-R}45
Z 370
 :
{$f7} prnt,18,1,"arcs"

"h means what % of data truncated";pt
~#ip${CBM-R}"r"{CBM-M}nl{CBM-R}la

$ d{CBM-R}1 {CBM-@} n
$ e{CBM-R}1 {CBM-@} n
k$"ar(d,e){CBM-R}ar(d,e){CBM-Z}nl:  ar(d,e){CBM-E}1 {CBM-M} ar(d,e){CBM-R}1
u$, e,d
[$@
A$j:
T$t plot routine
$^ read in plot characters
{CBM-M}$H hp${CBM-R}"n" {CBM-M} 3720
J$R"...defining plot charact
,6

&


70: inc{CBM-R}5

, 370

6:
<
@ prnt,16,1,"more arcs"
t
jsa{CBM-R}0: ea{CBM-R}180: inc{CBM-R}5
^
t 370
D
^
J
H:

Rxc{CBM-R}155:yc{CBM-R}100:xr{CBM-R}99:yr{CBM-R}79
{CBM-Q}
{$7c} circle,xc,yc,xr,yr,sa,ea,inc
{SHIFT-*}
 prnt,19,12,"1"
F
:
{$e4}
xc{CBM-R}100:yc{CBM-R}120:xr{CBM-R}90:yr{CBM-R}50
{CBM-@} circle,xc,yc,xr of the max. amp is";n8
"f
 p8;"% of amp's are equal or smaller"
"p
" "
8"z
"60% of the max. amp is";n6
B"D
p6;"% of amp's are equal or smaller"
K"N
" "
"X
"40% of the max. amp is";n4
{CBM-L}"
p4;"% of amp's are equal or smaller"
{CBM-B}"
" "
 "
"20% 4590
U,{CBM-R} in{CBM-W}.2 {CBM-M}4,"'";:4590
{$f0},{CBM-C} in{CBM-W}.4 {CBM-M}4,":";:4590
-F in{CBM-W}.6 {CBM-M}4,"*";:4590
&-P in{CBM-W}.8 {CBM-M}4,"{CBM-+}";:4590
c-Z in{CBM-W}.9 {CBM-M}4,"*";:4590
z-{$e4} in{CBM-W}{CBM-R}1 {CBM-M}4," ";
P-{$ee} e{CBM-R}n {CBM-M} 4,G(13);
Z-{$f8} e,d
-4," "
{CBM-M}-4,"input real amplitude:";ir
N- 4,"inpu{CBM-@} n
{$ee}Tar(d,e){CBM-E}la{CBM-M}la{CBM-R}ar(d,e)
{$f8}{$7e} e,d

  ip${CBM-R}"r" {CBM-M} 2820
0 "the largest amplitude is";la
s {CBM-+} check amplitude distribution
T {CBM-A}p8{CBM-R}0: p6{CBM-R}0: p4{CBM-R}0: p2{CBM-R}0: p1{CBM-R}0
{CBM-G} {SHIFT-@}n8{CBM-R}.8{CBM-D}la:n6{CBM-R}.6{CBM-D}la:n4{CBM-R}.4{CBM-D}la:n2{CBM-R}.2{CBM-D}la:n1{CBM-R}.1{CBM-D}la
{CBM-S} D" "
{CBM-C} N d{CBM-R}1 {CBM-@} n
J X e{CBM-R}1 {CBM-@} n
{$e6} {$e2} {CBM-M} ht{CBM-R}ht{CBM-N}8
O* 3990
{$ec}*{CBM-@} e{CBM-R}n {CBM-M} 4,G(141);G(13);
+{CBM-S}tb{CBM-R}2{CBM-D}e: e{CBM-R}n {CBM-M} tb{CBM-R}0
+{CBM-U} e{CBM-W}{CBM-E}n {CBM-M} 4,{CBM-T}tb);
&+B e,f,d
,+
2+{$ea}:
{$7b}+{$f4} find real and imaginary components from truncated & quantized data
+{$fe} d{CBM-R}1 {CBM-@} n:  e{CBM-R}1 {CBM-@} n
{CBM-T}+ap{CBM-R}ar(d,e)
{CBM-X}+ar(d,e){CBM-R}ap{CBM-D}{CBM-V}(ai(,yr,sa,ea,inc
{CBM-S} prnt,10,9,"2"
!{CBM-U}:
?Bxc{CBM-R}275:yc{CBM-R}100:xr{CBM-R}30:yr{CBM-R}80
BL circle,xc,yc,xr,yr,sa,ea,inc
WV prnt,34,12,"3"
{$7d} :
{$ea}xc{CBM-R}52:yc{CBM-R}45:xr{CBM-R}35:yr{CBM-R}30
{CBM-C}{$f4} circle,xc,yc,xr,yr,sa,ea,inc
P{$fe} prnt,6,19,"4"
V:
{$ea} j{CBM-R}1 {CBM-@} 3000:
{$fa} clscr,1N(R cp{CBM-E}1{CBM-M} 4090
{$f1}({CBM--}2,ch$(2,ht):4,G(254);G(141);
"){$e6}tb{CBM-R}tb{CBM-N}1:2,ch$(10,ht):4,{CBM-T}tb);G(254);G(141);
-){$f0} 4260
p){$fa}2,ch$(1,ht):4,G(254);G(141);
)tb{CBM-R}tb{CBM-N}1:2,ch$(9,ht):4,{CBM-T}tb);G(254);G(141);
{CBM-A})tb{CBM-R}tb{CBM-N}1:2,ch$(9,ht):4,{CBM-T}tb);G(254);G(141);
{CBM-F}) 4260

,0,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0
D 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
{CBM-N} 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
{$f0} 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0{CBM-U} 0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0
ZB 0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0
{SHIFT-*}L 0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,0,0,0
V 0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1s(10)
{$f9}{CBM-@} k{CBM-R}j {CBM-@} u(11) {SHIFT-POUND} s(11)
{CBM-S} l{CBM-R}k {CBM-@} u(12) {SHIFT-POUND} s(12)
-{CBM-U} m{CBM-R}l {CBM-@} u(13) {SHIFT-POUND} s(13)
9Bjj{CBM-R}jj{CBM-N}1
lL jj{CBM-W}{CBM-R}m {CBM-M} 1810
xVt{CBM-R}x(jj)
G x(jj){CBM-R}x(m)
R{$ea}x(m){CBM-R}t
{$7e}{$f4}t{CBM-R}y(jj)
{$fe}y(jj){CBM-R}y(m)
y(m){CBM-R}t
:
{CBM-R} m,l,k,j,i,h,g
{CBM-B}Bf{CBM-R}f{CBM-N}s(6)
TL f{CBM-W}{CBM-R}u(6) {CBM-M} 1660
{$e1}V
,0,0,0,0,0,1,1,0
jR 0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0
{$7c} 0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0
V 0,1,1,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0,1,1,0
 0,1,1,0,0,0,1,1,0,0,0
{$ee}2y(j1){CBM-R}i0{CBM-Q}i2
{$fe}<x(j3){CBM-R}r1{CBM-Q}i3
fy(j3){CBM-R}i1{CBM-N}r3
p i,j,k
4N lg{CBM-R}{CBM-J}(lg{CBM-Z}2){CBM-D}2 {CBM-M} 1500
fX i{CBM-R}1 {CBM-@} n {SHIFT-POUND} 2
yr0{CBM-R}x(i){CBM-N}x(i{CBM-N}1)
Lr1{CBM-R}x(i){CBM-Q}x(i{CBM-N}1)
{$7f}i0{CBM-R}y(i){CBM-N}y(i{CBM-N}1)
 i1{CBM-R}y(i){CBM-Q}y(i{CBM-N}1)
{CBM-N}x(i){CBM-R}r0
{CBM-N}{CBM-H}y(i){CBM-R}i0
{CBM-U}{CBM-V}x(i{CBM-N}1){CBM-R}r1
FHy(i{CBM-N}1){CBM-R}i1
NR i
{CBM--}{CBM--}s(13){CBM-R}n{CBM-Z}2,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0
{$60}, 0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0
{CBM-+}6 0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0
{$ec}@ 0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0
2
j 0,0 {SHIFT-POUND} m4
{$f5}8j0{CBM-R}i{CBM-N}j{CBM-Q}m4
bj1{CBM-R}j0{CBM-N}m

lj2{CBM-R}j1{CBM-N}m
vj3{CBM-R}j2{CBM-N}m
,{$60}r0{CBM-R}x(j0){CBM-N}x(j2)
?Jr1{CBM-R}x(j0){CBM-Q}x(j2)
rTi0{CBM-R}y(j0){CBM-N}y(j2)
E{$7e}i1{CBM-R}y(j0){CBM-Q}y(j2)
Xr2{CBM-R}x(j1){CBM-N}x(j3)
r3{CBM-R}x(j1){CBM-Q}x(j3)
i2{CBM-R}y(j1){CBM-N}y(j3)
{CBM-E}{CBM-+}i3{CBM-R}y(j1){CBM-Q}y(j3)
A{CBM-A}x(j0){CBM-R}r0{CBM-N}r2
Q{SHIFT-@}y(j0){CBM-R}i0{CBM-N}i2
{$e3}D ar{CBM-R}0 {CBM-M} 1ir{CBM-S}2{CBM-N}ii{CBM-S}2{CBM-Q}ar(d,e){CBM-S}2){CBM-D}ai(d,e){CBM-D}pm
%
H
 e,d
0
{CBM--}
 32,1
V
{$e6}
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
{CBM-C}
{$f0}
 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
{$fa}
 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0

"  working on fft;column:";cl
 ce{CBM-R}1 {CBM-@} n
= x(ce){CBM-R}ar(ce,cl):y(ce){CBM-R}ai(ce,cl)
f* ce
p4 890
_> ce{CBM-R}1 {CBM-@} n
har(ce,cl){CBM-R}x(ce):ai(ce,cl){CBM-R}y(ce)
r ce,cl
F
P:
AZ  complex fast fourier transform
G:
X it{CBM-E}0 {CBM-M} 940
{$e6} i{CBM-R}1 {CBM-@}
{$ec}x(bc){CBM-R}tx:y(bc){CBM-R}ty
{$f5} sl
 it{CBM-E}0 {CBM-M}
  i{CBM-R}1 {CBM-@} n
"*x(i){CBM-R}x(i){CBM-Z}n
34y(i){CBM-R}{CBM-Q}y(i){CBM-Z}n
:>i
@h
Er convert into amplitude & angle
\"...finding amplitude & angle"
F d{CBM-R}1 {CBM-@} n
{CBM-G}P e{CBM-R}1 {CBM-@} n
OZap{CBM-R}{SHIFT-@}(ar(d,e){CBM-D}ar(d,e){CBM-N}ai(d,e){CBM-D}ai(d,e))
{$e1},0,0,0
{$f6}&:
0 660: fast fourier transform
:: 2130: amplitude and angle
zd 2370: normalize/truncate
Un 2900: hologram plot
{CBM-E}x 4340: find components for inverse fft from plot data
{CBM-F}Bit{CBM-R}{CBM-Q}1
SL 660: inverse fft
{$f0}V 4430: gray-sc
,1,0,0,0,0,0,1,1,0,0,0,0
l  0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0
{$ea} 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0
X{$f4} 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
{$fe} 0,0,0,0,0,0,0e{CBM-R}e{CBM-N}s(5)
{$f6} e{CBM-W}{CBM-R}u(5) {CBM-M} 1650
d{CBM-R}d{CBM-N}s(4)
 d{CBM-W}{CBM-R}u(4) {CBM-M} 1640
%c{CBM-R}c{CBM-N}s(3)
:{CBM-POUND} c{CBM-W}{CBM-R}u(s) {CBM-M} 1630
g{CBM-R}b{CBM-R}b{CBM-N}s(2)
\{CBM-C} b{CBM-W}{CBM-R}u(2) {CBM-M} 1620
FFa{CBM-R}a{CBM-N}1
YP a{CBM-W}{CBM-R}al {CBM-M} 1610
Z sl{CBM-R}1 {CBM-@} (n{CBM-Q}2){CBM-Z}2
{CBM-@}{$e4}bc{CBM-R}n{CBM-N}1{CBM-Q}sl:fc{CBM-R}sl{CBM-N}1
{SHIFT-@}{$ee}tx{CBM-R}x(fc):ty{CBM-R}y(fc)
V{$f8}x(fc){CBM-R}x(bc):y(fc){CBM-R}y(bc),0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,0
B 0,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0
{CBM-POUND}{CBM-@} 0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0,0
{$ee}{CBM-S} 0,0,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0
4
{$e8}{$e6}u(13){CBM-R}n
{$f7}{$f0} k{CBM-R}2 {CBM-@} 12
{$fa}j{CBM-R}14{CBM-Q}k

s(j){CBM-R}1
u(j){CBM-R}s(j{CBM-N}1)
? s(j{CBM-N}1){CBM-E}1 {CBM-M} s(j){CBM-R}{CBM-J}(s(j{CBM-N}1){CBM-Z}2)
g" k
s,al{CBM-R}s(2)
\6jj{CBM-R}0
{$7d}@a{CBM-R}1: b{CBM-R}a: c{CBM-R}b: d{CBM-R}c: e{CBM-R}d: f{CBM-R}e
{$7c} g{CBM-R}f {CBM-@} u(7) {SHIFT-POUND} s(7)
{CBM-Z} h{CBM-R}g {CBM-@} u(8) {SHIFT-POUND} s(8)
E i{CBM-R}h {CBM-@} u(9) {SHIFT-POUND} s(9)
{CBM-*} j{CBM-R}i {CBM-@} u(10) {SHIFT-POUND} ,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0
X
t 0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0
{CBM-V}
^ 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
H 0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0300
Nx(j2){CBM-R}(r1{CBM-N}i3){CBM-D}c1{CBM-N}(i1{CBM-Q}r3){CBM-D}s1
#Xy(j2){CBM-R}(i1{CBM-Q}r3){CBM-D}c1{CBM-Q}(r1{CBM-N}i3){CBM-D}s1
c{$e2}x(j1){CBM-R}(r0{CBM-Q}r2){CBM-D}c2{CBM-N}(i0{CBM-Q}i2){CBM-D}s2
C{$ec}y(j1){CBM-R}(i0{CBM-Q}i2){CBM-D}c2{CBM-Q}(r0{CBM-Q}r2){CBM-D}s2
{$f6}x(j3){CBM-R}(r1{CBM-Q}i3){CBM-D}c3{CBM-N}(i1{CBM-N}r3){CBM-D}s3
{CBM-T}
y(j3){CBM-R}(i1{CBM-N}r3){CBM-D}c3{CBM-Q}(r1{CBM-Q}i3){CBM-D}s3
{CBM-S}
 1360
{CBM-V}x(j2){CBM-R}r1{CBM-N}i3
Ny(j2){CBM-R}i1{CBM-Q}r3
{$de}(x(j1){CBM-R}r0{CBM-Q}r2,0,0,0,0
h 0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0
 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
T 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0
" 0,0,0,0,0,1,1,0,0,0,0,0,0,0,0 n
{$fa}{CBM-I}y(i){CBM-R}{CBM-Q}y(i):  i
{CBM-D}lg{CBM-R}{CBM-C}(n){CBM-Z}{CBM-C}(2)
{CBM-L} lg{CBM-W}{CBM-R}1 {CBM-M} 1390
1{SHIFT-*} k{CBM-R}2 {CBM-@} lg {SHIFT-POUND} 2
@Jm{CBM-R}2{CBM-S}(lg{CBM-Q}k)
kTm4{CBM-R}4{CBM-D}m
y{$de} j{CBM-R}1 {CBM-@} m
M{$e8}ar{CBM-R}(j{CBM-Q}1){CBM-Z}m4{CBM-D}2{CBM-D}~
Z{$f2}c1{CBM-R}{CBM-V}(ar)
{$fc}s1{CBM-R}{CBM-B}(ar)
c2{CBM-R}c1{CBM-D}c1{CBM-Q}s1{CBM-D}s1
{CBM-Z}s2{CBM-R}c1{CBM-D}s1{CBM-N}c1{CBM-D}s1
{SHIFT-*}c3{CBM-R}c2{CBM-D}c1{CBM-Q}s2{CBM-D}s1
S$s3{CBM-R}c2{CBM-D}s1{CBM-N}s2{CBM-D}c1
{$e7}. i{CBM-R}m4 {CBM-@} n ap{CBM-R}0 {CBM-M} 2330
{$f9} ar(d,e){CBM-W}{CBM-E}0 {CBM-M} 2230
 ai(d,e){CBM-W}0 {CBM-M} pa{CBM-R}{CBM-Q}~{CBM-Z}2
,{CBM-I} ai(d,e){CBM-E}0 {CBM-M} pa{CBM-R}~{CBM-Z}2
7{CBM-D} 2320
o{CBM-L} ai(d,e){CBM-W}{CBM-E}0 {CBM-M} 2270
I{SHIFT-*} ar(d,e){CBM-W}0 the npa{CBM-R}~
{$7f}J ar(d,e){CBM-E}0 {CBM-M}pa{CBM-R}0
T 2320
{CBM-@}{$de}pa{CBM-R}A(ai(d,e){CBM-Z}ar(d,e))
G{$e8} ar(d,e){CBM-E}0 {CBM-P} ai(d,e){CBM-E}0 {CBM-M}pa{CBM-R}pa
{$ec}{$f2} ar(dale plot
"finished. time is  ";ti$

" 2d fft
1 rw{CBM-R}1 {CBM-@} n
r{CBM-POUND}"  working on fft;row:";rw
A{CBM-R} re{CBM-R}1 {CBM-@} n
{CBM-C}x(re){CBM-R}ar(rw,re):y(re){CBM-R}ai(rw,re)
F re
P 890
{CBM-M}Z re{CBM-R}1 {CBM-@} n
K{$e4}ar(rw,re){CBM-R}x(re):ai(rw,re){CBM-R}y(re)
W{$ee} re,rw
{$e6} cl{CBM-R}1 {CBM-@} n


{SHIFT-*}l{$de}Cl FlVEl{$7c}Dl,Dl{$e7}Fl{$f5}FlGltGlJCl{CBM-*}Gl{$e4}Il!JlFl?l{$ec}lC



~
{$f8}





{$f0}{$f0}

P



{SHIFT-+}{SHIFT-+}~






~{CBM-*}
{SHIFT-+}
{$ef}@{CBM-*}~B~2~
~J{$ef}{SHIFT-+}{SHIFT-+}~
{CBM-*}
{$de}~~NB{SHIFT-+}{SHIFT-+}OS
{$fe}
{$f6}
~
~
{$7d}$~
~
{CBM-+}
{$7d}
{$fe}~
{$f7}~
{$7d}@{$fe}
{$7d} ~
~
{$ef}
~~$D
~
{$f6}
{$fe}
~
~
~
~
~0{$fe}
~
~
{$fe}
~
~ 5$~U~
M
~
~
~
~
{$7e} ~m~~ W
Y
O
~
ULU@{$f7}M$
~
~ ~
{$fe}
{$f7}1=





d"F{CBM-N}{SHIFT--}{$ee}W{CBM-F}~
m#3
Hk

k




m2Y
{$f0}{$f8}{$60} {$eb}B{CBM-Z}s{SHIFT-*}{$f0}{SHIFT-POUND}~q{SHIFT-*}{SHIFT-POUND}{CBM-POUND}->{SHIFT-*} 6{CBM-Z}g{SHIFT-*}jjjj 60{SHIFT-POUND}
{CBM-D}u{SHIFT-*}Pi~{SHIFT-POUND}= C~{SHIFT-POUND}
{$fd}{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND} {$fe} B
{CBM-E}{$fb}{$fd}HP{$f9}{$e6}{$fe}{$e6}{$fc}P{$f3} .B{CBM-Z}={SHIFT-*}h0 D{SHIFT-POUND}L{$fc}{SHIFT-POUND}{CBM-V}{$fe} M{SHIFT-POUND}(k{SHIFT-*} {CBM-A}{CBM-G}){$fe}{CBM-S}q{SHIFT-*}{$f0}{SHIFT-POUND} R~k{SHIFT-*}l{SHIFT-POUND}l{SHIFT-*} {CBM-O}# R~{$f7} {$eb},9{SHIFT-*}0.{CBM-Z}o{SHIFT-*}I{CBM-I}
*m{SHIFT-*}n{SHIFT-*}
o{SHIFT-*}
m{SHIFT-*}m{SHIFT-*}{CBM-Z}p{SHIFT-*}I
t{SHIFT-*}
  95,  67,  24,  84,  53,  81,  64, 135
1tJ
 162, 126, 118,  30,  49,  31,  19, 106
rtT
   1, 300, 210, 268:  1975
xt{$de}
:
Qt{$e8}
 none entered,,,100


173
{CBM-POUND}rP
 130, 138,  17,  59,  89, 125, 274, 157
UrZ
  96, 165, 120,  71,  54, 100,  74,  35
{$f6}r


I


IP {$f5}Il{CBM-X}IIP{CBM-I}( <IJP{$fa}l{CBM-X}IIP{SHIFT-POUND}
q{SHIFT-*}l{CBM-X}IIP <Il{CBM-X}I{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-G}PFF8{CBM-G}{$fb}{$e9}{$fb}{CBM-G}{$fc}{$e9}
{$fc}{CBM-G}{$fb}I
{CBM-G}{$fc}{$e9} {$60}{$e6}{$fd}P{$e6}{$fe}{$e6}P{$e6}{SHIFT-POUND}E{$fb}{$fb}{$e6}{$fc}{CBM-G}{$fb}I@{CBM-G}{$fc}{$e9}~ <I{$60}@{CBM-S}q{SHIFT-*}{$f0} BI  J{CBM-E}{$fb}{$f9} JH{CBM-Z}>{SHIFT-*},9{SHIFT-*}{CBM-Z}a{SHIFT-*}{$fd}{CBM-Z}@{SHIFT-*}
?{SHIFT-*} DIH{CBM-POUND}H{CBM-N}{$60}{SHIFT-POUND}
&&&{CBM-Z}h{SHIFT-*}E{CBM-Z}i{SHIFT-*}E{$60} {$fd}{CBM-S} {CBM-Z}
 170, 186, 239, 122,  98
!rr
  40,  84, 102,  30,  99,  97, 325,  77
nr\
 247, 229,  68, 116,  18,  28,  74,  44
{$7b}rF
  46, 131, 173, 131,  57, 106, 124, 173
{CBM-POUND}rP
 130, 138,  17,  59,  89, 125, 274, 157
UrZ
  96, 165, 120,  71,  54, 100,  74,  35
{$f6}r

J8{SHIFT-*}{$60} {SHIFT--}B){$f0},9{SHIFT-*}b{SHIFT-*}{CBM-N}{CBM-X}>{SHIFT-*}g{SHIFT-*}{CBM-X}c{SHIFT-*}c{SHIFT-*}{CBM-X}G7{SHIFT-*}{$60}
u{CBM-N}~ {SHIFT--}B



?{SHIFT-*},9{SHIFT-*}0
>{SHIFT-*}?{SHIFT-*}ldG {SHIFT--}B)@{SHIFT-*} {SHIFT--}B)a{SHIFT-*}{CBM-S}b{SHIFT-*}{CBM-X}>{SHIFT-*}g{SHIFT-*}{CBM-X}c{SHIFT-*}c{SHIFT-*}{$60} {$7c}D {$eb}B{CBM-I}{CBM-X}s{SHIFT-*}m{SHIFT-*}J{$f7} Y
{$f0} {$f5}F Y
{$f0} {$e7}F{CBM-Z}3{SHIFT-*}Mm{SHIFT-*}s{SHIFT-*}{CBM-Z}4{SHIFT-*}Mn{SHIFT-*}t{SHIFT-*}{CBM-Z}5{SHIFT-*}u{SHIFT-*}{CBM-Z}6{SHIFT-*}v{SHIFT-*} C _F8{CBM-Z}u{SHIFT-*}{$ed}o{SHIFT-*}u{SHIFT-*}{CBM-Z}v{SHIFT-*}{$ed}p{SHIFT-*}v{SHIFT-*} C _F8{CBM-Z}s{SHIFT-*}{$ed}m{SHIFT-*}s{SHIFT-*}{CBM-Z}t{SHIFT-*}{$ed}n{SHIFT-*}t{SHIFT-*} _F{CBM-Z}u{SHIFT-*}Mo{SHIFT-*}u{SHIFT-*}{CBM-Z}v{SHIFT-*}Mp{SHIFT-*}v{SHIFT-*}l_F{SHIFT-POUND}
{$fb}{$fc} {$f1}{CBM-Y} (lh
{$fd}jF{$fd}{$fe},9{SHIFT-*}0{SHIFT-POUND}L{$fe}{$fe}lE{CBM-Z}b{SHIFT-*}I{$f0}{SHIFT-POUND}X{$fe}{$fe}{CBM-G}{$fc} {$fc}{CBM-Z}3{SHIFT-*}-:{SHIFT-*}{CBM-N}{SHIFT-POUND}
{CBM-POUND},8{SHIFT-*}Pp$0{SHIFT-POUND}~$K0{$60}{CBM-E}{$fb}m7{SHIFT-*},9{SHIFT-*}0
=JEA{CBM-X}JEP=REA{CBM-X}REi~1{$fb}A{$fb}{CBM-E}{$fd}-c{SHIFT-*}
g{SHIFT-*}{$fd}{$60}@ {SHIFT-*}0 {$7c}D Y
{$f0} {$f5}F Y
{$f0} {$e7}F B {CBM-Q}Dl.B{SHIFT-POUND}J{SHIFT-POUND}
K8{CBM-X}s{SHIFT-*}{$fd}3{SHIFT-*}B{CBM-X}t{SHIFT-*}{$fd}4{SHIFT-*}C{SHIFT-POUND}~JK8{SHIFT-POUND}
{$f5}BB{SHIFT-POUND}
{$f5}CC{$60}BPJK{$60}{CBM-G}CjG{CBM-G}BJF{SHIFT-POUND}
{$e5}BH{SHIFT-POUND}
{$e5}CI$K{$e4} {$7f}D8{SHIFT-POUND}
{$e5}LL{SHIFT-POUND}
{$e5}
h){CBM-N}{CBM-X}G{SHIFT-*}o{SHIFT-*}Hjjjj{CBM-N}{CBM-X}G{SHIFT-*},9{SHIFT-*} p{SHIFT-*}{$60}n{SHIFT-*}{CBM-G}{$fc}{CBM-N})X{$fc}{CBM-E}{$fb}{$fc}){CBM-N}{CBM-X}G{SHIFT-*}{$60} \h{CBM-X}m{SHIFT-*}){$f0}s{SHIFT-*}H \{CBM-X}m{SHIFT-*})
s{SHIFT-*}e{CBM-N} R~)3

s{SHIFT-*})LjjP{CBM-I}
u{SHIFT-*}
.u{SHIFT-*}
.u{SHIFT-*}{CBM-S}u{SHIFT-*}{$60} {SHIFT-POUND}={CBM-I} {SHIFT-@}~{SHIFT-POUND}
 {CBM-X}~ {SHIFT-*}~{CBM-I}= I~{CBM-I}{CBM-X} R~J{$f7}{$60}{CBM-I}{CBM-X}/ R~J{$f7}{SHIFT-POUND}= C~ L~{CBM-Z}<{SHIFT-*}H0 {CBM-Z}C{$60}{CBM-I}"{SHIFT-POUND}
t{SHIFT-*}J{$fa}{SHIFT-POUND}s{SHIFT-*}
{CBM-E}{$fb}h H{CBM-S}t{SHIFT-*}P){$f0}jjj
P{$e9}{$e6}{$fc}Ns{SHIFT-*}0P{$de} {$e7}P{CBM--}{CBM-S}t{SHIFT-*}P*{CBM-Z}9{SHIFT-*}%t{SHIFT-*}{CBM-Z}!P)

{SHIFT--}Bu{SHIFT-*}v{SHIFT-*}P{SHIFT-POUND}?{CBM-I},9{SHIFT-*}{SHIFT-POUND}JMs{SHIFT-*}{$ed}t{SHIFT-*}{CBM-A}lh{CBM-R}{SHIFT-POUND}GMu{SHIFT-*}{$f6}{$60}{CBM-Z}P{$f0} {SHIFT-POUND}{CBM-I}
 GPP
{SHIFT--}{SHIFT-POUND}HP{CBM-I}PJPl{CBM-C}{$fe}{SHIFT-POUND}ZP{SHIFT-POUND}P
Dl1{$ea}X{$ee}P{$ee}P{CBM-I}
P{CBM-Z}PP{$e8}P{$f8}Px{$60}X{SHIFT-POUND}1{CBM-I}{$ea} XPa{CBM-Z})CP{CBM-Z}+CP{CBM-Z}-C
{SHIFT--}{CBM-Z}8CP{$60} {CBM-Y}A {SHIFT--}B0.{$f0}I)***Ii~iCPX{SHIFT-POUND}PP{SHIFT-POUND}#{CBM-I}C {$7f}
{CBM--}={SHIFT-*}x{$60}{CBM-Z}+C{$f0} xC QC {$7b}C{SHIFT-POUND}
+C{$60} {CBM-Y}A {SHIFT--}B{$f0}{SHIFT-POUND} P 9{SHIFT-*}:{SHIFT-*}i
{$7b}
{$fe}{$fd}{CBM-I} ' >{CBM-I} ({$fc}{$fb}{CBM-I}X
{$fe}{$fd}{CBM-I}  >{CBM-Z}!P {CBM-Y}A {$e6}C{CBM-I}{$60}
{$fc}{$fb}{CBM-I}
{$fe}{$fd}{CBM-I}{$7f} ? >{$60}n{SHIFT-*}m{SHIFT-*}
{CBM-E}{$fb}{$fd}{CBM-G}{$fc}Mn{SHIFT-*}P{CBM-G}{$fb}Mm{SHIFT-*}P{$60}{$e6}{$fb}P{$e6}{$fc}{$e6}{$fd}P{$e3}{$e6}{$fe}P{CBM-*}
~
~
~
~
{SHIFT-@}~{SHIFT-POUND}
 {CBM-X}~ {SHIFT-*}~{CBM-I}= I~{CBM-I}{CBM-X} R~J{$f7}{$60}{CBM-I}{CBM-X}/ R~J{$f7}{SHIFT-POUND}= C~ L~{CBM-Z}<{SHIFT-*}H0 {CBM-Z}C{$60}{CBM-I}"{SHIFT-POUND}
t{SHIFT-*}J{$fa}{SHIFT-POUND}s{SHIFT-*}
{CBM-E}{$fb}h H{CBM-S}t{SHIFT-*}P){$f0}jjj
P{$e9}{$e6}{$fc}Ns{SHIFT-*}0P{$de} {$e7}P{CBM--}{CBM-S}t{SHIFT-*}P*{CBM-Z}9{SHIFT-*}%t{SHIFT-*}{CBM-Z}!P)

DL0,~~~@~
~[
~
~y~~~
{$7f}{$ee}
~J{CBM-X}~B{CBM-*}
~
~~
{$fb}
{SHIFT-+}~~~0~
{$7f}
~
~
~
{CBM-*}~
~
~~
~
{CBM-*}J{SHIFT-+}H
{SHIFT-+}{SHIFT-+}~
~
~
~
~{CBM-*}
Z
{$ef}@{CBM-*}~B~2~
~J~Z{SHIFT-+}~
{CBM-*}
{$de}~~NB{SHIFT-+}{SHIFT-+}_S
{$fe}
{$f6}
~
~
{$7d}{CBM-@}~
~
{CBM-+}
{$7d}
{$fe}~
{$f7}~
{$7d}b{$fe}
{$fd} ~
~
{$ef}
~
{$fb}$D
~
{$e6}
{$e7}
~
~
{CBM-Z}+CPw{CBM-Z}
{SHIFT--}-C{CBM-Z}P+C{CBM-Z}P){$7f}P)C{CBM-Z}P8C{CBM-Z}
I?P{CBM-Z}IB{$f0},{CBM-Z}
bB{CBM-Z}cB{SHIFT-POUND}?
{SHIFT-POUND}B
{$ee}n{SHIFT-*}{$ee}n{SHIFT-*}{$ee}o{SHIFT-*}{CBM-I}p{SHIFT-*} {CBM-E}{$fd}{CBM-I}q{SHIFT-*} \h{CBM-X}m{SHIFT-*}J.s{SHIFT-*}J.s{SHIFT-*}HNq{SHIFT-*}P{$eb}{CBM-Z}s{SHIFT-*}e R~YNl{SHIFT-*}{$f0}8{CBM-G}{$fd}{$e9}@{$fd}{CBM-G}{$fe}{$e9}{$fe}{CBM-Z}q{SHIFT-*}{$f0}PplNk{SHIFT-*}{$f0}{$f8}{CBM-G}EI?{$f0}{$f2}{CBM-Z}q{SHIFT-*}{CBM-N}{$f0}iq{SHIFT-*}0{CBM-G}{$fd}I{$fd}{CBM-G}{$fe}I{$fe}J80{CBM-G}{$fb}I{$e8}{$fb}{CBM-G}{$fc}I{$fc}{$e8}PlG{SHIFT-POUND}l{SHIFT-*} {CBM-O}) R~{$f7} {$eb} {CBM-E}{$fd},q{SHIFT-*}



,9{SHIFT-*}0{$7c}{CBM-I}
h{CBM-Z}o{SHIFT-*}{CBM-Z}p{SHIFT-*}J.s{SHIFT-*}J.s{SHIFT-*}HJP{$ea}{CBM-Z}s{SHIFT-*}e{CBM-N} R~)u
s{SHIFT-*}){CBM-N}j
s{SHIFT-*} R~{CBM-C}l68{CBM-G}{$fb}{$e9}({$fb}{CBM-A}F{$fc}
{CBM-E}{$fb}
+

 this program makes binary holograms
u
 by:  patrick hawley, port elgin, on

 x(32),y(32),s(13),u(13),ar(32,32),ai(32,32),ch$(11,15),e(16)
{CBM-S}
ti${CBM-R}"000000":4,4
{CBM-X}(
ir{CBM-R}1: ii{CBM-R}1
H2
 n,it
Q<
""
{$fe}f
"do you want a hologram plot (y/n)";hp$
G {$f7}{CBM-Y}{CBM-+}P{CBM-G}P{CBM-I}P,{CBM-I}Xi{SHIFT-*}{CBM-I}
h{SHIFT-*}{$60}{CBM-Z}{CBM--}){$fe}{CBM--}{CBM-G}){$fb}{$60}{CBM-G}{CBM-Z}{CBM--}{CBM--}{$60} Y
{$f0} YA {SHIFT--}BmBqB{SHIFT-POUND}${SHIFT-POUND}j{SHIFT-*}{$60}~
{CBM-*}{$ef}
~
~~
~
{CBM-*}J{SHIFT-+}J{SHIFT-+}{SHIFT-+}
{$e8}JPH0 {CBM-Z}C{$60}{CBM-E}" IHHlvHWhh{CBM-G}W0I I{$60}){CBM-*}P)?lI){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lIIP {$f8}Il{CBM-X}IIP{CBM-I}( DIJP{$fa}l{CBM-X}IIP{SHIFT-POUND}q{SHIFT-*}l{CBM-X}IIP DIl{CBM-X}I{CBM-I},{CBM-I}{SHIFT--}{$ed}H{$f0}J{$f8}l{CBM-X}I{CBM-X}{$fd}H



?{SHIFT-*},9{SHIFT-*}0
>{SHIFT-*}?{SHIFT-*} dGl{CBM-X}
 104,  40, 319, 218:  1980
#s
  57, 162,  61,  57,  49,  33,  32,  19
ps
  74,  76,  65, 294, 113,  95,  77,  84
{$7d}s{CBM-I}
  65,  23,   9, 104,  96,  42, 124,  88
{CBM-N}s{CBM-D}
 102,  87,  84,  52,  98,  18,  51,  53
Ws{CBM-L}
  82,  98,  20, 140, 167, 159, 112,  87

{CBM-R}k{SHIFT-*} {$f1}{CBM-Y}l{SHIFT-*}{$f0} {CBM-A}{$ed}{CBM-G}{$fb}I({$fb}{$e6}{$fc}JP{$f2}{CBM-Z}k{SHIFT-*}E{$fb}{$fb}{$fd}{SHIFT-POUND}
E{$fc}{$fc}hIX{$fe}HIL{$fb}&{$fc}{$fb}&{$fc}{$fb}&{$fc}{CBM-G}{$fc}I {$fc}{CBM-Z}={SHIFT-*}h0 D {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N}
{$e8}JPH0 {CBM-Z}C{$60}{CBM-E}" IHHlvHWhh{CBM-G}W0I I{$60}){CBM-*}P)?lI){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lIIP {$f8}Il{CBM-X}IIP{CBM-I}( DIJP{$fa}l{CBM-X}IIP{SHIFT-POUND}q{SHIFT-*}l{CBM-X}IIP DIl{CBM-X}I{CBM-I},{CBM-I}{SHIFT--}{$ed}H{$f0}J{$f8}l{CBM-X}I{CBM-X}{$fd}H



?{SHIFT-*},9{SHIFT-*}0
>{SHIFT-*}?{SHIFT-*} dGl{CBM-X}
MM{$60}{CBM-G}FEDF{CBM-N}{CBM-G}GEEGECP{$e4}B{$e5}BF{CBM-G}G{$e5}CG8{$60}{SHIFT-POUND}r{SHIFT-*} {$eb}B Y
P _FlyFI{CBM-@}P {$7f}D S
 {$ee}B Y
I,P
 {$f5}F Y
I,P {$e7}F _F Y
I{CBM-@}{$f0}{CBM--}{SHIFT-POUND}
r{SHIFT-*}{$60} B{CBM-I}
 E{CBM-I} E{CBM-G}BED{CBM-G}C{$e5}E' JE D{$e6}HP{$e6}I{$f0}t{$ee}3{SHIFT-*}P{$ee}4{SHIFT-*} {$f6}E{$e8}{CBM-Z}5{SHIFT-*}EL5{SHIFT-*}l{$7b}F{CBM-I}{CBM-J}B{CBM-H}DDB{CBM-J}J{CBM-H}LLJJ{$ed} JE D{$e6}H{$f0}{$ee}5{SHIFT-*} {$f6}E{$f1}{CBM-Z}3{SHIFT-*}EL3{SHIFT-*}{CBM-Z}4{SHIFT-*}EM4{SHIFT-*}l{CBM-Y}F$K D {$7f}Dl.B {SHIFT--}B)iJJ
{CBM-N}{CBM-X}x{SHIFT-*}Ix{SHIFT-*}{SHIFT-POUND}X{$fc}P{CBM-W})
{CBM-N}{$fe}w{SHIFT-*}P{$fe}x{SHIFT-*}{$60}{SHIFT-POUND}{$e8}{$fb}{SHIFT-POUND}O{$fc}
{CBM-I}
{CBM-O}x{SHIFT-*}Js{SHIFT-*}{CBM-O}w{SHIFT-*}JNs{SHIFT-*}J,9{SHIFT-*}Ns{SHIFT-*}JI
w{SHIFT-*}HH{$e8} P{CBM--}{CBM-I}
u{SHIFT-*}s{SHIFT-*}{SHIFT-POUND}
m{SHIFT-*}{CBM-C}
{CBM-O}w{SHIFT-*}I#{CBM-A}Mm{SHIFT-*}m{SHIFT-*}I#{CBM-A} {CBM-A}{$e8}{$e5}{CBM-Z}m{SHIFT-*}P{$e8}t{SHIFT-*}{CBM-Z}u{SHIFT-*}{$ee}u{SHIFT-*}{CBM-S}s{SHIFT-*}{CBM-C}
G{SHIFT-*}{$e8}{$ec}t{SHIFT-*}{$f4} {CBM-F}u{SHIFT-*}u{SHIFT-*}u{SHIFT-*}u{SHIFT-*}J{CBM-X}G{SHIFT-*},u{SHIFT-*}0
P
{CBM-POUND}{CBM-O}G{SHIFT-*}J{$ea}{CBM-I}J{CBM-C}
{CBM-O}w{SHIFT-*}P{SHIFT-POUND}~G{SHIFT-*}P{$f0}{CBM-O}G{SHIFT-*}s{SHIFT-*}{SHIFT-POUND}~G{SHIFT-*}J{CBM-C}
{CBM-O}G{SHIFT-*}Ms{SHIFT-*}{$f0}{$ef}{CBM-Z}!P){CBM-N}{CBM-X}G{SHIFT-*}m{SHIFT-*}{SHIFT-POUND}
u{SHIFT-*}{$60}{CBM-I}{$7f} @{$fc}{$fb}{CBM-I}L
~;{SHIFT-*}{SHIFT-POUND}~7{SHIFT-*} Y
{$f0} ,D xC QC{CBM-Z}
{SHIFT--}){$fc}
{SHIFT--}{SHIFT-POUND}8P{SHIFT-POUND};P{SHIFT-POUND}H,9{SHIFT-*}{SHIFT-POUND}XP{$60}{SHIFT-POUND}b{SHIFT-*}{CBM-Z}d{SHIFT-*}c{SHIFT-*}{SHIFT-POUND}8{SHIFT-*} {$eb}B{CBM-Z}u{SHIFT-*}



?{SHIFT-*}g{SHIFT-*}{CBM-Z}s{SHIFT-*})>{SHIFT-*},9{SHIFT-*}0
?{SHIFT-*}?{SHIFT-*}g{SHIFT-*}l{CBM-POUND}B!P {SHIFT--}B)@{SHIFT-*} {SHIFT--}Ba{SHIFT-*}{CBM-Z}?{SHIFT-*}l{CBM-POUND}B {$eb}B{CBM-I}{CBM-X}s{SHIFT-*}3{SHIFT-*}J{$f7}{$60},r{SHIFT-*}{SHIFT-POUND}W{$fb}{SHIFT-POUND}{SHIFT-*}M4{SHIFT-*}{$fc}{CBM-D}3{SHIFT-*}{CBM-E}{$fb}M5{SHIFT-*}{CBM-A}{$e4}{CBM-Z}5{SHIFT-*}{$fb}8{SHIFT-POUND}G{$ed}5{SHIFT-*}hjjj{$fc}
{$fb}jF{$fb}jF{$fb}E{$fc}{$fc}{CBM-Z}3{SHIFT-*}{CBM-S}4{SHIFT-*}-;{SHIFT-*},9{SHIFT-*}
h*{CBM-N}HE{$fb}{$fb}E{$fc}{$fc}H)E{$fb}{$fb}{$fd}{CBM-G}{$fc}jF{$fd}jF
(p
"random or constant phase (r/c)";ip$
2z
pq{CBM-R}13
@D
 d{CBM-R}1 {CBM-@} n
nN
 e{CBM-R}1 {CBM-@} n
\X
 ar(d,e)
S
ai(d,e){CBM-R}ar(d,e){CBM-D}ii

ar(d,e){CBM-R}ar(d,e){CBM-D}ir

ip${CBM-R}"c"{CBM-M}200
H
ar(d,e){CBM-R}({CBM-Q}1{CBM-N}2{CBM-D}{CBM-F}(1)){CBM-D}{SHIFT-@}(ir{CBM-S}2{CBM-N}ii{CBM-S}2){CBM-D}ar(d,e)
{CBM--}{CBM-N}
pm{CBM-R}{CBM-J}({CBM-Q}1{CBM-N}3{CBM-D}{CBM-F}(1))
{$ed}{CBM-H}
 pm{CBM-R}0 {CBM-M} 170

{CBM-V}
ai(d,e){CBM-R}{SHIFT-@}(
{CBM-Z}B{CBM-Z}B{SHIFT-POUND}{$60}{SHIFT-POUND}B{$60}{SHIFT-POUND}{$7f}
{CBM--}{CBM-Z}={SHIFT-*}0 xC
D{CBM-G}<{SHIFT-*}){$fc}{$60}{CBM-Z}<{SHIFT-*}{CBM-Z}={SHIFT-*}
{CBM--}0 {CBM-Z}C{$60}l{$e3}
,j{SHIFT-*}{$f5}{SHIFT-POUND}
{SHIFT-POUND}
{CBM-I}{$fa}{SHIFT-POUND}{CBM-M}h{SHIFT-POUND}{$e9}hl{CBM-T}{CBM-POUND},={SHIFT-*} JC{CBM-Z}bB
{CBM-Z}cB{CBM-Z}B{CBM-Z}B{SHIFT-POUND}
j{SHIFT-*}l{CBM-@}{CBM-@}{$fe}{$f0}

{$fb}HP{$fb}{$e6}{$fc}F{$fe}P{$f3}{CBM-@}{$fd}{$f0}
{$f0}{$fb}P{$fb}{$fb}{$60}
{$fb} L{$fc} {$e8}{$fd} {$fe} B{SHIFT-POUND}
{CBM-POUND}W{SHIFT-*}P{$fa} ?WA{$fa}{$fb}{CBM-I} {$fc}{CBM-I}@{$fd}{CBM-I}{$fe}lB {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}{CBM-G}{$60} {$fd}{CBM-S}  Bs{SHIFT-*}t{SHIFT-*}
@@{$e8} G(147)"128 projector"
9@{$f2} "perspective plotter"
s@{$fc} "with hidden lines"
I@ "by  ian  adam"
{$7f}@ "vancouver  bc"
@ "december 1985"
@$:
{CBM-+}@.W 2170
{CBM-O}@8 2010, cs{SHIFT-*}ts
L@b 2760, choose
{$de}@l 2090, cfig
{$f8}@v 2230, viewing angle
a{$60} z(x,y)
kf
 x: {$e7} 4,(y{CBM-P}15){CBM-N}1:  y
kp

kz
:
*kD
 ** menus **
?kN
 G(19)" press:"
CkX
 "r review from another angle"
k
 "h:  "ms$(1{CBM-Q}h)" hidden lines"
{CBM-Z}k
 "v:  "ms$(1{CBM-Q}v)" vertical lines"
Bk
 "p plot again"
{CBM--}k
 "n for a new shape"
{$eb}k{CBM-N}
 "q qu
mt a  3030,3080,3120,3160,3210,3270,3320,2930
%m^ a$:
+mH:
:mR " press"
nm{$7c} "1. rainfall"
Cm "2. more data"
Ym "0. first menu"
m{CBM-K}{$f9} a:  a{CBM-R}0 {CBM-A} a{CBM-E}2 {CBM-M}
{CBM-+}m{CBM-@} a{CBM-R}1 {CBM-M}  3360
{CBM-O}m{CBM-S} a{CBM-R}2 {CBM-M}  3560
Im{CBM-U} a$,m,n,sp
UmBdd{CBM-R}1:
{SHIFT-+}mL:
{$fc}mVa{CBM-R}m{CBM-Z}
{CBM-D}pi{CBM-Z}180
{$fc}h{$fc}{$fe}%
itmp{CBM-R}120{CBM-D}{CBM-L}({CBM-V}(an))
)ixgrid{CBM-R}{CBM-J}((309{CBM-Q}tm){CBM-Z}m)
diygrid{CBM-R}{CBM-J}(sp{CBM-D}{CBM-L}({CBM-B}(an)){CBM-Z}n)
ui$ystp{CBM-R}{CBM-J}(tm{CBM-Z}n)
[i.:
Si8 calculate offsets
ib x{CBM-R}0 {CBM-@} m
ilxhriz(x){CBM-R}10{CBM-N}x{CBM-D}xg
iv
{SHIFT-POUND}i{$60}xm{CBM-R}xh(m)
{CBM-W}iJ{$e7} 4,5
AiT y{CBM-R}0 {CBM-@} n
Vi{$7e}yvert(y){CBM-R}ht{CBM-Q}y{CBM-D}yg
{$e2}itm{CBM-R}y{CBM-D}ys
{$f0}i x{CBM-R}0rows":
{$f0}nn:
oxa{CBM-R}6: b{CBM-R}2: c{CBM-R}.1: e{CBM-R}{CBM-Q}1.2
)oB{CBM-G}r(x){CBM-R}y{CBM-Z}n{CBM-Q}x{CBM-Z}m:{CBM-G}s(y){CBM-R}r{CBM-N}r
poL{CBM-G}z(x){CBM-R}(c{CBM-N}{CBM-X}(s{CBM-N}r)){CBM-D}{CBM-V}(a{CBM-D}r{CBM-D}r{CBM-Q}a{CBM-D}s{CBM-N}e){CBM-N}b
DoVa${CBM-R}"cascade":
Jo:
oa{CBM-R}{CBM-J}(m{CBM-Z}3): b{CBM-R}m{CBM-Q}a: c{CBM-R}n{CBM-Z}2: d{CBM-R}3: e{CBM-R}.1: f{CBM-R}.4
{CBM-O}o{CBM-G}r(x){CBM-R}(x{CBM-Q}a){CBM-D}(x{CBM-Q}a){CBM-N}(y{CBM-Q}c){CBM-D}(y{CBM-Q}c)
{CBM--}o{CBM-G}s(y){CBM-R}(x{CBM-Q}b){CBM-D}(x{CBM-Q}b){CBM-N}(y{CBM-Q}c){CBM-D}(y{CBM-Q}c)
p{CBM-POUND}$(0){CBM-R}"hide": ms$(1){CBM-R}"show
ght{CBM-R}190: th{CBM-R}{CBM-Q}1
/gpi{CBM-R}3.14159265
5g
;g :
Ig* "hidden lines to be shown (y/n)": {CBM-K}{$f9} b$
Zg4h{CBM-R}{CBM-L}(b${CBM-W}{CBM-E}"y")
{CBM-N}g> "vertical lines to be shown (y/n)": {CBM-K}{$f9} b$
{CBM-F}ghv{CBM-R}{CBM-L}(b${CBM-W}{CBM-E}"y")
Vgr z(m,n),r(m,n),g(m,n)
{$e8}g\ xh(m),yv(n)
{$ee}gF
{$f4}
{CBM-D}kettes and
** the transactor  85 west wilmot st. #10  richmond hill ont. canada l4b 1k7 **
-------------------------------------------------------------------------------
accepted with prepayment only
.
... cheque/m.o. enclosed  cheque # ....... dated .. {CBM-@} g(m,y),r(m,y)
eL
eV{$e5} {CBM-@} xm,ht
 e :
,e{$ea} title
<e{$f4}  1,1,24,a$
be{$fe}:
we wait for human
Ae{CBM-K}{$f9} b$
Ke{$de} 0,1
Qe&
We0:
e: mask hidden lines
ed i{CBM-R}{CBM-Q}1 {CBM-@} 1
{CBM-L}en{$e6} g(0,y){CBM-N}i,r(0,y){CBM-N}3
Dex x{CBM-R}1 {CBM-@} m
{$de}eB{$e5} {CBM-@} g(x,y){CBM-N}i,r(x,y){CBM-N}3
{$e8}eL x,i
{$fe}eV{$e6} g(0,ye 04 (feature: amiga transactor announced)
-------------------------------------------------------------------------------
** note ** prepayment required. purchase orders accepted with prepayment only
.
... cheque/m.o. enclosed  cheque # ....... dated ..{CBM-R}0 {CBM-@} m
cr(x,y){CBM-R}tm{CBM-Q}z(x,y){CBM-D}vs
"c x,y
(c
.c{CBM-N}:
bc{CBM-H} set up screen
tc{CBM-V}{$e7} 1,14: {$de} 1,1
[cH{$fe}&
AcR:
{$7d}c{CBM--} plot horizontal lines
c{$e6}{$e6} g(0,n),r(0,n)
{CBM-T}c{$f0} y{CBM-R}n {CBM-@} 0 {SHIFT-POUND}{CBM-Q}1
{CBM-H}c{$fa} y{CBM-R}n {CBM-M} 1620
{SHIFT-@}c:
Tc plot vertical lines
{$e8}c x{CBM-R}m{CBM-Q}1 {CBM-@} 0 {SHIFT-POUND}{CBM-Q}1
{$f6}c" v {CBM-M} x{CBM-R}0
 2510, {CBM-K}
aJ 1270, {$e9}
'aT 1460, plot
-a{$7e}{$eb}
aa 2670, message
ka{CBM-K}{$f9} b$
Ia b${CBM-R}"r" {CBM-M}  2230:  1130
{$7d}a{CBM-+} b${CBM-R}"p" {CBM-M} 1140
a{CBM-A} b${CBM-R}"n" {CBM-M}  dd {CBM-M}
{CBM-W}a{SHIFT-@} b${CBM-R}"n" {CBM-M}  2760:  1110
HaD b${CBM-R}"v" {CBM-M} v{CBM-R}1{CBM-Q}v
{SHIFT--}aN b${CBM-R}"h" {CBM-M} h{CBM-R}1{CBM-Q}h
{$ee}aX b${CBM-R}"q" {CBM-M}
{$f4}a{$e2}:
{$fa}a{$ec}{$ec}
it"
{$f1}k{CBM-H}

{$f7}k{CBM-V}
:
lH
{$e7} 0,1
lR
 " press:"
$l{CBM--}
 "1. stetson"
=l{$e6}
 "2. inverse waves"
pl{$f0}
 "3. furrows"
Cl{$fa}
 "4. cascade"
Yl "5. twin peaks"
l "6. crater"
l "7. radial"
{CBM-R}l" "8. read data"
{CBM-U}l,:
Bl6{CBM-K}{$f9} a$
Sl@e{CBM-R}0: a{CBM-R}E(a$)
{$e7}lj a{CBM-W}1 {CBM-A} a{CBM-E}8 {CBM-M} 2: b{CBM-R}5: c{CBM-R}n{CBM-Z}2: d{CBM-R}2: e{CBM-R}.2
n {CBM-G}r(x){CBM-R}(x{CBM-Q}a){CBM-Z}b:{CBM-G}s(y){CBM-R}(y{CBM-Q}c){CBM-Z}b
dn{$ea}{CBM-G}z(x){CBM-R}{CBM-B}(r{CBM-D}r{CBM-D}d{CBM-N}s{CBM-D}s){CBM-D}{CBM-X}({CBM-Q}r{CBM-D}r{CBM-Q}s{CBM-D}s){CBM-N}e
xn{$f4}a${CBM-R}"stetson":
^n{$fe}:
Fna{CBM-R}5
{$7c}n{CBM-G}z(x){CBM-R}{CBM-B}(x{CBM-D}y{CBM-Z}m){CBM-N}a
na${CBM-R}"inverse waves":
n&:
{CBM-H}n0a{CBM-R}m{CBM-Z}2:b{CBM-R}n{CBM-Z}2:c{CBM-R}4:d{CBM-R}1
Vn:{CBM-G}z(x){CBM-R}{CBM-B}((x{CBM-Q}a){CBM-D}(y{CBM-Q}b){CBM-Z}b){CBM-N}y{CBM-Z}c{CBM-N}d
{$ea}nda${CBM-R}"fur {CBM-@} m
jg(x,y){CBM-R}xh(x){CBM-N}tm
j{CBM-+} x,y
j{CBM-A}
j{SHIFT-@}:
-jD data to plot
=jN dd {CBM-M} 2600
kjX y{CBM-R}0 {CBM-@} n
yj{$e2} x{CBM-R}0 {CBM-@} m
Sj{$ec} e {CBM-M} r{CBM-R}{CBM-G}r(x):s{CBM-R}{CBM-G}s(y)
j{$f6}z(x,y){CBM-R}{CBM-G}z(x)
j

 x: {$e7} 4,(y{CBM-P}15){CBM-N}1:  y
{CBM-G}j


{CBM-Q}j
:
Hj
 read empirical results
Vj(
 y{CBM-R}0 {CBM-@} n
{$e4}j2
 x{CBM-R}0 {CBM-@} m
{$f1}j<
{CBM-G}z(x){CBM-R}{CBM-V}({SHIFT-@}(r)){CBM-D}({CBM-X}({CBM-Q}r{CBM-Z}d){CBM-N}e){CBM-N}{CBM-V}({SHIFT-@}(s)){CBM-D}({CBM-X}({CBM-Q}s{CBM-Z}d){CBM-N}e){CBM-N}f
(p{CBM-R}a${CBM-R}"twin peaks":
.p{CBM-C}:
jpFa{CBM-R}m{CBM-Z}2: b{CBM-R}n{CBM-Z}2: c{CBM-R}45: e{CBM-R}5
{$7d}pP{CBM-G}r(x){CBM-R}{CBM-L}((x{CBM-Q}a){CBM-D}(x{CBM-Q}a){CBM-N}(y{CBM-Q}b){CBM-D}(y{CBM-Q}b){CBM-Q}c){CBM-N}e:{CBM-G}s(y){CBM-R}.
pZ{CBM-G}z(x){CBM-R}e{CBM-Z}r{CBM-N}e
{CBM-K}p{$e4}a${CBM-R}"crater":
{CBM-M}p{$ee}:
Fp{$f8}a{CBM-R}m{CBM-Z}2: b{CBM-R}n{CBM-Z}2: c{CBM-R}.001: d{CBM-R}40
{$f9}p
{CBM-G}z(x){CBM-R}({CBM-L}(x{CBM-Q}a){CBM-N}{CBM-L}(y{CBM-Q}gP:
hZ error trap
h{$fe}&
h S(er)el
"h{$de} 0
(h{CBM-I}
.h{CBM-D}:
?h{CBM-L} view angle
Kh{SHIFT-*}"** screen will be blanked a while **"
hJ theta{CBM-W}0 {CBM-M} theta{CBM-R}60:  default angle
DhT: "enter viewing angle, or press return"
{SHIFT-+}h{$de}"for"th"degrees:"
{$e4}h{$e8} th
{$f5}h{$f2}an{CBM-R}th
b)){CBM-D}{CBM-B}(4{CBM-D}A((y{CBM-Q}b){CBM-Z}(x{CBM-Q}a{CBM-N}c))){CBM-N}d
q
a${CBM-R}"radial":
q
:
lq
 rainfall in mm   vancouver   1975-1985, 11, 10, 160
Yq*
  30,  94,  83,  90,  44,  31,   7,  29
q4
  95, 266,   0,   0:  1985
Gq>
 268, 176, 132, 140, 109,  80,   1,  17
{$f4}qh
  60, 167, 225,),r(0,y){CBM-N}1
f x{CBM-R}1 {CBM-@} m
,f{$e5} 0,{CBM-N}0,{CBM-N}0 {CBM-@} g(x,y),r(x,y){CBM-N}1
4f x
jf{$e5} 0,{CBM-N}0,{CBM-N}0 {CBM-@} {CBM-N}8,{CBM-N}8
Bf{CBM-POUND}{CBM-*} 0,g(m,y),r(m,y){CBM-N}3
Zf{CBM-R}{CBM-*} 0,g(0,y),r(0,y){CBM-N}3
f{CBM-C}{$e6} g(0,y),r(0,y)
fF
fP:
{CBM-R}fZm{CBM-R}20:  x-dimension
Jf{$e4}n{CBM-R}16:  y-dimension
{$eb}f{$ee}sp{CBM-R}96:  vertical separation
g{$f8}ms./.../...  amount ..........
.
... visa  ... mastercard  acct. # ............................  expires .../...
-------------------------------------------------------------------------------
* ontario residents - please add 7% provincial sales tax on disd,{$e6} g(x,y{CBM-N}1),r(x,y{CBM-N}1)
$d6{$e5} {CBM-@} g(x,y),r(x,y)
,d@ x
bdj h {CBM-M}  1850,mask
pdt x{CBM-R}1 {CBM-@} m
Fd^{$e5} {CBM-@} g(x,y),r(x,y)
PdH x,y
VdR:
d{$7c} draw box
d{$e6} 10,r(0,0)
{CBM-T}d{$e5} {CBM-@} 10,ht
{CBM-E}d{$e5} {CBM-@} xm,ht
Fd{CBM-@}{$e5} {CBM-@} g(m,n),yv(n)
{CBM--}d{CBM-S}{$e5} {CBM-@} g(m,n),r(m,n)
{$f0}d{CBM-U} y{CBM-R}n{CBM-Q}1 {CBM-@} 0 {SHIFT-POUND}{CBM-Q}1
eB{$e5}b{$f6} vertical scaling
!b
vscalar{CBM-R}9e9
/b
 y{CBM-R}0 {CBM-@} n
5b:
lba{CBM-R}z(0,y): x{CBM-R}1 {CBM-@} m
Fb( z(x,y){CBM-E}a {CBM-M} a{CBM-R}z(x,y)
Lb2
b< a {CBM-M}  vs{CBM-E}yv(y){CBM-Z}a {CBM-M} vs{CBM-R}yv(y){CBM-Z}a
{CBM-W}bf: select best feasible scale
{CBM-C}bp{$e7}4,7
Bbz:
WbD calculate rise
{$e5}bN y{CBM-R}0 {CBM-@} n
{$f2}bXtm{CBM-R}yv(y)

c x
32, 135,  12
3{CBM-+} 198, 251,  16, 249, 232, 208, 229,  56
{$60}{CBM-A}  32, 240, 255, 169,  19,  32, 210, 255
{SHIFT-@} 169,  18,  32, 210, 255, 165, 250,  41
{SHIFT-@}D  15,  24, 105, 193,  32, 210, 255, 165
{$e7}N 250,  74,  74,  74,  74,  24, 105, 193
 X  32, 210,
{CBM-Z}< {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L}
{CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}{CBM-Z}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND},{SHIFT-POUND}-{SHIFT-POUND}{$7f}{CBM-I}  {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}

{CBM-I}{$7f} F~ {$e4}~ R~I
{$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}{CBM-Z}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND}
X{CBM-G}EI?{$f0}KlIave"0:directories",8
{CBM-I}
{CBM-X}{SHIFT-*}{$e8} 0,  15, 133, 252, 200
 152,  41,   3, 133, 251,  D
 save"0:RUN ME!",8
pI
 ** transactor subscription form print program **
ON
 "";: dv{CBM-R}4:  15,8,15
{CBM-I}S
 8,8,8,"RUN ME TEXT,s,r": 15,e:  e {CBM-M}   8:
KX
 x{CBM-R}0 {CBM-@} 1: 8,d$:  d$: x{CBM-R}st: :   8
{$fa}{$7d}
 "your choice (y/n) ";yn$:  yn${CBM-W}{CBM-E}"y" {CBM-M}
2
**      The Transactor Magazine      **
.
The programs contained on this diskette
are just a brief glimmering of what can
be expected from each issue of our
magazine.  If you have not already
decided to subscribe  let us help you
on your way.
{$f7}he Transactor
can be found on the newsstands or
because you do not know who we are then
it's time to learn.  Allow your printer
to produce our form; fill it in then
mail it to us. It will be a decision
that you will never regret.
.
our way.**                the transactor magazine - subscription form                **
.
**   please send me 6 consecutive transactors starting with the next issue   **
.
canada $19 ...  usa $15 us ...  foreign $21 us ... air mail overseas $40 us ...
.
... rene............
.
...............................................................................
.
...............................................................................
-----------------------------------------------------------------------------wing diskettes at $8.95 US., $9.95* Cdn. each
.
... disk 1  all programs from volume 4
... disk 2  programs from volume 5 issues 1-3
... disk 3  volume 5 issue 04 (business and education)
... disk 4  volume 5 issue 05 (hardware and peripherals)
... disk ing the sciences)
... disk10  volume 6 issue 05 (hardware and software interfacing)
... disk11  volume 6 issue 06 (real life applications)
... disk12  volume 7 issue 01 (rom routines  kernel routines)
... disk13  volume 7 issue 02 (games from the inside sk19  volume 8 issue 02 (operating systems)
... disk20  volume 8 issue 03 (feature: surge protection)
... disk21  volume 8 issue 04 (feature: amiga transactor announced)
-------------------------------------------------------------------------------
tran
U255, 169, 146,  32, 210, 255
a {$e2}  24,  32, 240, 255, 108, 253,   0, 165
I {$ec} 252,  24, 101, 250, 133, 250,  96


, 201,  58, 176
{CBM-D}   3, 232, 208, 242, 189,   0,   2, 240
Y  22, 201,  32, 240,  15, 133, 252, 200
 152,  41,   3, 133, 251,  ... volume 5 issue 06 (programming aids and utilities)
... volume 6 issue 01 (more aids and utilities)
... volume 6 issue 02 (networking and communications)
... volume 6 issue 03 (languages)
... volume 6 issue 04 (implementing the sciences)
... volume 6
J
 4,(dv): 8,8,8,"RUN ME FORM,s,r":15,e: e {CBM-M}  8:
D
 x{CBM-R}0 {CBM-@} 1: 8,d$: x{CBM-R}st: 4,d$: :   4:   8:


s828









































































































































  By allowing this program
to complete its predetermined course
you will find yourself with one freshly
printed subscription form.
.
Unless you already have a subscription
why would you not subscribe?  If you
abstain merely because Tissue 05 (hardware and software interfacing)
... volume 6 issue 06 (real life applications)
... volume 7 issue 01 (rom routines  kernel routines)
... volume 7 issue 02 (games from the inside out)
... volume 7 issue 03 (programming the chips)
... volume 7wal (please include your sub. number from mailing lable) ..............
.
... new subscription (y/n) ?
.
name and address  please include your postal/zip code        (new address? ...)
.
...................................................................--
the transactor diskettes (1541/4040/msd/indus format)
... send me 6 consecutive disks to correspond with my magazine sub.
$45.00 US., $55.00* Cdn.
-------------------------------------------------------------------------------
please send me the follo5  volume 5 issue 06 (programming aids and utilities)
... disk 6  volume 6 issue 01 (more aids and utilities)
... disk 7  volume 6 issue 02 (networking and communications)
... disk 8  volume 6 issue 03 (languages)
... disk 9  volume 6 issue 04 (implementout)
... disk14  volume 7 issue 03 (programming the chips)
... disk15  volume 7 issue 04 (gadgets & gizmos)
... disk16  volume 7 issue 05 (more languages)
... disk17  volume 7 issue 06 (simulations & modelling)
... disk18  volume 8 issue 01 (math)
... disactor magazine back-issues  $4.50* each
... volume 4 issue 01
... volume 4 issue 02
... volume 4 issue 03
... volume 5 issue 01 (sound and graphics)
... volume 5 issue 02 (the transition to machine code)
... volume 5 issue 05 (hardware and peripherals)
 issue 04 (gadgets & gizmos)
... volume 7 issue 05 (more languages)
... volume 7 issue 06 (simulations & modelling)
... volume 8 issue 01 (math)
... volume 8 issue 02 (operating systems)
... volume 8 issue 03 (feature: surge protection)
... volume 8 issu

0)sl""
L "    starting line #";sl
hV sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a :  450
x  {CBM-T}20)ic""
W{$ea} "     line increment";ic
{$f4} :
{SHIFT-POUND}{$fe} ** open input and output files **
{CBM-X} 1, cd, 8, cn$
X 2, pd, 6, pn${CBM-N}",p,w"
a{CBM-R}sa :  660     :
k           :  alter next line num
{$f6} 1, cd, 8, cn${CBM-N}",s,r"
#
 550


        :  get line number
Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
{CBM-D} mc{CBM-N}21, 0                           :  input delim now $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            :
 520

 :  "cbm source filename";cn$
.
 {CBM-T}20)cn""
m
" "       source drive";cn
]
, {CBM-T}20)cd""
{$7c}
6 "     source device#";cd

@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$
A
j 1, cd, 8, cn$ : ed{CBM-R}cd :  700 :   1
{SHIFT--}
t e {CBM-M}  ee$ :  :  270
{$e3}
^
H :  "   ne

e link
Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
e{$7e}{CBM-K}#1, b$, c$                           :  get line number
Ka${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
{CBM-D} mc{CBM-N}21, 0                           :  input delim now $00
{CBM-J} mc
{$f2}{CBM-+}a${CBM-R}a${CBM-N}H(i$,B(142)){CBM-N}z$            :
15, 164, 142, 145, 140
[
 200, 132, 142, 196, 139, 240,   4, 165, 144, 240, 234,  76, 204, 255
{CBM-N}
 :  j{CBM-R}mc {CBM-@} mc{CBM-N}41 :  x :  j, x : t{CBM-R}t{CBM-N}x :
{CBM-E}{CBM-H}
 t{CBM-W}{CBM-E}6120 {CBM-M} "typo in data" :
{$e3}{CBM-V}
z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0 :  G(14)
H
sa{CBM-R}2049
pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) :  1080
-{$f2} {CBM-T}20)cn""
l{$fc} "  destination drive";pn
\ {CBM-T}20)pd""
{$7b} "destination device#";pd
pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{SHIFT-*}$ 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
{$ec}. e{CBM-W}{CBM-E}62  {CBM-M}  " file exists" :
ks on c64 with disk         *
jp
 * absolutely no copyright restrictions *
Yz
 ****************************************
{CBM-X}D
i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" :  i$ must be 1st var used


N
i${CBM-R}i${CBM-N}i${CBM-N}i$                         :  establish input bu
ew cbm file name
9r 450                  :  alter next line number, increment
m\ 1, cd, 8, cn$
FF 2, pd, 6, pn${CBM-N}",a"
P 550                   :  go add file
EZ ** append cbm source to existing pal file **
{$e9} :  "   old pal filename";
 hex bytes {CBM-D}{CBM-D}

2, G(a {CBM-P} 255);
"2, G({CBM-J}(a{CBM-Z}256));
({CBM-POUND}
9{CBM-R}{CBM-D}{CBM-D} err{CBM-A}  {CBM-D}{CBM-D}
j{CBM-C} 15, ed, 15
AF15, e, e$, et, es
Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es)
Z  15
{$e4}
A{$ee} ** add more cbm source modules **
G{$f8}
{$ea} "(DO NOT exit with <RETURN>)
0

 the transactor volume 7 issue 01 page 11
y{$e8} * data loader for "verifizer c128"
X{$f2} * commodore c128 version
{$fc} * use in 40 column mode only!
{CBM-G}cs{CBM-R}0
Q j{CBM-R}3072 {CBM-@} 3214:  x:  j,x: ch{CBM-R}ch{CBM-N}x:
{$f9} ch{CBM-W}{CBM-E}17860 {CBM-M}  "checksum error":
$
 output file start addr ($0801)
k& mc : sx{CBM-R}st       :  input line from cbm source file
_0a${CBM-R}H(i$,B(142))
{CBM-+}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5      :  start addr + line len + 5 for link,line,mkr
{$e1}da{CBM-R}sa :  660     :  output line link - hex lo, hex hi
na{CBM-R}sl :
 169,  12, 141,   3,   3,  96, 165,  22
rT 133, 250, 162,   0, 160,   0, 189,   0
{$7f}{$7e}   2, 201,  48, 144,   7, 201,  58, 176
{CBM-D}   3, 232, 208, 242, 189,   0,   2, 240
Y  22, 201,  32, 240,  15, 133, 252, 200
 152,  41,   3, 133, 251,

w pal filename";pn$
R {CBM-T}20)cn""
6{$7c} "  destination drive";pn
f {CBM-T}20)pd""
E "destination device#";pd
pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{CBM-N}{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
T{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M}  "file exists" :  :  360
{$de}{CBM-U} :
{$f9}Ba{CBM-R}sl :  :  {CBM-T}2
 +z$ to add lost mkr
{$fd}{CBM-A}2,a$;
={SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$)                           :  update start addr
hD 1130
pN  1
X mc{CBM-N}21, 13                          :  input delim back to cr
{CBM-V}{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic
{$fe}{$ec} 450
                    :  start addr c64
zR
sl{CBM-R}100                              :  starting line #
{CBM--}
ic{CBM-R}10                               :  increment
{$e6}
 270
L{$f0}
 :  "append to existing pal file (y/n)";yn$
 {$fa}
 yn${CBM-R}"y" {CBM-M} 900
{$fa} 360 :  450 :
  :  970
#8 : "creating new file from ";op$;"  stand by..."
>b 1, od, 8, op${CBM-N}",p,r"
yl 2, pd, 6, pn${CBM-N}",p,w"
v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));   :  file start address
{CBM-S}{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));
{$e6}J{CBM-K}#1, b$, c$ :  st{CBM-R}64  {CBM-M} 1230     :  get lin
ffer
a
X
mc{CBM-R}896                              :  mach code start addr
Z

 *** string input routine -- by jim butterfield ***
E

 160,   2, 177,  45, 153, 137,   0, 200, 192,   6, 208, 246, 162,   1

  32, 198, 255,  32, 228, 255, 201,  13, 240,
op$
{$f9} {CBM-T}20)cn""
 "              drive";op
({CBM-I} {CBM-T}20)od""
g{CBM-D} "            device#";od
Q{CBM-L} 1, od, 8, op$ : ed{CBM-R}od :  700 :   1
{SHIFT-*} e {CBM-M}  ee$ :  :  900
{CBM-G}J :  {CBM-T}21)"@"op$""
ET "   new pal filename";pn$
 {$de} H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010
{$e8}

"Append another file n";yn$
% yn${CBM-R}"y" {CBM-M} 840
> 2, pd, 6, pn${CBM-N}",a"
{$7b} 2, z$z$;             :  add end file marker ($00, $00)
*  2 :   15
{CBM-X}4 "load";G(34);pn$;G(34);","J(D(pd),2)""
C>
{$f8}h 270                  :  for n
 "sys 3072,1: rem to enable"
>. "sys 3072,0: rem to disable"
d8
Qb 208,  11, 165, 253, 141,   2,   3, 165
l 254, 141,   3,   3,  96, 173,   3,   3
Kv 201,  12, 240,  17, 133, 254, 173,   2
{$f8}{$60}   3, 133, 253, 169,  38, 141,   2,   3
%J
 660     :  output line #    - hex lo, hex hi
sxsl;a$    :  ===== remove for better speed ======
Bsl{CBM-R}sl{CBM-N}ic             :  increment line number
{CBM-J}L2, a$z$;       :  output line, chr$ zero
FV sx{CBM-R}0 {CBM-M} 550
{CBM--}  2 :   1 :  760
{$f9}{CBM-D}{CBM-D} output 2
0

 ****************************************
_
 * convert cbm assembler source file to *

 *  file to pal assembler source file   *
{CBM-X}(
 *         k.j.h. hildon 03/83          *
{$ec}2
 *   ========  palvert  1.0 =========   *
<
 *      work "(DO NOT exit with <RETURN>)   Append another file n";yn$
? yn${CBM-R}"y" {CBM-M} 840
x 2, pd, 6, pn${CBM-N}",a"
 2, z$z$;             :  add end file marker ($00, $00)
{CBM-@}*  2 :   15
W4 "load";G(34);pn$;G(34);","J(D(pd),2)""
{SHIFT--}>
h 270 :  "   old pal filename";op$
 {CBM-T}20)cn""
2 "              drive";op
b{CBM-I} {CBM-T}20)od""
A{CBM-D} "            device#";od
{CBM-L} 1, od, 8, op$ : ed{CBM-R}od :  700 :   1
{CBM-M}{SHIFT-*} e {CBM-M}  ee$ :  :  900
{CBM-B}J :  {CBM-T}21)"@"op$""
{CBM-*}T "   new pal filename";pn$
{$fa}{$de}
, hex hi
1
na{CBM-R}sl :  660     :  output line #    - hex lo, hex hi
O
xsl;a$           :  ===== remove for better speed ======
{CBM-I}
Bsl{CBM-R}sl{CBM-N}ic             :  increment line number
S
L2,a$z$;        :  output line (+chr$ zero)
{$e4}
V sx{CBM-R}0 {CBM-M} 550
{$fa}
  2{CBM-W}{CBM-E}62  {CBM-M}  " file exists" :  :  970
=8 : "creating new file from ";op$;"  stand by..."
xb 1, od, 8, op${CBM-N}",p,r"
Sl 2, pd, 6, pn${CBM-N}",p,w"
{CBM-N}v{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));   :  file start address
H{$60}{CBM-K}#1,a$ : 2, G(F(a${CBM-N}z$));

J{CBM-K}#1, b$, c$ :  st{CBM-R}
Ba{CBM-R}sl :  :  {CBM-T}20)sl""
-L "    starting line #";sl
]V sl{CBM-W}a {CBM-M} "must be > or = !" : sl{CBM-R}a :  450
M  {CBM-T}20)ic""
{$ea} "     line increment";ic
{$f4} :
{CBM-V}{$fe} ** open input and output files **
R 1, cd, 8, cn$
{$ed} 2, pd, 6, pn${CBM-N}",p,w"
%,B(189)){CBM-N}z$            :  +z$ to add lost mkr
{CBM-A}2,a$;
w{SHIFT-@}sa{CBM-R}sa{CBM-N}C(a$)                           :  update start addr
BD 1130
JN  1
{CBM-S}X mc{CBM-N}21, 13                          :  input delim back to cr
X{$e2}sl{CBM-R}F(J(a$,3){CBM-N}z$){CBM-N}F(J(a$,4){CBM-N}z$){CBM-D}256{CBM-N}ic
{$ec} 360 :  450 :  520
3 :  "cbm source filename";cn$
c {CBM-T}20)cn""
B" "       source drive";cn
R, {CBM-T}20)cd""
6 "     source device#";cd
{CBM-D}@cn${CBM-R}J(D(cn),2){CBM-N}":"{CBM-N}cn$
Vj 1, cd, 8, cn$ : ed{CBM-R}cd :  700 :   1
{$f2}t e {CBM-M}  ee$ :  :  270
{$f8}
eee mode
serial mode



{CBM-N}{$60}
{CBM-G}P{$f6}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e U{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 R~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa} U{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~ {$7c}{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc 2{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
  32, 198, 255,  32, 228, 255, 201,  13, 240,  11, 164, 189
V
 145, 187, 200, 132, 189, 196, 186, 208, 238,  76, 204, 255
{CBM-POUND}{CBM-N}
 :  j{CBM-R}mc {CBM-@} mc{CBM-N}37 :  x :  j, x : t{CBM-R}t{CBM-N}x :
L{CBM-H}
 t{CBM-W}{CBM-E}5767 {CBM-M} "typo in data" :
{$f4}{CBM-V}
z${CBM-R}G(0) : cd{CBM-R}8 : pd{CBM-R}8 : od{CBM-R}8 : cn{CBM-R}0
3Hs on pet/cbm with disk      *
jf
 * absolutely no copyright restrictions *
Yp
 *  won't work on basic 1.0 or dos 1.0  *
{CBM-POUND}z
 ****************************************
{$ec}D
i${CBM-R}"abcdefghijklmnopqrstuvwxyz1234" :  i$ must be 1st var used
/N
i${CBM-R}i${CBM-N}i${CBM-N}i$                 :  for new cbm file name
sr 450                  :  alter next line number, increment
G\ 1, cd, 8, cn$
F 2, pd, 6, pn${CBM-N}",a"
{CBM-D}P 550                   :  go add file
{CBM-*}Z ** append cbm source to existing pal file **
  H(pn$,1){CBM-W}{CBM-E}"@" {CBM-M} 1010
7{$e8}pn{CBM-R}op : pd{CBM-R}od : pn${CBM-R}"@"{CBM-N}J(D(pn),2){CBM-N}":"{CBM-N}J(pn$,2) :  1080
g{$f2} {CBM-T}20)cn""
F{$fc} "  destination drive";pn
V {CBM-T}20)pd""
 "destination device#";pd
{CBM-A}pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
Z$ 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
. e :   1 :  760
{CBM-D}{CBM-D} output 2 hex bytes {CBM-D}{CBM-D}
+2, G(a {CBM-P} 255);
@2, G({CBM-J}(a{CBM-Z}256));
f{CBM-POUND}
w{CBM-R}{CBM-D}{CBM-D} err{CBM-A}  {CBM-D}{CBM-D}
H{CBM-C} 15, ed, 15
{$7f}F15, e, e$, et, es
{CBM-POUND}Pee${CBM-R}D(e){CBM-N}","{CBM-N}e${CBM-N}","{CBM-N} D(et){CBM-N}","{CBM-N}D(es)
{CBM-E}Z  15
{CBM-Y}{$e4}
{CBM-*}{$ee} ** add more cbm source modules **
{$e5}{$f8}
+64  {CBM-M} 1230     :  get line link
!Ta${CBM-R}G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
_{$7e}{CBM-K}#1, b$, c$                           :  get line number
a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
F mc{CBM-N}21, 0                           :  input delim now $00
O mc
{CBM-+}a${CBM-R}a${CBM-N}H(i$a{CBM-R}sa :  660     :  output file start addr ($0401)
{$60}& mc : sx{CBM-R}st       :  input line from cbm source file
T0a${CBM-R}H(i$,B(189))
{CBM-F}:sa{CBM-R}sa{CBM-N}C(a$){CBM-N}5      :  start addr + line len + 5 for link,line,mkr
{$f6}da{CBM-R}sa :  660     :  output line link - hex lo
E 450                               :  alter next line num
3{$f6} 1, cd, 8, cn${CBM-N}",s,r"
=
 550


        :  get line number
a${CBM-R}a$ {CBM-N} G(F(b${CBM-N}z$)) {CBM-N} G(F(c${CBM-N}z$))
F mc{CBM-N}21, 0                           :  input delim now $00
O mc
{CBM-+}a${CBM-R}a${CBM-N}H(i$^

H :  "   new pal filename";pn$
,
R {CBM-T}20)cn""
k
{$7c} "  destination drive";pn
[
 {CBM-T}20)pd""
Z
 "destination device#";pd

pn${CBM-R}J(D(pn),2){CBM-N}":"{CBM-N}pn$
{CBM-B}
{CBM-@} 2, pd, 6, pn$ : ed{CBM-R}pd :  700 :   2
{$e9}
{CBM-S} e{CBM-W}{CBM-E}62 {CBM-M}  "file exists" :  :  360
{$f3}
{CBM-U} :
0
 ****************************************
_
 * convert cbm assembler source file to *
(
 *  file to pal assembler source file   *
{CBM-X}2
 *         k.j.h. hildon 03/83          *
{$ec}<
 *   =======  palvert64 1.0 =========   *
f
 *       wor
sa{CBM-R}1025                             :  start addr pet/cbm
OR
sl{CBM-R}100                              :  starting line #
{CBM-G}{CBM--}
ic{CBM-R}10                               :  increment
{CBM-P}{$e6}
 270
{$e1}{$f0}
 :  "append to existing pal file (y/n)";yn$
{$f5}{$fa}
 yn${CBM-R}"y" {CBM-M} 900
                         :  establish input buffer
PX
mc{CBM-R}896                              :  mach code start addr
{SHIFT-POUND}
 *** string input routine -- by jim butterfield ***
{$ef}
 160,   2, 177,  42, 153, 184,   0, 200, 192,   6, 208, 246, 162
5
   1,
SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}{SHIFT-@}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~{CBM-I} I~
{CBM-I}
{CBM-E}{SHIFT-@}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
@abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-N} L~ 0P K{CBM-G}{$f0}{CBM-V}{$60}
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}"
 save"0:copyall 64 glink",8
j
 ** jim butterfield's c64 copy-all

 ** modified for use with the glink ieee-488 interface
{CBM-POUND}
 ** richard evers 07-06-1987
{CBM-S}
:
Y
 ** allows concurrent copying of data

 ** serial to ieee-488, ieee-48{$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780
 ""
2 4: 3: 15: 14
9j
C x{CBM-R}{CBM-U}(0):"another input disk ready";z$
U*F(z$){CBM-R}89230
{$7b}4
>"drive  0";d
 hd{CBM-D}d{CBM-W}{CBM-E}d830
{CBM-E}rd${CBM-R}G(d{CBM-N}48):
D\15,e,e$,e1,e2
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}
5273


:
4

 "  disk copy-all      jim butterfield"
D

 "** glink ieee-488 interface version **"


 " copies between serial and ieee drives"
P

a${CBM-R}"!jim butterfield!": a${CBM-R}a${CBM-N}a${CBM-N}a$: a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
Z

p${CBM-R}""

 l2(232),l1%(232),n$(232), move rom to ram, etc.
@
swap{CBM-R}init{CBM-N}3:  swap rom to ram or vice-versa

fr{CBM-R}251: tu{CBM-R}252: tp{CBM-R}253:  from, to and temp storage of drive type
!
:
{CBM-G}"
"from unit  8";f
{CBM-C}#
123:  get drvnum
F$
f${CBM-R}d$
{$ec}%
 "1) serial or 2) ieee  2";tf

&
 tf{CBM-W} move rom to ram, etc.
a2
xx{CBM-R}fr:  136: n{CBM-R}0:  1:  15:  15,f,15: 15,"i"{CBM-N}f$
y3
127:  e {CBM-M} :  50
Z4
z{CBM-R}90: : "pattern  *";p$
{CBM-I}5
p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
M6
 "hold down 'y' or 'n' key to select"
{$ee}7
 "programs to be copied..."
8,4)" :"J(a$,4,16)" "t$(t9)"      "
#c
p{CBM-R}B(203) {CBM-P} r
ad
{CBM-K} z$:  z${CBM-R}"" {CBM-P} p{CBM-W}064 73
Me
 z${CBM-R}"y" {CBM-A} z${CBM-R}"n" {CBM-M} z{CBM-R}F(z$): r{CBM-R}255: 73
f
 z${CBM-R}G(13) {CBM-M} r{CBM-R}0: 73
g
68
h
:
Ci
 z{CBM-W}80 {CBM-M}  "                     ": 75
{$f7}j
n{CBM-R}n{CBM-N}1: l2(n){CBM-R}l2: n$(n){CBM-R}n$: t%(n){CBM-R}t9: lz$
s
 F(z$){CBM-W}{CBM-E}89 {CBM-M} 122
1t
 15: xx{CBM-R}tu:  136:  swap to destination
Hu
 15,t,15: "want to new the output disk  n";z$
{$7c}v
 F(z$){CBM-W}{CBM-E}89 92
w
:
x
"disk name,id";x$,y$
{CBM-O}y
15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$
Pz
127:  e {CBM-M} : 84
V[
:
~\
15,"i"{CBM-N}t$:  1:  dest cmd channel
&F
 H(n$(j){CBM-N}"                    ",21);
xG
xx{CBM-R}fr:  136:  3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
H
14,e,e$,e1,e2: 128:  e {CBM-M}  "** ";e$;e: 117
I
:
{CBM-E}J
xx{CBM-R}tu:  136:  destination
{$e9}K
 t%{CBM-R}4 {CBM-M}  4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)): U
xx{CBM-R}fr:  136:  3:  14:  source
.V
xx{CBM-R}tu:  136:  4:  15:  destination
5W
j
{$60}X
x{CBM-R}{CBM-U}(0): "another input disk ready";z$
SY
 F(z$){CBM-R}89 50
Z
 1,55:
{$7b}
"drive  0";d
{CBM-POUND}{$7c}
 d{CBM-D}d{CBM-W}{CBM-E}d 123
{SHIFT-@}{$7d}
d${CBM-R}G(d{CBM-N}48):
{SHIFT-*}{$7e}
:
S{$7f}
15,e,e$,e1,e2
{$f7}
 e{CBM-R}0 {CBM-M} e{CBM-R}{CBM-E} {CBM-E}I*{$f0}
I?{$f0}QPH{SHIFT-*}P{$ed}{$60}
{CBM-G}P{$f6}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e U{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 R~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa} U{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~ {$7c}{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc 2{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
8 to serial
;
 ** serial to serial or ieee-488 to ieee-488
N
 ** via transactor's glink ieee-488 interface
T

:

 ** transactor publishing inc.
{CBM-O}
 ** 85 west wilmot st., #10


 ** richmond hill,ontario, canada



 ** l4b-1k7 (416) 764-
#1,x$

{CBM-K}#1,x$
{CBM-K}#1,x$
x{CBM-R}F(x${CBM-N}G(0))
4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0))
:{CBM-D}


 {CBM-E}*{CBM-X}{CBM-E}*{CBM-C}{CBM-E}*f {CBM-E}*{CBM-F}{CBM-E}*{SHIFT-@}{SHIFT-POUND}d {CBM-G}
{CBM-E}{SHIFT-@}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E}{SHIFT-@} {CBM-E}{CBM-C}I*{$f0}
I?{$f0}Q{SHIFT-@}PH{SHIFT-*}P{$ed}{$60}
{SHIFT-@}{CBM-G}P{$f6} {CBM-G}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~
 {$e4}~{SHIFT-@}HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0 t%(232),t$(4)
!
 xxx,seq,prg,usr,rel
<
 j{CBM-R}0 {CBM-@} 4:  t$(j): j
b
:
P
 when size=3956 then code begins at 6005

z1{CBM-R}6027:  entry point #1
{CBM-D}
z2{CBM-R}z1{CBM-N}3:  entry point #2
J
z3{CBM-R}z2{CBM-N}3:  entry point #3
{$e8}
z4{CBM-R}z3{CBM-N}3:  entry point #4

init{CBM-R}z4{CBM-N}3: 1 {CBM-A} tf{CBM-E}2 {CBM-M} 37

'
:

(
"to unit  8";t
7
)
123:  get drvnum
a
*
t${CBM-R}d$
G
+
 "1) serial or 2) ieee  1";tt
{$7e}
,
 tt{CBM-W}1 {CBM-A} tt{CBM-E}2 {CBM-M} 43

-
:
{CBM-I}
.
 f{CBM-R}t {CBM-P} f${CBM-R}t$ {CBM-P} tt{CBM-R}tf {CBM-M}
{CBM-POUND}
/
:
{$e6}
0
 fr,tf{CBM-Q}1:  tu,tt{CBM-Q}1:  drive type source and destination
1
(init):
 1,f,3,"$"{CBM-N}f$:  ok
9
127:  e {CBM-M} : 50
(:
(z1)
8;
r{CBM-R}255:  61
b<
(z2)
K=
 j{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:  F(J(a$,j{CBM-N}3)){CBM-R}160 {CBM-M} j
{$7c}>
n${CBM-R}J(a$,4,j)
 ?
t9{CBM-R}F(a$){CBM-Q}128:  t9{CBM-W}1 {CBM-A} t9{CBM-E}4 75
{CBM-H}@
l1%{CBM-R}F(J(a$,22))
Wa
l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
b
 I("   "{CBM-N}J(D(l2),2)1%(n){CBM-R}l1%
k
 st{CBM-R}0 {CBM-P} n{CBM-W}232 60
jl
xx{CBM-R}fr:  136:  1:  15:  " * * * * *                  "
Qm
 n{CBM-R}0 {CBM-M}  "* no programs *":  120
{$7f}n
 j{CBM-R}1 {CBM-@} n
{CBM-T}o
l2{CBM-R}l2(j): t%{CBM-R}t%(j):  l{CBM-E}l2 100
{CBM-E}p
 q{CBM-R}0 84
Nq
 "*** output disk full"
{$ee}r
"do you have a new one";,t,0,"$"{CBM-N}t${CBM-N}": !#$%&"
]
127:  e {CBM-M} : 84
,^
131: 131: q{CBM-R}q{CBM-N}1
e_
{CBM-K}#1,x$:  x${CBM-W}{CBM-E}"" 95
n{$60}
131
UA
l{CBM-R}x{CBM-N}y{CBM-D}256:  "(";l;"blocks free )"
B
xx{CBM-R}tu:  136:  1:  15: 79
C
:
LD
xx{CBM-R}fr:  136:  14,f,15:  source cmd channel
{$fc}E
xx{CBM-R}tu:  136:  15,t,15111
{$ef}L
:
M
 4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
N
:
jO
l{CBM-R}l{CBM-Q}l2: 127:  e {CBM-M}  "*** ";e$;e: 117
TP
 t%{CBM-R}4 {CBM-M} (z4): 114:  relative copy
{$7e}Q
(z3)
{CBM-POUND}R
xx{CBM-R}tu:  136:  set destination again
WS
n$(j){CBM-R}"": 127:  e {CBM-M}  "**** ";e$;e: 117
{$e1}T
 ""

(st {CBM-P} 191): e${CBM-R}"*st*"
{$fd}


:

{CBM-K}#1,x$,x$,x$
%
x{CBM-R}F(x${CBM-N}G(0))
>
{CBM-K}#1,x$: y{CBM-R}F(x${CBM-N}G(0))
d

j
:

 tp,B(xx): (swap): :  flip to source/destination drive


ll{$f9}lHl{SHIFT-+}l/l {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d
{CBM-E}I@Io{CBM-A} U{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}Z@abc{$ee}@P{$ee}a U{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P 2{CBM-G}{$f0}{CBM-F}{$60},{$f2}p{$60}{CBM-G}{$f0}){$fd}{$f1}{SHIFT-POUND}@{$f2}{CBM-Z}{$ed}Ih{$f0} - {SHIFT-POUND} q{SHIFT-POUND}
p{CBM-POUND}{CBM-E}ppHP{$f9}{$e6}q{CBM-G}qI{SHIFT-*}P{SHIFT-POUND} qI
P{$e9} 7l{CBM-G}{$fb}{$fd}l{CBM-G}{$fc}{$fd}X{CBM-+}{$fd}{CBM-X}{$f0}x{$60}{CBM-I} {CBM-K}{CBM-N} {CBM-K}{CBM-I}
 {CBM-K} {$e4}~I
P{$f9}{$60}{CBM-X}{CBM-Z}{$f0} R~{$e8}P{$f5}{$60}
press <return> when ready

place switch in
i
)D
 "supermon+64    jim butterfield"
cN
(B(43){CBM-N}256{CBM-D}B(44){CBM-N}71)





{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"I6P/{CBM-G}"PF#F"{CBM-E}"I6{$f0}0&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-R}{CBM-G}73{CBM-G}84L7
66   {$fe}6{CBM-Z}{$fe}~6A{CBM-Z}~~6B '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6 {$f6}{$fb}6{CBM-Z}{$fc}~6{CBM-Z}{$fd}~6{SHIFT-POUND} ~
{CBM-I}H(J{$f9}X{SHIFT-@}.x
 P{$f3}{$60}{CBM-O}{CBM-Q}{$fe}6){$7f} {$f2}{$fb}6H({$f3}{$60}
   pc  sr ac xr yr sp   v1.2{CBM-B}..sys : erroRa    @eP@0"e3P@@e3P@@e{CBM-W}P@
"d3Pd
"d3Pd"d3P@"d3P@BX{SHIFT-POUND}
!

ymj,),#($y
x$$
#]{CBM-K}#{CBM-K}
){CBM-S}I{CBM-POUND}#$s#$s{CBM-K}
[[{CBM-G}I$${CBM-S}{CBM-S}{CBM-POUND}{CBM-Z})
{$7c}
M{CBM-G}I)s4{CBM-G}I# XBzh&BtdHtHd{$e8}
{CBM-H}T{CBM-H}(NT{$f4}-D
"  disk copy-all      jim butterfield"
FN
a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
PX
p${CBM-R}""

 l2(232),l1%(232),n$(232),t%(232),t$(4)
{CBM-Y}
 xxx,seq,prg,usr,rel
L
j{CBM-R}0{CBM-@}4:t$(j):j
{$e5}
"from unit  8";f
{$ee}{CBM-N}
830
{$f8}{CBM-H}
f${CBM-R}d$
{CBM-V}

{$fc}6 {$fb}6{CBM-A}{CBM-G}A{CBM-G}B z{$fc}6{CBM-G}A/{CBM-G}B0$8{$60} {$fb}6 {$fc}6{SHIFT-POUND}$ R~{CBM-G}A{CBM-+}B {$e5}{$fb}6 {$fc}6{SHIFT-POUND}+ R~ '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6 {$fc}6{SHIFT-POUND}& R~{SHIFT-POUND}
{CBM-I}  p{$fd}6 {$fc}6{SHIFT-POUND}% R~{SHIFT-POUND}
{CBM-I}
 p{$fd}6lZ{$f5}6 q{$fc}6{SHIFT-POUND}
{CBM-I}
J{$fa} X{$f8}C&D{CBM-I}{CBM-X}
{$7d}

J{$f4}P{$eb}({$60}h{CBM-G}A{CBM-G}B{SHIFT-POUND}

H
{CBM-D}
{SHIFT-POUND}
..
*{$f3}{CBM-POUND}P {$f0}{CBM-D}{$f0}{$ee}0 R~JPW{$60}P{CBM-I},{CBM-+}A x  {CBM-A}tA{SHIFT-POUND}
{CBM-Y}
Q{CBM-X}lT{$e1}l{$e1} {CBM-@}{$fb}
{$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~
{CBM-G}5{CBM-G}6 {$e8}~
 {$e2}~
{CBM-G}3{CBM-G}4 {CBM-*}~
 {$7d}~
 {$7d}~
P! _~
 {$7d}~
 {$7d}~
Pl@{$fc}
 {$7d}~
{CBM-G}CZ {$7d}~
{CBM-G}BZ J~
{$f0}{$e2} {$7d}~
 {$7d}~
 {$7d}~
I"P {$7d}~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S

{CBM-A}S {$e2}~
 ~
{CBM-G}<{$7b}{CBM-G};Z

{CBM-I}

{CBM-X}

I0h S

 5~
H

Z{$e8}P{$e8} S

{CBM-A} d~
 Y

{$f8}I,{$f0}{CBM-U}P _~
 {$7d}~
 {$7d}~

)){CBM-N}  {$f0}jjj P{$fa}HP{$f2}{$60}{CBM-POUND}{CBM-O}<~6/{CBM-O}{$7c}~60{SHIFT-POUND}
 0./*P{$f6}I? R~JP{$ea}l{$ee}{$fb}6N1 @{$fb}6{CBM-A} 4{$fc}6P
N1{CBM-Z}P{$f0}
I {$f0}I,{$f0}HHl{SHIFT-POUND}{$f5}68${CBM-Z}{$60}{SHIFT-POUND}
ABhh 7{$fc}6{$f0}I {$f0}{$f7}{CBM-I}{SHIFT--}O~6{$f0}J{$f8}{$e8}N1{CBM-C}{$f4}~6{CBM-X}{$f8}~6
 7{$fc}6{$f0}C8{$e9}0^I
{$e9}I{CBM-A}tLj{$f0}h{$ee}{SHIFT-*}
P
{CBM-I}{CBM-J}AJ{$f8}{CBM-S}
A&B{CBM-A}.JP{$f7}{SHIFT-*}
P.{CBM-A}{CBM-Z}EAA{CBM-Z}EB{$f9}6{CBM-X}<~6 N{$f9}6{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{SHIFT-POUND}0{CBM-A} K{$f9}6P{$f1}
{CBM-X}/~6 N{$f9}6{CBM-X}5~6{$f0} N{$f9}6JPR{$f0} K{$f9}6 K{$f9}6{CBM-Z}/M3{$f0}l{SHIFT-+}{$f9}6{CBM-D}{$f0}2{CBM-Z}0IP#{CBM-G}A{$e5}C{CBM-N}{CBM-G}B{$e5}DPF {CBM-A}B{CBM-POUND}HP\ xJJ{CBM-D}P{CBM-O}{SHIFT-*}
CP{$f8}{CBM-Z}C {$f6}{$fb}6{SHIFT-POUND} R~ . {$fe}6 ){$fa}6{$ee}{CBM-Z} {$fc}6{SHIFT-POUND}aW{SHIFT-POUND} X{$7d}{CBM-G}D {$fc}6YZ{CBM-G}C {$fc}6{$7b}{$7c}{SHIFT-POUND}FlZ{$f5}6l{SHIFT-POUND}{$f5}6 N{$f9}6{CBM-S}3{SHIFT--}
{$f0}
HH{$ee}{$f0}{$e8}l{$e8}{$f8}6{$ee}3{CBM-S}"
" 1,f,3,"$"{CBM-N}f$
#,860:e{CBM-M}:230
-63132
=@r{CBM-R}255: 340
gj3221
Ktj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j
{$7c}^n${CBM-R}J(a$,4,j)
Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470
{CBM-A}Rl1%{CBM-R}F(J(a$,22))
S{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
{$ee}J(a$,4,16);" ";t$(t9)
{$fd}p{CBM-R}B(151l1{$f7}6 {$fc}6 {$7c}{$fc}6{CBM-A}JlZ{$f5}6 {CBM-J}{$fc}6{CBM-A}y
 7{$fc}6I'P 7{$fc}6I
{$f0}iH 7{$fc}6{$f0}{SHIFT-*}P{$f3}{$f0} {$fb}6{CBM-G}AH {$fb}6{CBM-A}{SHIFT-*}P{$f1}2 {$f6}{$fb}6
{CBM-E}CYPHL2P{$f3} {$e1}{$fb}6 {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$e1}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {SHIFT-@}{CBM-O}{CBM-Y}{SHIFT-POUND}{CBM-C}{SHIFT-POUND}{CBM-F} 7{$fc}6{$f0}yI {$f0}{$f7}I"P{CBM-S}1{CBM-X}
{$f0}i{$e8}I"{$f0}{CBM-F}{$e6}{CBM-Y}H{SHIFT-*}{$ed}l{SHIFT-POUND}{$f5}61 7{$fc}6{$f0}0 {$fb}6{CBM-A}+{CBM-G}A{SHIFT-@} {$fb}6{CBM-A}" q{$fc}6 {$fb}6{CBM-A}= {$f6}{$fb}6{CBM-+}A{CBM-@}B{CBM-Z}2IsPQ{SHIFT-POUND}
{CBM-O}{SHIFT-POUND}C X~lZ{$f5}6{CBM-Z}2Ivrams *": 800
{$ea}j{CBM-R}1{CBM-@}n
0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670
={$fe}q{CBM-R}0550
y"*** output disk full"
Y"do you have a new one";z$
F(z$){CBM-W}{CBM-E}89{CBM-M}
C& 15:15,t,15:"want to new the output disk  n";z$
V0F(z$){CBM-W}{CBM-E}89600
{$f0}:"disk name,id";x$,y$

d{$fe}6{SHIFT-POUND}; R~{SHIFT-POUND}  R~{CBM-Z}( {$fc}6 {CBM-O}( {$eb}{$fb}6H{SHIFT-*}{$f5} {$f6}{$fb}6{CBM-I}
1 O~
{$e8} ({CBM-A}I
P{$f1}{SHIFT-POUND}
~ 7{$fc}6{$f0}{CBM-*}I {$f0}{$f7}{CBM-I}{SHIFT--}{SHIFT-*}~6{$f0}J{$f8}  {$fe}6lZ{$f5}6 {CBM-A} {CBM-A}
{CBM-N}{CBM-X}W~6h{CBM-X}V~6hl{$fb}62l{$f7}6l{CBM--}{$fc}6L {CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6{CBM-I}fBFAJP{$f9} {$e1}~{$f0}
 V{$f6}6{SHIFT-POUND} {$fc}6 H{$fc}6{CBM-A}{$ee}lZ{$f5}6l{SHIFT-POUND}{$f5}6 {CBM-POUND}{$fc}6
 {$fb}6{CBM-A}
{CBM-G}A*H{SHIFT-*}{$f1}lZ{$f5}6{CBM-A} q{$fc}6
 {$fb}6{CBM-A}{CBM-G}ACH{SHIFT-*}{$f2}{SHIFT-POUND} R~ V{$f6}6l
{$7c}LjR{$f2}{CBM-@}
{CBM-N}{CBM-I}{CBM-I}TTTRdH{CBM-R}2{CBM-R}
"
&&RRHDJ&hdd{CBM-I}H
   acdfghjmrtx@.>;$+&%lsv\{$f8}6{CBM-H}{$f6}6{$e9}{$f9}67{$f8}6?{$f6}68{$f7}6]{$f6}6R{$f5}6w{$f5}6{CBM-Y}{$f6}6O{$f5}6{$fd}6\{$f8}6{$f6}6{$f6}6
i{$f5}6{$f5}6~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6{SHIFT-POUND}  R~ {CBM-G}~{$f0}
{CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND}  ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND}  R~{SHIFT-POUND} R~"to unit  9";t
H
830
"R
t${CBM-R}d$
4{CBM--}
f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M}
x{$e6}
n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$
N{$f0}
860: e {CBM-M} :230
{$fa}
z{CBM-R}90:"pattern  *";p$
{CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
{SHIFT--}"hold down 'y' or 'n' key to select"
{$fd}"programs to be copied... 7{$fc}6{$f0}$N1I${$f0}c{CBM-G}A {CBM-E}~{SHIFT-POUND}O ~{CBM-S}1{$ee}1{CBM-X}
{$f0} {CBM-POUND}~{$f0} {CBM-S}~ {$f6}{$fb}6{CBM-G}A {CBM-H}~{SHIFT-POUND}O ~ {CBM-G}~ R~I
{$f0}{CBM-G}){CBM-B}{$f0}{$f0} {CBM-Q}~lZ{$f5}6l{SHIFT-POUND}{$f5}6{CBM-G}A {CBM-E}~{SHIFT-POUND}{$f0} ~{CBM-S}1{CBM-X}
{$f0} {CBM-POUND}~{$e8}P{$f5} {CBM-S}~ {$f6}{$fb}6{CBM-G}Ah {CBM-H}~{SHIFT-POUND}{$60} ~ / {CBM-G}~A{CBM-G}Pd {CBM-G}~B{CBM-G}P;N/P{$e9} '{$fd}6{SHIFT-POUND}
{CBM-I}  A{$fd}6{SHIFT-POUND}  R~ {CBM-G}~{$f0}
{CBM-+}P R~{$f1} {$f6}{$fb}6 {$e1}~{$f0} {$e4}~{$f0} {$e4}~{$f0}{$fb} P{CBM-A} {CBM-Q}~H {CBM-E}~{SHIFT-POUND}  ~ {CBM-S}~lZ{$f5}6 {$f6}{$fb}6l{$fe}6 {$fe}6 ({SHIFT-POUND}  R~{SHIFT-POUND} R~       ",21);
$
{CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
p
{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780

Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730
{CBM-Q}
P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
P
Zl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780
{$e5}
{$e4}t%{CBM-R}4{CBM-M}3438:760
{$ef}
{$ee}3419
B{CBM-A}{CBM-Z}EAAEBB8$
H{CBM-POUND}H{CBM-N}{CBM-Z}{$60}{CBM-G}C{CBM-+}Dh {$fc}6H {$fc}6{SHIFT-POUND} PI
P{SHIFT-POUND}
$ R~{SHIFT-POUND}
lR~ {$f6}{$fb}6{SHIFT-POUND}  R~l{$fe}6 {$fc}6 R~{CBM-S}lR~h ){$fc}6{CBM-N}Hjjjj)I
II0{$60}N1{CBM-S}1{CBM-X}
{$f0}I:{$f0}I?{$ee}1{CBM-S}({$60}{CBM-G}AC{CBM-G}BD{$60}8{CBM-G}A{$e5}CA{CBM-G}B{$e5}DB{$60}{SHIFT-POUND}8{CBM-G}A{$ed}A{CBM-G}B{$e9}
B{$60}8{CBM-Z}/{$e9}/{CBM-Z}0{$e9}
0{$60}{SHIFT-POUND}ECC{$e6}D{$60}8{CBM-G}C{$e9}C{CBM-G}D{$e9}
D{$60}{CBM-A}
{CBM-G}A{CBM-@}B)({$60}{CBM-A}# q{$60}{CBM-A} q{$fc}6 {$fb}6{SHIFT-POUND}AP z{$fc}6 {$fe}6 {$e1}~{$f0} !{$fa}6{$ee}{CBM-Z} {$fc}6{CBM-Z} J{$fc}6{CBM-A}{$e4}lZ{$f5}6l{SHIFT-POUND}{$f5}6{SHIFT-POUND}. R~ {$ee}{$fb}6 {$e1}{$fb}6 {$ee}{$fb}6
{CBM-E}C {CBM-M}{$fa}6h{CBM-S}{$e8}J2 0 {$fe}6{CBM-D}2lq{$fa}6{CBM-E}C {$eb}{$fb}6H{SHIFT-*}{$e5}H{CBM-I} {$ef}{$fa}6{CBM-I} P{CBM-D}{$f0}{CBM-Z}
I{$e8}{CBM-E}C({CBM-A} {$fc}6P{$ef}
{CBM-X}/~6 R~{CBM-X}5~6{$f0} R~JPP{$60} {$fa}6IP{$e8}l{$e5}{$fb}6{CBM-+}D{CBM-POUND}JEC{$e8}{$60}{CBM-POUND}jj{CBM-A}I"{$f0})j{CBM-N}{CBM-X}{$de}{$fe}6{CBM-A}jjjj)P {SHIFT-POUND}
{CBM-N}{CBM-X}"~6){CBM-P}r
{CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}255450
<{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450
s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450
\{CBM-U}410
Bz{CBM-W}80{CBM-M}"                     ":470
{CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1%
JVst{CBM-R}0{CBM-P}n{CBM-W}232330
{$e3}  1: 15:" * * * * *"
{$e5}n{CBM-R}0{CBM-M}"* no prog{$f0}IlP{SHIFT-@}{SHIFT-POUND}
 U~{CBM-G}){$f0}{$e7}{CBM-Z}2{$f0}{CBM-N} ( {$fe}6lZ{$f5}6{CBM-+}C{CBM-@}D{SHIFT-POUND}
{CBM-O}{$f0}S {CBM-J}{$fc}6{CBM-A}y {$fb}6{CBM-A}t 7{$fc}6Po
{CBM-G}AC {$e1}~{$f0} {$fc}6 {$7c}{$fc}6{CBM-A}{$ef}lZ{$f5}6{CBM-A}7 q{$fc}6{CBM-I}
 7{$fc}6P
{$f0}{$e7}I {$f0}{$eb}{$e8} P{$eb}J0{CBM-X}8{$e9}? jNN
P{$f6}{$f0}{$e9}l{SHIFT-POUND}{$f5}6{CBM-I}{CBM-Z}P- @{$fb}6{$f0}%{CBM-A}{$ef}{SHIFT-POUND}$
{$e8} {CBM-Z}
IL{$f0}{CBM-G}BP {SHIFT-POUND}0
{$e8}P{$f9}N1 7{$fc}6{$f0}I {$f0}E
{$e8}
{CBM-X}{CBM-A}{CBM-L}/{CBM-I}
{CBM-I}
3{CBM-Z} {CBM-M}{$fa}6{CBM-S}
0{CBM-N}{CBM-X}{$7c}~6 N15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$
 n860:e{CBM-M}:550
fx15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&"
yB860:e{CBM-M}:550
ML890:890:q{CBM-R}q{CBM-N}1
V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630
890
{CBM-R}l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )"
B 1: 15:500
X14,f,15:15,t,15

{CBM-POUND}H(n$(j){CBM-N}"             Z{$f5}6{CBM-S}. {CBM-POUND}{$fc}6X{CBM-Z}(h{CBM-Z})h{CBM-Z}*h{CBM-Z}+{CBM-S},{CBM-D}-@{CBM-S}. d{$f6}6-,+H*lx{$f5}6 {$f6}{$fb}6{SHIFT-POUND}> R~ {$e1}{$fb}6
{$f0} {$ee}{$fb}6{CBM-E}C {$fc}6H{SHIFT-*}{$f3} & {$fe}6
{CBM-E}C{CBM-N}){CBM-B}I"{$f0}){$7f}I {CBM-A}{SHIFT-POUND}. R~H{SHIFT-*}{$e5}{$60}{SHIFT-POUND}
,{SHIFT-POUND}2{SHIFT-POUND}
 {CBM-J}{$fc}6{CBM-A} {$fb}6l{SHIFT-POUND}{$f5}6,2'{CBM-G}CEA{CBM-G}D{$e5}B{CBM-A}{CBM-Z}/EAA{CBM-Z}0EBB{CBM-I}{CBM-X}CJ{$f8}{SHIFT-POUND} {$f6}{$fb}6
 {$e1}~{$f0}1{CBM-E}C,2AQA{$f0} {$e1}{$fb}6,0{$e6}AP{$e6}BPl{SHIFT-POUND}{$f5}6 H{$fc}6 {$fc}6
D
 save"0:load & run",8
,N
 ** rte/87
qX
 ** a load and run introduction
V
 ** for all commodore machines.
{$7c}
:

dv{CBM-R}8:  disk device #
{CBM-W}
pd{CBM-R}4:  printer device #
O{CBM-N}
cls${CBM-R}G(147): txt${CBM-R}G(14)
 {CBM-H}
 cls$;txt$;
{CBM-V}
 "Transactor Publishing D
" tiny aid4 "
?N
"adapted by jim butterfield from
AX
"  bill seiler's 'basic aid'
Z
"sample  commands:
{CBM-N}
"break (to monitor);   kill (aid program)
J
"number 100,10  (renumber)
{CBM-*}
"delete 130-250
{$f2}{CBM-N}
"find /gosub/
{CBM-H}
"chang
{$fa}{CBM-Z}{SHIFT-POUND};{SHIFT-POUND} {CBM-G}4!{CBM-G}5"
 8P 8{$f0}# 8E4{CBM-N}{CBM-G}#E5 c c p{SHIFT-+}{$60}{$ea}{$ea}{CBM-G}PF F{CBM-E}{$60}h{CBM-G}!PF"F!H!{$60}{SHIFT-POUND}E{SHIFT-POUND}{$e5} {$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$fe}~
4{CBM-Z}~~
5{SHIFT-POUND}lY{CBM-Z}T{$fb}
Z{CBM-Z}U{$fb}
{$7b}l{$fc}
{$f0}l

{CBM-B}{SHIFT-POUND}IY{SHIFT-POUND}:Z{SHIFT-POUND}{CBM-A}{$7b}{$60}V{$fb}
{CBM-J}{CBM-Z}{SHIFT-@}{CBM-X}I{$f0}P{CBM-@}{CBM-L}{CBM-+}{CBM-Z}{CBM-G}{CBM-J}I:{CBM-A}l{$7d}

{$60}{CBM-X}I{CBM-H}P{$ed}{CBM-G}{CBM-J}{$e6}W{CBM-L}{CBM-I}

{SHIFT-@}J{$e8}{CBM-@}W{CBM-O}

8{$fd}R~
{$f0}I{$f0}
{$ed}{$e8}HF{CBM-J}P{$f1}{CBM-Z}{CBM-G}f{$f0}[ {$ee}{$fd}
{CBM-G}18{$e5}/{CBM-H}{$f0}(H{$f0}J{CBM-E}WP{$f9}E{CBM-H}I@Ik{CBM-A}<{CBM-G}{CBM-H}F{CBM-J}E{CBM-Z}{CBM-A} "{$fe}
{$f0}
{$fe}
{CBM-G}{CBM-Z}8{$e5}1{CBM-POUND}H{CBM-G}1{$f0}{CBM-L}{CBM-+}0{CBM-X}

W{$e8}HF{CBM-L}P{$f5}{CBM-G}*E{CBM-H}*{CBM-G}+E{CBM-J}+{CBM-G}W{CBM-+}X\]{CBM-+}@{CBM-G}a ;{$fe}
 {$e1}~{SHIFT-POUND}

{CBM-@}{CBM-Z}l{$ed}{$fc}
{CBM-@}WH.{SHIFT-POUND}

/{CBM-O}

{$f0}E{CBM-J}{$f0}{$f6}/HP{$f2}W{$60}lRTI{CBM-Q}{$f0}I-P{$60}l

{CBM-B}{$f0} {CBM-@}{$fd}
 {$f6}{CBM-U} {CBM-T}{CBM-J} V

{$f0} {CBM-@}{$fd}
 P

 {$f6}{CBM-U}P {CBM-G}P{SHIFT-POUND}~{$60} C~
@ C~
a8{CBM-G}{$e5}@{CBM-G}{$e5}a{$60}{CBM-G}~
 C~
 C~
I"P C~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}M~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}W8{CBM-G}X9 P

{CBM-A}S {$f6}{CBM-U} o~
{CBM-G}9X{CBM-G}8W

{CBM-I}

{CBM-X}I0h P

 {$7b}~
H

W{$e8}P{$e8} P

{CBM-A} ~
 V

{$f8}I,{$f0}{CBM-U}P {CBM-G}~
 C~
 C~
P{SHIFT-POUND}~{$60}_0 C~
EP
 C~
EPlO C~
 {CBM-A}~
{$f0}W ~
{$e6}{CBM-Z} "{$fe}
{$e6}*P{$e6}+{$60} ~
F{CBM-Z}
{$fe}
{CBM-G}*PF+F*{$60} {$ee}{$fd}


{CBM-Z}{$60}{CBM-G}2{$60}{CBM-G}3_l"{CBM-L}{CBM-G}{$60}E0{$60}{CBM-G}_E1_ C~
""{CBM-T}14)"c64 tiny aid
e
"adapted for c64 by: david a. hook
P
"from 'tiny aid' by: jim butterfield

"and 'basic aid' by: bill seiler
{CBM-L}
""{CBM-T}12)"sample commands:
Q
"change /?/print#4,/
{$eb}

"find .gosub., 200-

"delete 130-
] ** bye **

V cls$
-
 "Thank you for supporting"
i
 "Transactor Magazine"
o



400
_B:
{$7c}L 8,dv,8,"0:RUN ME TEXT"
{CBM-@}V x{CBM-R}0 {CBM-@} 1: 8,a$:  a$: x{CBM-R}st: :  8
{CBM-N} :
{CBM-B}{$ea} ** sub form **
E{$f4}
{$e9}{$fe} "Would you like to print out"
 "a subsc{$7e}l@{$fc}
{$f0}l{$eb}~
{SHIFT-POUND}I{$7c}{SHIFT-POUND}:{$7d}{SHIFT-POUND}{CBM-A}{$7e}{$60}{SHIFT-@}{CBM-X}M{$fc}~
{$f0}P{CBM-@}{CBM-+}{CBM-G}I:{CBM-A}l

{$60}{CBM-X}M{$fd}~
P{$ec}{CBM-G}{$e6}Z{CBM-I}

{CBM-G}J{$e8}{CBM-@}Z{CBM-O}

8{$fd}{CBM-+}~
{$f0}I{$f0}{$e6}{CBM-G}{$e8}{CBM-X}{CBM-G}~
{$fa}{CBM-X}{CBM-+}~
P{$e4}{$f0}{CBM-V}{$e8}HP Z{CBM-G}{CBM-G}
{CBM-N}{CBM-X}H~
h{CBM-X}G~
h {$fb}
lS

 C{$fd}
{CBM-G}_{CBM-+}{$60}$% Y~
{CBM-G}_{CBM-+}{$60}
 {CBM-E}_{$f0}{CBM-N}{CBM-E}_Z{$7b}{CBM-G}$8{$e5}Z{CBM-N}{CBM-G}%{$e5}{$7b}{CBM-POUND}{CBM-A}E--E..

{CBM-E}Z$HP{$f9}{$e6}{$7b}{$e6}%{CBM-G}.E%{CBM-A}{$ef} S~
{CBM-G}"{CBM-+}#I-{$e8}. {CBM--}~
L  V~
 S

now more"
0{CBM-@} "about Transactor Magazine (y/n) ";yn$
d{CBM-S} yn${CBM-R}"n" {CBM-M} 500
y{CBM-U} yn${CBM-W}{CBM-E}"y" {CBM-M} 400
_B:
{$7c}L 8,dv,8,"0:RUN ME TEXT"
{CBM-@}V x{CBM-R}0 {CBM-@} 1: 8,a$:  a$: x{CBM-R}st: :  8
{CBM-N} :
{CBM-B}{$ea} ** sub form **
E{$f4}
{$e9}{$fe} "Would you like to print out"
 "a subsc

{$f0}E{$f0}{$f6}2HP{$f2}Z{$60}I{CBM-Q}{$f0}I-P{$60}l{$eb}~
{$f0} w{$fd}
 {$e2}~
 Y~
 Y

{$f0} w{$fd}
 S

 {$e2}~
P {CBM-G}P{SHIFT-POUND}~{$60} {$7d}~
c {$7d}~
d8{CBM-G}{$e5}c{CBM-G}{$e5}d{$60}{CBM-G}Z"{CBM-G}{$7b}#{CBM-G}-${CBM-G}.%{$60}{CBM-G}"E$P{CBM-G}#E%{$60}{CBM-@}H{CBM-E}"{CBM-@}H" {CBM-R}{$fd}
P{$60}{$e6}"P{$ec}{$e6}#P{$e8}{CBM-@}{CBM-E}${CBM-@}$ {CBM-R}{$fd}
P{$60}{CBM-G}$PF%F$lU{$fd}


{CBM-G} {$ee}~
{SHIFT-POUND} {CBM-@}{CBM-G}){$7f} R~I"P{CBM-G}i~H{CBM-E}_{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{CBM-G} -{$fe}
H{CBM-E}{CBM-S}0V R~P{$f6} {$e5}~
8{$60}{CBM-D}{$fa}~
{CBM-S}Inc."
&H
 "85 West Wilmot Street, #10"
eR
 "Richmond Hill, Ontario"
]{CBM--}
 "CANADA  L4B 1K7"
{$7e}{$e6}
 "telephone [phone]"
{$f0}

{CBM-M}{$fa}
 "Insert your favourite boot"
{CBM-X} "program here."
C
{$e5} "View Directory (y/n) ";vd$
{$f9}" vd${CBM-R}"n" {CBM-M} 400

e /gosub/goto/,300-400
@{CBM-V}
l{CBM-R}B(52){CBM-N}B(53){CBM-D}256:1536:m{CBM-R}B(33):n{CBM-R}B(34)
FH
52,m:53,n:48,m:49,n:n{CBM-R}m{CBM-N}n{CBM-D}256
MR
n


n";G(34);",01";:x{CBM-R}n{CBM-Z}4096:250
{CBM-K}{$f0}
x{CBM-R}l{CBM-Z}4096:250:
Q{$fa}
",";:j{CBM-R}1{CBM-@}4:x%{CBM-R}x:x{CBM-R}(x{CBM-Q}x%){CBM-D}16:x%{CBM-E}9{CBM-M}x%{CBM-R}x%{CBM-N}7
{$e5}G(x%{CBM-N}48);:j:


{CBM-Z}~{$fd}
{$fb}




~~
5{CBM-Z}~{$fc}{$e6}{SHIFT-@}{$e8}{CBM-X}Q~
{$fa}{CBM-X}R~
P{$e4}{$f0}{CBM-B}{$e8}HP W{CBM-G}{SHIFT-@}
{CBM-N}{CBM-X}{$f3}~
h{CBM-X}{$f2}~
h {$e4}{$fb}
lP

 {CBM-A}{$fd}
{CBM-G}\{CBM-+}]!" {CBM-T}{CBM-J}{CBM-G}\{CBM-+}]
 {CBM-E}\{$f0}{CBM-N}{CBM-E}\WX{CBM-G}!8{$e5}W{CBM-N}{CBM-G}"{$e5}X{CBM-POUND}{CBM-A}E**E++

{CBM-E}W!HP{$f9}{$e6}X{$e6}"{CBM-G}+E"{CBM-A}{$ef} {CBM-L}{CBM-H}{CBM-G}{CBM-+} I*{$e8}+ {$e9}{CBM-J}l~{CBM-W} {$fb}{CBM-H} P

{CBM-J}{CBM-I}

f {$fd}
{CBM-G}{SHIFT-@}IP{CBM-I}f {$fd}
 P

{$f0} {$f5}{CBM-V} {CBM-A}{$fd}
{CBM-G}\{CBM-+}]WX {CBM-*}{SHIFT-@}PHEWW{$e6}X C~
{$f0} Z{$fd}
{CBM-A}l{$fc}
r{$e6}r{CBM-@}r{CBM-+}.{CBM-G}/{CBM-J}{CBM-E}W{$f0}X{SHIFT--}

PW{CBM-G}X {CBM-G}*!{CBM-G}+"{$60}{CBM-G}E!P{CBM-G} E"{$60}{CBM-@}H{CBM-E}{CBM-@}{CBM-Z}H ~{$fd}
P{$60}{$e6}P{$ec}{$e6} P{$e8}{CBM-@}{CBM-E}!{CBM-@}{CBM-Z}! ~{$fd}
P{$60}{CBM-G}!PF"F!l"{$fe}


{SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} C
k
P{$fb}{$60}

{$e6}WP{$e6}X{CBM-E}W{$60}{CBM-M}breaKchangEdeletEfinDkilLnumbeR

 {$fd}
 {$fc}
<{$fc}
 {$fc}
A{$fb}
{$fe}
{CBM-M}{$fb}
!l"{$fe}


{SHIFT-@} O{SHIFT-POUND} {CBM-@}{SHIFT-@}){$7f} R~I"P{CBM-G}i~H{CBM-E}\{$f0}{$ec}I~{$f0}{$e8}$0{$e4}{SHIFT-@} Z{$fe}
H{CBM-E}I0V R~P{$f6} {CBM-*}{SHIFT-@}8{$60} {CBM-E}I {CBM-A}J8{$e9}{$7f}{CBM-N}

J{$f0}{$ee}{$e6}IP{$e6}J{CBM-E}I{$f6}0{$f1} {$f6}{CBM-U}{CBM-G}2{CBM-G}3 {$f5}{CBM-V} {$f6}{CBM-U}{CBM-G}0{CBM-G}1 "{CBM-L} C~
 C~
P! {CBM-G}~
 C~
 C~
Pl{$fc}
 C~
{CBM-G}{$60}W C~
{CBM-G}_W {CBM-A}~
{$f0}{$e2} C625

"number 100,5
b

"append "G(34)"name"G(34)", [device #]
n
"kill
I
(B(43){CBM-N}B(44){CBM-D}256{CBM-N}383)


{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}-"{CBM-G}.#{CBM-G}7${CBM-G}8%
{CBM-G}"PF#F"{CBM-E}"P<{CBM-G}"PF#F"{CBM-E}"{$f0}!&{CBM-G}"PF#F"{CBM-E}"E${CBM-N}{CBM-G}&E%h{CBM-G}7PF8F7H7h{CBM-G}7PF8F7H7{CBM-L}I{CBM-B}P{$ed}{CBM-G}73{CBM-G}84L7
{CBM-N}{CBM-N}{CBM-B}{SHIFT-POUND}l{$7c}{CBM-Z}{$fe}~
{$7d}{CBM-Z}~~
P{SHIFT-POUND}~CB0 {$7d}~
EP {$7d}~
EP {$f1}~
{SHIFT-POUND} lR~ {$7d}~
 J~
{$f0}R u~
{$e6} U{$fd}
{$e6}-P{$e6}.{$60} u~
F {CBM-X}{$fd}
{CBM-G}-PF.F-{$60} {CBM-K}{$fd}


{$60}{CBM-G}5C{CBM-G}6Bl{CBM-*}~
{CBM-G}CE3C{CBM-G}BE4B {$7d}~
P{$fb}{$60}

{$e6}ZP{$e6}{$7b}{CBM-E}Z{$60}{SHIFT-POUND}


 {$f4}~
8{CBM-G}-{$e9}{CBM-N}{CBM-G}.{$e9}

{CBM-POUND}{CBM-G}
 U~l{$f7}~
{CBM-M}changEdeletEfinDkilLnumbeRappenD

v{$fc}
{$f2}{$fb}
v{$fc}
W{$fb}
k{$fe}
~
l3{CBM-G}l{$7c}{CBM-G}l{CBM-+}ly{CBM-+}l{CBM-+}lK{SHIFT-POUND}lW{CBM-N}l{$fd}{CBM-S}l{CBM-P}lM{CBM-X}l{CBM-I}

i ={$fd}
{CBM-G}{CBM-G}I

P{CBM-I}i ={$fd}
 S

{$f0} {$e8}~
 C{$fd}
{CBM-G}_{CBM-+}{$60}Z{$7b} {$e5}~
PHEZZ{$e6}{$7b} {$7d}~
{$f0} {$fd}
{CBM-A}l@{$fc}
u{$e6}u{CBM-@}u{CBM-+}1{CBM-G}2{CBM-E}Z{$f0}X{SHIFT--}

P{$ed}{$e8}HFP{$f1}{CBM-G}i{$f0}[ {CBM-K}{$fd}
{CBM-G}48{$e5}2{CBM-M}{$f0}(H{$f0}J{CBM-E}ZP{$f9}E{CBM-M}I@Ik{CBM-A}<{CBM-G}{CBM-M}FE{CBM-A} U{$fd}
{$f0} {CBM-X}{$fd}
{CBM-G}8{$e5}4{CBM-POUND}H{CBM-G}4{$f0}{CBM-+}3{CBM-X}

Z{$e8}HFP{$f5}{CBM-G}-E{CBM-M}-{CBM-G}.E.{CBM-G}Z{CBM-+}{$7b}_{$60}{CBM-+}c{CBM-G}d {$ee}{$fd}
 {$e1}~{SHIFT-POUND}

F{CBM-@}l{CBM-T}{$fc}
{CBM-@}ZH1{SHIFT-POUND}

2{CBM-O}ription form (y/n) ";yn$
$ yn${CBM-R}"n" {CBM-M} 630
9 yn${CBM-W}{CBM-E}"y" {CBM-M} 500
?&:
G0 "* Ready Printer & Press A Key *"
{$7f}:{CBM-K} a$:  a${CBM-R}"" {CBM-M} 570
{CBM-K}d 4,pd:  pd=printer device #
{CBM-V}n 8,dv,8,"0:RUN ME FORM"
{$eb}x x{CBM-R}0 {CBM-@} 1: 8,a$: x{CBM-R}st: 4,a$: :  8:  4
{$f1}B:

L{CBM-D}{$fb}~
{CBM-P}8{$e9}{$7f}{CBM-N}

J{$f0}{$ec}{$e6}{CBM-S}P{$e6}{CBM-P}{CBM-E}{CBM-S}{$f6}0{$f1} {$e2}~
{CBM-G}5{CBM-G}6 {$e8}~
 {$e2}~
{CBM-G}3{CBM-G}4 {CBM-*}~
 {$7d}~
 {$7d}~
P! _~
 {$7d}~
 {$7d}~
Pl@{$fc}
 {$7d}~
{CBM-G}CZ {$7d}~
{CBM-G}BZ J~
{$f0}{$e2} {$7d}~
 {$7d}~
 {$7d}~
I"P {$7d}~
{$f0}EI"P{$f7}{$f0}{$ee}{CBM-N}{$f0}{CBM-C}{$e9}{CBM-I}{SHIFT--}{CBM-K}~
{$f0}JP{$f8}{$f0}{SHIFT--}{CBM-G}Z;{CBM-G}{$7b}< S

{CBM-A}S {$e2}~
 ~
{CBM-G}<{$7b}{CBM-G};Z

{CBM-I}

{CBM-X}

I0h S

 5~
H

Z{$e8}P{$e8} S

{CBM-A} d~
 Y

{$f8}I,{$f0}{CBM-U}P _~
 {$7d}~
 {$7d}~
, vd${CBM-W}{CBM-E}"y" {CBM-M} 280

6:
&
@ 8,dv,0,"$0"
c
j{CBM-K}#8,a$,a$:  trash bytes
J
t{CBM-K}#8,a$,a$,a$,a1$:  st {CBM-M}  8:  400

^ F(a${CBM-N}G(0)){CBM-N}256{CBM-D}F(a1${CBM-N}G(0));
{CBM-A}
H{CBM-K}#8,a$:  a${CBM-W}{CBM-E}"" {CBM-M}  a$;:  360
{CBM-X}
R:  340
C
{$7c}:
Y
 ** more info **
{CBM-*}

 "Would you like to ka
~~~~~~~~~~~~








































L{SHIFT-+}







































{$f0}{$e3}~~~~~~~~~~~~transactor disk#  21 2a








  "RUN ME FORM"      seq

















































load & run











aid4











c64 tiny aid ldr












supermon+ inst












supermon+64












copy-all












copy-all.64












copy-all64 glink









































































































































































































































































































































































































































































































































copy file 64











change unit addr











yellow pages 1.2












palvert 1.0











palvert64 1.0












verifizer.vic/64











verifizer.pet











verifizer.+4










































































































































































































































































































































































































































































































































verifizer.b128












verifizer.c128











stp sys49152











stp sys828











RUN ME!











RUN ME TEXT











RUN ME FORM












--------------










































































































































































































































































































































































































































































































































ml break











inthandler.pal











80-col tricks











finagler











cursor save












--- articles ---











projector64












projector128











































































































































































































































































































































































































































































































































hiprnt1.ml












hiprnt2.ml












hologram








'


circles.bas











hires












potential.bas











potential.obj











potential.pal










































































































































































































































































































































































































































































































































~polygon.bas












polygon.obj











polygon.pal












ml square roots











placeholder.pal











placeholder.demo











placeholder.plot












































































































































































































































































































































































































































































































































































 supermon+ instr
#
 10000
i
 "supermon+ is a new version of
R(
"'supermon'  the reason for the new
2
"version is to provide identical
{SHIFT-*}7
"commands to those of the built-in
{$e4}<
"monitor of the commodore 128.
a
"  the most visible


" &20000
!
" %10000000000000
'{CBM-N}

p{CBM-H}
"     in the above example the user
{$7c}{CBM-V}
"has asked for the numeric equivalents
{CBM-POUND}H
"to hexadecimal 2000.  the reply shows
TR
"the value in hex ($), in decimal (+),
{$fb}{CBM--}
"in octal (&), and in binary (%)t"and conversion will be done for you.
0^"example:
bH"   m +4096
JR" ...  will cause a memory display
{$7c}"from decimal address 4096.  in the
{CBM-B}"display, the hex address ($1000) will
{SHIFT-+}"be shown.  similarly,
{$fc}"   a +2048 lda #%10
2 03 04 05
-
&"     displays the register values saved
y
0"when supermon+ was entered.  values

:"may be changed by typing over the
{CBM-P}
d"display followed by a return character.
M
n"  pc - program counter
{$ea}
x"  sr - status register
B"  display is in lines of 8
4"so addresses $200 to $20f are shown.
^"  if one address only is given then
"12 lines (96 locations) will be shown.
{CBM-U} "if no address is given display will go
U*"from the last address.

4" equivalent ascii  to return to supermon+,
{CBM-L}"command sys 8.
%{$e8}9000
b{$f2}" simple assembler "
C{$fc}"   a 2000 lda #+18
{$7b}"  (changes  to:)"
"a 2000 a9 12    lda #$12
{CBM-F}"a 2002 ..next instruction
{$e5}$"     in the above example the user
.
J"the assembler type a return after the
.T"the address prompt.
w{$7e}"  previous lines may be changed by
{$7e}"typing over the right hand part.
{CBM-A}9000
{CBM-@}D"   d 2000 2004
CN". 2000 a9 12    lda #$12
{$e5}X". 2002 9d 00 80 sta $8000,x
 and typing over the
("right hand part.
X9000
2" fill memory "
s"   f 1000 1100 ff
"     fills the memory from 1000 hex to
{CBM-+} "1100 hex with the byte ff hex.
{CBM-A}{CBM--}9000
E{$e6}" go (run)"
Y{$f0}"   g 1000
{$fa}" turn to the monitor.
{$fe}{CBM-@}9000
" hunt memory "
:{CBM-I}"   h c000 d000 'read
H{CBM-D}"     hunt thru memory from c000 hex to
{CBM-L}"d000 hex for the ascii string read and
E{SHIFT-*}"print the address where it is found.  a
{$f1}J"maximum of 32 char
"   l
B"   load any program from cassette #1.
;C"    l ";G(34);"ram test";G(34)
GD"   load from cassette #1 the program
{$7f}E"named ram test.
{CBM-Z}J"   l ";G(34);"ram test";G(34);",08
{SHIFT-+}T" load from disk (device 8) the progra changes from
3f
"earlier versions of supermon are:
^k
"  --decimal or binary input allowed;
p
"  --disk status and commands (@);
{CBM-POUND}u
"  --looser (easier) syntax.
{CBM-W}D
 9000
QN
" number conversion "
{$e2}X
"   $2000
{$ef}
" $2000
{$fc}
" +8192.
&{$e6}
"  the user could ask for a number to
q{$f0}
"be converted from any of these bases
Y{$fa}
"by giving the appropriate prefix.
,9000
 6" important note -- "
K@" at any time in the following text,
{$f6}j"you may enter any number in any base
!000000
&{CBM-@}" ... will be converted to assemble:
a{CBM-S}"   a $0400 lda #$80
J{CBM-U}"   if you don't give a prefix, the
B"monitor will assume hexadecimal.
{$f4}9000
{CBM-U}{$fe}" register display "
E"   r
{$e2}"   pc  sr ac xr yr sp
{$fe}"; 0000 01 0 ac, xr, yr - a, x, and  y registers
1L"  sp - stack pointer
;{CBM-C}9000
tP"   m 200 209
Z">0200 4d 20 32 30 30 20 32 30:m 200 20"
{CBM-W}{$e4}">0208 39 00 00 04 00 04 00 04:9......."
{CBM-*}{$ee}"     display memory from 0200 hex to
{$f8}"0209 hex. characters are shown
!
>"in reverse at the right.
m
h"values are changed by typing over the
{$7b}
r"display followed by a return character.

9000

" exit to basic "
{CBM-Z}
"   x
W
{CBM-I}"     return to basic ready mode.
{CBM-D}"when you wish"started assembly at 2000 hex.  the
:8"first instruction was load a register
Hb"with immediate 18 decimal. in following
l"lines the user need not type the
{SHIFT-@}v"a and address.  the simple assembler
{$e8}{$60}"prompts with the next address.  to exit{$e2}"     disassembles instructions from
;{$ec}"2000 to 2004 hex.  if one address is
G{$f6}"given, 20 bytes will be disassembled.

"if no address, start from the last
{CBM-@}
"used address.
N"  code may be reassembled by moving
{$f8}"the cursor back    go to address 1000 hex and begin
"running code.
f"  if no address is given, the address
L"from the <pc> register is used.
"" jump (subroutine)"
,"   j 1000
H6"     call address 1000 hex and begin
{$f4}@"running code.  reacters may be used.
T"   h c000 d000 20 d2 ff
i{$de}"     hunt memory from c000 hex to d000
V{$e8}"hex for the sequence of bytes 20 d2 ff
{CBM-@}{$f2}"and print the address.  a maximum of 32
{CBM-X}{$fc}"bytes may be used.
Gv9000
W{$60}" load "
{$e5}A
m
{$f3}{$7e}"named ram test.
"this command leaves basic pointers
."unchanged.
8{SHIFT-@}9000
i
" save"

"   s ";G(34);"program name";G(34);",01,0800,0c80"
{CBM-E}
"     save to cassette #1 memory from
{SHIFT--}{CBM-N}
"0800 hex up to but not including transfer memory "

{$fa}
"   t 1000 1100 5000
8"     transfer memory in the range 1000
F"hex to 1100 hex and start storing it at
{$7e}"address 5000 hex.
j9000
{CBM-G}t" compare memory "
G^"   c 1000 1100 5000
{$f4}H"     @,$0
{$fa}{$f4}"     get drive 0 directory
{$fe}"   @,s0:temp
:"     scratch file 'temp' from disk
d9000
A" output to printer"
&"call supermon+ from basic with:
{SHIFT-POUND}0"  open 4,4:cmd 4:sys 8"
R:"all commands will go the printe
d from tape or disk
{$fa}J
"m memory display
T
"r register display
4{$de}
"s save to tape or disk
l{$e8}
"x exit to basic
G"a simple assembler
{$7e}"d disassembler
$"f fill memory
{CBM-N}."h hunt memory
Dl"t transfer memory
{SHIFT--}q"modore.  it

{$f0}"may be used to reconnect the monitor
,{$fa}"if it is accidentally disconnected by
u"use of the run-stop/restore keys."
_9000
H@ 30
{CBM-Q}(#" hit any key to continue ";
{CBM-X}2#i{CBM-R}1{CBM-@}10:{CBM-K}a$:
Q<#{CBM-K}a$:a-D
" disk copy-all      jim butterfield"
FN
a${CBM-R}"!jim butterfield!":a${CBM-R}a${CBM-N}a${CBM-N}a$:a${CBM-R}a${CBM-N}a${CBM-N}a${CBM-N}a${CBM-N}a$
PX
p${CBM-R}""

 l2(232),l1%(232),n$(232),t%(232),t$(4)
{CBM-Y}
 xxx,seq,prg,usr,rel
L
j{CBM-R}0{CBM-@}4:t$(j):j
{$e5}
"from unit  8";f
{$ee}{CBM-N}
830
{$f8}{CBM-H}
f${CBM-R}d$
{CBM-V}
"

" 1,f,3,"$"{CBM-N}f$
#
,860:e{CBM-M}:230
-
64156
=
@r{CBM-R}255: 340
g
j4245
K
tj{CBM-R}16{CBM-@}2{SHIFT-POUND}{CBM-Q}1:F(J(a$,j{CBM-N}3)){CBM-R}160{CBM-M}j
{$7c}
^n${CBM-R}J(a$,4,j)

Ht9{CBM-R}F(a$){CBM-Q}128:t9{CBM-W}1{CBM-A}t9{CBM-E}4470
{CBM-A}
Rl1%{CBM-R}F(J(a$,22))
S
{$7c}l2{CBM-R}F(J(a$,29)){CBM-N}F(J(a$,30)){CBM-D}256
{$ee}
J(a$,4,16);" ";t$(t9)
{$fd}
p{CBM-R}B(203rams *": 800
{$ea}j{CBM-R}1{CBM-@}n
0{$f4}l2{CBM-R}l2(j):t%{CBM-R}t%(j):l{CBM-E}l2670
={$fe}q{CBM-R}0550
y"*** output disk full"
Y"do you have a new one";z$
F(z$){CBM-W}{CBM-E}89{CBM-M}
C& 15:15,t,15:"want to new the output disk  n";z$
V0F(z$){CBM-W}{CBM-E}89600
{$f0}:"disk name,id";x$,y$


d       ",21);
${CBM-R}3,f,3,f${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%)
p{CBM-C}14,e,e$,e1,e2:870:e{CBM-M}"** ";e$;e:780
Ft%{CBM-R}4{CBM-M}4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}",l,"{CBM-N}G(l1%(j)):730
{CBM-Q}P4,t,4,t${CBM-N}":"{CBM-N}n$(j){CBM-N}","{CBM-N}t$(t%){CBM-N}",w"
PZl{CBM-R}l{CBM-Q}l2:860:e{CBM-M}"*** ";e$;e:780
{$e5}{$e4}t%{CBM-R}4{CBM-M}4462:760
{$ef}{$ee}4443

#1,x$

{CBM-K}#1,x$
{CBM-K}#1,x$
x{CBM-R}F(x${CBM-N}G(0))
4{CBM-I}{CBM-K}#1,x$:y{CBM-R}F(x${CBM-N}G(0))
:{CBM-D}


 {CBM-E}-{CBM-E}-{CBM-E}-f {CBM-E}-{CBM-E}-{SHIFT-POUND}d {CBM-G}
{CBM-E}I@Io{CBM-A}{CBM-I} F~ {$de} {$e4}~P{$fa}{$f0}{SHIFT--}{CBM-E} {CBM-E}I*{$f0}
I?{$f0}QPH{SHIFT-*}P{$ed}{$60}
{CBM-G}P{$f6} {CBM-G}
{$f0}V{SHIFT-POUND} NdP{SHIFT-POUND}d{SHIFT-POUND}e{CBM-I} F~
 {$e4}~HLeP{$f5}lL~X{$f8}{CBM-Z}bIb{CBM-Z}cI
cXx{CBM-I}{CBM-X}bhjjjj0  0c80
{CBM-H}
"hex and name it program name.
a{CBM-V}
"   s ";G(34);"0:program name";G(34);",08,1200,1f50"
NH
"    save to disk drive #0 memory from
R
"1200 hex up to but not including 1f50
{SHIFT-*}{CBM--}
"hex and name it program name.
J{$e6}
9000
{$e8}{$f0}
"compare memory in the range 1000
R"hex to 1100 hex with memory starting
:{$7c}"at address 5000 hex.
d{CBM-S}9000
[{CBM-U}" check disk "
IB"   @
L"     get disk status message
V"   @9
G "     get disk unit 9 status message
X{$ea}"   r.
{$f9}d"  when complete, return to basic
n"with x and command:
1x"  print#4:close 4"
;B9000
H{CBM-D}
"        summary                     "
{CBM-E}
"$,+,&,% number conversion
{CBM-T}{CBM-L}
"g go (run)
{SHIFT-*}{CBM-F}
"j jump  (subroutine)
{$e1}{SHIFT-*}
"l loac compare memory
{$fb}v"@ disk status/command
 9000
1{CBM-N}"supermon will load itself into the
^{CBM-H}"top of memory .. wherever that happens
{$7b}{CBM-V}"to be on your machine.
{CBM-POUND}{CBM--}"be sure to note the sys command which
U{$e6}"links supermon to the com
I${CBM-R}""{CBM-M}9020
{$fb}'"         s u p e r m o n   +   "
' '"commands - user input in  reverse "
- 8'


{CBM-H}"top of memory .. wherever that happens
{$7b}{CBM-V}"to be on your machine.
{CBM-POUND}{CBM--}"be sure to note the sys command which
U{$e6}"links supermon to the com"to unit  9";t
H
830
"R
t${CBM-R}d$
4{CBM--}
f{CBM-R}t {CBM-P}f${CBM-R}t${CBM-M}
x{$e6}
n{CBM-R}0: 1: 15: 15,f,15:15,"i"{CBM-N}f$
N{$f0}
860: e {CBM-M} :230
{$fa}
z{CBM-R}90:"pattern  *";p$
{CBM-W}p${CBM-R}"xxx"{CBM-N}H(p${CBM-N}"               ",16)
{SHIFT--}"hold down 'y' or 'n' key to select"
{$fd}"programs to be copied...){CBM-P}r
{CBM-K}z$:z${CBM-R}""{CBM-P}p{CBM-W}064450
<{CBM-@}z${CBM-R}"y"{CBM-A}z${CBM-R}"n"{CBM-M}z{CBM-R}F(z$):r{CBM-R}255:450
s{CBM-S}z${CBM-R}G(13){CBM-M}r{CBM-R}0:450
\{CBM-U}410
Bz{CBM-W}80{CBM-M}"                     ":470
{CBM-L}Ln{CBM-R}n{CBM-N}1:l2(n){CBM-R}l2:n$(n){CBM-R}n$:t%(n){CBM-R}t9:l1%(n){CBM-R}l1%
JVst{CBM-R}0{CBM-P}n{CBM-W}232330
{$e3}  1: 15:" * * * * *"
{$e5}n{CBM-R}0{CBM-M}"* no prog15,"n"{CBM-N}t${CBM-N}":"{CBM-N}x${CBM-N}","{CBM-N}y$

n860:e{CBM-M}:550
f
x15,"i"{CBM-N}t$:1,t,0,"$"{CBM-N}t${CBM-N}":!#$%&"
y
B860:e{CBM-M}:550
M
L890:890:q{CBM-R}q{CBM-N}1

V{CBM-K}#1,x$:x${CBM-W}{CBM-E}""630

890
{CBM-R}
l{CBM-R}x{CBM-N}y{CBM-D}256:"(";l;"blocks free )"
B
 1: 15:500
X
14,f,15:15,t,15
{CBM-POUND}H(n$(j){CBM-N}"             {$f8}n$(j){CBM-R}"":860:e{CBM-M}"**** ";e$;e:780
 ""
2 4: 3: 15: 14
9j
C x{CBM-R}{CBM-U}(0):"another input disk ready";z$
U*F(z$){CBM-R}89230
{$7b}4
>"drive  0";d
 hd{CBM-D}d{CBM-W}{CBM-E}d830
{CBM-E}rd${CBM-R}G(d{CBM-N}48):
D\15,e,e$,e1,e2
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}
SR~H)0 R~J{$e8}{CBM-I}{SHIFT-POUND} R~J{$fa}{CBM-I} F~
{CBM-I}
e {$e4}~{CBM-+}{$f0} @{$f0}{$ec}eP{$ed}{$f0}H{SHIFT-*}{$fe}{$f0}
{$f0} de L~{CBM-I} I~
{CBM-I}
{CBM-E}f R~{CBM-+}{$f0}{$ec}fP{$f1}{$f0}HLdP{$e7}lL~{SHIFT-POUND}
bc K{CBM-Z}e{$f0}{$f6}{$60}{SHIFT-POUND}
@abc{$ee}@P{$ee}a{CBM-I} I~{SHIFT-POUND}p R~{SHIFT-POUND} R~{CBM-Z}@ R~{CBM-Z}a R~{SHIFT-POUND} R~ L~{CBM-I} F~ {$e4}~{CBM-POUND} L~{SHIFT-*}0P K{CBM-G}{$f0}{CBM-V}{$60}
{$e4}Fe{CBM-R}0{CBM-M}e{CBM-R}(st {CBM-P} 191):e${CBM-R}"*st*"
{$ea}P
{$f5}Z{CBM-K}p
51,84:52,9
7z
"file type  s";t$:"file";x$
kD
1,8,2,x$:2223
BI
st{CBM-W}{CBM-E}64{CBM-M}"no go":
X
 1:"other disk ready";a$
{CBM-Q}
C(a$){CBM-M} 1,8,2,x${CBM-N}","{CBM-N}t${CBM-N}",w":2267: 1




 {CBM-I} F~ {$e4}~
{$fb}{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fc}IP{$f0}{CBM-G}{$f0}{$e9}{CBM-G}{$fb}@{CBM-G}{$fc}alL~ {CBM-I} I~
{CBM-E}{$fb} R~{$e6}{$fb}P{$e6}{$fc}{CBM-G}{$fb}M@{CBM-G}{$fc}{$ed}a{$e7}{SHIFT-POUND}D
 save"0:cua  (change)",8
iN
 ** jim butterfield - september 1981
X
 ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
{CBM-Y}
 "old device number   8";:  do
P
 do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130
{$f8}
 "new device number   9";:  dn


p0
'
{CBM--}
15,"m-w"G(a)G(0)G(2)G(dn{CBM-N}32)G(dn{CBM-N}64)
/
{$e6}
 15
h
{$f0}
  12,  50, 119,   0


 ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
{CBM-Y}
 "old device number   8";:  do
P
 do{CBM-W}8 {CBM-A} do{CBM-E}15 {CBM-M} 130
{$f8}
 "new device number   9";:  dn



2571: rick m{CBM-A}ris


del seq prg usr rel{SHIFT-POUND}
 {CBM-X}~{SHIFT-POUND}{CBM-I}  {SHIFT-@}~ {SHIFT-*}~{$60}{CBM-I} I~{SHIFT-POUND}i R~{SHIFT-POUND}0 R~{SHIFT-POUND}
 R~ L~{CBM-G}{CBM-H}Iu{$f0}{SHIFT-POUND}u{CBM-H}{CBM-I}/{CBM-X}U]L
UJ{$f4}{$60}hhh{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}r R~H R~H R~H L~{CBM-I} F~ O~h L~H{$60}
{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}w R~{CBM-G}{$fd} R~{CBM-G}{$fe} R~{SHIFT-POUND}  R~{CBM-I}
{CBM-E}{$fb} R~HP L~{$60}{$e8}  P{$ef} L~{SHIFT-POUND} E{$fd}{$fd}{$e6}{$fe}l{CBM-G}hhh{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}-

 {$ec}{SHIFT-POUND}
{CBM-N}{CBM-POUND} P0{$f7}{$60}{SHIFT-POUND}
!P{SHIFT-POUND} P{SHIFT-POUND}              yellow pages
         directory organizer

            by rick morris

         subroutine help from
             jeno horvath
       want directions? y/any key

 {$e4}~{$f0}{$fb}IyP        insert disk              yellow pages
         directory re-organizer



  UCCCCCCCCCCCCCCCCI  UCCCCCCCCCCCCCCCCI

  B                B<>B                B

{CBM-I}  B                B  B                B

JPQ  JCCCCCCCCCCCCCCCCK  JCCCCCCCCCCCCCCCCK

 HHH{CBM-E}{$fd}P{SHIFT-POUND} lI{SHIFT-*}P{SHIFT-POUND}@l){$7f}I@I{$60}{CBM-A}i@{CBM-A}H{SHIFT-*}P{SHIFT-+} {CBM-K}
{CBM-E}{CBM-G} AHHH{CBM-E}{CBM-G}P{SHIFT-POUND} lgI{SHIFT-*}P{SHIFT-POUND}@lg){$7f}I@I{$60}{CBM-A}i@{CBM-A}H{SHIFT-*}P{SHIFT-+} JPH{CBM-+}H{CBM-G}H{$fe}H{$fd}{$60}h{CBM-G}{CBM-E}IT{CBM-E}H{$f0})@{$f0}{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND} {CBM-A}H{SHIFT-*}P{$f9}{CBM-G}{CBM-E}8{$e9}T{CBM-E}
{$60}{CBM-G}{$fd}I {$fd}{$e6}{$fe}{CBM-G}{CBM-G}I {CBM-G}{$e6}{CBM-+}{CBM-G}{CBM-A}I{CBM-A}{$e6}{CBM-E}{$60} {$e4}~{$f0}{$fb}{CBM-I}
{CBM-C}U{SHIFT-*}
{$f0}{$f2}{SHIFT--}U{$f0}{$e8}{$e8}{$e8}l{CBM-H}{$e8}{CBM-C}U{$e8}{CBM-C}UL
Calzbl]{$ee}C/{CBM-X}{$7d}/-]/4eBT_AIcP{$f0}  l{CBM-Z} {CBM-E}{$fd}{SHIFT-POUND}{$f9}{CBM-G}{$fd}{CBM-N}{CBM-G}{$fe}{CBM-POUND}{SHIFT-POUND}B {CBM-G}{SHIFT-POUND}I {SHIFT-POUND}{$e6}{CBM-N}{$60}h{CBM-E}{$fc}{$fb}I {CBM-A}{$e6}{CBM-E}
{CBM-E}{CBM-A}{$fb}HP{$f9}{$e6}{CBM-E}{$e6}{$fc}HhE{CBM-E}P{$ef}H{$60} {CBM-E}{CBM-G}Pl{CBM-Z}{CBM-G}{CBM-N}ICP{CBM-G}{SHIFT-POUND}IPl{CBM-Z}{SHIFT-POUND}A{CBM-+}{$fe}{CBM-@}{$fd} {$e8} {CBM-E}{CBM-G}{$fd}{$f9}{CBM-G}{CBM-G}{CBM-N}{CBM-G}{CBM-+}{CBM-POUND}{SHIFT-POUND}U {CBM-G}{SHIFT-POUND}8{$e9} {SHIFT-POUND}{CBM-A}F{CBM-N} =
l{CBM-Z} {CBM-Z} {CBM-O}{CBM-K}{SHIFT-POUND}{$f8}{CBM-G}{SHIFT-POUND}I {SHIFT-POUND}{$e6}{CBM-N}l
{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}












 {CBM-Z} {CBM-E}{$fd}Pl{CBM-Z}{SHIFT-POUND}U{CBM-+}{CBM-+}{CBM-@}{CBM-G} {$e8} {CBM-E}{$fd}{CBM-G}{$f9}  =
l{CBM-Z}{$fc}{CBM-E}
{CBM-G}{SHIFT-POUND}B{CBM-+}{CBM-I}
H{CBM-X}D{CBM-G}{$e6}{CBM-+}{$e8}{CBM-G}{CBM-+}E{CBM-N}P{$f2}{SHIFT-POUND}~{CBM-G}{SHIFT-POUND}B{CBM-+}{SHIFT-POUND}p{$fe}{SHIFT-POUND}
{CBM-G}{$fd}
{CBM-E}{$fd}{CBM-G}HP{$f9} .{SHIFT-POUND}
{$fb}{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND}B{$fc} {CBM-T}{CBM-I}
{SHIFT-POUND} {CBM-*}{$e6}{$fc}{SHIFT-POUND}
{$fd}{SHIFT-POUND}{$fe} {CBM-T}{CBM-I} F{$fc}{CBM-E}{$fb}{CBM-POUND}{$e6}{$fc}{SHIFT-POUND} {CBM-*}IP
{CBM-E}{$fb}PYlb

        write error. try again y/n

 {$e4}~{$f0}{$fb}IyP
 ok

 @lInP{$e6}        disk has been corrupted
{$60}

{$60}          new name (return when done)
{SHIFT-POUND}{$fb} {$e4}~{$f0}{$fb}I{$f0}I
{$f0}({CBM-@}{$fb}{CBM-G} W
{$e6}{$fb}{CBM-G}{$fb}I{$e4}F{$fb}lb{CBM-G}{$fb}I{$f0}YF{$fb}{CBM-@}{$fb}{SHIFT-POUND} {CBM-G} W
lb{CBM-@}{$fb}{SHIFT-*}{CBM-A}{SHIFT-POUND} {CBM-G}H{SHIFT-*}{$f7}   =
l{CBM-Z}               yellow pages

    the left column is the original
  the right col
7lL~{SHIFT-POUND}6{SHIFT-POUND}{$fc}{SHIFT-POUND}t{$fb}{$60}











aid4











c64 tiny aid ldr












supermon+ inst












supermon+64












copy-all












copy-all.64












copy-all64 glink









 dn{CBM-W}8 {CBM-A} dn{CBM-E}15 {CBM-M} 150
3{CBM-N}
 15,do,15:  command channel
K{CBM-H}
a${CBM-R}G(do{CBM-N}32): b${CBM-R}G(do{CBM-N}64):  talk and listen current
{CBM-V}
 a:  a{CBM-R}0 {CBM-M}  "disk not recognized!";:  230
LH
15,"m-r"G(a)G(0): {CBM-K}#15,x$:  x${CBM-W}{CBM-E}a$ {CBM-M} 190
{$fd}R
15,"m-r"G(a{CBM-N}1)G(0): {CBM-K}#15,x$:  x${CBM-W}{CBM-E}b$ {CBM-M} 19umn is the one you make

  'return' moves an entry left to right
    'insert' moves the top left entry
     to the top of the right column
         'delete' moves it back

    'r' restores the left column back
               to original

     cursor l/r, R~{SHIFT-POUND}w R~H R~H R~{SHIFT-POUND} R~H R~ L~{$60}H{$f9}H{$fa}
{$e6}{$f9}P{$e6}{$fa}
{CBM-E}{$f9}{$f0} R~P{$ef}{$e6}{$f9}P{$e6}{$fa}{CBM-+}{CBM-@}L{$f9}
{SHIFT-POUND}0{$fe}{SHIFT-POUND}
{$fd}{CBM-POUND}{SHIFT-POUND}
{$fd}HP{$fb}{$e6}{$fe}{CBM-G}{$fe}IP{$f1}{$60}I
{$f0}
hHh R~FP{$f7}H{$60}
{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}r R~{CBM-G}{$fb} R~{CBM-G}{$fc} R~{SHIFT-POUND}~ R~ L~{CBM-I}
 F~ O~{$fd}HP{$f8} L~{CBM-I} I~{SHIFT-POUND}m R~{SHIFT-POUND}- R~{SHIFT-POUND}r R~{SHIFT-POUND}~ R~{CBM-G}{$fc} R~{SHIFT-POUND} R~ L~{CBM-I} ~ F~ O~{$fd} L~{$60}hhh{SHIFT-POUND} I~H{CBM-I}
 {$ec}H{CBM-I}
 {$ec}H{CBM-I} and press any key

 {$e4}~{$f0}{$fb} reading directory...
{SHIFT-POUND}{CBM-A} {$e7}~ . d @{SHIFT-POUND}
{$fb}{$fd}{SHIFT-POUND}0{$fe}{CBM-I}
{SHIFT-POUND} {CBM-*}{SHIFT-POUND}{$fc} O
{CBM-E}{$fd}{$f0}C{CBM-N}H{CBM-E}{$fd}{CBM-POUND}{SHIFT-POUND} {CBM-*}I{$f0}F{CBM-A}{CBM-G}{CBM-A}P{$e6}l{$e6}{$fe}{SHIFT-POUND}{$fc} O{SHIFT-POUND}* R~lt L~
error reading track
{CBM-E}{$fd}{CBM-N}{SHIFT-POUND}
 M{CBM-X}  sector
 {CBM-E}{$fd}{CBM-N}{SHIFT-POUND}
 M{CBM-X}{$60}{SHIFT-POUND}
{$fd}{CBM-G}{SHIFT-POUND}0{$fe}{SHIFT-POUND}p{CBM-+}
{CBM-E}{$fd}{CBM-G}HP{$f9}{$e6}{CBM-+}{$e6}{$fe}{CBM-G}{$fe}IoP{$ef} {$e4}l{CBM-Z}{SHIFT-POUND} R~{SHIFT-POUND}
{CBM-POUND}{CBM-N}{$fb}{$fd}{SHIFT-POUND}{$fc}       disk name
{CBM-I}
{CBM-X}p R~{$e8} P{$f5}{SHIFT-POUND}  R~{$e8}{$e8}{CBM-X}p R~{$e8} P{$f5}{SHIFT-POUND}q{$fe}{CBM-POUND}{SHIFT-POUND}C{CBM-+}{CBM-N}{SHIFT-POUND}{$fd}{CBM-G}{CBM-M}{SHIFT-POUND}   {CBM-E}{$fd}{$f0}<

{CBM-E}{$fd})

{CBM-N} {CBM-X} R~{$e8}P{$f6}
 {CBM-E}{$fd}{CBM-N}{SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}  R~ R~

 {CBM-E}{CBM-G}{$f0}-
{CBM-E}{CBM-G})

{CBM-N} {CBM-X} R~{$e8}P{$f6}
 {CBM-E}{CBM-G}{CBM-N}{SHIFT-POUND}
 M{CBM-X}{SHIFT-POUND}  R~ R~{CBM-G}{$fd}h{CBM-G}{$fe}h{CBM-G}{CBM-G}h{CBM-G}{CBM-+}h{SHIFT-POUND}G{CBM-A}{SHIFT-POUND}{CBM-E}{CBM-I}
{CBM-E}{$fd} Ayk1y]w{$60}\z{CBM-Y}1C13


{CBM-G}{$fe}IqP{CBM-G}{$fd}IPl{CBM-Z}{CBM-G}{$fd}8{$e9} {$fd}{CBM-A}F{$fe} =
l{CBM-Z} {CBM-E}{$fd}Pl{CBM-Z}{CBM-G}{$fd}I {$fd}{$e6}{$fe} =
l{CBM-Z}{$60} {CBM-E}{CBM-G}Pl{CBM-Z}{CBM-G}{CBM-G}I {CBM-G}{$e6}{CBM-+} =
l{CBM-Z}{CBM-G}{CBM-+}ICP{CBM-G}{CBM-G}IPl{CBM-Z}{CBM-G}{CBM-G}8{$e9} {CBM-G}{CBM-A}F{CBM-+} =
l{CBM-Z} {CBM-Z} {CBM-E}{$fd}Pl{CBM-Z} {$f9}{CBM-G}{SHIFT-POUND}8{$e9}@{CBM-G}{CBM-G}{CBM-N}{$e9}{CBM-+}{CBM-G}{CBM-+}IC{CBM-A}{SHIFT-POUND}C{CBM-+}{SHIFT-POUND}{CBM-G} =
l{CBM-Z}{CBM-G}{CBM-N}IU{$f0}{$60}  directory full restore or continue
 {$e4}~{$f0}{$fb}IrPl{CBM-X}{$fb}I {CBM-A}{$e6}{CBM-E}
{CBM-E}{$fb}{CBM-A}P{$f8}F{$fc}F{CBM-E}E{CBM-E}{$ed}{$f0}{$eb}{$60}
{CBM-E}{CBM-G}@{CBM-G} =
l{CBM-Z}
{CBM-E}{CBM-G}){CBM-B}{CBM-G}l{SHIFT-POUND}
{CBM-POUND}{CBM-G}l            prg seq usr del or rel
 {$e4}~{$f0}{$fb}Ip{$f0}Is{$f0}Iu{$f0}Ir{$f0}IdP{$e7}{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND},{SHIFT-POUND}
{CBM-G}   =
l{CBM-Z}      write directory. continue y/n
 {$e4}~{$f0}{$fb}Iy{$f0}   =
l{CBM-Z}{SHIFT-POUND}
{CBM-G}{SHIFT-POUND}B{CBM-+}
{SHIFT-POUND}{CBM-G}{$e6}{CBM-+}{CBM-G}{CBM-+}E{CBM-N}P{$f4}{SHIFT-POUND}

8

 the transactor volume 5 issue 06         page 12
]

* data loader for "verifizer" *
R
 vic/64 version
{$7b}
cs{CBM-R}0

 i{CBM-R}828 {CBM-@} 958: a: i,a
{CBM-M}(
cs{CBM-R}cs{CBM-N}a: i
{CBM-Z}2
:
{CBM--}<
 cs{CBM-W}{CBM-E}14755 {CBM-M} "***** data error *****":
{$ea}f
 sys 828
{$f0}p

{$f6}D
:
({$e8}  160,   0, 189,   0,   2, 240,  22, 201
t$  32, 240,  15, 133,  91, 200, 152,  41,   3
. 133,  90,  32, 183,   3, 198,  90,  16, 249
{CBM-U}8 232, 208, 229,  56,  32, 240, 255, 169,  19
{$ea}b  32, 210, 255, 169,  18,  32, 210, 255, 165
l  89,  41,8

 the transactor volume 5 issue 06         page 12
A

* data loader for "verifizer 4.0" *
J
cs{CBM-R}0

 i{CBM-R}634 {CBM-@} 754: a: i,a
(
cs{CBM-R}cs{CBM-N}a: i
2
:
K<
 cs{CBM-W}{CBM-E}15580 {CBM-M} "***** data error *****":
Yf
 sys 634
{CBM-*}p

{$e5}D
:
{$e8}  76, 138,   2, 120
u/d move old and new
         directories up and down


              press any key
 {$e4}~{$f0}{$fb}    'l/shift l' lock and unlock a file
    's/shift s' scratch and unscratch

'space' puts a separator at bottom right      'c' will change the file name

  'w'  the file type and length

  use the dos 'v' command when finished
              press any key

 {$e4}~{$f0}{$fb}           this program is free

       give it to all your friends
  and send me a postcard if you like it
    and especially if you find a bug

5, 167, 208,  58, 173
c$ 254,   1, 133, 251, 162,   0, 134, 253, 189
U.   0,   2, 168, 201,  32, 240,  15, 230, 253
{CBM-M}8 165, 253,  41,   3, 133, 254,  32, 236,   2
Yb 198, 254,  16, 249, 232, 152, 208, 229, 165
l 251,  41,  15,  24, 105, 10

 the transactor volume 7 issue 01 page 11
w{$e8} * data loader for "verifizer +4"
X{$f2} * commodore plus/4 version
{$fc}{$de} 1: {$e8}: {$de} 0:  make room for code
{CBM-M}cs{CBM-R}0
S j{CBM-R}4096 {CBM-@} 4216:  x:  j,x: ch{CBM-R}ch{CBM-N}x:
{$fb} ch{CBM-W}{CBM-E}13146 {CBM-M}  "checksum error":
   3, 169,  16, 141,   3,   3,  96, 165
pT  20, 133, 208, 162,   0, 160,   0, 189
{$7d}{$7e}   0,   2, 201,  48, 144,   7, 201,  58
{CBM-N} 176,   3, 232, 208, 242, 189,   0,   2
W 240,  22, 201,  32, 240,  15, 133, 210
 200, 152,  41,   3, 133, 2098

 the transactor volume ? issue ??         page ??
y
    save"1:verifizerb128",8

    don't know if you need this, but it does work with the pet
{SHIFT-+}
    checkbytes to the extent of identical token numbers.
'
    make sure that line 30 sa
ror *****":
af
 bank 15:sys 1024:rem   bank 15:sys 1027 turns off
gp

mD
:
S
  76, 14,  4,165,251,141,130,  2
 165,252,141,131,  2, 96,173,130
{CBM-B}   2,201, 39,240, 17,133,251,173
{$e5} 131,  2,133,252,169, 39,141,130
    2,169,  4,1476,  74,   3, 165, 251, 141,   2,   3, 165
z{$f2} 252, 141,   3,   3,  96, 173,   3,   3, 201
{$fc}   3, 240,  17, 133, 252, 173,   2,   3, 133
{CBM-V} 251, 169,  99, 141,   2,   3, 169,   3, 141
{$f0}   3,   3,  96, 173, 254,   1, 133,  89, 162
"   0,
Z  15,  24, 105,  97,  32, 210, 255
nv 165,  89,  74,  74,  74,  74,  24, 105,  97
{$60}  32, 210, 255, 169, 146,  32, 210, 255,  24
{CBM-R}J  32, 240, 255, 108, 251,   0, 165,  91,  24
PT 101,  89, 133,  89,  96


, 254,   1, 133,  89, 162
"   0, , 173, 163,   2, 133, 144
i{$f2} 173, 164,   2, 133, 145,  88,  96, 120, 165
{$7b}{$fc} 145, 201,   2, 240,  16, 141, 164,   2, 165
{CBM-Z} 144, 141, 163,   2, 169, 165, 133, 144, 169
{CBM-*}   2, 133, 145,  88,  96,  85, 228, 165, 217
 201,  13, 208,  62, 16 writes the new directory to disk

       'run/stop' returns to basic

          red files are locked
       yellow files are scratched

        all of the above commands
       work on the top right entry

     the line above the directory is

?rick morris
4179 william st.
burnaby b.c.
canada
v5c 3j5


{$60}o basic

          red files are locked
       yellow files are scratched

        all of the above commands
       work on the top right entry

     the line above the directory is

93, 141,   0, 128
=v 165, 251,  74,  74,  74,  74,  24, 105, 193
O{$60} 141,   1, 128, 108, 163,   2, 152,  24, 101
J 251, 133, 251,  96


,   2, 169, 165, 133, 144, 169
{CBM-*}   2, 133, 145,  88,  96,  85, 228, 165, 217
 201,  13, 208,  62, 16$ "sys 4096: rem to enable"
<. "sys 4099: rem to disable"
b8
Ob  76,  14,  16, 165, 211, 141,   2,   3
l 165, 212, 141,   3,   3,  96, 173,   3
Iv   3, 201,  16, 240,  17, 133, 212, 173
{$f6}{$60}   2,   3, 133, 211, 169,  39, 141,   2
#J
{$f9},  32, 113
1{CBM-+}  16, 198, 209,  16, 249, 232, 208, 229
^{CBM-A} 165, 208,  41,  15,  24, 105, 193, 141
{SHIFT-@}   0,  12, 165, 208,  74,  74,  74,  74
{CBM-U}D  24, 105, 193, 141,   1,  12, 108, 211
{$e5}N   0, 165, 210,  24, 101, 208, 133, 208
{$ef}X  96



#Jys 'bank 15', and not some other keyword!
N
                                                  liz deal 6/4/85


* data loader for "verifizer b128" *
{CBM-K}
cs{CBM-R}0
D
{CBM--} 15: i{CBM-R}1024 {CBM-@} 1163: a: i,a
T(
cs{CBM-R}cs{CBM-N}a: i
Z2
:
<
 cs{CBM-W}{CBM-E}16828 {CBM-M} "***** data er
1,131,  2, 96,165
1(   1, 72,162,  1,134,  1,202,165
w0  27,133,233, 32,118,  4,234,177
{$7d}8 136,240, 22,201, 32,240, 15,133
{CBM-T}@ 235,232,138, 41,  3,133,234, 32
Ih 110,  4,198,234, 16,249,200,208
{$ef}p 230,165,233, 41, 15, 24,105,193
x 14170
~:
$cverted from pet {CBM-P} c{CBM-Q}64 versis
{$60}some subs{SHIFT-*}tial changes were needed. writeup  your use:
this will w{CBM-A}k ly  the  buffer does {CBM-POUND} cross page
Wboundry. n{CBM-A}mal buffer is in {CBM--} 1 at $fa5e{CBM-Q}faff, which is ok.
{SHIFT--};

f0400 4c 0e 04    er
7f0411 c9 27       cmp #$27  ; me than the hi {CBM-B}ce i have other
Gf0413 f0 11       beq $0426 ;such in page 4
f0415 85 fb       sta $fb
{CBM-G}f0417 ad 83 02    lda $0283
Cf041a 85 fc       sta $fc
{$e2}f041c a9 27       lda #$27
f041e 8d
 ldx #$01

{CBM-+}f042c 86 01       stx $01
/
{CBM-M}f042e ca          dex
N
{CBM-POUND}f042f a5 1b       lda $1b     ;low byte of line# still Eid
{CBM-E}
{SHIFT-POUND}f0431 85 e9       sta $e9     ; b128 has no line#  the stack.
{$f2}
{CBM-N}f0433 20 76 04    jsr $0476   ;find where line# s in $044e

{CBM-A}f043f 85 eb       sta $eb
'{CBM-E}f0441 e8          inx
a{CBM-R}f0442 8a          txa
^{CBM-W}f0443 29 03       {CBM-P} #$03
{$7c}{CBM-H}f0445 85 ea       sta $ea
{CBM-J}f0447 20 6e 04    jsr $046e
{SHIFT-@}{CBM-L}f044a c6 ea       dec $ea
Z{CBM-Y}f044c 10 f9       bpl $0447
{$f4}{CBM-U}f044e c8 ~{SHIFT-*}f045d 4a          lsr
Af045e 4a          lsr
3Bf045f 4a          lsr
mCf0460 4a          lsr
GDf0461 18          clc
Ef0462 69 c1       adc #$c1
{CBM-+}Ff0464 8d 01 d0    sta $d001
{SHIFT-*}Gf0467 18          clc
{$e7}Hf0468 68          pla        ;5 88       lda $88    ;ptr {CBM-@} {CBM-@}kenized text in the buffer is
{$60}Qf0478 a4 89       ldy $89    ;clobbered. so we'll just re{CBM-K} the
Rf047a 85 85       sta $85    ;line number {CBM-@} {CBM-K} y {CBM-O}itied
{$e1}Sf047c 84 86       sty $86    ;($88{CBM-Q}8a buffer ptr, $85{CBM-Q}87 txtptr    sec        ;buffer {CBM-@} cross pages. s{SHIFT-*}dard
kYf0488 e5 88       sbc $88    ;setup {CBM-A} something similar {CBM-@} it
Zf048a a8          tay        ;is assumed. also, {CBM-POUND}hing will w{CBM-A}k
R{SHIFT-+}f048b 60          rts        ;you move the  buffer from {CBM--} 1.
XP:
{$fe}Z. d followed by ctl{CBM-Q}[ will V a program. hest.
g{CBM-@}{CBM-Q}   1,0:1, etc in the b{CBM-Q}machine does  n o t  supress the
y{CBM-+}questi mark.
_{CBM-D};
{CBM-L}:              upgrade{CBM-Q}pet verizer from your disk:
{CBM--}{SHIFT-*}verizer 2{CBM-Z}4 does {CBM-POUND} w{CBM-A}k in my 2pet. $d9 uses {CBM-*} number. {CBM-*} num
I
{SHIFT-*} {$fd}{CBM-S} {CBM-Z} {CBM-Z}{SHIFT-POUND}D E {SHIFT-+}{CBM-L}
{CBM-E}DhH{CBM-E}DhH{CBM-E}Dh{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}^{SHIFT-POUND}{SHIFT-*}{SHIFT-POUND}w,{SHIFT-POUND}{SHIFT-*}-{SHIFT-POUND}{$7f}{CBM-I}  {SHIFT-@}~H{CBM-POUND}H{CBM-N}H {CBM-X}~ {SHIFT-*}~ {CBM-Y}~P{$60}{SHIFT-POUND}l1{$f3}{CBM-I}{$7f} F~ {$e4}~ R~I
{$f0}& {CBM-Y}~{$f0}{$f1}{SHIFT-POUND}{$7f} C~{CBM-Z}\{SHIFT-*}{CBM-Z}]{SHIFT-*}{SHIFT-POUND}/,{SHIFT-POUND}{$f3}- L~L\{SHIFT-*}{SHIFT-POUND}F{SHIFT-POUND}W{SHIFT-POUND}
X{CBM-G}EI?{$f0}Kl{SHIFT-*}ave"0:directories",8
{CBM-I}
{CBM-X}{SHIFT-*}{$e8} 0,  15, 133, 252, 200
 152,  41,   3, 133, 251,  1,  0,208,165,233, 74, 74, 74
;{$60}  74, 24,105,193,141,  1,208, 24
AH 104,133,  1,108,251,  0,165,235
P  24,101,233,133,233, 96,165,136
{CBM-Z}X 164,137,133,133,132,134, 32, 38
S 186, 24, 32, 78,141,165,133, 56
{$f9} 229,136,168, 96,170,170,170,jmp $040e ;{$e6} {CBM-I} z{CBM-Q}pg places $e9{CBM-Q}eb,fb{CBM-Q}fc
9
f0403 a5 fb       lda $fb
y
f0405 8d 82 02    sta $0282
W
f0408 a5 fc       lda $fc

f040a 8d 83 02    sta $0283
{CBM-E}
f040d 60          rts
{$f4}
f040e ad 82 02    lda $0282 ;test low byte of warm vec {CBM-Q} saf82 02    sta $0282
! f0421 a9 04       lda #$04
a{CBM-K}f0423 8d 83 02    sta $0283
[{CBM-I}f0426 60          rts
{CBM-T}f0427 a5 01       lda $01     ;overabundance of cauti...
X{CBM-@}f0429 48          pha         ; chances are it's 1 anyway.
{$f7}{CBM-G}f042a a2 01      buffer
{CBM-Q}f0436 ea          nop         ; {CBM-@} {CBM-K} y
t{CBM-D}f0437 b1 88       lda ($88),y ; Bing the  buffer
{CBM-Z}f0439 f0 16       beq $0451   ; {$e6} indirect ptr
O{CBM-S}f043b c9 20       cmp #$20    ; x{CBM-Q}y from c64 code are now exchanged
{$ef}{CBM-P}f043d f0 0f       beq          iny
{CBM-O}f044f d0 e6       bne $0437
2{SHIFT-@}f0451 a5 e9       lda $e9
o{CBM-F}f0453 29 0f       {CBM-P} #$0f
I{CBM-C}f0455 18          clc
{CBM-X}f0456 69 c1       adc #$c1
G{CBM-V}f0458 8d 00 d0    sta $d000  ;from pet versi{CBM-Q} the screen
{$e5}{CBM-B}f045b a5 e9       lda $e9
 $1
If0469 85 01       sta $01
;Jf046b 6c fb 00    jmp ($00fb);{CBM-P} back {CBM-@} warm start
FKf046e a5 eb       lda $eb    ;multilpy
Lf0470 18          clc
Mf0471 65 e9       adc $e9
{CBM-C}Nf0473 85 e9       sta $e9
VOf0475 60          rts
Pf0476 a)

Tf047e 20 26 ba    jsr $ba26  ;chr{CBM-K}, y{CBM-R}0
cUf0481 18          clc        ;clc {CBM-POUND} really needed
Vf0482 20 4e 8d    jsr $8d4e  ;{CBM-K} line#, no err{CBM-A}s {CBM-O}sible, i hope.
KWf0485 a5 85       lda $85    ;this code does  n o t  permit the

Xf0487 38      :              b{CBM-Q}bits  your Qi:
b{CBM-Q}   sometimes b128 {CBM-K}s its ters. specically, in graphics mode
sht{CBM-Q}l may come out as sht{CBM-Q}v. two solutis: (1)push , {CBM-P}
Fflip the mode several times, {CBM-A} (2) use ctrl{CBM-Q}[ (that's rol {CBM-P} left
{CBM-I}square bracket)
ebers
Jaren't Fii codes in 2.  {CBM-*} is {CBM-*} 10. check  $0a at $2a7.


ers. specically, in graphics mode
sht{CBM-Q}l may come out as sht{CBM-Q}v. two solutis: (1)push , {CBM-P}
Fflip the mode several times, {CBM-A} (2) use ctrl{CBM-Q}[ (that's rol {CBM-P} left
{CBM-I}square bracket)


erifizer.b128












verifizer.c128











stp sys49152











stp sys828











RUN ME!











RUN ME TEXT











RUN ME FORM









































"D
 "ml break" by amir michail
5N
 j{CBM-R}710 {CBM-@} j{CBM-N}49
nX
 a: c{CBM-R}c{CBM-N}a:  j,a:
O
 c{CBM-W}{CBM-E}5626 {CBM-M} "data error!":

 792,198:  793,2
{CBM-@}
"hit 'restore' to break"
{CBM-N}
:
N{CBM-N}
 169,247,162, 2,141, 24, 3,142
{$f1}{CBM-H}
 25,  3, 32,225,255,208, 3,76
{CBM-V}
 71,254
D
700
#{$e8}; {CBM-J}errupt h{CBM-P}ler tem
){$f2};
c{$fc}; insthdlr, killhdlr,
x; addsrvr, srvr
^;
Ptempvec {CBM-R} $fb
V$;
.ihentries {CBM-R} 4 ;max # of {CBM-J} servers
{CBM-Y}8; increase  necessary
Lb;
{$e7}lchainC {CBM-R} ihentries {CBM-D} 3
{$ed}v;
{$f3}{$60};
Jihchai
a $0314         ; irq vec{CBM-@}r
(
sta {CBM-J}exit{CBM-N}1
5sta irq
clda $0315
s(sta {CBM-J}exit{CBM-N}2
B2sta irq{CBM-N}1
H<;
Xflda #{CBM-W}h{CBM-P}ler
psta $0314 ;po{CBM-J} vec{CBM-@}r {CBM-@} h{CBM-P}ler
{SHIFT-POUND}zlda #{CBM-E}h{CBM-P}ler
{CBM-Y}Dsta $0315
{CBM-B}Nplp
EX;
Mrts
S;
Y;
{$e9} killhdlr {CBM-R}{CBM-D}
{CBM-N};  irqs as e chain in .x
 j;
 tphp
 ^sei
! H;
1 Rsta tempvec
c {$7c}sty tempvec{CBM-N}1
i ;
B lda #$20        ;jsr
T ldy #chainC{CBM-Q}3
{$7f} {CBM-@}ldx #3
{CBM-M} {CBM-S}ais1 cmp ihchain,y ;skip full slots
{CBM-H} {CBM-U}bne ais2
{CBM-C} Bdey
D Ldey
L Vdey
T  dex
{$e1} {$ea}bpl ais1
{$ee} {$f4}bmi ais3
!{$fe}aiserrupt chain
"php
"sei
"{CBM-POUND};
"{CBM-R}clc
)"{CBM-C}lda #0
7"Fris1  dex
d"Pbmi ris2
o"Zadc #3
\"{$e4}bne ris1
J"{$ee}ris2  tay
"{$f8}lda #$ea    ;nop out jsr {CBM-@} server
{CBM-I}"sta ihchain,y
{CBM-L}"sta ihchain{CBM-N}1,y
J"sta ihchain{CBM-N}2,y
R" plp
Z"*rts
 "4;
{$e6}">;
{$f3}"hh{CBM-P}ler {CBM-R}

* 80-column tricks *
3
 100:  200:  300
9

?(
:
yD
 wild screen roundup
XN
 i{CBM-R}6 {CBM-@} 80:  52684,i,1:
{$7e}X


:
H
 character swipe
{CBM-L}R
 i{CBM-R}0 {CBM-@} 8:  52684,i,23
M{CBM--}
 x{CBM-R}1 {CBM-@} 100:  x,i
S{$e6}
:
{$ea}, open the curtain
6 i{CBM-R}0 {CBM-@} 100:  ,

 the transactor volume 8 issue 4 bits
hD
 function key finagler
CN
ad{CBM-R}4864:  relocatable
WX
 i{CBM-R}0 {CBM-@} 79:  n

 ad{CBM-N}i,n: ck{CBM-R}ck{CBM-N}n:
{CBM-A}
 ck{CBM-W}{CBM-E}11227 {CBM-M} "data error"
{CBM-L}
:
{$e3}
 132, 250, 168, 169,  16, 133, 252, 169
{CBM-N}
   0, 133, 251, 136,
  21, 169,   0, 240, 237, 201,  48
k{$f0}
 176,  11, 105,  10, 145, 251, 136,  48
X{$fa}
   6, 169, 255,  48, 222, 145, 251,  96


d{CBM-N}i,n: ck{CBM-R}ck{CBM-N}n:
{CBM-A}
 ck{CBM-W}{CBM-E}11227 {CBM-M} "data error"
{CBM-L}
:
{$e3}
 132, 250, 168, 169,  16, 133, 252, 169
{CBM-N}
   0, 133, 251, 136,
,

 the transactor volume 8 issue 4 bits
m
{$e8}:   0,4,7,"this is up here"
R
 52254: {$fe} 2:   0,11,20,"look!"

 51506: {$fe} 2:  " again"



 ck{CBM-W}{CBM-E}11227 {CBM-M} "data error"
{CBM-L}
:
{$e3}
 132, 250, 168, 169,  16, 133, 252, 169
{CBM-N}
   0, 133, 251, 136,




 the transactor volume 8 issue 4 bits
m
{$e8}:   0,4,7,"this is up here"
R
 52254: {$fe} 2:   0,11,20,"look!"

 51506: {$fe} 2:  " again"



 ck{CBM-W}{CBM-E}11227 {CBM-M} "data error"
{CBM-L}
:
{$e3}
 132, 250, 168, 169,  16, 133, 252, 169
{CBM-N}
   0, 133, 251, 136,
,169, 42, 32,210,255,104
;H
 104,170,104,32,205,189,169,164
{$60}R
  72,169,116,72,169, 32, 72,169
{CBM--}
 198,162, 2,141, 24,  3,142,25
{$e6}
   3,64











RUN ME TEXT











RUN ME FORM












--------------









n  {CBM-D}{CBM-R}{CBM-D}{CBM-N}chainC
'T; server chain Kes here
/{$7e}rts
5;
;;
kinsthdlr {CBM-R}{CBM-D}
K{CBM-+}; install the {CBM-J}errupt h{CBM-P}ler
{$7f}{CBM-A}ldy #chainC {CBM-Q} 1
{SHIFT-@}lda #$ea
{CBM-P}Dih1 sta ihchain,y ;put nops in
SNdey               ; h{CBM-P}ler chain
{CBM-*}Xbpl ih1
{$e5}{$e2};
{$ed}{$ec}php
{$f5}{$f6}sei

ldbee insthdlr
{CBM-H}php
{CBM-V}sei
$Hlda irq
cRsta $0314     ; irq vec{CBM-@}r
r{CBM--}lda irq{CBM-N}1
{$60}{$e6}sta $0315
H{$f0}plp
P{$fa}rts
V;
{$7c};
addsrvr {CBM-R}{CBM-D}
{CBM-P}"; adds routine at address .a{CBM-Z}.y
J,; {CBM-@} the {CBM-J}errupt chain;
{$e5}6; s the number of the
 @; server in th2 sta ihchain,y
!; put h{CBM-P}ler call in
4!; available slot
d!lda tempvec
x!&sta ihchain{CBM-N}1,y
J!0lda tempvec{CBM-N}1
{$7e}!:sta ihchain{CBM-N}2,y
!dais3  plp
!nrts
!x;
 !B;
{CBM-Z}!Lsrvr =*
N!V; oves the interrupt server
{$e3}!; specied in .x

"; from the {CBM-J}
{CBM-D}
#rjsr ihchain ;execute servers
!#\{CBM-J}exit {CBM-R}{CBM-D}
/#Fjmp $ea31
p#P;($ea31 modied by insthdlr)
v#Z;
F#irq  {CBM-D}{CBM-R}{CBM-D}{CBM-N}2
#;{CBM-A}iginal irq vec{CBM-@}r is d here


nrts
!x;
 !B;
{CBM-Z}!Lsrvr =*
N!V; oves the interrupt server
{$e3}!; specied in .x

"; from the {CBM-J}
$52684,i,35
@ x{CBM-R}1 {CBM-@} 10:  x,i


!#\{CBM-J}exit {CBM-R}{CBM-D}
/#Fjmp $ea31
p#P;($ea31 modied by insthdlr)
v#Z;
F#irq  {CBM-D}{CBM-R}{CBM-D}{CBM-N}2
#;{CBM-A}iginal irq vec{CBM-@}r is d here


nrts
!x;
 !B;
{CBM-Z}!Lsrvr =*
N!V; oves the interrupt server
{$e3}!; specied in .x

"; from the {CBM-J} 24, 136,  48,   4
={CBM-H}
 113, 251, 208, 249, 105,   9, 133, 251
J{CBM-V}
 200,  56, 177, 251, 233,  48, 201,  10
H
 144,   6, 230, 251, 208, 244, 240,  39
DR
 164, 250, 138, 113, 251, 176,  15, 201
{$f1}{CBM--}
  58, 144,  26, 233,  10, 145, 251, 136
{$e6}
  48,{$e8}G(147)"  64 projector
8{$f2}"  perspective plotter
r{$fc}"  with hidden lines
H"  by  ian  adam
{$7e}"  vancouver  bc
"  december 1985
$:
A. requires hires plotting routines
{$e5}8 the transactor vol 5  issue 6
b with extensions by

X1390, scale

{$e2}1580, plot
/
{$ec}2550, message
5
{$f6}:
k

198,0:198,1:{CBM-K}b$
F

 b${CBM-R}"r" {CBM-M} 2170:1240

 b${CBM-R}"p" {CBM-M}  hi,0:  du,0,0:  te:1260: dump {CBM-@} er
{CBM-R}
 b${CBM-R}"a" {CBM-M} 1250
J
( b${CBM-R}"n" {CBM-M}  dd {CBM-M}
{$e5}
2 b${CBM-R}"n" {CBM-M} 2650:1220
{$fa}
< b${CBM-R}"v" {CBM-M} v{CBM-R}1{CBM-Q}v{CBM-M} vs{CBM-R}tm
"{CBM-V}: select best feasible scale
(H:
=R calculate rise
u{CBM--}"...still scaling!
C{$e6} y{CBM-R}0 {CBM-@} n
P{$f0}tm{CBM-R}yv(y)
{$7e}{$fa} x{CBM-R}0 {CBM-@} m
r(x,y){CBM-R}z(x,y){CBM-D}vs{CBM-N}tm
x,y
{CBM-G}
{CBM-Q}":
{CBM-B}, set up screen
N6hi,0,0,13
X@dm,1
{$de}j:
{$fa}t plot horizontal lx{CBM-R}0
{$ea}mo,tm{CBM-N}xh(x),r(x,y)
.{$f4}d1,yh(y{CBM-N}1){CBM-N}xh(x),r(x,y{CBM-N}1)
8{$fe} x,y
>:
m draw box
_mo,10,r(0,0)
M&dr,10,10
{$7e}0dr,xh(m),10
:dr,xh(m),r(m,0)
{CBM-@}dmo,xh(m),10
{CBM-V}ndr,xh(m){CBM-N}yh(n),yv(n)
Yxdr,xh(m){CBM-N}yh(n),r(m,n)
{CBM-*}B:
{$eb}L title
Vc
6: vertical separation
th{CBM-R}{CBM-Q}1
0ms$(0){CBM-R}"hide":ms$(1){CBM-R}"show
6
< :
E*"hidden lines to be shown (y/n)";b$
U4h{CBM-R}{CBM-L}(b${CBM-R}"n")
 >"vertical lines to be shown (y/n)";b$
{CBM-A}hv{CBM-R}{CBM-L}(b${CBM-R}"n")
Dr z(m,n),r(m,n)
{CBM--}\ xh(m),yh(n),yv(n)
{$e2}F
{$e8}P:
{$f9}Z:
{$e8} calculate offsets
{$f2} x{CBM-R}0 {CBM-@} m
({$fc}xhriz(x){CBM-R}10{CBM-N}x{CBM-D}xg
.
< y{CBM-R}0 {CBM-@} n
nyhriz(y){CBM-R}y{CBM-D}ys
C$yvert(y){CBM-R}10{CBM-N}y{CBM-D}yg
I.
O8
Ub:
l data to plot
{CBM-K}v:"creating data...
{CBM-E}{$60} dd {CBM-M} 2480
{CBM-B}J x{CBM-R}0 {CBM-@} m
MT y{CBM-R}0 {CBM-@} n
{$e7}{$7e} e {CBM-M} r{CBM-R}{CBM-G}r(x):s{CBM-R}{CBM-G}s(y)
{$f8}o printer

"h:  "ms$(1{CBM-Q}h)" hidden lines
7
"v:  "ms$(1{CBM-Q}v)" vertical lines
j(
"a plot again
B2
"n for a new shape
O<
"q quit
Uf

{$7b}p
:
z
: G(18);" press:":
{CBM-M}D
"1. stetson
{CBM-V}N
"2. inverse waves
OX
"3. furrows

"4. cascade
{$f4}
:"0. first menu
198,1:{CBM-K}a: a{CBM-R}0 {CBM-A} a{CBM-E}2 {CBM-M}
&" a  3230,3470
6, a$,m,n,sp
a6dd{CBM-R}1:
g@:
Dja{CBM-R}m{CBM-Z}2:b{CBM-R}5:c{CBM-R}n{CBM-Z}2:d{CBM-R}2:e{CBM-R}.2
t{CBM-G}r(x){CBM-R}(x{CBM-Q}a){CBM-Z}b:{CBM-G}s(y){CBM-R}(y{CBM-Q}c){CBM-Z}b
{CBM-D}^{CBM-G}z(x){CBM-R}{CBM-B}(r{CBM-D}r{CBM-D}d{CBM-N}s{CBM-D}s){CBM-D}{CBM-X}({CBM-Q}r{CBM-D}r{CBM-Q}s{CBM-D}s){CBM-N}e
{CBM-B}Ha${CBM-R}"stetson":
ER:
M{$7c}a{CBM-R}5
{$e3}{CBM-G}z(x){CBM-R}{CBM-B}(x{CBM-D}y{CBM-Z}m){CBM-N}{CBM-R}n{CBM-Z}2:d{CBM-R}3:e{CBM-R}.1:f{CBM-R}.4
{CBM-G}r(x){CBM-R}(x{CBM-Q}a){CBM-D}(x{CBM-Q}a){CBM-N}(y{CBM-Q}c){CBM-D}(y{CBM-Q}c)
8{CBM-G}s(y){CBM-R}(x{CBM-Q}b){CBM-D}(x{CBM-Q}b){CBM-N}(y{CBM-Q}c){CBM-D}(y{CBM-Q}c)
M{CBM-G}z(x){CBM-R}{CBM-V}({SHIFT-@}(r)){CBM-D}({CBM-X}({CBM-Q}r{CBM-Z}d){CBM-N}e){CBM-N}{CBM-V}({SHIFT-@}(s)){CBM-D}({CBM-X}({CBM-Q}s{CBM-Z}d){CBM-N}e){CBM-N}f
&a${CBM-R}"twin peaks":
0:
{CBM-I}:a{CBM-R}m{CBM-Z}2:b{CBM-R}n{CBM-Z}2:c{CBM-R}45:e{CBM-R}5
Ud{CBM-G}r(x){CBM-R}{CBM-L}((x{CBM-Q}a){CBM-D}(x{CBM-Q}a){CBM-N}(y{CBM-Q}b){CBM-D}(y{CBM-Q}b){CBM-Q}c){CBM-N}e:{CBM-G}s(y){CBM-R}.
{$e6}n{CBM-G}z(
F:
P  30,  94,  83,  90,  44,  31,   7,  29
-Z  95, 266,   0,   0:  1985
z{$e4} 268, 176, 132, 140, 109,  80,   1,  17
{$ee}  60, 167, 225, 170, 186, 239, 122,  98
{CBM-H}{$f8}  40,  84, 102,  30,  99,  97, 325,  77
{$e1}
 247, 229,  68, 116,  18,  28,
 ia
l:
v B(38912){CBM-R}1 {CBM-M} a{CBM-R}2
.{$60} 53281,2{CBM-Q}a
bJ a  1150,1190
]Ta{CBM-R}1: "hiprnt1.ml",8,1
N{$7e} 56,152 :
"hiprnt2.ml",8,1
:
 start here!
{CBM-S}{CBM-+}1990, cs{SHIFT-*}ts
{SHIFT-*}{CBM-A}2650, choose
S{SHIFT-@}2090, cfig'n
{$ec}D2170, viewing angle
{$fb}N2390, {CBM-K}

f b${CBM-R}"h" {CBM-M} h{CBM-R}1{CBM-Q}h
$p b${CBM-W}{CBM-E}"q" {CBM-M} 1260
*z
0D:
gN vertical scaling
_X:"scaling data...
Ovscalar{CBM-R}9e9
{$7d} y{CBM-R}0 {CBM-@} n
a{CBM-R}z(0,y): x{CBM-R}1 {CBM-@} m
{CBM-S}  z(x,y){CBM-E}a {CBM-M} a{CBM-R}z(x,y)
Q{CBM-N}: find highest point on line
~{CBM-H} a {CBM-M} tmp{CBM-R}(199{CBM-Q}yv(y)){CBM-Z}a :  vs{CBM-E}tm ines

^mo,10,r(0,0)
"
Hd1{CBM-R}dr: h {CBM-M} d1{CBM-R}hd
0
R y{CBM-R}0 {CBM-@} n
=
{$7c}tm{CBM-R}yh(y)
k
 x{CBM-R}1 {CBM-@} m
C
d1,tm{CBM-N}xh(x),r(x,y)
J
x
{$7b}
{CBM-@} y{CBM-R}n {CBM-M} 1800

{CBM-S}:

{CBM-U} plot vertical lines
{SHIFT-@}
Bdr,yh(y{CBM-N}1){CBM-N}xh(m),r(m,y{CBM-N}1)
U
Ld1,yh(y){CBM-N}xh(m),r(m,y)
{$e9}
V x{CBM-R}m{CBM-Q}1 {CBM-@} 0 {SHIFT-POUND}{CBM-Q}1
{$f7}
  v {CBM-M} o,8:pr,1,24,a$
:
 wait for human
.198,3:198,0
?te: G(147)
e{CBM-POUND}
k{CBM-R}:
\{CBM-C}  constants
{$7b}Fhi{CBM-R}49152:dr{CBM-R}49155:mo{CBM-R}49161
Pdm{CBM-R}49167:co{CBM-R}49173:te{CBM-R}49179
{CBM-O}Zpr{CBM-R}49182:hd{CBM-R}49191:du{CBM-R}49194
P{$e4}m{CBM-R}20: x-dimension
{$e7}{$ee}n{CBM-R}16: y-dimension
{$f8}sp{CBM-R}9 view angle
" theta{CBM-W}0 {CBM-M} theta{CBM-R}60: default angle
o:"enter viewing angle, or press return
E"for"th"degrees:
{CBM-I}th : th{CBM-W}0 {CBM-A} th{CBM-E}90 {CBM-M} 2180
{CBM-D}an{CBM-R}th{CBM-D}~{CBM-Z}180
{CBM-+}{CBM-L}tmp{CBM-R}120{CBM-D}{CBM-V}(an)
{CBM-V}{SHIFT-*}xgrid{CBM-R}{CBM-J}((309{CBM-Q}tm){CBM-Z}m)
VJygrid{CBM-R}{CBM-J}(sp{CBM-D}{CBM-B}(an){CBM-Z}n)
{$e7}Tystp{CBM-R}{CBM-J}(tm{CBM-Z}n)
{$ed}{$de}z(x,y){CBM-R}{CBM-G}z(x)
y:x;:x:
:
6{CBM-+}  read empirical results from data
d{CBM-A} y{CBM-R}0 {CBM-@} n
r{SHIFT-@} x{CBM-R}0 {CBM-@} m
_D z(x,y)
MNx:y;:y
SX
Y{$e2}:
{$ec} *** menus: ***
{CBM-D}{$f6} G(19)G(18);" press:":
N

"r review from another angle
{$f1}

"p send projection t"5. twin peaks

"6. crater

"7. radial
'{CBM-N}
"8. read data
-{CBM-H}
:
<{CBM-V}
198,1:{CBM-K}a$
\H
e{CBM-R}0:a{CBM-R}E(a$): a{CBM-W}1 {CBM-A} a{CBM-E}8 {CBM-M}
R
 a  2890,2940,2980,3020,3070,3130,3180,2800
{CBM--}
a$:
{$e6}
:
{CBM-O}{$f0}
: G(18);" press:":
K{$fa}
"1. rainfall
{$de}"2. more data
{$f4}a
{$fc}a${CBM-R}"inverse waves":
:
{CBM-@}a{CBM-R}m{CBM-Z}2:b{CBM-R}n{CBM-Z}2:c{CBM-R}4:d{CBM-R}1
<{CBM-S}{CBM-G}z(x){CBM-R}{CBM-B}((x{CBM-Q}a){CBM-D}(y{CBM-Q}b){CBM-Z}b){CBM-N}y{CBM-Z}c{CBM-N}d
o{CBM-U}a${CBM-R}"furrows":
uB:
MLa{CBM-R}6:b{CBM-R}2:c{CBM-R}.1:e{CBM-R}{CBM-Q}1.2
V{CBM-G}r(x){CBM-R}y{CBM-Z}n{CBM-Q}x{CBM-Z}m:{CBM-G}s(y){CBM-R}r{CBM-N}r
{CBM-R} {CBM-G}z(x){CBM-R}(c{CBM-N}{CBM-X}(s{CBM-N}r)){CBM-D}{CBM-V}(a{CBM-D}r{CBM-D}r{CBM-Q}a{CBM-D}s{CBM-N}e){CBM-N}b
E{$ea}a${CBM-R}"cascade":
K{$f4}:
{$f2}{$fe}a{CBM-R}{CBM-J}(m{CBM-Z}3):b{CBM-R}m{CBM-Q}a:cx){CBM-R}e{CBM-Z}r{CBM-N}e
{$f8}xa${CBM-R}"crater":
{$fe}B:
La{CBM-R}m{CBM-Z}2:b{CBM-R}n{CBM-Z}2:c{CBM-R}.001:d{CBM-R}40
mV{CBM-G}z(x){CBM-R}({CBM-L}(x{CBM-Q}a){CBM-N}{CBM-L}(y{CBM-Q}b)){CBM-D}{CBM-B}(4{CBM-D}A((y{CBM-Q}b){CBM-Z}(x{CBM-Q}a{CBM-N}c))){CBM-N}d
_a${CBM-R}"radial":
E:
K:
 65,B(61):  66,B(62):  set data ptr
{CBM-POUND}
{CBM-I}{CBM-R}:
Y{CBM-C} rainfall in mm   vancouver   1975-1985,11,10,160
{CBM-*}
74,  44

  46, 131, 173, 131,  57, 106, 124, 173
;
 130, 138,  17,  59,  89, 125, 274, 157
H
  96, 165, 120,  71,  54, 100,  74,  35
*
 104,  40, 319, 218:  1980
{CBM-L}4
  57, 162,  61,  57,  49,  33,  32,  19
{$e3}>
  74,  76,  65, 294, 113,  9
K10, 268:  1975
{$eb}
:

 65,B(61):  66,B(62):  set data ptr


"{CBM-I}
:
={CBM-D}
 none entered,1,1,100


6, 165, 120,  71,  54, 100,  74,  35
*
 104,  40, 319, 218:  1980
{CBM-L}4
  57, 162,  61,  57,  49,  33,  32,  19
{$e3}>
  74,  76,  65, 294, 113,  9

  'circles'  in basic
;
B(49152){CBM-W}{CBM-E}76{CBM-M}"hires",8,1
aD
:
GN
hires{CBM-R}12{CBM-D}4096:draw{CBM-R}hi{CBM-N}3:plot{CBM-R}dr{CBM-N}3
X
move{CBM-R}pl{CBM-N}3:clscr{CBM-R}mo{CBM-N}3:dmode{CBM-R}cl{CBM-N}3
{CBM-P}
selpc{CBM-R}dm{CBM-N}3:colour{CBM-R}se{CBM-N}3:box{CBM-R}co{CBM-N}3
R
text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3:chset{CBM-R}pr{CBM-N}3

trap{CBM-R}ch{CBM-N}3
{$e6}
:
{CBM-N}
  basic circles -
,12,"polygons"

" t{CBM-R}1{CBM-@}2000:
!
,:
b
6  basic circles - potential
t
@ hires,0,1,6
R
jxc{CBM-R}160:yc{CBM-R}100:xr{CBM-R}99:yr{CBM-R}79

tphi%{CBM-R}0:yphi%{CBM-R}0:xyphi%{CBM-R}0:y%{CBM-R}0:x%{CBM-R}xr
{CBM-P}
^f{CBM-R}0: xr{CBM-W}yr {CBM-M} f{CBM-R}1
S
H f{CBM-R}1 {CBM-M} x%{CBM-R}yr:tm{CBM-R}xr:xr{CBM-R}yr:yr{CBM-R}tm
{$e5}
R  start loop
{$fe}
{$7c}  yphi%{CBM-R}phi%{CBM-N}y%{CBM-N}
{$f4}   plot,xc{CBM-Q}x2,yc{CBM-N}y2
*{$fe}   plot,xc{CBM-Q}x2,yc{CBM-Q}y2
c   plot,xc{CBM-N}x2,yc{CBM-Q}y2
k  :
D   plot,xc{CBM-N}x3,yc{CBM-N}y3
{$7d}&   plot,xc{CBM-Q}x3,yc{CBM-N}y3
0   plot,xc{CBM-Q}x3,yc{CBM-Q}y3
{CBM-P}:   plot,xc{CBM-N}x3,yc{CBM-Q}y3
{CBM-J}d:
Nn  phi%{CBM-R}yphi%:y%{CBM-R}y%{CBM-N}1
~x   {CBM-L}(xyphi%){CBM-W}{CBM-L}(yphi%) {CBM-M} phi%{CBM-R}xyphi
{SHIFT-*}lBAl{$f7}ClBClNBlBlVDl{$e4}DlElcEl{SHIFT-POUND}{SHIFT-*}lNElGGlH











~
{$f8}









{$f0}{$f0}

P



{CBM-Z}:{SHIFT-*}P{CBM-Z}
{SHIFT--}9{SHIFT-*}{CBM-Z}P:{SHIFT-*}{CBM-Z}P;{SHIFT-*}{CBM-Z}P<{SHIFT-*} N{SHIFT-*}{$60}{CBM-Z}
I{$e7}P{CBM-Z}I{SHIFT-*}{$f0},{CBM-Z}
{$ea}{SHIFT-*}{CBM-Z}{$eb}{SHIFT-*}{SHIFT-POUND}{$e7}
{SHIFT-POUND}{SHIFT-*}{CBM-Z})A{CBM-Z}*A{SHIFT-POUND}{SHIFT-POUND}A{$60}{CBM-Z}:{SHIFT-*}{$f0}P{CBM-Z}9{SHIFT-*}
{SHIFT--}{CBM-Z};{SHIFT-*}P{CBM-Z}<{SHIFT-*}P{SHIFT-POUND}
:{SHIFT-*}{$60}h{SHIFT-POUND}{$7f}
{CBM--}{CBM-G}8{SHIFT-*}){$fd}H{$60}h{CBM-Z}8{SHIFT-*}{SHIFT-POUND}
{CBM--}H{$60}l{$e3}
,l{SHIFT-*}{$f5}{SHIFT-POUND}
{SHIFT-POUND}
{CBM-Z}PP{SHIFT-POUND}P
{CBM-Z}P){$ef}P{SHIFT-POUND}6{SHIFT-*}i~7{SHIFT-*}{SHIFT-POUND}~3{SHIFT-*}{$60}{SHIFT-POUND}a{SHIFT-*}{CBM-Z}c{SHIFT-*}b{SHIFT-*}{SHIFT-POUND}4{SHIFT-*} A{CBM-Z}-{SHIFT-*}



>{SHIFT-*}f{SHIFT-*}{CBM-Z}+{SHIFT-*})={SHIFT-*},5{SHIFT-*}0
>{SHIFT-*}>{SHIFT-*}f{SHIFT-*}lkA!P YA)?{SHIFT-*} YA@{SHIFT-*}{CBM-Z}>{SHIFT-*}lkA A{CBM-I}{CBM-X}+{SHIFT-*}'{SHIFT-*}J{$f7}{$60}8{SHIFT-POUND}G{$ed}){SHIFT-*}hjjj{$fc}
{$fb}jF{$fb}jF{$fb}E{$fc}{$fc}{CBM-Z}'{SHIFT-*}{CBM-S}({SHIFT-*}-7{SHIFT-*},5{SHIFT-*}
h*{CBM-N}HE{$fb}{$fb}E{$fc}{$fc}H)E{$fb}{$fb}{$fd}{$e6}{$fc}{CBM-G}{$fc}jF{$fd}jF{$fd}jF{$fd}{$fe},5{SHIFT-*}0{SHIFT-POUND}
E{$fd}{$fd}{SHIFT-POUND}LE{$fe}{$fe}l{$f9}B{CBM-Z}a{SHIFT-*}I{$ea}{SHIFT-POUND}
E{$fd}{$fd}{SHIFT-POUND}XE{$fe}{$60} A Y
{$f0},I{CBM-@}P QB S
 A Y
I,P
 {$e4}D Y
I,P VD +D Y
I{CBM-@}{$f0}{CBM--}{$60} I{SHIFT-*}{CBM-I}
 C{CBM-I} C{CBM-G}BED{CBM-G}C{$e5}E> {CBM-O}C$K
 QB8{SHIFT-POUND}
{$e5}LL {$7d}B C{$e6}HP{$e6}I{$f0}F{$ee}'{SHIFT-*}P{$ee}({SHIFT-*} QC{CBM-Z}){SHIFT-*}EL){SHIFT-*} {$7d}B Cl[D{CBM-I}{CBM-J}B{CBM-H}DDBJ{$f5} {CBM-O}C$K
 QB8{SHIFT-POUND}
{$e5}LL {$7d}B C{$e6}H{$f0}{CBM-Z}){SHIFT-*}EL){SHIFT-*} QC{$ee}'{SHIFT-*}P{$ee}({SHIFT-*} {$7d}B Cl{CBM-+}D$K C QBlZ{SHIFT-*} YA)iJJJ4{SHIFT-*}{$60} YA){$f0},5{SHIFT-*}a{SHIFT-*}{CBM-N}({$fb}{$e6}{$fc}JP{$f2}{CBM-Z}i{SHIFT-*}E{$fb}{$fb}{$fd}{SHIFT-POUND}
E{$fc}{$fc}hIX{$fe}HIL{$fb}&{$fc}{$fb}&{$fc}{$fb}&{$fc}{CBM-G}{$fc}I {$fc} {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N}
{$e8}JP{$60}{CBM-E}" iFHl<FWhh{CBM-G}W0I I{$60}){CBM-*}P)?lNG){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lLGIP {SHIFT-+}Gl GIP{CBM-I}( gGJP{$fa}l GIP{SHIFT-POUND}k{SHIFT-*}l GIP gGl G{CBM-I},{CBM-I}{SHIFT--}MF{$f0}J{$f8}l G{CBM-X}{SHIFT--}F



>{SHIFT-*},5{SHIFT-*}0
={SHIFT-*}>{SHIFT-*} 3El G


IP XGl GIP{CBM-I}( GJP{$fa}l GIP{SHIFT-POUND}
k{SHIFT-*}l GIP Gl G{CBM-G}{$fd}PF{$fe}F{$fd}{CBM-G}PFF8{CBM-G}{$fb}{$e9}{$fb}{CBM-G}{$fc}{$e9}
{$fc}{CBM-G}{$fb}I
{CBM-G}{$fc}{$e9} {CBM-A} gG{$60}{$e6}{$fd}P{$e6}{$fe}{$e6}P{$e6}{SHIFT-POUND}E{$fb}{$fb}{$e6}{$fc}{CBM-G}{$fb}I@{CBM-G}{$fc}{$e9}~ G{$60}@{CBM-S}k{SHIFT-*}{$f0} {CBM-G}G  {$e6}G{CBM-E}{$fb}{$f9} {$f5}GH{CBM-Z}={SHIFT-*},5{SHIFT-*}{CBM-Z}@{SHIFT-*}{$fd}{CBM-Z}?{SHIFT-*}
>{SHIFT-*} gGH{CBM-POUND}H{CBM-N}{$60}{SHIFT-POUND}
&&&{CBM-Z}g{SHIFT-*}E{CBM-Z}h{SHIFT-*}E{$60} {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}P{CBM-G}P{CBM-I}P,{CBM-I}Xh{SHIFT-*}{CBM-I}
g{SHIFT-*}{$60}{CBM-Z}{CBM--}){$fe}{CBM--}5,  77,  84
h
  65,  23,   9, 104,  96,  42, 124,  88
=r
 102,  87,  84,  52,  98,  18,  51,  53
J\
  82,  98,  20, 140, 167, 159, 112,  87
F
  95,  67,  24,  84,  53,  81,  64, 135
DP
 162, 126, 118,  30,  49,  31,  19, 106
{$e5}Z
   1, 300, 2
3{CBM-G}){$fb}{$60}{CBM-G}{CBM-Z}{CBM--}{CBM--}{$60} Y
{$f0} N{SHIFT-*} YA{$f5}{SHIFT-*}{$f9}{SHIFT-*}{SHIFT-POUND},{SHIFT-POUND}
l{SHIFT-*}{$60}

{$fc}{CBM-G}{$fc}I {$fc} {$fd}{CBM-S} {CBM-Z} {CBM-Z} {CBM-+}{CBM-L}{CBM-N}
{$e8}JP{$60}{CBM-E}" iFHl<FWhh{CBM-G}W0I I{$60}){CBM-*}P)?lNG){$7f}I{$7f}P{SHIFT-POUND}^I {$7d}lLGIP {SHIFT-+}Gl GIP{CBM-I}( gGJP{$fa}l GIP{SHIFT-POUND}k{SHIFT-*}l GIP gGl G{CBM-I},{CBM-I}{SHIFT--}MF{$f0}J{$f8}l G{CBM-X}{SHIFT--}F



>{SHIFT-*},5{SHIFT-*}0
={SHIFT-*}>{SHIFT-*} 3El G


IPpolygons
{CBM-H}
 hires,0,1,6
6{CBM-V}
xc{CBM-R}160:yc{CBM-R}100:xr{CBM-R}99:yr{CBM-R}79
mH
sa{CBM-R}0 :ea{CBM-R}360:inc{CBM-R}5
VR
z1{CBM-R}sa{CBM-D}~{CBM-Z}180:z2{CBM-R}ea{CBM-D}~{CBM-Z}180:z3{CBM-R}inc{CBM-D}~{CBM-Z}180
{CBM--}
x{CBM-R}xc{CBM-N}xr{CBM-D}{CBM-V}(z1):y{CBM-R}yc{CBM-N}yr{CBM-D}{CBM-B}(z1)
{CBM-G}{$e6}
 move,x,y
{CBM-Y}{$f0}
 i{CBM-R}z1{CBM-@}z2 {SHIFT-POUND}z3
W{$fa}
  x{CBM-R}xc{CBM-N}xr{CBM-D}{CBM-V}(i):y{CBM-R}yc{CBM-N}yr{CBM-D}{CBM-B}(i)
{$e8}   draw,x,y
{$ee}


 prnt,16y%{CBM-N}1
  xyphi%{CBM-R}yphi%{CBM-Q}x%{CBM-Q}x%{CBM-N}1
3   f{CBM-R}0 {CBM-M} x2{CBM-R}x%:x3{CBM-R}y%
m   f{CBM-R}1 {CBM-M} y3{CBM-R}x%:y2{CBM-R}y%
H{CBM-@}  t2%{CBM-R}x%:t1%{CBM-R}t2%{CBM-D}yr{CBM-Z}xr
{$7d}{CBM-S}   f{CBM-R}0 {CBM-M} y3{CBM-R}t1%
{CBM-U}   f{CBM-R}1 {CBM-M} x2{CBM-R}t1%
{CBM-Z}B  t2%{CBM-R}y%:t1%{CBM-R}t2%{CBM-D}yr{CBM-Z}xr
BL   f{CBM-R}0 {CBM-M} y2{CBM-R}t1%
WV   f{CBM-R}1 {CBM-M} x3{CBM-R}t1%
{CBM-*}   :
{$f8}{$ea}   plot,xc{CBM-N}x2,yc{CBM-N}y2
G%:x%{CBM-R}x%{CBM-Q}1

B   x%{CBM-E}y%  380 'loop  m{CBM-A}e
%
L:
b
V prnt,16,12,"potential"
s
 t{CBM-R}1{CBM-@}2000:
y



2%{CBM-D}yr{CBM-Z}xr
{$7d}{CBM-S}   f{CBM-R}0 {CBM-M} y3{CBM-R}t1%
{CBM-U}   f{CBM-R}1 {CBM-M} x2{CBM-R}t1%
{CBM-Z}B  t2%{CBM-R}y%:t1%{CBM-R}t2%{CBM-D}yr{CBM-Z}xr
BL   f{CBM-R}0 {CBM-M} y2{CBM-R}t1%
WV   f{CBM-R}1 {CBM-M} x3{CBM-R}t1%
{CBM-*}   :
{$f8}{$ea}   plot,xc{CBM-N}x2,yc{CBM-N}y2{CBM-I}{$fa}{SHIFT-POUND}{CBM-M}h{SHIFT-POUND}{$e9}hl{CBM-T}{CBM-POUND} {SHIFT-POUND}{SHIFT-*}{CBM-Z}{$ea}{SHIFT-*}
{CBM-Z}{$eb}{SHIFT-*}{CBM-Z})A{CBM-Z}*A{SHIFT-POUND}
l{SHIFT-*}l{CBM-@}{CBM-@}{$fe}{$f0}

{$fb}HP{$fb}{$e6}{$fc}F{$fe}P{$f3}{CBM-@}{$fd}{$f0}
{$f0}{$fb}P{$fb}{$fb}{$60} I{SHIFT-*}
{$fb} L{$fc} {$e8}{$fd} {$fe} +A{SHIFT-POUND}
{$fb}{SHIFT-POUND} {$fc}{SHIFT-POUND}@{$fd}{SHIFT-POUND}{$fe}{SHIFT-POUND}
 +AlZ{SHIFT-*} {$fd}{CBM-S} {CBM-Z} {$f7}{CBM-Y}{CBM-+}{CBM-G}{$60} {$fd}{CBM-S} {$7c}A+{SHIFT-*},{SHIFT-*} YA-{SHIFT-*}.{SHIFT-*}{SHIFT-POUND}?{CBM-I},5{SHIFT-*}{SHIFT-POUND}{CBM-I}
M+{SHIFT-*}{$ed},{SHIFT-*}{CBM-A}lh{CBM-R}{SHIFT-POUND}GM-{SHIFT-*}{SHIFT-POUND}
{$ed}.{SHIFT-*}{$f1}{$60} m{SHIFT-*} YA{$f0}{SHIFT-POUND}5{SHIFT-*} Y
{$f0} B{CBM-Z}
{SHIFT--}i
{SHIFT--}{CBM-Z}P)0P{CBM-Z}P P,5{SHIFT-*}{$fe}{CBM-G}{$fb}I
{$fb}{CBM-G}{$fc}I {$fc}{CBM-Z}'{SHIFT-*}-6{SHIFT-*}{CBM-N}{$60}{SHIFT-POUND}
{CBM-POUND},4{SHIFT-*}Pp$0{SHIFT-POUND}~$K0{$60}{CBM-E}{$fb}m3{SHIFT-*},5{SHIFT-*}0
=vCA{CBM-X}vCP=^CA{CBM-X}^Ci~1{$fb}A{$fb}{CBM-E}{$fd}-b{SHIFT-*}
f{SHIFT-*}{$fd}{$60}@ {SHIFT-*}0 NB Y
{$f0} {$e4}D Y
{$f0} VD I{SHIFT-*} {$7d}B ClZ{SHIFT-*}{SHIFT-POUND}J{SHIFT-POUND}
K8{CBM-X}+{SHIFT-*}{$fd}'{SHIFT-*}B{CBM-X},{SHIFT-*}{$fd}({SHIFT-*}C{SHIFT-POUND}~JK8{SHIFT-POUND}
{$f5}BB{SHIFT-POUND}
{$f5}CC{$60}BPJK{$60}{CBM-G}CjG{CBM-G}BJF{SHIFT-POUND}
{$e5}BH{SHIFT-POUND}
{$e5}CI{$60}{CBM-G}FEDF{CBM-N}{CBM-G}GEEGECP{$e4}B
8{$e5}BF{CBM-G}G{$e5}CG8{CBM-X}={SHIFT-*}f{SHIFT-*}{CBM-X}b{SHIFT-*}b{SHIFT-*}{CBM-X}E3{SHIFT-*}{$60}
u{CBM-N}~ YA



>{SHIFT-*},5{SHIFT-*}0
={SHIFT-*}>{SHIFT-*}l3E YA)?{SHIFT-*} YA)@{SHIFT-*}{CBM-S}a{SHIFT-*}{CBM-X}={SHIFT-*}f{SHIFT-*}{CBM-X}b{SHIFT-*}b{SHIFT-*}{$60} NB A{CBM-I}{CBM-X}+{SHIFT-*}/{SHIFT-*}J{$f7} Y
{$f0} {$e4}D Y
{$f0} VD{CBM-Z}'{SHIFT-*}M/{SHIFT-*}+{SHIFT-*}{CBM-Z}({SHIFT-*}M0{SHIFT-*},{SHIFT-*}{CBM-Z}){SHIFT-*}-{SHIFT-*}{CBM-Z}*{SHIFT-*}.{SHIFT-*} A +D8{CBM-Z}-{SHIFT-*}{$ed}1{SHIFT-*}-{SHIFT-*}{CBM-Z}.{SHIFT-*}{$ed}2{SHIFT-*}.{SHIFT-*} {CBM-J}A +D8{CBM-Z}+{SHIFT-*}{$ed}/{SHIFT-*}+{SHIFT-*}{CBM-Z},{SHIFT-*}{$ed}0{SHIFT-*},{SHIFT-*} +D{CBM-Z}-{SHIFT-*}M1{SHIFT-*}-{SHIFT-*}{CBM-Z}.{SHIFT-*}M2{SHIFT-*}.{SHIFT-*}l+D{SHIFT-POUND}
{$fb}{$fc} {$f1}{CBM-Y} (lh{CBM-R}i{SHIFT-*} {$f1}{CBM-Y}j{SHIFT-*}{$f0} {CBM-A}{$ed}{CBM-G}{$fb}I
,

 ml circles using potential algorithm
k
B(49152){CBM-W}{CBM-E}76{CBM-M}"hires",8,1
R
B(32800){CBM-W}{CBM-E}32{CBM-M}"potential.obj",8,1
XD
:
N
hires{CBM-R}12{CBM-D}4096:draw{CBM-R}hi{CBM-N}3:plot{CBM-R}dr{CBM-N}3
BX
move{CBM-R}pl{CBM-N}3:clscr{CBM-R}mo{CBM-N}3:dmode{CBM-R}cl{CBM-N}3
{$e6}
selpc{CBM-R}dm{CBM-N}3:colour{CBM-R}se{CBM-N}3:box{CBM-R}co{CBM-N}3

text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3
{$ea}ircle,xc,yc,xr,yr
!
 prnt,10,9,"2"
'
":
e
,xc{CBM-R}275:yc{CBM-R}100:xr{CBM-R}30:yr{CBM-R}80
^
6 circle,xc,yc,xr,yr
S
@ prnt,34,12,"3"
Y
j:

txc{CBM-R}52:yc{CBM-R}45:xr{CBM-R}35:yr{CBM-R}30
{CBM-S}
^ circle,xc,yc,xr,yr
B
H prnt,6,19,"4"
H
R:
{CBM--}
{$7c} j{CBM-R}1 {CBM-@} 3000:
{$e2}




text{CBM-R}bo{CBM-N}3:prnt{CBM-R}te{CBM-N}3
C
o
f
7
{CBM-I}{CBM-X}+{SHIFT-*}/{SHIFT-*}J{$f7}{$60}{CBM-I}{CBM-X}+{SHIFT-*}
J{$f7}{$60} A  A {SHIFT-POUND}
&wx)*{CBM-Z}
'M{CBM-Z}({$ed}{CBM-A}"{SHIFT-POUND}~&{CBM-Z}'{CBM-N}{CBM-Z}({CBM-POUND}{CBM-Z}

{CBM-Z}{CBM-+}*z{CBM-G})
&z8Ewy{CBM-G}zExz{CBM-+}(\{CBM-G}'
&\[{CBM-G}y{$e5}[[{CBM-G}z{$e5}\\{CBM-G}'{CBM-+}({CBM-@}&0%+{SHIFT-*},{SHIFT-*} {CBM-B}{CBM-G}){CBM-+}* {CBM-B}-{SHIFT-*}.{SHIFT-*}l{$e7} {CBM-B}+{SHIFT-*},{SHIFT-*}{CBM-G}){CBM-+}*-{SHIFT-*}.{SHIFT-*} {CBM-B} m{CBM-Z}{CBM-S}+{SHIFT-*},{SHIFT-*}{CBM-Z}{CBM-S}
(&%&"{CBM-G}"{$ed}
{CBM-POUND}{CBM-G}#{$ed}"#JP{$e3}&$&%{CBM-G}${CBM-+}%{$60}l{CBM-F} A {SHIFT-POUND}
&wx)*{CBM-Z}
'M{CBM-Z}({$ed}{CBM-A}"{SHIFT-POUND}~&{CBM-Z}'{CBM-N}{CBM-Z}({CBM-POUND}{CBM-Z}

{CBM-Z}{CBM-+}*z{CBM-G})
&z8Ewy{CBM-G}zExz{CBM-+}(\{CBM-G}'
&\[{CBM-G}y{$e5}[[{CBM-G}z{$e5}\\{CBM-G}'{CBM-+}({CBM-@}&0%+{SHIFT-*},{SHIFT-*} {CBM-B}{CBM-G}){CBM-+}* {CBM-B}-{SHIFT-*}.{SHIFT-*}l{$e7} {CBM-B}+{SHIFT-*},{SHIFT-*}{CBM-G}){CBM-+}*-{SHIFT-*}.{SHIFT-*} {CBM-B} m{CBM-Z}{CBM-S}+{SHIFT-*},{SHIFT-*}{CBM-Z}{CBM-S}$D
  'hires'  circle - potential
iN
  source file by anthony bryant
sX
 700
^
.opt n
D
;
J
;

;"hires" variables by g.kiziak
{CBM-Z}{CBM-N}
x1   {CBM-R} $c027 ;current {CBM-O}iti
{CBM-V}{CBM-H}
y1   {CBM-R} $c029
X{CBM-V}
x2   {CBM-R} $c02b ;{CBM-I} {CBM-O}iti
{$e9}H
y2   {CBM-R} $c02d
R
xc   {CBM-R} $c02f ;ciplt  {CBM-R}$c375 ;{CBM-J}ernal plot
3
@idrw  {CBM-R}$c42b ;{CBM-J}ernal draw{CBM-@}
9
j;
o
t;zero page labels
\
^t1 {CBM-R} $22
I
Ht2 {CBM-R} $24
X
Rflag {CBM-R} $26

{$7c}x  {CBM-R} $27

y  {CBM-R} $29

phi {CBM-R} $57
{CBM-P}
phiy {CBM-R} $59
{CBM-B}
{CBM-@}phixy {CBM-R} $5b
E
{CBM-S};
{CBM-*}
{CBM-U}{CBM-D}{CBM-R}$8000    ;545 bytes
{$e5}
B;
{$fe}
Lxr  .w{CBM-A} 0  ;x rax
Lsta xr,x
Vdex
bpl movr{CBM-N}2
%rts
+;
e; circle,xc,yc,xr,yr
t{CBM-POUND}circle {CBM-R} {CBM-D}
{$60}{CBM-R}jsr ie{CBM-K}
Z{CBM-C}jsr movc ;move{CBM-@} xc,yc
Fjsr ie{CBM-K}
 Pjsr movr ;move{CBM-@} xr,yr
{CBM-Q}Zlda #0
{CBM-U}{$e4}sta flag
D{$ee}sta phi
R{$f8}sta phi{CBM-N}1
{CBM--}sta y
{$e8}sta y{CBM-N}1
{$ee};
~ casstx xr   ; xr with yr
Tlda xr{CBM-N}1
${$de}sta yr{CBM-N}1
1{$e8}sty xr{CBM-N}1
7{$f2};
u{$fc}loop {CBM-R} {CBM-D} ;main loop start
Aldx y{CBM-N}1
Pstx phiy{CBM-N}1
Zlda y
$asl      ;phiy{CBM-R}phi{CBM-N}y{CBM-N}y{CBM-N}1
{CBM-+}.rol phiy{CBM-N}1
{CBM-S}8sec
{SHIFT-@}badc phi
Glsta phiy
Vvlda phiy{CBM-N}1
{$e4}{$60}adc phi{CBM-N}1
{$f3}Jsta phiy{CBM-N}sta x2
2stx x2{CBM-N}1
<jsr scale
fsta y3
*pstx y3{CBM-N}1
4zlda y
@Dldx y{CBM-N}1
kNsta x3
xXstx x3{CBM-N}1
Fjsr scale
Qsta y2
{$7e}stx y2{CBM-N}1
 jmp doplt
{CBM-N}altn sta y3
{SHIFT-POUND}{CBM-H}stx y3{CBM-N}1
{CBM-Y}{CBM-V}jsr scale
BHsta x2
ORstx x2{CBM-N}1
Y{CBM--}lda y
{$e5}{$e6}ldx y{CBM-N}1
{$f0}{$f0}sta y2
{$fd}{$fa}stx y2{CBM-N}1
jsr scale
sta x3
#stx x3{CBM-N}1
)";
=,doplt jsr plot4
h6lda x3
u@ldx x3{CBM-N}1
{$60}jsta x2
Mtstx x2{CBM-N}1
X^lda y3
Hldx y3{CBM-N}1
Rsta y2
{$7c}stx y2{CBM-N}1
{CBM-Q}jsr plot4
{CBM-E};
{CBM-F}inc y
F{CBM-@}bne j1
Z{CBM-S}inc y{CBM-N}1  ;y{CBM-R}y{CBM-N}1
{$ea}{CBM-U}j1 lda phiy
:chset{CBM-R}pr{CBM-N}3

trap{CBM-R}ch{CBM-N}3

:
l{CBM-N}
circle{CBM-R}32768{CBM-N}32 : not the same as polygon
^{CBM-H}
 hires,0,1,6
D{CBM-V}
:
{$7e}H
 prnt,17,1,"circles"
R
:
{CBM-I}{CBM--}
xc{CBM-R}155:yc{CBM-R}100:xr{CBM-R}99:yr{CBM-R}79
{CBM-F}{$e6}
 circle,xc,yc,xr,yr
P{$f0}
 prnt,19,12,"1"
V{$fa}
:
{$f4}xc{CBM-R}100:yc{CBM-R}120:xr{CBM-R}90:yr{CBM-R}50


 c
Bldx phiy{CBM-N}1 ;phi{CBM-R}phiy
Lsta phi
Vstx phi{CBM-N}1
; {CBM-L}1 jsr {CBM-L}v   ;take {CBM-L}(phiy)
f{$ea}sta t2
s{$f4}stx t2{CBM-N}1
A{$fe}lda phixy
Qldx phixy{CBM-N}1
{CBM-L}2 jsr {CBM-L}v   ;take {CBM-L}(phixy)
sta t1
{CBM-POUND}&stx t1{CBM-N}1
{CBM-S}0;
L:do lda t1    ; {CBM-L}(phixy)
{$e6}dcmp t2    ; {CBM-W} {CBM-L}(phiy)
{$f3}n-{SHIFT-*}.{SHIFT-*} m{$e6})P{$e6}*{CBM-G}y{CBM-+}zwx {CBM-P}$%{CBM-G}[{CBM-+}\ {CBM-P}"#{CBM-G}"E${CBM-G}#{$e5}%{CBM-A}{CBM-G}[{CBM-+}\wx{CBM-G}'PF(F'{CBM-G}'E){CBM-G}({$e5}*lL{$60}{CBM-Z}/{SHIFT-*}M+{SHIFT-*}'{SHIFT-*}h{CBM-Z}0{SHIFT-*}M,{SHIFT-*}({SHIFT-*}h{CBM-Z}1{SHIFT-*}M-{SHIFT-*}){SHIFT-*}{CBM-Z}2{SHIFT-*}M.{SHIFT-*}*{SHIFT-*} UC{CBM-Z}/{SHIFT-*}8{$ed}+{SHIFT-*}'{SHIFT-*}{CBM-Z}0{SHIFT-*}{$ed},{SHIFT-*}({SHIFT-*} UC{CBM-Z}1{SHIFT-*}8{$ed}-{SHIFT-*}){SHIFT-*}{CBM-Z}2{SHIFT-*}{$ed}.{SHIFT-*}*{SHIFT-*} UCH({SHIFT-*}H'{SHIFT-*}lUC
i~Ihi~I
{CBM-N}H{$60}$%{SHIFT-POUND}
"#{CBM-I}F#F"F%F${CBM-Z}E""{CBM-Z}E##JP{$e4}{CBM-Z}

{$f0}.{SHIFT-POUND}
"#{CBM-I}&$lda t1{CBM-N}1
xsbc t2{CBM-N}1  ;{CBM-M} ...
 Bbcs else  ;else ...
0L{CBM-M} lda phixy
@Vldx phixy{CBM-N}1
lsta phi
Estx phi{CBM-N}1 ;phi{CBM-R}phixy
Olda x
Zbne j2
{CBM-POUND}dec x{CBM-N}1
{CBM-R}j2 dec x  ;x{CBM-R}x{CBM-Q}1
{CBM-Y}{CBM-C}else lda x    ; x {CBM-E}{CBM-R} y
LFcmp y    ;{CBM-M} loop
XPlda x{CBM-N}1
{$e4}Zsbc y{CBM-N}1
{$f6}{$e4}rc centre (also box)
#{CBM--}
yc   {CBM-R} $c031
f{$e6}
hm   {CBM-R} $c035 ;hires{CBM-Z}multi flag
l{$f0}
;
r{$fa}
;
R;"hires" {CBM-J}ernal subroutines
i{CBM-K}i {CBM-R}$c17c ;{CBM-J}ernal {CBM-K} {CBM-J}eger
{CBM-H}ie{CBM-K} {CBM-R}$c187 ;{CBM-J}ernal eat & {CBM-K} x,y
Q"move  {CBM-R}$c26e ;'move' rtn
{$f6},imov  {CBM-R}$c271 ;{CBM-J}ernal move{CBM-@} x1,y1

6idius
Vyr  .w{CBM-A} 0  ;y radius
3 x3  .w{CBM-A} 0  ;potential y
o{$ea}y3  .w{CBM-A} 0  ;potential x
u{$f4};
Q{$fe};subroutine move{CBM-@} xc,yc
movc ldx #3
lda x2,x
sta xc,x
{CBM-T}&dex
{CBM-R}0bpl movc{CBM-N}2
{SHIFT-@}:rts
{SHIFT-*}d;
{CBM--}n;subroutine move{CBM-@} xr,yr
{$ec}xmovr ldx #3
{$f9}Blda x2,es lda xr

*sta x    ;x{CBM-R}xr

4cmp yr
*
>lda xr{CBM-N}1
6
hsta x{CBM-N}1
c
rsbc yr{CBM-N}1
D
\bcs loop  ;branch  xr {CBM-E}{CBM-R} yr
W
Fswap  lda #$ff

Psta flag

Zlda yr

sta x
{CBM-D}
tax      ;x{CBM-R}yr
{CBM-O}
lda yr{CBM-N}1
E
{CBM-I}sta x{CBM-N}1
Z
{CBM-D}tay      ;{CBM-P} swap
{$e5}
{CBM-L}lda xr
{$f0}
{SHIFT-*}sta yr

J1
~Tldx x{CBM-N}1
{$7e}stx phixy{CBM-N}1
lda x
8asl      ;phixy{CBM-R}phiy{CBM-Q}x{CBM-Q}x{CBM-N}1
hrol phixy{CBM-N}1
v{CBM-+}sta phixy
^{CBM-A}clc
K{SHIFT-@}lda phiy
YDsbc phixy
Nsta phixy
Xlda phiy{CBM-N}1
{CBM-+}{$e2}sbc phixy{CBM-N}1
{CBM-L}{$ec}sta phixy{CBM-N}1
{CBM-C}{$f6};
F
lda x
R
ldx x{CBM-N}1
{CBM-*}ldy flag
{$ec}bmi altn
{$f7}(







Hh Y
{$f0} {$fd}{CBM-S}I,{$f0}Hl{$7c}AH{$60}{CBM-I}{CBM-X}+{SHIFT-*}/{SHIFT-*}J{$f7}{$60}{CBM-I}{CBM-X}+{SHIFT-*}
J{$f7}{$60} A  A ({SHIFT-POUND}
{CBM-I}
 {SHIFT-POUND}H{CBM-I} {SHIFT-POUND} {CBM-N}P{SHIFT-POUND}{SHIFT-POUND}
[\{CBM-Z}{CBM-S} ~H8{$e9}z{CBM-A}{$fa}J{$f7}Izwj{SHIFT-POUND}z8{$e5}wwjjJx){$f0}8{$e9}y{CBM-Z}{CBM-S} !{CBM-@}x M1{SHIFT-*}-{SHIFT-*}M2{SHIFT-*}.{SHIFT-*}{CBM-Z}
{CBM-S} {CBM-@}y M/{SHIFT-*}+{SHIFT-*}M0{SHIFT-*},{SHIFT-*}{CBM-+}[{$f0} +D{CBM-+}\{$f0}{$60}F[ QB{CBM-Z}M{$ee}{CBM-Z}M{CBM-Z}"D
  'hires'  circle - polygon
gN
  source file by anthony bryant
qX
 700
\
.opt n
B
;
H
;

;"hires" variables by g.kiziak
{CBM-Q}{CBM-N}
x1   {CBM-R} $c027 ;current {CBM-O}iti
{CBM-C}{CBM-H}
y1   {CBM-R} $c029
V{CBM-V}
x2   {CBM-R} $c02b ;{CBM-I} {CBM-O}iti
{$e7}H
y2   {CBM-R} $c02d
R
xc   {CBM-R} $c02f ;circt  {CBM-R}$c375 ;{CBM-J}ernal plot
1
@idrw  {CBM-R}$c42b ;{CBM-J}ernal draw{CBM-@}
7
j;
m
t;zero page labels
S
^theta {CBM-R} $57  ;the angle (0{CBM-Q}90deg)

Hysign {CBM-R} $58  ;depent  quadrant
{CBM-F}
Rxsign {CBM-R} $59  ;    "          "
A
{$7c};
{SHIFT--}
{CBM-D}{CBM-R}$8000      ;423 bytes
{$e3}
;
~
xr     .w{CBM-A} 0  ;x r
9
{$fe}beq nom{CBM-A}e
jsr $aefd  ;eat ","
,cmp #","
gbeq nom{CBM-A}e ;a{CBM-POUND}her "," !
F&pla        ;throw away acc
0jmp i{CBM-K}i  ;{CBM-K} {CBM-J}eger {CBM-@} .a & .x
:nom{CBM-A}e pla
{CBM-P}drts ;result in .a & .x
{CBM-J}n;
Qx;subroutine move{CBM-@} xc,yc
{$e1}Bmovc ldx #3
{$ee}Llda x2,x
{$fb}Vstabcc  ;else
{$ee}jmp loop

{$f8} rts
;
8;subroutine  reflect po{CBM-J}s & plot
fplot4 {CBM-R} {CBM-D}
q lda xc
y*clc
D4adc x2
O>sta x1
Whpha
rlda xc{CBM-N}1
\adc x2{CBM-N}1
Fsta x1{CBM-N}1
{CBM-+}Ppha
{CBM-E}Zlda yc
{CBM-O}clc
Dadc y2
Osta y1
{CBM--}{CBM-I}lda yc{CBM-N}1
{$e9}{CBM-D}adc y1
{$f2}jmp iplt
{$f8};
{CBM-+};subroutine {CBM-L}olute Eue
#{CBM-A}{CBM-L}v bpl abok
+{SHIFT-@}clc
7De{CBM-A} #$ff
bNadc #1
jXpha
r{$e2}txa
^{$ec}e{CBM-A} #$ff
I{$f6}adc #0
Q

tax
Y

pla

abok rts

;
{CBM-Q}(
;subroutine {CBM-@} scale offset
J2
scale {CBM-R} {CBM-D}     ;t1{CBM-R}t2{CBM-D}yr{CBM-Z}xr
U<
sta t2
{$e2}f
stx t2{CBM-N}1da xr
{$f1}{CBM-A}a xr{CBM-N}1
{$fe}"beq err{CBM-A}
,lda #0
6sta t1
!@sta t1{CBM-N}1
ejldx #16      ;16 bit {CBM-J}eger math
vtdivlp rol t2
C^rol t2{CBM-N}1
NHrol t1
{$7b}Rrol t1{CBM-N}1
{$7c}sec
lda t1
sbc xr
{CBM-K}tay
{CBM-S}{CBM-@}lda t1{CBM-N}1
{CBM-F}{CBM-S}sbc xr{CBM-N}1
I{CBM-U}bcc decn2
TBsty t1
{$e1}Lsta t
*jsr movr   ;move{CBM-@} xr,yr
4lda #0
7>ldx #0     ;ault arcst
thjsr {CBM-K}an  ;{CBM-K} sa (degrees)
Brsta arcst
R\stx arcst{CBM-N}1
Flda #{CBM-W}360
Pldx #{CBM-E}360;ault arc
{CBM-L}Zjsr {CBM-K}an  ;{CBM-K} ea (degrees)
Csta arc
Rstx arc{CBM-N}1
{$f6}lda #5             ;ault d lp2
{$fc}bdex
lbpl lp2  ;.y{CBM-R}quadn (0{CBM-Q}3)
&vadc #$5a
@{$60}sta theta  ;(0{CBM-Q}90deg)
hJtya
pTlsr
\{$7e}bcc lp3
Ilda #$5a
Qsec
{$7f}sbc theta
{CBM-+}sta theta
{CBM-A}lp3 tya
{CBM-K}{SHIFT-@}lsr
{SHIFT-POUND}Dlsr
{CBM-A}Nr{CBM-A}
{CBM-V}Xsta ysign
F{$e2}tya
O{$ec}{CBM-P} #3
{SHIFT-+}{$f6}beq lp4
{$e3}
sec
{$ee}
sbc #3


lp4 sta xsign
;do yr{CBM-D}{CBM-B}(theta)
(lda yr
,2ldx yr{CBM-N}1
:<jsr calc{CBM-B}
hfldy ysign
Apjsr {CBM-L}v ;check y sign
Izclc
TDadc yc
{$7f}Nsta y2
Xtxa
adc yc{CBM-N}1
{CBM-K}sta y2{CBM-N}1
{CBM-J};do xr{CBM-D}{CBM-V}(theta)
{SHIFT-*} lda xr
M{CBM-N}ldx xr{CBM-N}1
{SHIFT-+}{CBM-H}jsr calc{CBM-V}
{$e9}{CBM-V}ldy xsign

{CBM-D}{$ed}F\lM
i~Ihi~I
{CBM-N}H{$60}h{SHIFT-POUND}z8{$e5}w{CBM-POUND}H,{CBM-@}w{CBM-V}l"{SHIFT-POUND}
#{CBM-I}f"Eh{CBM-G}#E#Hf#JJP{$eb}"{CBM-+}#{$60}

$(,15:>bgkosx\{$60}DHLPTX{$7c}{CBM-K}{CBM-G}{CBM-POUND}{CBM-Q}{CBM-P}{CBM-R}{CBM-J}{CBM-U}{CBM-F}{CBM-V}ADGJLORTWY{SHIFT-+}{$de} {$e2}{$e4}{$e6}{$e8}{$ea}{$ec}{$ed}{$ef}{$f1}{$f2}{$f3}{$f5}{$f6}{$f7}{$f8}{$f9}{$fa}{$fb}{$fc}{$fd}{$fe}{$fe}~~~~~~~


















































































 centre (also box)
!{CBM--}
yc   {CBM-R} $c031
d{$e6}
hm   {CBM-R} $c035 ;hires{CBM-Z}multi flag
j{$f0}
;
p{$fa}
;
P;"hires" {CBM-J}ernal subroutines
i{CBM-K}i {CBM-R}$c17c ;{CBM-J}ernal {CBM-K} {CBM-J}eger
{CBM-R}ie{CBM-K} {CBM-R}$c187 ;{CBM-J}ernal eat & {CBM-K} x,y
O"move  {CBM-R}$c26e ;'move' rtn
{$f4},imov  {CBM-R}$c271 ;{CBM-J}ernal move{CBM-@} x1,y1

6ipladius
{CBM-@}yr     .w{CBM-A} 0  ;y radius
>{CBM-S}arcst  .w{CBM-A} 0  ;arc start (deg)
{$60}{CBM-U}arc .w{CBM-A} 360;arc  angl (deg)
Bdelta  .byt 5  ;polyKn incr (deg)
L;
{CBM-A}V;subroutine {CBM-K} angle (deg) {CBM-J}eger
W ;accuracy {CBM-@} 1 deg   (hex 5a{CBM-R}90deg)
{$eb}{$ea}{CBM-K}an pha  ; acc
{$f9}{$f4}jsr $007 xc,x

dex

bpl movc{CBM-N}2

rts

;
<
{CBM-POUND};subroutine move{CBM-@} xr,yr
l
{CBM-R}movr ldx #3
y
{CBM-C}lda x2,x
F
Fsta xr,x
N
Pdex
{$7d}
Zbpl movr{CBM-N}2

{$e4}rts

{$ee};
{CBM-E}
{$f8}; circle,xc,yc,xr,yr[,sa,ea,inc]
{SHIFT-*}
circle {CBM-R} {CBM-D}
L
jsr ie{CBM-K}
{$e8}
jsr movc   ;move{CBM-@} xc,yc
{$f4}
 jsr ie{CBM-K}2{CBM-N}1
{$f6}{CBM-L}sta y1{CBM-N}1
{SHIFT-*}jsr iplt
Jlda xc
Tsec
!{$de}sbc x2
,{$e8}sta x1
9{$f2}lda xc{CBM-N}1
f{$fc}sbc x2{CBM-N}1
ssta x1{CBM-N}1
{$60}jsr iplt
Klda yc
S$sec
{$7e}.sbc y2
8sta y1
blda yc{CBM-N}1
{CBM-T}lsbc y2{CBM-N}1
{CBM-A}vsta y1{CBM-N}1
{CBM-X}{$60}jsr iplt
EJpla
RTsta x1{CBM-N}1
Z{$7e}pla
{$e5}sta x
{$ed}p
lda #0
{$f8}z
sta t1
D
sta t1{CBM-N}1
N
ldx #17
-X
clc  ;16 bit {CBM-J}eger math
?
mullp r{CBM-A} t1{CBM-N}1
i
r{CBM-A} t1
u
r{CBM-A} t2{CBM-N}1
_
r{CBM-A} t2
M{CBM-N}
bcc decn1
U{CBM-H}
clc
{CBM-V}
lda yr
H
adc t1
R
sta t1
{CBM-T}{CBM--}
lda yr{CBM-N}1
{CBM-A}{$e6}
adc t1{CBM-N}1
{CBM-X}{$f0}
sta t1{CBM-N}1
L{$fa}
decn1  dex
Zbne mullp
{$e5}l
1{CBM-N}1
{$f0}Vdecn2  dex
{$fe} bne divlp
{$ea}rol t2
{$f4}rol t2{CBM-N}1
!{$fe}lda t2
.ldx t2{CBM-N}1
6rts
]err{CBM-A} jmp $bb8a ;"division by zero"
C&;
J0.



clc
{CBM-V}
lda yr
H
adc t1
R
sta t1
{CBM-T}{CBM--}
lda yr{CBM-N}1
{CBM-A}{$e6}
adc t1{CBM-N}1
{CBM-X}{$f0}
sta t1{CBM-N}1
L{$fa}
decn1  dex
Zbne mullp
{$e5}lelta
{CBM-I}jsr {CBM-K}an  ;{CBM-K} inc (degrees)
{CBM-D}tax
){CBM-L}bne crc1
@{SHIFT-*}lda #1    ;minimum
sJcrc1 sta delta
^Tlda #0
J{$de}sta $5b
V{$e8}sta $5c
{$f2}loop lda arcst
{$fc}ldx arcst{CBM-N}1
{CBM-+}ldy #$ff
G;find quadrant {CBM-P} angle theta
Slp2 iny
{SHIFT-+}$sec
{$e8}.sbc #$5a
{$f4}8bcs
Hjsr {CBM-L}v ;check x sign

Rclc
{CBM--}adc xc
 {$e6}sta x2
({$f0}txa
5{$fa}adc xc{CBM-N}1
bsta x2{CBM-N}1
nldx $5b
Kbeq lp5    ;flag a move{CBM-@}
"jsr idrw   ;draw{CBM-@}
,ldx $5c
6beq lp6
{CBM-K}@rts
{CBM-B}jlp5 dec $5b  ;cancel flag
Wtjsr imov     ;move{CBM-@}
{$e9}^lp6 lda delta
adc #1
{$f6}pha
{$fe}&txa

0e{CBM-A} #$ff
:adc #0
dtax
%npla
exabok rts ;result in .a & .x
kB;
ML;subroutine calculate {CBM-B}e func
{$7b}Vcalc{CBM-V} pha
lda #$5a
sec
{CBM-N}sbc theta ;(90{CBM-Q}theta)
{CBM-R}tay
{SHIFT-@}{CBM-POUND}pla
G{CBM-R}.byt $2c
{SHIFT-+}{CBM-C}calc{CBM-B} ldy theta
{$ee}Fstx $1sta $22 ;reslo in .a
ldx $23
{CBM-I}rts ;reshi in .x
!{CBM-D};
e{CBM-L}{CBM-B}e {CBM-R} {CBM-D} ;table of {CBM-B}es (0{CBM-Q}90 deg)
N{SHIFT-*}.byt $00,$04,$09,$0d,$12,$16,$1b,$1f
J.byt $24,$28,$2c,$31,$35,$3a,$3e,$42
{SHIFT-*}T.byt $47,$4b,$4f,$53,$58,$5c,$60,$64
{$e9}{$de}.byt $68,$6c,$70,$74,$78,$7c,
n$.byt $fc,$fd,$fe,$fe,$ff,$ff,$ff,$ff
..byt $ff,$ff,$ff
#8;
*b.


le of {CBM-B}es (0{CBM-Q}90 deg)
N{SHIFT-*}.byt $00,$04,$09,$0d,$12,$16,$1b,$1f
J.byt $24,$28,$2c,$31,$35,$3a,$3e,$42
{SHIFT-*}T.byt $47,$4b,$4f,$53,$58,$5c,$60,$64
{$e9}{$de}.byt $68,$6c,$70,$74,$78,$7c,































































































































































































































































































































































































































































































































{$f1}Hclc
~Radc arcst

{$7c}sta arcst
bcc lp7
)inc arcst{CBM-N}1
;lp7 lda arcst
h{CBM-@}cmp arc
x{CBM-S}lda arcst{CBM-N}1
G{CBM-U}sbc arc{CBM-N}1
SBbcc lp8
Ldec $5c  ;cancel flag
Vlp8 jmp loop
{CBM-@} ;
{CBM-B}{$ea};subroutine {CBM-L}olute Eue
O{$f4}{CBM-L}v bpl abok
W{$fe}clc
{$e3}e{CBM-A} #$ff
{$ee}5 ;hibyt
{$fb}Pldx {CBM-B}e,y
Zcalc stx $22
{$e4}sta $14 ;lobyt
*{$ee}lda #0
6{$f8}sta $23
nldx #8 ;16bit{CBM-D}fract
_cal2 lsr $22
Lbcc cal3
T clc
*adc $14
4pha
>lda $23
 hadc $15
{CBM-D}rsta $23
{CBM-H}\pla
EFcal3 lsr $23
LPr{CBM-A}
TZdex
{$e1}bne cal2
{$fa}
$80,$84
{$e8}.byt $88,$8b,$8f,$93,$96,$9a,$9e,$a1
;{$f2}.byt $a5,$a8,$ab,$af,$b2,$b5,$b8,$bb
D{$fc}.byt $be,$c1,$c4,$c7,$ca,$cc,$cf,$d2
.byt $d4,$d7,$d9,$db,$de,$e0,$e2,$e4
{CBM-L}.byt $e6,$e8,$ea,$ec,$ed,$ef,$f1,$f2
{CBM-*}.byt $f3,$f5,$f6,$f7,$f8,$f9,$fa,$fb
































































































































































































































































{$f1}Hclc
~Radc arcst

{$7c}sta arcst
bcc lp7
)inc arcst{CBM-N}1
;lp7 lda arcst
h{CBM-@}cmp arc
x{CBM-S}lda arcst{CBM-N}1
G{CBM-U}sbc arc{CBM-N}1
SBbcc lp8
Ldec $5c  ;cancel flag
Vlp8 jmp loop
{CBM-@} ;
{CBM-B}{$ea};subroutine {CBM-L}olute Eue
O{$f4}{CBM-L}v bpl abok
W{$fe}clc
{$e3}e{CBM-A} #$ff
{$ee}5 ;hibyt
{$fb}Pldx {CBM-B}e,y
Zcalc stx $22
{$e4}sta $14 ;lobyt
*{$ee}lda #0
6{$f8}sta $23
nldx #8 ;16bit{CBM-D}fract
_cal2 lsr $22
Lbcc cal3
T clc
*adc $14
4pha
>lda $23
 hadc $15
{CBM-D}rsta $23
{CBM-H}\pla
EFcal3 lsr $23
LPr{CBM-A}
TZdex
{$e1}bne cal2
{$fa}$80,$84
{$e8}.byt $88,$8b,$8f,$93,$96,$9a,$9e,$a1
;{$f2}.byt $a5,$a8,$ab,$af,$b2,$b5,$b8,$bb
D{$fc}.byt $be,$c1,$c4,$c7,$ca,$cc,$cf,$d2
.byt $d4,$d7,$d9,$db,$de,$e0,$e2,$e4
{CBM-L}.byt $e6,$e8,$ea,$ec,$ed,$ef,$f1,$f2
{CBM-*}.byt $f3,$f5,$f6,$f7,$f8,$f9,$fa,$fb
































































































































































































































































































































































































































































































































































































































































































































































































adc #1
{$f6}pha
{$fe}&txa

0e{CBM-A} #$ff
:adc #0
dtax
%npla
exabok rts ;result in .a & .x
kB;
ML;subroutine calculate {CBM-B}e func
{$7b}Vcalc{CBM-V} pha
lda #$5a
sec
{CBM-N}sbc theta ;(90{CBM-Q}theta)
{CBM-R}tay
{SHIFT-@}{CBM-POUND}pla
G{CBM-R}.byt $2c
{SHIFT-+}{CBM-C}calc{CBM-B} ldy theta
{$ee}Fstx $1sta $22 ;reslo in .a
ldx $23
{CBM-I}rts ;reshi in .x
!{CBM-D};
e{CBM-L}{CBM-B}e {CBM-R} {CBM-D} ;table of {CBM-B}es (0{CBM-Q}90 deg)
N{SHIFT-*}.byt $00,$04,$09,$0d,$12,$16,$1b,$1f
J.byt $24,$28,$2c,$31,$35,$3a,$3e,$42
{SHIFT-*}T.byt $47,$4b,$4f,$53,$58,$5c,$60,$64
{$e9}{$de}.byt $68,$6c,$70,$74,$78,$7c,