Compute! Gazette 1985 June

home *** CD-ROM | disk | FTP | other *** search

/ Compute! Gazette 1985 June / 1985-06.d64

Wrap

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

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk~~~k~~~k~~~~~~k~~~~~~~~~~~~~~ {CBM-K}~~k~~~~~~~~~~kk~kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk~kk~~~~~~~~~~~~~~kkkkkkkkkkkkkkkkkkkkkkkkkk~~~k~k D:a${CBM-R}I(D(2{CBM-D}xx{CBM-Z}5{CBM-N}1),1) {$e9}'D: move cursor ({CBM-@}D:ct{CBM-R}0:cl{CBM-R}xx:ofs{CBM-R}{CBM-Q}3:900 ({SHIFT-POUND}D: print "voice" 8({CBM-S}D:"f"a$" "wrd$(0)xx{CBM-Z}5{CBM-N}1 y({CBM-W}D: z determines display type Y({CBM-U}D:yy{CBM-R}1{CBM-@}10:z{CBM-R}1{CBM-Q}(yy{CBM-W}8){CBM-Q}(yy{CBM-R}3) (BD: ct{CBM-R}yy:ofs{CBM-R}0:900 {CBM-P}(LD: wrd$(yy)" "J(" 0-",z,1) {CBM-L}(VD: {CBM-C}( D B {CBM-R}8 {$de}%D en,os used in i/o &Dx{CBM-R}23:o{CBM-R}38:e{CBM-R}14:t{CBM-R}22:en{CBM-R}254:os{CBM-R}253 f&D ***** read screen data ***** F&Dwx%(22),wy%(22): word x,y &"Dvx%(22),vy%(22): value x,y {CBM-M}&,Dwrd$(22): display strings {CBM-H}&6Dxx{CBM-R}0{CBM-@}22 J&@D:wx%(xx) rd {CBM-L}0{$f6} I0{$f6}3,4,3,4,voice {$e6}0"{$f6}3,13,3,23,"frequency: 1,{$f6}4,13,4,23,"pls width: 16{$f6}5,14,5,24,"waveform: 91@{$f6}3,30,3~37,"attack: r1j{$f6}4,31,4,37,"decay: M1t{$f6}5,29,5,37,"sustain: 1^{$f6}6,29,6,37,"release: 1H{$f6}6,13,6,13,"gate {CBM-L}1R{$f6}6,18,6, 1:xx{CBM-R}0:yy{CBM-R}0:zz{CBM-R}0:z{CBM-R}0 {$f9}#CC up=cursor up/down=slow $DC fa=crsr lft/rght=moderate .$EC lo=return=fast l$FC no shift=down, shift=up P$HCkk{CBM-R}0:hh{CBM-R}0:h{CBM-R}0:j{CBM-R}0:k{CBM-R}0:dv{CBM-R}0:ct{CBM-R}0 $MC kk holds current key value {CBM-N}$NC hh>0 if shift down L$OC dv,ct,cl are display 900: plot K.LO wrd$(ct) /VO"";:: ***** program data ***** /^{$ea} cursor move routine /_{$ea} c/{$60}{$ea}24,166,251,164,252,76,240,255 i/{SHIFT-*}{$ea} o/A{$ea} G/B{$ea} interrupt routine M/C{$ea} /D{$ea}120,169,226,141,20,3,169 {SHIFT-POUND}/N{$ea}2,141,21,3,88,96,120,169 F/X{$ea}4 B(sbuf{CBM-N}xx) " :: ** initialize ** &"kC * put in system routines * d"lC * cursor plot routine * _"pCmove{CBM-R}679:cx{CBM-R}251:cy{CBM-R}252 S"zCxx{CBM-R}move{CBM-@}move{CBM-N}7 "DC:yy:xx,yy {CBM-Y}"NC: interrupt routine G"XCxx{CBM-R}712{CBM-@}760 W" {CBM-I}Ksid{CBM-N}4,B(sbuf{CBM-N}4) -{CBM-D}K: ***** highlight current entry ***** .-O line 53000 clears old voice n-O line 53010 highlights new P-O line 53020 clears old entry -O line 53040 highlights new -O {CBM-U}-Oct{CBM-R}0:cl{CBM-R}5{CBM-D}oel{CBM-D}{CBM-Q}(ct{CBM-W}11):5 0 {$ea}Q f5(f6)=on then off R z=read value, set to 1 & S will cause a toggle to 0 a T h serves to adjust z o Vh{CBM-R}1:7100 w h{CBM-R}2 X {CBM-Y} voice gates at sid+4,11,18 {CBM-C}xx{CBM-R}4{CBM-@}18{SHIFT-POUND}7 {CBM-G} A: if f3, set to turn off {SHIFT-@} F:700:kk{CBM-R}f3{CBM-M}z{CBM-R}1 O K: adjust for f ***** clear sid & buffer ***** +8Gxx{CBM-R}sid{CBM-@}sid{CBM-N}28 +lG: xx,0 /+vG: sbuf{CBM-N}xx{CBM-Q}sid,0 5+{$60}G K+JG: ***** error buzz **** + Ksid{CBM-N}23,0: no filter +*Ksid{CBM-N}24,15: full vol {CBM-Y}+4Ksid{CBM-N}1,10: voice 1 ,33,"ext M2 {$f6}22,13,22,18,"osc3 {$e6}2{$ea}{$f6}22,21,22,26,"env3 3{$f4}{$f6}22,29,22,29,"turnoff 3 @3{$fe}{$f6} *** end of program *** 7,"decay: M1t{$f6}5,29,5,37,"sustain: 1^{$f6}6,29,6,37,"release: 1H{$f6}6,13,6,13,"gate {CBM-L}1R{$f6}6,18,6, ({$ea}D {$de}({$ef}D filter & volume stuff {$f2}({$f4}Dct{CBM-R}11:cl{CBM-R}0:900 ){$fe}Dwrd$(11) )Exx{CBM-R}12{CBM-@}22:xx{CBM-W}{CBM-E}16{CBM-M}50460 5) E: additional prompt w)E:" assign filter Q)E: a$=default display )E:a${CBM-R}"":xx{CBM-W}15{CBM-M}a${CBM-R}" 0 {SHIFT-POUND})&E:xx{CBM-R}15{CBM-A}xx{CBM-R}20{CBM-A}xx{CBM-R}21{CBM-M}a${CBM-R}" - G)0E:ct{CBM-R}xx:900: ,wy%(xx) &jD:vx%(xx),vy%(xx) {$ef}&tD:wrd$(xx) ,'^D: ***** display screen ***** ['{$7c}D" sid editor - press a highlighted key 'D"crsr:[u/d]=slow,[l/r]=med, [return]=fast {CBM-+}'Dxx{CBM-R}0{CBM-@}10{SHIFT-POUND}5: voices 1-3 {CBM-X}'D: 0=f1,5=f3,10=f5 V' 18,"ring M1{$7c}{$f6}6,23,6,23,"sync {$e7}1{$f6}19,1,19,1,filter/out 2{$f6}19,13,19,23,"frequency: %2{$f6}20,13,20,23,"resonance: a2{CBM-@}{$f6}19,30,19,37,"volume: [2{CBM-S}{$f6}20,32,20,37,"mode: Q2{CBM-U}{$f6}21,27,21,27,"1 2B{$f6}21,29,2,29,"2 2L{$f6}21,31,21,31,"3 {CBM-H}2V{$f6}21,33,21 values {$ee}$RCcl{CBM-R}0:aa{CBM-R}0:bb{CBM-R}0:cc{CBM-R}0:sid{CBM-R}54272 %WC op=move interrupt,cs=restore /%{CBM--}Csbuf{CBM-R}move{CBM-N}8:op{CBM-R}712:cs{CBM-R}725 l%{$e1}C highlighted key values D%{$e6}Cf1{CBM-R}4:f3{CBM-R}5:f5{CBM-R}6:f7{CBM-R}3 %{$f0}Cf{CBM-R}21:p{CBM-R}41:w{CBM-R}9:a{CBM-R}10:d{CBM-R}18:s{CBM-R}13:r{CBM-R}17 {CBM-D}%{$fa}Cg{CBM-R}26:i{CBM-R}33:y{CBM-R}25:q{CBM-R}62:n{CBM-R}39:m{CBM-R}36 F%Dv{CBM-R}31:n1{CBM-R}56:n2{CBM-R}59:n3 9,141,20,3,169,234,141 {$e3}/{$e2}{$ea}21,3,88,96,166,253,48,6 0{$ec}{$ea}173,27,212,157,0,212,166 0{$f6}{$ea}254,48,6,173,28,212,157 30 {$eb}0,212,76,49,234 90{$f6} ?0{$f6} y0{$f6} screen display data _0{$f6} 0{$f6} word start x, word start y, {CBM-G}0{$f6} value start x, value start y, {CBM-A}0{$f6} wo C:yy:xx,yy #C: ***** variable assignment ***** 6#{CBM-H}Ckey{CBM-R}203:shft{CBM-R}653:null{CBM-R}64 u#{CBM-O}C peek(key)=val of current U#{SHIFT-@}C key down, peek(shft)>0 if #{CBM-F}C shift,c=,or ctrl pressed {CBM-L}#{CBM-C}C peek(key)=null means no key {CBM--}#{CBM-V}Cup{CBM-R}7:fa{CBM-R}2:lo{CBM-R} 3070 L- O cl=row offset {$e8}-Ocl{CBM-R}5{CBM-D}el{CBM-D}{CBM-Q}(dv{CBM-W}11):53060 .Oct{CBM-R}odv:cl{CBM-R}5{CBM-D}oel{CBM-D}{CBM-Q}(ct{CBM-W}11) .&O53070 ".0Ooel{CBM-R}el:odv{CBM-R}dv ?.:Oct{CBM-R}odv:cl{CBM-R}5{CBM-D}oel{CBM-D}{CBM-Q}(ct{CBM-W}11) i.dO""; J.iO no change for these values .jO gate, ring, etc .nOct{CBM-W}0{CBM-A}ct{CBM-E}14{CBM-M}53110 {CBM-D}.xOct{CBM-R}3{CBM-A}ct{CBM-R}11{CBM-M}53110 {CBM-C}.BO 5 {CBM-*} P:h{CBM-E}0{CBM-M}z{CBM-R}h{CBM-Q}1 {$fc} U: calculate display row !Z:cl{CBM-R}{CBM-Q}5{CBM-D}(xx{CBM-R}11){CBM-Q}10{CBM-D}(xx{CBM-R}18) 3!{CBM-*}: display as on/off n!{$e4}:(z{CBM-W}{CBM-E}1){CBM-N}253060,53070 H!{$ee}:z{CBM-R}{CBM-Q}(z{CBM-R}0):yy{CBM-R}yy{CBM-P}254{CBM-A}z {$7e}!{$f3}: save in buffer !{$f8}:sbuf{CBM-N}xx,yy ! {CBM-P}! move to sid quickly {CBM-V}!xx{CBM-R}4{CBM-@}18{SHIFT-POUND}7 V!:sid{CBM-N}xx, M+>Ksid{CBM-N}5,0: no a/d {$e7}+hKsid{CBM-N}6,240: full sus ~+rKsid{CBM-N}4,0: gate off ,\Ksid{CBM-N}4,33: saw on -,FKxx{CBM-R}1{CBM-@}80:: delay f,KK restore old values ],PKsid{CBM-N}23,B(sbuf{CBM-N}23) T,ZKsid{CBM-N}24,B(sbuf{CBM-N}24) ,Ksid{CBM-N}1,B(sbuf{CBM-N}1) ,Ksid{CBM-N}5,B(sbuf{CBM-N}5) {CBM-W},Ksid{CBM-N}6,B(sbuf{CBM-N}6) H, Yhb{CBM-D}256 Z15,8,15 {$e4}1,8,2,"rel.file" a{$ee}15,"p"{CBM-N}G(2{CBM-N}96){CBM-N}G(lb){CBM-N}G(hb){CBM-N}G(po) ]{$f8}a{CBM-R}po{CBM-@}120:{CBM-K}#1,a$:a$;: {$7f}15,e,e$:"disk status:":e$ 1: 15 {CBM-Q}"press any key to continue" {CBM-V} {CBM-K}g$:g${CBM-R}""{CBM-M}800 G*700 #1,a$:rc${CBM-R}rc${CBM-N}a$: {$eb} : 1: 15 {$fc} dJ(r move cursor X):E:wrd$(xx)a$ )dE: *nE" f2=toggle f4=all off f6=on/off f8=quit"; 5*sE display values default r*xEel{CBM-R}0:oel{CBM-R}el:dv{CBM-R}{CBM-Q}1:odv{CBM-R}dv *{CBM-+}E ***** insert i/o into interrupt ***** {CBM-J}*{CBM-POUND}Een,255:os,255:op {$f9}*4G ** key dispatch ***** {CBM--}kk{CBM-R}f{CBM-M}2000: frequency ;{$e6}kk{CBM-R}p{CBM-M}2000: pulse width s{$f0}kk{CBM-R}a{CBM-M}3000: attack J{$fa}kk{CBM-R}d{CBM-M}3000: decay kk{CBM-R}s{CBM-M}3000: sustain kk{CBM-R}r{CBM-M}3000: release {CBM-L}kk{CBM-R}w{CBM-M}4000: waveform L"kk{CBM-R}g{CBM-M}4000: gate {$e2},kk{CBM-R}i{CBM-M}4000: ring {$f8}6kk{CBM-R}y(ct){CBM-N}ofs: & column 950 -{CBM-I}cx,vx%(ct){CBM-N}cl: value row l{CBM-D}cy,vy%(ct): & column F{CBM-L}move:: move cursor {$e4} ** main routine ** X{$e8} 50000: initialize ***** key input ***** {$f4}lkk{CBM-R}B(key):kk{CBM-R}null{CBM-M}rn ***** filt/mode calculation ***** dv{CBM-R}{CBM-Q}1:53020: clear old :dv{CBM-R}15:ct{CBM-R}dv:cl{CBM-R}0: mode s filter assignment? Nkk{CBM-R}n1{CBM-M}dv{CBM-R}16:h{CBM-R}1:5500 {CBM-+}kk{CBM-R}n2{CBM-M}dv{CBM-R}17:h{CBM-R}2:5500 {CBM-@}{CBM-A}kk{CBM-R}n3{CBM-M}dv{CBM-R}18:h{CBM-R}4:5500 {CBM-V}{SHIFT-@}kk{CBM-R}x{CBM-M}dv{CBM-R}19:h{CBM-R}8:5500 K{CBM-B} 3 off? {$e1}Dkk{CBM-R}t{CBM-M}dv{CBM-R}2 15 V930:z" ": pos & prnt , {SHIFT-+} mask on to byte b z{CBM-R}B(bb){CBM-P}255{CBM-Q}j{CBM-A}z{CBM-D}k B {$e5} insert & go back for more {$ea}bb,z:sid{CBM-N}h,z:400: ***** bit decoding ***** {CBM-F} {CBM-C}yy{CBM-R}B(sbuf{CBM-N}xx): value of byte {SHIFT--} Fz{CBM-R}{CBM-J}((yy{CBM-P}j){CBM-Z}k): val of bit(s) {$fd} K mask values set {CBM-H}kk{CBM-R}g{CBM-M}dv{CBM-R}8:j{CBM-R}1: gate {CBM-V}kk{CBM-R}i{CBM-M}dv{CBM-R}9:j{CBM-R}4: ring -Hkk{CBM-R}y{CBM-M}dv{CBM-R}10:j{CBM-R}2: sync aRk{CBM-R}j:j{CBM-R}240{CBM-M}k{CBM-R}16 DW go get value from sid buffer {$7d}X branch if waveform {CBM--}700:dv{CBM-R}3{CBM-M}4110 {CBM-@}{$e2} toggle value {CBM-B}{$e6}z{CBM-R}{CBM-Q}(z{CBM-R}0):cl{CBM-R}el{CBM-D}5:ct{CBM-R}dv Z{$f0}z{CBM-R}1{CBM-M}"";: highlight {$f5}{$fa}, back for more %tyy,B(h):yy{CBM-N}bb,B(h{CBM-N}bb) .^200 pC filter is odd; 11-bit value KD stored 3 low, 8 high Hyy,z{CBM-P}7:yy{CBM-N}bb,z{CBM-Z}8 DR200: ***** 8-bit calculation ***** {CBM-*}kk{CBM-R}B(key):kk{CBM-R}null{CBM-M}400 ~ key pressed, is it ***** 8-bit evaluation ***** ,{CBM-U}dv{CBM-R}4:h{CBM-R}el{CBM-D}7{CBM-N}5:j{CBM-R}240:k{CBM-R}16: atck k{CBM-X} decay, sustain, release? CBkk{CBM-R}d{CBM-M}dv{CBM-R}5:j{CBM-R}15:k{CBM-R}1 {$7b}Lkk{CBM-R}s{CBM-M}dv{CBM-R}6:h{CBM-R}el{CBM-D}7{CBM-N}6 Vkk{CBM-R}r{CBM-M}dv{CBM-R}7:h{CBM-R}el{CBM-D}7{CBM-N}6:j{CBM-R}15:k{CBM-R}1 {CBM-Y}{SHIFT-+} resonance or volume? L kk{CBM-R}n{CBM-M}dv{CBM-R}13:h{CBM-R}23 {$ea}{$ea}kk{CBM-R}v{CBM-M}dv{CBM-R}14:h{CBM-R}24:lp {$ea} z{CBM-R}2{CBM-M}a${CBM-R}"bp {$fa} z{CBM-R}4{CBM-M}a${CBM-R}"hp a$:5550: display )# turn 3 off hpct{CBM-R}dv:xx{CBM-R}24:j{CBM-R}128:k{CBM-R}1:700 \u mask & toggle {$7c}zzz{CBM-R}128{CBM-D}{CBM-Q}((z{CBM-P}j){CBM-R}0):h{CBM-R}1:5520 D I assign filter {CBM-H}{$7c}ct{CBM-R}dv:xx{CBM-R}23:j{CBM-R}15:k{CBM-R}1:700 Xzz{CBM-R}h{CBM-D}{CBM-Q}((z{CBM-P}h){CBM-R}0): mask & togg evaluation ***** Pdv{CBM-R}1:kk{CBM-R}p{CBM-M}dv{CBM-R}2 Zkk{CBM-R}q{CBM-M}dv{CBM-R}12 ?{CBM-*} dv:1=voice freq, 2=pls wdth _ 12=filter freq, clear old Y{$e1} vars used for speed {$e2} zz=max val, h=sid reg {CBM-L}{$e4}53020:xx{CBM-R}256:aa{CBM-R}0:bb{CBM-R}1:cc{CBM-R}2 P{$ee}k{CBM-R}29:h{CBM-R}0:zz{CBM-R}65535:j{CBM-R}7 {$e6}{$f8}dv{CBM-R}2{CBM-M}zz{CBM-R}4095:h{CBM-R}2itch {$fb} either 255 (off),0 (voice 1, low),1 (voice 1, high), or 22 > (filter frequency, high) _j{CBM-R}{CBM-Q}(j{CBM-R}0){CBM-Q}22{CBM-D}(j{CBM-R}1){CBM-Q}255{CBM-D}(j{CBM-R}22) {$7b}{CBM-I}h,j:930: save & move {CBM-M} calculate display {CBM-S}{CBM-D}j{CBM-R}1{CBM-Q}(j{CBM-E}0){CBM-Q}(j{CBM-E}1){CBM-Q}(j{CBM-E}22) G{CBM-L}J("lhf-",j,1):1100 t {CBM-M}4000: sync @kk{CBM-R}q{CBM-M}2000: filter freq 0jkk{CBM-R}n{CBM-M}3000: resonance htkk{CBM-R}v{CBM-M}3000: volume ^^kk{CBM-R}m{CBM-M}5000: mode WHkk{CBM-R}n1{CBM-M}5000: assign Rkk{CBM-R}n2{CBM-M}5000 {$7c}kk{CBM-R}n3{CBM-M}5000 {CBM-+}kk{CBM-R}x{CBM-M}5000 {CBM-C}kk{CBM-R}o{CBM-M}6000: osc3 Rkk{CBM-R}e{CBM-M}6000: env3 {$e9}{CBM-@}kk{CBM-R}t{CBM-M}5000: 3 off 1100 q key pressed, if shift is 5r down, skip entry level calc ovhh{CBM-R}B(shft):hh{CBM-R}1{CBM-M}1500 N[ entry level into voices? {$60}kk{CBM-W}f1{CBM-A}kk{CBM-E}f5{CBM-M}1500 {CBM-G}E change entry level & clear DJel{CBM-R}kk{CBM-Q}4:dv{CBM-R}{CBM-Q}1:53000:1100 X ***2:5200 {$e7}N {$fc}S mode increment Xxx{CBM-R}24:j{CBM-R}112:k{CBM-R}16:700 5{SHIFT--} incr 0->1,1->2,2->4,4->0 y{$de} program modification possible {$7b}{CBM-*} to allow more than one mode at the same time {CBM-Q}{$e2}z{CBM-R}(z{CBM-D}2{CBM-Q}(z{CBM-R}0)){CBM-D}{CBM-Q}(z{CBM-W}4) B{$ec}930: move cursor Z{$f6}a${CBM-R}" -":z{CBM-R}1{CBM-M}a${CBM-R}"by caller 8P: ***** bit encoding ***** u yy{CBM-R}yy{CBM-P}255{CBM-Q}j{CBM-A}z{CBM-D}k: encode R*sbuf{CBM-N}xx,yy: set buffer 4sid{CBM-N}xx,yy: set sid H>: ***** cursor plotter ***** {$e6}cx,wx%(ct){CBM-N}cl: word row cy,wy%53070:4190: display {$fb} inc 0->1,1->2,2->4,4->8,8->0 7z{CBM-R}(z{CBM-D}2{CBM-Q}(z{CBM-R}0)){CBM-D}{CBM-Q}(z{CBM-W}8) xct{CBM-R}dv:cl{CBM-R}el{CBM-D}5:930: mve crs O display waveform "a${CBM-R}"-":z{CBM-R}1{CBM-M}a${CBM-R}"t ,z{CBM-R}2{CBM-M}a${CBM-R}"s {CBM-T}6z{CBM-R}4{CBM-M}a${CBM-R}"p {CBM-R}@z{CBM-R}8{CBM-M}a${CBM-R}"n {SHIFT-@}ja$ {SHIFT-*}t ^800:1100: store & rt valid? #kk430,430,420,420,420,420,430 d no, return with value kept j{CBM-@} C{CBM-S}hh{CBM-R}B(shft):bb{CBM-R}sbuf{CBM-N}h {CBM-W} add increment (same for any {SHIFT-POUND}{CBM-H} valid key), pos if shift down I{CBM-U}z{CBM-R}(B(bb){CBM-P}j){CBM-Z}k{CBM-N}(hh{CBM-R}0){CBM-Q}(hh{CBM-E}0) {$e9}Bz{CBM-W}0{CBM-M}z{CBM-R}0: min & max values {$f8}Lz{CBM-E}15{CBM-M}z{CBM-R}j{CBM-R}15:k{CBM-R}1 {$ef} clear, calc & display values /{$f0} when non-valid key pressed, n{$f1} return with value intact {$f4}53020:400:1110: ***** ctrl byte calculation ***** {CBM-@} dv{CBM-R}{CBM-Q}1:53020: clear {SHIFT-@}{CBM-G} set mask values {$de}{CBM-N}xx{CBM-R}4{CBM-N}el{CBM-D}7:dv{CBM-R}3:j{CBM-R}240: waveform {$f8}le {$e8}zz{CBM-E}0{CBM-M}""; {$fd}53090: display {CBM-@}z{CBM-R}z{CBM-P}j{CBM-Q}h{CBM-A}zz b{CBM-S}800:1100: store & rtrn ***** i/o insert ***** [Pdv{CBM-R}{CBM-Q}1:53020: clear PU default to osc Zh{CBM-R}os:ct{CBM-R}20:cl{CBM-R}0:kk{CBM-R}o{CBM-M}6030 {$7f} envelope {CBM-Z}h{CBM-R}en:ct{CBM-R}21 Ej{CBM-R}B(h): read value X value sw dv{CBM-R}12{CBM-M}zz{CBM-R}2047:h{CBM-R}21:j{CBM-R}0 # pre-calculate buffer & sid 6 entry points vyy{CBM-R}sid{CBM-N}el{CBM-D}j{CBM-N}h:h{CBM-R}sbuf{CBM-N}el{CBM-D}j{CBM-N}h R calc & display values once a non-valid key is found {CBM-O} in subroutine, exit with key L value intact 200:1110: ***** function keys ***** xdv{CBM-R}{CBM-Q}1:53020: clear @] cannot arrive here unless {$60}^ shift key was pressed, so X_ f1=f2,f3=f4,f5=f6 Bh{CBM-R}0:ct{CBM-R}8:j{CBM-R}1:k{CBM-R}1: default {CBM-F}G f1(f2)=toggle, f3(f4)=all off QLkk{CBM-R}f1{CBM-A}kk{CBM-R}f3{CBM-M}710{SHIFT-POUND} special functions {CBM-S}kk{CBM-R}f1{CBM-M}7000:1100 /{CBM-U}kk{CBM-R}f3{CBM-M}7000:1100 fBkk{CBM-R}f5{CBM-M}7000:1100 CLkk{CBM-W}{CBM-E}f7{CBM-A}hh{CBM-R}0{CBM-M}1800: end? V{CBM-K}a$:a${CBM-W}{CBM-E}""{CBM-M}1750: clr buf sid{CBM-N}24,0:cs:: end {CBM-C}dv{CBM-R}{CBM-Q}1:53020: no valid key {$f9}52000:1100: oops ***** 16-bit 40 , a${CBM-R}"":a{CBM-R}1{CBM-@}5200:{CBM-K}a$:a${CBM-R}""{CBM-M}a 2 j( """;:printchr$(14) y- 36879,254 Y2 " COMPUTE's "; f " Tool Kit: BASIC " Ez "VIC-20 and Commodore 64" VD "Dan Heeb" {$f1}N "This comprehensive" X "guide create relative file = 65517:B(781){CBM-R}40{CBM-M}mt${CBM-R}"":3 i mt${CBM-R}"" mt$" this disk is write":" protected. please" {CBM-O} " insert a different":" disk to save the" T " files created with" " this program.":" press any k95" P" ISBN 0-942386-78-7" Z 20 *"":36879,25 j"To order books," D"call toll free" {$7e}{CBM-I}"1-800-334-0868" {CBM-D}"(in N.C. 919-275-9809)" {CBM-+}{CBM-L} 20 Q{SHIFT-*}a${CBM-R}"lO"{CBM-N}G(34){CBM-N}"vm"{CBM-N}G(34){CBM-N}",8:"{CBM-N}G(131) ~Ja{CBM-R}1{CBM-@}C(a$): 630{CBM-N}a,F(J ,"end" z 1 / _ 15,e,e$:"disk status:":e$: 15 k C prepare to write file w D rc{CBM-R}rc{CBM-N}1 B N rc${CBM-R}"" X sp${CBM-R}" " {CBM-I} "first name":nf$ {SHIFT-@} "middle name":mn$ P "last name":ln$ {$eb} "street address":sa$ {$fc} {CBM-N} "city":cpisodes in" {CBM-C}"the home computer" 'F"industry." 0N 20 kO"The story of the" FP"struggle to capture" {$7f}Z"the home computer" {$e4}"market, this book" {CBM-A}{$ee}"takes the reader" H{$f8}"inside a dynamic" {$e4}"corporate structure." {$fd}"Autho{CBM-R}rc${CBM-N}H(ph${CBM-N}sp$,12) + write to file +,15,8,15 a61,8,2,"rel.file" r@hb{CBM-R}{CBM-J}(rc{CBM-Z}256) Cjlb{CBM-R}rc{CBM-Q}hb{CBM-D}256 t15,"p"{CBM-N}G(2{CBM-N}96){CBM-N}G(lb){CBM-N}G(hb){CBM-N}G(1) ^1,rc$ H 1 {SHIFT-*}R15,e,e$:"disk status:":e$: 15 X{$7c}:"another entry?" {$eb}{CBM-K}g$:g${CBM-R}""{CBM-M}390 {$fb}g${CBM-R}"n{$f4}"modems, and CP/M." {$fe} 20 8"For all VIC and 64" u"users who plan to add" K"to their basic" "computer system. &" $9.95" {CBM-U}0" ISBN 0-942386-56-6" A: 20 Td"":36879,29 {$f3}n"THE HOME COMPUTER WARS" c$,1,15) nJ(rc$,16,15) xJ(rc$,31,15) 2BJ(rc$,46,30) dLJ(rc$,76,25) vVJ(rc$,101,3) HJ(rc$,104,5) {$7b}J(rc$,109,12) {CBM-F} read individual record {SHIFT-@}{CBM-C}"record # to read":re ZF"starting at position":po {$f8}Phb{CBM-R}{CBM-J}(re{CBM-Z}256):lb{CBM-R}re{CBM-Q}6" ISBN 0-942386-32-9" @ 20 3j"":36879,31 tt"Commodore Peripherals:"; S^" A User's Guide " H"Julie Knott " M"and" {CBM-Q}R"David Prochnow" L{$7c}"This easy-to-read book"; {$e7}"guides the computer" "owner throdD 1000: ***** 16-bit calculation ***** _H kk{CBM-R}B(key):kk{CBM-R}null{CBM-M}200 M key pressed, use vars for speed {CBM-T}R j{CBM-R}bb:z{CBM-R}B(h{CBM-N}bb):hh{CBM-R}B(shft) EW cur-up=7,cur-lft=2,return=1 {$e9}{CBM--} kk240,250,230,230,230,230,260 {$e6} : no valid keyto the BASIC ROM"; + "routines in the VIC" d "and Commodore 64," A "thoroughly documented" {$7d} "and clearly written," {CBM-N} "shows programmers how" {CBM-O}{CBM-H} "to call these routines"; U{CBM-V} "from their own BASIC" {$f0}H "or machine language" R "progrey to":" continue" ) 198,1:198,0 s mt$"length of record": rl:rl{CBM-R}rl{CBM-N}1 "total number of":"records";rn:rn{CBM-R}rn{CBM-N}1 hb{CBM-R}{CBM-J}(rn{CBM-Z}256) {CBM-@}( lb{CBM-R}rn{CBM-Q}hb{CBM-D}256 {CBM-E}2 15,8,15 P< 1,8,2,"rel.file,l,"{CBM-N}G(rl) {$f5}f 15,"p"{CBM-N}G(2{CBM-N}96){CBM-N}G(lb){CBM-N}G(hb){CBM-N}G(1) p 1 >(a$,a,1)):: 198,a &T"RELOADING MENU": d a close" q4"insider throughout" N>"Commodore's explosive" h"rise to industry" m"dominance." {CBM-L}r" Hardback: $16.95" S\" ISBN 0-942386-75-2" {$f1}F" Paperback: $ 9.i$ {CBM-H} "state":st$ #{CBM-V} "zip code":zi$ <H "phone number":ph$ vR rc${CBM-R}rc${CBM-N}H(nf${CBM-N}sp$,15) P{CBM--} rc${CBM-R}rc${CBM-N}H(mn${CBM-N}sp$,15) {$e6} rc${CBM-R}rc${CBM-N}H(ln${CBM-N}sp$,15) {CBM-@}{$f0} rc${CBM-R}rc${CBM-N}H(sa${CBM-N}sp$,30) {CBM-V}{$fa} rc${CBM-R}rc${CBM-N}H(ci${CBM-N}sp$,25) Wrc${CBM-R}rc${CBM-N}H(st${CBM-N}sp$,3) {$f0}rc${CBM-R}rc${CBM-N}H(zi${CBM-N}sp$,5) rc$r Michael S." "Tomczyk was Tramiel's" 7*"confidant and a close" q4"insider throughout" N>"Commodore's explosive" h"rise to industry" m"dominance." {CBM-L}r" Hardback: $16.95" S\" ISBN 0-942386-75-2" {$f1}F" Paperback: $ 9."{CBM-M}500 g${CBM-R}"y"{CBM-M}100 {CBM-@}390 6 {$f3} read relative file in order w {$f4}a{CBM-R}1{CBM-@}rc:rc${CBM-R}"":"record #";a D {$fe}15,8,15 Z 1,8,2,"rel.file" hb{CBM-R}{CBM-J}(a{CBM-Z}256) lb{CBM-R}a{CBM-Q}hb{CBM-D}256 {CBM-B} &15,"p"{CBM-N}G(2{CBM-N}96){CBM-N}G(lb){CBM-N}G(hb){CBM-N}G(1) 0b{CBM-R}1{CBM-@}120:{CBM-K}#1,a$:rc${CBM-R}rc${CBM-N}a$: {$eb} : 1: 15 {$fc} dJ(rx"An Insider's Account" 'B"of Commodore and" ;L"Jack Tramiel" wV"Michael S. Tomczyk" Y"The Home Computer Wars"; "is a well-written," {CBM-Q}"informative, and" G"enlightening account" {$e1}{CBM-POUND}"of one of the most" {$fd}{CBM-R}"exciting ezz "930: position cursor > ' print value if pitch or filter v ,dv{CBM-W}{CBM-E}cc{CBM-M}z" ":320 R 1 print % of duty cycle 6{CBM-J}(z{CBM-Z}4.095){CBM-Z}10"% " {CBM-G} ; put value in buffer D @h{CBM-N}bb,z{CBM-Z}xx:h,z{CBM-Q}{CBM-J}(z{CBM-Z}xx){CBM-D}xx {$e5} jdv{CBM-E}cc{CBM-M}360: branch for fltr o put val in sidugh the" "myriad of Commodore" 8{CBM-@}"peripherals available" w{CBM-S}"for the 64 and VIC-20."; Q{CBM-U}"Clear descriptions" B"explain the use and" {CBM-@}L"function of disk" {CBM-X}V"drives, printers," {CBM--} "expanders, cartridges,"; {$f3}{$ea}"the Datassette," , keep value ${$f0} j{CBM-R}{CBM-J}((z{CBM-N}bb){CBM-D}k{CBM-Z}cc):260 j{$f5} vry fast,larger for higher vals G{$fa} j{CBM-R}k: moderate increment z{CBM-R}B(h){CBM-N}z{CBM-D}xx{CBM-N}j{CBM-D}((hh{CBM-R}aa){CBM-Q}(hh{CBM-E}aa)) {CBM-Q} h set by caller, add incr O incr is pos if shift key down {$ef}z{CBM-W}aa{CBM-M}z{CBM-R}aa: min & max vals {$fe}z{CBM-E}zz{CBM-M}z{CBM-R}ams. Not only a" ){CBM--} "how-to, the Tool Kit" e{$e6} "is also an extensive" n{$f0} 20 P{$fa} "reference guide to" "this important part of"; {CBM-D}"Commodore Basic. For" C"intermediate to" ""advanced programmers." {$f9}," $16.95" :290:140 "":x{CBM-R}1{CBM-@}4 4 {CBM-T}29);" plr."x;:646,cl(x):"Q" e{CBM-T}30);b(x): k& J0""{CBM-+}16)"squares" :" 1. player controlled Ad" 2. computer controlled Lnx{CBM-R}1{CBM-@}4 x" snake "x" ( hs{CBM-R}0 eg{CBM-R}0::470 > dd,127:((B(p1){CBM-P}8){CBM-R}.){CBM-M}d{CBM-R}w:170 {$60}( ((B(p1){CBM-P}16){CBM-R}.){CBM-M}d{CBM-R}{CBM-Q}t:g{CBM-R}2:170 {$7d}2 ((B(p1){CBM-P}4){CBM-R}.){CBM-M}d{CBM-R}{CBM-Q}w:170 < ((B(p2){CBM-P}128){CBM-R}.){CBM-M}d{CBM-R}t:g{CBM-R}.:170 Gf a{CBM-R}.{CBM-@}3:z{CBM-E}e(a){CBM-M}B(e(a){CBM-N}w){CBM-R}n{CBM-M}i{CBM-R}w:90 {$e5}p z{CBM-W}e(a){CBM-M}B(e(a){CBM-Q}w){CBM-R}n{CBM-M}i{CBM-R}{CBM-Q}w z z{CBM-E}e(a){CBM-M}B(e(a){CBM-N}t){CBM-R}n :210 & {CBM-H} v{CBM-Q}3,.:B(z{CBM-N}d){CBM-R}6{CBM-P}B(z{CBM-N}d{CBM-D}2){CBM-W}{CBM-E}n{CBM-M}220 k {CBM-V} B(z{CBM-N}d){CBM-R}6{CBM-P}B(z{CBM-N}d{CBM-D}2){CBM-R}n{CBM-M}qq{CBM-R}z{CBM-N}d:310 ] H B(z{CBM-N}d){CBM-W}6{CBM-M}240 E R 70 {CBM--} a{CBM-R}.{CBM-@}3:z{CBM-N}d,8:v{CBM-Q}t,152:z,g:z{CBM-N}d,9:v{CBM-Q}t,175:z,g{CBM-N}t: D {$e6} z{CBM-N}d,n:v{CBM-Q}t,.:s{CBM-R}s{CBM-N}10:">";s:70 ~ {$f0} y{CBM-R}.{CBM-@}15:z,g{CBM-N}t:v{CBM-Q}t,161:e(a),4:z,g:o{CBM-R}1{CBM-@}20::e q){CBM-R}n{CBM-M}qq{CBM-N}c,3:qq,6:310 hjv{CBM-Q}3,.:B(qq){CBM-W}6{CBM-M}qq{CBM-N}c,3:qq,6:s{CBM-R}s{CBM-N}1000:">";s:350 Ftqq{CBM-R}qq{CBM-Q}d:qq{CBM-N}c,3:qq,6:30 ^y{CBM-R}240{CBM-@}255:v{CBM-Q}2,y:v{CBM-Q}2,.: DHa{CBM-R}.{CBM-@}9:qq{CBM-N}c,t:qq,11:v{CBM-Q}4,235:z,g{CBM-N}t:qq,10:z,g:v{CBM-Q}3,200 {$f0}Rv{CBM-Q}4,.::qq,4:v{CBM-Q}3,.:eg{CBM-R}eg{CBM-N}1:eg{CBM-E}3{CBM-M}390 {$f8}{$7c} t{CBM-R}1 &{CBM-U}sh{CBM-R}sh{CBM-N}t:"";sh:lv{CBM-R}lv{CBM-N}1:"";lv ^By{CBM-R}1{CBM-@}10:b{CBM-R}7768{CBM-N}{CBM-J}({CBM-F}(t){CBM-D}352):B(b){CBM-R}n{CBM-P}b{CBM-W}{CBM-E}z{CBM-M}b{CBM-N}c,3:b,6 L:v{CBM-Q}2,144:s{CBM-R}s{CBM-N}(h{CBM-D}10):">";s:v{CBM-Q}2,.:30 {CBM-X}V36869,240:"the freeze factory!!" {$ed} "score:":""s:s{CBM-E}hs{CBM-M}hs{CBM-R}s {$ea} level 1":"time: 60":c{CBM-R}30720 q&a{CBM-R}t{CBM-@}50:v{CBM-Q}2,240:b{CBM-R}7768{CBM-N}{CBM-J}({CBM-F}(t){CBM-D}352):b{CBM-N}c,3:b,6:v{CBM-Q}2,.: 0a{CBM-R}7746{CBM-@}7767:a,7:a{CBM-N}c,4::a{CBM-R}7768{CBM-@}8120{SHIFT-POUND}w:a{CBM-N}c,4:a,7 {CBM-V}:a{CBM-N}21,7:a{CBM-N}21{CBM-N}c,4::a{CBM-R}8121{CBM-@}8140:a{CBM-N}c,4:a,7: {$eb}da{CBM-R}.{CBM-@}15:v,a:v{CBM-Q}4,225:y{CBM-R}1{CBM-@}75:::v{CBM-Q}4,. > {$f6}8,124,30,254,60,14,30,12,56,60,90,36,24,60,90,36,102,60,90,36,90,60,24,36,195 126,195,153,165,165,153,195,126,204,51,204,51,204,51,204,51,0,34,0,136,0,34,0 {$de}136,68,0,17,0,68,0,17,0,0,24,60,126,219,219,126,60,0,0,60,126,255,153,126,60 v{CBM-Q}4,. > " 65517:B(781){CBM-R}40{CBM-M}mt${CBM-R}"":3 . mt${CBM-R}"" ^ "starting address";s:"ending address";f X mt$"":i{CBM-R}s{CBM-@}s{CBM-N}47{SHIFT-POUND}6 i{CBM-E}f{CBM-M}:"goto 9":8 G i;"data";:j{CBM-R}0{CBM-@}5:r${CBM-R}D(B(i{CBM-N}j)):I(r$,C(r$){CBM-Q}1);","; {$f3} j:G(20):i:"s="s{CBM-N}48":f="f":goto 4" 198,1 "" k d{CBM-R}40:f{CBM-R}54272:g{CBM-R}1:h{CBM-R}32:a%(39):a{CBM-R}1{CBM-@}10:c%(a),s%(a)::a${CBM-R}"" 149,116,150,161,151,184,159,190,153,163,154,181,28,182,129,183,30,163 S 31,170:53265,23:53280,6:f1{CBM-R}54273:v1{CBM-R}54276:k{CBM-R}150:l{CBM-R}2 ( a{CBM-R}54272{CBM-@}54295:a,0::54277,23:54296 D a{CBM-R}1{CBM-@}22:::a$; d N fl{CBM-R}0:a{CBM-R}1104{CBM-@}1143:649,1:ss{CBM-R}39:a%(a{CBM-Q}1104){CBM-R}0{CBM-M}170 z X a:198,0:fl{CBM-M}110 ""{CBM-+}15)"game over":""{CBM-+}11)"play again? (y/n)" {CBM-O} {CBM-K}a$:a${CBM-R}"y"{CBM-M}{CBM-+}17)"ok": Q a${CBM-R}"n"{CBM-M}828,0:828 Z 140 {CBM-N} fl{CBM-R}1:r1{CBM-R}{CBM-F}(1):r2{CBM-R}({CBM-Q}(r1{CBM-W}.5){CBM-D}( choose 1 or 2)" B{CBM-K}a$:E(a$){CBM-E}2{CBM-A}E(a$){CBM-R}0{CBM-M}610 5Lty(x){CBM-R}E(a$)::80 mV"":qq{CBM-R}1{CBM-@}18::: [qf{CBM-R}0{CBM-M}100 {$7f}""{CBM-+}14)"game over!" {SHIFT-@}x{CBM-R}1{CBM-@}4: 646,cl(x):{CBM-T}7)"player"x;"...."b(x)" squares" {SHIFT-*} {$ec}{CBM-POUND}""{CBM-+}10)"another game? (y/n)":198,0 {$fe}{CBM-R} {CBM-M}i{CBM-R}t:110 %D z{CBM-W}e(a){CBM-M}B(e(a){CBM-Q}t){CBM-R}n{CBM-M}i{CBM-R}{CBM-Q}t \N B(e(a){CBM-N}i){CBM-R}n{CBM-M}e(a),n:e(a){CBM-R}e(a){CBM-N}i:e(a){CBM-N}c,t:e(a),5 NX e(a){CBM-N}i{CBM-R}z{CBM-M}240 {$7c} e(a),4: {CBM-T} hh{CBM-R}hh{CBM-N}1:hh{CBM-E}ht{CBM-M}hh{CBM-R}.:h{CBM-R}h{CBM-Q}1:h{CBM-W}0{CBM-M}280 {CBM-B} "";h;" " G 30 {CBM-N} v{CBM-Q}3,245:B(z{CBM-N}d){CBM-R}n{CBM-M}z,n:z{CBM-R}z{CBM-N}d:z{CBM-N}c,7:z,g:v{CBM-Q}3,. (a),5 5{$fa} :v{CBM-Q}t,.:y{CBM-R}.{CBM-@}15:v,y:v{CBM-Q}t,245:o{CBM-R}1{CBM-@}25:::v{CBM-Q}t,. ]sh{CBM-R}sh{CBM-Q}1:"";sh" ":sh{CBM-R}.{CBM-M}280 E30 Nz,n {CBM-L}""game over":" press firebutton"; K,37137,32,32:20 {$ef}6v{CBM-Q}3,200:v{CBM-Q}3,220:qq,n:qq{CBM-R}qq{CBM-N}d @B(q 30 2 eg{CBM-R}.:y{CBM-R}128{CBM-@}255:v{CBM-Q}3,y::z,n:a{CBM-R}.{CBM-@}3:e(a),n::z{CBM-R}7910 D y{CBM-R}.{CBM-@}3:o{CBM-R}240{CBM-@}255:v{CBM-Q}3,o:a{CBM-R}1{CBM-@}20::::v{CBM-Q}3,. y{CBM-R}8141{CBM-@}7702{SHIFT-POUND}{CBM-Q}1:B(y){CBM-R}6{CBM-M}y{CBM-N}c,t:v{CBM-Q}4,240:y{CBM-N}c,3:s{CBM-R}s{CBM-N}25 Y {CBM-@}v{CBM-Q}4,.:">";s:h{CBM-R}60::y{CBM-R}140{CBM-@}255:v{CBM-Q}3,y::v{CBM-Q}3,.:z,g {$f7} {CBM-S}z{CBM-N}c,7:ht{CBM-R}ht{CBM-Q}t:ht{CBM-W}1{CBM-M}h s{CBM-R}0:"high score:":""hs f{$f4}36879,28:"press fire to play" C{$fe}37137,32,0:37137,32,32 52,28:56,28:51,.:55,.:x{CBM-R}7424{CBM-@}7432:x,.: Wx{CBM-R}7168{CBM-@}7263:d:x,d::v{CBM-R}36878:v{CBM-Q}9,255:v,15:t{CBM-R}1:w{CBM-R}22:v{CBM-N}t,8 "> 0":" nn{CBM-R}32:p1{CBM-R}37151:p2{CBM-R}37152:dd{CBM-R}37154:z{CBM-R}7910:h{CBM-R}60:sh{CBM-R}3:e(.){CBM-R}7902:e(t){CBM-R}7914:e(2){CBM-R}7800 Bxe(3){CBM-R}7998:z{CBM-N}c,7:z,.:ht{CBM-R}4:lv{CBM-R}1 {$7c}B"@";sh:30 L"@";sh {$e4}V62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238,14,56,6,26 910 0)sc:a:110 %{$e6} v1,129:z{CBM-R}2:b{CBM-Q}d{CBM-N}f,2:t{CBM-R}1{CBM-@}20 x{$f0} f1,z:53270,200{CBM-Q}7{CBM-D}(q{CBM-R}1):b{CBM-Q}d,42{CBM-Q}4{CBM-D}(B(b{CBM-Q}d){CBM-R}42) {$7f}{$fa} z{CBM-R}z{CBM-Q}(q{CBM-R}0){CBM-D}2:53270,200::v1,128: )"play again? (y/n)" {CBM-O} {CBM-K}a$:a${CBM-R}"y"{CBM-M}{CBM-+}17)"ok": Q a${CBM-R}"n"{CBM-M}828,0:828 Z 140 {CBM-N} fl{CBM-R}1:r1{CBM-R}{CBM-F}(1):r2{CBM-R}({CBM-Q}(r1{CBM-W}.5){CBM-D}( B0:k{CBM-R}1{CBM-@}10:630{CBM-N}k,13:k:"": 4 "":m{CBM-R}1{CBM-@}10:m:m \ 198,10:k{CBM-R}1{CBM-@}10:630{CBM-N}k,13:k:"": assassin assassination power basic vicontents 64 contents ,15:54278,241 f2 a{CBM-R}1{CBM-@}40:a${CBM-R}a${CBM-N}G(c%({CBM-J}({CBM-F}(1){CBM-D}10){CBM-N}1)){CBM-N}G(s%({CBM-J}({CBM-F}(1){CBM-D}10){CBM-N}1)) < :53281,15:""{CBM-+}9)"character assassination" {SHIFT-@}f "enter speed 0-9 (9 is the fastest)":198,0 Tp {CBM-K}b$:b${CBM-W}"0"{CBM-A}b${CBM-E}"9"{CBM-M}80 {$fa}z s{CBM-R}28{CBM-Q}3{CBM-D}E(b$):""{CBM-+}15)"score 0" {CBM-F}(1){CBM-D}9{CBM-N}48)){CBM-N}({CBM-Q}(r1{CBM-E}{CBM-R}.5){CBM-D}({CBM-F}(1){CBM-D}26{CBM-N}1)) x{CBM-H} v1,33:r${CBM-R}G(r2{CBM-Q}(r2{CBM-W}30){CBM-D}64):c{CBM-R}a{CBM-N}840:b{CBM-R}a{CBM-@}c{SHIFT-POUND}d:f1,k{CBM-Q}l{CBM-D}ss {CBM-V} ss{CBM-R}ss{CBM-Q}1:{CBM-K}a$:a${CBM-W}{CBM-E}""{CBM-M}649,0:a${CBM-R}r${CBM-M}220 H b{CBM-Q}d,h:b,r2:b{CBM-N}f,j RR td{CBM-R}g{CBM-@}s:td:b:q{CBM-R}1:230:b{CBM-Q}d,h:a%(a{CBM-Q}1104){CBM-R}1:a:110 {CBM--} q{CBM-R}0:230:b{CBM-Q}d,h:sc{CBM-R}sc{CBM-N}ss:""{CBM-+}2 .{CBM-K}a$:a${CBM-R}"y"{CBM-M} {CBM-C}a${CBM-R}"n"{CBM-M}"": F690 x;:646,cl(x):"Q" e{CBM-T}30);b(x): k& J0""{CBM-+}16)"squares" :" 1. player controlled Ad" 2. computer controlled Lnx{CBM-R}1{CBM-@}4 x" snake "x" ( ? lines changed from vic mlx version 2.00 are 581,582,765 vD "";G(142);G(8); WE 788,194: disable run/stop N " " {CBM-N}X " {CBM-*}{SHIFT-POUND} {CBM-*}{CBM-*}{SHIFT-POUND}{SHIFT-POUND} " E " {CBM-G} {SHIFT-POUND}{SHIFT-POUND}{CBM-*}{CBM-*} " {CBM--} " " H "machine language":"edi {$e2}5,8,15:15,e1$,e2$:e1$;e2$: 15:800 {$e8} buzzer 4{$e9}36878,15:36874,190 d{$ea}w{CBM-R}1{CBM-@}300:w \{$eb}36878,0:36874,0: MP bell sound Qw{CBM-R}15{CBM-@}0{SHIFT-POUND}{CBM-Q}1:36878,w:36876,240:w {CBM-I}R36876,0: H{CBM-U}c$;"not zero page or rom":1000 d"{CBM-M}820 {$fa}>dv{CBM-R}1{CBM-Q}7{CBM-D}(a${CBM-R}"d"):d {$fb},32,96,93,160,93,32 93,254,160,160,160,93,32,32 3109,64,64,64,125,109,64,113 s64,125,109,64,64,64,64,125 S"109,64,64,64,64,125,32,109 ,64,125,32,32,109,64,125,32 {CBM-R}6109,64,64,64,64,125,32,32 NPw{CBM-R}1{CBM-@}2000:{CBM-K}a$:a${CBM-R}""{CBM-M}w T{$e4} ,93, .":310 ""Error on Save. Try again.":dv{CBM-R}1{CBM-M}720 m 15,8,15:15,e1$,e2$:e1$;e2$: 15:720 v720 N"*** Load ***" f${CBM-R}"":" Filename";f$:f${CBM-R}""{CBM-M}310 {CBM-U}*:"Tape or Disk: (T/D)" U4{CBM-K}a$:a${CBM-W}{CBM-E}"t"{CBM-P}a${CBM-W}{CBM-E}"d"{CBM-M}820 {$fa}>dv{CBM-R}1{CBM-Q}7{CBM-D}(a${CBM-R}"d"):d0,93,93,160,160,160,93 N93,251,160,160,160,93,32,32 9X93,160,32,32,115,93,160,32 [160,93,107,32,254,160,236,93 {$7f}109,110,160,98,112,125,109,110 {CBM-@}160,112,125,109,110,160,112,125 F 109,110,160,98,112,125,32,32 {$e7}{CBM-N}93,160,32,251,93,93, {CBM-H}i{CBM-R}1{CBM-@}3:t{CBM-R}B(s%{CBM-Q}i) #{CBM-Y}t{CBM-W}{CBM-E}44{CBM-P}t{CBM-W}{CBM-E}58{CBM-M}s%{CBM-Q}i,32: 8{CBM-C}H("",i{CBM-Q}1);: qF"*** Save ***" WPf${CBM-R}"":" Filename";f$:f${CBM-R}""{CBM-M}310 Z:"Tape or Disk: (T/D)" {CBM-Y}{$e4}{CBM-K}a$:a${CBM-W}{CBM-E}"t"{CBM-P}a${CBM-W}{CBM-E}"d"{CBM-M}740 {$f0}{$ee}dv{CBM-R}1{CBM-Q}7{CBM-D}(a${CBM-R}"d"):dv{CBM-R}8{CBM-M}f${CBM-R}"0:"{CBM-N}f$:15,8,15,"s"{CBM-N}f$: 15 &ad{CBM-R}ad{CBM-N}6: ad{CBM-W}e {CBM-M} 310 0 710 # :n{CBM-R}0:z{CBM-R}0 - d"{CBM-+}"; @ e{CBM-K}a$:a${CBM-R}""{CBM-M}581 fav{CBM-R}{CBM-Q}(a${CBM-R}"m"){CBM-Q}2{CBM-D}(a${CBM-R}","){CBM-Q}3{CBM-D}(a${CBM-R}"."){CBM-Q}4{CBM-D}(a${CBM-R}"j"){CBM-Q}5{CBM-D}(a${CBM-R}"k"){CBM-Q}6{CBM-D}(a${CBM-R}"l") B gav{CBM-R}av{CBM-Q}7{CBM-D}(a${CBM-R}"u"){CBM-Q}8{CBM-D}(a${CBM-R}"i"){CBM-Q}9{CBM-D}(a${CBM-R}"o"):a${CBM-R}"h"{CBM-M}a${CBM-R}"0" X hav{CBM-E}0{CBM-M}a${CBM-R}G(48{CBM-N}av) iG(20);:a{CBM-R}F(a$):a{CBM-R}13{CBM-A}a 53281,0:53280,0:"" ? in(15,4):a{CBM-R}984{CBM-@}1023:a,32: G dr(0){CBM-R}{CBM-Q}40:dr(1){CBM-R}1:dr(2){CBM-R}40:dr(3){CBM-R}{CBM-Q}1 ( cl(1){CBM-R}3:cl(2){CBM-R}4:cl(3){CBM-R}11:cl(4){CBM-R}9 A2 p(1){CBM-R}1360:p(2){CBM-R}1358:p(3){CBM-R}1440:p(4){CBM-R}1438:co{CBM-R}54272 {$f3}< x{CBM-R}1{CBM-@}4:p(x){CBM-R}1024{CBM-N}{CBM-J}({CBM-F}(1){CBM-D}15){CBM-D}2{CBM-N}{CBM-J}({CBM-F}(1){CBM-D}10){CBM-D}80: {$fc}f 560 %{CBM-M} 480 "{CBM-S}:"Display:From";f:,"To";:t _{CBM-U}f{CBM-W}s{CBM-A}f{CBM-E}e{CBM-A}t{CBM-W}s{CBM-A}t{CBM-E}e{CBM-M}"At least";s;", not more than";e:430 Bi{CBM-R}f{CBM-@}t{SHIFT-POUND}6::I("0000"{CBM-N}J(D(i),2),5);":"; {CBM-N}Gk{CBM-R}0{CBM-@}5:n{CBM-R}B(i{CBM-N}k):k{CBM-R}3{CBM-M}{CBM-+}10); HII("00"{CBM-N}J(D(n),2),3);","; L{CBM-K}a$:a${CBM-E}""{CBM-M}::310 {$fb}Vk:G(20);:i:::0{CBM-M}290 500 & {CBM-N} {CBM-L}(in){CBM-R}1{CBM-M}p{CBM-N}in,67:190 3 {CBM-H} p{CBM-N}in,66 y {CBM-V} p{CBM-N}co,1:p{CBM-N}co{CBM-N}in{CBM-D}2,cl:p{CBM-N}in{CBM-N}co,cl O H p(pl){CBM-R}p{CBM-N}in{CBM-D}2:410 {CBM-N} R (s1{CBM-R}15){CBM-P}(B(x{CBM-N}d){CBM-R}32){CBM-M}x{CBM-N}d,160:x{CBM-N}d{CBM-N}co,cl:b(pl){CBM-R}b(pl){CBM-N}1 {$e5} {CBM--} (s2{CBM-R}15){CBM-P}(B(x{CBM-Q}d){CBM-R}32){CBM-M}x{CBM-Q}d,160:x{CBM-Q}d{CBM-N}co,cl:b(pl){CBM-R}b(pl){CBM-N}1 {$f6} {$e6} p{CBM-R}p(pl):520 {$f0}tor ver 2.02" dR "starting address":s:f{CBM-R}1{CBM-Q}f:c${CBM-R}G(31{CBM-N}119{CBM-D}f) B{CBM--} s{CBM-W}256{CBM-A}s{CBM-E}32767{CBM-M}3000:210 N{$e1} ::: {$e6} "ending address":e:f{CBM-R}1{CBM-Q}f:c${CBM-R}G(31{CBM-N}119{CBM-D}f) {CBM-V}{$f0} e{CBM-W}256{CBM-A}e{CBM-E}32767{CBM-M}3000:230 {$eb}{$fa} e{CBM-W}s{CBM-M}c$;"ending < start ":1000: 230 {$f5}:: ,"in(si,pl){CBM-R}dr(d):in{CBM-R}in(si,pl): 0tsi{CBM-R}15{CBM-M}d{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}4): i^fl{CBM-R}{CBM-E}4{CBM-M}d{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}4): KHd{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}4):(si{CBM-P}2{CBM-S}d){CBM-R}2{CBM-S}d{CBM-M}360 YRfl{CBM-R}fl{CBM-N}1: {$7c}si{CBM-R}0:x{CBM-R}0{CBM-@}3:i{CBM-R}B(dr(x){CBM-N}p) {CBM-Q}i{CBM-W}{CBM-E}32{CBM-M}si{CBM-R}si{CBM-N}2{CBM-S}x {CBM-W}: {$e3}s1{CBM-R}0:s2{CBM-R}0:x{CBM-R}(p(pl){CBM-N}p){CBM-Z}2:{CBM-L}(x{CBM-Q}p){CBM-R}1{CBM-M}d{CBM-R}40:430 {$eb}{CBM-@}d{CBM-R}1 {CBM-S}y{CBM-R}0{CBM-@}3 :z{CBM-R}B(x{CBM-N}dr(y){CBM-N}d):(z{CBM-R}66){CBM-A}(z{CBM-R}67){CBM-M}s1{CBM-R}s1{CBM-N}2{CBM-S}y $ {CBM-U} w By{CBM-R}0{CBM-@}3:z{CBM-R}B(x{CBM-N}dr(y){CBM-Q}d):z{CBM-R}(66){CBM-A}(z{CBM-R}67){CBM-M}s2{CBM-R}s2{CBM-N}2{CBM-S}y _ L: {$7f} V630:" " " " {CBM-U} {$ea}" ":520 N {$f4}B(p{CBM-N}in{CBM-D}2){CBM-R}81{CBM-M}170 {$fe} {$fe}630::480:630:"illegal move"v{CBM-R}8{CBM-M}f${CBM-R}"0:"{CBM-N}f$ )ht${CBM-R}f$:zk{CBM-R}B(53){CBM-N}256{CBM-D}B(54){CBM-Q}C(t$):782,zk{CBM-Z}256 ri781,zk{CBM-Q}B(782){CBM-D}256:780,C(t$):65469 Sm780,1:781,dv:782,1:65466 r780,0:65493 {CBM-I}\(B(783){CBM-P}1){CBM-A}(191{CBM-P}st){CBM-M}870 {CBM-J}A"Done.":310 {$e3}F"Error on Load. Try again.":dv{CBM-R}1{CBM-M}800 P1160,160 {CBM-H}160,93,93,254,160,236,32,115 ,{CBM-V}112,125,160,226,109,110,32,93 kH160,93,32,96,93,160,93,32 NR112,125,160,226,109,110,32,32 {CBM--}93,251,160,236,93,93,160,32 {CBM-E}{$e6}160,93,93,160,160,160,160,93 R{$f0}93,254,224,160,160,93,32,93 {$f1}{$fa}160,93 {$f8}t${CBM-R}f$:zk{CBM-R}B(53){CBM-N}256{CBM-D}B(54){CBM-Q}C(t$):782,zk{CBM-Z}256 h{$fa}781,zk{CBM-Q}B(782){CBM-D}256:780,C(t$):65469 I{$fb}780,1:781,dv:782,1:65466 {$fd}k{CBM-R}s:254,k{CBM-Z}256:253,k{CBM-Q}B(254){CBM-D}256:780,253 E{$fe}k{CBM-R}e{CBM-N}1:782,k{CBM-Z}256:781,k{CBM-Q}B(782){CBM-D}256:65496 {$e2}(B(783){CBM-P}1){CBM-A}(191{CBM-P}st){CBM-M}780 {$f5}"Done{CBM-R}44{CBM-A}a{CBM-R}32{CBM-M}670 na{CBM-E}128{CBM-M}n{CBM-R}{CBM-Q}a: #xa{CBM-W}{CBM-E}20 {CBM-M} 630 qBG(146);:690:i{CBM-R}1{CBM-P}t{CBM-R}44{CBM-M}n{CBM-R}{CBM-Q}1:" ";:690 zL570 MVa{CBM-W}48{CBM-A}a{CBM-E}57{CBM-M}580 a$;:n{CBM-R}n{CBM-D}10{CBM-N}a{CBM-Q}48 n{CBM-E}255 {CBM-M} a{CBM-R}20:1000:600 {CBM-R}z{CBM-R}z{CBM-N}1:z{CBM-W}3{CBM-M}580 Fz{CBM-R}0{CBM-M}1000:570 R{CBM-POUND}",";: {$f2}{CBM-R}s%{CBM-R}B(209){CBM-N}256{CBM-D}B(210){CBM-N}B(211)p "";:x{CBM-R}1{CBM-@}10:y{CBM-R}1{CBM-@}15:"Q ";:::: dz 630:{CBM-T}22);" ij{SHIFT-+}km" PD qf{CBM-R}1:pl{CBM-R}1{CBM-@}4:p{CBM-R}p(pl):cl{CBM-R}cl(pl):q{CBM-R}0:fl{CBM-R}0 N p1{CBM-R}p:380:p2{CBM-R}si:lf{CBM-R}0 {CBM-B}X 470:630:"player"pl"'s turn";:646,cl:" Q" {SHIFT--} " " {$e6} 380 in{CBM-R}in(si,pl):in{CBM-R}310 n{CBM-W}0 {CBM-M} :310 {$ea}a(j){CBM-R}n:j v{$f4}cksum{CBM-R}ad{CBM-Q}{CBM-J}(ad{CBM-Z}256){CBM-D}256:i{CBM-R}1{CBM-@}6:cksum{CBM-R}(cksum{CBM-N}a(i)){CBM-P}255: P{$fe}G(18);:570:G(146); ~n{CBM-R}{CBM-Q}1{CBM-M}a{CBM-R}6:315 G(20):n{CBM-R}cksum{CBM-M}530 P:"Line Entered Wrong":"Re-enter"::1000:310 Z2000 {$f4}i{CBM-R}1{CBM-@}6:ad{CBM-N}i{CBM-Q}1,a(i): 380:p1{CBM-R}p{CBM-P}p2{CBM-R}si{CBM-M}lf{CBM-R}1:q{CBM-R}9 "{$fa} q{CBM-R}{CBM-E}9{CBM-M}270 1q{CBM-R}q{CBM-N}1:140 @lf{CBM-R}0{CBM-M}qf{CBM-R}0 mpl:640 {$7b}"630:"what direction":p{CBM-N}co,cl:198,0 ,ty(pl){CBM-R}2{CBM-M}340:q{CBM-R}10:330 E6{CBM-K}a$:a${CBM-W}{CBM-E}"i"{CBM-P}a${CBM-W}{CBM-E}"m"{CBM-P}a${CBM-W}{CBM-E}"j"{CBM-P}a${CBM-W}{CBM-E}"k"{CBM-M}310 {$f4}@q{CBM-R}10:d{CBM-R}(a${CBM-R}"j"){CBM-D}{CBM-Q}3{CBM-N}(a${CBM-R}"k"){CBM-D}{CBM-Q}1{CBM-N}(a${CBM-R}"m"){CBM-D}{CBM-Q}2 j";G(14):ad{CBM-R}s . 6a{CBM-R}1:I("0000"{CBM-N}J(D(ad),2),5);":"; < ; j{CBM-R}a {CBM-@} 6 v @570:n{CBM-R}{CBM-Q}1{CBM-M}j{CBM-R}j{CBM-N}n:320 G n{CBM-R}{CBM-Q}211{CBM-M} 710 X n{CBM-R}{CBM-Q}204{CBM-M} 790 n{CBM-R}{CBM-Q}206{CBM-M}:"Enter New Address";zz R n{CBM-R}{CBM-Q}206{CBM-M}zz{CBM-W}s{CBM-A}zz{CBM-E}e{CBM-M}"out of range":1000:410 {$eb} {CBM-K}n{CBM-R}{CBM-Q}206{CBM-M}ad{CBM-R}zz::310 ~ {CBM-@} n{CBM-W}{CBM-E}{CBM-Q}196 "recent issues of COMPUTE! and COMPUTE!'s"; #"""Gazette, as well as many programs" m","published here for the first time." Z"6"Designed for Commodore computer users" {CBM-M}"@"of all levels, it's a book that every" Q"j"VIC or 64 owner will want to "";:53280,15:53281,15 g i{CBM-R}0{CBM-@}479:a:1024{CBM-N}i,a:55296{CBM-N}i,0: {$7e} "HERE'S HOW TO GET MORE FROM YOUR 64 {CBM-L} "{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} ( "{SHIFT--}* More Fun: With such new game {SHIFT--}" 2 "{SHIFT--} excitement as Trap'E{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} c N "{SHIFT--}* More Challenge: Ready to {SHIFT--} L X "{SHIFT--} tackle more advanced projects?{SHIFT--} "{SHIFT--} In COMPUTE!'s Gazette, you'll {SHIFT--} {CBM-V} "{SHIFT--} learn How to Use Tape and Disk{SHIFT--} {$e7} "{SHIFT--} Files, How To Program The {SHIFT--} "{SHIFT--} Function !Y "{SHIFT--} *More Programs: From Sprite {SHIFT--} j{CBM--} "{SHIFT--} Magic to Ultrafont +; from {SHIFT--} S{$e6} "{SHIFT--} Magazine Indexer to Directory {SHIFT--} {$f0} "{SHIFT--} Sort & Automatic Proofreader {SHIFT--} E{$f5} "{SHIFT--} and more. {SHIFT--} {$ee}{$fa} "{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {$f9}~ i{CBM-R}s to word processors to {SHIFT--} 8j"{SHIFT--} printers, modems, and disk {SHIFT--} At"{SHIFT--} drives. {SHIFT--} ^"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"; H2000 NR"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {$f7}{$7c}"{SHIFT--}SUBSCRIBE NOW TO COMPUTE'S B"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}";:2000:2000 \L"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} V"{SHIFT--}1 yr.(12 issues)-$24.00-Save $11{SHIFT--} {CBM-S} "{SHIFT--}2 yr.(24 issues)-$45.00-Save $25{SHIFT--} W{$ea}"{SHIFT--}3 yr.(36 issues)-$65.00-Save $41{SHIFT--} {$f4}"{SHIFT--}Single Sample I )" L&n20 {$f7}&xa${CBM-R}"lO"{CBM-N}G(34){CBM-N}"mn"{CBM-N}G(34){CBM-N}",8:"{CBM-N}G(131) %'Ba{CBM-R}1{CBM-@}C(a$): 630{CBM-N}a,F(J(a$,a,1)):: 198,a w'L"RELOADING MENU": e insider throughout"; {CBM-I}%{$f4}"Commodore's explosive rise to industry" {CBM-H}%{$fe}"dominance." {$e9}%"Hardbacmenu program": !{$e8}160,160,160,201,134,160,153,143 f{$f2}149,160,132,143,142,167,148,160 K{$fc}129,140,146,133,129,132,153,160 147,149,130,147,131,146,137,130 {CBM-J}133,160,148,143,160,160,160,160 R32,32,32,32,32,32,32,32 {$ef}$32,32,32,32,32,32,rket, this book takes the reader" %V"inside a dynamic corporate structure." c% "Author Michael S. Tomczyk was Tramiel's" T%{$ea}"confidant and a close insider throughout"; {CBM-I}%{$f4}"Commodore's explosive rise to industry" {CBM-H}%{$fe}"dominance." {$e9}%"Hardbac,32 {$7e}160,32,32,32,160,32,160,32 .160,252,254,160,32,160,32,160 n32,160,32,160,32,32,160,32 N32,160,98,32,160,32,255,32 {CBM-+}255,127,32,32,32,32,32,32 {CBM-Z}{CBM-A}160,32,32,32,160,32,160,32 Q{SHIFT-@}160,251,236,160,32,160,160,236 {$f1}D32,160,32,160,3 have." #t"$12.95 ISBN 0-942386-70-1" #^20 (#H"":53280,5:53281,12 p#R" THE HOME COMPUTER WARS" #{$7c}"An Insider's Account of Commodore and Jack Tramiel" {CBM-D}#"Michael S. Tomczyk" Z#"Home Computer Wars im, Bagdad,{SHIFT--} 2< "{SHIFT--} Mystery At Marple Manor, and {SHIFT--} [f "{SHIFT--} Campaign Manager. {SHIFT--} p "{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {CBM-S}u " " Xw " " {$e2}z 2000 D "{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}Keys. Writing Trans-{SHIFT--} 9{CBM-N} "{SHIFT--} portable BASIC. New Ways to {SHIFT--} B{CBM-H} "{SHIFT--} Enliven With Sound. How to {SHIFT--} {CBM-V} "{SHIFT--} Use Machine Language. {SHIFT--} {CBM-L}H "{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"; {SHIFT-*}R 2000 {$f8}W "{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}1{CBM-@}4 # " " ) 3 2000 K "{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} ""{SHIFT--}* More Buying Guidance: You'll {SHIFT--} {CBM-X} ,"{SHIFT--} profit from comprehensive {SHIFT--} {$e6} 6"{SHIFT--} reviews of everything from {SHIFT--} @"{SHIFT--} game {SHIFT--} "{SHIFT--}GAZETTE AND START RECEIVING {SHIFT--} i"{SHIFT--}EVERY INFORMATION-PACKED ISSUE! {SHIFT--} R"{SHIFT--}To order your subscription or a {SHIFT--} {CBM-@}"{SHIFT--}sample issue, call TOLL-FREE {SHIFT--} D{CBM-S}"{SHIFT--}800-334-0868 (in N.C. call {SHIFT--} {$ed}{CBM-U}"{SHIFT--}919-275-9809.) {SHIFT--} $ssue $4.00 {SHIFT--} *{$fe}"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}" Di{CBM-R}1{CBM-@}3:" "::2000 M"" s${CBM-R}"lO"{CBM-N}G(34){CBM-N}"mn"{CBM-N}G(34){CBM-N}",8:"{CBM-N}G(131) Ai{CBM-R}1{CBM-@}C(s$):630{CBM-N}i,F(J(s$,i))::198,i Y53281,14:53280,14 {$fc}"reloading 110,112,64,64 64,110,112,64,64,64,64,110 1(112,64,64,64,64,110,112,64 q264,64,110,112,64,64,64,110 P<112,64,64,64,64,110,32,32 f93,254,160,252,93,93,254,160 {CBM-H}p252,93,93,160,160,160,160,93 Vz93,251,160,160,160,93,93,224 {$f8}D160,1632,32 .32,32,32,32,32,32,32,32 )832,32,32,32,32,32,32,32 fb32,32,32,32,32,32,32,32 Il254,160,160,32,254,160,252,32 v252,32,32,254,32,160,160,252 {CBM-Z}{$60}32,160,32,160,32,160,160,160 NJ32,160,160,32,160,32,160,32 {$eb}T32,32,32,32,32,32,32k $16.95 ISBN 0-942386-75-2" &"Paperback $9.95 ISBN 0-942386-78-7" &&20 b&&"";:53281,6:53280,6 T&0"To order books, call toll free" &:"1-800-334-0868" D&d"(in N.C. 919-275-98092,32,160,32 N32,160,226,32,226,32,32,32 /X127,98,32,32,32,32,32,32 r{$e2}251,160,160,32,251,160,236,32 R{$ec}160,32,32,160,32,160,32,32 {$f6}32,251,160,236,32,32,160,32 {CBM-W} 32,160,160,32,160,32,32,32 Q 98,255,32,32,32,32,32,32 {$f1}112,64,64,64,s an informative," $"well-written, and enlightening account" 7${CBM-@}"of one of the most exciting episodes in" E${CBM-S}"the home computer industry. The story" ${CBM-U}"of Commodore, Jack Tramiel, and the" {CBM-X}$B"struggle to capture the home computer" {$e7}$L"ma E!" {$e4}"and COMPUTE!'s Gazette, and some " ;{$ee}"appearing here for the first time" F{$f8}"anywhere. Articles show you how to" "design a videogame and explain the" {CBM-C}"intricacies of writing your own text" N"adventure." {$fd} "$12.95 ISBN 0-942386-72-8" {$f0}20 "":53280,2:53281,6 - {CBM-N}" COMPUTE!'s" y {CBM-H}" COMMODORE COLLECTION: VOLUME 2" {$7d} {CBM-V}"Programs for the VIC and 64" H"Edited" {SHIFT-@} R"Exciting games, versatile educational" {$e7} {CBM--}"routines, sopECOND BOOK OF 64 GAMES " <"Sixteen outstanding games, from detailed"; E"simulations to fast-paced machine" "language arcade games. Run for" {CBM-B}"president in "G(34)"Campaign Manager,"G(34); {$f4}{CBM-POUND}" defend yourself against sharks an anding" "games, applications, tutorials, and" -"utilities also includes several" u("programs never before published." {$7f}2"Commodore 64 users of all ages and" {CBM-G}<"experience will find this book" Kf"informative, entertaining, and" {$f4}p"y unpublished programs" -{$fe}"for the VIC-20 and Commodore 64," x"continues the COMPUTE! tradition of" "practical programs in easy to use form." {CBM-W}"Includes exciting games, stimulating" Y&"educational programs, valuable" 0"utilities, aown BASIC or" "machine language programs. Not only a" ="how-to, the 'Tool Kit' is also an " G{CBM-+}"extensive reference guide to this " {CBM-A}"important part of Commodore BASIC. For" B{SHIFT-@}"intermediate to advanced programmers." {$f6}D"$12.95 nd effects you can type in and hear." h"$12.95 ISBN 0-942386-54-X" p20 L"":53280,2:53281,12 {CBM-@}" "; S{CBM-S}" COMPUTE!'S "; {CBM-U}" COMMODORE C20 {$fc}"":53280,7:53281,7 .$" "; {$60}." COMPUTE!'s VIC-20 and Commodore 64 "; 8" Tool Kit: BASIC "; Cb" "; {$e1}l" "show how to program sound and music on" n "the 64. Well-known Commodore author" {$7f} ""John Heilborn teaches both beginning and"; {CBM-A} ,"advanced programmers the ins and outs of"; {$de} 6"the SID chip, explaining how to create" @"simple sounds, ted" {CBM-I}"into BASIC programs, as well as stand-" @{CBM-D}"alone routines that make the 64 even " M{CBM-L}"more powerful. Valuable programming " {SHIFT-*}"aids such as one-key commands, automatic"; OJ"line numbering, and program searches are"; {$fb}T"here. R ISBN 0-942386-64-7" *20 !4"":53280,6:53281,14 s>" COMPUTE!'s Machine Language "; h" Routines for the Commodore 64 " {CBM-L}r"Sometimes BASIC is just not fast enough,"; {$e5}\"or versatile enough, for programming histicated applications," !{$e6}"and helpful programming aids for the" a!{$f0}"VIC-20 and Commodore 64 highlight this" N!{$fa}"second volume in COMPUTE!'s Commodore" !"Collection series. Included are some" I!"of the best articles and programs from" {$fa}! d acid rain" -{CBM-R}"in "G(34)"The Frantic Fisherman,"G(34)" or defend" G{CBM-C}"a world in "G(34)"Astro-PANIC!."G(34)" Photograph" F"the Loch Ness monster, battle in an" {CBM-X}P"arena, or establish trade routes to" {$e9}Z"India. The best games from COMPUTeducational. Create an 80-column" z"display, play educational and arcade" jD"quality games, compose music, move" UN"sprites easily and quickly, and see" X"how to program more efficiently and" {CBM-H}"effectively." {$e8}"$12.95 nd useful applications to" 7:"make your Commodore computer an exciting"; qd"part of every day." n"$12.95 ISBN 0-942386-55-8" x20 {CBM-G}B"":53280,7:53281,1 VL" COMPUTE!'S "; V" S ISBN 0-942386-72-8" {$fe}N20 X"":53280,6:53281,1 d{$e2}" THIRD BOOK OF COMMODORE 64" t{$ec}"Edited" {$f6}"Gathered from the most recent issues" {CBM-D} "of COMPUTE! magazine and COMPUTE!'s" {SHIFT-+} "Gazette, this collection of outstOLLECTION: "; 8B" VOLUME 1 "; JL" " V"28 Original Programs For The VIC And 64" {SHIFT-POUND} "Edited" X{$ea}"The Commodore Collection, an anthology" {$f4}"of 28 previousl by" v" Dan Heeb" /{$60}"This comprehensive guide to the BASIC " \J"ROM routines in the VIC and Commodore" T"64, thoroughly documented and clearly" {CBM-Y}{$7e}"written, shows programmers how to call" {$e5}"these routines from their how to utilize the" 6j"computer's advanced sound features, and" Dt"even how to combine sound and graphics" ^"in an arcade-style game. Also included" {CBM-C}H"are two sound editors, which make" {$e8}R"composing easy, and dozens of sample" {$7c}"sououtines useful in games and " ,{$de}"graphics design are also included. There"; w{$e8}"are even complete machine language " {$f2}"programs to help in the creation of " {SHIFT-POUND}{$fc}"custom characters and sprites." Y"$14.95 ISBN 0-942386-48-5" {$e1}on" F"the Commodore 64. Machine language (ML)"; cP"is. But creating ML routines can be " IZ"difficult for the beginning or" "intermediate programmer. This" {CBM-U}"collection offers ready-to-use ML" {$e4}"routines that can be easily inser D f${CBM-R}"vm" 4E 65517: B(781){CBM-R}40 {CBM-M} f${CBM-R}"mn":210 lN 36879,24:36865,24 RO "load";G(34);f$;G(34);",8" {CBM-Z}S " loading":" table of contents" MT " one moment please" {$e6} a${CBM-R}G(13){CBM-N}"run"{CBM-N}G(13) i{CBM-R}1{CBM-@}C(a$):630{CBM-N}i,F 36879,25:G(14); 8D " COMPUTE! " rN "GET UP TO 30 NEW KX "PROGRAMS AND GAMES "FOR LESS THAN 15 CENTSEACH -- {CBM-@} "EVERY MONTH IN {CBM-W} "COMPUTE! {$e6} "To order your sub- scription to COMPUTE! {CBM-N} "or to order a samal computing ; "provides intermediate and advanced coverage {$7e} "for a wide range of affordable personal computers including {SHIFT-*} "the Commodore VIC-20 and 64, Atari, Apple, TI-99/4A, Radio {$ef}" "Shack Color Computer, IBM PC and PCjr." ' ". . r" %Hi${CBM-R}"run":i{CBM-R}1{CBM-@}C(i$):631{CBM-N}i,F(J(i$,i)): fR198,i{CBM-N}1:631,13:631{CBM-N}i,13: range of affordable personal computers including {SHIFT-*} "the Commodore VIC-20 and 64, Atari, Apple, TI-99/4A, Radio {$ef}" "Shack Color Computer, IBM PC and PCjr." ' ". . 36879,25 5D G(14)" COMPUTE!'s GAZETTE " qN "If you don't already X "subscribe to COMPUTE!'s Gazette, {CBM-H} "here's how to get moreout of your Commodore: R "{SHIFT-@} More fun: with such {$ee} " game excitement as " Astro-Files. How to Program -"The Function Keys. k"Writing Transportable B""BASIC. New Ways ,"to Enliven With Sound." {SHIFT-POUND}6"How to Use Machine Language." {CBM-W}@2000 Kj"{SHIFT-@} More Programs: {$ea}t"From Address File to ^"Auto-Li"processors, from &V"printers to modems ? "and disk drives." i{$ea}2000 Z{$f4}"SUBSCRIBE NOW TO COMPUTE!'S GAZETTE {SHIFT-@}{$fe}"AND START RECEIVING EVERY INFORMATION- PACKED ISSUE" ~"To order your sub- scription or a sample issue, Ri{CBM-R}1{CBM-@}C(s$):630{CBM-N}i,F(J(s$,i))::198,i '{$e9}36879,24 a{$ea}"reloading menu": \Pi{CBM-R}1{CBM-@}2000:{CBM-K}a$:a${CBM-R}""{CBM-M} BZ OMPUTE!'S GAZETTE {SHIFT-@}{$fe}"AND START RECEIVING EVERY INFORMATION- PACKED ISSUE" ~"To order your sub- scription or a sample issue, # a{CBM-R}0{CBM-M}a{CBM-R}1:"computescreen",8,1 d a{CBM-R}1{CBM-M}a{CBM-R}2:"computecolor",8,1 B "";:53280,15:53281,15 S( i{CBM-R}1{CBM-@}22000: {$7c}- "" {CBM-+}2 s${CBM-R}"lO"{CBM-N}G(34){CBM-N}"mn"{CBM-N}G(34){CBM-N}",8:"{CBM-N}G(131) P< i{CBM-R}1{CBM-@}C(s$):630{CBM-N}i,F(J(s$,i))::198,i {$e8}= 53281,14:53280,14 > "RELOADING MEN 40 + a${CBM-R}"":a{CBM-R}1{CBM-@}7200:{CBM-K}a$:a${CBM-R}""{CBM-M}a 1 y( "";:G(14);G(8):53281,6:53280,6 2 " "; {CBM-B}< " THE SECOND BOOK OF MACHINE LANGUAGE "; {$f1}f " " p " {$f5}(J(a$,i))::198,i{CBM-Q}1 {CBM-I} gR 53281,14:"load";G(34);f$;G(34);",8" {$7b}W " loading table of contents" {CBM-@}X " one moment please" {CBM-X}{$e6} a${CBM-R}G(13){CBM-N}"run"{CBM-N}G(13) {$e9}{$f0} i{CBM-R}1{CBM-@}C(a$):630{CBM-N}i,F(J(a$,i))::198,i{CBM-Q}1 {$ef}{$fa} {CBM-I} ple {CBM-H} "issue, call TOLL-FREE m{CBM-V} "800-334-0868 (N.C. call 919-275-9809)" KH "12 issues $24 32% off R "24 issues $45 36% off {CBM-T}{CBM--} "36 issues $65 40% off {CBM-F}{$e6} "Sample issue $4"; {$fa} "The leading magazine of home, educational, and recreation . . . . . . . . . . . . . . . . &6a$:k{CBM-R}1 =@"";J(a$,k,21) lew{CBM-R}1{CBM-@}100: Hgk{CBM-R}k{CBM-N}1:k{CBM-W}(C(a$){CBM-Q}20){CBM-M}340 {$7d}jz{CBM-R}z{CBM-N}1:z{CBM-R}6{CBM-M}z{CBM-R}0: ob$:a${CBM-R}J(a$,k){CBM-N}" "{CBM-N}b$:k{CBM-R}1 {CBM-S}t{CBM-K}z$:z${CBM-R}""{CBM-M}320 {CBM-C}^36879,24 _"load"G(34)"vm"G(34)",8" {$f9}{$60}"RELOADING MENUmputers. Fully tutorial, with easy" G "step-by-step explanations, the book shows how to construct"; {CBM-R} " significant, effective machine language programs. Included"; {$f9} " is a high-speed, professional quality, label-based assembler." PANIC!, {CBM-N} " Bagdad, Balloon 6{CBM-H} " Blitz, and The p{CBM-V} " Forbidden Crypt. zH 2000 TR "{SHIFT-@} More Challenge: {CBM--} "Ready to tackle more {SHIFT-POUND}{$e6} "advanced projects? {CBM--}{$f0} "In COMPUTE!'s Gazette,you'll learn How To {$f5}{$fa} "Use Tape and Disk "ne; from H"Disk Merge to 4R"Function Key and r{$7c}"Automatic Proofreader E"AND MORE." O2000 "{SHIFT-@} More Buying Guidance {CBM-POUND}{CBM-@}"You'll profit from E{CBM-S}"comprehensive reviews {CBM-*}{CBM-U}"of everything from {$f4}B"games to word Lcall TOLL "FREE 800-334-0868 8"(NC call 919-275-9809) w&"12 issues $24 Save $11" V0"24 issues $45 Save $25" :"36 issues $65 Save $41" {CBM-A}d"Sample issue $4.00" {SHIFT-*}n2000:2000 {$ef}{$e7}"":s${CBM-R}"lO"{CBM-N}G(34){CBM-N}"vm"{CBM-N}G(34){CBM-N}",8:"{CBM-N}G(131) {$e8}8 "Everything that is needed for optimized programming on"; {$7f}{CBM-N} " the Commodore 64, Atari, VIC-20, PET/CBM, and Apple computers." {CBM-A}{CBM-H} "$14.95 ISBN 0-942386-53-1" {CBM-U}{CBM-V} 20 SH "":53281,2:53280,2 R " U PROGRAM": compute!/vic gazette/vic compute! by Richard Mansfield" az "The follow-up to the best-selling" D "Machine Language for Beginners, this book leads the programmer"; UN " into the most powerful and efficient programming techniques"; X " available for personal co "; 9{CBM--} " C O M P U T E!' S "; L{$e6} " Beginner's Guide to Commodore 64 Sound "; {$f0} " " B{$fa} " by John Heilborn" {$f4}"Clear descriptions and numerous examples"; "a ~~~~~~~~~~~~~~~~~~~~~~ L{$fb} {$f8}{$e3}~~~~~~~~~~~~~~~~~~june 85 gazette 06 2a menu compute!/vic gazette/vic compute! 64 books vic books vm mn kkcomputecolor computescreen gazette sid editor , proofreader mlx mlx/vic squares kk freeze factory freeze/vic ml beg assassin assassination power basic vicontents 64 contents kk ~ v2 relative sid editor , screen-40 scr-40.boot kkkkkkkk 40 + a${CBM-R}"":a{CBM-R}1{CBM-@}4000:{CBM-K}a$:a${CBM-R}""{CBM-M}a 1 m( "";:G(14):36879,111 2 " THE SECOND BOOK OF MACHINE LANGUAGE " < "Richard Mansfield" {SHIFT-@}f "The follow-up to the" Vp "best-selling Machine" {$ea}z "Language for" D "Beginners, thbook"; !H "shows how to construct"; @R "significant, effective"; x{CBM--} "machine language" {$60}{$e6} 20 {$f0} "programs. Included" {$fa} "is a high-speed," {CBM-L}"professional-quality," U"label-based assembler."; {$ee}"Everything that's" ""neede "; " VIC Games " +"Edited" g"There's an exciting" ]{CBM-@}"mix of chases," T{CBM-S}"challenges, and" {CBM-U}"puzzlers in this" {CBM-M}B"collection of games" {CBM-B}L"for the VIC. It" {SHIFT-+}V"includes many of the" {$f5} "most popular games" ens," n"unravel stimulating" 1x"brainteasers, or even" lB"learn how to create" FL"games of your own," {$7f}V"COMPUTE!'s Second" "Book of VIC Games" {CBM-Q}"is for you." D"$12.95" {$e2}"ISBN 0-942386-57-4" {$ea}{CBM-POUND}20 {$fd}{CBM-R}"; "programs for the" % "VIC-20 and Commodore" > "64, continues the" [ *"COMPUTE! tradition of" X 4"practical programs in" >"easy-to-use form." h20 {CBM-Y} r"Includes exciting" Q \"games, stimulating" {$ee} F"educational programs,"he VIC " "{$de}"Raeto Collin West" +"{$e8}"Raeto Collin West's" @"{$f2}"previous book" w"{$fc}"Programming the" T""PET/CBM is considered" ""the definitive" {CBM-T}""Commodore PET/CBM" {SHIFT-@}"$"reference work." U"."Programming the VIC" {$eb}"8"is of the same20." ${CBM-+}"Nothing is left out" ${CBM-A}"and everything is" 8${SHIFT-@}"illustrated with" s$D"examples and sample" N$N"programs. No other" $X"work covers the VIC" {CBM-K}${$e2}"as thoroughly or" {CBM-H}${$ec}"as clearly." M${$f6}" $12.95" {$eb}$ " ISBN 0-942386- 100 / G(14)" Before attempting to" i " run any programs" F " please refer to the" " instructions in the" " COMPUTE!'s Gazette" {CBM-X} " Magazine issue dated" X " the same month as" {$ec} " this disk." "PRESS protected." + "PRESS ANY KEY FOR MENU" ? ! {CBM-K}mt$:mt${CBM-R}""{CBM-M}33 e " B D 36879,24:36865,24:800 K X 500 sp${CBM-R}" " {CBM-D} np{CBM-R}{CBM-J}(it{CBM-Z}8):cp{CBM-R}0 {CBM-POUND} {CBM-Z} 12 {CBM-J} {CBM-P} G(142); B {CBM-H} 36867,0 {$e6} {CBM-O} "{SHIFT-POUND} compute!'s gazette {CBM-*}"; {$f9} {CBM-V} a${CBM-R}mo${CBM-N}" 1985" k{CBM-R}k{CBM-Q}1 "H(a$,k):" "J(a$,k{CBM-N}2,18) ),i l6" page #";cp{CBM-N}1;"of";np{CBM-N}1 T@"{CBM-*} next page:return{SHIFT-POUND} "; e(e{CBM-Q}s){CBM-E}6{CBM-M}337 {CBM-P}j"";:i{CBM-R}1{CBM-@}(7{CBM-Q}(e{CBM-Q}s)){CBM-D}2{CBM-Q}1:"";sp$;: DoH(sp$,21)" "; Rq36867,46 {$fe}t828:{CBM-K}a$:a${CBM-W}{CBM-E}G(13){CBM-P}(a${CBM-W}""{CBM-A}a${CBM-E}is book" "N "leads the programmer" >X "deeper into the most" ] "powerful and efficient"; {$7c} "programming techniques"; "available for personal"; {CBM-H} "computers. Fully" O{CBM-N} "tutorial, with easy" {$e3}{CBM-H} "step-by-step" {CBM-V} "explanations, the d for optimized" $,"programming on the" @6"Commodore 64, Atari," \@"VIC-20, PET/CBM, and" Tj"Apple computers." t"$14.95" {CBM-N}^"ISBN 0-942386-53-1" {CBM-R}H20 FR"":36879,109 {$fd}{$7c}" COMPUTE!'s Second Book of {$ea}"from recent issues of" &{$f4}"COMPUTE! and" e{$fe}"COMPUTE!'s Gazette, as"; A"well as several that" "have never before been"; "published. Whether" {CBM-T}&20 C0"you want to explore" {CBM-*}:"misty dungeons, take" {$f9}d"on hostile ali":36879,30 ({CBM-C}" COMPUTE!'s Commodore"; sF" Collection Volume 1 " QP"28 Original Programs" Z"for the VIC and 64" {$e4}"Edited" {CBM-U}{$ee}"Commodore collection," R{$f8}"an anthology of 28" {$f1}"previously unpublished" !P"valuable utilities," !Z"and useful" 7!"applications to make" m!"your Commodore" I!"computer an exciting" !{CBM-I}"part of every day." !{CBM-D}" $12.95" {SHIFT-@}!{CBM-L}" ISBN 0-942386-55-8" B!{SHIFT-*}20 U!J"":36879,31 {$f5}!T" Programming t" #b"quality and on the" #l"same scale. It is" 9#v"destined to become" r#{$60}"the standard, the" O#J"essential book on the" #T"VIC. It is packed" #{$7e}20 {CBM-W}#"with extensive, clear" O#"information on every" {$ec}#"aspect of the VIC- 52-3" {$f3}$ 20 %a${CBM-R}"lO"{CBM-N}G(34){CBM-N}"v2"{CBM-N}G(34){CBM-N}",8:"{CBM-N}G(131) k%a{CBM-R}1{CBM-@}C(a$):630{CBM-N}a,F(J(a$,a,1)):: 198,a T%("LOADING PART TWO": It is packed" #{$7e}20 {CBM-W}#"with extensive, clear" O#"information on every" {$ec}#"aspect of the VIC-ANY KEY TO CONT." # {CBM-K}mt$:mt${CBM-R}""{CBM-M}22 b " Please note that the" ^ " Gazette Disk often" Y " features programs" " which write data to" {CBM-H} " the disk. Copy those" Q " programs to another" {$ee} " disk - this disk is" " write*C cx{CBM-R}11{CBM-Q}C(a$){CBM-Z}2:a${CBM-R}H(H(sp$,cx){CBM-N}a${CBM-N}sp$,22):a$; eD " (c) 1985 compute!" DH " publications, inc. "; {$fa} s{CBM-R}cp{CBM-D}8:e{CBM-R}cp{CBM-D}8{CBM-N}7:e{CBM-E}it{CBM-M}e{CBM-R}it {CBM-POUND}i{CBM-R}s{CBM-@}e:"f";G(49{CBM-N}i{CBM-Q}cp{CBM-D}8);""; Ga${CBM-R}n$(i):k{CBM-R}C(a$):k{CBM-W}19{CBM-M}268 {CBM-*}a${CBM-R}n$(i):k{CBM-R}19{CBM-@}1{SHIFT-POUND}{CBM-Q}1 {$f8} J(a$,k,1){CBM-W}{CBM-E}" "{CBM-M}k: ""){CBM-M}340 ^a${CBM-R}G(13){CBM-M}cp{CBM-R}cp{CBM-N}1:cp{CBM-E}np{CBM-M}cp{CBM-R}0 2 Ca${CBM-R}G(13){CBM-M}175 x Hfv{CBM-R}(F(a$){CBM-Q}133){CBM-D}2{CBM-N}1:fv{CBM-R}fv{CBM-N}7{CBM-D}(fv{CBM-E}8) R Mc{CBM-R}fv{CBM-N}cp{CBM-D}8{CBM-Q}1:c{CBM-E}it{CBM-M}340 {CBM-E} V36879,27:"load";G(34);f$(c);G(34);",8":i${CBM-R}"run" T i{CBM-R}1{CBM-@}C(i$):631{CBM-N}i,F(J(i$,i)): {$e9} {$e1}""; {$fb} {$e2}{CBM-T}7)"l 1: 15: x 1: 15 0B"Can't read Table of Contents" lG"Disk Error:":en;em$ [L"Check:" QV"1)Proper disk? "2)Drive door closed? {CBM-D}"3)All cables attached?" {$ee}"Remove, then re-insertdisk, press any key to try again." 110 53265,27 o G(14)" Before attempting to run any programs" {$7c} " please refer to the instructions in" {CBM-Q} " the COMPUTE!'s Gazette Magazine issue" W " dated the same month as this disk." " Please note the Gazette Disk 3284,2 X 500 < sp${CBM-R}" " V a${CBM-R}"table of contents for "{CBM-N}mo${CBM-N}" 1985":cx{CBM-R}21{CBM-Q}C(a$){CBM-Z}2 z${CBM-R}"":a${CBM-R}H(sp$,cx){CBM-N}a${CBM-N}sp$:i{CBM-R}1{CBM-@}40 {SHIFT-@} z${CBM-R}z${CBM-N}G(F(J(a$,i)){CBM-N}128): N {CBM-D} np{CBM-R}{CBM-J}(it{CBM-Z}8):cp{CBM-R}0 V {CBM-Z} 12 {$ed} {CBM-P} 53265,B(53265){CBM-A}64 {CBM-A} 53280,1i{CBM-R}s{CBM-@}e:" F";G(177{CBM-N}i{CBM-Q}cp{CBM-D}8);" ";n$(i); ;H(sp$,35{CBM-Q}C(n$(i))); N"----------------------------------------"; T, 6:"this is page #";cp{CBM-N}1;"of";np{CBM-N}1 B@"press RETURN for next page" {$e9}t{CBM-K}a$:a${CBM-W}{CBM-E}G(13){CBM-P}(a${CBM-W}""{CBM-A}a${CBM-E}""){CBM-M}340 ^a${CBM-R}G(13ding ";G(34)f$(c)G(34) /{$e3}" please stand by" p{$ea}631{CBM-N}i,13:631,13:198,i{CBM-N}1: v{$f3} H{$f4}15,8,15,"i0" {$fe}1,8,8,"0:64 contents,s,r":15,en,em$: en{CBM-E}0 {CBM-M} 600 {CBM-B}1,mo$:1,it:n$(it),f$(it) {CBM-*}i{CBM-R}0{CBM-@}it:1,n$(i):1,f$(i): {$ec} 1: 15: {$f7}x {CBM-K}a$:a${CBM-R}""{CBM-M}670 {CBM-POUND} /{$e3}" please stand by" p{$ea}631{CBM-N}i,13:631,13:198,i{CBM-N}1: v{$f3} H{$f4}15,8,15,"i0" {$fe}1,8,8,"0:64 contents,s,r":15,en,em$: en{CBM-E}0 {CBM-M} 600 {CBM-B}1,mo$:1,it:n$(it),f$(it) {CBM-*}i{CBM-R}0{CBM-@}it:1,n$(i):1,f$(i): {$ec} 1: 15: {$f7}x X{CBM-A}{$f0}{$f0}{$f0}{CBM-*}{CBM-A}{$f0}{$f0}{$f0}{$f0}{$f0}{$f0}{$f0}~{$f0}{CBM-A} ~ ~{$f0}{$60}{$f0}{$f0}{$ef} {$f0}{CBM-B}{CBM-A}{CBM-P} {$f0}{$f0}~{$f0} {CBM-A} {CBM-P}{CBM-A}{CBM-A}~{CBM-A}{$60} {$f0}{$f0}~ {$ef} {$f0} {$f0} {$f0} {$f0}~ {$f0}/~{CBM-P}{CBM-B}{$f0}{$f0}~ {SHIFT-*}~~{$f0} {CBM-A}p{$f0}~{$60} {SHIFT-*} O {$f0}{$60} ~{$f0}{CBM-A}~{CBM-B}{$f0}P{CBM-P}O{$f0}~ {$f0}{$f0}{$f0}{$f0} {$f0}P{$f0}{CBM-P}{$60}~ ~{$f0}~ {$f0}~{CBM-P} {CBM-A}{CBM-A}{SHIFT-*}~{$f0}{$f0}{CBM-P}{CBM-P}P{SHIFT-*}{$f0} ~{SHIFT-*}{CBM-*}P{$f0}{SHIFT-*}{$60}{$f0} {SHIFT-*} {CBM-A} {$60}{$f0}{$f0}P{$f0}{CBM-A} {$f0} {SHIFT-*}{CBM-A} {$60}{$f0} {$f0}{$f0} {SHIFT-*}{$f0}{$f0}f{$f6}{$f6}{$f6}{$f6}V{$f6}{$f6}{CBM-L}{$f6}{$f6}{$f6}{$f6}{CBM-+}{CBM-L}fVf{$f6}{CBM-+}{$f6}V{$f6}{$f6}{$f6}{CBM-+}{$f6}{$f6}F{CBM-L}F{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}V&{CBM-L}~~~{CBM-*}{CBM-P}O{CBM-B}~{CBM-B}~OO{$f8}{$f8}{$f8}{$f8}{$f8}{CBM-POUND}X{$f8}{CBM-POUND}H{$f8}H(X{CBM-POUND}{$f8}{$e8}({$f8}{$f8}{$f8}{$f8}{CBM-POUND}H{$f8}H{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{CBM-POUND}{CBM-U}{$f8}X{$f8}H{$f8}{$f8}(HHH({$f8}h{$f8}{$f8}{$f8}h{CBM-POUND}X{$f8}X{$f8}{CBM-POUND}{CBM-POUND}{$f8}{$f8}{$f8}{$f8}{$f8}X8{$f8}{CBM-U}{CBM-U}H{$f8}{$f8}{$f8}H{$f8}H{$f5}{CBM-G}{$f5}%{$f5}{$f5}{CBM-G}E{CBM-G}{$f5}{$f5}{CBM-J}{CBM-J}{$f5}{$f5}{$f5}{$f5}{$f5}EE{CBM-J}{CBM-G}e{$f5}{$f5}{$f5}e%{$f5}{CBM-G}{CBM-J}E5EE{$f5}{$f5}{$f5}{$f5}{$f5}{CBM-J}{$f5}{CBM-G}{$f5}{$f5}{$e5}{$f5}{$f5}{$f5} {$f0}{$f0}{CBM-A} {$f0}~~~~/~{$ef}{CBM-B}{CBM-P}Oo{CBM-P}~{CBM-B}{CBM-B}{CBM-B}~{CBM-*}~~{$ef}~~~~~{CBM-*}~{CBM-P}O{CBM-B}{CBM-P}{CBM-B}~{$f4}{$f4}{$f4}{$f4}D{$f4}{$f4}D{CBM-@}{$f4}{$f4}{$f4}T{$f4}d{$f4}d{$f4}{$f4}{CBM-@}{CBM-@}{CBM-@}D{CBM-@}{$f4}{$f4}D{$f4} L L {$7b} {$e1} {$7b} A{$e1} A {$ec} {$ec} {$fb} {$e1} A{$e1} A B {$fc} {$fc} {$fe} {$7c} {$7e} {$e1} {$e2}{$7e} {$fc}{$fe} A X {$e2} {$7c} {$7c} {$7e} {$60} {$e1} {$7c} {$7e} A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@t , -, oading" "{$e3}""{CBM-T}10{CBM-Q}C(f$(c)){CBM-Z}2)G(34)f$(c)G(34) @{$e4}" please stand by" A{$ea}631{CBM-N}i,13:631,13:198,i{CBM-N}1: G{$f3} Y{$f4}15,8,15,"i0" {CBM-P}{$fe}1,8,8,"0:vicontents,s,r":15,en,em$: en{CBM-E}0 {CBM-M} 600 O1,mo$:1,it:n$(it),f$(it) {$ef}i{CBM-R}0{CBM-@}it:1,n$(i):1,f$(i): {$fc} {CBM-Q}{CBM-K}a$:a${CBM-R}""{CBM-M}670 {CBM-POUND} " i{CBM-R}828{CBM-@}858:a:i,a:: T 120,173,4,144,205,96,3,240,248,141,96,3,41,248,10,9,8,141,15,144,32,159,255 165,197,201,64,240,228,88,96 ,em$: en{CBM-E}0 {CBM-M} 600 O1,mo$:1,it:n$(it),f$(it) {$ef}i{CBM-R}0{CBM-@}it:1,n$(i):1,f$(i): {$fc}often" 0 " features programs which write data" ^ " to the disk. Copy those programs to" " another disk - this disk is write" " protected." H " PRESS ANY KEY FOR THE MENU" {CBM--} {CBM-K}mt$:mt${CBM-R}""{CBM-M}32 {$e2}" N 53282,8:53283,15:54:53281,14 9{CBM-E} "----------------------------------------"; N{CBM-H} " COMPUTE{CBM-M}S GAZETTE FOR VIC{CBM-Z}{CBM-R}{CBM-A} AND {CBM-L}{CBM-H} ";z$; {CBM-I}H " {CBM-POUND}C{SHIFT-POUND} {CBM-E}{CBM-O}{CBM-U}{CBM-J} COMPUTE{CBM-K} PUBLICATIONS{CBM-D}INC{CBM-S} "; U{$f5} "----------------------------------------"; {$f4}{$fa} s{CBM-R}cp{CBM-D}8:e{CBM-R}cp{CBM-D}8{CBM-N}7:e{CBM-E}it{CBM-M}e{CBM-R}it "){CBM-M}cp{CBM-R}cp{CBM-N}1:cp{CBM-E}np{CBM-M}cp{CBM-R}0 Ca${CBM-R}G(13){CBM-M}175 c Hfv{CBM-R}(F(a$){CBM-Q}133){CBM-D}2{CBM-N}1:fv{CBM-R}fv{CBM-N}7{CBM-D}(fv{CBM-E}8) ] Mc{CBM-R}fv{CBM-N}cp{CBM-D}8{CBM-Q}1:c{CBM-E}it{CBM-M}340 V65409:"load";G(34);f$(c);G(34);",8":i${CBM-R}"run" {SHIFT-@} i{CBM-R}1{CBM-@}C(i$):631{CBM-N}i,F(J(i$,i)): Y {$e1}53280,6:""; {$e2}{CBM-T}18{CBM-Q}C(f$(c)){CBM-Z}2{CBM-Q}4)"loa1: 15 B"Can't read Table of Contents" 9G"Disk Error:";en;em$ hL"Check:" IV"1) Correct disk inserted? "2) Is drive door closed? {SHIFT-POUND}"3) All cables attached?" {$eb}"Remove, then re-insert disk, press any key to try again." {$fe} - c vic-20 & 64, a, a, ti-99/4a, r s c c , ibm pc pc . F{$f6}{$f6}{CBM-+}{$f6}{$f6}{$f6}{$f6}{CBM-L}&{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}&FV{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}{CBM-+}{$f6}F{$f6}F{$e6}Ff{CBM-+}{$f6}{$f6}{$f6}{$f6}{CBM-+}6{$f6}{$f6}{$f6}{$f6}{$f6}{CBM-L}{$f6}{$f6}{CBM-+}F&FF{CBM-+}&{$f6}{$f6}{$f6}{$f6}{CBM-+}6{CBM-L}F{CBM-+}{$f6}{$f6}{$f6}{$f6}{CBM-+}{CBM-L}{$f6}{$f6}{$f6}ff{$f6}{$f6}VFf{$f6}F{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}F{$f6}FV{$f6}{CBM-L}{CBM-L}{CBM-L}{$f6}F{$f6}{CBM-L}F{CBM-+}F{CBM-+}{$f6}{$f6}F{$f6}V{$f6}V{$f6}{CBM-+}V{CBM-+}{$f6}{$f6}{CBM-L}{$e6}F{$f6}{CBM-L}{CBM-+}{$f6}{$e6}{CBM-L}{$f6}{$f6}&{$f6}{$f6}{$f6}6{$f6}{CBM-+}{$f6}{$f6}&{$f6}F{$f6}{$f6}{CBM-L}{CBM-L}{$f6}{CBM-L}F{$f6}{$f6}{$f6}V{$f6}{$f6}{$f6}{$f6}VF{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}{$f6}F{$e6}f{CBM-L}{$f6}{$f6}{$f6}&~{CBM-*}o~~~~~{CBM-P}~~o~{CBM-B}O~~~~~{CBM-B}{CBM-*}{CBM-*}{CBM-B}O~ {$f1}{$f4}{$f4}{$f4}{CBM-H}{$f4}DD{$f4}{$f4}${CBM-H}{CBM-@}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}{$f4}D{$f4}D{$f6}f{$f6}{$e6}{$f6}{$f6}{CBM-+}{CBM-I}R{$e2}{CBM-I}{CBM-R}{$e2}{$f2}{$f2}{$f2}{$f2}{$e2}{$e4}D{$f4}{CBM-H}{$f4}d{$f4}D{CBM-@}$D{$f4}{CBM-@}{$f4}{$f4}T{CBM-A}{CBM-A}p{$f0}{$f0} {$f0}{SHIFT-*}@{$f0} {$f0}{$f0} {$f0}@@{$f0}{$f0}{$f0}{$f0} {$f0}{$f0}{$60}{CBM-A} {SHIFT-*} {$f0}E{SHIFT-*} {$f0}{$f0} {CBM-A} {$f0}{SHIFT-*} {$f0}{$f0}{$f0}{$f0} {$f0} {$f0} {$f0} {$f0} {$f0}{$f0}{$f0}{$f0}{$f0}P{CBM-A}{CBM-A}{SHIFT-*}{$f0}{$f0}{$f0}{$f0}{SHIFT-*}{CBM-A}{CBM-A} {CBM-A} {$f0}{CBM-A}{$f0}{$f0}{$f0} {$f0} {$f0} {$f0}{$f0}0{$60}{$f0}{$f0}{$f0} {SHIFT-*}P{$f0}{$60}{CBM-B}~ {$f0}{$f0}{$f0}{$f0}{$f0}p {$f0}{CBM-A}{SHIFT-*}PP{$f0}{$f0}{$f0}{$f0}{$f0}{$60}{$f0}{$f0}{$f0}{$f0}{CBM-A}~o~~~~~~{CBM-P}~~~~~~{CBM-B}{CBM-*}{CBM-*}{CBM-B}O~ dD 1000: ***** 16-bit calculation ***** _H kk{CBM-R}B(key):kk{CBM-R}null{CBM-M}200 M key pressed, use vars for speed {CBM-T}R j{CBM-R}bb:z{CBM-R}B(h{CBM-N}bb):hh{CBM-R}B(shft) EW cur-up=7,cur-lft=2,return=1 {$e9}{CBM--} kk240,250,230,230,230,230,260 {$e6} : no valid keyzz "930: position cursor > ' print value if pitch or filter v ,dv{CBM-W}{CBM-E}cc{CBM-M}z" ":320 R 1 print % of duty cycle 6{CBM-J}(z{CBM-Z}4.095){CBM-Z}10"% " {CBM-G} ; put value in buffer D @h{CBM-N}bb,z{CBM-Z}xx:h,z{CBM-Q}{CBM-J}(z{CBM-Z}xx){CBM-D}xx {$e5} jdv{CBM-E}cc{CBM-M}360: branch for fltr o put val in sid valid? #kk430,430,420,420,420,420,430 d no, return with value kept j{CBM-@} C{CBM-S}hh{CBM-R}B(shft):bb{CBM-R}sbuf{CBM-N}h {CBM-W} add increment (same for any {SHIFT-POUND}{CBM-H} valid key), pos if shift down I{CBM-U}z{CBM-R}(B(bb){CBM-P}j){CBM-Z}k{CBM-N}(hh{CBM-R}0){CBM-Q}(hh{CBM-E}0) {$e9}Bz{CBM-W}0{CBM-M}z{CBM-R}0: min & max values {$f8}Lz{CBM-E}15{CBM-M}z{CBM-R} by caller 8P: ***** bit encoding ***** u yy{CBM-R}yy{CBM-P}255{CBM-Q}j{CBM-A}z{CBM-D}k: encode R*sbuf{CBM-N}xx,yy: set buffer 4sid{CBM-N}xx,yy: set sid H>: ***** cursor plotter ***** {$e6}cx,wx%(ct){CBM-N}cl: word row cy,wy%1100 q key pressed, if shift is 5r down, skip entry level calc ovhh{CBM-R}B(shft):hh{CBM-R}1{CBM-M}1500 N[ entry level into voices? {$60}kk{CBM-W}f1{CBM-A}kk{CBM-E}f5{CBM-M}1500 {CBM-G}E change entry level & clear DJel{CBM-R}kk{CBM-Q}4:dv{CBM-R}{CBM-Q}1:53000:1100 X ***{CBM-M}4000: sync @kk{CBM-R}q{CBM-M}2000: filter freq 0jkk{CBM-R}n{CBM-M}3000: resonance htkk{CBM-R}v{CBM-M}3000: volume ^^kk{CBM-R}m{CBM-M}5000: mode WHkk{CBM-R}n1{CBM-M}5000: assign Rkk{CBM-R}n2{CBM-M}5000 {$7c}kk{CBM-R}n3{CBM-M}5000 {CBM-+}kk{CBM-R}x{CBM-M}5000 {CBM-C}kk{CBM-R}o{CBM-M}6000: osc3 Rkk{CBM-R}e{CBM-M}6000: env3 {$e9}{CBM-@}kk{CBM-R}t{CBM-M}5000: 3 off get up to 30 new programs and games for less than 15 cents each - every month incompute! subscribe now and save up to 40% off the newsstand price on compute! t compute! 7D "please wait...":i{CBM-R}886{CBM-@}1018:a:ck{CBM-R}ck{CBM-N}a:i,a: XN ck{CBM-W}{CBM-E}17539 {CBM-M} "you made an error":"in data statements.": X 886:"proofreader activated.":{CBM-I} {CBM-V}V 173,036,003,201,150,208 {CBM--}{$7c} 001,096,141,151,003,173 {$fa} 037,003,141,152,003,169 ,214,141,251 & {CBM-V} 003,206,251,003,169,000 d D 133,216,169,019,032,210 B J 255,169,018,032,210,255 P 169,058,032,210,255,166 V 254,169,000,133,254,172 {CBM-C} {CBM--} 151,003,192,087,208,006 Z {$e2} 032,205,189,076,235,003 {$f8} {$e8} 032,205,221,169,032,032 c lines changed from mlx version 2.00 are 750,765,770 and 860 S line changed from mlx version 2.01 is 300 D "";G(142);G(8);:53281,1:53280,1 {CBM-C}E 788,52: disable run/stop {$ed}N " "; $X " , keep value ${$f0} j{CBM-R}{CBM-J}((z{CBM-N}bb){CBM-D}k{CBM-Z}cc):260 j{$f5} vry fast,larger for higher vals G{$fa} j{CBM-R}k: moderate increment z{CBM-R}B(h){CBM-N}z{CBM-D}xx{CBM-N}j{CBM-D}((hh{CBM-R}aa){CBM-Q}(hh{CBM-E}aa)) {CBM-Q} h set by caller, add incr O incr is pos if shift key down {$ef}z{CBM-W}aa{CBM-M}z{CBM-R}aa: min & max vals {$fe}z{CBM-E}zz{CBM-M}z{CBM-R}, back for more %tyy,B(h):yy{CBM-N}bb,B(h{CBM-N}bb) .^200 pC filter is odd; 11-bit value KD stored 3 low, 8 high Hyy,z{CBM-P}7:yy{CBM-N}bb,z{CBM-Z}8 DR200: ***** 8-bit calculation ***** {CBM-*}kk{CBM-R}B(key):kk{CBM-R}null{CBM-M}400 ~ key pressed, is it15 V930:z" ": pos & prnt , {SHIFT-+} mask on to byte b z{CBM-R}B(bb){CBM-P}255{CBM-Q}j{CBM-A}z{CBM-D}k B {$e5} insert & go back for more {$ea}bb,z:sid{CBM-N}h,z:400: ***** bit decoding ***** {CBM-F} {CBM-C}yy{CBM-R}B(sbuf{CBM-N}xx): value of byte {SHIFT--} Fz{CBM-R}{CBM-J}((yy{CBM-P}j){CBM-Z}k): val of bit(s) {$fd} K mask values set (ct){CBM-N}ofs: & column 950 -{CBM-I}cx,vx%(ct){CBM-N}cl: value row l{CBM-D}cy,vy%(ct): & column F{CBM-L}move:: move cursor {$e4} ** main routine ** X{$e8} 50000: initialize ***** key input ***** {$f4}lkk{CBM-R}B(key):kk{CBM-R}null{CBM-M}** key dispatch ***** {CBM--}kk{CBM-R}f{CBM-M}2000: frequency ;{$e6}kk{CBM-R}p{CBM-M}2000: pulse width s{$f0}kk{CBM-R}a{CBM-M}3000: attack J{$fa}kk{CBM-R}d{CBM-M}3000: decay kk{CBM-R}s{CBM-M}3000: sustain kk{CBM-R}r{CBM-M}3000: release {CBM-L}kk{CBM-R}w{CBM-M}4000: waveform L"kk{CBM-R}g{CBM-M}4000: gate {$e2},kk{CBM-R}i{CBM-M}4000: ring {$f8}6kk{CBM-R}y{SHIFT-POUND} special functions {CBM-S}kk{CBM-R}f1{CBM-M}7000:1100 /{CBM-U}kk{CBM-R}f3{CBM-M}7000:1100 fBkk{CBM-R}f5{CBM-M}7000:1100 CLkk{CBM-W}{CBM-E}f7{CBM-A}hh{CBM-R}0{CBM-M}1800: end? V{CBM-K}a$:a${CBM-W}{CBM-E}""{CBM-M}1750: clr buf sid{CBM-N}24,0:cs:: end {CBM-C}dv{CBM-R}{CBM-Q}1:53020: no valid key {$f9}52000:1100: oops ***** 16-bit {$f1} , toll- free 800-334-0868 (n.c. 919-275-9809) 1 y (12 ) $24.00 (32% ) 2 y (24 ) $45.00 (36% ) 3 y (36 ) $65.00 (40% ) s s i $ 4.00 150,141,036,003,169,003 6 141,037,003,169,000,133 t 254,096,032,087,241,133 R 251,134,252,132,253,008 201,013,240,017,201,032 {CBM-S}{CBM-+} 240,005,024,101,254,133 L{CBM-D} 254,165,251,166,252,164 {$ea}{CBM-R} 253,040,096,169,013,032 {CBM-U} 210,255,165 h{$ee} 210,255,032,210,255,173 4{$f4} 251,003,133,214,076,173 >{$fa} 003 032,087,241,133 R 251,134,252,132,253,008 201,013,240,017,201,032 {CBM-S}{CBM-+} 240,005,024,101,254,133 L{CBM-D} 254,165,251,166,252,164 {$ea}{CBM-R} 253,040,096,169,013,032 {CBM-U} 210,255,165 {CBM-*}{SHIFT-POUND} {CBM-*}{CBM-*}{SHIFT-POUND}{SHIFT-POUND} "; z " {CBM-G} {SHIFT-POUND}{SHIFT-POUND}{CBM-*}{CBM-*} "; " " BH " machine language editor version 2.02" {$f0}R "starting address? "; W s:f{CBM-R}1{CBM-Q};G(14):ad{CBM-R}s *6a{CBM-R}1:I("0000"{CBM-N}J(D(ad),2),5);":"; 5;j{CBM-R}a{CBM-@}6 o@570:n{CBM-R}{CBM-Q}1{CBM-M}j{CBM-R}j{CBM-N}n:320 {$60}n{CBM-R}{CBM-Q}211{CBM-M} 710 Qn{CBM-R}{CBM-Q}204{CBM-M} 790 n{CBM-R}{CBM-Q}206{CBM-M}:"Enter New Address";zz Kn{CBM-R}{CBM-Q}206{CBM-M}zz{CBM-W}s{CBM-A}zz{CBM-E}e{CBM-M}"out of range":1000:410 {$e4}{CBM-K}n{CBM-R}{CBM-Q}206{CBM-M}ad{CBM-R}zz::310 {$f8}{CBM-@} n{CBM-W}{CBM-E}{CBM-Q}196 {CBM-M} 480 {$ea}a(j){CBM-R}n:j ? {$f4}cksum{CBM-R}ad{CBM-Q}{CBM-J}(ad{CBM-Z}256){CBM-D}256:i{CBM-R}1{CBM-@}6:cksum{CBM-R}(cksum{CBM-N}a(i)){CBM-P}255: y {$fe}G(18);:570:G(146); L ~n{CBM-R}{CBM-Q}1{CBM-M}a{CBM-R}6:315 G(20):n{CBM-R}cksum{CBM-M}530 {CBM-U} :"Line Entered Wrong : Re-enter"::1000:310 B 2000 {$ee} i{CBM-R}1{CBM-@}6:ad{CBM-N}i{CBM-Q}1,a(i)::54272,0:54273,0 &a a{CBM-R}32{CBM-M}670 na{CBM-E}128{CBM-M}n{CBM-R}{CBM-Q}a: xa{CBM-W}{CBM-E}20 {CBM-M} 630 cB690:i{CBM-R}1{CBM-P}t{CBM-R}44{CBM-M}n{CBM-R}{CBM-Q}1:" ";:690 lL570 _Va{CBM-W}48{CBM-A}a{CBM-E}57{CBM-M}580 Ta$;:n{CBM-R}n{CBM-D}10{CBM-N}a{CBM-Q}48 n{CBM-E}255 {CBM-M} a{CBM-R}20:1000:600 {CBM-@}z{CBM-R}z{CBM-N}1:z{CBM-W}3{CBM-M}580 {CBM-U}z{CBM-R}0{CBM-M}1000:570 D{CBM-POUND}",";: {$e4}{CBM-R}s%{CBM-R}B(209){CBM-N}256{CBM-D}B(210){CBM-N}B(211) {$f9}{CBM-W}i{CBM-R}1{CBM-@}3:"d"):dv{CBM-R}8{CBM-M}f${CBM-R}"0:"{CBM-N}f$:15,8,15,"s"{CBM-N}f$: 15 f{$f8}t${CBM-R}f$:zk{CBM-R}B(53){CBM-N}256{CBM-D}B(54){CBM-Q}C(t$):782,zk{CBM-Z}256 O{$fa}781,zk{CBM-Q}B(782){CBM-D}256:780,C(t$):65469 {$fb}780,1:781,dv:782,1:65466 {CBM-V}{$fd}k{CBM-R}s:254,k{CBM-Z}256:253,k{CBM-Q}B(254){CBM-D}256:780,253 {$ec}{$fe}k{CBM-R}e{CBM-N}1:782,k{CBM-Z}256:781,k{CBM-Q}B(782){CBM-D}256:65496:"Tape or Disk: (T/D)" &4{CBM-K}a$:a${CBM-W}{CBM-E}"t"{CBM-P}a${CBM-W}{CBM-E}"d"{CBM-M}820 k>dv{CBM-R}1{CBM-Q}7{CBM-D}(a${CBM-R}"d"):dv{CBM-R}8{CBM-M}f${CBM-R}"0:"{CBM-N}f$ Zht${CBM-R}f$:zk{CBM-R}B(53){CBM-N}256{CBM-D}B(54){CBM-Q}C(t$):782,zk{CBM-Z}256 {CBM-T}i781,zk{CBM-Q}B(782){CBM-D}256:780,C(t$):65469 Dm780,1:781,dv:782,1:65466 Vr780,0:65493 {$f3}\(B(783){CBM-P}1){CBM-A}( ll sound Q54296,15:54277,0:54278,247 2R 54276,17:54273,40:54272,0 mSt{CBM-R}1{CBM-@}100::54276,16: S{CBM-U}c$;"not zero page or rom":1000 {CBM-T}i781,zk{CBM-Q}B(782){CBM-D}256:780,C(t$):65469 Dm780,1:781,dv:782,1:65466 Vr780,0:65493 {$f3}\(B(783){CBM-P}1){CBM-A}(; ""{CBM-+}14)"please wait":53272,28:56,48: E 56334,0:1,51:a{CBM-R}2047:b{CBM-R}12288:c{CBM-R}53248 i{CBM-R}.{CBM-@}a:i{CBM-N}b,B(i{CBM-N}c)::1,55:56334,1 ( eg{CBM-R}0::520 {CBM-O}2 ((B(p1){CBM-P}2){CBM-R}.){CBM-M}d{CBM-R}w:190 Z< ((B(p1){CBM-P}4){CBM-R}.){CBM-M}d{CBM-R}{CBM-Q}t:g{CBM-R}2:190 {$f7}f ((B(p1){CBM-P}1){CBM-R}.){CBM-M}d{CBM-R}{CBM-Q}w:190 p ({CBM-R}hh{CBM-N}1:hh{CBM-E}ht{CBM-M}hh{CBM-R}.:h{CBM-R}h{CBM-Q}1:h{CBM-W}0{CBM-M}310 ? {CBM-N} "";h;" " g {CBM-H} 50 {$7e} {CBM-V} u2,40:B(z{CBM-N}d){CBM-R}n{CBM-M}z,n:z{CBM-R}z{CBM-N}d:z{CBM-N}c,7:z,g:u2,.:230 {CBM-I} H u2,.:B(z{CBM-N}d){CBM-R}6{CBM-P}B(z{CBM-N}d{CBM-D}2){CBM-W}{CBM-E}n{CBM-M}240 G R B(z{CBM-N}d){CBM-R}6{CBM-P}B(z{CBM-N}d{CBM-D}2){CBM-R}n{CBM-M}qq{CBM-R}z{CBM-N}d:350 Y {CBM--} B(z{CBM-N}d){CBM-W}6{CBM-M}260 {$e1} {$e6} 90 {$f0} a{CBM-R}.{CBM-@}3:z{CBM-N}d,8:u1,15 game over " xj"press firebutton"; Mt56320,16,16:40 ^u2,100:u2,120:qq,n:qq{CBM-R}qq{CBM-N}d {CBM-P}HB(qq){CBM-R}n{CBM-M}qq{CBM-N}c,3:qq,6:350 {$e8}Ru2,.:B(qq){CBM-W}6{CBM-M}qq{CBM-N}c,3:qq,6:s{CBM-R}s{CBM-N}1000:">";s:390 {$7c}qq{CBM-R}qq{CBM-Q}d:f:c${CBM-R}G(31{CBM-N}119{CBM-D}f) < {CBM--} s{CBM-W}256{CBM-A}(s{CBM-E}40960{CBM-P}s{CBM-W}49152){CBM-A}s{CBM-E}53247{CBM-M}3000:210 f {$e1} :: {$e6} "ending address? ";:e:f{CBM-R}1{CBM-Q}f:c${CBM-R}G(31{CBM-N}119{CBM-D}f) {SHIFT-@} {$f0} e{CBM-W}256{CBM-A}(e{CBM-E}40960{CBM-P}e{CBM-W}49152){CBM-A}e{CBM-E}53247{CBM-M}3000:230 {$e7} {$fa} e{CBM-W}s{CBM-M}c$;"ending < start ":1000: 230 {$f1} :: ,"" {CBM-S}:"Display:From";f:,"To";:t x{CBM-U}f{CBM-W}s{CBM-A}f{CBM-E}e{CBM-A}t{CBM-W}s{CBM-A}t{CBM-E}e{CBM-M}"At least";s;", not more than";e:430 Bi{CBM-R}f{CBM-@}t{SHIFT-POUND}6::I("0000"{CBM-N}J(D(i),2),5);":"; {CBM-E}Ck{CBM-R}0{CBM-@}5:n{CBM-R}B(i{CBM-N}k):I("00"{CBM-N}J(D(n),2),3);","; IL{CBM-K}a$:a${CBM-E}""{CBM-M}::310 {$e4}Vk:G(20);:i:::310 {$f6} n{CBM-W}0 {CBM-M} :310d{CBM-R}ad{CBM-N}6: ad{CBM-W}e {CBM-M} 310 0 710 :n{CBM-R}0:z{CBM-R}0 'd"{CBM-POUND}"; :e{CBM-K}a$:a${CBM-R}""{CBM-M}581 fav{CBM-R}{CBM-Q}(a${CBM-R}"m"){CBM-Q}2{CBM-D}(a${CBM-R}","){CBM-Q}3{CBM-D}(a${CBM-R}"."){CBM-Q}4{CBM-D}(a${CBM-R}"j"){CBM-Q}5{CBM-D}(a${CBM-R}"k"){CBM-Q}6{CBM-D}(a${CBM-R}"l") {CBM-C}gav{CBM-R}av{CBM-Q}7{CBM-D}(a${CBM-R}"u"){CBM-Q}8{CBM-D}(a${CBM-R}"i"){CBM-Q}9{CBM-D}(a${CBM-R}"o"):a${CBM-R}"h"{CBM-M}a${CBM-R}"0" Rhav{CBM-E}0{CBM-M}a${CBM-R}G(48{CBM-N}av) {$fa}iG(20);:a{CBM-R}F(a$):a{CBM-R}13{CBM-A}a{CBM-R}44{CBM-A}t{CBM-R}B(s%{CBM-Q}i) {CBM-Y}t{CBM-W}{CBM-E}44{CBM-P}t{CBM-W}{CBM-E}58{CBM-M}s%{CBM-Q}i,32: *{CBM-C}H("",i{CBM-Q}1);: cF"*** Save ***" SK"(Press RETURN alone to cancel save)" Pf${CBM-R}"":" Filename";f$:f${CBM-R}""{CBM-M}::310 AZ:"Tape or Disk: (T/D)" {$de}{$e4}{CBM-K}a$:a${CBM-W}{CBM-E}"t"{CBM-P}a${CBM-W}{CBM-E}"d"{CBM-M}740 {$ee}dv{CBM-R}1{CBM-Q}7{CBM-D}(a${CBM-R} (B(783){CBM-P}1){CBM-A}(191{CBM-P}st){CBM-M}780 "Done.":310 j"Error on Save. Try again.":dv{CBM-R}1{CBM-M}720 U 15,8,15:15,e1$,e2$:e1$;e2$: 15:720 "*** Load ***" {CBM-C}"(Press RETURN alone to cancel load)" {$e6} f${CBM-R}"":" Filename";f$:f${CBM-R}""{CBM-M}:310 *191{CBM-P}st){CBM-M}870 A"Done.":310 4F"Error on Load. Try again.":dv{CBM-R}1{CBM-M}800 _P15,8,15:15,e1$,e2$:e1$;e2$: 15:800 L{$e8} buzzer {$e9}54296,15:54277,45:54278,165 {CBM-A}{$ea}54276,33: 54273,6:54272,5 {SHIFT--}{$eb}t{CBM-R}1{CBM-@}200::54276,32:54273,0:54272,0: {$ee}P beqq{CBM-N}c,3:qq,6:50 # y{CBM-R}120{CBM-@}135:u2,y::u2,. x a{CBM-R}.{CBM-@}9:qq{CBM-N}c,t:qq,11:u2,135:z,g{CBM-N}t:qq,10:z,g u2,100:u2,.::qq,4:u2,.:eg{CBM-R}eg{CBM-N}1:eg{CBM-E}3{CBM-M}430 {CBM-@}50 J {CBM-S}eg{CBM-R}.:y{CBM-R}64{CBM-@}128:u2,y::z,n:a{CBM-R}.{CBM-@}3:e(a),n::z{CBM-R}1524 {$f8} {CBM-U}y{CBM-R}.{CBM-@}3:o{CBM-R}35{CBM-@}55:u2,o:a{CBM-R}1{CBM-@}10::::(B(p1){CBM-P}8){CBM-R}.){CBM-M}d{CBM-R}t:g{CBM-R}.:190 @z a{CBM-R}.{CBM-@}3:z{CBM-E}e(a){CBM-M}B(e(a){CBM-N}w){CBM-R}n{CBM-M}i{CBM-R}w:110 ^D z{CBM-W}e(a){CBM-M}B(e(a){CBM-Q}w){CBM-R}n{CBM-M}i{CBM-R}{CBM-Q}w N z{CBM-E}e(a){CBM-M}B(e(a){CBM-N}t){CBM-R}n{CBM-M}i{CBM-R}t:130 X z{CBM-W}e(a){CBM-M}B(e(a){CBM-Q}t){CBM-R}n{CBM-M}i{CBM-R}{CBM-Q}t U B(e(a){CBM-N}i){CBM-R}n{CBM-M}e(a),n:e(a){CBM-R}e(a){CBM-N}i:e(a){CBM-N}c,t:e(a),5 {$e7} e(a){CBM-N}i{CBM-R}z{CBM-M}260 {$f5} e(a),4: hh2:z,g:z{CBM-N}d,9:u1,175:z,g{CBM-N}t: >{$fa} z{CBM-N}d,n:u1,.:s{CBM-R}s{CBM-N}10:">";s:90 Py{CBM-R}1{CBM-@}15:z,g{CBM-N}t:u1,161:e(a),4:z,g:o{CBM-R}1{CBM-@}20: {$7c}e(a),5 {CBM-P}:u1,.:y{CBM-R}1{CBM-@}15:v,y:u1,245:o{CBM-R}1{CBM-@}25:::u1,. X"sh{CBM-R}sh{CBM-Q}1:"";sh" ";:sh{CBM-R}.{CBM-M}310 ,50 {$e9}6z,n %@" b d{CBM-R}22:f{CBM-R}30720:g{CBM-R}1:h{CBM-R}32:a%(39):a{CBM-R}1{CBM-@}10:c%(a),s%(a)::a${CBM-R}"" 28,116,30,111,31,167,144,170,144,183,156,184,156,188,158,190,159,180,31,181 {CBM-V} f1{CBM-R}36875:f2{CBM-R}36877:k{CBM-R}250:l{CBM-R}2:36878,15 {$f8}2 a{CBM-R}1{CBM-@}22:a${CBM-R}a${CBM-N}G(c%({CBM-J}({CBM-F}(1){CBM-D}10){CBM-N}1)){CBM-N}G(s%({CBM-J}({CBM-F}(1){CBM-D}10){CBM-N}1)) >< a{CBM-R}7724{CBM-@}7745:649,1:ss{CBM-R}25:a%(a{CBM-Q}7724){CBM-R}0{CBM-M}170 < X a:198,0:fl{CBM-M}110 Y ""{CBM-+}7)"game over":" play again? (y/n)" {CBM-K}a$:a${CBM-R}"y"{CBM-M}{CBM-+}9)"ok": {CBM-S} a${CBM-R}"n"{CBM-M}828,0:828 {CBM-Y} 140 {$fa} {CBM-N} fl{CBM-R}1:r1{CBM-R}{CBM-F}(1):r2{CBM-R}({CBM-Q}(r1{CBM-W}.5){CBM-D}({CBM-F}(1){CBM-D}9{CBM-N}48)){CBM-N}({CBM-Q}(r1{CBM-E}{CBM-R}.5){CBM-D}({CBM-F}(1){CBM-D}26{CBM-N}1)) y{CBM-@}20 *{$f0} f2,z:36864,5{CBM-N}(q{CBM-R}1):b{CBM-Q}d,42{CBM-Q}4{CBM-D}(B(b{CBM-Q}d){CBM-R}42) m{$fa} z{CBM-R}z{CBM-Q}(q{CBM-R}0){CBM-D}2:36864,5::f2,0: game over":" play again? (y/n)" {CBM-K}a$:a${CBM-R}"y"{CBM-M}{CBM-+}9)"ok": {CBM-S} a${CBM-R}"n"{CBM-M}828,0:828 {CBM-Y} 140 {$fa} {CBM-N} fl{CBM-R}1:r1{CBM-R}{CBM-F}(1):r2{CBM-R}({CBM-Q}(r1{CBM-W}.5){CBM-D}({CBM-F}(1){CBM-D}9{CBM-N}48)){CBM-N}({CBM-Q}(r1{CBM-E}{CBM-R}.5){CBM-D}({CBM-F}(1){CBM-D}26{CBM-N}1)) # 65517:B(781){CBM-R}40{CBM-M}mt${CBM-R}"":99 / mt${CBM-R}"" vC mt$" please wait" {$60}D a{CBM-R}681 YN h$: h${CBM-R}"**" {CBM-M} 180 X i{CBM-R}1 {CBM-@} 2:j{CBM-R}F(J(h$,i,1)){CBM-Q}48 {CBM-Q} j{CBM-E}9 {CBM-M} j{CBM-R}j{CBM-Q}7 {CBM-V} i{CBM-R}1 {CBM-M} d{CBM-R}j{CBM-D}16 P i{CBM-R}2 {CBM-M} d{CBM-R}d{CBM-N}j {CBM--} : a,d {$ec}{CBM-N} a{CBM-R}a{CBM-N}1: 110 !{CBM-H} " cut pr Y,b1,fb,cd,a8,02,f0,07,a6,fd,a4,fe,4c,c1,02,a0,00,98,91,fb,c8,91 Q{$fa} fb,a5,fb,18,69,02,85,2d,a5,fc,69,00,85,2e,00,** 0 X i{CBM-R}1 {CBM-@} 2:j{CBM-R}F(J(h$,i,1)){CBM-Q}48 {CBM-Q} j{CBM-E}9 {CBM-M} j{CBM-R}j{CBM-Q}7 {CBM-V} i{CBM-R}1 {CBM-M} d{CBM-R}j{CBM-D}16 P i{CBM-R}2 {CBM-M} d{CBM-R}d{CBM-N}j {CBM--} : a,d {$ec}{CBM-N} a{CBM-R}a{CBM-N}1: 110 !{CBM-H} " cut prjune 10 screen-40 (8k)+ scr-40.boot character assassination assassination get more from your commodore (ad) gazette/vic ml for beginners - datamaker ml beg the freeze factory freeze/vic power basic - tape program rescue power basic special offer - comu2,. By{CBM-R}1902{CBM-@}1185{SHIFT-POUND}{CBM-Q}1 @LB(y){CBM-R}6{CBM-M}y{CBM-N}c,t:u2,120:td{CBM-R}1{CBM-@}25::y{CBM-N}c,3:s{CBM-R}s{CBM-N}25 VVu2,.:">";s:h{CBM-R}60::y{CBM-R}5{CBM-@}25:u2,y::u2,.:z,g z{CBM-N}c,7:ht{CBM-R}ht{CBM-Q}t:ht{CBM-W}1{CBM-M}ht{CBM-R}1 A{$ea}sh{CBM-R}sh{CBM-N}t:"";sh:lv{CBM-R}lv{CBM-N}1:"";lv {$f9}{$f4}y{CBM-R}1{CBM-@}10:b{CBM-R}1184{CBM-N}{CBM-J}({CBM-F}(t){CBM-D}700):B(b){CBM-R}n{CBM-P}b{CBM-W}{CBM-E}z{CBM-M}b{CBM-N}ce to play" &0a{CBM-R}54272{CBM-@}54296:a,0::v{CBM-R}54296:u1{CBM-R}54273 ]:u2{CBM-R}54280:54277,17:54284,17:54278,255:54285,255 Vd54276,129:54283,33 n56320,16,0:56320,16,16 {CBM-F}x"":53281,0:x{CBM-R}12544{CBM-@}12561:x,.: {$e2}Bx{CBM-R}12288{CBM-@}12383:d:x,d::53272,28 ~Lt{CBM-R}1:w{CBM-R}4a{CBM-R}1{CBM-@}15:v,a:u2,5:y{CBM-R}1{CBM-@}75:::u2,. p{CBM-POUND}n{CBM-R}32:p1{CBM-R}56320:z{CBM-R}1524:h{CBM-R}60:sh{CBM-R}3:e(.){CBM-R}1510:e(t){CBM-R}1534:e(2){CBM-R}1724 T{CBM-R}e(3){CBM-R}1204:z{CBM-N}c,7:z,.:ht{CBM-R}4:lv{CBM-R}1 {CBM-C}"@";sh:50 {CBM-I}F"@";sh {$ec}P62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238, 60,126,255 153,126,60 :u2,. p{CBM-POUND}n{CBM-R}32:p1{CBM-R}56320:z{CBM-R}1524:h{CBM-R}60:sh{CBM-R}3:e(.){CBM-R}1510:e(t){CBM-R}1534:e(2){CBM-R}1724 T{CBM-R}e(3){CBM-R}1204:z{CBM-N}c,7:z,.:ht{CBM-R}4:lv{CBM-R}1 {CBM-C}"@";sh:50 {CBM-I}F"@";sh {$ec}P62,120,119,112,28,96,88,54,62,120,127,60,112,120,48,28,124,30,238,:36879,30:" character":" assassination" {$7c}f "enter speed(0-9)":" 9 is the fastest":198,0 p {CBM-K}b$:b${CBM-W}"0"{CBM-A}b${CBM-E}"9"{CBM-M}80 {CBM-F}z s{CBM-R}28{CBM-Q}3{CBM-D}E(b$):""{CBM-+}7)"score 0" {CBM--}_ a{CBM-R}8164{CBM-@}8185:a,160:a{CBM-N}f,6: {$f1}D a{CBM-R}1{CBM-@}20:::a$; & N fl{CBM-R}0: .{CBM-H} r${CBM-R}G(r2{CBM-Q}(r2{CBM-W}30){CBM-D}64):c{CBM-R}a{CBM-N}418:b{CBM-R}a{CBM-@}c{SHIFT-POUND}d:f1,k{CBM-Q}l{CBM-D}ss x{CBM-V} ss{CBM-R}ss{CBM-Q}1:{CBM-K}a$:a${CBM-W}{CBM-E}""{CBM-M}649,0:a${CBM-R}r${CBM-M}220 PH b{CBM-Q}d,h:b,r2:b{CBM-N}f,. {CBM-POUND}R td{CBM-R}g{CBM-@}s:td:b:q{CBM-R}1:230:b{CBM-Q}d,h:a%(a{CBM-Q}7724){CBM-R}1:a:110 Z{CBM--} q{CBM-R}0:230:b{CBM-Q}d,h:sc{CBM-R}sc{CBM-N}ss:""{CBM-+}12)sc:a:110 {$fb}{$e6} f1,0:z{CBM-R}200:b{CBM-Q}d{CBM-N}f,2:t{CBM-R}1june 11 squares squares dynamic sid editor sid editor get more from your commodore (ad) gazette ml for beginners - datamaker ml beg character assassination assassin power basic - tape program rescue power basic the freeze factory freeze factory specialogram off at":" line number";: ln <{CBM-V} h{CBM-R}{CBM-J}(ln{CBM-Z}256):l{CBM-R}ln{CBM-Q}h{CBM-D}256 pH 679,l: 680,h zR 681 {CBM-G}{CBM--} a9,00,aa,a8,20,bd,ff,e8,8a,20,ba,ff,98,a6,2b,a4,2c,20,d5,ff,a6,2b,a4 {$f0}{$e6} 2c,86,fb,84,fc,a0,00,b1,fb,85,fd,c8,b1,fb,85,fe,c8,b1,fb,cd,a7,02,d0 ;{$f0} 08,c8 offer - compute! mag. (ad) compute! relative files relative compute! books for the 64 (ad) 64 books mlx mlx automatic proofreader proofreader n power basic vicontents 64 contents pute! mag. (ad) compute!/vic relative files relative mlx mlx/vic automatic proofreader proofreader compute! books for the vic-20 (ad) vic books power basic vicontents 64 contents ,3:b,6 %{$fe}:u2,72:s{CBM-R}s{CBM-N}(h{CBM-D}10):">";s:u2,.:50 H53281,1:53272,21:"the freeze factory!!" ""{CBM-+}17{CBM-Q}C(D(s)){CBM-Z}2)"score: "s:s{CBM-E}hs{CBM-M}hs{CBM-R}s Cs{CBM-R}0:""{CBM-+}15{CBM-Q}C(D(hs)){CBM-Z}2)"high score:"hs {$fb}&53280,4:"press fir0:"> 0":v,15 ?V"level 1":"time 60":c{CBM-R}54272 Ya{CBM-R}t{CBM-@}70:u2,20:b{CBM-R}1184{CBM-N}{CBM-J}({CBM-F}(t){CBM-D}700):b{CBM-N}c,3:b,6:u2,.: {CBM-S}a{CBM-R}1144{CBM-@}1183:a,7:a{CBM-N}c,4::a{CBM-R}1184{CBM-@}1904{SHIFT-POUND}w:a{CBM-N}c,4 {$e6}a,7:a{CBM-N}39,7:a{CBM-N}39{CBM-N}c,4::a{CBM-R}1905{CBM-@}1943:a{CBM-N}c,4:a,7: 14 {$f9}Z56,6,26 a{$e4}108,124,30,254,60,14,30,12,56,60,90,36,24,60,90,36,102,60,90,36,90 s{$ee}60,24,36,195 {$f8}126,195,153,165,165,153,195,126,204,51,204,51,204,51,204,51,0,34,0 {CBM-Q}136,0,34,0 {$f2}136,68,0,17,0,68,0,17,0,0,24,60,126,219,219,126,60,0,0, Xle a0CBM ~D{CBM-Z}{CBM-V}{CBM-@}~{CBM-I} , ~{SHIFT-POUND}(X ~ {CBM-V} {CBM-O} {SHIFT-POUND} {$ef} {$f9}{$fd}xl! {$fd} [{$e4} {CBM-@}{$e3}{CBM-G}+{CBM-@}, D{SHIFT-POUND}X K{SHIFT-POUND}7 {$e4}l{$e3}hhh{CBM-Z}%-{CBM-N})Pl{$de}{$fe}, {$ea}~ {$e1}~P $ L{SHIFT-*}{SHIFT-POUND}W{SHIFT-POUND}FH{CBM-POUND}H{CBM-N}H@{$ea}{$ea} {$ea}~ !l{$ef}{$ea}{CBM-G}I{$f0}l{$f5}{$f1}{CBM-G}Pl{CBM-+}$IPl$l*{$f2}h{CBM-G}IP {CBM-Z}{$f0}I{$f7}HlW#l~{$ea}{$ea}{$ea}screen-40 {SHIFT-POUND} G{$f0} {CBM-@}S{$f0} {SHIFT-*}'PFVS{$60}{CBM-+}V{$f0}FV !{CBM-@}US{$60} "{CBM-@}SDU{CBM-A}+H{CBM-E}Q [#HP{$f2}{CBM-@}U{CBM-E}QI PDSP{SHIFT-*}o{$f0}{CBM--} u"{CBM-@}U{CBM-E}QH [#DSP{$f4}{SHIFT-POUND} l[#{CBM-+}V{$e8}{$f2} {CBM-X}"FVP{CBM-Z}PYvYZ8VZ{SHIFT-POUND}oUJl!{CBM-G}{CBM-D}h{CBM-G}{CBM-Z}h{CBM-I}J !{$e4}{$f2}{$f0}{CBM-X}&{CBM-D}{CBM-J}X #0{$ea} 2#{CBM-I}{$e4}{$f2}{CBM-J}Z){$7f}{CBM-H}YZJP{$ed}{CBM-+}{$f2} J"H{CBM-Z}H{CBM-D}{$60}{CBM-G}{CBM-D}h{CBM-G}{CBM-Z}h{CBM-I}{$f4}{CBM-I}{CBM-Z} {$f3}{CBM-D}{CBM-E}{CBM-D}{$f3}HP{$f9}{$e6}{$f4}{$e8} P{$ea}{CBM-I}~{$e8} {$f0} !Y{CBM-H}{$e1}8VY{CBM-X}&{CBM-D}I~P{SHIFT-POUND}{$fe}I &){$7f}@{CBM-+}G{$f0}{CBM-@}S [#DUP{SHIFT-*}o{$f0} u" N!H{CBM-POUND}H{CBM-N}{CBM-G}Wx{$60}{CBM-I}{SHIFT--}8&{$f0}J{$f8}{CBM-I}{SHIFT--}(&{$f0}J{$f8}0{$e1}{CBM-G}TP G${$f0}W {CBM-G}T{$f0}{CBM-G}W{CBM-L}@P{CBM-S} ^$l${CBM-X}H&h{CBM-X}p&h{$60}{CBM-I} {$e8}P{$fa}{$60}I"PeTT{SHIFT-POUND}"{$60}{SHIFT-POUND} G{$60}{CBM-Z}i,{SHIFT-POUND} ,{SHIFT-POUND}{$60}{CBM-I} {$f2} {$7b}"Y8FYlX!P{CBM-G}UHP{CBM-G}VI{CBM-G}SJhh{CBM-G}PPD{CBM-G}FL{$f0}{$f7}X{$ea}n{CBM-@}S{CBM-E}Q ]# {$e4}~IPX{CBM-I}F{CBM-X}/&VJP{$f7}{$f0}TI {$f0} W#K{CBM-@}UP{CBM-E}QI P @h{SHIFT-*}H (pX H{$f0}@H{CBM-U} 0x{CBM-POUND}P{$f8} hPload run ~~~~~~{$f9}{CBM-*}.WA{CBM-Y}M~{$7c}Z{$7f}{CBM-N}~~~~~~!!""!%!!!!$$$$$$%%~~~~~~@ @ dDddd@d j{CBM-N} @ @{CBM-N}.j.{CBM-N}@ ${CBM-+}{CBM-POUND}{$ee}",$ B$${CBM-POUND}j dD{CBM-POUND}{CBM-N}d {$e4}$ @@@@ b{CBM-@}{CBM-@}d{CBM-@}{CBM-@}b d{CBM-I}{CBM-I}B"{CBM-I}d dnj@ dn@{SHIFT-*} @@$ C@ 'g{$f3}c! L (pX H{$f0}@H{CBM-U} 0x{CBM-POUND}P{$f8} hPload run ~~~~~~{$f9}{CBM-*}.WA{CBM-Y}M~{$7c}Z{$7f}{CBM-N}~~~~~~!!""!%!!!!$$$$$$%%~~~~~~@ @ dDddd@d j{CBM-N} @ @{CBM-N}.j.{CBM-N}@ ${CBM-+}{CBM-POUND}{$ee}",$ B$${CBM-POUND}j dD{CBM-POUND}{CBM-N}d {$e4}$ @@@@ b{CBM-@}{CBM-@}d{CBM-@}{CBM-@}b d{CBM-I}{CBM-I}B"{CBM-I}d dnj@ dn@{SHIFT-*} @@$ "D " the menu programs" >E " will not function" vF " properly with" LG " screen-40." H " please reset your" {CBM-I}I " computer before" {CBM-B}J " you reload and run" RK " the menu." {$f2}a{CBM-R}0 {CBM-M} a{CBM-R}1:"screen-40",8,1 ,a${CBM-R}"sy evaluation ***** Pdv{CBM-R}1:kk{CBM-R}p{CBM-M}dv{CBM-R}2 Zkk{CBM-R}q{CBM-M}dv{CBM-R}12 ?{CBM-*} dv:1=voice freq, 2=pls wdth _ 12=filter freq, clear old Y{$e1} vars used for speed {$e2} zz=max val, h=sid reg {CBM-L}{$e4}53020:xx{CBM-R}256:aa{CBM-R}0:bb{CBM-R}1:cc{CBM-R}2 P{$ee}k{CBM-R}29:h{CBM-R}0:zz{CBM-R}65535:j{CBM-R}7 {$e6}{$f8}dv{CBM-R}2{CBM-M}zz{CBM-R}4095:h{CBM-R}2 ***** 8-bit evaluation ***** ,{CBM-U}dv{CBM-R}4:h{CBM-R}el{CBM-D}7{CBM-N}5:j{CBM-R}240:k{CBM-R}16: atck k{CBM-X} decay, sustain, release? CBkk{CBM-R}d{CBM-M}dv{CBM-R}5:j{CBM-R}15:k{CBM-R}1 {$7b}Lkk{CBM-R}s{CBM-M}dv{CBM-R}6:h{CBM-R}el{CBM-D}7{CBM-N}6 Vkk{CBM-R}r{CBM-M}dv{CBM-R}7:h{CBM-R}el{CBM-D}7{CBM-N}6:j{CBM-R}15:k{CBM-R}1 {CBM-Y}{SHIFT-+} resonance or volume? L kk{CBM-R}n{CBM-M}dv{CBM-R}13:h{CBM-R}23 {$ea}{$ea}kk{CBM-R}v{CBM-M}dv{CBM-R}14:h{CBM-R}24:{CBM-H}kk{CBM-R}g{CBM-M}dv{CBM-R}8:j{CBM-R}1: gate {CBM-V}kk{CBM-R}i{CBM-M}dv{CBM-R}9:j{CBM-R}4: ring -Hkk{CBM-R}y{CBM-M}dv{CBM-R}10:j{CBM-R}2: sync aRk{CBM-R}j:j{CBM-R}240{CBM-M}k{CBM-R}16 DW go get value from sid buffer {$7d}X branch if waveform {CBM--}700:dv{CBM-R}3{CBM-M}4110 {CBM-@}{$e2} toggle value {CBM-B}{$e6}z{CBM-R}{CBM-Q}(z{CBM-R}0):cl{CBM-R}el{CBM-D}5:ct{CBM-R}dv Z{$f0}z{CBM-R}1{CBM-M}"";: highlight {$f5}{$fa}rn ***** filt/mode calculation ***** dv{CBM-R}{CBM-Q}1:53020: clear old :dv{CBM-R}15:ct{CBM-R}dv:cl{CBM-R}0: mode s filter assignment? Nkk{CBM-R}n1{CBM-M}dv{CBM-R}16:h{CBM-R}1:5500 {CBM-+}kk{CBM-R}n2{CBM-M}dv{CBM-R}17:h{CBM-R}2:5500 {CBM-@}{CBM-A}kk{CBM-R}n3{CBM-M}dv{CBM-R}18:h{CBM-R}4:5500 {CBM-V}{SHIFT-@}kk{CBM-R}x{CBM-M}dv{CBM-R}19:h{CBM-R}8:5500 K{CBM-B} 3 off? {$e1}Dkk{CBM-R}t{CBM-M}dv{CBM-R}2 {CBM-G}LPFMP{CBM-@}S{CBM-E}Qn{CBM-A}{$ee}{SHIFT-POUND} ]#{SHIFT-POUND} M{$60}{CBM-I}M{CBM-X}P%4{CBM-X}X%J{$f1}{$f0}J P{$f7}{CBM-X}{SHIFT-*}% J{$f7}{CBM-I} {$60}%{CBM-Z}{CBM-POUND}{SHIFT-POUND} {CBM-N}YI(H{$e8} P{$f3}{SHIFT-POUND}~YJ 2#J{$fa}{SHIFT-POUND} SV{CBM-G}S8{$e9}(S{CBM-+}V{CBM-G}S{CBM-H}Y0I(SJ{SHIFT-POUND}'{CBM-H}Z0{SHIFT-POUND}oU{CBM-J}Y) R{CBM-X}&Q{CBM-X}{$f8}%{$f4}{CBM-X} %{$f3}{$60}{CBM-I}FV{SHIFT-*}V0{CBM-C}{$e6}V{CBM-I}{$e4}V{CBM-A}{CBM-H}{SHIFT-POUND} {$f0}{CBM-S}{CBM-@}S{$e6}S{SHIFT-*}'{$e1}P{$e6}VDUYFV STfI{CBM-+}V{$e8} P {CBM-X}"{CBM-J}Y{$f4}V0{$e1} #0{CBM-*} 2#{$e8} P{$f8}{CBM-G}I{$e9}IY8FY{CBM-I}V) {CBM-Z} '{CBM-E}{CBM-D}Q ]#8{$f3}{$60} ! '{SHIFT-POUND} Q{$fb}{SHIFT-POUND}X{SHIFT-POUND} {$f3}{$fb}{SHIFT-POUND}E{$f3}{$f3}{$e6}{$f4}FXP{$e8}{$60}QNhh{CBM-G}Q{CBM-I}~{$e8}{SHIFT--}&P{$fa}{$e9}(0{$e8}{CBM-POUND} {CBM-Z}!)>***{$e6}{$f4}E{$f3}{$e6}{$f4}{$f3}){CBM-POUND}{CBM-O}H%X{SHIFT-POUND} N&GN*N* {CBM-N}{CBM-X}4O$X {CBM-E}{$f3}X{$f1}{CBM-E}N)p e{$f1}{CBM-+}GPeX{$f3}{$e3}{$f1}fGH{CBM-POUND}H{CBM-N}{SHIFT-POUND}M{$60}Whh{SHIFT-POUND} P{CBM-G}W0I ? P$I{$60}){CBM-*})?P{$f7}HH ST{CBM-+}V{CBM-J}Y0J !{$e4}IP{CBM-G}JSEH{CBM-A}#{CBM-@}S{CBM-E}QW)?W$W{CBM-+}TPP@{$e6}S P$DHP{SHIFT-POUND} P{CBM-I}{$e4}{$f0}{$e4}{$f0} {$fa}!{SHIFT-POUND} WH{CBM-POUND}H{CBM-N}{CBM-G}WI{$de}P{SHIFT-POUND}~{$60}{CBM-O}& jjjj{SHIFT-POUND} {CBM-O} ' jjjj {SHIFT-*}X H0{$e4}PU{$60}{CBM-S} {$f0}lw!{CBM-I} {CBM-Z}! >#J{$f7}{$60}NhhlT#{CBM-I} ! '{CBM-E}Q {CBM-I}%{$f8}J{$f0}l{$7e}! L {$f0} ' {CBM--}{$eb} @h{SHIFT-*}H @h{SHIFT-*}H @ @ @{CBM-I}"ddh L{CBM-N}{CBM-N}{$ee}{$ee}{$ee} j.J{CBM-N}J J{CBM-D}{CBM-N}{CBM-N}L h{CBM-POUND}{CBM-N}d ,*J{CBM-N}{CBM-N}{CBM-N}L h{CBM-D}{$e8}n n{CBM-POUND}L h{CBM-POUND}{CBM-S}J${SHIFT-*}J{CBM-S}{CBM-N}{CBM-N}{CBM-N} nDddd{$ee} "B""*{CBM-@}@{CBM-N}{CBM-D}J{CBM-N}{CBM-N} Hhhhhh{$ee} {CBM-S}{$ee}{$ea}{$ea}{CBM-N} J{CBM-N}{CBM-N}{CBM-N}{CBM-N} j{CBM-N}{CBM-N}{CBM-N}d J{CBM-D}{CBM-POUND}H J{CBM-N}{CBM-N}L& J Hb*D d{$e4}ddd$ {CBM-N}{CBM-N}{CBM-N}{CBM-N}d {CBM-N}{CBM-N}{CBM-N}dd {CBM-N}{CBM-N}{$ee}{$ee}{CBM-N} {CBM-N}{CBM-@}j{CBM-N}{CBM-N} {CBM-N}{CBM-S}{CBM-@}D${SHIFT-*}{$e4}$d{$ee} JjeejjEh{CBM-@}dD{CBM-POUND}L,##,,2:5200 {$e7}N {$fc}S mode increment Xxx{CBM-R}24:j{CBM-R}112:k{CBM-R}16:700 5{SHIFT--} incr 0->1,1->2,2->4,4->0 y{$de} program modification possible {$7b}{CBM-*} to allow more than one mode at the same time {CBM-Q}{$e2}z{CBM-R}(z{CBM-D}2{CBM-Q}(z{CBM-R}0)){CBM-D}{CBM-Q}(z{CBM-W}4) B{$ec}930: move cursor Z{$f6}a${CBM-R}" -":z{CBM-R}1{CBM-M}a${CBM-R}" ds8192"{CBM-N}G(13):198,C(a$) 86i{CBM-R}1{CBM-@}C(a$):630{CBM-N}i,F(J(a$,i)): >@{CBM-I} ml beg assassin assassination power basic vicontents 64 contents dv{CBM-R}12{CBM-M}zz{CBM-R}2047:h{CBM-R}21:j{CBM-R}0 # pre-calculate buffer & sid 6 entry points vyy{CBM-R}sid{CBM-N}el{CBM-D}j{CBM-N}h:h{CBM-R}sbuf{CBM-N}el{CBM-D}j{CBM-N}h R calc & display values once a non-valid key is found {CBM-O} in subroutine, exit with key L value intact 200:1110: j{CBM-R}15:k{CBM-R}1 {$ef} clear, calc & display values /{$f0} when non-valid key pressed, n{$f1} return with value intact {$f4}53020:400:1110: ***** ctrl byte calculation ***** {CBM-@} dv{CBM-R}{CBM-Q}1:53020: clear {SHIFT-@}{CBM-G} set mask values {$de}{CBM-N}xx{CBM-R}4{CBM-N}el{CBM-D}7:dv{CBM-R}3:j{CBM-R}240: waveform {$f8}53070:4190: display {$fb} inc 0->1,1->2,2->4,4->8,8->0 7z{CBM-R}(z{CBM-D}2{CBM-Q}(z{CBM-R}0)){CBM-D}{CBM-Q}(z{CBM-W}8) xct{CBM-R}dv:cl{CBM-R}el{CBM-D}5:930: mve crs O display waveform "a${CBM-R}"-":z{CBM-R}1{CBM-M}a${CBM-R}"t ,z{CBM-R}2{CBM-M}a${CBM-R}"s {CBM-T}6z{CBM-R}4{CBM-M}a${CBM-R}"p {CBM-R}@z{CBM-R}8{CBM-M}a${CBM-R}"n {SHIFT-@}ja$ {SHIFT-*}t ^800:1100: store & rt C:yy:xx,yy #C: ***** variable assignment ***** 6#{CBM-H}Ckey{CBM-R}203:shft{CBM-R}653:null{CBM-R}64 u#{CBM-O}C peek(key)=val of current U#{SHIFT-@}C key down, peek(shft)>0 if #{CBM-F}C shift,c=,or ctrl pressed {CBM-L}#{CBM-C}C peek(key)=null means no key {CBM--}#{CBM-V}Cup{CBM-R}7:fa{CBM-R}2:lo{CBM-R}values {$ee}$RCcl{CBM-R}0:aa{CBM-R}0:bb{CBM-R}0:cc{CBM-R}0:sid{CBM-R}54272 %WC op=move interrupt,cs=restore /%{CBM--}Csbuf{CBM-R}move{CBM-N}8:op{CBM-R}712:cs{CBM-R}725 l%{$e1}C highlighted key values D%{$e6}Cf1{CBM-R}4:f3{CBM-R}5:f5{CBM-R}6:f7{CBM-R}3 %{$f0}Cf{CBM-R}21:p{CBM-R}41:w{CBM-R}9:a{CBM-R}10:d{CBM-R}18:s{CBM-R}13:r{CBM-R}17 {CBM-D}%{$fa}Cg{CBM-R}26:i{CBM-R}33:y{CBM-R}25:q{CBM-R}62:n{CBM-R}39:m{CBM-R}36 F%Dv{CBM-R}31:n1{CBM-R}56:n2{CBM-R}59:n3,wy%(xx) &jD:vx%(xx),vy%(xx) {$ef}&tD:wrd$(xx) ,'^D: ***** display screen ***** \'{$7c}D" sid editor - press a highlighted key 'D"crsr:[u/d]=slow,[l/r]=med, [return]=fast {CBM-M}'Dxx{CBM-R}0{CBM-@}10{SHIFT-POUND}5: voices 1-3 {CBM-V}'D: 0=f1,5=f3,10=f5 W C({$ea}D {CBM-*}({$ef}D filter & volume stuff {$f3}({$f4}Dct{CBM-R}11:cl{CBM-R}0:900 ){$fe}Dwrd$(11) )Exx{CBM-R}12{CBM-@}22:xx{CBM-W}{CBM-E}16{CBM-M}50460 6) E: additional prompt x)E:" assign filter R)E: a$=default display )E:a${CBM-R}"":xx{CBM-W}15{CBM-M}a${CBM-R}" 0 {CBM-N})&E:xx{CBM-R}15{CBM-A}xx{CBM-R}20{CBM-A}xx{CBM-R}21{CBM-M}a${CBM-R}" - H)0E:ct{CBM-R}xx:900:G ***** clear sid & buffer ***** +8Gxx{CBM-R}sid{CBM-@}sid{CBM-N}28 +lG: xx,0 0+vG: sbuf{CBM-N}xx{CBM-Q}sid,0 6+{$60}G L+JG: ***** error buzz **** + Ksid{CBM-N}23,0: no filter +*Ksid{CBM-N}24,15: full vol {CBM-U}+4Ksid{CBM-N}1,10: voice 1lp {$ea} z{CBM-R}2{CBM-M}a${CBM-R}"bp {$fa} z{CBM-R}4{CBM-M}a${CBM-R}"hp a$:5550: display )# turn 3 off hpct{CBM-R}dv:xx{CBM-R}24:j{CBM-R}128:k{CBM-R}1:700 \u mask & toggle {$7c}zzz{CBM-R}128{CBM-D}{CBM-Q}((z{CBM-P}j){CBM-R}0):h{CBM-R}1:5520 D I assign filter {CBM-H}{$7c}ct{CBM-R}dv:xx{CBM-R}23:j{CBM-R}15:k{CBM-R}1:700 Xzz{CBM-R}h{CBM-D}{CBM-Q}((z{CBM-P}h){CBM-R}0): mask & toggitch {$fb} either 255 (off),0 (voice 1, low),1 (voice 1, high), or 22 > (filter frequency, high) _j{CBM-R}{CBM-Q}(j{CBM-R}0){CBM-Q}22{CBM-D}(j{CBM-R}1){CBM-Q}255{CBM-D}(j{CBM-R}22) {$7b}{CBM-I}h,j:930: save & move {CBM-M} calculate display {CBM-S}{CBM-D}j{CBM-R}1{CBM-Q}(j{CBM-E}0){CBM-Q}(j{CBM-E}1){CBM-Q}(j{CBM-E}22) G{CBM-L}J("lhf-",j,1):1100 t 0 {$ea}Q f5(f6)=on then off R z=read value, set to 1 & S will cause a toggle to 0 a T h serves to adjust z o Vh{CBM-R}1:7100 w h{CBM-R}2 X {CBM-Y} voice gates at sid+4,11,18 {CBM-C}xx{CBM-R}4{CBM-@}18{SHIFT-POUND}7 {CBM-G} A: if f3, set to turn off {SHIFT-@} F:700:kk{CBM-R}f3{CBM-M}z{CBM-R}1 O K: adjust for f B(sbuf{CBM-N}xx) " :: ** initialize ** &"kC * put in system routines * d"lC * cursor plot routine * _"pCmove{CBM-R}679:cx{CBM-R}251:cy{CBM-R}252 S"zCxx{CBM-R}move{CBM-@}move{CBM-N}7 "DC:yy:xx,yy {CBM-Y}"NC: interrupt routine G"XCxx{CBM-R}712{CBM-@}760 W" ,{CBM-I}Ksid{CBM-N}4,B(sbuf{CBM-N}4) -{CBM-D}K: ***** highlight current entry ***** /-O line 53000 clears old voice o-O line 53010 highlights new Q-O line 53020 clears old entry -O line 53040 highlights new -O {CBM-O}-Oct{CBM-R}0:cl{CBM-R}5{CBM-D}oel{CBM-D}{CBM-Q}(ct{CBM-W}11):1:xx{CBM-R}0:yy{CBM-R}0:zz{CBM-R}0:z{CBM-R}0 {$f9}#CC up=cursor up/down=slow $DC fa=crsr lft/rght=moderate .$EC lo=return=fast l$FC no shift=down, shift=up P$HCkk{CBM-R}0:hh{CBM-R}0:h{CBM-R}0:j{CBM-R}0:k{CBM-R}0:dv{CBM-R}0:ct{CBM-R}0 $MC kk holds current key value {CBM-N}$NC hh>0 if shift down L$OC dv,ct,cl are display {CBM-R}8 {$de}%D en,os used in i/o &Dx{CBM-R}23:o{CBM-R}38:e{CBM-R}14:t{CBM-R}22:en{CBM-R}254:os{CBM-R}253 f&D ***** read screen data ***** F&Dwx%(22),wy%(22): word x,y &"Dvx%(22),vy%(22): value x,y {CBM-M}&,Dwrd$(22): display strings {CBM-H}&6Dxx{CBM-R}0{CBM-@}22 J&@D:wx%(xx)'D:a${CBM-R}I(D(2{CBM-D}xx{CBM-Z}5{CBM-N}1),1) {$ea}'D: move cursor ({CBM-@}D:ct{CBM-R}0:cl{CBM-R}xx:ofs{CBM-R}{CBM-Q}3:900 ({SHIFT-POUND}D: print "voice" 9({CBM-S}D:"f"a$" "wrd$(0)xx{CBM-Z}5{CBM-N}1 z({CBM-W}D: z determines display type Z({CBM-U}D:yy{CBM-R}1{CBM-@}10:z{CBM-R}1{CBM-Q}(yy{CBM-W}8){CBM-Q}(yy{CBM-R}3) (BD: ct{CBM-R}yy:ofs{CBM-R}0:900 {CBM-A}(LD: wrd$(yy)" "J(" 0-",z,1) {CBM-Y}(VD: {CBM-X}( D move cursor Y):E:wrd$(xx)a$ {$e1})dE: *nE" f2=toggle f4=all off f6=on/off f8=quit"; 6*sE display values default s*xEel{CBM-R}0:oel{CBM-R}el:dv{CBM-R}{CBM-Q}1:odv{CBM-R}dv *{CBM-+}E ***** insert i/o into interrupt ***** {CBM-L}*{CBM-POUND}Een,255:os,255:op {$fa}*4 N+>Ksid{CBM-N}5,0: no a/d {$e8}+hKsid{CBM-N}6,240: full sus ,rKsid{CBM-N}4,0: gate off ,\Ksid{CBM-N}4,33: saw on .,FKxx{CBM-R}1{CBM-@}80:: delay g,KK restore old values ^,PKsid{CBM-N}23,B(sbuf{CBM-N}23) U,ZKsid{CBM-N}24,B(sbuf{CBM-N}24) ,Ksid{CBM-N}1,B(sbuf{CBM-N}1) ,Ksid{CBM-N}5,B(sbuf{CBM-N}5) {CBM-H},Ksid{CBM-N}6,B(sbuf{CBM-N}6) Ile {$e8}zz{CBM-E}0{CBM-M}""; {$fd}53090: display {CBM-@}z{CBM-R}z{CBM-P}j{CBM-Q}h{CBM-A}zz b{CBM-S}800:1100: store & rtrn ***** i/o insert ***** [Pdv{CBM-R}{CBM-Q}1:53020: clear PU default to osc Zh{CBM-R}os:ct{CBM-R}20:cl{CBM-R}0:kk{CBM-R}o{CBM-M}6030 {$7f} envelope {CBM-Z}h{CBM-R}en:ct{CBM-R}21 Ej{CBM-R}B(h): read value X value sw ***** function keys ***** xdv{CBM-R}{CBM-Q}1:53020: clear @] cannot arrive here unless {$60}^ shift key was pressed, so X_ f1=f2,f3=f4,f5=f6 Bh{CBM-R}0:ct{CBM-R}8:j{CBM-R}1:k{CBM-R}1: default {CBM-F}G f1(f2)=toggle, f3(f4)=all off QLkk{CBM-R}f1{CBM-A}kk{CBM-R}f3{CBM-M}7105 {CBM-*} P:h{CBM-E}0{CBM-M}z{CBM-R}h{CBM-Q}1 {$fc} U: calculate display row !Z:cl{CBM-R}{CBM-Q}5{CBM-D}(xx{CBM-R}11){CBM-Q}10{CBM-D}(xx{CBM-R}18) 3!{CBM-*}: display as on/off n!{$e4}:(z{CBM-W}{CBM-E}1){CBM-N}253060,53070 H!{$ee}:z{CBM-R}{CBM-Q}(z{CBM-R}0):yy{CBM-R}yy{CBM-P}254{CBM-A}z {$7e}!{$f3}: save in buffer !{$f8}:sbuf{CBM-N}xx,yy ! {CBM-P}! move to sid quickly {CBM-V}!xx{CBM-R}4{CBM-@}18{SHIFT-POUND}7 V!:sid{CBM-N}xx, 53070 M- O cl=row offset {$e9}-Ocl{CBM-R}5{CBM-D}el{CBM-D}{CBM-Q}(dv{CBM-W}11):53060 .Oct{CBM-R}odv:cl{CBM-R}5{CBM-D}oel{CBM-D}{CBM-Q}(ct{CBM-W}11) .&O53070 #.0Ooel{CBM-R}el:odv{CBM-R}dv @.:Oct{CBM-R}odv:cl{CBM-R}5{CBM-D}oel{CBM-D}{CBM-Q}(ct{CBM-W}11) j.dO""; K.iO no change for these values .jO gate, ring, etc .nOct{CBM-W}0{CBM-A}ct{CBM-E}14{CBM-M}53110 {CBM-Z}.xOct{CBM-R}3{CBM-A}ct{CBM-R}11{CBM-M}53110 {CBM-X}.BO49,141,20,3,169,234,141 {$e4}/{$e2}{$ea}21,3,88,96,166,253,48,6 0{$ec}{$ea}173,27,212,157,0,212,166 0{$f6}{$ea}254,48,6,173,28,212,157 40 {$eb}0,212,76,49,234 :0{$f6} @0{$f6} z0{$f6} screen display data {$60}0{$f6} 0{$f6} word start x, word start y, {CBM-+}0{$f6} value start x, value start y, {CBM-E}0{$f6} w,18,"ring N1{$7c}{$f6}6,23,6,23,"sync {$e8}1{$f6}19,1,19,1,filter/out 2{$f6}19,13,19,23,"frequency: &2{$f6}20,13,20,23,"resonance: b2{CBM-@}{$f6}19,30,19,37,"volume: \2{CBM-S}{$f6}20,32,20,37,"mode: R2{CBM-U}{$f6}21,27,21,27,"1 2B{$f6}21,29,2,29,"2 2L{$f6}21,31,21,31,"3 {CBM-J}2V{$f6}21,33,2kkkkkkk900: plot L.LO wrd$(ct) /VO"";:: ***** program data ***** /^{$ea} cursor move routine !/_{$ea} d/{$60}{$ea}24,166,251,164,252,76,240,255 j/{SHIFT-*}{$ea} p/A{$ea} H/B{$ea} interrupt routine N/C{$ea} /D{$ea}120,169,226,141,20,3,169 {CBM-N}/N{$ea}2,141,21,3,88,96,120,169 G/X{$ea}ord {CBM-Y}0{$f6} J0{$f6}3,4,3,4,voice {$e7}0"{$f6}3,13,3,23,"frequency: 1,{$f6}4,13,4,23,"pls width: 16{$f6}5,14,5,24,"waveform: :1@{$f6}3,30,3,37,"attack: s1j{$f6}4,31,4,37,"decay: N1t{$f6}5,29,5,37,"sustain: 1^{$f6}6,29,6,37,"release: 1H{$f6}6,13,6,13,"gate {CBM-Y}1R{$f6}6,18,6 1,33,"ext N2 {$f6}22,13,22,18,"osc3 {$e7}2{$ea}{$f6}22,21,22,26,"env3 3{$f4}{$f6}22,29,22,29,"turnoff 3 a3{$fe}{$f6} *** end of program *** 7,"decay: N1t{$f6}5,29,5,37,"sustain: 1^{$f6}6,29,6,37,"release: 1H{$f6}6,13,6,13,"gate {CBM-Y}1R{$f6}6,18,6kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk