' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` PP>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( q Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d ֠z# uPmn[qq`/?r%[`$`$qqlq$q$\Xd2e?M6UVWSa()GYKa(ŠӠĠŠ)GUVWSa()GYd2e_Wqqqq\ qf`-ѱr$^f-r\-ѱrq1?-ѱrr^T`%`8-ѱr r%qf-r`%f-r`%\`%\ ^YZqqq\t|f`8 r%ijk`8 r%lrrdedeM(1UVWFYZ\ M6\6_RF6Lf-r\ qqqq6q6`%qS@f-rlm'nlm'n'ij'kij'k'`-r$DSJqqUVW UVW \ q0?-ѱrrq\`%-ѱrq1?-ѱrrq@p()`%@p()C`%-ѱrq1?-ѱrr`%-ѱrq1?-ѱrr1M6cPa(ٮϠ)E@E(ԠٯΩ)_"\`$aq8rUVW8rX88$'`%l8rmn=`%`-ѱr6%l8rmn8r?`%`8-ѱ r r6%i8rjk8rI` %[`-ѱ r%[`8 r6%i8rjk[Tf- rrr-rijk8rqYq_(<q8rf-r\ _!f-r8-rr_-ѱrq61?-ѱrr_f-r\ Zq-ѱr`%[`%-ѱrq1?r 8r` $`-ѱr-rlmn8rJf=8r>r-rlmn8rqYq<\ \`.?6@r$d6?eq`$_RDUVWf=>8rr-rijk8rOf=>8ŠӠȠ)FE(Ӯ)G_'q/?rq/?r"q/?rq8rqh`8 r8 r86r86r$`81?-ѱ rr r$K`$UVWf=8r>r$qq_/tֱqM6cPa(ο)\_hM6@p()`%@p()a(ŠƠӠ)E@E(ŠƠӠ)G@p()`%@p()a@E()?a(Ҡ٠נӠ)Fa(̠Ƞ)F4a(ҠP a(šҠҡ)d2e\Lz`$`$@`$`$._9 `$`-ѱr$q6q_> `$`81?-ѱ r rr$qq6_. `81?-ѱr rr%q`$`7ֱ$Rֱq_HRqq1?r`$q`%`1?-ѱr r$'a`8r8 r$zPfUV6WXUVW X q1?-ѱr r`$pYZ_z?pd2eM6c\ Yqq,4\ `6 $Hqqqq:6\ `6 $9q`$6qq_6]9f- rUVWlmnY\q\q\q\qq>\ f-r\ ;H\`ca(̽ԠսРŽ)]"a(ҽԠӽȠʽ)a(ĽΠؽӠý)G_$`-ѱr$qqk`%\UVWf8- rr88-ѱr r r\ f-rqq$`$ `$ `$ `$L`$`$l `$t`$p`$`$<Xd2e?ca(̠Ӡź)Gd2eP`%a(ƽ٠)GQP `%a(ɽӠ)G`%ӠӠӠ)&@Brp(ӠӠ)_qM6cP a(ԠӠҠĿ)Pq88-ѱr r r`%a(ӠŠŠǠ)FG;\`$`%\`%\`%\X=`lm'n'\N@"rC@"rC@"ru @p(ӠӠӠӠ٠ӠӠӠ)z @Bmrp(Ӡ̠ӠӠŠӠӠ҈-rq -rq-rq -rq-rq -rq-rq\u-rqUVW`%-rqUVWXde-rde-rMYZcvKM6o a(ՠŠԡՠԠԠƠŠέΠȠ)FE(ӠΠ̠ϠŠ)5Wa(ԮŠŠ٠)FE(ƠՠԮ)G_dedeM_4)qq\ `$Ja(ӠС)9q UVWdedeMqY_~p`788r8rr$Pa(ԠС)d2eUVWf8r \ UVWde deZ8MYZ`$Vq/?r`%qPa(էŠΠϠ̠)FN\ \6_4RVq/?rq`$ bE(ƠҠ`/?r$a(ՠĠΠ̠ҠϠԠՠŮ)_=a(ՠŠĠ٠ӬΠŠĠԮ)KqUVWdedeqMYdedeMq/?r\ \6_Ro.M6cd2e)E@E(Š̠Į)q_?qca(ŠƠӠĮϠŠӮ)\_{<qca(ŠƠӠĮϠŠЮ)\_{Xqqca(ŠàĠĠŠ)E@f-r\ q_TM6ƠҠٮ)\Os`$ `$z@p()`%@p()a@E(ƠŠ)E@E(ŠĮ)t`%q+ua(̠ΠҠҠŮ)G\_lMzqq`7/?r$`7/?r$0{ca(Š.?6@r$lq8rd6?eBna(ՠĠ)FE()`%a(ՠԠԡ)`7%a(ϠԮ)q$oa(נ̠ҠŠٮ)G\:qq/? rb`.?6@r$qd6?eq8rErca(Š٠Ӡ)Fa(էŠԠ)FE( rrf-rghgh`$iM6cP3ha(ŠҠàĠٯΩ)G\`$yiM6a(ŠӠήԠŠҠϠ̠ŠҠҠˮԠԠΠϠРŮ)Gqq\Elq/? rb` fqq\ \ q_RPqqUVWf\ f-rqq\ Y\ _fhfUVWdedef-r\ UVWdYf-r\ MYq 8r]g-rq-r 88-r @p@*# rM6a(էŠŠΠ)F/?rE()E@`\ a(ҠȠӠ)FE(Š)a(Ӡ)FE(ԠӠҠĿ)_5`$f`8r$Sf-rqq\ \ q8r8r\`1?r%\ -ѱrq-ѱr IYZ_"Na(àԮ)q_+Xa(Π٠Ρ)Gq_Gqqqqf-r\ qqqfq/? rq/?rH`$q1?-ѱr r`$\-ѱrq1?-ѱrr YZ_qq_&qq_0qq_::qa(àĠΠŠĠ٠ũ)G_pDqq-rq-rUVW UVWE(ӠȠ)a(ĠĠӮ)G`/?r$*a(էŠϠĠ)_ /?rNqqUVW UVW \ q1?r`$f-r\ \ YZ_Cf- rqqUVW UVW \ `1?r%\YZ_H\ `$M6cP a(٬ϠŠŮ)G_qUVWqf-r\ UVW2YdedeMY-ѱrq-ѱr(88rrqd8/? rrYqM6a(էŠĠ)FΡ)qq\\ [qqqS\ `1?r1?r$f-r\ qqqqqq\ VM6cd2ea(ҡ)Gd2e?a(ՠŠέǠΡ)d2e-UVWFq.?6?rUVWgh-rq-rqUVWX6kqq/?r`%q/?r`=-r>-rr-r$-rq-rw-rq-rg-rh-rUVWdYZM6ca(ԠԠӠĠŠ*U*U*U*U*U*];w@ *U D(]*U*U*U*U*U*D@*U*U*U*U*P*DPw.*Un}*U*U*U*U*UjU*T*U*U*U*U*"U "P*U*U*U*U*]*E DU:woUP~wn_;z_;ujU; U*U*U**U*w/D~*P;U*U*wj];wn} "D"D~Wn]z/U*wn];"D(h]:ujU;w?(]*U*U*U*}*T "U+W*U*U*];w~]_"Tjo]_U*wn];w~t~];U*];*U* EU*U*U*U**|.U*u*];wn}U*U*E"Uko}*U*wn]?~};U*U;*U*U*U*U~+j_"xw.U*uj];wn]{_*U"T"\*u_/U*wo];wn}{ot?n]*un] T  U*U*(Q*U*~]:ujU;wn}?*Q*U*U*Uz+U*T twn]{wn}?ho];ujU; TU*UU*E(U*U*U*@n]*UnU;w~/*U*U~w/UUjE*@x~_wn}Pn_"D(_*Ujn_;wn]:wn] "DQ*U E`]:uj];wn_U*U*U*U*T +*@Ujwn_;n]{/D"D@Q~_?wn]*wj] @"U*U*U*U*U h];wj];~}@(U*U**]*u? Uz*U*UP*U*U*U*@"E u. U*Q"E*U*U*U*U*U*U*U*U*U*u*U*U."D*U*UP*U*U*U*P*E" wn*U*U"T*U*U*U*U*]*U*U*U*U*@.U*Un}+*U*U*U(U*U*U*U" (U*U*U*U*U*U*U:UjU*U*U U*Q*@*U*U*U*U*U*U q?P @*U*E*U*U*U*U*U:U*U*U*U *U*]+*U*U*U*U*U*U*(U*U*U*U* D(T*U*U*U*U*Un" Tn];`w*U*U*U*U P*U*U*U*"U*U*U*U*U*U*]:w*"DU+U*U QTԍQ׽Ӯ)G`%a(ٽ)G`%a(ν)G^v `%a(ٽ)GPa(ŽĮνԠ)G`%a(Ž)G_c KM6o a(ҠΠĠϠӮέӠ̠ŠԠϠԠƠή)a(ŠΠŠϠƠҠٮ)_Xl q6d2e?M6a(ҠӠҠ̠)FE(ź)Gd2eVq `%a(̮)G`%a()G`%a()G`%a()Ga()Gis Pa(̮ŽڠĽՠf\ f-rqq\ Yqqqqqqv`%[wv@UVWf8r\ UVWdedeMYZqq6q6@p()`$LB`$ qM6q8r8rq8r8rq/?r`$jqq`$jgq0?rq0?rpj`%q`%q`6%q6qqqqnlqqUVWȠƠ)Yza(Ġӡ٠)FE(ƠҠ٠ҭ)a(ĠȮ)a(ŠΠή)QzXq 8rq81?-rrrq81?-rrrq81?-r rrq6q`$]Zq81?- r rrc]*U*U*U*U*U*Uz*U"D*U*U*U*U*U*U.U*U*U"T*U*(*U*U T*U*U*U P"U*(w/T**D*U*U*U*U*U*W*U*U*U*D*U*uP*U*U*U*U*UU*U*U*U*" T*U*U*U*U*U*U*T*un]+u*U*U*U**U*U(U*U U*E*U*U*U*U*U*w*U:U**UP @@*U*U*U*U*U*U*UT*U*U*U*U*U*P*U*U*U*U*P w.];EU:w*U*U*U*U*U*U*P*U*U*U*U*(UP*U*U*U*U*U tj];U:U+U*8w*U*Uj] U*U*U"E(U~?z+Ut*U*U*U*Un];~} @Qj_:unW*UU*W*"D(U*U*U.];(U*U*U"D*}/DuDQ*U*UzU*U*U;w~}*_+uw@*];Un];P;w*U*U.(U*E*"D*U*U*u*E]*U*U*un]:w~U*E"@(U*U?W*U U+wn]:wjU*Un(U*U*U*U~*E(}_jU*U*U*U.]:w~}_"D"P*U:>U*];wn];w~]{@o];U*U*W*U(U*U* T*U*U:U*U*U.U?w~*U*U*E:u*E*P*P~]+wn];w ];U*U*W*U"D D**T(U*U @+U*U*U*];w~?}*(U*E*.U*D**Eh];Wn];wn}{ "U*U*U*U~};wn]*U*U+W @T*@((W*U*U.];Q*U*U*U~*T];W.];~};w xwn]*U*U*U "DU*U**U*Q"8wjU*U*];w@*U*U*E Uz/U(*U*UP*U*U*U*@*"@@UU?(U*U*U*U*U*U*U*un];W.U*U*T+U*U;w *U*P*U*U*U*U*U"Dx]"  U*U*U*U*U*U*U*uj]+w.U:U@*U*]{w*D*U*U*U U*U*U*U@D(D(*U*U*U*U*U*U:un]+W*U*U@ U*W*"*U*U*T*U*U*U P""t?@n/P*U*U*U*U*U*U*UjU*U*U:U *W. U *U*U*U*U*Uj U*U*U*U**DT*U*U*U*U*U:w ET*]{/ *U*U*U*@*U*U*U*@ U*U*U*U*U*U:uj];W @U.]*UT P " DLLLLL̐ @DDDDDDD 2L1` DDDDDDDL@DDDDDDD L4%O ̼@DDDDDD `EV#@DDļ̼DDDDDDD w#$ S ̼ DDDDLٙ @DDDDDDDD-22̑̑ ̼ DDDDD`C DDDDDL̻ DDDDDDDD4% DDDDL DDDDDDDD"    W`$\ `-ѱr6$-ѱrq-ѱr2$Y\ -ѱrq-ѱr(Yqa\ q/?rq/?r`%q `7%q \ `1?-ѱr r$qqq\ SLf-r\ f-rij'kij'k'lm'n$q_ GUVW\ `%-ѱrq-ѱrFYdedeMY]UVWUVW}\ `-ѱ8rr 6-ѱR8rr 6$-ѱrq-ѱr\ -ѱrq-ѱr\ -ѱrq-ѱrPEYUVV-ѱrq-ѱrqijk8r_ K~`7$V-ѱrq-ѱrqlmn_ K`7$V-ѱ rq-ѱ rqijk_ >q/? rq/? r\ `-ѱr61?-ѱrrq_` %q-ѱr` %q-ѱ r`%q-ѱr`%q-ѱ r+8q`8/? rr$V_j /?rIj`7$V-ѱrq-ѱrqlmn8r_ It`7$ccPa(ӠӠŠРҠ̠)Ff-r,UVW'lm'nYf\ qy\ `-ѱr$qyH `$f-rUѱVW8r`-ѱr%-ѱrq6? Yѱ_=qqqq\ \ -ѱrqqqqq -rq -rq-rq -rq -rq-rqk-rq-rq- rq- rq- rq - rq- rq-rq-rq _!!]""O4rUVW-rqYGUVWLd2ef dede0dededede ded ed ed ed efd edededededededeLdedede`O4rD4rD4rqqhf-r`=>r-r%ghqq\X7q`$ghqw_]Cd2e?\oPa(٠)cPa(Ԡ)\S oP a(Ԡé)cP a(٠à)\Wqq\q\YUVWqq\q\Y[1l`=>r-r%qf-r`=>r%gh[qf`=>r-r%gh[8M6ca(ŠŠԠŠƠҠ١)q_ql\Xf-r`=>r-r%g\L7ghUVWg-rh-rUVWYZqqw_E<`$/q8rq8rq_)aqqq\Xqlq0?r8rq0?r8r\X`$q[\XUV688rrghUVWX6-rq-r-rq-rY[l/qq8r8&rq8r8&r`%q/?r`%q/?r_(O2fgh\M6ca(ŠԠŠŠƠҠ١)f͠ŠӮ)G\`$ w_8(qq/?rq-rq-r8r$)`&&$<c*q=>r`-r$2`-r- r$<qq=-r>-rrf88rra-g-rh-rf 8/?rr[+q.?6@r`$d6?eq[U`$`%\(q`888rrr$FP#q8rbG`888 8rrrr$Uqca(ŠƠҠ٠r6$ -ѱrq&fUVWlmnYW`8r$UVWUVW-ѱ rq-ѱ rZYZy-ѱrq-ѱr88-ѱr r6r-ѱ rq-ѱ r88-ѱ r r6rѱqѱ/?r4_UVWYUVWYUVWY[% lmnlmn[B ѱq 8rqqq-ѱr [/ q/? rq/? r\ `$ [D \ `-ѱr6-ѱ r6-ѱ                   gi `LWLsRADAR---RK 3-21-81RTHIS IS $65 BYTES LONG AND STARTS AT $0300 (768)h(4);"BLOAD RDR"q770 7*U*UP*U*U*U*"D"uT**U *U*U*U*U*U*U+U*U*U*U*@*U*UjU*U*P*U*U*U*U U:@*T**u**U*U*U*U*U*U*U*U*.U*un]*  ݙPUUPDLL ݙUZUD DDD L @D  ` PP@DḎ  DDDDUUHH̙ U D D1133 LL(@DDDDDDP Z@HD̙  `U_U__ZZZUU𠯪UDD11  LL DDDD UUU_ ݙ UUUUZ@L  D13 LLDD    yEYESTRAIN---RK 3-21-81VTHIS IS $65 BYTES LONG AND STARTS AT $0300 (768)n(4);"BLOAD ISTRN"w770 :2LM6d6?eq/?ra(Ġ)FE()95d2e?oPa()cPa()o7a(Π)Q N((A4096)(B256)(C16)):D(D)3 PXA:200:AXD ZXB:200:BXU dXC:200:CXf nXD:200:DX x(A);(B);(C);(D);" = ";N;" = ";N65536;" VALUE: ";V X10XX176: XX183:XHIRES PAGE 1 DETECTIVE4 RK MARCH 22 1981:A3P0,00,191[N8192p V(N):V0İ30 NN1:N16383Ā10N1NN65536(AN4096:A(A)2B(N(A4096))256:B(B)<C(N((A4096)(B256)))16:C(C)" FD X228İ100* (AA1:A65535ĺ"DONE":2 220F dCA4096:C(C)d nD(A(C4096))256:D(D) xE(A((C4096)(D256)))16:E(E) F(A((C4096)(D256)(E16))):F(F) C;" ";D;" ";E;" ";F;" ";A;"=228" ROM SEARCHER RK 3-7-81THIS WAS DESIGNED TO LOOK FOR BYTES CONTAINING 228 (HEX E4), BUT WITH APPROPRIATE CHANGES WILL LOOK FOR ANY VALUE; GIBBERISH AT LEFT IN PRINTOUT IS A DIGIT-BY-DIGIT RENDITION OF THE HEX ADDRESS. A53248X(A)  DN((A4096)(B256)(C16)):D(D)6 PXA:200:AXG ZXB:200:BXX dXC:200:CXi nXD:200:DX x(A);(B);(C);(D);" = ";N;" = ";N65536 20 X10XX176: XX183: ,0! DECIMAL TO HEX CONVERSION8 RK MARCH 22 1981>l "INPUT DECIMAL NUMBER (-65536 TO 65536)"v300}NN1NN65536(AN4096:A(A)-N65536Ľ:802B(N(A4096))256:B(B)<C(N((A4096)(B256)))16:C(C)% F 100 7X(A):AA,X' <AA1:AAAA14 AA256Ā< F55O dX(A):Y(AA)] nXYī180 x"CHANGE IN ";A;"--- OLD: ";Y;" NEW: ";X AA1:AAAA1 A256100 "FINISHED":A ZERO-PAGE DETECTIVE= RUSS KARAS MARCH 7 1981W LOOKS FOR CHANGES INkZERO-PAGE DATAzA0:AA768"ENTER 1 TO RECORD CURRENT ZERO PAGE"#"ENTER 2 TO COMPARE CURRENT ZERO PAGE"("WITH RECORDED ZERO PAGE"-Q 2Q2  :200,43176,43176,115200,115:219,0200,19200,139219,158:XX1:X:50AL :3:X0:Y0(25,Y255,Y:YY1>Y159Y0:0:50F(20225,1980,1980,13925,139:80,19104,43104,11580,139:104,53114,53114,105104,105:114,53120,59120,99114,105:120,59166,59J 3120,99166,99:176,43166,53166,105176,115 L0L` < :16302,04(4);"BLOAD HOPALONG CASSIDY":4 00L00L0 0L*00 L>dL>00L *U*U*U*U*U*UnU+(U*@.]*U*U*U*U*U*U*U*U*@*U*U*U*U Th];@*U*w*U*U*U*U*U*U* U*U*U*U*U*P*U*U*U*U*U@ "@*U*];UP{U*wn8w.U*Uj] U*U*U*U*U*U Q~*@nU*U*U*ujU;w_"DDQ~_*u_+U*]:w*"(w.U*uj]+(W*U*U*DU/Q. D*U*U*U*U*UnU;w~ Pj+U~"U*];un];|;w.U*Un(U" T*U*U*U*UT+U*U:uj];w?U*U " D:W"U ]:wn]@;W*U*Un*U*U*U*UjW*EjW`]*U*U*Uj];wW*D"_*]w.T*];wn];wo_?~}]+U*]*U*"U*U*(U*8W*U*un];w *U*U*U*Uj+UTu];wn];wo_x];W*]:U*QD(U*U*"U*U*U @:U*U*Un]; *U*U~WT*Q*z];wn];wo_*}@j~o];wnU+U*]:U.@("`W*U*unU{Q*U*U*U**T*@ ]*u];wj];w_?? U(*D"@"}?wn]+U*]:U "U*U*U*D "(W.U*wn]{w/P*U*U* /}/@z*U*U T*U*U*U*@*""T }?U*U*U*U*U*U*U+Wn];unU*U.U*U*]+D**U*UP*U*U*U*@*U"D}WUD*U*U*U*U*U*U*U*wn];wj]+W.P;U*U; "*U*U*U *U*U*U*UDD U*U*U*U*U*U+wn];wn]*WT @"*U*U*U*U*U*UT D D@*U*U*U*U*U*U+Wn]:ujU*w .Q*u* *U*U*U*U*U.];.U*U*U*U**U@T*U*U*U*U*];*U"@U;x*U*U*U*U*T*U*U*U*@ *D T*U*U*U*U*U:wnT uj];*T}*U*U*U*U+Wn];wnU+W*P+wnU*W*U*U*U*U*U*U*@*U*U*U*U U*D@ t?P*Uj*U*U*U*U*U*];W D*U*U*U*U*U* P*U*U*U*U*P*En_:~Uu~wn}{z_;w*];whU*U*U*Uj](U"T"@>w*U*W.];wn}_*Q"E"T+U*uW*] wn]?h_;Un];w/ U*U*U*Q*U?UzW*U*U"];U*U*w.];wo_("D"Tj.U{W*U*n};w_o]+u*]:*U*UQ*U*U*U*U"poU*w.]{wo/U*U*U*U*DQj](U@(o];w/@Po_;W.];*U*Q*U*U*U*Uj?U"*U*Wn];w~U*U*E"_*w]*u*w~};w"D"wnU*wn] D "U*ujU *U*h]+W*];wo@*U*U*U*Uz?UT "}n_;w~?@~wo]+wn]; T *U*U*E(U*U*U"n]*u.];wn (U*U*U~ QjE*@~ w "DzwnU*wn]+"D"U U*`_+W.];wo U*U*U*U*} z *D"D(u*}n];woQ*U*U*U*U*U*;wn]+wn] @"T*U*EU"U`_;W.]{wn T*U*U*|+ E@Q~      TVd zV@d zVd zVd zV@d zVd z`K  :C0-228,C:CC1:C256C060,0A(62454I<20C ll?˶lVAA....AAVl˶llVVVVVll˶lA.AVlˠVVlVAVlVVˌl...lVV˶llVVAA....AAVV NOBgCg@gAgBgCgDgEgFh@hCi@iCjAjBmCmDmEnBnDnFoBoDoFpCpDsBsCsDsEsFtBuBvCvDvEvFyByCyDyEyFzB{B|C|D|E|FBCDEIFHGBCDEFmLmMmNmOmPmQnKnNoKoNpLpMpNpOpPpQsMsNsOsPsQtMuMvNyNyOyPzMzQ{M{Q|NNOPMQMQMNOPQNOPMQMQKLMNOPQNOPMOQMOQh8) )))) ))ȏ)H@@H``Y@!By@!B@!B@!B}PPBPPB}PI1``H uhyP IiɠȘH  hy0 IiɀH uhȘH  hЌݬЂ0`g@gAgP`8Ah8A8Ah8A!6 B!^ B+6 B+^ B!6 !^ !@ !h e6 Be^ Bq6 Bq^ ByJ BJ B6 B^ B6 B^ Be6 e@ e^ eh yJ yT 6 @ ^ h 6 B^ B6 B^ B6 ^ @ h !63B63B!66!hh@@8h88,ɛ`hh``#`6`h0`   `)eF%`U**U х u i` u҅  i`ȱȱȱ.  JJH 7hLTJJH hLT` )WSCiiC @ѩ@ JiBB8D0DiiD DiiD @hhhh` 1-`8A8 ePp0 x0 x`Ɉ`8BL-  [  ~ ,ɛ`  [  ~ХiP  > DI  &>e u?e  9 I `0e ?`0e M`0L,`HЅ ,h`H ,h`eP8P`@HHHH JiAA8C0CiiC 8  `e  u i u 8 u `> ? `I1``8>8? >I>>?I?? `1`e u  9i  98  9`e  u 9i u 98 u 9`? i I  !!!!!!!"""""""#######$$$$ @e u  i   HH)?5h)P(h) ` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?e8`  `0 0`0`0`0?/U^0 [ /ULT L0`^09U0^?/LT00 `00 `00`00 `00`00`00`0L 0L00`00`00`0 0`00`0 0  z#??Π ŠĠŠԠŠбĠ ӠԠҠ Ǡ٠ҩ ԠĠԠ ̠Ϡؠ ӠŠŠ ΠҠҠ Ҩ ĠǠԠŠ! Ǡ̠" ӠΠ Ӡ  ҠӠ Ǡ٠" Ǡ̠ǠŠ ǠŠ ΠŠ ҠΠ Π ҠӠ  Π ĠŠ٠ ΠǠ ΧӠ͠ĠԠӠ̠Ǡ Ġ̠  Ш̷ ϭŠŠ ͠Ҡ ΠΠαΠ6ΰ ǠӠ!٠Ԡ"٠ǠҠӠϠ ҠӠ ҠӠ̠ҠҠӠӠҠҠϠŠנ ٠ĠӠ àԠ ҠӠĠڠ e R` \\ RT@\ R\\ RU \ RL`  `A# POKE 800,0 RETURNS TO NORMAL.800,0f LIKEWISE, NOT THE RIGHT BYTE WITH REVISED PROGRAMX"END OF DEMONSTRATION"b"READ REMARKS FOR EXPLANATION"FOLLOWING IS EXPERIMENTAL 800,1*769,5:7704I120:I>8102:770:768,F:769,T:770:768,E:769,T2:770:768,D:769,T:770:768,C:769,T6:770nP1500:P:PAUSE POKE 800,1 CAUSES CALL 770 TO PRODUCE A WHOOPING SOUND:800,1768,200:769,50:770:768,200:769,125:770:768,200:769,250:7702:769,T:770:768,C2:769,T:770:768,C2:769,T:770t768,G:769,T:770:768,G:769,T:770:768,G:769,T:770768,E:769,T:770:768,E:769,T:770:768,E:769,T:770768,C:769,T:770:768,C:769,T:770:768,C:769,T:770W768,G:769,TYOUR BOAT: T40:EIGHTH NOTE768,C:769,T3:770:768,C:769,T3:770:768,C:769,T2:770:768,D:769,T:770:768,E:769,T3:770768,E:769,T2:770:768,D:769,T:770:768,E:769,T2:770:768,F:769,T:770:768,G:769,T6:7707768,CSARY ,C MAJOR SCALE DEMO:3 6T150:TIME VALUE @768,C:769,T:770:768,D:769,T:770:768,E:769,T:770:768,F:769,T:770 J768,G:769,T:770:768,A:769,T:770:768,B:769,T:770:768,C2:769,T:770 TP1500:P:PAUSE ROW, ROW, ROW ARE NOW ALSO VARIABLES WHICH CAN BE USED IN THE FOLLOWING DEMOSj FOR HIGHER OCTAVE, DIVIDE BY TWO  IF THE NUMBER OF OPERATIONS BEFORE EACH CALL 770 IS INEQUAL, TIME VALUES WILL BE ALTERED  SO SOME REPETITION IS UNFORTUNATELY NECESINSTRUCTIONS AND DEMOS:_ TONE (0-255) POKED INTO 768; HIGHER NUMBER GIVES LOWER TONE TIME VALUE (0-255) POKEDINTO 769; 40 TWICE AS LONG AS 20, ETC. DESCRIBE C MAJOR SCALE: C192:D171:E152:F144:G128:A114:B102? NOTE NAMES E RESULT nA770% sX:X10001309 xA,X:AA1:115 }173,48,192,72,104,72,104,72,104,72,104,72,104,72,104,72,104,72,104,72,104,72,104 ~136,208,5,206,1,3,240,9,202,208,241,174,0,3,76,2,3,96,1000 "50-HZ-LOWEST TONE UTILITY LOADED"  ,3,76,2,3,96,10003 "UTILITY LOADED INTO MEMORY"O ("DEMONSTRATION BEGINS"f 2P1300:P:PAUSEo <200 d FOLLOWING IS MODIFIED STILL FURTHER TO PRODUCE TONES TWICE AS LONG AND AN OCTAVE LOWER i BUT LARGE STEPS BEWTWEEN PITCHES IN HIGH RANG =TONE PRODUCTION UTILITY (EX-"LEMONADE") RK 1-13-81V MODIFIED RK 3-8-81`A770r X:X100030A,X:AA1:10173,48,192,234,234,234,234,234,234,234,234,234,234,234,234,234,234,234 136,208,5,206,1,3,240,9,202,208,230,174,0    ; 9" RUSS KARAS 13 SECTOR DISK 12/27/80 SIDE 2" e R` \\ RT@\ R\\ RU \ RL`   `KE230,64.WING ON THE OTHER PAGE:+ 139,0139,150O #:" VOILA!"::f 2CHECK BOTH PAGES:t <16299,0 FD11000:D P16300,0 ZD11000:D:60 dIN SUMMARY, TO DRAW ON PRIMARY PAGE, POKE 230,32; TO DRAW ON SECONDARY PAGE, PO DRAWING ON ALTERNATING3SCREENS AT LAST!N RUSS KARAS 3-9-81gERASE BOTH SCREENS:m s z3HGR LAST SET, SO DRAWING ON PRIMARY PAGE:0,75279,75ALTER POINTER TO DRAW ON SECONDARY PAGE:230,64 SO DRAA%(60)"TD%5: DELAY ADJUSTMENT-XD%130:YN$"AHA"HZLIMIT100Z[D$(4): DOS\N1:S$(0) IS N FOR DOS READ/WRITE81009 AUDIO GAME PROGRAM 1 P770790:K:P,K:X173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96c'61000q(TEXTBOOK2P770788:K:P,K:<173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,0,96H::IPITCH768:TIME769RS$(100)SOS READ <:&A"READ OPUS"::AF"ENTER OPUS # ";OPUS$UPD$;"MON C,I,O"_Z::sdD$;"OPEN ";OP$nD$;"READ ";OP$oNsT1Nx:S$(T)TD$;"CLOSE ";OP$D$;"NOMON C,I,O"T11000::100`DIM&DEFP,0 u u0 u( @ DOS WRITE 8 JS$(1)""ı\ TT0LIMIT:S$(T)""NT:40040c ^Tk h: r"ENTER OPUS NAME: ";OPUS$ |D$;"OPEN ";OP$ D$;"WRITE ";OP$ N T1N :S$(T) T D$;"CLOSE ";OP$ œ100 ( DF$:5000,5999:F$:6000,6999:F$:7000,7999:F$:8000,8999:F$:9000,9999:F$u 9u"LIST UTILITIES?";F$:F$""30011 :u40000,49999:F$ ;u"LIST DEFINITIONS AND DIMENSIONS?";F$:F$""Ā 2020+ T255D  "NOTE= ";P:1:3100J 'a 0u LIST UTILITY 1u"LIST SUBS?";F$:F$""30005 2u0,9:F$:10,19:F$:20,29:F$:30,39:F$:40,49:F$:50,59:F$:60,69:F$:70,79:F$:80,89:F$:90,99:F$ 5u"LIST 2 X4024538:140:X$ 1= X1026019:140:XN I11000:IW 125X3c  A%73ė:"INPUT:":PA%(N%):T10:1:"A%(";N%;")= ";:A%(N):T255:1:T10:2010 PA%(N%):1 K040 "A%(";K;")= ";A%(K);" ", PA%(K):(4);"CATALOG" FOR CATALOG NOW" FAMILY OUTING"Mn:3bxX10:Y100:0:1i}3zX6525057140:X1501X,Y:0:1X,Y:3:2X,Y:0:2X,Y:3:3X,Y:0:3X,Y:3:4X,Y:0:4X,Y:3:5X,Y:0:5X,Y:3       bRESET%7932:CLR%7951:HIRES%7983:CRNCH%7737:TXTGEN%768Z cD$(4): D$ IS CONTROL-Dx dD$;"BLOAD MODULE.3D PSI"&0"  " POKE103,1" 3 " POKE104,96"9 K " POKE175,1"Q d " POKE176,96"} :(24):" CATALOG"; (8)   ` APPLESOFT 3D aCODE%(15),X%(15),Y%(15),SCALE%(15),XROT%(15),YROT%(15),ZROT%(15),SX%(15),SY%(15)2020+ T255D  "NOTE= ";P:1:3100J 'a 0u LIST UTILITY 1u"LIST SUBS?";F$:F$""30005 2u0,9:F$:10,19:F$:20,29:F$:30,39:F$:40,49:F$:50,59:F$:60,69:F$:70,79:F$:80,89:F$:90,99:F$ 5u"LIST 76:A%(10)72:A%(11)64:A%(12)57:( d2 n30008 N TUNE ARRAY A%(*)V T8] 3c  A%73ė:"INPUT:":PA%(N%):T10:1:"A%(";N%;")= ";:A%(N):T255:1:T10:2010 PA%(N%):1 K040 "A%(";K;")= ";A%(K);" ", PA%(K): (60000: FROM RJK & LEMONADEDPITCH,P:TIME,T:770:uN$:A%(N$):N%(N$):A%3ĉ::2000,2999:{::30000 ::100,999:" A%(0)192:A%(1)171:A%(2)152:A%(3)144:A%(4)128:A%(5)114:A%(6)102:A%(7)96:A%(8)85:A%(9)     PUT X (X HIGH)" X/ "INPUT Y (Y COORD)"6 YO 778,A:780,X:782,Y[ 3:768l I15000:Ix 0:768 100 2 TESTING ML HIRES ROUTINES7 RUSS K 3-14-81@ :3a0,00,159279,159279,00,0kA768~(V:V255ī1002A,V:AA1:40<169,79,162,139,160,0,32,17,244,169,0,162,0,160,0,32,48,245,96,1000d"INPUT A (X LOW)"nA x"IN HAMMOND ORGAN."!F1,E038G011GK(E12)GUK1;"=";_FF2o(E$,F,2);"=";E%(K),PE%(K)1:1F22F1G:EZ1100:T255:P254:1:RJK81009 CHROMATIC TEST E17,16 15H::.IPITCH768:TIME769;RS$(100)GSA%(60)cTD%5: DELAY ADJUSTMENTnXD%130{YN$"AHA"ZLIMIT100[D$(4): DOS\N1:S$(0) IS N FOR DOS READ/WRITEfT50:"EQUAL TEMPERED CHROMATICS TUNED TO ,1,240,8,202,208,246,166,0,76,2,0,960K048;E%(K)BKw254,241,225,214,202,191,181,171,161,152,145,136 128,121,113,106,100,95, 90,85, 80,76,71,6763,59,56,53,50,47,44,41,39,37,35,3331,29,28,26,25,23,22,21,19,18,M&DEFaE%(50)3bE$"G G#A A#B C C#D D#E F F#"<cT10UP770790:K:P,K:173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96'60215(TEXTBOOK2P770788:K:P,K:7T119:FUDGE:$<173,48,192,136,208,4,198OS READ <:&A"READ OPUS"::AF"ENTER OPUS # ";OPUS$UPD$;"MON C,I,O"_Z::sdD$;"OPEN ";OP$nD$;"READ ";OP$oNsT1Nx:S$(T)TD$;"CLOSE ";OP$D$;"NOMON C,I,O"T11000::100ǁT011`DI,0 u u0 u( @ DOS WRITE 8 JS$(1)""ı\ TT0LIMIT:S$(T)""NT:40040c ^Tk h: r"ENTER OPUS NAME: ";OPUS$ |D$;"OPEN ";OP$ D$;"WRITE ";OP$ N T1N :S$(T) T D$;"CLOSE ";OP$ œ100 ( DF$:5000,5999:F$:6000,6999:F$:7000,7999:F$:8000,8999:F$:9000,9999:F$u 9u"LIST UTILITIES?";F$:F$""30011 :u40000,49999:F$ ;u"LIST DEFINITIONS AND DIMENSIONS?";F$:F$""Ā 2020+ T255D  "NOTE= ";P:1:3100J 'a 0u LIST UTILITY 1u"LIST SUBS?";F$:F$""30005 2u0,9:F$:10,19:F$:20,29:F$:30,39:F$:40,49:F$:50,59:F$:60,69:F$:70,79:F$:80,89:F$:90,99:F$ 5u"LIST 76:A%(10)72:A%(11)64:A%(12)57:( d2 n30008 N TUNE ARRAY A%(*)V T8] 3c  A%73ė:"INPUT:":PA%(N%):T10:1:"A%(";N%;")= ";:A%(N):T255:1:T10:2010 PA%(N%):1 K040 "A%(";K;")= ";A%(K);" ", PA%(K): (60000: FROM RJK & LEMONADEDPITCH,P:TIME,T:770:uN$:A%(N$):N%(N$):A%3ĉ::2000,2999:{::30000 ::100,999:" A%(0)192:A%(1)171:A%(2)152:A%(3)144:A%(4)128:A%(5)114:A%(6)102:A%(7)96:A%(8)85:A%(9)         L `TkAAA:BBB:XXX:YYY:SAVE COORDINATES OF MOST RECENT (WHITE) DRAWING FOR LATER USE IN ERASURE ROUTINE120:NEXT FRAME OF ANIMATIONP:219,0AA,YY:59,159XX,BB:219,159AA,BB:DELETE OLD IMAGE, USING OLD COORDINATES WHICH HAVE BEEN SAVED AS DOUBLED-LETTER VARIABLESON THE FIRST GO-ROUND, THE PREVIOUS LINE WILL SIMPLY DRAW A BLACK IMAGE ON A BLACK SCREEN, PRODUCING NO VISIBLE EFFECTHAT IS NOW INVISIBLE`PP96P2:A FLIP-FLOP; IF P WAS 32 IT WILL NOW BE 64, AND VICE-VERSA230,P: CAUSE FOLLOWING ERASURE TO OCCUR ON SCREEN CONTAINING OLD IMAGE(I.E. SCREEN WHICH IS NOW INVISIBLE)XX,YYAA,YYAA,BBXX,BBXX,YY:59,0XX,YYLAST DRAWING DONE ON HIRES PAGE TWO, THEN P=64 AND L WILL EQUAL 49237 (-16299), THE ADDRESS OF SWITCH WHICH DISPLAYS SECONDARY PAGE; THE POKE THROWS THE APPROPRIATE SWITCH.0:PREPARE TO ERASE OLD IMAGE (PRODUCED DURING LAST LOOP), WHICH IS ON SCREEN 9,0A,Y:59,159X,B:219,159A,B:DRAW RADIATING LINES FROM CORNERS L49235P32:L,0:IF LAST DRAWING DONE ON HIRES PAGE ONE (I.E. P=32), THEN L WILL EQUAL 49236 (SAME AS -16300),THE ADDRESS OF THE SOFT-SWITCH WHICH DISPLAYS THE PRIMARY PAGE;IF :A140F:Y79F:B80F:USE ENLARGEMENT FACTOR TO TRANSFORM CORNER COORDINATES OF SQUARE 3:PREPARE TO DRAW A NEW IMAGE; ON FIRST PASS, WILL BE DRAWING ON HIRES PAGE ONE (DUE TO "HGR" IN LINE 90) X,YA,YA,BX,BX,Y:DRAW SQUAREC 59,0X,Y:21GEMENT FACTOR0 F(F):TRUNCATE TO AN INTEGERS F5F5:LIMIT SMALLEST SCALE F79ĉ::10: IF SCALING FACTOR HAS REACHED UPPER LIMIT, BLANK OUT SCREEN BY SWITCHING TO TEXT, CLEAR VARIABLES, AND REPEAT THE PROGRAM FROM THE BEGINNINGX X139FARY HIRES PAGE). d49234,0:KILL TEXT WINDOW nP32:CURRENT VALUE IN 230 (DECIMAL ADDRESS), LAST SET BY "HGR" COMMAND (THIS BYTE IS THE POINTER WHICH DETERMINES WHICH SCREEN WILL BE USED BY SUBSEQUENT GRAPHICS COMMANDS) xFF.5F.2:INCREASE ENLARS SIMPLY CLEAR BOTH HIRES SCREENS TO BLACK; "HGR2:HGR" WOULD HAVE THE SAME EFFECT, BUT THIS WAY WE ARE STILL LOOKING AT TEXT PAGE ONE AND SO DON'T HAVE TO WATCH OLD GARBAGE BEING CLEARED FROM THE HIRES SCREENS. Z:NOW GET INTO HGR MODE (LOOKING AT PRIM  SCREENSWITCHING TUNNEL> RUSS KARAS 3-14-81 Dr(230,64:SET TO OPERATE ON HIRES PAGE TWO262450:CLEARS CURRENT HIRES SCREEN TO BLACK<230,32:SET TO OPERATE ON HIRES PAGE ONEF62450:CLEAR TO BLACK PLAST FOUR LINE    N  :CC1:C7C1)C3C50C90,0D(62454L<20C219,159A,B:L49235P32:L,0 0:PP96P2:230,P:XX,YYAA,YYAA,BBXX,BBXX,YY:59,0XX,YY:219,0AA,YY:59,159XX,BB:219,159AA,BB:AAA:BBB:XXX:YYY:10P80F 3:110  SCREENSWITCHING TUNNEL> RUSS KARAS 3-14-81 r:230,64:62450:230,32:62450::49234,0:P32 FF.5F.2:F(F):F5F5 F79ĉ::0 X139F:A140F:Y79F:B80F:3:X,YA,YA,BX,BX,Y:59,0X,Y:219,0A,Y:59,159X,B:12)GK1;"=";FF2-(E$,F,2);="=";E%(K),NPE%(K)1:1]F22F1gG:EvZ1100:T255:P254:1:RJK81009 CHROMATIC TEST ED%5: DELAY ADJUSTMENT#XD%1300YN$"AHA">ZLIMIT100P[D$(4): DOSw\N1:S$(0) IS N FOR DOS READ/WRITE}fT50100:"EQUAL TEMPERED CHROMATICS TUNED TO HAMMOND ORGAN."F1E03G011K(E,241,225,214,202,191,181,171,161,152,145,136h 128,121,113,106,100,95, 90,85, 80,76,71,6763,59,56,53,50,47,44,41,39,37,35,3331,29,28,26,25,23,22,21,19,18,17,1615H::IPITCH768:TIME769RS$(100)SA%(60)T:K:P,K:P173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96['60215i(TEXTBOOK2P770788:K:P,K:7T119:FUDGE:<173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,0,96K048E%(K)K,254MON C,I,O"Z::(dD$;"OPEN ";OP$<nD$;"READ ";OP$CoNNsT1NZx:S$(T)aTvD$;"CLOSE ";OP$D$;"NOMON C,I,O"T11000::100ǁT011`DIM&DEFaE%(50)bE$"G G#A A#B C C#D D#E F F#"cT10 P770790(T)""NT:40040^T h:@r"ENTER OPUS NAME: ";OPUS$T|D$;"OPEN ";OP$iD$;"WRITE ";OP$pN{T1N:S$(T)TD$;"CLOSE ";OP$œ100( DOS READ <:A"READ OPUS"::F"ENTER OPUS # ";OPUS$ PD$;"F$* 9u"LIST UTILITIES?";F$:F$""30011? :u40000,49999:F$t ;u"LIST DEFINITIONS AND DIMENSIONS?";F$:F$""Ā 2020 T255  "NOTE= ";P:1:3100 '::100,999: A%(0)192:A%(1)171:A%(2)152:A%(3)144:A%(4)128:A%(5)114:A%(6)102:A%(7)96:A%(8)85:A%(9)76:A%(10)72:A%(11)64:A%(12)57: d:"TYPE IN ANY STRING UP TO 255 CHARACTERS:": iS$(0):N0 n5 x100  TUNE ARRAY A% (60000: FROM RJK & LEMONADEDPITCH,P:TIME,T:770:uN$:A%(N$):N%(N$):A%3ĉ::2000,2999:{R1(S$(N)):E((S$(N),R,1)):EE64:E1E50E1T%(1)100:TT%30(R1):"^";:PE%(E):1:R:::30000      c 232,0:233,3:768,1:769,0:770,4:771,0:772,58:773,36:774,45:775,54:776,7:777,0o:3:0S1:X139:Y79!40#1X,Y(S:1X,Y2SS1<S70ė::0F35SD;",";E;",";F;",";G;",";H;",";I;",";J;",";X:VV1:",";I;",";J;",";X:VV1:QfW6:1000:IX"pW7:1000:JX5zW8:1000:818o"100 REM YOUR OWN PROGRAM BEGINS HERE"::::0:530X(Z):ZZ1X0W8ıX0W8İ1090:ZYYYY1Y0İ1090:V;" DATA 1000":900W8ı1090:3BV;" DATA ";,"10 POKE 232,252 : POKE 233,29 : A = 7676"[."20 READ X : IF X = 1000 THEN GOTO 100"0"30 POKE A,X : A = A + 1 : GOTO 20"2D0:E0:F0:G0:H0:I0:J04W1:1000:DX>W2:1000:EXHW3:1000:FXRW4:1000:GX\W5:1000:HX255)" M:3:0:M)L139,792530J 1:Y(7676):Z7676|"Y0ĺ"ERROR: NO SHAPE TABLES IN MEMORY":0:#V40:YY(Y2)7678:$"SHAPE TABLE POKING PROGRAM"&"FOR FUTURE ENTRY OF THE SHAPES"("WHICH ARE NOW IN MEMORY":. PRINTOUT OF DATA"+&"ENTER 3 TO ESCAPE"20P@:P1ī600NDP2ī800VN:dXO(7676)]O0ĺ"ERROR: NO SHAPES IN MEMORY":`O1L1:640b"NUMBER OF SHAPES IN MEMORY: ";Ol"WHICH DO YOU WISH TO SEE?"vL"SCALE (1 TO :XX1:1001rC4ĹX,A(B8)(C64):XX1:100V|B0ĹX,A128:XX1:A0:BC:300tX,A(B8):XX1:AC:200232,252:233,29"SHAPE TABLE AND INDICES MADE""AND LOADED INTO MEMORY.""ENTER 1 FOR DEMO""ENTER 2 FOR HARD-COPYNUMBERS".a"(HIT RETURN AFTER EACH NUMBER)"?dA:A8ī200MxX,0:500^B:B8ī300sX,A:X1,0:500,C:C8ī3406X,A(B8):X1,0:500TC0ī370^B0ĹX,A(B8):XX1:X,128:XX1:100 hX,A128:XX1:X,128:XX1:X,128G255HH1:GG256, PX,G:X1,H:O0ī82: QXX2:78[ RXX2:PP256AAPP:BB0:92i SBBPP256 TBBBB1:CCCC1:BB1BBCC:86 U84 VAAPP(BB256) \X,AA:X1,BB ]XP ^"EXISTING SHAPES PROTECTED"_"BEGIN ENTERING VECTOR 7678:Z76765 DO0ĺ"ERROR: NO SHAPES IN MEMORY":F EX(Z):ZZ1Y FX0ZDOO1v GO0PZ2:PPP7676:73~ H69 IZZ1:FZ JE(Z):Z2,E:ZZ1 KZD1ī77 L74 MO(7676):7676,O1:X7678 NG(X):H(X1):OO1 OGG2:HAPE = 8" 6< 8"ENTER 1 TO BEGIN MAKING A SHAPE TABLE"C :Q[ <PROTECTION ROUTINE >"ENTER 1 TO PROTECT SHAPES NOW IN MEMORY;" @"ENTER 2 IF NO PROTECTION NEEDED." BQ:Q2Ĺ7676,1:7677,0:7678,4:7679,0:X7680:95 CO(7676):D(O2) OF A DEMO, A PRINTOUT, OR EXIT."' : ""MOVE UP = 0"P $"MOVE RIGHT = 1"e &"MOVE DOWN = 2"z ("MOVE LEFT = 3" *"PLOT AND MOVE UP = 4" ,"PLOT AND MOVE RIGHT = 5" ."PLOT AND MOVE DOWN = 6" 0"PLOT AND MOVE LEFT = 7" 2"END OF SE NUMBERS (SHOWN BELOW) IN"F "ACCORD WITH THE SEQUENCE OF VECTORS"r "TO BE PLOTTED; HIT RETURN AFTER EACH" "NUMBER. THE PROGRAM DETERMINES THE" "NECESSARY BYTE VALUES AND POKES THEM" "INTO MEMORY. YOU ARE THEN GIVEN THE"! "OPTION5 !SHAPE-TABLE-MAKING UTILITYT RUSS KARAS 1-22-81 s "ENTER 1 FOR EXPLANATION" "ENTER 2 TO BEGIN MAKING A SHAPE TABLE" "ENTER 3 FOR DEMO OF AN EXISTING SHAPE":QQ2ī60Q3ī600 "ENTER TH     X183:N))256:B(B)4 <C(N((A4096)(B256)))16:C(C)] FDN((A4096)(B256)(C16)):D(D)n PXA:200:AX ZXB:200:BX dXC:200:CX nXD:200:DX x(A);(B);(C);(D);" = ";N;" = ";N65536;" VALUE: ";V X10XX176: X HIRES PAGE 1 DETECTIVE51: RK REV 3-28-81UX0:Y0:(4);"BLOAD HRP1D"b:X0:2kX,Y} 768:V(798) N(((780))256)((779)) 30:YY1:Y192ĺ"FINISHED":0: 3N1NN65536(AN4096:A(A) 2B(N(A4096:RK 3-14-81o 232,0:233,3:768,1:769,0:770,4:771,0:772,58:773,36:774,45:775,54:776,7:777,0{:3:0S10:X139:Y79!40#1X,Y(S:1X,Y:SS70S-SSSS1:SS0452SS1<S70ė::0F35S AY SS1:YY7:S# S10ī200, 120< P1500:PP Y150:1:S1:0] 1139,Yp SS1:YY7:S S10ī220 3:1139,Y ,P11000:P 61139,Y @SS1:YY7:S J1139,Y TS1310 ^1139,Y hP1500:P r110"SUCCESS" 1-22-81. 232,252:233,299A7676LN:N255ī100_(A,N:AA1:30l21,0,4,0s73<219,219,219,43,173,41,60,108,54,37,76,55,110,57,36,77,55,29,110,37,39,77,55,53,79,40,45,0,1000d:3:O:Y150n1:S1 x1139,  5 @ @L@ `p ,45,13,45,5,0,13,77,105,5,0,13,13e 4 45,13,5,0,9,13,45,13,5,0,9,13,77,41,0,13,0,109,0,45,13,0,1000s dY100:S1 nS85,Y:YY1 xY90S2 Y85S3 Y80S4 Y75S5 Y70S4 Y60ī200 110 A"TO FORM BLOCK LETTERS "JSL"FUSING APPROPRIATE SHAPE TABLES^RUSS KARAS 1-27-81s:2:0,0:62454 3:0:10232,252:233,29:A7676X:X1000ī100(A,X:AA1:3028,0,18,0,25,0,30,0,36,0,42,0,47,0,49,0! 351,0,45,13  C#(0,Y139,Y42228,C:CC1>7YY1N<Y127ī100VF30^dY0enCvx140,Y279,Y228,C:CC1YY1C255Ā110C  "(.357:- - - Mi -  -  M) m- "(%?(-%??(--mI8????????g--------?????? -----????,---%????(----%??'mII-'MIIITRANSFORMATION& RK 3-15-811 A8192<X(A)OX255X0:30^X0X255sX255X0XX1|-A,X2AA1:A16384Ā<208  RK 1-26-81:::* :3:318980FY50:S1VS:1139,YfYY1:SS1r<S40ızF20P18Z0:18d3:18n90Y 3Y0:YY159.(X:X1000Ā<2X,YX,YYD<40F1,2,3,5,6,7,9,10,11,13,14,15,17,18,19,21,22,23,25,26,27,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,1000Y 75S5 Y70S4# Y60ī183, 1103 1_ 920,20:9250,40:9150,15:9139,139m 950,100u 10{ 3:100:1:100:4:100:5:100:6:100:7:100:200Y%"PROGRAM FOR SUPERSTAR SHAPES"> RUSS KARAS 1-27-81J::10_:2:0,0:62454m 3:0:10232,252:233,29(4);"BLOAD SUPERSTAR SHAPES"P200dY100:S1nS85,Y:YY1xY90S2Y85S3Y80S4 Y .T FU EL 110 1< 920,20:9250,40:9150,15:9139,139J 950,100R 10X 3:100:1:100:4:100:5:100:6:100:7:100:200Y%"PROGRAM FOR SUPERSTAR SHAPES"> RUSS KARAS 1-27-81J::10_:2:0,0:62454m 3:0:10232,252:233,29P200dY100:S1nS85,Y:YY1xY90S2Y85S3Y80S4Y75S5Y70S4 Y60ī183 775,54:776,7:777,0J ::230,64:62450:230,32:62450::49234,0:P32] S1:X139:Y79x S1:SS1:S:X139:Y79 SS1:S70ĉ:10 (S:5:30P EXPANDING ST SQUARE7 WITH SCREEN SWITCHINGj RUSS KARAS 3-16-81 q73:1X,Y:L49235P32:L,0:0:PP96P2:230,P:SS:1X,Y:SSS: 232,0:233,3:768,1:769,0:770,4:771,0:772,58:773,36:774,45:  5\'$$$$$$$$666666??$$$$$$$$$$$4666666??$$$$$$$$$$$$$$465v666??$$ $$ $$ $$ $$ $ 6666>5-??$ $ $ $ d$ $ d$ $66666666-- 0:YY0` (3:1X,Y:S49235P32:S,0:0:PP96P2:230,P:1XX,YY:XXX:XX1:X279X0:YYYj -XX1y .X279X0 240X JSL ON THE MOVE+ RK 3-16-81 232,252:233,29:7676,1:7677,0:7678,4:7679,0:7680,46:7681,36:7682,145:7683,37:7684,39:7685,13:7686,54:7687,5:7688,0:230,64:62450:230,32:62450::49234,015:0 X0:Y100:P32:XX! ! 200 FX,Y:B:GX,Y:A$ 2002 GX,Y:BI XX19:X230İ500\ CX,Y:A:120b i B 52,4652,9762,92217,92227,97227,46:62,9262,32:217,92217,32 A: 200:X70 I11000:I  AV217,92217,32" W62,32217,322 X23,062,32D Y217,32256,0W Z42,10323,114l [237,103256,114 dC1:D2:E3:F4:G5 iX70:A nY100:0:1 xCX,Y:B:DX,Y:A }200 DX,Y:B:EX,Y:A 200 EX,Y:B:FX,Y:A  WALKING LEGS A0:B3+ ::B@232,252:233,29_(4);"BLOAD WALKING LEGS"q242,4042,1037237,40237,103<42,4052,46A237,40227,46F52,4652,97K227,46227,97P52,9762,92217,92227,97U62,9262,32 !! ! BUDGEPIXELS EXPLANATION1 RK 3-17-81THIS IS THE ML PROGRAM FOR THE SWIRLING PIXELS FROM "ARCADE", ALONG WITH MUCH THAT IS IRRELEVANT IT LOADS INTO MEMORY FROM $15B5TO$1FB4; ACTIVATED BY CALL 7062 AND THEN CALL 7462.d:0,99" " :3:4X,Y:0:4X,Y:3:5X,Y:0:5X,Y:31 8 2Q X4024538:140:XX 1q X1026019:140:X I11000:I 125X FAMILY OUTING! :(23)D" FAMILY OUTING"c(4);"BLOAD WALKING LEGS"x2232,252:233,29n:3xX10:Y100:0:1}3X6525057140:X150+ 1X,Y:0:1X,Y:3:2X,Y:0:2X,Y:3:3X,Y:0:3X,Y""