C64 Fever 92 #2/C64_Fever_92-02_1992_-_de.d64

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

Cbm



disclader64/128

{CBM-I} l{CBM-G}{CBM-P}run"disclader64/128

 {CBM-I}l{CBM-R}{CBM-D}{CBM-D}{CBM-R}bb{CBM-R}l{CBM-R}TTTTTTl{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-R}l{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}0Tl{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-R}{CBM-R}{CBM-I}l{CBM-I}{CBM-I}{CBM-R}T{CBM-R}{CBM-I}{CBM-I}l{CBM-I}{CBM-I}{CBM-I}{CBM-R}TTTl{CBM-R}bbT{CBM-D}{CBM-D}{CBM-R}lP{$7c}{$7c}{$7c}{$7c}{$7c}Pl@^{$7c}0{$7c}.{CBM-A}lP@@@@@PlltP2tttttttt2PtlllllllllTTTTlTTl{CBM-I}{CBM-I}{CBM-I}lllll**{CBM-W}*{CBM-W}**ltR,Pj0tl.*@t{$7c}*
lP*PT+*SlTTTlllll@t{$7c}{$7c}{$7c}t@l{$7c}t@@@t{$7c}ll*P{CBM-W}P*lllTT{CBM-R}TTlllllllTT<lll2lllllllllTTlloj@t{$7c},l{CBM-R}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-R}l0ppppppl{CBM-R}bbTetron
K{CBM-F}stchenspiel

Tetron klingt zwar irgendwie futuristisch. Dennoch handelt es sich um ein altbekanntes Spiel, das gerne bei Unterrichtsausfall in der Schule gespielt wird, denn Rechenpapier und Bleistift hat jeder dabei.
Bei dem Programm Tetron hanielfeldgr{CBM-C}{CBM-V}e Feuer. Dr{CBM-X}ckt man auf der rechten Bildschirmh{CBM-F}lfte Feuer, kann ein bereits begonnenes Spiel fortgesetzt werden.
Das Spielfeld ist in einzelne Felder aufgeteilt. Zwei Spieler spielen gegeneinander. Ziel des Spieles ist es, alle Felder des Spielfeldes zu besetzen; gewonnen hat, wer die meisten Felder mit seiner Farbe gef{CBM-X}llt hat. Gelb spielt gegen Blau, Gelb beginnt. Beide Spieler ziehen abwechselnd, indem sie einen Strich zwischen zwei Felder setzen. Ein Feld wird von einem Spieler dann beserden, wenn man den Cursor auf sie bewegt.
Mit "Neustart" wird ein Spiel gestartet. Nach dem Anw{CBM-F}hlen dieses Men{CBM-X}punktes mu{CBM-V} die Spielfeldgr{CBM-C}{CBM-V}e festgelegt werden. Dazu bewegt man den Cursor auf der linken Bildschirmh{CBM-F}lfte und dr{CBM-X}ckt bei der gew{CBM-X}nschten Sptzt, wenn er es durch seinen Zug einschlie{CBM-V}t, das hei{CBM-V}t, wenn ein Quadrat um das Feld gebildet wird. Hat man ein Feld eingenommen, mu{CBM-V} man noch einmal ziehen.
Der Men{CBM-X}punkt "Computerzug" erlaubt es, den Computer einen Zug ausf{CBM-X}hren zu lassen. Mit "Zur{CBM-X}ck
{CBM-R}{CBM-D}{CBM-D}{CBM-R}l{CBM-R}bb{CBM-R}bb{CBM-R}lpP0{CBM-A}{CBM-R}ppl{CBM-R}{CBM-D}{CBM-D}{CBM-R}bb{CBM-R}l{CBM-R}{CBM-D}{CBM-D}{CBM-R}{CBM-I}{CBM-I}{CBM-R}l{CBM-R}bbpTTTl{CBM-R}{CBM-I}{CBM-I}{CBM-R}{CBM-I}{CBM-I}{CBM-R}l{CBM-R}{CBM-I}{CBM-I}{CBM-R}bb{CBM-R}lllTTlTTlllTTlTT<bt{$7c},{$7c}tblll2l2lll<t@j@t<l{CBM-R}j{CBM-R}{CBM-R}lTllll{CBM-W}{CBM-W}llldpR33pRlttttttttlll{CBM-W}{CBM-W}lllll{CBM-W}{CBM-W}lllll{CBM-W}{CBM-W}lllllllll{CBM-W}{CBM-W}ll{$7c}{$7c}{$7c}{$7c}{$7c}{$7c}{$7c}{$7c}@@@@@@@@lll{CBM-D}{CBM-C}TttttpcklllttT{CBM-C}{CBM-D}lll{CBM-W}{CBM-W}{CBM-D}<TpbkookbpT<{CBM-D}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-W}" wird um einen Zug zur{CBM-X}ckgeschaltet. Im Men{CBM-X}punkt "n Spieler" wird ausgew{CBM-F}hlt, ob man zu zweit oder alleine spielen m{CBM-C}chte. Im letzteren Fall {CBM-X}bernimmt der Computer eine Spielfarbe. Mit "Info" kann eine Zwischenbilanz des Spieles gezogen werden, mit "En
kde" wird ein Reset ausgef{CBM-X}hrt. Dazu ist Feuer einige Sekunden zu halten.
um das Feld gebildet wird. Hat man ein Feld eingenommen, mu{CBM-V} man noch einmal ziehen.
Der Men{CBM-X}punkt "Computerzug" erlaubt es, den Computer einen Zug ausf{CBM-X}hren zu lassen. Mit "Zur{CBM-X}ckieler" (n=Spieleranzahl), "Info" und "Ende" besteht. Ein Men{CBM-X}punkt wird angew{CBM-F}hlt, indem man den Cursor auf das entsprechende Feld bewegt und dann Feuer (bei der Maus: linke Maustaste) dr{CBM-X}ckt. Es k{CBM-C}nnen nur Men{CBM-X}punkte ausgew{CBM-F}hlt werden, die invertiert weLLL{CBM-P}{CBM-F}{CBM-W}SSSSSSSS{CBM-W}{CBM-W}{CBM-W}{CBM-H}{CBM-C}{CBM-P}{CBM-Q}{CBM-Q}PtMMtP{CBM-W}MUUM{CBM-W}{CBM-Q}{CBM-Q}UU{CBM-Q}{CBM-Q}{CBM-W}{CBM-J}{CBM-J}{CBM-J}{CBM-J}{CBM-J}{CBM-J}{CBM-J}{CBM-J}{CBM-F}{CBM-P}L{CBM-P}{CBM-F}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}ll{CBM-Q}{CBM-Q}{CBM-Q}SSSS{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-A}E{CBM-W}lL{CBM-D}{CBM-C}{CBM-H}{CBM-A}{CBM-R}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}cccccccc{CBM-W}{CBM-W}{CBM-W}{CBM-W}lllll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}lSSSSSSSS{$7f}{$7f}{$7f}{$7f}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{$7f}{$7f}lmokcsS3{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-D}{CBM-D}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-D}{CBM-D}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}kk{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}{CBM-W}{CBM-W}{CBM-D}{CBM-D}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}ll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-Q}{CBM-Q}j{CBM-W}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}oo{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}oo{CBM-Q}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}ll{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}ll{CBM-Q}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}oo{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}oo{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}ll{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}ll{CBM-Q}{CBM-Q}{CBM-Q}llllllll{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}llll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}llllllllllllll{CBM-W}{$7f}{$7f}{$7f}{$7f}oooooooollll{$7f}{$7f}{CBM-W}{CBM-R}{CBM-A}{CBM-H}{CBM-C}{CBM-D}Looooooootttsstttllllcccctttssllllll{CBM-H}{CBM-H}tttllllll{CBM-W}{CBM-W}lllsstttttt{CBM-W}{CBM-W}llj
der 2 oder mit einer Proportionalmaus in Port 1 gesteuert werden kann. Alle drei Steuerm{CBM-C}glichkeiten werden gleichzeitig abgefragt. Auf dem rechten Bildschirmteil ist ein Men{CBM-X} zu sehen, das aus den sechs Punkten "Computerzug", "Zur{CBM-X}ck", "Neustart", "n Spj{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}kk{CBM-Q}{CBM-Q}{CBM-Q}SSSSSSSSssssssss{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}ll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}lll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}lll{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}ll{CBM-W}{CBM-W}{CBM-W}{CBM-W}cccc{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}kk{CBM-W}{CBM-W}{CBM-W}cccc{CBM-W}{CBM-W}{CBM-W}{CBM-W}cccc{CBM-C}{CBM-C}{CBM-C}{CBM-C}PU{$ed}{$ed}UP{CBM-R}{CBM-I}{CBM-I}{CBM-R}{CBM-I}{CBM-I}{CBM-I}l{CBM-R}{CBM-I}{CBM-I}{CBM-R}{CBM-I}{CBM-I}{CBM-R}l{CBM-R}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-R}l{CBM-A}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-A}l{CBM-R}{CBM-D}{CBM-D}{CBM-R}{CBM-D}{CBM-D}{CBM-R}l{CBM-R}{CBM-D}{CBM-D}{CBM-R}{CBM-D}{CBM-D}{CBM-D}l{CBM-R}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-R}l{CBM-I}{CBM-I}{CBM-I}{CBM-R}{CBM-I}{CBM-I}{CBM-I}lTTTTTTTlbbbbb{CBM-I}{CBM-R}l{CBM-I}{CBM-I}{CBM-I}{CBM-H}{CBM-I}{CBM-I}{CBM-I}l{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-R}l{CBM-I}{CBM-R}{CBM-R}{CBM-I}{CBM-I}{CBM-I}{CBM-I}l{CBM-R}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}l{CBM-R}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-R}l{CBM-R}{CBM-I}{CBM-I}{CBM-R}{CBM-D}{CBM-D}{CBM-D}l{CBM-R}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-R}{CBM-R}k{CBM-R}{CBM-I}{CBM-I}{CBM-R}{CBM-@}j
{CBM-I}llll{CBM-W}{CBM-W}tttttt{CBM-H}{CBM-H}ttt{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}kkkkkkkk{CBM-W}{CBM-W}llllll{CBM-W}{CBM-W}{CBM-W}llllllllll{CBM-W}{CBM-W}{CBM-W}oooooo{CBM-W}{CBM-W}llll{CBM-C}{CBM-C}{CBM-C}{CBM-C}ccccllllttt{CBM-H}{CBM-H}lll{CBM-C}{CBM-C}{CBM-C}{CBM-C}llll{CBM-C}{CBM-C}{CBM-C}{CBM-C}cccc
{$fb}{SHIFT-POUND}{$fc}{CBM-I}8{$fd}{CBM-E}{$fb}i{CBM-W}{$fb}e{$fd}{$fd}HP{$f3}{$e6}{$fc}JP{$ee}{SHIFT-POUND}{$fc} (@l
8L{$fb}





{CBM-W}{CBM-W}ll{$7c}{$7c}{$7c}{$7c}{$7c}{$7c}{$7c}{$7c}@@@@@@@@lll{CBM-D}{CBM-C}TttttpcklllttT{CBM-C}{CBM-D}lll{CBM-W}{CBM-W}{CBM-D}<TpbkookbpT<{CBM-D}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-W}delt es sich um ein f{CBM-X}r den C64 in Maschinensprache geschriebenes Strategiespiel. Es wird mit LOAD "TETRON".8 geladen und mit RUN gestartet. Etwa in der Mitte des Bildschirmes erscheint jetzt der Cursor, ein blinkender Pfeil, der mit Joystick in Port 1 o9A
Xph{CBM-R}{CBM-A}eo{CBM-M}G_{CBM-Y}{$f7}l{CBM-@}2*{$7c}t{CBM-R}\{CBM-H}{$ea}{$f9}b{SHIFT-@}7:
)Yq[{CBM-W}{CBM-E}ph Ayc{CBM-F}3)H{CBM-*}{$ec}{$e3}d{CBM-C}F{SHIFT-+}{$ea}~@{CBM-U}69.{$7e}vx{CBM-A}ei{CBM-K}{$7f}Bz{CBM-R}]{CBM-J}{$eb}{$f8}{CBM-L}{$e4}{$f9}a{CBM-O}14,{$7c}F^{CBM-L}{$e4}l{CBM-@}/{$7f}Ay{CBM-E}ph
Bz{CBM-R}]{CBM-J}{$eb}{CBM-M}{$7e}vx{CBM-A}eh
Bz{CBM-R}b{SHIFT-@}2)N{SHIFT--}R{$f3}h
Bz]{CBM-J}{$eb}{$f8}f{CBM-V}{$fc}{$f1}n{CBM-E}f{CBM-V}{SHIFT-*}U{$e4}{CBM-W}{CBM-E}ph &TLph{CBM-+}{$60}x]{CBM-F}2*,{$7c}{$7b}rin{CBM-+}
B{$60}^{CBM-L}{$e4}{CBM-R}{CBM-R}c{CBM-F}2*I{$de}{$ed}{$e2}j{CBM-I},{$7c}t^{CBM-L}{$e4}{$fb}c{SHIFT-@}0W{$e4}{$fb}c{CBM-F}0:{$7c}{$60}x{CBM-A}wo{CBM-M}
Bz]{CBM-J}{$eb}{$fa}{CBM-J}{$eb}{$fa}a{CBM-O}69AKc{CBM-F}06.{$7c}Zrtl{CBM-@}F^{CBM-L}{$f6}{CBM-W}{CBM-E}{CBM-N}{$60}{$7f}wo{CBM-R}{CBM-A}eo{CBM-M}Ay{CBM-E}{CBM-N}AyXvn{CBM-+}GKc{CBM-F}35-{$7d}{$60}x{CBM-A}d{CBM-C};F^b{SHIFT-@}7/AD\{CBM-H}{$ea} {$7d}uy{CBM-A}di{CBM-K}
{$60}x{CBM-A}{CBM-N}{$60}x{$7f}wo{CBM-R}{CBM-A}eh {$7f}C[{CBM-W}{CBM-E}{CBM-N}{$60}{$7f}wo{CBM-R}{CBM-A}eh Ay{CBM-E}{CBM-N}Ay{$7d}um{CBM-R}{CBM-A}eh {$7f}C[{CBM-W}{CBM-E}{CBM-N}A
{$7f}vn{CBM-W}{CBM-E}fj{CBM-I}{$7c}tl{CBM-L}{$e4}{$fb}{$7d}um{CBM-G}FH@{CBM-U}5;AG]{CBM-J}z{CBM-A}qi{CBM-M}G_{CBM-Y}{$f2}m{CBM-R}{CBM-A}eDb{SHIFT-@}1;F^{CBM-L}{$f0}mE]b{CBM-O}7/C[Zrh {$60}Ec{CBM-F}24,{$7c}G_{CBM-Y}{CBM-D}SKag{CBM-B}4,G_b{SHIFT-@}15-{$7c}Zrjl{CBM-@}CE]{CBM-J}{$f7}l{CBM-@}
E]{$7c}t{CBM-R}{CBM-R}\{SHIFT-@}14,{$7c}G_{CBM-Y}{$e5}m{CBM-G}2*
X{$7d}t{CBM-W}l{CBM-L}{$e4}{$fb}b{CBM-U}7:
BYqom{CBM-G}G^{CBM-J}{$f1}l{CBM-Q}
E]{$7c}tl{CBM-Y}{$e5}{$f4}\{CBM-H}{$ea}~f{CBM-V}AW{$e5}{$fa}{CBM-Y}{$e5}{$fa}\{SHIFT-@}1)CF^{CBM-L}{$e4}m{CBM-G}+Y{$7e}vl{CBM-@}D\@{CBM-U}7/
BYwol{CBM-Q}{$60}Kc{CBM-F}35-{$60}x{CBM-A}k{CBM-T}Z{$7e}vn{CBM-+}GJb{SHIFT-@}72*XWOgj{CBM-I}C[{CBM-W}^{CBM-L}{$e4}{$f9}b{SHIFT-@}{$fe}{CBM-F}14,BF^{CBM-L}{$e4}{CBM-W}{CBM-E}{CBM-Q}
Bz{$7e}vAD\{CBM-H}_{CBM-Y}{$e5}m{CBM-G}
Ec{CBM-F}{$de}{$ed}{$e2}j{CBM-I} PNrj{CBM-I}Ay^{CBM-L}{$e4}{$f9}a{CBM-O}6T{$eb}{$f8}@{CBM-U}0;CG_{CBM-Y}{$f0}m{CBM-G}2(
X{$7c}[{CBM-W}l{CBM-A}eo{CBM-M}{$7e}Ay{CBM-E}RJbg{CBM-X}4,{$60}xb{SHIFT-@}7/,
BYqil{CBM-@}CE]{CBM-J}{$eb}l{CBM-@}
E]{$7c}z{CBM-R}{CBM-R}c{CBM-F}36.{$7e}Bz{CBM-R}{CBM-A}{SHIFT-POUND}{$60}x{$7f}um{CBM-R}{CBM-A}ei{CBM-K}
XC[{CBM-W}^{CBM-H}{$ea}{$f9}{CBM-J}{$eb}{$fa}b{SHIFT-@}74,
BF]{CBM-H}{$ea}{CBM-E}fE]{CBM-J}{$f6}{CBM-W}{CBM-E}{CBM-N}{$60}xc{CBM-F}36.{$7e}Zrjm{CBM-G}CE]{CBM-J}{$f7}{CBM-W}{CBM-E}{CBM-G}AyXph{CBM-R}{CBM-A}eo{CBM-M}{$7d}{$60}x{CBM-A}{CBM-Q}
BzYqo{CBM-M}{$60}xc{CBM-F}24,{$7c}{$60}x{CBM-A}SKa{CBM-O}BQ{$e6}
ux{CBM-A}eh C[{CBM-W}\{CBM-H}{$ea}{$f9}{CBM-J}{$eb}{$fa}b{SHIFT-@}75CA_{CBM-Y}{$e5}{CBM-W}{CBM-W}Xph
Bz\{CBM-H}{$ea}~@{CBM-U}CR{$e7}{$f6}{CBM-E}f{CBM-V}{SHIFT-*}U{$e4}{CBM-W}{CBM-E}qi{CBM-K}
C[Zrh Ay_{CBM-J}{$eb}{$fa}b{SHIFT-@}{SHIFT--}R{$e1}{$f6}o{CBM-M}CG{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}lo{CBM-W}lo{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-A}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}o{CBM-W}{CBM-W}k{CBM-W}{CBM-W}c{CBM-W}{CBM-W}k{CBM-W}{CBM-W}O{CBM-W}{CBM-W}={CBM-W}{CBM-W}{CBM-H}{CBM-W}{CBM-W}{CBM-A}3{CBM-W}{CBM-R}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}m{CBM-X}{CBM-X}m{CBM-W}{CBM-P}Oom{CBM-P}{CBM-P}{CBM-W}mssm{CBM-X}{CBM-X}m{CBM-W}mssm]]m{CBM-W}m{CBM-X}{CBM-X}{CBM-P}{CBM-W}m]]m]]m{CBM-W}m]]m{CBM-X}{CBM-X}m{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}C{CBM-X}{CBM-Q}S{CBM-Q}{CBM-X}{CBM-W}{CBM-W}{CBM-W}M{CBM-W}M{CBM-W}{CBM-W}{CBM-W}C{CBM-Q}{CBM-B}{CBM-J}{CBM-B}{CBM-Q}C{CBM-W}m{CBM-J}mSm{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}{CBM-W}{CBM-W}{CBM-F}{CBM-P}LL{CBM-P}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}{CBM-W}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-W}{CBM-W}{CBM-W}sc{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-P}{CBM-C}{CBM-H}{CBM-W}{CBM-W}{CBM-W}{CBM-Q}{CBM-Q}cs{CBM-W}{CBM-W}{CBM-W}SSSSSSllSsC{CBM-P}{CBM-X}{CBM-H}{CBM-A}{CBM-A}{CBM-H}{CBM-X}{CBM-P}CsSllSSSSSSll{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-W}MMMM{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ll{CBM-W}
BE]{CBM-J}{$eb}l{CBM-@}1)YC[{CBM-W}{CBM-E}{CBM-N}AD\{CBM-H}{$ea}{CBM-R}{CBM-A}SKcf{CBM-V};
E]b{CBM-U}7/
BYpo{CBM-W}{CBM-E}fi{CBM-K}
C[{CBM-W}^{CBM-H}{$ea}{$f9}{CBM-J}{$eb}{$fa}a{CBM-O}6:{$60}F\{CBM-H}{$ea}{CBM-A}D\{CBM-H}{$f5}{CBM-R}{CBM-A}{SHIFT-POUND}GJb{SHIFT-@}26.{$7e}{$7b}skm{CBM-G}F^{CBM-L}{$f7}{CBM-W}{CBM-E}{CBM-G}A
Xph{CBM-R}{CBM-A}ei{CBM-K}{$7f}Bz{CBM-R}\{CBM-H}{$ea}~{CBM-J}{$eb}{$f8}@{CBM-U}0;CE]{CBM-J}{$eb}{CBM-R}{CBM-A}f{CBM-V};G_a{CBM-O}1/,{$7c}G_{CBM-Y}{$e5}{CBM-B}7/
Bz{CBM-A}{CBM-N}GKc{CBM-F}35-{$7d}Zrjn{CBM-G}F^{CBM-L}{$f1}l{CBM-@}
E{$7c}tl{CBM-Y}{$e5}{$fa}\{SHIFT-@}1),{$7c}G_{CBM-Y}{$e5}{CBM-K}{$7f}w[{CBM-W}{CBM-R}\{CBM-H}{$ea}{$f9}@{CBM-U}58{$60}{$7f}
{CBM-G}G_{$7e}tl{CBM-A}j{CBM-I}
Bz]{CBM-J}{$eb}{CBM-E}fE]{CBM-J}{$eb}{CBM-R}{CBM-A}{CBM-N}{$60}x\{CBM-H}{$ea}{$f9}@{CBM-U}5T{$e9}{$f8}g{CBM-B}4:{$60}Db{SHIFT-@}{CBM--}S {$f7}{CBM-R}{CBM-A}eh{CBM-M}{$7d}{$60}x{CBM-A}{CBM-N}Ay\{CBM-H}{$ea}{$f8}{CBM-J}{$eb}{$fa}a{CBM-B}69AKc{CBM-F}06.+{$7b}svn{CBM-+}G_{CBM-Y}{$f7}l{CBM-Y}{$e5}{$f4}{$7e}vn{CBM-+}GIa{CBM-O}6;AF^{CBM-L}{$e4} {$7f}Bz{CBM-R}{CBM-A}{CBM-Q}
Bz]{CBM-J}{$eb}l{CBM-@}*Xpvn{CBM-@}
E]b{CBM-O}7/C[Zrh {$60}Ec{CBM-F}24,{$7c}G_{CBM-Y}{CBM-D}SKag{CBM-B}4,G_b{SHIFT-@}15-{$7c}Zrjl{CBM-@}CE]{CBM-J}{$f7}l{CBM-@}
E]{$7c}t{CBM-R}{CBM-R}\{SHIFT-@}14,{$7c}G_{CBM-Y}{$e5}m{CBM-G}2*
X{$7d}t{CBM-W}{CBM-W}n{CBM-+}GIa{CBM-O}14,{$7c}F^{CBM-L}{$e4} {$7f}C[{CBM-W}{CBM-E}{CBM-N}{$60}xc{CBM-F}05-CYqi{CBM-W}{CBM-W}{CBM-E}{CBM-Q}
Bz]{CBM-J}{$eb}{$f8}g{CBM-B}7V{$eb}{$fa}a{CBM-B}6;CG_{CBM-Y}{$f7}l{CBM-@}2*
X{$7c}t{CBM-R}{CBM-R}c{SHIFT-@}1;CE]{CBM-J}{$eb}{CBM-+}{$7c}{$60}x{CBM-A}ph Ay{CBM-E}{CBM-Q}
B{$7e}vn{CBM-E}f{CBM-V}{SHIFT-*}U{$e4}l{CBM-@}F^{CBM-L}y{CBM-E}ph Ay]{CBM-J}{$eb}{$f8}g{CBM-B}{$fd}{$f2}o{CBM-W}{CBM-E}fd{CBM-I}
XBz{CBM-R}\{CBM-H}{$ea}~{CBM-J}{$eb}{$f8}g{CBM-B}69AE]{CBM-J}{$eb}{CBM-W}{CBM-E}g{CBM-B}4,G_c{CBM-F}3+-{$7d}{$60}x{CBM-A}SIa{CBM-O}{CBM--}R {$f5}^{CBM-H}{$f7}{CBM-W}{CBM-E}{CBM-@}CyXph{CBM-R}{CBM-R}{CBM-A}wo{CBM-M}Ayc{CBM-F}3)H{CBM-*}{$ec}{$e3}j{CBM-I}C[^{CBM-L}{$e4}{$f9}n{CBM-+}{$60}x{CBM-A}{SHIFT-POUND}{$60}{$7d}um{CBM-A}e{CBM-X}GT{$eb}{$f8}f{CBM-V}{SHIFT-*}W{$e4}{$fb}{CBM-Y}{$e5}{$f4}\{CBM-H}{$ea}{CBM-R}{CBM-A}ph Ay{CBM-E}d{CBM-C};>FH@{CBM-U}5;
Kc{CBM-F}{$fa}{CBM-J}{$eb}{CBM-R}{CBM-R}b{SHIFT-@}1)-{$7d}uy{CBM-E}fKb{SHIFT-@}{SHIFT--}{$ec}{$e1}{$f0}y{CBM-E}rj{CBM-I},{$7c}zYqi{CBM-K}
Bz^{CBM-L}{$e4}{CBM-W}{CBM-E}rj %UXph Ay]{CBM-J}{$eb}{$f8}@{CBM-V}{$fc}{$f1}n{CBM-E}f{CBM-V}{CBM-*}{$ec}{$e3}j{CBM-I}C[{CBM-W}Xph{CBM-+}GD\{CBM-H}{$ea}{CBM-W}{CBM-E}ph MBQ{$e6}m{CBM-G}G_{CBM-Y}{$f0}m{CBM-A}e{CBM-X}{$e1}{$f0}l{CBM-L}{$e4}{$f9}@{CBM-U}04,{$7c}G_{CBM-Y}{$e5}{CBM-K}{$7f}Bz{CBM-R}{CBM-A}{SHIFT-POUND}G_b{SHIFT-@}25-{$7d}Zrjl{CBM-@}
BE]{CBM-J}{$f1}l{CBM-@}
E]{$7e}v{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{$f1}**{$f1}m]]m]]]{CBM-W}m]]m]]m{CBM-W}msssssm{CBM-W}o]]]]]o{CBM-W}mssmssm{CBM-W}mssmsss{CBM-W}ms]]]]m{CBM-W}]]]m]]]{CBM-W}{CBM-W}{CBM-X}{CBM-X}{CBM-X}{CBM-X}{CBM-X}]m{CBM-W}]]]k]]]{CBM-W}ssssssm{CBM-W}]mm]]]]{CBM-W}m]]]]]]{CBM-W}m]]]]]m{CBM-W}m]]msss{CBM-W}m]]]]mm{CBM-H}m]]m[_]{CBM-W}mssm{CBM-X}{CBM-R}]{CBM-J}{$eb}{$f8}{CBM-L}{$e4}{$f9}a{CBM-O}14,{$7c}F^{CBM-L}{$e4}l{CBM-@}/{$7f}Ay{CBM-E}ph
Bz{CBM-R}]{CBM-J}{$eb}{CBM-M}{$7e}vx{CBM-A}eh
Bz{CBM-R}b{SHIFT-@}2)N{SHIFT--}R{$f3}h
Bz]{CBM-J}{$eb}{$f8}f{CBM-V}{$fc}{$f1}n{CBM-E}f{CBM-V}{SHIFT-*}U{$e4}{CBM-W}{CBM-E}ph &TLph{CBM-+}{$60}x]{CBM-F}2*,{$7c}{$7b}rin{CBM-+}
B{$60}^{CBM-L}{$e4}{CBM-R}{CBM-R}c{CBM-F}2*I{$de}{$ed}{$e2}j{CBM-I},{$7c}t^{CBM-L}{$e4}{$fb}c{SHIFT-@}0W{$e4}{$fb}c{CBM-F}0:
BE]{CBM-J}{$eb}l{CBM-@}1)YC[{CBM-W}{CBM-E}{CBM-N}AD\{CBM-H}{$ea}{CBM-R}{CBM-A}SKcf{CBM-V};
E]b{CBM-U}7/
BYpo{CBM-W}{CBM-E}fi{CBM-K}
C[{CBM-W}^{CBM-H}{$ea}{$f9}{CBM-J}{$eb}{$fa}a{CBM-O}6:{$60}F\{CBM-H}{$ea}{CBM-A}D\{CBM-H}{$f5}{CBM-R}{CBM-A}w[{CBM-W}{CBM-E}ph
Bz]{CBM-J}{$eb}{$fa}{CBM-L}{$e4}{$fb}b{SHIFT-@}7/
BE]{CBM-J}{$eb}m{CBM-G}+{$7b}{$7f}wo{CBM-M}Ax\{CBM-H}{$ea}~g{CBM-B}{$fe}{$f3}hl{CBM-@}CG_{CBM-Y}{$f0}m{CBM-G}F^C[{CBM-W}l{CBM-Y}{$e5}{$fa}@{CBM-U}7:
BE]{CBM-J}{$eb}{CBM-+}{$7c}{$60}x{CBM-A}wo{CBM-M}
Bz]{CBM-J}{$eb}{$fa}{CBM-J}{$eb}{$fa}a{CBM-O}69AKc{CBM-F}06.{$7c}Zrtl{CBM-@}F^{CBM-L}{$f6}{CBM-W}{CBM-E}{CBM-N}{$60}{$7f}wo{CBM-R}{CBM-A}eo{CBM-M}Ay{CBM-E}{CBM-N}AyXvn{CBM-+}GKc{CBM-F}35-{$7d}{$60}x{CBM-A}d{CBM-C};F^b{SHIFT-@}7/AD\{CBM-H}{$ea} {$7d}uy{CBM-A}di{CBM-K}
{$60}x{CBM-A}{CBM-N}{$60}x{$7f}wo{CBM-R}{CBM-A}eh {$7f}C[{CBM-W}{CBM-E}{CBM-N}{$60}{$7f}wo{CBM-R}{CBM-A}eh Ay{CBM-E}\{CBM-H}{$ea}{CBM-A}ek{CBM-K}{$7f}VNfh C[{CBM-W}\{CBM-H}{$ea}{$f9}a{CBM-O}{$fd}{SHIFT-@}79AD\{CBM-H}{$ea}{CBM-R}{CBM-R}b{SHIFT-@}2)N{SHIFT--}R{$e1}h Ay\{CBM-H}{$ea}~e{CBM-X}4{SHIFT-+}{$e8}~f{CBM-C};>FH@{CBM-U}BW{$e6}{$fb}{CBM-E}f{CBM-C}ET{$e9}{$f8}g{CBM-B}AV{$eb}{$fa}a{CBM-O}6T{$eb}{$f8}@{CBM-U}79GKc{CBM-F}00(
'WOrj{CBM-I}{$7d}um{CBM-A}eo{CBM-M}{$7e}{$7b}skn{CBM-+}{$60}x{CBM-A}{SHIFT-POUND}{$60}xb{SHIFT-@}7/N{SHIFT--}R{CBM-F}1(.{$7c}ty{CBM-E}ph +{$7b}svn{CBM-+}Ayc{CBM-F}0(,BzYqi{CBM-K}
BD\{CBM-H}{$ea}{CBM-R}{CBM-A}rh M{CBM--}Q h{CBM-M}{$7c}z{CBM-R}]{CBM-J}{$eb}l{CBM-@}*
Xpu{CBM-W}{CBM-W}^{CBM-H}{$ea}{$f9}@{CBM-U}5:{$60}a{CBM-O}1P{$e5}{$f4}\{CBM-F}15-{$7d}{$60}x{CBM-A}ph MBQ{$e6}m{CBM-G}F^b{SHIFT-@}2*.{$7e}v{$7b}sk{CBM-T},{$7c}G_{CBM-Y}{$e5}n{CBM-+}G_{CBM-Y}{CBM-D}SKNf{CBM-V};?GIa{CBM-O}CP{$e7}{$f4}{CBM-R}{CBM-A}eh {$7e}Ay{CBM-E}{CBM-Q}
Bz\{CBM-H}{$ea}~{CBM-J}{$eb}{$f8}f{CBM-V}5?GIa{CBM-O}6;(
Xpz{CBM-R}{CBM-A}si{CBM-K},
Bz_{CBM-J}{$eb}{$fa}{CBM-J}{$eb}{$fa}b{SHIFT-@}74
B{$60}_{CBM-L}{$e4}{CBM-W}{CBM-W}Xph Ayc{CBM-F}0(CG^{CBM-L}{$e4}{CBM-K}
{$7e}v[{CBM-W}{CBM-E}{CBM-Q}
By\{CBM-H}{$ea}~@{CBM-U}0U{$e4}{$f9}c{CBM-O}0:
BD\{CBM-H}{$f5}{CBM-R}{CBM-A}f{CBM-V};G_a{CBM-O}0:
BF^{CBM-L}{$e4}{CBM-M}{$7d}G_{CBM-Y}{$e5}m{CBM-G}G_{CBM-Y}{$f7}lsk{CBM-K}Bz{CBM-R}]
n{CBM-A}e{CBM-X}ET{$e9}{$f8}g{CBM-B}49-{$7d}uy{CBM-E}fh {$7f}C[{CBM-W}^{CBM-J}{$e4}{$f9}{CBM-L}{$e4}{$f9}@{CBM-U}59GE]{CBM-F}24,{$7c}{$7b}qum{CBM-G}G]{CBM-J}{$f7}{CBM-R}\{CBM-H}{$ea}{$f9}{CBM-H}{$ea}{$f9}b{CBM-U}7;CF^{CBM-L}{$e4}l{CBM-@}){$7f}{$7c}t{CBM-R}{CBM-R}]{CBM-F}2*.{$7e}vx{CBM-A}SKa{CBM-O}BQ{$e6}{$f5}\{CBM-H}{$f6}{CBM-W}{CBM-E}{CBM-N}Ay{$7f}um{CBM-R}{CBM-A}eh {$7f}Ay{CBM-E}ph 3+{$7b}{$7f}wo{CBM-M}{$60}Jb{SHIFT-@}26.{$7e}{$7b}skm{CBM-G}G_{CBM-Y}{$f2}m{CBM-G}F^{$7d}um{CBM-Y}{$e5}{$fa}a{CBM-O}0(C[^{CBM-L}{$e4} {$7e}vy{CBM-E}fh Ay{CBM-E}{CBM-N}A_{$7e}vn{CBM-+}GJb{SHIFT-@}74,BG_{CBM-J}{CBM-D}PH@d{CBM-C}4,G_a{CBM-O}6{CBM-X}m{CBM-W}m{CBM-W}]]]]]]m{CBM-W}]]]]]O{CBM-W}]]]]mm]{CBM-W}]]mm]]{CBM-W}]]]m{CBM-W}m{CBM-X}{CBM-X}ssm{CBM-W}{CBM-W}{CBM-B}{CBM-K}OQo{CBM-W}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-W}{CBM-Q}M{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-W}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}M{CBM-Q}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}]]]{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}UUlUlUU{CBM-W}{CBM-Q}S{CBM-J}O{CBM-Q}{CBM-W}QU{CBM-B}{CBM-Q}U{$f5}{CBM-W}UTU{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-B}{CBM-Q}{CBM-Q}{CBM-B}{CBM-W}{CBM-Q}{CBM-B}{CBM-B}{CBM-B}{CBM-Q}{CBM-W}{CBM-W}UlU{CBM-W}{CBM-W}{CBM-W}m{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}C{CBM-W}{CBM-W}{CBM-W}M{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-A}{CBM-J}{CBM-B}{CBM-Q}S{CBM-W}m]]]]]m{CBM-W}O{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-W}m{CBM-X}{CBM-X}mssm{CBM-W}m{CBM-X}{CBM-X}{SHIFT-POUND}GJb{SHIFT-@}26.{$7e}{$7b}skm{CBM-G}F^{CBM-L}{$f7}{CBM-W}{CBM-E}{CBM-G}A
Xph{CBM-R}{CBM-A}ei{CBM-K}{$7f}Bz{CBM-R}\{CBM-H}{$ea}~{CBM-J}{$eb}{$f8}@{CBM-U}0;CE]{CBM-J}{$eb}{CBM-R}{CBM-A}f{CBM-V};G_a{CBM-O}1/,{$7c}G_{CBM-Y}{$e5}{CBM-B}7/
Bz{CBM-A}{CBM-N}GKc{CBM-F}35-{$7d}Zrjn{CBM-G}F^{CBM-L}{$f1}l{CBM-@}
E{$7c}tl{CBM-Y}{$e5}{$fa}\{SHIFT-@}1),{$7c}G_{CBM-Y}{$e5}{CBM-K}{$7f}w[{CBM-W}{CBM-R}\{CBM-H}{$ea}{$f9}@{CBM-U}58{$60}{$7f}w[{CBM-W}{CBM-E}ph
Bz]{CBM-J}{$eb}{$fa}{CBM-L}{$e4}{$fb}b{SHIFT-@}7/
BE]{CBM-J}{$eb}m{CBM-G}+{$7b}{$7f}wo{CBM-M}Ax\{CBM-H}{$ea}~g{CBM-B}{$fe}{$f3}hl{CBM-@}CG_{CBM-Y}{$f0}m{CBM-G}F^C[{CBM-W}l{CBM-Y}{$e5}{$fa}@{CBM-U}7:
BE]{CBM-J}{$eb}{CBM-+}{CBM-N}Ay{$7d}um{CBM-R}{CBM-A}eh {$7f}C[{CBM-W}{CBM-E}{CBM-N}A
{$7f}vn{CBM-W}{CBM-E}fj{CBM-I}{$7c}tl{CBM-L}{$e4}{$fb}{$7d}um{CBM-G}FH@{CBM-U}5;AG]{CBM-J}z{CBM-A}qi{CBM-M}G_{CBM-Y}{$f2}m{CBM-R}{CBM-A}eDb{SHIFT-@}1;F^{CBM-L}{$f0}m{CBM-G}G_{$7e}tl{CBM-A}j{CBM-I}
Bz]{CBM-J}{$eb}{CBM-E}fE]{CBM-J}{$eb}{CBM-R}{CBM-A}{CBM-N}{$60}x\{CBM-H}{$ea}{$f9}@{CBM-U}5T{$e9}{$f8}g{CBM-B}4:{$60}Db{SHIFT-@}{CBM--}S {$f7}{CBM-R}{CBM-A}eh{CBM-M}{$7d}{$60}x{CBM-A}{CBM-N}Ay\{CBM-H}{$ea}{$f8}{CBM-J}{$eb}{$fa}a{CBM-B}69AKc{CBM-F}06.+{$7b}svn{CBM-+}G_{CBM-Y}{$f7}l{CBM-Y}{$e5}{$f4}{$7e}vn{CBM-+}GIa{CBM-O}6;AF^{CBM-L}{$e4} {$7f}Bz{CBM-R}{CBM-A}{CBM-Q}
Bz]{CBM-J}{$eb}l{CBM-@}*Xpvn{CBM-@}
{$7f}wz{CBM-R}{CBM-A}sk{CBM-K}Bz_{CBM-Y}{$e5}{$fa}{CBM-A}k{CBM-T},{$7c}t^{CBM-L}{$e4}{CBM-W}{CBM-W}{CBM-E}{CBM-Q}
BzYwol{CBM-Q}{$60}Kc{CBM-F}37/C[{CBM-W}Xph Ay]{CBM-J}{$eb}{CBM-R}{CBM-A}ph &VZrj{CBM-I},{$7c}t_{CBM-Y}{$e5}{$fa}a{CBM-O}{$f8}{CBM-F}36.{$7e}Ay{CBM-E}{CBM-Q}
{$60}x\{CBM-H}{$ea}~{CBM-J}{$eb}{$f8}g{CBM-B}49GE]{CBM-J}{$eb}{CBM-R}{CBM-A}f{CBM-C};F^a{CBM-O}6.AF^{CBM-H}{$ea}{CBM-M}{$7e}tx{CBM-A}wo{CBM-M}{$60}x{CBM-L}{$f0}{CBM-W}{CBM-R}{$7f}wo{CBM-R}{CBM-R}{CBM-A}ph
Bz^{CBM-L}{$e4}{$f9}{CBM-Y}{$e5}{$fa}\{SHIFT-@}15-{$7d}G_{CBM-Y}{$e5}l{CBM-@}*
X{$7d}u{CBM-W}{CBM-W}c{CBM-F}2*,{$7c}G_{CBM-Y}{$e5}{CBM-K}{$7f}wz{CBM-R}{CBM-A}qo{CBM-M}{$60}x]{CBM-F}2*I{$de}{$ed}{CBM-H}{$ea}~g{CBM-B}6:
{CBM-J}{$eb}{CBM-W}{CBM-E}qh &VNph
Bz]{CBM-J}{$eb}{$f8}a{CBM-O}{$f8}{CBM-F}35-{$7d}G_{CBM-Y}{$e5}n{CBM-+}G_{$7c}tl{CBM-@}
E]g{CBM-B}7:
BF^{CBM-L}{$e4}{CBM-M}{$7e}Ay{CBM-E}ph C[{CBM-W}]{CBM-J}{$eb} {$7f}uz{CBM-R}{CBM-A}ph Ay\{CBM-H}{$ea}{$f9}{CBM-J}{$eb}{$fa}a{CBM-U}68{$60}D\{CBM-H}{$ea}{CBM-W}{CBM-E}g{CBM-B}4,G_\{SHIFT-@}15-{$7d}G_{CBM-Y}{$e5} {$7e}vx{CBM-A}wo{CBM-M}Ay{CBM-E}{CBM-@}CXphm{CBM-Q}AD\{CBM-H}{$ea}{CBM-W}{CBM-W}\{CBM-H}{$ea}{$f9}{CBM-J}{$eb}{$fa}b{SHIFT-@}7:
BE]{CBM-J}{$eb}{CBM-R}{CBM-R}{$7f}wo{CBM-M}{$60}^c{CBM-F}0(,{$7c}F^{CBM-L}{$e4}{CBM-I}{$7e}vx{CBM-A}eo{CBM-M}Ay{CBM-E}{CBM-Q}
BzYqo{CBM-W}{CBM-E}f@{CBM-U}0.Cy]{CBM-J}{$eb}{CBM-+}{$7d}{CBM-T}40)rn$"****************************************"rf$
{$e7}7B"Standort  :"
8L{CBM-T}40)"Guthaben  \         Allgemeines"
28V{CBM-T}20)"Waffen"             "
s8 "Schulden  \         Kohle"
B8{$ea}{CBM-T}20)"Rum"
8{$f4}"Ladeplatz :         Edelsteine"
B8{$fe}{CBM-T}40)rn$"********r{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}5100)
U0$sr{CBM-W}500{CBM-A}sr{CBM-E}2000{CBM-M}4890
{$ea}0.rr{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}5100)
18rr{CBM-W}200{CBM-A}rr{CBM-E}2000{CBM-M}4910
1bgr{CBM-R}mr{CBM-N}sr{CBM-N}rr
 1lG(147);
p1v{CBM-T}122)"Dein Schiff muss repariert werden !"
E1{$60}{CBM-T}122)"Kosten :"
{$7d}1J{CBM-T}82)"Mast    \";mr
1T{CBM-T}82)"Segel   \";sr
{CBM-Z}1{$7e}{CBM-T}82)"Rumpf   \";rilfe die ungef{CBM-F}hre Druckzeit ausgegeben, danach wird das Etikett berechnet und gedruckt.

Reversschrift (Ctrl-R):
-----------------------
Es ist auch m{CBM-C}glich einige Zeilen revers auszudrucken. Eingeschaltet wird diese Funktion durch Dr{CBM-X}cken von Ctrl-R odzt zur Ruhe"
H4X{CBM-T}44)"setzen !!!"
{$ed}4{CBM-T}120)"Genauer Spielstand : \";g
{$f6}4101
5G(147);
'5 {CBM-T}240):{CBM-T}131)"Noch ein Spiel ?"
05{CBM-N}{CBM-K}ns$
l5{CBM-H}ns${CBM-W}{CBM-E}"j"{CBM-P}ns${CBM-W}{CBM-E}"n"{CBM-M}5290
[5{CBM-V}ns${CBM-R}"j"{CBM-M}
5H{CBM-T}250)"T"s2$"S"s2$"C"s2$"H"s2$"U"s2$"E"s2$"S"s2$"S  !"
5R
{CBM-E}5{CBM--}p(
rch die Kombinationen Ctrl-X beziehungsweise Ctrl-Y wird alles bis zur beziehungsweise ab der Cursorposition gel{CBM-C}scht. Um eine komplette Zeile zu l{CBM-C}schen, wird Ctrl-Z eingegeben. Bei allen L{CBM-C}schfunktionen bleibt die Cursorposition unver{CBM-F}ndert.

Sonst. Fu 35
 8
@{CBM-A}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{CBM-S}
@{$7d}   _E_ _T_ _I_ _S_ _T_ _A_ _R    {$7d}
@{CBM-Q}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{CBM-W}
@{$7d} Die komfortable Etikettenverar- {$7d}
@{$7d}  beitung fuer den Commodore 64  {$7d}
@{CBM-Q}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{CBM-W}
@{$7d} Von H I G H S C O R  D********************************"rf$
H8
{$ee}8G(147);:53280,0:53281,0:646,1
9{CBM-T}250)"Weil Du ueber \ 25000"
19&{CBM-T}50)"Schulden hast , pfaen-
q90{CBM-T}50)"den Deine Glaeubiger"
S9:{CBM-T}50)"das Schiff , und deine"
9d{CBM-T}50)"Reise ist zuende !!!"
9n316
r
A1{CBM-T}49)"--------"
Y1{CBM-T}82)"Gesamt  \";gr
{$e2}1101
{$ed}1{CBM-+}g{CBM-R}g{CBM-Q}gr
{$fb}1{CBM-A}g{CBM-W}0{CBM-M}5060
2{SHIFT-@}1880
+2DG(147);:53280,0:53281,0:646,1
j2N{CBM-T}250)"Da Du zuwenig Geld"
I2X{CBM-T}50)"hast , die Rechnung"
2{$e2}{CBM-T}50)"zu bezahlen , musst"
{CBM-+}2{$ec}{CBM-T}50)"Du die Reise been-"
{CBM-O}2{$f6}er Ctrl-9, worauf ein reverses R rechts von der Zeile erscheint. Aufgehoben wird diese Funktion durch erneutes Dr{CBM-X}cken derselben Tastenkombination.

Blockoperationen (Ctrl-C,O,W):
------------------------------
Die Blockoperationen funktionieren nur zeil1){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}16)
B5{$e6}p(1){CBM-W}1{CBM-M}5340
Z5{$f0}p(2){CBM-R}10{CBM-D}{CBM-J}({CBM-F}(1){CBM-D}19)
{$ec}5{$fa}p(2){CBM-W}50{CBM-M}5360
6p(3){CBM-R}10{CBM-D}{CBM-J}({CBM-F}(1){CBM-D}100)
6p(3){CBM-W}300{CBM-M}5380
16p(4){CBM-R}100{CBM-D}{CBM-J}({CBM-F}(1){CBM-D}31)
d6"p(4){CBM-W}500{CBM-M}5400
^6,p(5){CBM-R}100{CBM-D}{CBM-J}({CBM-F}(1){CBM-D}101)
R66p(5){CBM-W}1000{CBM-M}5420
X6@
6jse${CBM-R}"1"{CBM-M} s${CBM-R}" Swansea"
{CBM-H}6tse${CBM-R}"2"nktionen(Ctrl-F,H,I,J,N,U,V):
--------------------------------------
Etistar besitzt {CBM-X}ber die bisher beschriebenen Funktionen hinaus noch einen Disk-Befehl (Ctrl-F), ein umfangreiches Help-Men{CBM-X} (Ctrl-H), in dem mit Ctrl-H weitergebl{CBM-F}ttert wird, eine Infon
r              Reversschrift
u              Farbwahl
v              Ton-Lautst{CBM-F}rke
w              Zeile vertauschen
x              L{CBM-C}schen bis Cursor
y              L{CBM-C}schen ab Cursor
z              Zeile l{CBM-C}schen
5              Floskeltaste 1
6         0
{CBM-W}9xi{CBM-R}1{CBM-@}zz:xx$;::
O9B nachspann ===========
{$eb}9L farbcodes/steuercodes
:Vc4${CBM-R}G(017):rn${CBM-R}G(018)
:he${CBM-R}G(019):fl${CBM-R}G(130)
9:fo${CBM-R}G(132):rf${CBM-R}G(146)
h:c1${CBM-R}G(157)
B: zeichensatz/graphik
{$7c}:{CBM-POUND}s2${CBM-R}G(160):zn${CBM-R}G(184)
:{CBM-R}
:{CBM-C} ================={CBM-T}50)"den !!!"
C2
3160
{$e9}2
G(147);:53281,7:53280,7:646,2
3{CBM-T}125)"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
;3{CBM-T}5)"$                           $"
3({CBM-T}5)"$    H"s2$"E"s2$"R"s2$"Z"s2$"L"s2$"I"s2$"C"s2$"H"s2$"E N    $"
{CBM-Q}32{CBM-T}5)"$                          enweise. Geben Sie die Nummer der Zeile an, die bearbeitet werden soll, sowie die Nummer der Zeile, die das Ziel der Operation darstellt. Es gibt drei verschiedene M{CBM-C}glichkeiten: Beim Kopieren (mit Ctrl-C oder Stop) wird die entsprechende Zeile kopiert,
{CBM-M} s${CBM-R}" Liverpool"
P6^se${CBM-R}"3"{CBM-M} s${CBM-R}" London"
{$ef}6Hse${CBM-R}"4"{CBM-M} s${CBM-R}" Newcastle"
7Rse${CBM-R}"5"{CBM-M} s${CBM-R}" Southampton"
7{$7c}
,7"              "
b7"              "
k7670
Q7{CBM-@}G(147);:53280,6:53281,6:646,7
7{CBM-S}" ";ne$;"  Schiffahrtsgesellschaft"
T7{CBM-U}seite (Ctrl-I) mit Autorenhinweis, eine komplette Neustartfunktion (Ctrl-N), eine Farbwahl (Ctrl-U) und die M{CBM-C}glichkeit, den hohen Ton an- oder abzustellen (Ctrl-V). Eine vollst{CBM-F}ndige Befehls{CBM-X}bersicht folgt weiter unten.

Funktionstasten (F1, F3, F5,F7):
I     Floskeltaste 2
7              Floskeltaste 3
8              Floskeltaste 4
$              Directorye
k              Floskeltastenmen{CBM-X}
l              Etikett laden
n              Neustart
o              Zeile verschieben
p              Etikett drucke
3====
{CBM-Z}:F  e n d e
I:P =====================


147);:53280,0:53281,0:646,1
9{CBM-T}250)"Weil Du ueber \ 25000"
19&{CBM-T}50)"Schulden hast , pfaen-
q90{CBM-T}50)"den Deine Glaeubiger"
S9:{CBM-T}50)"das Schiff , und deine"
9d{CBM-T}50)"Reise ist zuende !!!"
9n316 $"
{CBM-*}3<{CBM-T}5)"$  G"s2$"L"s2$"U"s2$"E"s2$"C"s2$"K"s2$"W";
4fs2$"U"s2$"N"s2$"S"s2$"C"s2$"H"s2$s2$"$"
44p{CBM-T}5)"$                           $"
\4z{CBM-T}5)"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
4D{CBM-T}204)"Du hast ueber \ 800000 verdient"
{CBM-R}4N{CBM-T}44)"und kannst Dich jetallerdings ohne die reversen "R". Weiterhin k{CBM-C}nnen zwei Zeilen vertauscht (Ctrl-W) oder verschoben werden (Ctrl-O). Beim Verschieben wird die Zeile an der urspr{CBM-X}nglichen Position gel{CBM-C}scht.

L{CBM-C}schoperationen (Ctrl-X.Y,Z):
------------------------------
Du"R"s2$"M"s2$"***"
{$e4}"{$f8}101
{$fc}"
{CBM-F}(1){CBM-E}.5{CBM-A}lp{CBM-R}50{CBM-M}3450
#
G(147);
#
{CBM-T}240)
4#
{CBM-T}90)"Ein Sturm ist aufge-"
t#*
{CBM-T}50)"kommen,und wir mues-"
U#4
{CBM-T}50)"sen ueber die Haelfte"
#>
{CBM-T}50)"der Ladung ueber Bord"
{CBM-U}#h
{CBM-T}50)"werfen ! (schade drum)"
{$f9}#r
lp{CBM-R}lp{CBM-N}(a{CBM-Q}{CBM-J}(ur{CBM-X}ck vom Testbildschirm
 9700   Zeichens{CBM-F}tze laden
 9800   Backgrounds laden
 9900   Background: Sterne an/aus
 9905   Background: Spectral an/aus
 9911   Background: Wellen an/aus
10000   Fehlermeldungen
11000   Video-Daten speichern
11300   Video-Date   "
{$e5}he$
{$f0}{CBM-T}240)
{$fb}{CBM-+}{CBM-T}240)
{CBM-A}{CBM-T}161);li
{SHIFT-@}sc{CBM-R}sc{CBM-N}li
#Dg{CBM-R}g{CBM-N}li
3Nx{CBM-R}0{CBM-@}1700:
<X310
B{$e2}G(147);:53280,2:53281,2:646,7
M{$ec}{CBM-T}240)
{CBM-M}{$f6}{CBM-T}129)"*** P"s2$"I"s2$"R"s2$"A"s2$"T"s2$"E"s2$"N ***"
{CBM-A}

101
{CBM-B}

ke{CBM-R}1{CBM-M}2850
Q
{CBM-F}(1){CBM-E}.5{CBM-M}3210
{$e1}
lich sollte das Directory aussehen:

0 "TITELBILD-GEN.G " VF 2A
3    "TGB/GVF           PRG
5    "VORSPANN"         PRG
95   "A"                PRG
3    "SPR1"             PRG
4    "UPRG.ASS"         PRG
2    "SPECTRAL.ASS"     PRG
9    "FONT 1"
{CBM-T}240)
{$f3}B{CBM-T}90)"Die Kanone hat das"
 L{CBM-T}50)"Piratenschiff ver-"
$ V{CBM-T}50)"senkt !"
d  {CBM-T}50)"(Gut gemacht,Jungs!)"
m {$ea}101
w {$f4}1880
{$7d} {$fe}G(147);:53280,0:53281,0:646,0
 {CBM-T}130)"Da Du nicht genuegend"
{SHIFT-*} {CBM-T}50)"Geld hattest,den Dok-"
{CBM-*} {CBM-T}50)"torichtete Schiff"
{CBM--}-{CBM-C}{CBM-T}50)"heranfahren ?"
{$e5}-F{CBM-K}hf$
.Phf${CBM-W}{CBM-E}"j"{CBM-P}hf${CBM-W}{CBM-E}"n"{CBM-M}4550
.Zhf${CBM-R}"n"{CBM-M}1880
%.{$e4}{CBM-F}(1){CBM-E}.5{CBM-M}2530
:.{$ee}vd{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}10100)
l.{$f8}vd{CBM-W}1000{CBM-M}4590
y.G(147);
{$7b}.{CBM-T}250)"Es ist ein englisches"
.{CBM-T}50)"Handelsschiff "
{CBM-L}. {CBM-T}50)"Du machst mit dem a{CBM-Z}2)){CBM-N}(w{CBM-Q}{CBM-J}(w{CBM-Z}2)){CBM-N}(k{CBM-Q}{CBM-J}(k{CBM-Z}2)){CBM-N}(r{CBM-Q}{CBM-J}(r{CBM-Z}2)){CBM-N}(e{CBM-Q}{CBM-J}(e{CBM-Z}2))
$\
101
3$F
a{CBM-R}{CBM-J}(a{CBM-Z}2):w{CBM-R}{CBM-J}(w{CBM-Z}2):k{CBM-R}{CBM-J}(k{CBM-Z}2):r{CBM-R}{CBM-J}(r{CBM-Z}2):e{CBM-R}{CBM-J}(e{CBM-Z}2)
=$P
1880
j$Z
G(147);
u$
{CBM-T}240)
U$
{CBM-T}90)"Der Sturm hat sofort"
$
{CBM-T}50)"aufgehoert , und du"
{CBM-H}${CBM-I}
{CBM-T}50)"kannst weiterfahren "
{CBM-X}${CBM-D}
101
G${CBM-L}
188
n l{CBM-C}schen
11397   Neue Video-Daten
11500   Men{CBM-X}-Liste drucken
11700   Druckkopf
12000   Drucken mit Daten
13000   Drucken ohne Daten
57000   Video-Daten laden
58400   Men{CBM-X}-Backgrounds
58700   Auswahl Background
58900   Demo Backgrounds
59000   Men{CBM-X}-Zeichlp{CBM-R}50{CBM-M}2730
{$ee}(
G(147);
{$f9}2
{CBM-T}240)
<
{CBM-T}130)"Piraten haben uns"
6f
{CBM-T}50)"ueberfallen und die"
vp
{CBM-T}50)"ganze Ladung an sich"
Kz
{CBM-T}50)"genommen "
TD
101
{$7f}N
lp{CBM-R}50
X
a{CBM-R}0

w{CBM-R}0

k{CBM-R}0
{CBM-T}
r{CBM-R}0
{CBM-D}
e{CBM-R}0
{CBM-O}{CBM-N}
G(147);
M{CBM-H}
x{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}10){CBM-N}3
{$ef}{CBM-V}
{CBM-T}  PRG
9    "FONT 2"           PRG
0    "----------------" PRG
0    "    D A T E N   " PRG
0    "----------------" PRG
1    "PRESENT.GVF"      PRG
1    "VIDEO.DAT"        PRG
532 BLOCKS FREE.


Speicherbelegung der Maschinen-Routinen
--------------------- zu bezahlen,hat"
~ &{CBM-T}50)"Deine Mannschaft ge-"
!!0{CBM-T}50)"meutert und das Schiff"
b!:{CBM-T}50)"verkauft,um die Rech-"
D!d{CBM-T}50)"nung bezahlen zu koen-"
!n{CBM-T}50)"nen                  "
!x{CBM-T}92)"Nimm's leicht!"
{CBM-POUND}!B101
{CBM-J}!LG(147);
U!V{CBM-T}255)"E"s2$"N"s2$Ka-"
V.*{CBM-T}50)"pitaen ein Geschaeft"
{$f5}.4{CBM-T}50)"und verdienst dabei"
/>{CBM-T}50)"\";vd
/h101
/rg{CBM-R}g{CBM-N}vd
#/\1880
k/FG(147);:53280,14:53281,14:646,6
V/P{CBM-T}240):{CBM-T}129)"*** EIN"s2$"GOENNER ***"
{$7f}/Z101
/gr{CBM-R}100{CBM-D}{CBM-J}({CBM-F}(1){CBM-D}101)
{CBM-POUND}/gr{CBM-W}1000{CBM-M}4740
{CBM-O}/gr0
{$ed}${SHIFT-*}
G(147);:53281,9:53280,9:646,0
{$f8}$J
{CBM-T}240)
f%T
{CBM-T}125)"*** L A"s2$"N D"s2$"A"s2$"U"s2$"S"s2$"F"s2$"L"s2$"U"s2$"G"s2$"***"
o%{$de}
101
A%{$e8}
{CBM-F}(1){CBM-E}.5{CBM-M}3840
O%{$f2}
r{CBM-E}0{CBM-M}3750
%{$fc}
tr{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}3100)
%tr{CBM-W}500{CBM-M}3580
{CBM-K}%G(147);
B%{CBM-T}250)"Waehrend eines Land-"
 ens{CBM-F}tze
59300   Auswahl Zeichensatz
59900   Demo Zeichens{CBM-F}tze
60000   Joystickabfrage
        (Zeit einstellen)
62000   Disk-Namen einlesen
62080   Video-Daten einlesen
63000   Programm nach {SHIFT-+}nderungen saven

Variablen f{CBM-X}r die Video-Datei name.gvf
------250)"Waehrend der Schlacht"
H
{CBM-T}50)"sind";x;"Deiner Mann-"
1R
{CBM-T}50)"schaft verwundet wor-"
r{CBM--}
{CBM-T}50)"den Die Heilung durch"
Q{$e6}
{CBM-T}50)"einen Doktor kostet"
{$f0}
{CBM-T}50)"Dich je Verletzten \75 "
{$fa}
101
{CBM-Q}g{CBM-R}g{CBM-Q}75{CBM-D}x
{CBM-O}g{CBM-W}0{CBM-M}3070
C1880
P"G(147);
{SHIFT-+}
B------------------
UPRG.ASS         0B00 - 0DFC
SPECTRAL.ASS     1800 - 197F
FONT 1           2000 - 2802
FONT2            2000 - 2802
SPR1             0E00 - 0FFF
VORSPANN         1300 - 17EA
       PRG
2    "SPECTRAL.ASS"     PRG
9    "FONT 1"
"D"s2$"E"
{CBM-*}!5260
{$ec}!G(147);
{$f7}!{CBM-T}240)
"{CBM-T}130)"Die Piraten haben"
3"{CBM-POUND}{CBM-T}50)"nicht angegriffen,"
q"{CBM-R}{CBM-T}50)"und du kannst wei-"
E"{CBM-C}{CBM-T}50)"fahren !"
N"F101
X"P1880
"ZG(147);:53280,5:53281,5:646,7
{SHIFT-POUND}"{$e4}{CBM-T}240)
{SHIFT-+}"{$ee}{CBM-T}211)"*** S"s2$"T"s2$"U"s2${CBM-E}sc{CBM-M}gr{CBM-R}sc
F/{CBM-I}G(147);
{$e8}/{CBM-D}{CBM-T}250)"Ein unbekannter Goen-"
0{CBM-L}{CBM-T}50)"ner hat \";gr;"von"
'0{SHIFT-*}{CBM-T}50)"Deinen Schulden abbe-"
:0J{CBM-T}50)"zahlt !"
c0T101
s0{$de}sc{CBM-W}gr{CBM-M}4850
F0{$e8}sc{CBM-R}sc{CBM-Q}gr:1880
O0{$f2}sc{CBM-R}0
Y0{$fc}1880
0mr{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}5100)
{CBM-M}0mr{CBM-W}500{CBM-A}mr{CBM-E}2000{CBM-M}4870
{CBM-C}0s%${CBM-T}50)"ausflugs haben Dir"
~%.{CBM-T}50)"Trickbetrueger \";tr
&8{CBM-T}50)"abgenommen !"
 &b101
+&lg{CBM-R}g{CBM-Q}tr
9&vg{CBM-W}0{CBM-M}3690
c&{$60}1880
I&JG(147);:53280,0:53281,0:646,1
&T{CBM-T}250)"Du bist jetzt pleite"
{SHIFT-POUND}&{$7e}{CBM-T}50)"und musst die Reise"
{SHIFT-*}&{CBM-T}50)"beenden !!!"
I--------------------------------
sz         Anzahl der Texte
text$(o)   Text-Array
bg         Background
zs         Zeichensatz
Zeit       Zeit Lesedauer
zw         Zwischenzeit
F1         Farbe Schrift
F2         Farbe Bild
F3         Farbe Rand

So {CBM-F}hn,{CBM-T}240)
{$fc}6{CBM-T}130)"Deine Mannschaft be-"
@{CBM-T}50)"nutzt die Kanone vom"
7j{CBM-T}50)"schwarzen Jack "
@t101
m^G(147);
_H{CBM-F}(1){CBM-E}.3{CBM-M}3000
JR{CBM-T}240)
{$7c}{CBM-T}130)"Die Kanone ist leider"
 {CBM-T}50)"kaputt !"
{SHIFT-POUND}101
{CBM-L}G(147);
{SHIFT-*}{CBM-@}ke{CBM-R}0
J{CBM-S}2610
U{CBM-U}Zeichensatz an. Er wird wie im Punkt "Farbe" mit dem Joystick ausgew{CBM-F}hlt. "Zeichensatz-Demo" zeigt mit einer Testschrift alle m{CBM-C}glichen Zeichens{CBM-F}tze. Zur Auswahl stehen Normal, DIN, Outline und Altenglisch. Men{CBM-X} verlassen f{CBM-X}hrt zur{CBM-X}ck zum Men{CBM-X} "Effekte".Schrift-Farbe
  Bild-Farbe
  Rand-Farbe

Nach Auswahl der Farbe kann sie durch Druck auf den Feuerknopf gewechselt werden. Durch Bewegen des Joysticks nach unten k{CBM-C}nnen die anderen Farben gew{CBM-F}hlt werden. Der letzte Men{CBM-X}punkt schlie{CBM-V}t die Farbauswahl ab, Punkt gelangt man wieder in das Men{CBM-X} "Effekte".

6.0  Disk
---------
Er{CBM-C}ffnet ein neues Men{CBM-X} mit zwei weiteren Punkten.

6.1  Disk-Operationen
---------------------
Dieser Men{CBM-X}punkt bedarf keiner ausf{CBM-X}hrlichen Erkl{CBM-F}rung. Mit "Directory" wird der Inhalt dne ein- beziehungsweise ausgeblendet. Hierbei hat aus dem Men{CBM-X} "Farbe" nur die eingestellte Randfarbe G{CBM-X}ltigkeit. Text- und Bildfarbe liegen fest.

4.2  Schrift langsam aufbauen
-----------------------------
Dieser Effekt zeigt die Texte in einzelnen Buc
des Feuerknopfes erfolgt der Ausdruck.

7.0  Ende
---------
Im letzten Men{CBM-X}punkt kann das Programm nach einer Sicherheitsabfrage verlassen werden.
Die Einsprung-Adressen der Routinen sind aus dem Programm-Listing ersichtlich. Das Programm TBG/GVF ist das----------------------

   10   Hauptmen{CBM-X}
  300   Info
  800   Men{CBM-X}-Farben {CBM-F}ndern
 1000   Uprg. Schrift-Farbe {CBM-F}ndern
 1050   Uprg. Bild-Farbe {CBM-F}ndern
 1090   Uprg. Rand-Farbe {CBM-F}ndern
 1300   Text-Eingabe
 1800   Men{CBM-X}-Effekte
 2300   Men{CBM-X}-Disk
 2800   Ende-

4.6  Men{CBM-X} Backgrounds
---------------------
Die Auswahl der Backgrounds erfolgt wie beim Men{CBM-X} "Zeichens{CBM-F}tze". Die zur Verf{CBM-X}gung stehenden Backgrounds sind Sternenhimmel, Wellenschrift und Spectralbalken. Auch hier werden bei der Demo alle Backgrounds d
und das Programm kehrt zum Hauptmen{CBM-X} zur{CBM-X}ck.

3.0  Text
---------
Zuerst wird gefragt, wie viele Texte erstellt werden sollen. Dann erfolgt die Eingabe der Texte, die nicht l{CBM-F}nger als 36 Zeichen lang sein d{CBM-X}rfen. Das Programm weist bei Falscheingabe daraer eingelegten Diskette angezeigt, und "Formatieren" erstellt nach Eingabe des Diskettennamens eine neue Arbeitsdiskette.

6.2  Video-Operationen
----------------------
Das vorletzte Men{CBM-X} er{CBM-C}ffnet die Videodatei-Bearbeitung. Die ersten drei Punkte erkl{CBM-F}rhstaben. Sie werden nebeneinander nach rechts aufgebaut.

4.3  Schrift feststehend
------------------------
Hier werden die Texte nacheinander angezeigt und nach einer eingestellten Zeit wieder gel{CBM-C}scht.

4.4  Schrift nach unten
-----------------------
I Lade-Programm. Mit dem Befehl RUN"TGB*" wird der Lader geladen und gestartet. Nach kurzer Zeit erscheint das Titelbild. Nach Druck auf eine beliebige Taste wird das Hauptprogramm A geladen und gestartet. Der Hauptbildschirm baut sich nach kurzer Zeit miProgramm verlassen
 3000   Men{CBM-X}-Zeit einstellen
 3080   Ein- und Ausblenden
 3300   Schrift feststehend
 3500   Schrift langsam aufbauen
 3800   Schrift nach unten
 7000   Rahmen-Daten
 7100   Rahmen zeichnen
 7300   Video-Operationen
 7550   Daten ladenurchlaufen. Die 0 bedeutet ohne Background.

4.7  Men{CBM-X} verlassen
-------------------
F{CBM-X}hrt zur{CBM-X}ck zum Hauptmen{CBM-X}.

5.0  Zeit einstellen
--------------------
Um die Video-Vorsp{CBM-F}nne sehen zu k{CBM-C}nnen, m{CBM-X}ssen folgende Zeiten eingestellt werden: Die Aufbauzeit uf hin. Ist der letzte Text eingegeben und mit Return abgeschlossen, geht es zur{CBM-X}ck zum Hauptmen{CBM-X}.

Hinweis:
Um weitere Fehlermeldungen bei der Texteingabe zu vermeiden, sollte auf Zeichen wie Punkt, Komma, Semikolon und Doppelpunkt verzichtet werden.

4en sich selbst. Die Besonderheit ist, da{CBM-V} die Videodatei-namen und der Diskettenname in einem Fenster angezeigt werden. Eine Datei kann nun mit dem Joystick und Druck auf den Feuerknopf ausgew{CBM-F}hlt werden.
Bei Anwahl des Punktes "Liste drucken" erscheint
m letzten Effekt wird der Text durch Aufbau von einzelnen Buchstaben von oben zur Mitte des Bildschirmes angezeigt.

4.5  Men{CBM-X} Zeichens{CBM-F}tze
----------------------
Das Untermen{CBM-X} ist f{CBM-X}r die vier Zeichens{CBM-F}tze zust{CBM-F}ndig. Der erste Punkt w{CBM-F}hlt den aktuellen t dem Hauptmen{CBM-X} auf, und die Arbeit kann beginnen.

Noch ein Tip:
Auf einer Arbeitsdiskette sollten sich alle Files bis auf A und TGB/GVF.. befinden, um Fehlermeldungen des Programmes zu vermeiden.
Hartmut Jathe

Zeilennummern der Unterroutinen
---------
 7650   Daten speichern
 8000   Disk-Operationen
 8300   Directory
 8400   Formatieren
 9100   Zeit einstellen-Aufbauzeit
 9200   Zwischenzeit einstellen
 9300   Window f{CBM-X}r Test
 9400   DIN-Zeichensatz an/aus
 9500   Zusatz-Zeichens{CBM-F}tze an/aus
 9600   Zbezieht sich auf den Textaufbau. Die Lesezeit ist die Standzeit des Textes auf dem Bildschirm.
Der Men{CBM-X}punkt "Test" zeigt das erstellte Video mit allen Parametern. Zum Starten und Beenden der Testphase mu{CBM-V} der Feuerknopf gedr{CBM-X}ckt werden. Mit dem letzten .0  Effekt
-----------
Dieses Men{CBM-X} bildet das Kernst{CBM-X}ck des TBG. Hier befinden sich die Effekte, das Zeichensatz- und das Background-Men{CBM-X}.

4.1  Ein- und Ausblenden
------------------------
Die vorher erstellten Texte werden {CBM-X}ber die verschiedenen Graut{CBM-C}eine Auswahltafel.

6.3  Video-Daten drucken
------------------------
Nach Abfrage, ob die Liste mit oder ohne Daten gedruckt werden soll, werden die Daten von Diskette eingelesen. Dann erscheint die Aufforderung, den Drucker einzuschalten. Nach Dr{CBM-X}cken                Skyfox
      Rettungsaktion im Labyrinth

Etwas Geschick und Fingerspitzengef{CBM-X}hl ben{CBM-C}tigen Sie bei diesem Spiel. Es gilt, ein Flugzeug durch f{CBM-X}nf Levels zu man{CBM-C}vrieren, um einen waghalsigen Wanderer aus einem t{CBM-X}ckischen Labyrinth zu befrei Decke
   oder den Boden ber{CBM-X}hrt,

c) der Skyfox das st{CBM-F}ndig auf- und
   zugehende Tor ber{CBM-X}hrt,

d) der Skyfox mit einer Rakete oder
   einem Felsbrocken kollidiert.

Die Anzahl der Skyfox-Flugzeuge sieht man im Feld "Lives" unter dem Feld "Score".

Der t dem Flugzeug den Wandersmann zu retten, hilfeheischend mit den Armen "wedelt". Dazu gen{CBM-X}gt eine einfache Ber{CBM-X}hrung mit dem Skyfox. Allerdings d{CBM-X}rfen Sie nichts anderes ber{CBM-X}hren, da das Flugzeug sonst explodiert.
Ist die Rettungsaktion gegl{CBM-X}ckt, bekommeegl{CBM-X}ckt ist, explodiert der Skyfox, und ein "Leben" ist verloren.
In den Bildern des Spiels hat der Bonus folgende Werte:

Bildnr.   Bonuswert
-------------------
  1          100
  2          200
  3          100
  4          700
  5          200

Im er
 wesentliche Bedeutung.
M{CBM-C}chte man das Spiel unterbrechen, dr{CBM-X}ckt man einfach kurz (!) die RUN/STOP-Taste. Ein weiterer Druck auf dieselbe Taste startet das Programm wieder.

Punkte:
-------
Der Spieler bekommt w{CBM-F}hrend des Spiels st{CBM-F}ndig einen Punkt zu s     Titelbild-Generator C128
     M{CBM-C}glichkeit oder Utopie?

Der Titelbildgenerator, kurz TBG, ist ein Programm, mit dem Sie Ihren eigenen Videovorspann erzeugen k{CBM-C}nnen. Es bietet neben vier verschiedenen Effekten Zeichens{CBM-F}tze und drei Backgrounds, also en.

Das Spiel "Skyfox" wurde f{CBM-X}r den C64 geschrieben und ist kein Ballerspiel, obwohl der Name darauf schlie{CBM-V}en l{CBM-F}{CBM-V}t. Es wird mit dem Joystick gesteuert und wurde f{CBM-X}r den Ein-Spieler-Modus konzipiert.

Laden von Skyfox:
-----------------
Zum Laden geben
Level:
----------
Im Feld "Level" (unter dem Feld "Lives") sieht man den aktuellen Spielelevel in Form einer einstelligen Zahl. Befindet sich der Spieler im ersten Bild, so zeigt der Level die Zahl "1". Befindet man sich im zweiten Bild, erscheint die Zan Sie einen Bonus von 1000 Punkten. Nach einer kurzen Wartezeit werden Sie dann in den zweiten Level versetzt, in dem Sie wieder - wie bei allen anderen Levels auch - den Wanderer befreien m{CBM-X}ssen.

Steuerung von Skyfox:
---------------------
Gespielt wirsten Bild ist der Bonus sehr knapp bemessen, so da{CBM-V} Anf{CBM-F}nger ihre Schwierigkeiten haben werden, diesen Level zu schaffen. Doch nach einiger Zeit bekommt man {SHIFT--}bung.

Ende des Spiels:
----------------
Das Spiel ist zu Ende, wenn alle "Leben" verbraucht sineiner Gesamtpunktzahl addiert. Hat er einen Level geschafft, erh{CBM-F}lt er einen Bonus von 1000 Punkten. Die Gesamtpunktzahl wird im obersten rechten Feld unter der Schrift "Score" angezeigt.

Anzahl der Flugzeuge ("Leben"):
-------------------------------
ZHintergrundeffekte.

Das, was mit den gro{CBM-V}en Br{CBM-X}dern Amiga 500 und 2000 m{CBM-C}glich ist, die Erzeugung von Videovorsp{CBM-F}nnen, ist jetzt auch mit dem C128 realisierbar. Das Programm TBG ist voll men{CBM-X}gesteuert und wird, bis auf die Texteingabe, ausschlie{CBM-V}lich mi Sie LOAD"SKYFOX",8 ein. Nach einer kurzen Wartezeit starten Sie das Programm mit RUN.
Skyfox l{CBM-F}dt jetzt die Programme PCTR.LVL, INIT.HLP, MAIN.MAP und HELP.HLP automatisch nach und startet das Hauptprogramm nach dem Laden.

Starten von Skyfox:
---------hl "2" und so weiter.
Insgesamt gibt es f{CBM-X}nf verschiedene Levels, also f{CBM-X}nf Bilder.
Der Spieler kommt automatisch in den n{CBM-F}chsten Level, wenn er den unvorsichtigen Ausfl{CBM-X}gler ber{CBM-X}hrt hat. Hat er den f{CBM-X}nften Level geschafft, f{CBM-F}ngt das Spiel nach kurzer Wad mit einem Joystick in Port 2. Der Skyfox kann in alle acht Richtungen gesteuert werden. Er "f{CBM-F}llt" in allen Bildern bei Ruhestellung des Joysticks nach unten. Diese "Erdanziehungskraft"l{CBM-F}{CBM-V}t sich beschleunigen, indem man den Stick nach unten (oder unten
{CBM-I}d. Man sieht dann den Schriftzug "Game Over!" mit der aktuellen Punktzahl. M{CBM-C}chte man zur{CBM-X}ck ins Titelbild, dr{CBM-X}ckt man einfach eine beliebige Taste der Tastatur.-
  1          100
  2          200
  3          100
  4          700
  5          200

Im eru Beginn des Spiels hat man f{CBM-X}nf "Leben" (f{CBM-X}nf Skyfox-Flugzeuge). Sind diese Leben verbraucht, ist das Spiel zu Ende.
Jeweils ein Flugzeug verliert der Spieler, wenn

a) der herabz{CBM-F}hlende Bonus die
   Zahl "000" erreicht hat,

b) der Skyfox die Wand, diet dem Joystick in Port 2 bedient.
Vom Hauptmen{CBM-X} aus k{CBM-C}nnen Sie folgende Men{CBM-X}punkte erreichen:

1.0  Info
---------
Hier werden der Programmautor und die Versionsnummer angezeigt.

2.0  Farbe
----------
Es erfolgt die Auswahl der
verschiedenen Farben:

  ----------
Wenn Sie im Titelbild die Feuertaste des Joysticks (Port 2) dr{CBM-X}cken, beginnt das Spiel. Auf dem Bildschirm erscheint die Schrift "Get Ready!", die nach kurzer Zeit verschwindet. Sie sehen nun das erste von f{CBM-X}nf Bildern.
Ihre Aufgabe ist es, mirtezeit und Gratulation wieder von vorne an.

Der Bonus:
----------
Im untersten rechten Feld steht "Bonus". Darunter befindet sich eine dreistellige Zahl, die mehr oder weniger schnell "abl{CBM-F}uft". Hat die Zahl den Wert "000" erreicht, bevor die Rettung g links oder unten rechts) zieht. Durch Druck auf den Feuerknopf springt der Computer zur "Erdanziehungsroutine", das bedeutet, da{CBM-V} der Skyfox wie bei der Ruhestellung des Joysticks langsam nach unten f{CBM-F}llt. Der Feuerknopf hat somit f{CBM-X}r dieses Spiel keine-----------------
"tR"bitte geben sie die funktion ein.       y = "
2t{$7c}{$fe} 3,3,32,8
rt eingabefenster definieren
At e$"m"e$;
{CBM-@}t input-fragezeichen und                  aufrollen verhindern
{CBM-Z}t a$
{CBM-V}t{CBM-@}{$fe} 0,0,39,24
{CBM--}t{SHIFT-POUND}" eingebefenster l   koordinatensystem zeichnen              --------------------------
2["grafik l{CBM-C}schen (j/n) ?"
<[{CBM-I}{CBM-K}{$f9} a$
J[{CBM-D} a${CBM-R}"j" {CBM-M} {$de} 1,1:{$de} 0:U  a${CBM-W}{CBM-E}"n" {CBM-M}  2210
F[{CBM-L}"koordinatensystem :                     zeichnen / l{CBM-C}schen / hauptmen{CBM-X} (z/l/h)"
P 1: 370
=BX
 t${CBM-R}"b" {CBM-M} "beenden";e$;"l": 808,0: 1,115: 0,47:"ps:  help  gibt die fehlerquelle an !"::U  2660
OB
                                         -------------------                     "taste!"-subroutine                   {CBM-C}schen
{$e3}t{CBM-D}{$fe}%
{$e9}t{CBM-Z}

u{CBM-S} T(a$,"x"){CBM-R}0 {CBM-M} a${CBM-R}"-+@": 1770
u{CBM-U} t{CBM-R}1 {CBM-@} 44
%uB b$
vuL T(a$,b$){CBM-W}{CBM-E}0 {CBM-M} a${CBM-R}"_-@":t{CBM-R}44: extra falsch
^uV t
Hu{$ea}""
u{$f4}"2760 y="a$":rem funktion"
u"goto 1870";
{CBM-@}u{$fe} 0
{CBM-E}u 842,13
{CBM-V}u& 843,13
Ku0 844,13
Wu: 20[{SHIFT-*}{CBM-K}{$f9} b$
{$ed}[J b${CBM-R}"z" {CBM-M} {$e8}:fb{CBM-R}1: 2260

\K b${CBM-R}"l" {CBM-M} {$e8}:fb{CBM-R}0: 2260
!\L b${CBM-R}"h" {CBM-M} {$e8}: 370
,\M 2240
7\T 2280
a\{$de} 370
i\{$e8}{$de} 1
_\{$fc} {CBM-G} u(x){CBM-R}160{CBM-N}10{CBM-D}x
U\ {CBM-G} v(y){CBM-R}100{CBM-Q}10{CBM-D}y
\{$e5} fb,{CBM-G} u({CBM-Q}15),{CBM-G} v(0) {CBM-@} {CBM-G} u(15),{CBM-G} v(0)
{CBM-L}\ x-achse zeichnen
 \${$e5} fb,{CBM-G} u(0)  -------------------
{$e6}B
  1,34,24,"taste!"
{$f2}B
{CBM-K}{$f9} tas$

C{CBM-N}
   1,34,24,"      "
C{CBM-H}

C{CBM-V}
                                         --------                                funktion                                --------
{CBM-N}CH
y{CBM-R}x: funktion
{CBM-A}C{CBM--}

nD"8,3
!vd:      funktion mit tasta-                     turpuffer definieren
'vn{$e8}
.vs{$fe}&
9vx 2760
Wv]" funktion einlesen                       und {CBM-X}berpr{CBM-X}fen
vB{$e7} 5,2
vLx{CBM-R}15
vQx{CBM-R}x{CBM-Q}1
{SHIFT-POUND}vT x{CBM-R}{CBM-Q}15 {CBM-M}  2800
{CBM-J}vV 2760
{SHIFT-+}v funktion zum berechnen
,{CBM-G} v({CBM-Q}10) {CBM-@} {CBM-G} u(0),{CBM-G} v(10)
{$f7}\. y-achse zeichnen
]8 x{CBM-R}{CBM-Q}15 {CBM-@} 15
2]b{$e5} fb,{CBM-G} u(x),{CBM-G} v(.1) {CBM-@} {CBM-G} u(x),{CBM-G} v({CBM-Q}.1)
e]l x-skalierung
m]v x
^]{$60} y{CBM-R}{CBM-Q}10 {CBM-@} 10
]J{$e5} fb,{CBM-G} u(.1),{CBM-G} v(y){CBM-@} {CBM-G} u({CBM-Q}.1),{CBM-G} v(y)
]T y-skalierung
{CBM-I}]{$7e} y
{CBM-N}]{$de} 0
{CBM-A}]
6^{CBM-+}                                                       -----------------------------           {CBM-X}berpr{CBM-X}fung der zahleneingabe           -----------------------------
yD"zl${CBM-R}""
AD,z{CBM-R}0
JD6fp{CBM-R}0
SD@fv{CBM-R}0
Dj""zei$" {CBM-*}";
Dt{CBM-K}{$f9} a$
D^z{CBM-R}z{CBM-N}1
{$e4}DH (a${CBM-R}{CBM-E}"1" {CBM-P} a${CBM-W}{CBM-R}"9" einlesen
{$ea}vv{CBM-R}100{CBM-Q}10{CBM-D}y
{$f9}vu{CBM-R}160{CBM-N}10{CBM-D}x
fw u{CBM-W}0 {CBM-A} u{CBM-E}320 {CBM-A} v{CBM-W}0 {CBM-A} v{CBM-E}200 {CBM-A} (el{CBM-R}2760 {CBM-P} (er{CBM-R}14 {CBM-A} er{CBM-R}15 {CBM-A} er{CBM-R}20)) {CBM-M} 1905
uw{CBM-T}x{CBM-R}x{CBM-N}1:z2{CBM-R}x
w{CBM-+}" x-koordinate f{CBM-X}r ende des               zeichnens der funktion
{CBM-G}w{CBM-R}x{CBM-R}{CBM-Q}15
{CBM-P}w{CBM-C}x{CBM-R}x{CBM-N}1
{SHIFT-@}wF 2760
IwPv{CBM-R}100{CBM-Q}10{CBM-D}y
XwZu{CBM-R}
                           -------                                 e n d e                                 -------
z^{CBM-A}"programm beenden (j/n) ?"
D^{SHIFT-@}{CBM-K}{$f9} a$
{CBM-R}^D a${CBM-R}"j" {CBM-M}  e$"l":{$e8}: 808,0: 1,115: 0,47::U  a${CBM-R}"n" {CBM-M}  390:U  2490
>_N          ) {CBM-A} a${CBM-R}"0" {CBM-M} fv{CBM-R}1:zl${CBM-R}zl${CBM-N}a$:""a$"{CBM-*}";: 2900
(ER fp{CBM-W}{CBM-E}1 {CBM-P} a${CBM-R}"." {CBM-M} fp{CBM-R}1:fv{CBM-R}1:zfp{CBM-R}z:zl${CBM-R}zl${CBM-N}a$:""a$"{CBM-*}";: 2900
AE{$7c} fv{CBM-W}{CBM-E}1 {CBM-P} a${CBM-R}"-" {CBM-M} fv{CBM-R}1:zl${CBM-R}zl${CBM-N}a$:""a$"{CBM-*}";: 2900
E a${CBM-R}r$ {CBM-P} z{CBM-E}1 {CBM-P} zl${CBM-W}{CBM-E}"-" {CBM-P} zl${CBM-W}{CBM-E}"." {CBM-P} zl${CBM-W}{CBM-E}"-." {CBM-M} " ":
{$e8}E z{CBM-E}1 {CBM-P} a${CBM-R}G(20)160{CBM-N}10{CBM-D}x
%x{$e4} u{CBM-W}0 {CBM-A} u{CBM-E}320 {CBM-A} v{CBM-W}0 {CBM-A} v{CBM-E}200 {CBM-A} (el{CBM-R}2760 {CBM-P} (er{CBM-R}14 {CBM-A} er{CBM-R}15 {CBM-A} er{CBM-R}20)) {CBM-M} 1980
4x{$e9}x{CBM-R}x{CBM-Q}1:z1{CBM-R}x
{$7e}x{$ec}" x-koordinate f{CBM-X}r beginn                 des zeichnens der funktion
 x{$ee}zei${CBM-R}"genauigkeit der funktionskurve :        1-20 (20 am besten, dau                               -------------                           fehlerabfrage                           -------------
_X (er{CBM-R}14 {CBM-P} (el{CBM-R}2150 {CBM-A} el{CBM-R}2160 {CBM-A} el{CBM-R}2760)) {CBM-A} er{CBM-R}15 {CBM-A} er{CBM-R}20 {CBM-M} V
_{$e2}  rechenfehler ?
{CBM-W}_{$ec} el{CBM-R}2760 {CBM-P} er{CBM-R}11 {CBM-M} {$fe}
{CBM-F}_{$f1}{$de} 0
{$ea}_{$f6} {CBM-M} z{CBM-R}z{CBM-Q}2:zl${CBM-R}H(zl$,C(zl$){CBM-Q}1): 2990:"{CBM-*} ";: 2900
{$f2}Ez{CBM-R}z{CBM-Q}1
{$fe}E{CBM-@}  2900
F{CBM-S} z{CBM-R}0 {CBM-M} fp{CBM-R}0:fv{CBM-R}0
)F{CBM-U} z{CBM-R}zfp{CBM-Q}1 {CBM-M} fp{CBM-R}0
/FB
LFL"                                         ----------------------------            unzul{CBM-F}ssige funktionsinhalte            --ert aber l{CBM-F}nger)"
{$eb}x{$f8} 2850
{$f8}xs{CBM-R}E(zl$)
y  s{CBM-W}1 {CBM-A} s{CBM-E}20 {CBM-M}  2030
oy""funktionspunkte miteinander verbinden   (j/n) ?"
zy${CBM-K}{$f9} vb$
Vy& vb${CBM-R}"j" {CBM-M} vb{CBM-R}1: 2090
y( vb${CBM-R}"n" {CBM-M} vb{CBM-R}0:U  2084
{$e1}y)                                                 z"die funktion ist falsch formuliert."
3{$60}

"programmende / neueingabe / hauptmen{CBM-X}   (p/n/h) ?     ";
={$60}

{CBM-K}{$f9} t$
D{$60}
 t${CBM-R}"h" {CBM-M} "hauptmen{CBM-X}":{$fe} 1: 370
{CBM-G}{$60}
 t${CBM-R}"p" {CBM-M} "programmende";e$;"l": 808,0: 1,115: 0,47:
{CBM--}{$60}
 t${CBM-R}"n" {CBM-M} "neueing--------------------------
wGV"or","and","not",">","<","=",":",";",",","[","]","@","\","!","#","$","%","&","'","_","f","h","j","k","m","u","v","w","y","z",chr$(34)
{CBM-Q}G "asc","dec","str","len","pot","rclr","rdot","rgr","rreg","rsp","?","spc","tab"
!H{$ea}eichenroutine beginnt
{$e9}y*{$de} 1
{$f7}y4s{CBM-R}1{CBM-Z}(2{CBM-D}s)
z> x{CBM-R}z1 {CBM-@} z2 {SHIFT-POUND} s
zh 2760
%zru{CBM-R}160{CBM-N}10{CBM-D}x
4z\v{CBM-R}100{CBM-Q}10{CBM-D}y
yzF vb{CBM-R}1 {CBM-P} x{CBM-E}z1 {CBM-M} {$e5} 1 {CBM-@} u,v: 2170
DzP{$e5}1,u,v
LzZ x
Vz 530
[                                         --------------------------           abe":{$fe} 1:{$de}(g):V 1650:U  2570
{$e4}{$60}
{$de} 0
{$ef}{$60}(
V 1650
{$f6}{$60}2
{$fe}
)A<
"in zeile"el"ist ein fehler !!!        "
bAf
"fehlercode : "
_Ap
  er;" ";S(er);" error"
Az
"programm beenden / neu starten (b/n) ?"
AD
{CBM-K}{$f9} t$
DAN
 t${CBM-R}"n" {CBM-M} "neustart":{$fe}
U"alles sind (sonder-)zeichen, computerinterne funktionen und buchstaben, die nicht in math. funktionen vorkommen


0
/FB
LFL"                                         ----------------------------            unzul{CBM-F}ssige funktionsinhalte            --{$fd}a@{CBM-*}{$e4}{CBM-*}~a~j{$fd}j{$fd}{$fd}{SHIFT-*}
{$f5}^~
~
~
$_

{CBM-J}@$~


5b
~
~
@~~

~{CBM-X}{CBM-J}~
{CBM-B}~~


~@{CBM-G}@{CBM-J}

~
~
~{$ee}
~~~~~


~
{CBM-*}_$



{CBM-J}j~$
~
{CBM-G}
{CBM-X}

~{CBM-@}~~
~j{CBM-X}j~
~

{CBM-X}_{CBM-B}{CBM-X}~@[~~~
[
~~~~~~~
~~~~{$e5}~{CBM-*}~

~~~~
~
~~
~
~
{CBM-*}~
~~{CBM-*}~~
~
~{CBM-*}~~_
~{SHIFT--}~{CBM-*}
h~{CBM-*}{CBM-*}~
G;;{CBM-I}G
{CBM-I}{CBM-I}

G{CBM-I}{CBM-I}



G;;;



G;;{$ed}



G;;{CBM-I}G
{CBM-I}{CBM-I}

G{CBM-I}{CBM-I}





~~
~
~
~~~
~
~~
~
~
~~{CBM-*}~
^~~~
~
~
~






































































~~~~~~~~~~~~~~~~~~~~~~~~~~~~


































































































































































































































~
~
~
~
~{CBM-G}~

~~
~u~~
~VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeVeV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}VeV(0 bis 360 grad)"

nJ 2850
nTbg{CBM-R}E(zl$)
+n{$7e} bg{CBM-W}0 {CBM-A} bg{CBM-E}360 {CBM-M}  1120
Pnzei${CBM-R}"zeichnen bei welchem winkel beenden     (0 bis 360 grad)"
{$7b}n 2850
nbe{CBM-R}E(zl$)
{CBM-+}n{CBM-+} be{CBM-W}0 {CBM-A} be{CBM-E}360 {CBM-M}  1160
{$eb}n{CBM-A}zei${CBM-R}"figur um welchem winkel drehen          (0 bis 3---------
hxzei${CBM-R}"x-koordinate (-15 bis +15)"
*hB 2850
ehC get-input-subroutine
rhLx{CBM-R}E(zl$)
MhV x{CBM-W}{CBM-Q}15 {CBM-A} x{CBM-E}15 {CBM-M}  600
h{$7b}" werte {CBM-X}berpr{CBM-X}fung von x
{CBM-R}hzei${CBM-R}"y-koordinate (-10 bis +10)"
{CBM-X}h 2850
Jhy{CBM-R}E(zl$)
{$e5}h y{CBM-W}{CBM-Q}10 {CBM-A} y{CBM-E}10 {CBM-M}  640
{$ed}h{CBM-POUND}{$de} 1
~
~~~[~{CBM-*}~~~~~{CBM-*}~
{CBM-G}@~@~
~{CBM-G}~{$7f}{CBM-*}_~
~~~{$7f}{CBM-X}{CBM-B}
~{$7f}@{$7f}{CBM-B}~

~~
_{$eb}
Z{$7f}~{$7f}

{CBM-B}
{CBM-*}{CBM-*}~_
{CBM-X}{CBM-X}j_~_{$e5}~
~
~{$7f}~


{$7f}
~
~{CBM-B}~
_~_ {CBM-@}{CBM-B}~~_~_{CBM-B}~{CBM-G}_{CBM-*}~
~~b_~_{CBM-B}


_~_
{CBM-J}
{CBM-X}@~@~{CBM-B}~{CBM-@}
{CBM-Z}j{CBM-P}
~y {$f7}{$f7}m{CBM-X}y
{$f7}{$f7}L{CBM-G}{$fd}{$f7}b{$fd}{CBM-X}h
{$f7}{CBM-G}@@{SHIFT-POUND}
{CBM-I}
JP{$fa}{CBM-Z}
{CBM-X}{$fd}
T{$f5}~^
~
~
{CBM-Z}

{CBM-Z}@{CBM-B}~
T
 ~T
~T{CBM-Z}
{CBM-P}


























































































~
~
~~
~
~
~
~
~
~
~~
~
~
~
~
~
~
~
{CBM-B}~
~





G

G

G















G

G

G









































~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~eV{SHIFT-+}O{SHIFT-+}OO;;O;;{SHIFT-+}~Q~~~
~Q~~
~
~Q~Q~
~~Q~~~
~Q~Q~
~
~Q~{SHIFT-+}NaPA{CBM-Z}ba{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{$ee}@{CBM-Z}@M
{SHIFT-*}P{SHIFT-POUND}
@{CBM-S}@{CBM-X}0{SHIFT-*}T{CBM-X}\A
T{CBM-X}BT{CBM-X}{CBM-H}CT{CBM-X} DT{CBM-X}FT{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}Tl1{$ea}{$e4}@~x4@@t~Xx~~t~xx@~t~xx{$e4}~
{CBM-*}
~@p~
~
@4@~t~
x@~T~xxT~{$f7}~X4@~t~h
hnen                        ----------------
lpzei${CBM-R}"wieviele ecken soll ihr vieleck haben   ( 3 - 100 )"
wp 2850
Ep(an{CBM-R}E(zl$)
p2 an{CBM-W}3 {CBM-A} an{CBM-E}100 {CBM-M}  1300
Mp<"einblenden des grafik-bildschirms nach  jeder eingabe (j/n) ?"
Xpf{CBM-K}{$f9} ab$
{$f3}pp(zl$)
j x{CBM-W}{CBM-Q}15 {CBM-A} x{CBM-E}15 {CBM-M}  740
:jzei${CBM-R}"y-anfangs-koordinate (-10 bis +10)"
ej 2850
rj y{CBM-R}E(zl$)
Mj* y{CBM-W}{CBM-Q}10 {CBM-A} y{CBM-E}10 {CBM-M}  780
j4zei${CBM-R}"x-end-koordinate (-15 bis +15)"
{CBM-I}j> 2850
{CBM-A}jhx2{CBM-R}E(zl$)
Mjr x2{CBM-W}{CBM-Q}15 {CBM-A} x2{CBM-E}15 {CBM-M}  820
{$f7}j\zei${CBM-R}"y-end-koordinate (
{CBM-B}~T
{SHIFT-*}

{CBM-X}@{CBM-X}

{CBM-Z}U~
{$f5}
~@~
~M{CBM-J}T~~~T{CBM-Z}~~{CBM-X}r{SHIFT-POUND}~
~X{SHIFT-POUND}
{CBM-I}
TJP{$fa}{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}
T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}
T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}ab{SHIFT-POUND}
@{SHIFT-POUND}8{CBM-I}Gx{$60}{$f5}
p

































































G

G

G















G

G

G















G

G

G















G

G

G















G

G

G















G

G

G











~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
{$ef}
~
~.'.'.'+"+""''
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$f7}~WbWf{$f7}fW





















































































































































































































xt~T~@x@~@~@@4D
{$fd}^~{$fd}
~
$_

{CBM-J}@$~

5b
~
~
@~~

~{CBM-X}{CBM-J}~-
{CBM-B}~
~
~@{CBM-J}@{CBM-J}

~
~
~{$ee}
~~~~~


~
{CBM-*}_



{CBM-J}^~$
~
{CBM-J}
{CBM-X}

~{CBM-@}~~
~j{CBM-X}j~~

{CBM-G}_{CBM-B}{CBM-X}{$fd}
{$e5}{CBM-*}aa{$e5}h{$e4}{CBM-*}aa{$f1}jA{CBM-*}a{$fd}@j{$fd}{CBM-*}a{$fd}{$fd}{$e5}{CBM-*}Aa~{CBM-*}@{CBM-*}aa{$fd}j{$e4}j{$e5}a

O~
{CBM-*}{$ef}
~{CBM-*}~~~
@
~a{CBM-*}{CBM-*}A
aaA
~_~A~
{$e4}
,{CBM-G} u(xa),{CBM-G} v(ya)
{$fc}q{CBM-V} ty{CBM-R}2 {CBM-@} an
rH f{CBM-R}1 {CBM-M} {$e8}:{$de} 1: 2710:{$de} 0
grRzei${CBM-R}D(ty){CBM-N}". x-koordinate (-15 bis +15)"
rr{CBM--} 2850
{$60}r{$e6}xn{CBM-R}E(zl$)
{$7e}r{$f0} xn{CBM-W}{CBM-Q}15 {CBM-A} xn{CBM-E}15 {CBM-M}  1490
{CBM-D}r{$fa}zei${CBM-R}D(ty){CBM-N}". y-koordinate (-10 bis +10)"
{CBM-Y}r 2850
Eryn{CBM-R}E(zl$)
{$e3}r yn{CBM-W}{CBM-Q}10 {CBM-A} yn{CBM-E}10             --------------
el{SHIFT-*}zei${CBM-R}"x-koordinate des kreismittelpunktes     (-15 bis +15)"
plJ 2850
^lTxm{CBM-R}E(zl$)
{$7b}l{$de} xm{CBM-W}{CBM-Q}15 {CBM-A} xm{CBM-E}15 {CBM-M}  960
{CBM-X}l{$e8}zei${CBM-R}"y-koordinate des kreismittelpunktes     (-10 bis +10)"
Hl{$f2} 2850
Vl{$fc}ym{CBM-R}E(zl$)
{$f4}l ym{CBM-W}{CBM-Q}10 {CBM-A}

























~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'"'''+.'.'.'+"+""'''"'''+.'.'.'+"+""'''"'''+.'.'.'+"+""'''"'''+.'.'.'+"+""'''"'''+.'.'.'+"+""'''"'''+.'.'.'+"+""'''"'''+.'.'.'+"+""'''"'''+
~
~
~
~
~
~
~
~
~ym{CBM-E}10 {CBM-M}  1000
mzei${CBM-R}"waagrechter radius (0 bis 30)"
(m 2850
6m$xr{CBM-R}E(zl$)
rm. xr{CBM-W}0 {CBM-A} xr{CBM-E}30 {CBM-M}  1040
{$7b}m8zei${CBM-R}"senkrechter radius (0 bis 20)"
mb 2850
mlyr{CBM-R}E(zl$)
{CBM-A}mv yr{CBM-W}0 {CBM-A} yr{CBM-E}20 {CBM-M}  1080
{$f5}m{$60}zei${CBM-R}"beginn des zeichnens bei welchem winkel 6^$i{CBM-R}1{CBM-@}((h2{CBM-Q}h1){CBM-N}1){CBM-D}4{CBM-N}9:5,"-";::5,G(10);
{$e4}6C$i{CBM-R}1{CBM-@}5:5,G(32);:
{$fe}6H$i{CBM-R}h1{CBM-N}1{CBM-@}h2{CBM-N}1:kl${CBM-R}D(i)
 7R$kl${CBM-R}I(kl$,C(kl$){CBM-Q}1):xc{CBM-R}C(kl$)
j7{$7c}$xc{CBM-R}1{CBM-M}kl${CBM-R}G(32){CBM-N}G(32){CBM-N}kl${CBM-N}G(32):9370
N7$xc{CBM-R}2{CBM-M}kl${CBM-R}G(32){CBM-N}kl${CBM-N}G(32):9370
7$kl${CBM-R}kl${CBM-N}G(32)
{CBM-N}7$gh{CBM-R}gh{CBM-N}1:gh{CBM-R}k3{CBM-N}1{CBM-M}5,G(32);G0{CBM-@}16:781,e:59903::ze{CBM-R}0:""
U/{$f4}i
{$ec}/{$fe}"fertig.":90:
{$f2}/'#:
0(# drucken / ende

0)#:
/02#"";{CBM-T}10)"(d)rucken / (e)nde"
u07#{CBM-T}8)"==========================="
S0<#80:a${CBM-W}{CBM-E}"d"{CBM-P}a${CBM-W}{CBM-E}"e"{CBM-M}9020
0f#a${CBM-R}"d"{CBM-M}9050
0p#808,237:
{SHIFT-POUND}0z# melodie drucken
F0_#+49200,49500,49800,50100,50400,50700
Y:+ daten fuer windows
;+ wellenformen,------------,17 = dreieck,33 = saegezahn
7; +65 = rechteck,129 = rauschen
R;*+pulsform,--------,werte von 0-15,l-byte=niederwert. -
;4+h-byte=hoeherwert. -,byte
Q;>+a:800:"";:5,4:5,G(14);
{$ee}3#i{CBM-R}1{CBM-@}(40{CBM-Q}(C(k1$))){CBM-Z}2:5,G(32);::5,k1$
!4 #i{CBM-R}1{CBM-@}40:5,"=";::5,G(15);:i{CBM-R}1{CBM-@}3:5,G(13);:
04{CBM-N}#h1{CBM-R}0:h2{CBM-R}15
h4{CBM-P}#a1{CBM-W}h2{CBM-M}h2{CBM-R}a1{CBM-Q}1:dc{CBM-R}1
y4{CBM-H}#a3{CBM-R}f1{CBM-@}f2{SHIFT-POUND}f3
N4{CBM-O}#5,a3;") ";:t3{CBM-R}0
{$7b}4{CBM-V}#i{CBM-R}h1{CBM-@}h2
4H#r{CBM-R}0{CBM-@}7
4R#t{CBM-R}0{CBM-@}12
{CBM-U}4{CBM--}#w1{CBM-R}B(va(a3,1){CBM-N}i
{$ee}e=loescht das file name"
{$eb}>T+v!=validatieren der diskette,i!=initialisieren der diskette
-?{$de}+druecken sie <f1>,um den druckvorgang zu,unterbrechen. bitte
{$7c}?{$e8}+haben sie etwas geduld,der computer und der,drucker leisten harte arbeit.


ne note zurueck
J
{$ee}e=loescht das file name"
{$eb}>T+v!=validatieren der diskette,i!=initialisieren der diskette
-?{$de}+druecken sie <f1>,um den druckvorgang zu,unterbrechen. bitte
{$7c}?{$e8}+haben sie etwas geduld,der computer und der,drucker leisten harte arbeit.


ne note zurueck
J(32);:gh{CBM-R}1
C7{CBM-@}$5,kl$;:i:5,G(13);
U7{CBM-S}$h3{CBM-R}h1:h1{CBM-R}h2{CBM-N}1
{$f3}7{CBM-U}$h2{CBM-R}h2{CBM-N}(h2{CBM-Q}h3){CBM-N}1:gh{CBM-R}0:t3{CBM-R}0
8B$dc{CBM-R}1{CBM-M}dc{CBM-R}0:9440
8L$h2{CBM-E}{CBM-R}a1{CBM-M}h2{CBM-R}a1:dc{CBM-R}1
38V$5,G(10);:9140
m8 $5,G(13);G(13);G(15);
{$7f}8{$ea}$f$(1){CBM-R}"composer v3.0 (c) 1986 bei d.borchert"
{CBM-I}8{$f4}$f$(2){CBM-R}k1${CBM-N}" (c) 1986 bei "
a1{CBM-R}B(49152):a1{CBM-R}0{CBM-M}a1{CBM-R}255
{$f4}0D#"bitte geben sie den namen ein :":k1$
1E#C(k1$){CBM-E}40{CBM-M}"name zu lang.":90:9060
@1F#"copyright bei wem ":k2$
K1G#C(k2$){CBM-E}60{CBM-M}"name zu lang.":90:9062
 1H#"achtelnoten pro takt (4-12) ";:k3$:k3{CBM-R}E(k3$)
{CBM-J}1I#k3{CBM-W}2{CBM-A}knschlag/abschwellen,--------------------,,bitte nur werte
{$e8};h+von 0-15,eingeben
4<r+halten/ausklingen,-----------------,,nur werte,von 0-15,sind zulaessig
J<\+---------------------,lautstaerke,werte von 0-15
{CBM-@}<F+---------------------,geschwindigkeit,):w2{CBM-R}B(va(a3,2){CBM-N}i)
M4{$e6}#w1{CBM-R}hn(r,t){CBM-M}gg{CBM-R}1
{$f9}4{$e7}#w2{CBM-R}ln(r,t){CBM-Q}2{CBM-P}gg{CBM-R}1{CBM-M}gg{CBM-R}0:t1{CBM-R}t:t2{CBM-R}r:9230
%5{$e8}#w2{CBM-R}ln(r,t){CBM-Q}1{CBM-P}gg{CBM-R}1{CBM-M}gg{CBM-R}0:t1{CBM-R}t:t2{CBM-R}r:9230
q5{$e9}#w2{CBM-R}ln(r,t){CBM-N}1{CBM-P}gg{CBM-R}1{CBM-M}gg{CBM-R}0:t1{CBM-R}t:t2{CBM-R}r:9230
{$7d}5{$ea}#w2{CBM-R}ln(r,t){CBM-N}2{CBM-P}gg{CBM-R}1{CBM-M}gg{CBM-R}0:t1{CBM-R}t:t2{CBM-R}r:9230
{CBM-M}5{$f0}#w2{CBM-R}ln(r,t){CBM-P}gg{CBM-R}1{CBM-M}gg{CBM-R}0:t1{CBM-R}t:t2{CBM-R}r:9werte von 4-32
{$ec}<P+anzahl der noten,---------------,,eingaben von,0-256,sind moeglich
$=Z+(cursortasten)=note aussuchen,(funkt.tasten)=dauer
x=+(n)=eine note vor,(v)=naechste stimme eingeben
=+(shift-home)=zurueck zum menue,(_)=eine note zurueck
J
{SHIFT-*}






a!!
Q@{$f0}@{CBM-*}@  O
O
{CBM-*}
{CBM-*}
O
O
{CBM-*}
{CBM-*}
O
O
{CBM-*}
{CBM-*}
O
M













































{CBM-N}k2$
{CBM-Z}8{$fe}$i{CBM-R}1{CBM-@}2
{$de}8%j{CBM-R}1{CBM-@}(80{CBM-Q}C(f$(i))){CBM-Z}2:5,G(32);::5,f$(i):i
{$fb}8%i{CBM-R}1{CBM-@}3:f1(i){CBM-R}0::5: 5:
9':
'9' lese-und schreibfehler abfangen
-9':
d9'"";c;" ";c$
T9'"sie koennen diesen namen nicht benutzen"
9$'"(m) zurueck ins hauptmenue"
{CBM-Y}9.'3{CBM-E}12{CBM-M}9064
{$e6}1J#"welche stimme sollen gedruckt werden   ?"
2K#"stimme 1 (j/n) ?":80:a${CBM-W}{CBM-E}"j"{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}9066
,2L#a${CBM-R}"j"{CBM-M}f1(1){CBM-R}1
A2M#"stimme 2 (j/n) ?":80:a${CBM-W}{CBM-E}"j"{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}9069
U2N#a${CBM-R}"j"{CBM-M}f1(2){CBM-R}1
{CBM-N}2O#"stimme 3 (j/n) ?":80:a${CBM-W}{CBM-E}"j"{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}9071werte von 4-32
{$ec}<P+anzahl der noten,---------------,,eingaben von,0-256,sind moeglich
$=Z+(cursortasten)=note aussuchen,(funkt.tasten)=dauer
x=+(n)=eine note vor,(v)=naechste stimme eingeben
=+(shift-home)=zurueck zum menue,(_)=eine note zurueck
J
230
{CBM-B}5{$f5}#{CBM-K}a$:a${CBM-R}""{CBM-M}5: 5:
F5{$fa}#t
M5$r
{$f2}5$da$(t1){CBM-R}"pause"{CBM-M}jn${CBM-R}"pau":9260
6$jn${CBM-R}da$(t1){CBM-N}D(t2):jn${CBM-R}H(jn$,2){CBM-N}I(jn$,1)
p6"$J(jn$,2,1){CBM-R}G(32){CBM-M}jn${CBM-R}H(jn$,1){CBM-N}I(jn$,1){CBM-N}G(32)
B6,$5,jn$;G(32);
66$t3{CBM-R}t3{CBM-N}1:t3{CBM-R}k3{CBM-M}5,"{SHIFT--} ";:t3{CBM-R}0
6@$i
6j$5,G(10);
 6t$a3
M=+bitte einen moment geduld.,die musikstuecke werden
>{CBM-I}+absolut auf diskette/kassette,geschrieben. deshalb
 >{CBM-D}+dauert es etwas laenger,
l>{CBM-L}+bitte haben sie,einen moment,geduld,,,
P>{SHIFT-*}+diskettenbefehle,q!=hauptmenue
{CBM-N}>J+$!=inhaltsverzeichnis,"s!nam















{CBM-*}
~
o
n
{CBM-*}
{CBM-*}
o
o
{CBM-*}
{CBM-*}
o
O
{CBM-*}
~
o
o
{CBM-*}
{CBM-*}
o
o
~
o

;
;;;{$ed}{$ed}GGGG
{CBM-I}GGGG
GG




;
;;;{$ed}{$ed}GGGG{CBM-I}







;
;;;{$ed}{$ed}GGGG
{CBM-I}GG
GGGG
G;

;
;;;


G;;;



G;;{CBM-I}G



"(n) noch ein versuch   "
{CBM-B}98'80
M9b'a${CBM-R}"m"{CBM-M}
{$e3}9l'a${CBM-R}"n"{CBM-P}mp{CBM-R}1{CBM-M}1000
{$f9}9v'a${CBM-R}"n"{CBM-P}mp{CBM-R}2{CBM-M}2000
:['a${CBM-R}"n"{CBM-P}mp{CBM-R}8{CBM-M}8000
:{$60}'10040
 :{$f7}*:
d:{$f8}* daten von noten und zehldauer
j:{$f9}*:
R:{$fd}*c,#c,d,#d,e,f,#f,g,#g,a,#a,h,pause
:+1/1,7/8,3/4,5/8,1/2,3/8,1/4,1/8
{SHIFT-*}:
{CBM-V}2P#a${CBM-R}"j"{CBM-M}f1(3){CBM-R}1
{$f0}2X#f1(1){CBM-R}1{CBM-P}f1(2){CBM-R}1{CBM-P}f1(3){CBM-R}1{CBM-M}f1{CBM-R}1:f2{CBM-R}3:f3{CBM-R}1:9100
3Y#f1(1){CBM-R}1{CBM-P}f1(2){CBM-R}1{CBM-M}f1{CBM-R}1:f2{CBM-R}2:f3{CBM-R}1:9100
d3Z#f1(2){CBM-R}1{CBM-P}f1(3){CBM-R}1{CBM-M}f1{CBM-R}2:f2{CBM-R}3:f3{CBM-R}1:9100
N3{$7b}#f1(1){CBM-R}1{CBM-P}f1(3){CBM-R}1{CBM-M}f1{CBM-R}1:f2{CBM-R}3:f3{CBM-R}2:9100
3{$7c}#i{CBM-R}1{CBM-@}3:f1(i){CBM-R}1{CBM-M}f1{CBM-R}i:f2{CBM-R}i:f3{CBM-R}1:9100
3{$7d}#i
B3#cc{CBM-R}11=+bitte einen moment geduld.,die musikstuecke werden
>{CBM-I}+absolut auf diskette/kassette,geschrieben. deshalb
 >{CBM-D}+dauert es etwas laenger,
l>{CBM-L}+bitte haben sie,einen moment,geduld,,,
P>{SHIFT-*}+diskettenbefehle,q!=hauptmenue
{CBM-N}>J+$!=inhaltsverzeichnis,"s!nam
n loeschen  /  (t)eile kopieren"
"{$7f}"======================================"
""80
3"a${CBM-R}"n"{CBM-M}6100
d"a${CBM-R}"t"{CBM-M}6300
n"{CBM-I}6020
N"Tcc{CBM-R}9:500:54296,0:"";
"{$de}i{CBM-R}49200{CBM-@}50999:i,0::700:"";:90:
{CBM-Y}"i{CBM-R}3{CBM-@}24:781,i:59903:
{$e1}"{CBM-K}"kopieren
(3){CBM-D}16
{$fa}f(5){CBM-R}{CBM-J}(B(49168){CBM-Z}16):f(6){CBM-R}B(49168){CBM-Q}f(5){CBM-D}16
,
"stimme 1 :";f(1),f(2)
i
"stimme 2 :";f(3),f(4)
F
"stimme 3 :";f(5),f(6)

"anschlag:";:a1$:a1{CBM-R}E(a1$)
{CBM-@}%
a1{CBM-W}0{CBM-A}a1{CBM-E}15{CBM-M}600:3360
I*
"abschwellen:";:a2$:a2{CBM-R}E(a2$)
{$e4}/
a2{CBM-W}0{CBM-A}a2{CBM-E}1
03:"";
{$ed}%Ien{CBM-R}256{CBM-M}49152,0:7020
{$fb}%J49152,en
&Li{CBM-R}0{CBM-@}12:{CBM-T}2)da$(i):
:&V" note ^":y1{CBM-R}14:no{CBM-R}8:cc{CBM-R}7:800
K&199,0:z,9:s,5:cs:"oktave :";:199,1:ok
&z,22:s,5:cs:"laenge :";:199,1:d$(da)
{CBM-P}&n1${CBM-R}D(n1{CBM-N}1){CBM-N}"  "
{$e3}&z,9:s,7:cs:
{CBM-I}
600:3480
{CBM-D}
i{CBM-R}2{CBM-@}19:781,i:59903::cc{CBM-R}5:500
&{CBM-L}
"lautstaerke: ";B(49153)
i{SHIFT-*}
"neue lautstaerke : ";:lo$
LE
E(lo$){CBM-W}0{CBM-A}E(lo$){CBM-E}15{CBM-M}600:3520
{$7e}J
49153,E(lo$)
{CBM-K}T
"geschwindigkeit:";B(49154)
F{$de}
"neue geschwindigkeit:";:sp$
{$e9}{$e3}
E(sp

no{CBM-E}12{CBM-M}no{CBM-R}12:y1{CBM-R}y1{CBM-Q}1
{$fa})4z,2:s,y1:cs:199,1:da$(no):7060
*lvf{CBM-R}9{CBM-Q}da
*Al1{CBM-R}ok:l2{CBM-R}no:l3{CBM-R}da
z*Ji{CBM-R}0{CBM-@}vf:va(vo,1){CBM-N}n1{CBM-N}i,hn(ok,no):va(vo,2){CBM-N}n1{CBM-N}i,ln(ok,no)
{$60}*K
M*Tn1{CBM-R}n1{CBM-N}vf
{$7e}*n1{CBM-E}{CBM-R}en{CBM-M}7800
*7040
*Xvo{CBM-R}vo{CBM-N}1:vo{CBM-R}4{CBM-M}
K*n1{CBM-R}0:z,9:s,11:cs:"
sverzeichnis
{$e4},""{CBM-+}6)"inhaltsverzeichnis"
{$fd},5,8,0,"$":{CBM-K}#5,a$,a$
 -{CBM-K}#5,a$,a$:st{CBM-R}64{CBM-M} 5:90:"":
j-{CBM-K}#5,a$,b$:F(a${CBM-N}G(0)){CBM-N}256{CBM-D}F(b${CBM-N}G(0));
G-{CBM-K}#5,a$:a$;:a${CBM-W}{CBM-E}""{CBM-M}8075
S-:8073
-2,co$: 2
{CBM-P}-15,8,15:15,c,c$:c${CBM-W}{CBM-E}"ok"{CBM-M} 2: 15:10000
{SHIFT-*}-
 von :";:h1$:h1{CBM-R}E(h1$)
{$f7}"{CBM-I}h1{CBM-W}0{CBM-A}h1{CBM-E}256{CBM-M}6305
#{CBM-+}"bis          :";:h2$:h2{CBM-R}E(h2$)
b#{CBM-Q}h2{CBM-W}0{CBM-A}h2{CBM-E}256{CBM-A}h2{CBM-W}h1{CBM-M}:600:6310
L#{CBM-A}"neuer anfang :";:h3$:h3{CBM-R}E(h3$){CBM-Q}1
#{CBM-J}h3{CBM-W}0{CBM-A}h3{CBM-E}256{CBM-M}600:6320
{CBM-P}#{SHIFT-@}"welche stimme:";:h4$:h4{CBM-R}E(h4$)
K#{CBM-B}h4{CBM-W}0{CBM-A}h4{CBM-E}3{CBM-M}:600:6

5{CBM-M}600:3370
{$f4}0
a3{CBM-R}a1{CBM-D}16{CBM-N}a2
4
"welche stimme :";:80:a4{CBM-R}E(a$):a$
=5
a4{CBM-R}1{CBM-M}49164,a3:90:3000
[6
a4{CBM-R}2{CBM-M}49166,a3:90:3000
Y7
a4{CBM-R}3{CBM-M}49168,a3:90:3000
>
600:3380
{CBM-S}h
i{CBM-R}2{CBM-@}19:781,i:59903::cc{CBM-R}4:500
Mr
"halten / ausklingen"
{$fb}\
f(1)
"note nr.:";:199,1::n1$:199,0
'z,9:s,9:cs:"stimme nr.:";:199,1:vo
-'n2${CBM-R}da$(l2){CBM-N}D(l1){CBM-N}"    "
w'z,9:s,11:cs:"letzte note :";:n2$
'z,9:s,13:cs:"letzte dauer :";d$(l3)
{CBM-W}'z,9:s,15:cs:"(return)=note uebernehmen"
{CBM-X}'a${CBM-R}""
E'
$){CBM-W}4{CBM-A}E(sp$){CBM-E}32{CBM-M}600:3550
 {$e4}
49154,E(sp$):3000
 52000:3000
% T54296,0:3000
k Xi{CBM-R}2{CBM-@}22:781,i:59903::cc{CBM-R}6:500
U {$e2}"anzahl der 1/8 noten:";B(49152)
 {$ec}"neue anzahl :";:nv$:nv{CBM-R}E(nv$)
{CBM-Z} {$ed}nv{CBM-R}256{CBM-M}nv{CBM-R}0
I {$ee}nv{CBM-E}256{CBM-A}nv{CBM-W}0{CBM-M}600:3820
{SHIFT--} {$f2}
         ";:7040
{$e4}*{CBM--}n1{CBM-R}n1{CBM-Q}vf:n1{CBM-W}{CBM-R}0{CBM-M}n1{CBM-R}0
{$ee}*{$e6}7040
{$f4}*?:
+@ floppybefehl / noten zeigen
+a:
w+bmp{CBM-R}8:""{CBM-T}2)"(f)loppybefehl / (n)oten zeigen":54296,0
_+c80
P+da${CBM-R}"f"{CBM-M}8020
+ea${CBM-R}"n"{CBM-M}8100
+j8003
{CBM-V}+tcc{CBM-R}10:800: 2,15:2,8,15:"befehl :"
 2: 15:8020
Q-{CBM-@} show notes
~-{SHIFT-POUND}"von note nummer:";:a1$:a1{CBM-R}E(a1$){CBM-Q}1
.{CBM-N}a1{CBM-W}0{CBM-A}a1{CBM-E}255{CBM-M}8105
<.{CBM-S}"bis note nr.";:a2$:a2{CBM-R}E(a2$){CBM-Q}1
{$60}.{CBM-W}a2{CBM-W}0{CBM-A}a2{CBM-W}a1{CBM-A}a2{CBM-E}255{CBM-M}:600:8110
.{CBM-U}"welche stimme:";:80:a$:a3{CBM-R}E(a$)
{CBM-@}.Ba3{CBM-W}1{CBM-A}a3{CBM-E}3{CBM-M}600:8120
A.V"":ze{CBM-R}0
330
{$f0}#Dh5{CBM-R}h3{CBM-N}(h2{CBM-Q}h1):h6{CBM-R}h5{CBM-Q}h3:cc{CBM-R}9:500
{$fc}#Ei{CBM-R}0{CBM-@}h6
"$Fva(h4,1){CBM-N}h3{CBM-N}i,B(va(h4,1){CBM-N}h1{CBM-N}i{CBM-Q}1)
h$Gva(h4,2){CBM-N}h3{CBM-N}i,B(va(h4,2){CBM-N}h1{CBM-N}i{CBM-Q}1)
n$H
{$7b}$N700:z,3:s,13:cs:"noch einmal ?":80
$Oa${CBM-R}"j"{CBM-M}6360
$Pa${CBM-R}"n"{CBM-M}
{CBM-@}$Q6350
{CBM-*}$X"";(h1);"-";(h2);" neuer an
{CBM-R}{CBM-J}(B(49165){CBM-Z}16):f(2){CBM-R}B(49165){CBM-Q}f(1){CBM-D}16
)]
f(3){CBM-R}{CBM-J}(B(49167){CBM-Z}16):f(4){CBM-R}B(49167){CBM-Q}f(3){CBM-D}16
w^
f(5){CBM-R}{CBM-J}(B(49169){CBM-Z}16):f(6){CBM-R}B(49169){CBM-Q}f(5){CBM-D}16
UF
"stimme 1 :";f(1),f(2)
P
"stimme 2 :";f(3),f(4)
{CBM-P}Z
"stimme 3 :";f(5),f(6)
R
"halten  :";:a1$:a1{CBM-R}E(a1$)
{$ed}
80
V'a${CBM-R}""{CBM-M}7100
{$e7}'a${CBM-R}""{CBM-M}7200
( a${CBM-E}"0"{CBM-P}a${CBM-W}"9"{CBM-M}ok{CBM-R}E(a$)
({CBM-K}a${CBM-R}""{CBM-M}da{CBM-R}8
%({CBM-I}a${CBM-R}""{CBM-M}da{CBM-R}7
6({CBM-T}a${CBM-R}""{CBM-M}da{CBM-R}6
g({CBM-@}a${CBM-R}""{CBM-M}da{CBM-R}5
x({CBM-G}a${CBM-R}""{CBM-M}da{CBM-R}4
I({CBM-+}a${CBM-R}""{CBM-M}da{CBM-R}3
Z({CBM-M}a${CBM-R}""{CBM-M}da{CBM-R}2
({CBM-POUND}a${CBM-R}""{CBM-M}da{CBM-R}1
({CBM-Z}a${CBM-R}G(13){CBM-M}7500
{CBM-U}({CBM-S}a${CBM-R}"_"{CBM-M}vf{CBM-R}9{CBM-Q}da:7900
F({CBM-P}

49152,nv:3000
{$e3} <
{$e9} :

!  musik anschalten
!{CBM-K}:
6!{CBM-I}56334,0:788,56:789,199:56334,1:52000:
<!:
t! musik ausschalten
z!:
!56334,0:788,49:789,234:56334,1:54296,0:
!O:
{CBM-U}!P noten loeschen / teile kopieren
{CBM-V}!Q:
{$ec}!Z"(n)ote
;:co$
{$e3}+Hi{CBM-R}1{CBM-@}C(co$):J(co$,i,1){CBM-R}"!"{CBM-M}8050
{$e9}+I
{$f3}+J8065
,Rco${CBM-R}H(co$,i{CBM-Q}1){CBM-N}":"{CBM-N}I(co$,C(co$){CBM-Q}i)
<,W"haben sie sich vertippt ?"
q,{$7c}80:a${CBM-R}"j"{CBM-M}8079
A,co${CBM-R}"q:"{CBM-M}
,co${CBM-R}"v:"{CBM-A}co${CBM-R}"i:"{CBM-A}H(co$,2){CBM-R}"s:"{CBM-M}8078
,co${CBM-R}"$:"{CBM-M}8071
{SHIFT-POUND},8079
B, inhalt:cc{CBM-R}9:500:""
N. i{CBM-R}a1{CBM-@}a2
Y.{$ea}r{CBM-R}0{CBM-@}7
/{$eb}t{CBM-R}0{CBM-@}12:w1{CBM-R}B(va(a3,1){CBM-N}i):w2{CBM-R}B(va(a3,2){CBM-N}i)
/{$ec}w1{CBM-R}hn(r,t){CBM-M}gg{CBM-R}1
a/{$ed}w2{CBM-R}ln(r,t){CBM-P}gg{CBM-R}1{CBM-M}t1{CBM-R}t:t2{CBM-R}r:8176
h/{$ee}t
o/{$ef}r
/{$f0}i{CBM-N}1;"  note:";da$(t1);:{CBM-T}20);"oktave:";t2:gg{CBM-R}0:ze{CBM-R}ze{CBM-N}1
/{$f1}{CBM-K}a$:a${CBM-R}""{CBM-M}
N/{$f2}ze{CBM-E}13{CBM-M}90:e{CBM-R}
fang:";h3{CBM-N}1;" stimme:";h4
{$e9}${$e2}6300
{$ef}$w:
%x neue melodie entwerfen
%y:
7%z""{CBM-T}8)"neue melodie entwerfen "
\%B{CBM-T}7)"========================"
%Dn1{CBM-R}0:vo{CBM-R}1:l3{CBM-R}0:l2{CBM-R}0:l1{CBM-R}0:54296,0
{CBM-H}%G"anzahl der 1/8-noten :";:en$:en{CBM-R}E(en$)
R%H781,3:599

a1{CBM-W}0{CBM-A}a1{CBM-E}15{CBM-M}600:3460

"ausklingen:";:a2$:a2{CBM-R}E(a2$):a3{CBM-R}a1{CBM-D}16{CBM-N}a2:
:
a2{CBM-W}0{CBM-A}a2{CBM-E}15{CBM-M}600:3470
j
a3{CBM-R}a1{CBM-D}16{CBM-N}a2
U
"welche stimme :";:80:a4{CBM-R}E(a$):a$

a4{CBM-R}1{CBM-M}49165,a3:90:3000
{CBM-E}
a4{CBM-R}2{CBM-M}49167,a3:90:3000
O
a4{CBM-R}3{CBM-M}49169,a3:90:3000
{$de}
a${CBM-R}""{CBM-M}
{$e7}({CBM-A}a${CBM-R}"v"{CBM-M}vo{CBM-R}vo{CBM-N}1:n1{CBM-R}0:vo{CBM-R}4{CBM-M}

){CBM-E}a${CBM-R}"n"{CBM-M}n1{CBM-R}n1{CBM-N}(9{CBM-Q}da)

){CBM-R}7040
-){CBM-C}199,0:z,2:s,y1:cs:da$(no)
a)Fno{CBM-R}no{CBM-Q}1:y1{CBM-R}y1{CBM-Q}1
x)Gno{CBM-W}0{CBM-M}no{CBM-R}0:y1{CBM-R}y1{CBM-N}1
)Pz,2:s,y1:cs:199,1:da$(no):7060
{CBM-@}) 199,0:z,2:s,y1:cs:da$(no)
{CBM-U})*no{CBM-R}no{CBM-N}1:y1{CBM-R}y1{CBM-N}1
Q)+
{CBM-K}gn$:gn${CBM-R}""{CBM-M}15
*

gn{CBM-R}E(gn$):gn{CBM-W}{CBM-E}1{CBM-P}gn{CBM-W}{CBM-E}8{CBM-M}15
n

"bitte einen moment geduld !"
T

i{CBM-R}0{CBM-@}12:da$(i)::i{CBM-R}1{CBM-@}8:d$(i):


i{CBM-R}1{CBM-@}3:va(i,1),va(i,2):
A

i{CBM-R}1{CBM-@}11:j{CBM-R}1{CBM-@}6:wx$(i,j):::G(8);G(142);
~

808,225: erst eingeben,wenn programm einwandfrei lt u n g :",1
{CBM-G}sj{$f6}{$e7}1,8
tt{$f6}:"das programm merkur simuliert ein geld- spielgeraet,wie es in fast jedem lokal  an der wand haengt."
nt^{$f6}:"nach der wahl des startkapitals beginnt das spiel."
 tH{$f6}"die erste walze kann bei nichtgefallen  mit >f1< nachgest
""{CBM-T}8)"4) melodie spielen
.{CBM-N}
""{CBM-T}8)"5) melodie stoppen
x{CBM-H}
""{CBM-T}8)"6) loeschen / teile kopieren"
{$7d}{CBM-V}
""{CBM-T}8)"7) neue melodie eingeben
{CBM-POUND}H
""{CBM-T}8)"8) noten zeigen / floppybefehl
HM
""{CBM-T}8)"9) drucken / ende";
PR
80
{CBM--}
a{CBM-R}E(a$):a1000,2000,3000,400 wurde gespeichert."
{$ee}90
{$f8}
{CBM-Y}:
%{CBM-U} parameter setzen
+{CBM-O}:
b{CBM-X}""{CBM-T}12)"parameter
zB{CBM-T}11)"============"
OL"1) wellenform
V"2) pulsform
{CBM-T} "3) anschlag / abschwellen
A{$ea}"4) halten / ausklingen
{$e8}{$f4}"5) lautstarke / geschwindig
von musikstuecken
{$e9}:
+{$ea}mp{CBM-R}1:"filename eingeben :"{CBM-+}25);
g{$ed}54296,0:fi$:cc{CBM-R}9:500
{$60}{$ee}fi${CBM-R}"$"{CBM-M}8070:1000
{$f2}(57812)""{CBM-N}fi${CBM-N}"",gn,1:780,0:65493:700
{$f4}gn{CBM-R}1{CBM-M}1030
P{$fc}15,8,15:15,c,c$:c${CBM-W}{CBM-E}"ok"{CBM-M} 15:10000n w{CBM-A}den.
{$fd} 15:"die melo

na1{CBM-R}2{CBM-M}49162,wa:49171,wa{CBM-Q}1:90:3000
4xa1{CBM-R}3{CBM-M}49163,wa:49172,wa{CBM-Q}1:90:3000
cB600:3130
Ii{CBM-R}2{CBM-@}19:781,i:59903::cc{CBM-R}2:500
{$7f}"pulsform :"
{CBM-G}"stimme 1: ";B(49155),B(49156)
J"stimme 2: ";B(49157),B(49158)
{$ef}{CBM-POUND}"stimme 3: ";aeuft
,
n1{CBM-R}0:vo{CBM-R}1:da{CBM-R}1:ok{CBM-R}4:z{CBM-R}211:s{CBM-R}214:cs{CBM-R}58732
h
 frequenzen definieren
v
fr{CBM-R}262.89
B
t{CBM-R}8{CBM-M}70

no(t,nr){CBM-R}fr{CBM-D}1.0594631:hn(t,nr){CBM-R}{CBM-J}(no(t,nr){CBM-Z}256)
{CBM-X}
ln(t,nr){CBM-R}{CBM-J}(no(t,nr){CBM-Q}hn(t,nr){CBM-D}256){CBM-Q}1
U-
fr{CBM-R}no(t,nr):nr{CBM-R}nr{CBM-N}1
{$eb}2
nr{CBM-R}12{CBM-M}t{CBM-R}t{CBM-N}1:nr{CBM-R}0
{$f3}<
25
f

artet, die beiden"
{$e7}tR{$f6}"anderen walzen koennen mit >f3< vor -   zeitig gestoppt werden."
gu{$7c}{$f6}:"ein gewinn erfolgt bei drei gleichen be-traegen oder bei merkur auf der dritten walze."
Hu{$f6}:"befindet sich auf jeder walze mind. ein merkur, so erfolgt e0,5000,6000,7000,8000,9000
{$e6}
100
3{$f4} kleines window ausgeben
D{$f9}z,17:s,17:cs:"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I";
{$fe}i{CBM-R}1{CBM-@}6:z,17:s,17{CBM-N}i:cs:"                     ";:
Mi{CBM-R}1{CBM-@}6:z,17:s,17{CBM-N}i:cs:"{SHIFT--}";wx$(cc,i);
{$ec}z,38:s,17{CBM-N}i:cs:"{SHIFT--}";:
keit
{$f5}"6) parameter initialisieren
%{$f6}"7) melodie stoppen
d{$f7}"8) anzahl der 1/8-noten
E{$f8}"9) zurueck ins hauptmenue
M{$fe}80
{CBM-G}E(a$)3100,3200,3300,3400,3500,3600,3700,3800,3900
{CBM-P}3000
Ui{CBM-R}2{CBM-@}19:781,i:59903::cc{CBM-R}1:500
{$eb}!"wedie koennen sie im"
"hauptmenue starten."
!90
'$
-O:
oP speichern von musikstuecken
uQ:
Rmp{CBM-R}2:"filenamen eingeben:"{CBM-+}25);:fi$
{CBM-R}S54296,0:56334,0:788,49:789,234:56334,1
MTgn{CBM-R}1{CBM-M}2010           "
{$f6}Ucc{CBM-R}8:800:fi${CBM-R}fi${CBM-N}",p,B(49159),B(49160)
!{CBM-R}"neue pulsform (h-byte) :";:p1$:p1{CBM-R}E(p1$)
<{CBM-Y}p1{CBM-W}0{CBM-A}p1{CBM-E}15{CBM-M}600:3250
M{CBM-C}"neue pulsform (l-byte) :";:p2$:p2{CBM-R}E(p2$)
Ap2{CBM-W}0{CBM-A}p2{CBM-E}15{CBM-M}:600:3260
{CBM-J}F"welche stimme :";:80:a1{CBM-R}E(a$):a$
{SHIFT--}Ga1{CBM-R}1{CBM-M}49155,p1:49156,p2:90:300i{CBM-R}0{CBM-@}7:no(i,12){CBM-R}0:
k
B(750){CBM-R}134{CBM-M}100
ql
(57812)"comp mc",gn,1:780,0:65493:750,134
Pm
i{CBM-R}49152{CBM-@}49199:i,0::100
p
{CBM-K}a$:a${CBM-R}""{CBM-M}80
q

{CBM-M}z
"(taste druecken)":80:
XD
53280,1:53281,1:"";:198,0: hauptmenue

E
"----------------------ine ausspielung die bis zu 100 sonderspiele erbringen kann."
 u{$f6} 1,8,22,">taste<",1
{$e9}u{$f6}{CBM-K}{$f9}a$
{$ef}u{CBM-@}{$f6}{$e8}
-v{CBM-S}{$f6}:"in sonderspielen wird jeder gewinn auf  3.- erhoeht."
{$7e}v{CBM-U}{$f6}:"eine linie neben der dritten walze bringt in sonderspielen ebenso 3.- ."
XvB{$f6}:G(18z,17:s,24:cs:"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K";
$
ox"";:: cursor in position bringen
E{CBM-C} window loeschen
{CBM-G}Ai{CBM-R}0{CBM-@}7:z,8:s,i{CBM-N}17:cs:"                               ";
{CBM-Z}F:
K  grosses window ausgeben
"z,8:s,17:cs:"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}llenform"
""stimme 1: ";B(49161)
$#"stimme 2: ";B(49162)
@$"stimme 3: ";B(49163)
_&"wellenform eingeben:";
0wa$:wa{CBM-R}E(wa$):wa{CBM-W}17{CBM-A}wa{CBM-E}129{CBM-M}600:3110
{CBM-L}:"welche stimme :";:80:a1{CBM-R}E(a$):a$
 da1{CBM-R}1{CBM-M}49161,wa:49170,wa{CBM-Q}1:90:3000w":1,gn,1,fi$
V15,8,15:15,c,c$:c${CBM-W}{CBM-E}"ok"{CBM-M}2015
/W1,G(0);G(192);
pXi{CBM-R}49152{CBM-@}53000:1,G(B(i));:
]Y 1:2015
Z(57812)""{CBM-N}fi${CBM-N}"",1:193,0:194,192:174,1:175,206:62957
{CBM-Q}{SHIFT-+}700:2020
I{CBM-*}700:c${CBM-W}{CBM-E}"ok"{CBM-M} 15:10000
{$fa}{$e4} 15::"die melodie
0
Ha1{CBM-R}2{CBM-M}49157,p1:49158,p2:90:3000
-Ia1{CBM-R}3{CBM-M}49159,p1:49160,p2:90:3000
<J600:3270
B{$e4}i{CBM-R}2{CBM-@}19:781,i:59903::cc{CBM-R}3:500
{$ee}"anschalg / abschwellen"
{CBM-R}{$f8}f(1){CBM-R}{CBM-J}(B(49164){CBM-Z}16):f(2){CBM-R}B(49164){CBM-Q}f(1){CBM-D}16
 {$f9}f(3){CBM-R}{CBM-J}(B(49166){CBM-Z}16):f(4){CBM-R}B(49166){CBM-Q}f------------------";:
<
F
"     composer v 3.0 / (c) by d.borchert ";
N
G
"----------------------------------------";:

N
""{CBM-+}12)"hauptmenue"
{CBM-I}
X
{CBM-+}10)"=============="
{CBM-Y}

""{CBM-T}8)"1) laden
P

""{CBM-T}8)"2) speichern
{$f0}

""{CBM-T}8)"3) parameter setzen

{$fe})"jeder gewinn unter 100 sonderspielen istmit 'j' und 'f3' riskierbar !"G(146)
#wL{$f6}:"nach halt der dritten walze kann man mit>f7< 'auszahlen' lassen !"
>wV{$f6} 1,8,22,"alles klar ?"
gw {$f6}{CBM-K}{$f9}b$
]w{$ea}{$f6}b${CBM-R}"j"{CBM-M}{$de}1,1:260
Yw{$f4}{$f6}{$e8}:"also nochmal !":{$fe}2
w{$fe}{$f6}63000


e{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I";
$i{CBM-R}1{CBM-@}6:
m%z,8:s,17{CBM-N}i:cs:"                               ";:
Z*i{CBM-R}1{CBM-@}6:z,8:s,17{CBM-N}i:cs:"{SHIFT--}";wx$(cc,i);
4z,38:s,17{CBM-N}i:cs:"{SHIFT--}";:
S>z,8:s,24:cs:"J{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-*}K";
Yh
{CBM-*}{$e7}:
{$fd}{$e8} laden 7,22,"gewinn:",1
{CBM--}eT 1,27,24,g1$:{$fe}"t5icidieig"
{$fa}e{$de}{$fe}2: 1,27,22,"          "
!f{$e8} 1,27,24,"         ": 1,32,20,"  "
9f{$f2}m{CBM-R}m{CBM-N}dm:p{CBM-R}p{CBM-N}pf:2500
xf n ========================
Wf*n ==  3 + 4  sterne     ==
f4n ========================
 f>n{$e7}1,14
{CBM-B}fhn 1,252{CBM-M}g${CBM-R}"0.60":dm{CBM-R}0:pf{CBM-R}60:4410
?{CBM-@}a{CBM-R}3{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}2{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}2{CBM-A}a{CBM-R}2{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}6{CBM-M}g${CBM-R}"0.60":dm{CBM-R}0:pf{CBM-R}60:4410
^?{CBM-S}a{CBM-R}1{CBM-P}b{CBM-R}2{CBM-P}c{CBM-R}3{CBM-A}a{CBM-R}1{CBM-P}b{CBM-R}2{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}2{CBM-P}b{CBM-R}2{CBM-P}c{CBM-R}3{CBM-M}g${CBM-R}"0.80":dm{CBM-R}0:pf{CBM-R}80:4410
?{CBM-U}a{CBM-R}2{CBM-P}b{CBM-R}2{CBM-P}c{CBM-R}4{CBM-A}a{CBM-R}2{CBM-P}b{CBM-R}2{CBM-P}c{CBM-R}6{CBM-M}g${CBM-R}"1.20":dm{CBM-R}1:pf{CBM-R}20:4410
Y?Ba{CBM-R}3{CBM-P}b{CBM-R}3{CBM-P}c{CBM-R}5{CBM-A}a{CBM-R}3{CBM-P}b{CBM-R}4{CBM-P}c{CBM-R}5{CBM-A}a{CBM-R}3{CBM-P}{CBM-R}1:x{CBM-R}2:g${CBM-R}"12 spiele":40000
{$f3}i4B 1,30,19,"25",1:x1{CBM-R}2:x{CBM-R}5:g${CBM-R}"25 spiele":40000
j0U =================
#j:U == 6  sterne   ==
;jdU =================
ejnU{$e7}1,15
DjxU 1,25,17,"ausspielung :",1
ZjBUga{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}3):{$e7}1,8
{CBM-G}jLU 1,25,19,"50":Z3,20000,1: 1,25,19,"1:2500
QbZ =================
{$e9}b{$e4} ==  riskieren  ==
c{$ee} =================
*c{$f8} 1,28,22,"     ": 1,27,20,"        "
dc 1,27,24,"          "
Nc 1,27,20,"0x":Z1,6000,1: 1,27,20,"  "
c 1,32,20,"2x":Z1,2500,1: 1,32,20,"  "
{CBM-Z}c {CBM-K}f$:f${CBM-R}"s"{CBM-M}4660
{CBM-Y}c
 ==================
{$e3}mf  1,25,21,"           ": 1,25,23,"            "
{$fc}mp  1,25,24,"         "
nz  1,25,19,"             "
cnD  1,27,20,"0x":Z1,8000,2: 1,27,20,"  "
NnN  1,32,20,"2x":Z2,12000,2: 1,32,20,"  "
nX {CBM-K}e$:e${CBM-R}"s"{CBM-M}41100
n 41060
{CBM-K}n z{CBM-R}{CBM-J}({CBM-F}(25,24,g1$
{CBM-L}pj{CBM-K}{$fe}"t5idieifia":{$fe}2
Opt{CBM-K} 1,25,22,"         "
{$eb}p^{CBM-K} 1,25,24,"            "
{$fe}pH{CBM-K} 1,32,20,"   "
qR{CBM-K}2500
q{$60}{$ea} ==============
2qJ{$ea} == pleite   ==
gqT{$ea} ==============
pq{$7e}{$ea}{$e7}1,8
Hq{$ea} 1,24,19,"sie sind"
q{$ea} 1,24,20,"pleite !"
q{$ea} 1,24,22,"nochm,17,"ausspielung :",1
Ufrnka{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}5):{$e7}1,8
{$fd}f\n 1,28,19,"3":Z1,5000,1: 1,28,19," "
'gFn 1,32,19,"12": 1,32,19,"  ":Z1,6000,2
egPn 1,30,19,"6": 1,30,19," "
[gZn{CBM-K}r$:r${CBM-R}"s"{CBM-M}20110
Fgn20060
gnka20120,20120,20130,20130,20140
{CBM-U}gn 1,28,19,"3",1:x{CBM-R}3:g${CBM-R}"
b{CBM-R}4{CBM-P}c{CBM-R}6{CBM-M}g${CBM-R}"3.00":dm{CBM-R}3:pf{CBM-R}0:4410
{$f4}?L ====================
@V == sonderspiele   ==
*@  ====================
_@{$ea}a{CBM-R}3{CBM-P}b{CBM-R}3{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}3{CBM-P}b{CBM-R}5{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}4{CBM-P}b{CBM-R}3{CBM-P}c{CBM-R}6{CBM-M}s2{CBM-W}1{CBM-M}20000
@{$f4}a{CBM-R}4{CBM-P}b{CBM-R}5{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}5{CBM-P}b{CBM-R}3{CBM-P}c{CBM-R}6{CBM-M}s2{CBM-W}1{CBM-M}25000
{CBM-N}@{$fe}a{CBM-R}5{CBM-P}b{CBM-R}5{CBM-P}c{CBM-R}6{CBM-M}s2{CBM-W}1{CBM-P}s1{CBM-W}7{CBM-M}30000
N@c{CBM-R}6{CBM-M}g$  "
RjVU 1,29,19,"100":Z3,50000,1: 1,29,19,"   "
{$ea}jU{CBM-K}kl$:kl${CBM-R}"s"{CBM-M}30100
{$f5}jU30060
kUga30110,30110,30120
bkU 1,25,19,"50",1:x1{CBM-R}5:x{CBM-R}0:g${CBM-R}"50 spiele":40000
wk{CBM-POUND}U 1,29,19,"100",1
Ik{CBM-R}U{$fe}"t4fagcbeg"
Yk{CBM-C}U{$fe}2:s2{CBM-R}s2{CBM-N}1
{CBM-K}kFU 1,29,19,"   ": 1,25,23,"         *4620
Gc4d{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}4)
{$ea}c>d{CBM-R}0{CBM-A}d{CBM-R}1{CBM-M} 1,27,20,"0x",1:4690
{$fd}chd{CBM-R}2{CBM-A}d{CBM-R}3{CBM-M}4710
2dr 1,27,22,"leider": 1,27,24,"nichts !":{$fe}"t5qfqc"
Ud\{$fe}2: 1,27,22,"       ": 1,27,24,"        ": 1,27,20,"  ":2500
dF ==========
dP == 2 x  ==
{CBM-POUND}dZ ==========
{CBM-C}d 0){CBM-D}4){CBM-N}1
{SHIFT-*}n z41120,41120,41180,41180
Tn   1,27,20,"0x",1
o{CBM-N}  1,27,22,"leider": 1,27,24,"nichts !":{$fe}"t5qfqc"
o{CBM-H} {$fe}2
<o{CBM-V}  1,27,22,"       ": 1,27,24,"        "
toH  1,27,20,"  ":2500
DoR  =========
To{CBM--}  == 2 x ==
o{$e6}  =========
o{$f0}  1,32,20,"2x",1al ???",1
{CBM-M}q{CBM-+}{$ea}{CBM-K}{$f9}no$
Qq{CBM-A}{$ea}a{CBM-R}1{CBM-@}24: 1,24,a,"                ":a
{$fe}qN{$ea}no${CBM-R}"n"{CBM-M}{$de}0:{$e8}:"auf wiedersehen !":{$fe}5:
rX{$ea}no${CBM-R}"j"{CBM-M}1930
r{$e2}{$ea}60030
3rh{$ee} =================
krr{$ee} == auszahlen   ==
Cr\{$ee} =================
KrP{$ee}{SHIFT-+}15
WrZ{$ee}a{CBM-R}1{CBM-@}24
r{$ee} 1,24,a,"             3 spiele":40000
{$e4}g{CBM-I}n 1,30,19,"6",1:x{CBM-R}6:g${CBM-R}"6 spiele":40000
h{CBM-D}n 1,32,19,"12",1:x1{CBM-R}1:x{CBM-R}2:g${CBM-R}"12 spiele":40000
0h{CBM-POUND}A ==================
ih{CBM-R}A ==  5  sterne   ==
Bh{CBM-C}A ==================
LhFA{$e7}1,14
hPA 1,25,17,"ausspielung :",1
{CBM-K}hZAma{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}6):{$e7}1,8
Ih{$e4}A{CBM-R}"0.30":dm{CBM-R}0:pf{CBM-R}30:4410
 @k{CBM-R}0{CBM-A}k{CBM-R}1{CBM-M}4390
{$ea}@4400
a&s{CBM-E}0{CBM-A}s1{CBM-E}0{CBM-A}s2{CBM-E}0{CBM-M}g${CBM-R}"3.00":dm{CBM-R}3:pf{CBM-R}0:4410
/a0dm{CBM-R}0:pf{CBM-R}0:{$fe}2:2500
na: ========================
Mad ==   gewinnanzeige    ==
an ========================
{CBM-W}axs{CBM-E}0{CBM-A}s1{CBM-E}0{CBM-A}s2{CBM-E}0{CBM-M}g${CBM-R}"3.00":dm{CBM-R}3:pf{CBM-R}0
"
EkPU{$e7}1,7: 1,25,17,"r i s i k o :",1
UkZUm{CBM-R}m{CBM-N}1:2500
{$f2}k@ ======================
lj == risiko - spiele  ==
,lt ======================
;l^m{CBM-R}m{CBM-N}1:{$e7}1,7
_lH 1,25,17,"r i s i k o :",1:{$e7}1,8
XlR 1,25,21,"gewinn:",1
l{$7c} 1,25,23,g$
 l 1,25,24,"risiko
1,32,20,"2x",1
{$e1}dg${CBM-R}"0.30"{CBM-M}g1${CBM-R}"0.60":dm{CBM-R}0:pf{CBM-R}60
eg${CBM-R}"0.40"{CBM-M}g1${CBM-R}"0.80":dm{CBM-R}0:pf{CBM-R}80
+e{CBM-I}g${CBM-R}"0.60"{CBM-M}g1${CBM-R}"1.20":dm{CBM-R}1:pf{CBM-R}20
pe{CBM-D}g${CBM-R}"0.80"{CBM-M}g1${CBM-R}"1.60":dm{CBM-R}1:pf{CBM-R}60
Ue{CBM-L}g${CBM-R}"1.20"{CBM-M}g1${CBM-R}"2.40":dm{CBM-R}2:pf{CBM-R}40
{CBM-T}e{SHIFT-*}g${CBM-R}"3.00"{CBM-M}g1${CBM-R}"5 spiele":dm{CBM-R}0:pf{CBM-R}0:s{CBM-R}s{CBM-N}5
{CBM-C}eJ 1,2
{SHIFT-@}o{$fa} g${CBM-R}"3 spiele"{CBM-M}g1${CBM-R}"6 spiele"
{SHIFT--}o{CBM-K}g${CBM-R}"6 spiele"{CBM-M}g1${CBM-R}"12 spiele"
p{CBM-K}g${CBM-R}"12 spiele"{CBM-M}g1${CBM-R}"24 spiele"
%p{CBM-K}g${CBM-R}"25 spiele"{CBM-M}g1${CBM-R}"50 spiele"
_p"{CBM-K}g${CBM-R}"50 spiele"{CBM-M}g1${CBM-R}"100 spiele":x2{CBM-R}1:x1{CBM-R}0:x{CBM-R}0:41270
Rp,{CBM-K}x{CBM-R}x{CBM-N}x:x1{CBM-R}x1{CBM-N}x1
p6{CBM-K}s{CBM-R}s{CBM-N}x:s1{CBM-R}s1{CBM-N}x1:s2{CBM-R}s2{CBM-N}x2
p@{CBM-K} 1,  ":a
{CBM-POUND}r{$ee}b{CBM-R}1{CBM-@}180{SHIFT-POUND}24
Er{$ee}{$e3}m5$,240,b:{$fe}"t3qcia":b
Ur{CBM-I}{$ee}c{CBM-R}1{CBM-@}180{SHIFT-POUND}24
{$f1}r{CBM-D}{$ee}{$e3}n$,240,c:{$fe}"t3qcib":c
{$fa}r{CBM-L}{$ee}{$e8}:{$de}0
s{SHIFT-*}{$ee}:{CBM-T}4)"bis zum naechsten mal !"
(sJ{$ee}{$fe}4:
@s{$f6} =================
xs"{$f6} == anleitung   ==
Ps,{$f6} =================
Ys6{$f6}{$de}0:{$e8}
s@{$f6} 1,9,0,"a n l e i  1,25,19,"6":Z2,6000,1: 1,25,19," "
{$e9}h{$ee}A 1,27,19,"12": 1,27,19,"  "
i{$f8}A 1,30,19,"25":Z2,25000,2: 1,30,19,"  "
*iB{CBM-K}v$:v${CBM-R}"s"{CBM-M}25110
5iB25060
AiBma25120,25120,25120,25130,25130,25140
i B 1,25,19,"6",1:x{CBM-R}6:g${CBM-R}"6 spiele":40000
{SHIFT-*}i*B 1,27,19,"12",1:x1JaB 1,27,20,"gewinn:"
{$e9}aL 1,28,22,g$:{$fe}"t5icidieig"
bV 1,27,24,"risiko ?",1
b{CBM-K}{$f9}r$
,br${CBM-R}"n"{CBM-M}m{CBM-R}m{CBM-N}dm:p{CBM-R}p{CBM-N}pf:4520
=br${CBM-R}"j"{CBM-M}4600
gb4470
zb{CBM-POUND}{$fe}"t5icidieig"
Ub{CBM-R} 1,27,20,"           "
b{CBM-C} 1,27,22,"           "
{CBM-Q}bF 1,26,24,"           "
{CBM-O}bP{$fe}?"
{SHIFT-POUND}l{CBM-K}{$f9}q$
{CBM-F}lq${CBM-R}"j"{CBM-M}41000
Nl{CBM-@}q${CBM-W}{CBM-E}"n"{CBM-M}40040
{$e1}l{CBM-S}{$fe}"t5icidieig"
{$fe}l{CBM-U}{$fe}1: 1,25,21,"         "
0mB 1,25,23,"          ": 1,25,19,"            "
lmL 1,25,24,"            "
EmVs{CBM-R}s{CBM-N}x:s1{CBM-R}s1{CBM-N}x1:2500
{$7e}m(  ==================
m2  ==  riskieren   ==
{CBM-A}m<
{CBM-R}0
{$ef}0{CBM-H}
p{CBM-W}0{CBM-M}p{CBM-R}p{CBM-N}100:m{CBM-R}m{CBM-Q}1
1{CBM-V}
p{CBM-E}100{CBM-M}p{CBM-R}p{CBM-Q}100:m{CBM-R}m{CBM-N}1
1H
p{CBM-R}100{CBM-M}p{CBM-R}0:m{CBM-R}m{CBM-N}1
51R
m{CBM-W}0{CBM-M}m{CBM-R}m{CBM-N}10:m1{CBM-R}m1{CBM-Q}1
n1{CBM--}
m{CBM-E}10{CBM-M}m{CBM-R}m{CBM-Q}10:m1{CBM-R}m1{CBM-N}1
D1{$e6}
m{CBM-R}10{CBM-M}m{CBM-R}0:m1{CBM-R}m1{CBM-N}1
{$7f}1{$f0}
m1{CBM-W}0{CBM-M}m1{CBM-R}m1{CBM-N}10:m2{CBM-R}m2{CBM-Q}1
1{$fa}
m1{CBM-E}10{CBM-M}m1{CBM-R}m1{CBM-Q}10:m2{CBM-R}m2{CBM-N}1
{CBM-W}1m1{CBM-R}10{CBM-M}m1{CBM-R}0:m2{CBM-R}m2{CBM-N}1
K1p{CBM-R}{CBM-J}(p{CBM-D}10{CBM-S}0{CBM-N}.5){CBM-Z}10{CBM-S}0
T1{$e7}1,6
,14{CBM-@}149,11{CBM-@}153,11
*L{$e2}1,151,25,4,4,90,270
'*V{$e2}1,151,24,2,3,90,270
<* {$e5}1,140,40{CBM-@}180,40
t*{$ea}{$e2}1,151,55,2,2,180,0
L*{$f4}{$e2}1,168,55,2,2,0,180
*{$fe}{$e5}1,151,53{CBM-@}168,53
*{$e5}1,151,57{CBM-@}168,57
{CBM-POUND}*{$e7}1,11:a{CBM-R}1{CBM-@}24
H*{$e5}1,145,60{CBM-N}4{CBM-D}a{CBM-@}175,60{CBM-N}4{CBM-D}a:a
Q*&{$e7}1,8
{$e5}*0{$e2}1,40,179,35
12,38
{$e4}4Pm2{CBM-R}0{CBM-M}i${CBM-R}z0$
{$f5}4Zm2{CBM-R}1{CBM-M}i${CBM-R}z1$
5{$e4}m2{CBM-R}2{CBM-M}i${CBM-R}z2$
5{$ee}m2{CBM-R}3{CBM-M}i${CBM-R}z3$
(5{$f8}m2{CBM-R}4{CBM-M}i${CBM-R}z4$
95
m2{CBM-R}5{CBM-M}i${CBM-R}z5$
]5
{$e3}i$,190,38:s{CBM-E}0{CBM-A}s1{CBM-E}0{CBM-A}s2{CBM-E}0{CBM-M}{$e7}1,13
M5
s{CBM-R}0{CBM-M}i${CBM-R}z0$
{$7d}5
s{CBM-R}1{CBM-M}i${CBM-R}z1$
5*
s{CBM-R}2{CBM-M}i${CBM-R}z2$
54
s{CBM-R}3{CBM-M}i${CBM-R}z3$
{CBM-Z}5>
s{CBM-R}4{CBM-M}i${CBM-R}z4$
{CBM-X}5h
s{CBM-R}5{CBM-M}i${CBM-R}z5$
M5r
s{CBM-R}6{CBM-M}i${CBM-R}z6
40
{$ec}-P{$fe}1:2500
{$fe}-Z ===========
. == 10 dm ==
". ===========
3.m1{CBM-R}1:m{CBM-R}0:p{CBM-R}0
o.{CBM-I}{$e3}m5$,240,40:{$e3}m5$,280,40
B.{CBM-D}{$fe}"t4gcdgaeda"
{$7c}.{CBM-L}{$e3}n$,240,40:{$e3}n$,280,40
.{SHIFT-*}{$fe}1
.D =============
{CBM-D}.N ==  start  ==
{SHIFT-*}.X =============
P.{$e2}G(14):{CBM-K}au$
{$e3}.{$ec}au${CBM-R}

we{CBM-R}1{CBM-M}we{CBM-R}0:3830
9{SHIFT-@}{$e7}1,8: 1,2,22,"start":{CBM-K}p$:{$fe}"t5qg":{$fe}2:we{CBM-R}1
%9D{CBM-K}p$:p${CBM-R}"w"{CBM-M} 1,2,22,"     "
o9Np${CBM-R}"w"{CBM-M}{$e3}n$,15,46:{$e3}n$,15,66:{$e3}n$,15,87
J9Xp${CBM-R}"w"{CBM-M}{$fe}"t5qg":3610
{$7c}9{$e2}p${CBM-W}{CBM-E}"w"{CBM-M}we{CBM-R}0
9{$ec} ==========================
{CBM-V}9{$f6} ==  auswahl  2. walze   ==
{CBM-*}9

top"
P;{CBM-N}{CBM-K}u$:{$fe}1
{$e5};{CBM-H}{CBM-K}u$:u${CBM-R}"s"{CBM-M}4040
{$f6};{CBM-V}u${CBM-W}{CBM-E}"s"{CBM-M}{$fe}1
<Hc{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}6){CBM-N}1
%<R 1,13,22,"    ":{$fe}"t5qc"
p<{CBM--}c4070,4080,4090,4100,4110,4120:4130
F<{$e6}{$e7}1,3:{$e3}w1$,81,68:
{$7d}<{$f0}{$e7}1,15:{$e3}w2$,81,68:
<{$fa}{$e7}1,9:{$e3}w3$,81,68:
{SHIFT-POUND}<{$e7}1,6:{$e3}w4$,81,68:
{SHIFT-*}<{$e7}1,16:{$e3}w5$,81,68

{$f2}1" 1,25,2,"b e t r a g :",1
{$fb}1,{$e7}1,3
26 1,25,10,"s p i e l e :",1
$2@{$e7}1,15
c2j 1,25,17,"r i s i k o :",1
l2t{$e7}1,8
I2^ ======================
2H ==  geldanzeige     ==
{CBM-T}2R ======================
{CBM-W}2{$7c}{$e3}z0$,294,38
C2p{CBM-R}0{CBM-M}i${CBM-R}z0$
T2p{CBM-R}10{CBM-M}i${CBM-R}z

,10
~*:{$e2}1,122,179,35,10:{$e7}1,2
+d{$e2}1,170,170,4,4
1+n{$e2}1,170,170,1,2,130,50:{$e7}1,8
i+x{$e3}m$,10,10:{$e3}e$,32,10
A+B{$e3}r$,49,10:{$e3}k$,69,10
Z+L{$e3}u$,83,10:{$e3}r$,106,10
+V{$e7}1,6:{$e3}di$,15,130:{$e3}di$,75,110
B+{$e7}1,7:{$e3}di$,45,120:{$e3}di$,105,100:{$e7}1,8
{SHIFT-+}+ ==================
{$f4}+
$
{SHIFT--}5\
s{CBM-R}7{CBM-M}i${CBM-R}z7$
{$ed}5F
s{CBM-R}8{CBM-M}i${CBM-R}z8$
{$fd}5P
s{CBM-R}9{CBM-M}i${CBM-R}z9$

6Z
{$e3}i$,258,102
6
s1{CBM-R}0{CBM-M}i${CBM-R}z0$
/6
s1{CBM-R}1{CBM-M}i${CBM-R}z1$
@6
s1{CBM-R}2{CBM-M}i${CBM-R}z2$
q6{CBM-I}
s1{CBM-R}3{CBM-M}i${CBM-R}z3$
B6{CBM-D}
s1{CBM-R}4{CBM-M}i${CBM-R}z4$
S6{CBM-L}
s1{CBM-R}5{CBM-M}i${CBM-R}z5$
6{SHIFT-*}
s1{CBM-R}6{CBM-M}i${CBM-R}z6$
6J
s1{CBM-R}7{CBM-M}i${CBM-R}z7$
{CBM-+}6T
s1{CBM-R}8{CBM-M}i${CBM-R}z8$
{CBM-Y}6{$de}
s1{CBM-R}9{CBM-M}i${CBM-R}z9$
G6{$e8}
{$e3}i$,235,102
X6
"x"{CBM-M}61000
/{$f6} 1,14,8," ": 1,14,9," ": 1,14,10," ":{$e7}1,8
3/

{$e3}n$,15,45:{$e3}n$,15,66:{$e3}n$,15,87
k/

{$e3}n$,15,87:{$e3}n$,48,55
C/
{$e3}n$,48,76:{$e3}n$,81,66
{$7f}/
 =====================
/(
 ==  berechnungen   ==
{CBM-Y}/2
 =====================
U/<
m{CBM-W}1{CBM-P}p{CBM-W}30{CBM-P}m1{CBM-R}0{CBM-P}m2{CBM-R}0{CBM-M}60000
{$e7}/
 ==========================
:
{$e7}1,8: 1,2,22,"     ": 1,13,22,"stop"
:{CBM-K}o$:{$fe}1
):{CBM-K}o$:o${CBM-R}"s"{CBM-M}3890
::(o${CBM-W}{CBM-E}"s"{CBM-M}{$fe}1
l:2b{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}5){CBM-N}1
I:< 1,13,22,"    ":{$fe}"t5qe"
:fb3920,3930,3940,3950,3960:3970
{CBM-L}:p{$e7}1,3:{$e3}w1$,48,56:{$e7}1,15:{$e3}w2$,48,78:
{CBM--}:z{$e7}1,9:{$e3}w
:
V<{$e7}1,8:{$e3}w6$,81,68:
{$f7}<" ==========================
=, == sonderspielegewinn   ==
9=6 ==========================
i=@k{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}4)
X=jk{CBM-R}0{CBM-A}k{CBM-R}1{CBM-M} 1,14,8,x$: 1,14,9,y$: 1,14,10,y$
=t{$e7}1,8
 =^ ========================
{CBM-B}=H ==  gewinnauswertung
1$
{$e5}2p{CBM-R}20{CBM-M}i${CBM-R}z2$
{$f6}2{CBM-@}p{CBM-R}30{CBM-M}i${CBM-R}z3$
3{CBM-S}p{CBM-R}40{CBM-M}i${CBM-R}z4$
3{CBM-U}p{CBM-R}50{CBM-M}i${CBM-R}z5$
)3Bp{CBM-R}60{CBM-M}i${CBM-R}z6$
:3Lp{CBM-R}70{CBM-M}i${CBM-R}z7$
k3Vp{CBM-R}80{CBM-M}i${CBM-R}z8$
\3 p{CBM-R}90{CBM-M}i${CBM-R}z9$
K3{$ea}{$e3}i$,272,38
{$7b}3{$f4}m{CBM-R}0{CBM-M}i${CBM-R}z0$
3{$fe}m{CBM-R}1{CBM-M}i${CBM-R}z1$
3m{CBM-R}2{CBM-M}i${CBM-R}z2$
{CBM-Q}3m{CBM-R}3{CBM-M}i${CBM-R}z3$
{CBM-F}3m{CBM-R}4{CBM-M}i${CBM-R}z4$
K3&m{CBM-R}5{CBM-M}i${CBM-R}z5$
{SHIFT-+}30
 == startkapital ==

, ==================
(,{CBM-POUND} 1,25,3,"startgeld:",1
@,{CBM-R} 1,25,6,"1 =  5 dm"
x,{CBM-C} 1,25,8,"2 = 10 dm"
,F 1,25,10,"bitte": 1,25,11,"waehlen !"
,P{$fe}&:53265,27
{CBM-R},Z{CBM-K}{$f9}st$: 1,25,3,"          "
J,{$e4} 1,25,6,"         "
{$e2},{$ee} 1,25,8,"
{$f2}
s2{CBM-R}0{CBM-M}i${CBM-R}z0$
{$e9}6{$fc}
s2{CBM-R}1{CBM-M}i${CBM-R}z1$
{$fe}6{$e3}i$,214,102:{$e7}1,8

7 1,33,6,z$
-7 =========================
m7$ ==  auswahl 1. walze   ==
M7. =========================
{$7f}78a{CBM-R}{CBM-J}({CBM-F}(0){CBM-D}5){CBM-N}1
{CBM-G}7ba3660,3680,3700,3720,3740:3760
{CBM-B}7l{$e7}1,3:{$e3}w1$,15,46:{$e7}1,15
 7v{$e3}w2$

f
x{CBM-R}0:x1{CBM-R}0:x2{CBM-R}0
{$f2}/p
p{CBM-R}p{CBM-Q}30

0z
s{CBM-R}0{CBM-P}s1{CBM-R}0{CBM-P}s2{CBM-R}0{CBM-M}2740
#0D
s{CBM-E}0{CBM-A}s1{CBM-E}0{CBM-A}s2{CBM-E}0{CBM-M}s{CBM-R}s{CBM-Q}1
;0N
s{CBM-W}0{CBM-M}s{CBM-R}s{CBM-N}10:s1{CBM-R}s1{CBM-Q}1
t0X
s{CBM-E}10{CBM-M}s{CBM-R}s{CBM-Q}10:s1{CBM-R}s1{CBM-N}1
J0
s{CBM-R}10{CBM-M}s{CBM-R}0:s1{CBM-R}s1{CBM-N}1
0
s1{CBM-W}0{CBM-M}s1{CBM-R}s1{CBM-N}10:s2{CBM-R}s2{CBM-Q}1
{CBM-K}0
s1{CBM-E}10{CBM-M}s1{CBM-R}s1{CBM-Q}10:s2{CBM-R}s2{CBM-N}1
{CBM-O}0
s1{CBM-R}10{CBM-M}s1{CBM-R}0:s2{CBM-R}s2{CBM-N}1
X0{CBM-N}
s2{CBM-R}{CBM-E}1{CBM-P}s1{CBM-R}{CBM-E}2{CBM-M}s2{CBM-R}1:s1{CBM-R}2:s
3$,48,56:{$e7}1,6:{$e3}w4$,48,78:
;D{$e7}1,16:{$e3}w5$,48,56:{$e7}1,8:{$e3}w6$,48,78:
*;N{$e7}1,3:{$e3}w1$,48,56:{$e7}1,16:{$e3}w5$,48,78:
k;X{$e7}1,8:{$e3}w6$,48,56:{$e3}w6$,48,78:
K; =========================
; ==  auswahl 3. walze   ==
{CBM-Q}; =========================
D; {$e7}1,8: 1,13,22,"s ==
{$de}=R ========================
>{$7c}a{CBM-R}1{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}1{CBM-A}a{CBM-R}4{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}1{CBM-M}g${CBM-R}"0.40":dm{CBM-R}0:pf{CBM-R}40:4410
z>a{CBM-R}4{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}1{CBM-P}b{CBM-R}4{CBM-P}c{CBM-R}1{CBM-A}a{CBM-R}1{CBM-P}b{CBM-R}4{CBM-P}c{CBM-R}6{CBM-M}g${CBM-R}"0.40":dm{CBM-R}0:pf{CBM-R}40:4410
>a{CBM-R}4{CBM-P}b{CBM-R}4{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}4{CBM-P}b{CBM-R}4{CBM-P}c{CBM-R}1{CBM-M}g${CBM-R}"0.40":dm{CBM-R}0:pf{CBM-R}40:4410
V>a{CBM-R}1{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}2{CBM-A}a{CBM-R}1{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}6{CBM-A}a{CBM-R}3{CBM-P}b{CBM-R}1{CBM-P}c{CBM-R}
m{CBM-R}6{CBM-M}i${CBM-R}z6$
{$eb}3:m{CBM-R}7{CBM-M}i${CBM-R}z7$
{$fb}3dm{CBM-R}8{CBM-M}i${CBM-R}z8$
4nm{CBM-R}9{CBM-M}i${CBM-R}z9$
4x{$e3}i$,234,38
+4Bm1{CBM-R}0{CBM-M}i${CBM-R}z0$
<4Lm1{CBM-R}1{CBM-M}i${CBM-R}z1$
m4Vm1{CBM-R}2{CBM-M}i${CBM-R}z2$
^4m1{CBM-R}3{CBM-M}i${CBM-R}z3$
O4m1{CBM-R}4{CBM-M}i${CBM-R}z4$
4m1{CBM-R}5{CBM-M}i${CBM-R}z5$
4m1{CBM-R}6{CBM-M}i${CBM-R}z6$
{CBM-I}4{CBM-POUND}m1{CBM-R}7{CBM-M}i${CBM-R}z7$
{CBM-W}4{CBM-R}m1{CBM-R}8{CBM-M}i${CBM-R}z8$
D4{CBM-C}m1{CBM-R}9{CBM-M}i${CBM-R}z9$
S4F{$e3}i$,2
   "
-{$f8} 1,25,10,"     ": 1,25,11,"         "
-j{CBM-R}1{CBM-M}j{CBM-R}0:1960
c-p{CBM-R}0:m{CBM-R}0:m1{CBM-R}0:m2{CBM-R}0:s{CBM-R}0:s1{CBM-R}0:s2{CBM-R}0
u-st${CBM-R}"1"{CBM-M}2100
G- st${CBM-R}"2"{CBM-M}2170
Q-*1960
-4 ==========
-> == 5 dm ==
{CBM-@}-h ==========
{CBM-A}-rm{CBM-R}5:p{CBM-R}0
O-\{$e3}m5$,240,40:{$fe}"t4fegacgde"
{$de}-F{$e3}n$,240,
,15,66:{$e7}1,9:{$e3}w3$,15,87:
{$fa}7{$60}{$e7}1,15:{$e3}w2$,15,46:{$e7}1,9
8J{$e3}w3$,15,66:{$e7}1,6:{$e3}w4$,15,87:
58T{$e7}1,8:{$e3}w6$,15,46:{$e7}1,16
w8{$7e}{$e3}w5$,15,66:{$e7}1,15:{$e3}w2$,15,87:
P8{$e7}1,8:{$e3}w6$,15,46:{$e7}1,3
8{$e3}w1$,15,66:{$e7}1,8:{$e3}w6$,15,87:
{CBM-A}8{$e7}1,8:{$e3}w6$,15,46:{$e3}w6$,15,66
A8{CBM-+}{$e3}w6$,15,87:
V8{CBM-A}"

 ==========================
c
 ==  merkur   c - 1 2 8  ==
D
 ==========================
JD
{$e8}
N
{$f9}1,"w":{$f9}3,"s":{$f9}7,"x"
X
x${CBM-R}G(187):y${CBM-R}G(161)
{CBM-S}
z${CBM-R}G(079):{$de}1,1
F
{$e7}0,1:{$e7}2,1:{$e7}4,1:{$e7}1,8
Y
{$e1}1,1,1,318,198
{$ec}
{$e1}1,3,3,316,196
{CBM-N}
 1,9,2,"m e rMired  Filt.= KB12"
Ic{CBM-U}
OcB
{$ec}cL"                 >>  "
{$fc}cVt{CBM-R}1{CBM-@}2000:
d cl$;
d{$ea}
*d{$f4}" Blitzlampen weiss    "
0d{$fe}
zd" 3800Kelvin   263Mired  Filt.= KB9"
{$60}d
{$7e}d" Mondlicht            "
d&
{CBM-S}d0" 4000Kelvin   250Mired  Filt.= KB9"4,14,5,5,90,270
% :{$e5}1,9,14{CBM-@}9,1:{$e5}1,19,14{CBM-@}19,1
7 d{$e4}u$,0,0,23,20
= n{$e8}
q x == diamant ==
y B{$fe}1
 L{$e5}1,5,1{CBM-@}19,1{CBM-@}21,5{CBM-@}3,5{CBM-@}5,1{CBM-@}9,5{CBM-@}12,1{CBM-@}15,5{CBM-@}19,1
 V{$e5}1,3,5{CBM-@}12,20{CBM-@}21,5
{CBM-J} {$e5}1,7,5{CBM-@}12,20{CBM-@}18,5
G {$e5}1,12,5{CBM-@}12,20
Z {$e4}di$,0,0,23,20
  {$e8}
!{CBM-POUND} ===============
<  "
{CBM-V}g{SHIFT-*}t{CBM-R}1{CBM-@}2000:220
 gJ foto ===================128


$;
{$ef}e{$e4}

f{$ee}" Blitzlampen blau     "
f{$f8}
<f" 5500Kelvin   182Mired  Filt.= 0 "
bf
Af" Leicht nebliges Wetter"
Gf
f*" 8400Kelvin   119Mired  Filt.= KR6"
f4
Ef>" Licht vom b
20:{$e8}
$. == 0 ==
$8{$e2}1,12,9,5,7
'$b{$e4}z0$,0,0,23,20:{$e8}
b$l ====================
]$v == walzenshapes   ==
X${$60} ====================
$J == 40 ==
$T{$e5}1,3,2{CBM-@}3,8{CBM-@}10,8
{CBM-Q}${$7e}{$e5}1,7,4{CBM-@}7,15
{CBM-F}${$e2}1,16,9,3,6
P${$e4}w1$,0,0,23,20:{$e8}
{CBM-*}$ == 60 ==
{$ef}${CBM-+}{$e2}1,6,15,3,11{CBM-@}23,16{CBM-@}18,14{CBM-@}18,17
3'{$e5}1,18,17{CBM-@}16,14{CBM-@}14,17{CBM-@}14,14{CBM-@}12,17{CBM-@}11,15{CBM-@}9,17{CBM-@}8,15
_' {$e5}1,8,15{CBM-@}1,18{CBM-@}7,13{CBM-@}1,12{CBM-@}7,10{CBM-@}0,8{CBM-@}6,6{CBM-@}1,1
Z'{CBM-N}{$e2}1,9,7,1,1:{$e2}1,15,7,1,1
'{CBM-H}{$e5}1,9,11{CBM-@}10,12{CBM-@}14,12{CBM-@}15,11
{CBM-@}'{CBM-V}{$e5}1,12,9
{CBM-O}'H{$e4}w6$,0,0,23,20:{$e8}
P'R == geldstueck ==
X'{CBM--}{$fe}2
{$fd}'{$e6}{$e2}1,10,9,9,9 k u r"
,{CBM-H}
 1,4,5,"ein programm by ws-verlag"
b{CBM-V}
 1,9,7,"(c) 1992"
\H
{$fe}"t4cafegdgbdfceaga"
FR
{$e7}1,11
{CBM--}
 1,8,12,"anleitung ?",1
{$e6}
{CBM-K}{$f9}an$
{$f0}
an${CBM-R}"j"{CBM-M}63000
{CBM-E}{$fa}
an${CBM-W}{CBM-E}"n"{CBM-M}220
{CBM-C}{$e8}:{$e7}1,8
{$e5} 1,5,20,"bitte ca. 25 sek. geduld !"
 1,3,22,"shapes we

{CBM-H}d:
Rdd" Morgen/Abend         "
Xdn
ex" 4700Kelvin   213Mired  Filt.= KB3"
eB
&eL" Elektronenblitz      "
,eV
te" 5500Kelvin   182Mired  Filt.= 0"
ze
Xe" Sonne (10-14Uhr)     "
{$7e}e
{CBM-+}e{CBM-POUND}" 5500Kelvin   182Mired  Filt.= 0"
{CBM-D}e{CBM-R}=============
&!{CBM-R} == geld- und spieleshapes ==
i!{CBM-C} ============================
q!F{$fe}2
_!P == 1 ==
U!Z{$e5}1,12,16{CBM-@}12,2{CBM-@}8,5
!{$e4}{$e4}z1$,0,0,23,20:{$e8}
!{$ee} == 2 ==
{CBM-A}!{$f8}{$e2}1,13,5,3,3,270,123
G!{$e5}1,16,7{CBM-@}8,15{CBM-@}17,15
{CBM--}!{$e4}z2$,0,0,23,20:{$e8}
{$ea}! == 3 ==
" {$e2}1,12*
 **********************************
s
 *                                *
{$7c}
 *    composer v3.0 + hcopy       *
{CBM-G}
 *                                *
N
 *     von dieter borchert        *
{$f7}
 *       hornauer strasse 156     *

 3
%{CBM-A}{$e2}1,6,10,3,6,240,25
%{SHIFT-@}{$e2}1,16,11,3,7
,%D{$e4}w2$,0,2,23,22:{$e8}
;%N == 80 ==
v%X{$e2}1,6,5,3,3:{$e2}1,6,13,4,4
F%{$e2}{$e2}1,17,9,3,7
{$7b}%{$ec}{$e4}w3$,0,0,23,20:{$e8}
%{$f6} == 120 ==
%
 1,0,1,"120"
{CBM-O}%
{$e2}1,3,19,2,1:{$e2}1,11,19,2,1
V%{$e2}1,19,19,2,1:{$e5}1,1,4{CBM-@}21,4
{$eb}%{$e4}w4$,0,2,23,20:{$e8}
:{$e2}1,10,11,3,3,320,230
({$f0}{$e5}1,8,9{CBM-@}8,4{CBM-@}13,4:{$fe}1
-({$fa}{$e2}1,13,9,9,9,340,200
b({$e4}m5$,0,0,23,20:{$e8}
t({$e4}n$,0,0,23,20
N( ===================
(" ==  bildaufbau   ==
{CBM-I}(, ===================
{CBM-F}(6{$e1}1,1,1,180,198:{$e7}1,16
O(@{$e1}1,12,43,41,111
{$e3}(j{$e1}1,45,53,74,102
{$fc}(rden definiert!",1
"{$fe}2:{$e8}
(,53265,0:{$fe}%
06{$fe}2
p@ =========================
Pj == shapes fuer titel   ==
t =========================
^ == m ==
{CBM-B}H{$e5}1,3,19{CBM-@}3,1{CBM-@}10,12{CBM-@}16,1{CBM-@}16,19
QR{$e4}m$,0,0,23,20
W{$7c}{$e8}
{$e5} == e ==
{$fb}{$e5}1,3,1{CBM-@}3,19{CBM-@}13,1
{CBM-R}e{CBM-C}
OeF"                 >>  "
{CBM-*}ePt{CBM-R}1{CBM-@}2000:
{$e9}eZcl$;
{$ef}e{$e4}

f{$ee}" Blitzlampen blau     "
f{$f8}
<f" 5500Kelvin   182Mired  Filt.= 0 "
bf
Af" Leicht nebliges Wetter"
Gf
f*" 8400Kelvin   119Mired  Filt.= KR6"
f4
Ef>" Licht vom b,5,3,3,320,180
"*{$e2}1,12,12,4,4,340,240
0"4{$e4}z3$,0,0,23,20:{$e8}
>"> == 4 ==
r"h{$e5}1,6,2{CBM-@}6,9{CBM-@}16,9
D"r{$e5}1,12,5{CBM-@}12,16
Y"\{$e4}z4$,0,0,23,20:{$e8}
"F == 5 ==
 "P{$e2}1,12,12,4,4,310,220
{CBM-H}"Z{$e5}1,9,9{CBM-@}9,2{CBM-@}16,2
I"{$e4}z5$,0,0,23,20:{$e8}
W" == 6 ==
{$ee}"{$e2}1,12,9,6,7,190,25
#{CBM-I}
*        6233 kelkheim           *
i
 *                                *
R
 **********************************
X

:
{CBM-R}
no(7,12),ln(7,12),hn(7,12),da$(20),va(3,2),wx$(12,6)
K

"arbeiten sie mit"
{$f8}
"datasette (1) oder floppy disk (8) ?"

{$fb}%( == 3.- ==
&2{$e2}1,6,6,3,3,325,190
(&<{$e2}1,6,12,4,4,0,210
9&f{$e2}1,18,16,1,1
k&p{$e1}1,18,9,21,11
{$60}&z{$e4}w5$,0,0,23,20:{$e8}
N&D == * ==
V&N{$fe}1
 &X{$e5}1,1,1{CBM-@}6,3{CBM-@}6,1{CBM-@}8,3{CBM-@}9,1{CBM-@}10,3{CBM-@}11,1{CBM-@}12,3
O&{$e5}1,12,3{CBM-@}14,1{CBM-@}14,3{CBM-@}16,1{CBM-@}16,3{CBM-@}21,1{CBM-@}18,5{CBM-@}23,7
{$fe}&{$e5}1,23,7{CBM-@}18,8{CBM-@}23,10{CBM-@}18,
t{$e1}1,78,64,107,91:{$e7}1,8
)^{$e5}1,1,160{CBM-@}180,160
&)H{$e5}1,140,1{CBM-@}140,160
;)R{$e1}1,172,10,174,25
p){$7c}{$e1}1,162,11,170,24
[)a{CBM-R}1{CBM-@}6
{$7b}){$e5}1,162,11{CBM-N}2{CBM-D}a{CBM-@}170,11{CBM-N}2{CBM-D}a:a
){$e2}1,151,14,6,6
{CBM-M}){CBM-@}{$e2}1,151,15,2,2,320,240
{SHIFT-*}){CBM-S}{$e2}1,151,20,5,5,90,270
Y){CBM-U}{$e2}1,151,19,2,3,90,270
{$f5})B{$e5}1,1499
{$e5}1,3,10{CBM-@}9,10:{$e5}1,3,1{CBM-@}13,1
*{CBM-@}{$e4}e$,0,0,23,20
0{CBM-S}{$e8}
>{CBM-U} == r ==
nB{$e5}1,5,1{CBM-@}5,19
CL{$e2}1,5,7,8,6,0,180
UV{$e5}1,7,12{CBM-@}14,19
 {$e4}r$,0,0,23,20
{$ea}{$e8}
{$f4} == k ==
{CBM-U}{$fe}{$e5}1,4,1{CBM-@}4,19:{$e5}1,4,12{CBM-@}12,1
I{$e5}1,4,8{CBM-@}12,19
{SHIFT-+}{$e4}k$,0,0,23,20
{$e1}{$e8}
{$ef}& == u ==
 0{$e2}1,1lauen Himmel (im Schatten)"
Kfh
{$f6}fr"12000Kelvin    83Mired  Filt.= KR12"
{$fc}f\
'gF" Licht vom blauen Himmel im Gebirge"
-gP
kgZ" (im Schatten)        "
qg
{$7c}g"18000Kelvin    56Mired  Filt.= KR15"
g
g{CBM-I}
g{CBM-D}
{CBM-Q}g{CBM-L}"                 >>{$e2}1,11,12,4,4,300,210
#{CBM-D}{$e4}z6$,0,0,23,20:{$e8}
*#{CBM-L} == 7 ==
?#{SHIFT-*}{$e5}1,6,3{CBM-@}15,3{CBM-@}7,17
q#J{$e5}1,8,10{CBM-@}15,10
F#T{$e4}z7$,0,1,23,20:{$e8}
T#{$de} == 8 ==
#{$e8}{$e2}1,12,6,3,3
#{$f2}{$e2}1,12,14,4,4
{CBM-N}#{$fc}{$e4}z8$,0,1,23,20:{$e8}
{CBM-U}# == 9 ==
H#{$e2}1,12,7,4,4
{CBM-*}#{$e2}1,11,10,6,7,0,195
{$f4}#${$e4}z9$,0,1,23,w$
{$ea}1{$de}{CBM-K}a$:a${CBM-R}""{CBM-M}2270
{$fb}1{$e8}a${CBM-R}"e"{CBM-M}2410
2{$f2}a${CBM-R}"b"{CBM-M}2310
2{$fc}2270
72cl$:c4$" Entfernung"::be
q2c4$" Leitzahl"::le
T2c4$" Abbildungsmassst."::ab
2$bl{CBM-R}le{CBM-Z}be{CBM-Z}(ab{CBM-N}1):bl{CBM-R}{CBM-J}((bl{CBM-N}.05){CBM-D}10){CBM-Z}10
{CBM-J}2.c4$" Blende ="bl:
F28 1,13,20,wd$
Z2b{CBM-K}a$:a$P
"  KR  2.5 + 27 Mired"
{$f3}<Z
"  KR  3   + 35 Mired"
=
"  KR  6   + 50 Mired"
+=
"  KR  9   + 81 Mired"
g=
"  KR 12   +112 Mired"
C={CBM-I}
"  KR 15   +131 Mired"
{$7f}={CBM-D}
"  KB  2   - 18 Mired"
={CBM-L}
"  KB  3   - 32 Mired"
{CBM-Y}={SHIFT-*}
"  KB  6   - 45 Mired"
S=J
arbtemperatur der Beleuchtung."::a$:a{CBM-R}E(a$)
6
a{CBM-W}0{CBM-M}2710
>6{CBM-N}
c4$c4$" Farbtemperatur des  Filmes"::b$:b{CBM-R}E(b$)
l6{CBM-H}
b{CBM-W}0{CBM-M}2730
\6{CBM-V}
a{CBM-N}b{CBM-R}0{CBM-M}2710
6H
c4$"    Korrektureigenschaft des Filters in";: c4$"   Mired"
{CBM-E}6R
:k$:k{CBM-R}E(k$)
{SHIFT-*}6{CBM--}
k{CBM-W}{CBM-E}0{CBM-M}2800
P6{$e6}
a{CBM-D}b{CBM-R}0,20,wd$
{$f6}.{CBM-K}a$:a${CBM-R}""{CBM-M}1940
/a${CBM-R}"j"{CBM-M}1820
/{CBM-POUND}a${CBM-R}"n"{CBM-M}220
!/{CBM-R}1940
w/{CBM-C}cl$:"         Blitzlichtberechnungen         ";
]/F
/P"       Was soll berechnet werden?":
/Z
{CBM-D}/{$e4}" [1] Blitzentfernung":
{$de}/{$ee}c4$" [2] Blitzentfernung bei Nahaufnah
&a${CBM-R}"1"{CBM-M}3140
{$e3}90a${CBM-R}"2"{CBM-M}3570
{$ed}9:3100
{$fd}9dcl$c4$qb$;
.:n"*                                      *";
_:x"*              Filterdatei             *";
:B"*                                      *";
:Lqb$;
L:Vq3$" Sie koennen irgend einen Wert9"
{CBM-V}@f
{CBM--}@p" Lampe  75Watt        "
{$e2}@z
aD" 2800Kelvin   357Mired  Filt.= KB15+KB6"
aN
5aX" Lampe 100Watt        "
;a
Ja" 2900Kelvin   345Mired  Filt.= KB15+KB2"
Pa
a " Projektor Lampe Hochvolt"
a{CBM-N}
Fa{CBM-H}" 3000Kelvin   333Mired{CBM-R}""{CBM-M}2370
{$eb}2la${CBM-R}"j"{CBM-M}2310
{$fc}2va${CBM-R}"n"{CBM-M}1980
3{$60}2370
-3Jcl$q3$" Leitzahl d.Blitzes"::le
33T
k3{$7e}c4$" Blende"::bl
M3c4$" Abbildungsmasst."::ab
3be{CBM-R}le{CBM-Z}(bl{CBM-D}(ab{CBM-N}1))
 3be{CBM-R}{CBM-J}((be{CBM-N}0.005){CBM-D}100){CBM-Z}100
L3{CBM-+}c4$" Entfernung Blitz >  Motiv ="be"m"
{SHIFT--}3{CBM-A}
"  KB  9   - 81 Mired"
{$ef}=T
"  KB 12   -112 Mired"
>{$de}
"  KB 15   -131 Mired"
>{$e8}
@
>{$f2}
cl$;
">{$fc}

(>
o>"             Farbtemperatur    "
u>
{$7c}>$"             verschiedener     "
>.
{SHIFT-POUND}>8"              Lichtquellen     "
{CBM-P}>b
{CBM-J}>l
{CBM-F}>v0{CBM-M}2760
{$de}6{$f0}
c{CBM-R}1000000
{$ed}6{$fa}
a{CBM-W}{CBM-E}0{CBM-M}2850
~6a{CBM-R}c{CBM-D}b{CBM-Z}(c{CBM-N}k{CBM-D}b)

7a{CBM-R}{CBM-J}(a{CBM-N}.5)
72910
&7"b{CBM-W}{CBM-E}0{CBM-M}2890
87,b{CBM-R}c{CBM-D}a{CBM-Z}(c{CBM-Q}k{CBM-D}a)
f76b{CBM-R}{CBM-J}(b{CBM-N}.5)
p7@2910
D7jk{CBM-R}c{CBM-D}(b{CBM-Q}a){CBM-Z}(a{CBM-D}b)
R7tk{CBM-R}{CBM-J}(k{CBM-N}.5)
7^cl$q3$" Ausgangs Farbtemperatur:";a
A7Hc4$" Filmfarbtemperatur:     ";b
{$ea}7Rcmen":
{$fb}/{$f8}c4$" [3] Blendenzahl":
0c4$" [4] Menue"
0
'0 1,13,20,bw$
;0 {CBM-K}a$:a${CBM-R}""{CBM-M}2080
l0*a${CBM-R}"1"{CBM-M}2140
]04a${CBM-R}"2"{CBM-M}2230
N0>a${CBM-R}"3"{CBM-M}2530
{$7e}0ha${CBM-R}"4"{CBM-M}220
0r2080
{CBM-P}0\cl$q3$" Leitzahl d.Blitzes"::le
{CBM-J}0F
M0Pc4$" Blende"::bl
Z0Zbe{CBM-R}l eingeben"
{$f5}:c4$"          Sei es der Miredwert"
;c4$"                  oder"
f;c4$"  der Korrekturfaktor in (KB oder KR)"
w; 1,10,20,wt$
G;{CBM-POUND}t{CBM-R}1{CBM-@}2000:
Q;{CBM-R}3310
;{CBM-C} 1,13,20,wd$
;F{CBM-K}x$:x${CBM-R}""{CBM-M}3270
{CBM-M};Px${CBM-R}"j"{CBM-M}3310
{CBM-Y};Zx${CBM-R}"n"{CBM-M}220
A;{$e4}327  Filt.= KB15+KB2"
La{CBM-V}
RaH
{$ef}aR"                 >>  "
~a{CBM--}t{CBM-R}1{CBM-@}2000:
b{$e6}cl$;
b{$f0}
0b{$fa}" Projektor Lampe Halogen "
6b
Ab" 3400Kelvin   294Mired  Filt.= KB12"
Gb
b"" Halogenlampe Hartglas"
b,
{CBM-L}b6" 3200Kelvin   313Mired  Filt.= K 1,15,20,wd$
{$f1}3{SHIFT-@}{CBM-K}a$:a${CBM-R}""{CBM-M}2490
4Da${CBM-R}"j"{CBM-M}2230
4Na${CBM-R}"n"{CBM-M}1980
4X2490
a4{$e2}cl$q3$" Blitzentfernung"::be
g4{$ec}
A4{$f6}c4$" Leitzahl"::le
G4


T4

bl{CBM-R}le{CBM-Z}be
4
c4$" Blende =";bl
4
 1,13,20,wd$
{CBM-A}4(
{CBM-K}a$:a${CBM-R}""{CBM-M}2600
A42
a${CBM-R}"j"{CBM-M}2530
R4<
a${CBM-R}"n"{CBM-M}
 >{$60}"          Angaben erfolgen in"
{$e6}>J
!?T"            "rn$"K"rf$"elvin und "rn$"M"rf$"ired   "
'?{$7e}
n?"             ausserdem der     "
t?
{$7b}?"           Filtertyp in KR+KB  "
?{CBM-+}
{CBM-A}?{CBM-A}"  Alle Angaben beziehen sich auf Tages-"
{CBM-L}?{SHIFT-@}
W4$" Filterwert         ";k" Mired"
8{$7c} 1,3,15,"Filterwert mit -  =roetl. Filter(KR)"
p8 1,3,17,"Filterwert mit +  =blauer Filter(KB)"
A8 1,15,20,wd$
U8{CBM-K}a$:a${CBM-R}""{CBM-M}2970
8{CBM-@}a${CBM-R}"j"{CBM-M}2710
8{CBM-S}a${CBM-R}"n"{CBM-M}220
 8{CBM-U}2970
{CBM-A}8Bcl$c4$qb$;
{$e1}8L"*
e{CBM-Z}bl
1c4$" Entfernung Blitz >  Motiv ="be"m"
1 1,13,20,wd$
+1{CBM-K}a$:a${CBM-R}""{CBM-M}2200
<1{CBM-I}a${CBM-R}"j"{CBM-M}2140
m1{CBM-D}a${CBM-R}"n"{CBM-M}1980
{$7b}1{CBM-L}cl$::c4$"  Was soll errechnet werden?"
{CBM-G}1{SHIFT-*}:::c4$"  ";:rn$"E"rf$"ntfernung"
E1Jc4$"  ";:rn$"B"rf$"lende"
V1T 1,13,20,b0
J;{$ee}cl$
{$f7};{$f8}line{CBM-R}3440::: 1,10,5," Suchbegr."::k$
<
l{CBM-R}C(k$)
<
cl$c4$
$<
a$:line{CBM-R}line{CBM-N}10
8<
a${CBM-R}"@"{CBM-M}:3260
g<*
i{CBM-R}1{CBM-@}C(a$)
^<4
J(a$,i,l){CBM-R}k${CBM-M}3410
E<>
i
O<h
3350
<r
 1,10,5,a$: 1,10,20,wt$
<\
t{CBM-R}1{CBM-@}2000:3340
{CBM-F}<F
"  KR  2   + 18 Mired"
W<B15"
{CBM-C}b@
{$de}bj" Halogenlampe Quarzkolben "
{$e4}bt
c^" 3400Kelvin   294Mired  Filt.= KB12"
cH
8cR" Nitraphotlampe  500W/27Im "
>c{$7c}
Ic" 3200Kelvin   313Mired  Filt.= KB15"
Oc
c" Nitraphotlampe  500W/34Im "
c{CBM-@}
Cc{CBM-S}" 3400Kelvin   2941980
{CBM--}4f
2600
{$f2}4p
*farbtemperatur*
5z
cl$q3$"             Farbtemperatur"
p5D
q3$" Berechnung der Farbtemperatur nach Ein- ";
5N
c4$"  gabe von 2 Werten.Wenn kein Wert vor-"
{CBM-Z}5X
c4$"         handen,dann 0 eingeben."
{CBM-X}5
t{CBM-R}1{CBM-@}2000:
{$f9}5
cl$q3$" F?D"                lichtfilm"
{SHIFT--}?N
{$ee}?X 1,10,22,wt$
{$fe}?{$e2}t{CBM-R}1{CBM-@}2000:
@{$ec}cl$;
@{$f6}
,@
" Kerze                "
2@

_@" 1900Kelvin   526Mired  Filt.= 2*KB15"
E@
@(" Lampe  40Watt        "
@2
{CBM-U}@<" 2600Kelvin   385Mired  Filt.= KB15+KB                        *";
9V"*               Tabellen               *";
c9 "*                                      *";
m9{$ea}qb$;
v9{$f4}q3$
{$7d}9{$fe}"            [1] Filterdatei    "
9q3$
{CBM-Z}9"            [2] Lichttabelle   "
A9{CBM-K}a$:a${CBM-R}""{CBM-M}3100
R9

{$fc}{$f0}
{CBM-E}{$fb}lYL8{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}K {CBM-+}MNKP{$f8}{$60}{SHIFT-POUND}K {SHIFT-+}MNKP{$f8}{$60}{CBM-Z}KI{$f0}NK{$60} M{CBM-A}{CBM-Z}KP{$f6}{$60}I{CBM-C}{$f0}I@i I {$60}i{$60}I {$60}{SHIFT-POUND}
{$60}{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
 {$ed}K L{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
KK _L  OI
{$f0}{$f9} tMIP M{$e6}IP {CBM-+}M{CBM--}IP NRIP FMHIP {SHIFT-+}M{CBM-V}IP N{CBM-H}IP {$eb}M{CBM-N}IP  M IP {CBM-P}MIP{$60} {$7d}O{$ea}{$ea}{CBM-Z}{$e9}N{$fd}{CBM-Z}{$ea}N{$fe}
RBeschreibungen auf Diskette:
----------------------------


composer.txt
17und4.txt

Geben Sie bitte den Filenamen ein und
dr{CBM-X}cken dann Return. Nach dem Laden
gelangen Sie mit der CLR-Taste an den
Textanfang.













































g ";:{$fb}"###.####";h;:" m"
i#\c4$"       minimale Entfernung ";:{$fb}"###.####";k;:" m"
#Fc4$"       maximale Entfernung ";:{$fb}"###.####";l;:" m"
#P1000
{CBM-I}#Zl{CBM-R}h{CBM-D}g{CBM-Z}(h{CBM-Q}g{CBM-N}f)
{CBM-O}#b{CBM-R}{CBM-J}((b{CBM-N}.05){CBM-D}10){CBM-Z}10
T#h{CBM-R}{CBM-J}((h{CBM-N}.05){CBM-D}1000){CBM-Z}1000
{$ef}#k{CBM-R}{CBM-J}((k{CBM-N}.05){CBM-D}1000){CBM-Z}1000
{$f5}%l:c$

&vc{CBM-R}E(c$):c{CBM-R}c{CBM-Z}1000
,&{$60}c4$" Brennweite in mm":f$:
a&Jf{CBM-R}E(f$):f{CBM-R}f{CBM-Z}1000
P&T:" Minimale Entfernung in m":k$:k{CBM-R}E(k$)
&{$7e}:" Maximale Entfernung in m":l$:l{CBM-R}E(l$)
{CBM-E}&g{CBM-R}2{CBM-D}k{CBM-D}l{CBM-Z}(k{CBM-N}l)
M&h{CBM-R}(2{CBM-D}k{CBM-D}l{CBM-Q}f{CBM-D}(k{CBM-N}l)){CBM-Z}(l{CBM-Q}k)
{SHIFT--}&b{CBM-R}f{CBM-D}f{CBM-Z}(h{CBM-D}c)
{$f7}&{CBM-+}g{CBM-R}{CBM-J}((g{CBM-N}.
IP
{CBM-E}{$fb}IP8{$60}H{SHIFT-POUND}{$fb}{CBM-Z}KPNKNK{$60}{CBM-N}{CBM-Z}K{$fb}{CBM-Z}K{$fc}
{$fb}{SHIFT-POUND}H{$fb}{$ee}KP{$ee}K{$60}{CBM-N}{CBM-Z}KPNKNK{CBM-Z}K{$fb}{CBM-Z}K{$fc}
{$fb}{$60}{CBM-N}{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-D}K{CBM-E}{$fb}i{$fb}{$60}I{CBM-C}{$f0}
{CBM-S}K '{$f0}{$ee}KlM M{SHIFT-POUND} M{SHIFT-POUND}
K{CBM-Z}KI{$f0}{$ee}K{$60}lWL KL{CBM-A} JM{$60} M{$fb}{$60}l2N{CBM-Z}KP{$f8}{$60} {$e9}L{CBM-A}{$fa}IP{$f6} {$e9}LINK{$60}lL {$e9}L{CBM-A}{$f7}I{$f0}l8M {$e9}L 8M  {$e9}L{CBM-A}{$e2}I{$f0}{$ee} 8M{$f1}{$e7} {$e9}L{CBM-A}
I{$f0}{$f7} 8M980
 a${CBM-R}"7"{CBM-M}3010
 a${CBM-R}"8"{CBM-M}
# &460
, 0cl$
] :"         Schaerfentiefentabelle         ";
 d"  Zerstreuungskreisdurchmesser in mm"::c$
 nc{CBM-R}E(c$)
{CBM-POUND} xc{CBM-R}c{CBM-Z}1000
H B:"Brennweite in mm"::f$
T Lf{CBM-R}E(f$)
{$e1} Vf{CBM-R}f{CBM-Z}1000
!:"Gegenstandswerlaengerung"
)zc4$"          [3] Brennweite"
9)Dc4$"          [4] Hauptmenue"
j)N 1,10,20,bw$
^)X{CBM-K}a$:a${CBM-R}""{CBM-M}1400
O)a${CBM-R}"1"{CBM-M}1460
)a${CBM-R}"2"{CBM-M}1560
)a${CBM-R}"3"{CBM-M}1660
{CBM-K}) a${CBM-R}"4"{CBM-M}220
{CBM-Q}){CBM-N}1400
Q){CBM-H}cl$q3$"  Abbildungsmassstab"::
{$f8}){CBM-V}c4$" Brennwei
::
,c4$" Auszugsverlaengerung"::as$:as{CBM-R}E(as$)
d,c4$" Abbildungsmassstab"::ab$:ab{CBM-R}E(ab$)
q,br{CBM-R}as{CBM-Z}ab
U,{CBM-@}c4$" Brennweite"::{CBM-T}7);br"mm"
,{CBM-S} 1,10,20,wd$
,{CBM-U}{CBM-K}a$:a${CBM-R}""{CBM-M}1720
{CBM-Q},Ba${CBM-R}"j"{CBM-M}1660
{CBM-C},La${CBM-R}"n"{CBM-M}1300
F,V1720
O, cl$
{$f6},{$ea}"
${CBM-I}l{CBM-R}{CBM-J}((l{CBM-N}.05){CBM-D}1000){CBM-Z}1000
${CBM-D}ze,3:sp,10:cu
a${CBM-L}"Blende";:{CBM-T}28);:{$fb}"##.##";b
u${SHIFT-*}ze,6:sp,4:cu
$J"Hyperfokale Entfernung ";:{$fb}"###.####";h;:" m"
H$Tc4$"       minimale Entfernung ";:{$fb}"###.####";k;:" m"
%{$de}c4$"       maximale Entfernung "005){CBM-D}100){CBM-Z}100
'{CBM-A}h{CBM-R}{CBM-J}((h{CBM-N}.005){CBM-D}100){CBM-Z}100
('{SHIFT-@}b{CBM-R}{CBM-J}((b{CBM-N}.05){CBM-D}10){CBM-Z}10
v'Dcl$c4$" Optimale Enfernung     =";g"m":
'N:" Hyperfokale Entfernung =";h"m":
{CBM-M}'X:" Mindest Blendenwahl    =";b:
{CBM-U}'{$e2} 1,10,20,wd$
L'{$ec}{CBM-K}a$:a${CBM-R}""{CBM-M}1260
{SHIFT--}'{$f6}a${CBM-R}"j"{CBM-M}1080
{$ed}'
a${CBM-R}"n{$f1}l{$fe}K{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}K {CBM-+}MNKP{$f8}{$60}{SHIFT-POUND}K {SHIFT-+}MNKP{$f8}{$60}{CBM-Z}KI{$f0}NK{$60} M{CBM-A}{CBM-Z}KP{$f6}{$60}I{CBM-C}{$f0}I@i I {$60}i{$60}I {$60}{SHIFT-POUND}
{$60}{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
 {$ed}K L{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
KK _L  OI
{$f0}{$f9} tMIP M{$e6}IP {CBM-+}M{CBM--}IP NRIP FMHIP {SHIFT-+}M{CBM-V}IP N{CBM-H}IP {$eb}M{CBM-N}IP  M IP {CBM-P}MIP{$60} {$7d}O{$ea}{$ea}{CBM-Z}{$e9}N{$fd}{CBM-Z}{$ea}N{$fe} eite in m"::g$:cl$
!g{CBM-R}E(g$)
$!g{CBM-E}f{CBM-M}710
b!c4$re$"    Bedingung"bl$
Y!{CBM-POUND}c4$rn$"   Gegenstandsweite  > als Brennweite   ";
{CBM-A}!{CBM-R}rn$"             nicht erfuellt!            ";rf$
G!{CBM-C}" Neuer Wert":g$
S!Fg{CBM-R}E(g$)
{$de}!Pw{CBM-R}{SHIFT-@}(2)
{$e6}!Zb{CBM-R}1
{$f2}!{$e4}i{CBM-R}1{CBM-@}10
te"::br$:br{CBM-R}E(br$)
)*Hc4$" Auszugsverlaengerung"::as$:as{CBM-R}E(as$)
6*Rab{CBM-R}as{CBM-Z}br
D*{CBM--}c4$" Abbildungsmassstab":::{CBM-T}7);ab":1"
U*{$e6} 1,10,20,wd$
*{$f0}{CBM-K}a$:a${CBM-R}""{CBM-M}1510
*{$fa}a${CBM-R}"j"{CBM-M}1460
{CBM-Q}*a${CBM-R}"n"{CBM-M}1300
{CBM-J}*1510
{CBM--}*cl$q3$" Auszugsverlaengerung"::
+"  Linsenkombinationen":
(-{$f4}c4$"Aus Objektivbrennweite und Vorsatzlinse"
w-{$fe}c4$"    wird das Gesamtsystem errechnet."
H- 1,10,20,wt$
X-t{CBM-R}1{CBM-@}2000:
-G(147)
{CBM-@}-&:" Brennweite in mm"::f
I-0:" Brechkraft in Dioptr."::d
{$e1}-:f1{CBM-R}(1{CBM-Z}f){CBM-D}1000:;:{$fb}"###.####";l;:" m"
%{$e8}b{CBM-R}b{CBM-D}w
 %{$f2} 1,12,20,wt$
0%{$fc}t{CBM-R}1{CBM-@}2000:
a% 1,12,20,wd$
u%{CBM-K}a$:a${CBM-R}""{CBM-M}1040
K%a${CBM-R}"j"{CBM-M}cl$:600
{$7b}%$a${CBM-R}"n"{CBM-M}220
%.1040
{CBM-F}%8cl$q3$" Optimale Entfernungs Blendeneinstellung"
{$eb}%bq3$"  Zerstreuungskreis Durchmesser in mm"
"{CBM-M}220
{$f7}'
1260
( abbildungsmassstab
9(cl$q3$"         Abbildungsmassstab"
G((c4$"   Alle Masse bitte in mm eingeben."
(2c4$"      Was soll berechnet werden?"
(<c4$
F(fc4$"          [1] Abbildungsmassstab"
{$f3}(pc4$"          [2] Auszugsv

{CBM-E}{$fd}{$e6}{$fd}P{$e6}{$fe}I{$f0}{$f4}I{$f0}{$f0}IP
{CBM-Z}K{$fd}{CBM-Z}K{$fe}{CBM-*}{CBM-+}{$fd}{$e9}N{CBM-+}{$fe}{$ea}NIP{$60} KL{SHIFT-POUND}
{$60}h JMHl=N{CBM-Z}
K{$e9}N{CBM-Z}K{$ea}N{CBM-I} I~ R~ {$eb}NP{$f8} L~{SHIFT-POUND}lC~{CBM-Z}{$e9}NMKP{CBM-Z}{$ea}NMK{$f0} M{$eb}{SHIFT-POUND}
{$f0}{SHIFT-POUND}~{$fd}{$fe}{$60}{$ea}{CBM-POUND}{CBM-Z}K{CBM-S}KI{$e8}{$ec}KPMK{CBM-A} {CBM-X}K JM{$60}{$ea}{$ea}{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-D}K{CBM-E}{$fb}K{SHIFT-POUND}~K{SHIFT-POUND}K tM {$e4}~{CBM-N}PNKP{$f5}NKP{$f0}{$f0}{$e1}{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-D}K{CBM-Z}K{$fb}{$60}{CBM-S}K{CBM-D}K{$e8}PH{$e4}{$fb}PD"{$ee}h{CBM-R}f{CBM-D}f{CBM-Z}(b{CBM-D}c)
"{$f8}k{CBM-R}h{CBM-D}g{CBM-Z}(h{CBM-N}g{CBM-Q}f)
#"h{CBM-N}f{CBM-E}g{CBM-M}890
:"b{CBM-R}{CBM-J}((b{CBM-N}.05){CBM-D}10){CBM-Z}10
u"h{CBM-R}{CBM-J}((h{CBM-N}.05){CBM-D}1000){CBM-Z}1000
P" k{CBM-R}{CBM-J}((k{CBM-N}.05){CBM-D}1000){CBM-Z}1000
"*l{CBM-R}{CBM-J}((l{CBM-N}.05){CBM-D}1000){CBM-Z}1000
 "4ze,3:sp,10:cu
B">"Blende";:{CBM-T}28);:{$fb}"##.##";b
V"hze,6:sp,4:cu
#r"Hyperfokale Entfernunc4$" Brennweite"::br$:br{CBM-R}E(br$)
2+,c4$" Abbildungsmassstab"::ab$:ab{CBM-R}E(ab$)
?+6as{CBM-R}br{CBM-D}ab
M+@c4$" Auszugsverlaengerung"::{CBM-T}7);as"mm"
{$7e}+j 1,10,20,wd$
+t{CBM-K}a$:a${CBM-R}""{CBM-M}1620
{CBM-T}+^a${CBM-R}"j"{CBM-M}1560
{CBM-H}+Ha${CBM-R}"n"{CBM-M}1300
{CBM-V}+R1620
{$e4}+{$7c}cl$q3$"    Brennweite      "f2{CBM-R}f1
{$fc}-dgb{CBM-R}f1{CBM-N}d:gf{CBM-R}1{CBM-Z}gb:d2{CBM-R}1{CBM-Z}d
.ncl$
5.x:" Brennweite     ";f"mm =";f2"Dioptrien"
t.Bd2{CBM-R}{CBM-J}((d2{CBM-N}.0005){CBM-D}1000){CBM-Z}1000
.L:" Brechkraft     ";d"Dioptrien =";d2"mm"
{CBM-T}.Vgf{CBM-R}{CBM-J}((gf{CBM-N}.0005){CBM-D}1000){CBM-Z}1000
Q.:" Gesamtsystem   ";gb"Dioptr.=";gf"mm"
{$e2}. 1,1itzberechnung  "

." [7] Tabellen         "
4{CBM-@}
r{CBM-S}" [8] Ende             "
x{CBM-U}
B"    Bitte waehlen sie das Modul aus"
L{CBM-K}a$:a${CBM-R}""{CBM-M}460
{CBM-+}Va${CBM-R}"1"{CBM-M}560
{CBM-Y} a${CBM-R}"2"{CBM-M}1080
H{$ea}a${CBM-R}"3"{CBM-M}1310
Y{$f4}a${CBM-R}"4"{CBM-M}1760
{$ea}{$fe}a${CBM-R}"5"{CBM-M}2650
{$fb}a${CBM-R}"6"{CBM-M}1
{CBM-+}{SHIFT-POUND}J{CBM-I}{$f1}&'{CBM-I}
{CBM-I}P{CBM-I}
 P{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-I}  {SHIFT-@}~{CBM-I}{$f0} {SHIFT-POUND} {CBM-X}~{SHIFT-POUND}
 U~{CBM-I}P 3{CBM-G}{CBM-G}"I-{CBM-G}#I
.lQ{CBM-POUND}disclader64/128
{$e3}{CBM-@}{$7c}{CBM-G}{CBM-M}{$e4}{CBM-M}{CBM-S}



lh{CBM-R}
1{$ea}F{$fe}g{$fe}j{$f3}{$f2}{$f2}p{$f2}3{$f3}w{$f1}{CBM-+}{$ed}{$f6}>{$f1}/{$f3}F{$fe}{CBM-G}{$f4}{$ed}{$f5}@l~










1.demo v2+











 2.demo v2+.64











{SHIFT-*}----------------













"

 == disclader64/128==
w
i{CBM-R}0{CBM-@}24:cd${CBM-R}cd${CBM-N}G(17):cu${CBM-R}cu${CBM-N}G(145)::cr${CBM-R}G(29)
W
nr{CBM-R}2:fl{CBM-R}7:pf${CBM-R}"->":pl${CBM-R}"  "

in$(fl),d$(fl),id$(fl),zl(fl)
{CBM-Q}
G(147)G(14)
A
53280,0:53281,0
R{$e8}G(147)G(14)
{$e9}"64 Fever"nr::"Inhaltsverzeichnis:":%

 foto ===================128pc
i<
                             =
uD
G(014)
ON
c4${CBM-R}G(017):cl${CBM-R}G(147)
X
re${CBM-R}G(028):bl${CBM-R}G(031)
{CBM-T}
rn${CBM-R}G(018):rf${CBM-R}G(146)
{CBM-R}
zz${CBM-R}G(042)
M
q{CBM-R}1{CBM-@}10:qa${CBM-R}qa${CBM-N}c4$:q
{$e7}
q{CBM-R}1{CBM-@}3:q3${CBM-R}q3${CBM-N}c4$:q
{CBM-N}
q{CBM-R}1{CBM-@}40:qb${CBM-R}qb${CBM-N}zz8,4:
P"     Info"," 64","in*"
;{$e2}"     17 und 4"," 64","17*"
C{$e4}"     Disk-Editor"," 64","disked*"
{$f6}"     Mathehilfe"," 64","mathe*"
{CBM-Z}{$f7}"     Composer"," 64","compo*"
S{$f8}"(40) Foto Labor","128","fotog*"

{$f9}"(40) Merkur Spielautomat","1

{SHIFT-*}{CBM-G}{$fb}E{$fd}{$fd}{CBM-G}{$fc}E{$fe}{$fe}{$60}8{CBM-G}{$fb}{$e5}{$fd}{$fd}{CBM-G}{$fc}{$e5}{$fe}{$fe}{$60}{CBM-G}{$fb}{$fd}{$fd}{CBM-G}{$fc}{$fe}{$fe}{$60}{CBM-G}{$fb}%{$fd}{$fd}{CBM-G}{$fc}%{$fe}{$fe}{$60}{CBM-G}{$fb}e{$fd}{$fd}{CBM-G}{$fc}e{$fe}{$fe}{$60}{CBM-G}{$fd}i~{$fd}{CBM-G}{$fe}i~{$fe}{$60}{$fd}&{$fe}{$60}f{$fe}F{$fd}{$60}{SHIFT-POUND}~{$fd}{$fe}{$60}{SHIFT-POUND}
{$fd}{$fe}{$60} {SHIFT-*}{$fd}{$f0}{$eb}P{$f0} {SHIFT-*}{$fd}{$f0}{$e9}P  {SHIFT-*}{SHIFT-+}{CBM-A}  {SHIFT-*}{SHIFT-+}{CBM-A}R {SHIFT-*}M{$fd}{$f0}IPN {SHIFT-*}I{$fd}{$f0}EP{CBM-C}{CBM-G}{$fd}y{CBM-G}{$fe}z A{SHIFT-*}{$f0}
{SHIFT-*}{$fb}&{$fc}fzFy{CBM-A}{$f3}{CBM-G}yzP{$f0}{$60}{CBM-I}
yz{CBM-G}{$fd}{$fe}Pl

{$e8}{$fd}&{$fe}{CBM-G}{$fe}{$f7}8{CBM-G}{$fb}{$e5}{$fd}{CBM-POUND}{CBM-G}{$fc}{$e5}{$fe}&y&z({$fc}{$fb}f{$fe}F{$fd}J{$e3}{$60} {CBM-B}{SHIFT-*}{CBM-G}y{$fd}^lDB =B MB ZB8{CBM-G}_{$e9}_{CBM-A}F{$60}
{CBM-G}[_H{CBM-G}\_{CBM-G}{$fd}[{CBM-G}{$fe}{$fd}{$60}
8{CBM-G}]]{$f1}_j{CBM-N}H{CBM-G}^]H]H{SHIFT-POUND}
] =B WBlB{CBM-G}{$fd}C{CBM-G}{$fe}DlWA gC{CBM-G}{$fb}{CBM-+}{$fd}{$fd}{$fb}{CBM-G}{$fc}{CBM-+}{$fe}{$fe}{$fc}{$60} gC
{SHIFT-*}(
{CBM-G}{$fd}C{CBM-A}H{CBM-G}{$fe}C{$60} rC {SHIFT-*}{$e7} gC {SHIFT-*}{SHIFT--} gC ){SHIFT-*}S gC 6{SHIFT-*}I gC p{SHIFT-*}{CBM-B} gC u{SHIFT-*}{CBM-J} gC {SHIFT-*}{CBM-Q} rC {$f5}{SHIFT-*}{CBM-K} rC A c{SHIFT-*}{$e6}{$fd}P{$e6}{$fe}{$60}{CBM-G}{$fe}0{$f2}{$60}
{CBM-E}_yH{CBM-E}_z{$60}
{CBM-E}y{$fb}{$f2}lz{SHIFT-*} DP{$ea}{CBM-E}CQ{$fb}{CBM-A}{$e4}lz{SHIFT-*} QD{CBM-G}{$fb}
{CBM-+}{$fe}{$f0} (FP{$fb}{$e6}{$fc}{$e6}DJP{$f4}{CBM-+}{$fd}{$f0} (FJP{$fa}{$60}{CBM-E}C{$fb}H{$60}CH{$60}{SHIFT-POUND}. <F F{SHIFT-POUND}(F"F{$60}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-G}x{$60}{$ea} KL{SHIFT-POUND}
{$60}{CBM-N} =Nh JMHI
P{SHIFT-POUND} {$60} GI {$f0}{$f9}
GHI{CBM-N}{$f0}#I'{$f0}I"{$f0}I
{$f0} GI {$f0}{CBM-N}{$f0}{CBM-@}IG{$e6}IP{$ee}{CBM-G}F{$60}8{$60}{$ea}{$ea}{$ea}~Ia{$e9}){$60}
{SHIFT-POUND}
{$fd}{$fe}{$f0}{CBM-Z}{CBM-P}F{$fb}{SHIFT-POUND}
{$fc} {SHIFT-*}{CBM-@}J{CBM-E}G{$e6}J {CBM-+}FE{$fd}{$fd}{$e6}{$fe}FIP{$de}{$60}
{CBM-E}GI0I:8{$60}{CBM-I}
{CBM-P}F{CBM-I}

G(5)
+{$ea}G(176);:i{CBM-R}0{CBM-@}36:G(192);::G(174)
8{$eb}ih{CBM-R}1{CBM-@}fl
^{$f2}in$(ih),d$(ih),id$(ih):zl(ih){CBM-R}yp
T{$fc}G(221){CBM-T}3)d$(ih);
{$fd}j{CBM-R}0{CBM-@}C(in$(ih))
{CBM-@}{$fe}{CBM-T}6{CBM-N}j)J(in$(ih),j{CBM-N}1,1);
{CBM-N}

{SHIFT-@}{CBM-T}38)G(221)
{SHIFT-*}
{$e8}{CBM--}G(173);:i{CBM-R}0{CBM-@}36:G(192);::G(189)

{SHIFT--}G(14):{CBM-T}3)"Wa$:q
{CBM-H}
ze{CBM-R}2035:sp{CBM-R}2036:cu{CBM-R}65520
?{CBM-V}
wd${CBM-R}"Weitere Daten ? (j/n)"
vH
wt${CBM-R}"Bitte warten"
RR
bw${CBM-R}"Bitte waehlen Sie"
{$7f}{CBM--}
cl$qb$;
{CBM-A}{$e6}
"*                                      *";
{$e1}{$f0}
"*          A&B Welte Software          *";
{$fa}
"*
j28","spiela*"

'G(19)cr$H(cd$,y1)pl$
6
'G(19)cr$H(cd$,y)pf$
<
$'


){CBM-R}124{CBM-M}1730
{CBM-U}G(19)"run"G(34)id$(i):842,19:843,13:208,2:
{SHIFT-POUND}BG(19)"load"G(34)id$(i)G(34)",8,1"
{CBM-U}Crn${CBM-R}"run"
FLH(cd$,5)
UVG(145)rn$
{$fd} 631,19:i{CBM-R}1{CBM-@}3:631{CBM-N}i,13::19{CBM-G}z{$fe}{$60} {CBM-B}{SHIFT-*}{CBM-G}{$fb}{$fd}{CBM-G}{$fc}{$fe}{$60}{CBM-G}{$fd}y{CBM-G}{$fe}z{$60}
{CBM-E}y{$fd}H{CBM-E}y{SHIFT-POUND}
{$fe}{$60}{CBM-E}y{CBM-N}{$e8}y{$60}{CBM-E}y{CBM-N}Jy{$60}
 &AP{$f8}{CBM-A}{$f6}Hl&A
{CBM-E}yP{CBM-A}H .Al.A
A 6AlA
A cAlA
A Al6A
A AlcA
{CBM-E}{$fd}{CBM-N}H{CBM-E}{$fd}{SHIFT-POUND}
{$fe}{$fd}{$60} WA(lWA
{CBM-G}{$fb}{$fd}{CBM-A}H{CBM-G}{$fc}{$fd}{CBM-G}{$fb}{$fd}{CBM-G}{$fc}{$fe}{$60}{CBM-G}[I[{$e6}\{$60}{CBM-G}{$fd}{$fb}{CBM-G}{$fe}{$fc}{$60} {CBM-R}A
{CBM-E}[{$fd}H{CBM-E}[{$fe}{SHIFT-+} {CBM-R}A
{CBM-E}[E[{$fd}H{CBM-E}[E\{$fe}E {CBM-R}A
{CBM-E}[EA{$fd}{CBM-G}BI
{$fe}{$e6}[P{$e6}\CH{CBM-E}yDH{CBM-E}y{$fb}H{CBM-E}y{$fc}{$60}{CBM-E}y{$fc}{$60}{SHIFT-POUND}X{CBM-I}
{$fc}{$fe}{$fb}{$fd}{CBM-I} ZE{$e6}{$fc}{$e6}{$fe}JP{$f6}{$60}X{CBM-G}){$fc}{$60}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea} {$e5}C {$f1}C{CBM-@}C{CBM-I}
C{CBM-+}D{CBM-G}{$fd}HP{$e8}{$e6}DQC{$f0}D{$fb}P{$f2}{$e4}{$fc}P{$ee}lA{SHIFT-*}{$fd}{$fe}{$60}{SHIFT-POUND}PqD 6D{SHIFT-POUND}{$f0}qD{$60} {$e5}Cl{$f1}CC {CBM-E}yD{$60} QD
{CBM-+}{$fe}{$f0}P{$ea}{$ea}{$ea}{CBM-E}CQ{$fb}PHP{$f7}{$e6}{$fc}JP{$f2}{CBM-+}{$fd}{$f0}
{CBM-E}CQ{$fb}PHJP{$f6}lz{SHIFT-*}lA{SHIFT-*}{CBM-I}{CBM-J}y JJ{$f8}{CBM-G}){$fe}{$60}



{$60}{$ef}r{$ea}{$ea}0G JG {CBM-A}D{SHIFT-@}FDHJD{CBM-I}{CBM-X}KD[J{$f8}
{CBM-E}[{$e6}[P{$e6}\

{CBM-K}J{CBM-+}I {$f0}H{CBM-E}GIx{$f0}IEEE
EAWA\AsANAEAAE{CBM-F}AB{$fb}A
BELA,E%B{$e2}A;EBGB
{SHIFT-*}{SHIFT-*}{SHIFT-*}{$f5}{SHIFT-*}A{SHIFT-*}){SHIFT-*}6{SHIFT-*}u{SHIFT-*}p{SHIFT-*} CVCc{SHIFT-*}H{SHIFT-*}{SHIFT-*}{SHIFT-*}Z{SHIFT-*}{SHIFT-*}Q{SHIFT-*}:BtBFC{$7c}C{CBM-U}CBCLCCCC{CBM-@}C{CBM-S}CuCsE{$7d}EED6DCDFEA
DF2F{$f8}E{$ea}E(DjF~~{$e6}^{$60}I
{$fe}l{$fb}A{CBM-G}{$fd}{$fe}{$f0}l{CBM-M}Al{$fb}A{CBM-I}{CBM-X} JyJ{$f8}{CBM-G}{$60}X{CBM-G}){$fb}{$60}

 (D{CBM-G}{$fd}
{CBM-N}{CBM-X}
{$fe}{$fd}{CBM-X}{$fe}{$fe}ljF {CBM-C}E{CBM-E}{$fb}{$fd}HP{$f9}ljFlA{SHIFT-*} DP{$f8}{CBM-E}CQehlen Sie das Programm mit den "
k
{$de}"Cursor-Tasten  >>ab<<  oder >>auf<< aus"

{CBM-*}"und druecken Sie die  <RETURN>-Taste  !";:x{CBM-R}1:y{CBM-R}6:y1{CBM-R}7
{CBM-K}
{$e6}G(19)cr$H(cd$,y)pf$
{SHIFT-POUND}
{$e7}{CBM-K}a$
P
{$e8}a${CBM-R}G(145){CBM-P}y{CBM-E}6{CBM-M}y{CBM-R}y{CBM-Q}1:y1{CBM-R}y{CBM-N}1:10000
{$f9}
{$e9}a${CBM-R}G(17){CBM-P}y{CBM-W}5{CBM-N}fl{CBM-M}y{CBM-R}y{CBM-N}1:y1{CBM-R}y{CBM-Q}1:10000
                   *";
qb$;
"
(
f"" [1] Schaerfentiefe   "
l,
Y6" [2] Entfernungs -Blenden Einstellung"
{$7f}@
j" [3] Abbildungsmassstab"
{CBM-@}t
B^" [4] Vorsatzlinsen    "
HH
{$e6}R" [5] Farbtemperatur   "
{$ec}{$7c}

" [6] Bl

{$fe}@




F
W
P











disclader64/128











info











cpv1.1mc









































































































































{$60}
{CBM-E}[E[{CBM-N}H{CBM-E}[E\\[{$60}{CBM-G}{$fd}{$fe}P{$e8}{$f0} {CBM-R}A{CBM-G}[I{$fd}{CBM-G}\lE{$ea}
{CBM-G}{$fd}]H{CBM-G}{$fe}]{CBM-G}]IlE^{$60} %B8{CBM-G}_{$e9}_{CBM-A}F{$60}
{CBM-G}]_H{CBM-G}^_{$60}
8{CBM-E}_{$e9}]H{CBM-E}_{$e9}
^{CBM-E}]{$fb}H{CBM-E}]{$fc}{CBM-G}_I_{$e6}{$60}{$60}
{CBM-E}_{CBM-+}AA_H{CBM-E}_{CBM-+}BB_{$60} ZB8{CBM-G}_{$e9}_{CBM-A}F{$60}{CBM-G}[I_H{CBM-G}\I
_l{$fb}A
{CBM-E}_[H{CBM-E}_\{CBM-G}_I_{$e6}{$60}{$60} {CBM-A}B{CBM-Z} {CBM-O}{$fb}
]J{$f8}{CBM-G}]I]{$e6}^{$60} =B MB{CBM-@} GB
{CBM-E}_]H{CBM-E}_{$fe}D {$fd}D{$ec}LG {CBM-Q}E{CBM-S}FD{$60} {CBM-R}A{SHIFT-POUND}
{$fe}{$fd}{$60}{CBM-I}
{$f0}{$f2}{CBM-I}P{$ee}{CBM-I}P{$ea}
{CBM-E}[{$e6}[P{$e6}\{CBM-N}{CBM--}
{CBM-G}{$fd}]{$e6}]P{$e6}^{$60}W {CBM-R}A
{CBM-E}[M9E{$fd}H{CBM-E}[M:E{$fe}l{CBM-M}A{CBM-G}{$fd}LE{CBM-G}{$fe}ME{CBM-Z}JDh{CBM-Z}GD{CBM-S}HD{CBM-D}ID( R~GDHDIDHJD{$60}{CBM-Z}JDh(HJD{$60}{CBM-Z}JDh(8{CBM-A}{$f2}]{$e6}^{$60}I
{$fe}l{$fb}A{CBM-G}{$fd}{$fe}{$f0}l{CBM-M}Al{$fb}A{CBM-I}{CBM-X} JyJ{$f8}{CBM-G}{$60}X{CBM-G}){$fb}{$60}

 (D{CBM-G}{$fd}
{CBM-N}{CBM-X}
{$fe}{$fd}{CBM-X}{$fe}{$fe}ljF {CBM-C}E{CBM-E}{$fb}{$fd}HP{$f9}ljFlA{SHIFT-*} DP{$f8}{CBM-E}CQ
K0{$f0}{CBM-E}^0
0~
={$7c}
{SHIFT-POUND}
K{$f0}{$e6}{$fb}P{$e6}{$fc}
{CBM-E}{$fb}0){CBM-D}K{$fd}{$ee}K{SHIFT-*}'P{$e8}{CBM-G}{$fd}I({$fd}{$e6}{$fe}{SHIFT-POUND}
K{CBM-G}{$fe}IPR{CBM-G}{$fd}I{$e8}PL{$60}I{$f0}^I{$f0}7I{CBM-C}{$f0}!IP{CBM-F}{CBM-Z}KK{CBM-G}{$fd}K{CBM-G}{$fe}K{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-@}{CBM-D}K{$fd}{SHIFT-POUND} PH{$fd}{SHIFT-*}'P{$f9}{$f0}{CBM-@}{CBM-Z}KE{$fd}{CBM-POUND}{$e6}{$fe}{SHIFT-POUND}
{$fd}{SHIFT-POUND} {$fd}HP{$e6}{$fe}{SHIFT-*}{$e8}P{$f5}{CBM-+}{$fe} P{$ef}{$60}{$ee}KlK{$fc}KlKI
{$f0}{CBM-N}0)?{$60}){$7f}@{$60}{SHIFT-POUND}{CBM-C}{$60}{CBM-I} F~ {$e4}~ {$7d}O {CBM-Y}~{CBM-N}{$f0}{$f4} L~{SHIFT-POUND}lC~{CBM-Z}K{$fd}{CBM-S}
K{$fe}KK
{SHIFT-POUND}{$ea}a${CBM-R}G(13){CBM-M}1600
>1511
 @i{CBM-R}y{CBM-Q}5
8{CBM-@}G(147)G(144)G(142)
m{CBM-S}B(772){CBM-R}124{CBM-M}1730
{CBM-U}G(19)"run"G(34)id$(i):842,19:843,13:208,2:
{SHIFT-POUND}BG(19)"load"G(34)id$(i)G(34)",8,1"
{CBM-U}Crn${CBM-R}"run"
FLH(cd$,5)
UVG(145)rn$
{$fd} 631,19:i{CBM-R}1{CBM-@}3:631{CBM-N}i,13::19{$fd}{CBM-Z}
K{$fd}{CBM-Z}K{$fe}
{SHIFT-POUND}{$fd}H{SHIFT-POUND}{$fd}H{SHIFT-POUND}{$fd}{CBM-+}{$fd}{CBM-@}{$fe}{$e8}PH
KK{$e8}PHKK{CBM-I}
K{$e8}K{$60}K{CBM-G}{$fe}K{SHIFT-POUND}{$fb}H{SHIFT-POUND}{$fb}H{SHIFT-POUND}{$fb}{CBM-G}{$fb}IK{CBM-G}{$fc}I
K{$60}{SHIFT-POUND}{$fe}{SHIFT-POUND}
K{$fd}{CBM-Z}
K{$fb}{CBM-Z}K{$fc}lK{CBM-Z}
K{$fb}{CBM-Z}K{$fc}
H{CBM-E}{$fb}IP{$f9}E{$fb}
K{$ee}K{$60}{$60}{CBM-Z}
K{$fb}{CBM-Z}K{$fc}F{$fc} ~{CBM-E}{$fb}IP8{$60}{SHIFT-*}
P{CBM-E}{$fb}IP{$f9}E{$fb}
K{CBM-G}{$fc}I
K{$60}{CBM-Z}K{$fb}{CBM-Z}K{$fc}l{$e5}O{$ea}IP8{$60}{$ee}KP{$ee}K{$60}{CBM-Z}K{$fb}{CBM-Z}K{$fc}F{$fc} ~{CBM-E}{$fb}{CBM-N}a
{$fe}~~~~~~~~~~~~~0
































h{SHIFT-+}































~~{CBM-V}{$ef}~~~~~~~~~~~~64 golden disc    02 2a





















































































boot.64











disclader64/128












{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}













info











info.txt











cpv1.1mc











syscon64











editor.mc






































































































































































































































































































































































































































































































































/ed.exe











{SHIFT-*}================












{SHIFT-*}     c-64












{SHIFT-*}================













diskeditor












{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}












mathehilfe








/



{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}











~




























































































































































































































































































































































































































































































































17 & 4        64











17und4.txt












{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}












composer.64








8



comp mc











silent running












wishing












composer.txt










~





























































































































































































































































































































































































































































































































{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-*}












{SHIFT-*}     c-128













{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}












fotografie   128








-



{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}













spielautomat 128








<



{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}









































































































































































































































































~





























































































































































































































































{SHIFT-*}(c) copyright by












{SHIFT-*}w.s. - verlag













{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}








































































































































































































































































































































































































































k



























































































































































































































































































































































































































































































































k
V
i




+~~
<,7+
+{$ec}~,<,


zyZY;:@+][{SHIFT-@}*{SHIFT-*}<>
yzYZ{CBM-F}{CBM-C}{CBM-X}{CBM-V}{SHIFT-+}{CBM--}{SHIFT--}+*;:
{$de}~
+W~GD{CBM-H}~,

V~GD{SHIFT-@}~{CBM-H}>>{CBM-H}ID
HD9{$f0}~8+
(,
:{$f0}~8+HDID{$e2}~,

>

!P

 PGDR~8+
{$f1}~,{$f4}~

{$e4}0
{CBM-*}{$f9},8O8+

Lesen:
?~,

+0
c{$fb},h


<





{$fd}~
+e

'a,
'
7
e
P~+e
{SHIFT-@}{$f5},e
+{CBM-A}{$f5},
{CBM-H}~
{CBM-L}~
+ H{$f6},{$f5}~+{CBM-+}{$fa},E
{$eb}N8GDz

%@
7 %

R~#

7++G~,b{$f5},{$f7},+e
{CBM-R}{$f6},
++k~,&{$f5}{$f7},
ed77%
77+g~,

-
:
+i~,{SHIFT--}~~++~,+
z{$f9},a,+{CBM-J}{$f9},{$e2}~+
71{$f9},+

(%)
KKQ{$fa},+
{$f9},+ (b,+{$fc}{$f8},+
B{$fa},+-~,+

Zeit
J~,+
e{$fa},+M{$f8},+
{$fb},+
{CBM-+}{$fe},+
A{$f8},+ pb,+
{$f8},+<F{$7e}FF
{CBM--}F<FFFF<
{SHIFT--}F
FFFF<

>
 (e

>@%
+

editor.mc
a{$f7},
+


edit128.mc
+{$f7},>
K
 K{$e8}K8
>@%
e+

P
a,f@z~>

>
GD{CBM-X}K8GD
{CBM-B}
~+
,{CBM-B}{$e4}~{CBM-B}~+{SHIFT-+}{$fe},{$e8}K8+R{$fe}, M8K++C{$fe},{$e8}K8K,{$eb}M8
~X~
ID{SHIFT-@}~8L~~~%
{SHIFT-*}~~~%
+{CBM-W}~
{$eb}{$fb},

GD{CBM-T}~
HD{CBM-X}~8{SHIFT-*}~8L~8HDF~8HDI~8GDC~8
GDHD
%ID{SHIFT-@}~8
HD+{$fb},GD{CBM-X}~8
GDHDU~8HDGDHD{SHIFT-@}~8
HD+r{$fb},GD{CBM-X}~8HD{$fb}GDX~8+

i0
{$e7}{$fe},+Bp%;
7m%-
7f%4
+7K{$f9},+

$*=s
{CBM-I}{$f5},_L8a~+{$ed}{$f9},{$f3}~+
-{$fb},+&{$fb},+{$fe},{SHIFT--}~+{$f9},+{$f7},+
'
Vordergrund Hintergrund Rahmenfarbe
{$7d}{$f7},+L{$f0},+{$60}{$f7},7v%
7h%
7r%
>+Z{$ef}B{$f1},_L8~!P~ P~
K
 '+{$f7},+

Suchen Tauschen Disk/Druck
{$f7}~8
GD%

+G~,{$e6}~+<~,GDGD+{CBM-Y}~8GDJ~,7
+C~,{$fa}~+A~,4+{$ed}~,++s~,4,7*
+
<,

+
;,{SHIFT--}~
+
7+{$fe},a,+
+Q{$fe},{CBM-*}~,

+
,
{$ec}~
+~,
{$f6}~+
 {$fe},+{SHIFT--}~,



{$f8}~

++7~,{$f5}{$fc}{$f6},~~~~
+
I{$f5},{$f5}~+)~,

{$f4}~{$f1}{$fe}
+
{CBM-@}{$f5},{$f5}~{SHIFT--}{$fe}
+{CBM-Y}{$f4}{CBM-J}{$f4}{$f6},
K{$e9}N
e
+{CBM-Y}{$fe}{CBM-Z}{$fe}[{$f8},+M{$f8},+W~,i
{$fe}{$f3}~+ j{$f5},+-i{$f5},+

 %

{$f6},+-/{$f5},+W{$f5},%
+
{$f5},{CBM-W}~+K{$f8},+{$7b}{$f8},e{$fe}
+{$f8}{$fd}{$f9},


GD{CBM-X}K8GD

{$ec}~+
D{$f8},+{$fa},+Z{$f7},+{CBM-C}~,+


Suchen:
~,+
~{CBM-E}~,+KK
{$7e}~X{$f8},
{$e9}N\O8GD
C~]~K-

GDJM8{$f0}~FM8+~,
+{CBM-I}~,Suchen  :
Ersetzen:

+
{CBM-Q}{$f7}+{CBM-E}{$fe},+{$fe},+{CBM-+}{$fe},{$eb}M8K+{$fe},K+
K M8K,+{CBM-P}~,+P~,
Druckformat

-----------
Linker Rand: %
Zeichenzahl: %

Oberer Rand: %
Unter. Rand: %
Zeilenzahl : %

Sek. Adress: %





+s{$f1};{$f3},+E~y{$fb}v{$fb}s{$fb}p{$fb}c{$fb}h{$fb}{$f3},~,+Q{$fe},+c~,+

s:

Z{$fc},+!~,+1~,>(

>>{CBM-G}
>{$fb}~
>>{CBM-G}

+{CBM-S}{$fa}{$fc},+
F{$fe},+O{$fe},+{$fb}C{$fb},X{$fb}+{CBM-T}~,{$ed}~+{CBM-A}{$fe}B{$fe},A{$fb}
+{$fb},

+_{$fa}g{$fc},+

{$fe},+{$fe},+3{$fb}0{$fb}-{$fb}*{$fb},+s~,@
+{$fb},+{$fb}
,+={$fc},+ ,+ H{$f6},{$fb}e
+

Zurueck(F4) Loesch
X{$f6},
w
+

 Kopie Beweg Insert
G{$f0},8
+


Bank Farbe
{$f6},

+

 Zeit Insert Ende
{$f0},+ {$ee}{$f0},Z{$fa}+
$,
+ {CBM-+}{$f5},
+{SHIFT-POUND}{$ef},+={$f6},7s%{$ef}
7t%{CBM--}
7d%{SHIFT-+}
7?{$fa}
7b%{$de}
7f%{CBM-E}
7
{$ee}
7z%{SHIFT-POUND}
7e%
>
 (
+I~,{$ec}~{$e8}~{$f1}~
+
{$f7}~,+7
0{SHIFT-@}{$fe},

+0{CBM-P}{$fe},+Z~,


{$fa}~
7+{$fe},

%%{$ef}~+{$de}~-H~,{$e7}~


{$fa}~
0
+
{$fe},
7+w{$fe},
{$e1}~%%{$ef}~+M~-~,{$e7}~
+{$fe},
+{$ed}~7z{$fd},{$ed}~


+<{$fe},+{$fe},+

>
~,+{$f2}{$fd}o{$f5},







{$f7}~=
%y
 M8{$ed}~KK{$eb}M8
KKQ~
KK~
K_L8
{SHIFT-@}~
K{CBM-W}~
K{CBM-Z}~K
K{$fe}K8~K~KK7~+~,V~{$f6}~{$e8}K8+{$ed}~,










 ~{CBM-B}

+
KG
a,+{$e1}~
Ka,+G
P~a,{CBM-F}
F<>F>
{CBM-C}
F<FFF<
{CBM-X}
F
FFF>
{CBM-V}
<F{$7c}FF{$7c}{$60}{SHIFT-+}F,+ (b,7(+ pb,+F~B{$f9},+

{$e2}{$fe}{$fc}{$fe},(
+

N{$fe}{$e7}{$fe},
+[~,_L8+)~,{$f1}~+&{$fe},+0
U{$f9},+0
{CBM-E}{$f6},
l%



Einfuegen:



Laden:
+{SHIFT-*}~,$
+0
8{$fa},
e%
{$e8}K8OK8

+


Speichern:
~,5
+{$fb},+0
%{$fb},+0


,s,w
{CBM-R}{$f7},+O~*
+{CBM-F}~,{$fb}*{$fb}({$fb}&{$fb}{$fb} {$fb}{$f4},{CBM-M}~4{CBM-G}~
~+

Eingaben richtig j/n?
{CBM-@}{$f2},+{$f2},n%P~7j%{$f0}~+{$f8},+
!
Laden Einfuegen Speichern Read
I{$f8},+ J{$f7},+

Dir Print Mon-Print Form
:{$f8},+ Y{$f7},+{$f8},7s%M
7e%-
7l%&
7d%&
7r%3
7{$ec}{$fa},+{$fb},+{$e2}{$fa},7{$f4}~+~{$f9}{$e9}{$fb}{$ee}{$fa}{$eb}{$fa},{$e5}{$fa}{CBM-C}~+#{$fe},+3{$fe},R{$fa}
+{$fb},+
,+7
,+
,+7

,00+
,+,{CBM--}{CBM--}{CBM-R}{$7f}{CBM--}{CBM-W}+

{SHIFT-POUND}~,'
7d77+B~,
-+

~,{$e5}~
00:00:00
{$f2}~
{CBM--}+~,*
7&
70
+

Wirklich beenden j/n?
{$e4}{$f5},+<{$ef},j%Y
'{$ee}
+C{$ee},
>@%
e+
P

a,f+T{$ed}R{$ed}{SHIFT-@}{$ef},7%E
7z%^
7l%?
7
\
7k%o
7b%6
7i%5
+A{$fd},+{$f5},8{$fe}+F{$f6},+H{$fc},+3{$f6},+{$eb}{$f9},+~{$f9},++{$fb},+k{$fb},+F{$f9},+H{$fb},

x:
*/
+

Bitte Taste druecken,+{CBM-H}~,%'
7
%>
7+
%,{CBM-*}~7+{CBM-C}{$fd},R~
%H~
+


{CBM-E}{$fe},{CBM-H}~


GD
O~8GD
%
{$e3}~{$eb}~

+

L~,+

"{$fe},



{$f6}~+

{$e1}{$fc},+{$fd},%!
7+>>,+{CBM-U}~,H~
B~-J~

~~
{$f6}~{$f2}~GD{$e9}~{$e5}~HD{CBM--}$

      ** super disk editor **
g
      **  by joerg kranz   **
L
    ** royal games  (c) 1987 **

     **     c=64 + 1541     **
!

{CBM-K}#
 1:d{CBM-R}8
{CBM-C}(
"":53280,0:53281,6
 2
"super disk editor"
{$f5}<
"0   = reset"
f
"115:1300
{CBM-@}15,8,15,"v": 15:1300
*15,8,15,"i": 15:1300
uL"disk einlegen und 'taste' drueken"
GV198,0:198,1
1,8,15,"i":2,8,2,"#"
{CBM-S}1,"u1 2 0 18 0 ":1,"b-p 2 144":aa${CBM-R}""
Nt{CBM-R}0{CBM-@}15:{CBM-K}#2,a$:aa${CBM-R}aa${CBM-N}a$:
{$e8}"disk name= ";aa$
4-5";ii
Z"sekundaeradresse";ui
 {$7b}ii,ui
+{$7d}"";
>a${CBM-R}""{CBM-M}a${CBM-R}G(0)
v"":b${CBM-R}""{CBM-M}b${CBM-R}G(0)
Haa{CBM-R}2{CBM-M}4," ";
bl{CBM-R}F(a$){CBM-N}256{CBM-D}F(b$):bl{CBM-T}3);:t{CBM-R}1{CBM-@}25:{CBM-K}#1,a$:a$;
{CBM-D}aa{CBM-R}2{CBM-M}4,a$;
{CBM-R}
Baa{CBM-R}2{CBM-M}4,""
K""
{$f2} {CBM-K}#1,a$,a$,a$:{CBM-K}#1,a$:a${CBM-R}""{CBM-M}a${CBM-R}G(!

{$ef},+t{$ee},+{$f5}{$f1},
-

+{$ed},
-

+
 =,+
 <,
+
 =,

{$eb}M MFMM{SHIFT-+}M{CBM-+}M{CBM-P}MNN+{CBM-P}{$f9},+{CBM-H}{$ec}{$ee},+~,%
+p~,
{$e8}K8+
v{$f0},OK8>
 (
_L8+{$fd},_L8 O8+~GDQ{$ec},
!~8{$de}~GD%+
7%=
7%f
7%
"{CBM-M}1100
ja${CBM-R}"2"{CBM-M}1200
 ta${CBM-R}"3"{CBM-M}1300
1^a${CBM-R}"4"{CBM-M}1400
bHa${CBM-R}"5"{CBM-M}1500
sRa${CBM-R}"6"{CBM-M}1600
D{$7c}a${CBM-R}"7"{CBM-M}1700
Ua${CBM-R}"8"{CBM-M}1800
a${CBM-R}"9"{CBM-M}1900
a${CBM-R}"@"{CBM-M}2100
{CBM-POUND}{CBM-@}a${CBM-R}"*"{CBM-M}2300
{CBM-O}{CBM-S}a${CBM-R}"e"{CBM-M}2500
J{CBM-U}a${CBM-R}"l"{CBM-M}3700
{SHIFT-+}Ba${CBM-R}"a"{CBM-M}2800
{$f2}La${CBM-R}"d"{CBM-M}aa{CBM-R}2:1400

V{CBM-@}C(a$):2,G(160);:
1,"u2 2 0 18 0"
%1,"i": 2: 1:1300
b4"bitte waehlen sie !"
v>"schuetzen"
Ic"freigeben"
{$7d}h{CBM-K}a$:a${CBM-R}""{CBM-M}2120
ra${CBM-R}"s"{CBM-M}2150
\a${CBM-R}"f"{CBM-M}2200
{CBM-G}F
EG1,8,15,"i":2,8,2,"#":x{CBM-R}1:
YK1,"u1 2 0 18"x

P1,"b-   = scratch"
p
"2   = new "
9z
"3   = disk status "
rD
"4   = directory "
GN
"5   = copy  "
{$7d}X
"6   = rename "

"7   = validate "
{CBM-P}
"8   = initialize "
I
"9   = newheader "
{$fb}
"@   = d. ladeschutz

1,"b-p 2 162":aa${CBM-R}"":t{CBM-R}1{CBM-@}5:{CBM-K}#2,a$:aa${CBM-R}aa${CBM-N}a$:
8"id       = ";aa$
M"name,id aendern oder zurueck ?":198,0
{CBM-T}:{CBM-K}a$:a${CBM-R}""{CBM-M}1955
{CBM-POUND}a${CBM-R}"n"{CBM-M}2000
{CBM-@}{CBM-R}a${CBM-R}"i"{CBM-M}1975
{CBM-J}{CBM-W}a${CBM-R}"z"{CBM-M}1300
Z{CBM-Y}1,"u2 2 0 18 0":" neue id ";a$
A1,"b-p 20)
{CBM-N}{CBM-K}#1,b$:b${CBM-R}""{CBM-M}b${CBM-R}G(0)
{CBM-H}st{CBM-W}{CBM-E}0{CBM-M}1492
h{CBM-V}bl{CBM-R}F(a$){CBM-N}256{CBM-D}F(b$):bl{CBM-T}3);:aa{CBM-R}2{CBM-M}4,bl;
[Ht{CBM-R}1{CBM-@}27:{CBM-K}#1,a$
DIa$;
UJaa{CBM-R}2{CBM-M}4,a$;
M:x{CBM-R}x{CBM-N}1::
Naa{CBM-R}2{CBM-M}4,""
O1493
{CBM-POUND}R1440
{CBM-J}T 1:1495
EUB(198){CBM-R}0{CBM-M}
RVz{CBM-R}999{CBM-M}
{$fd}Waa{CBM-R}2{CBM-M}4,""x{CBM-Q}1 "DISK
w
7%0
7+Q{$ec},{$7d}O8{CBM-Q}~+{SHIFT-@}{$fc},{CBM-T}~+W{$f3},+j{$f4},~{$eb}M8+A{$f4},~+G{$ec},~+Z{$f7},N{$f7}%T~_L8D~T{$ed}R{$ed}{SHIFT-@}{$ef},7%E
7z%^
7l%?
7
\
7k%o
7b%6
7i%5
+A{$fd},+{$f5},8{$fe}+F{$f6},+H{$fc},+3{$f6},+{$eb}{$f9},+~{$f9},++{$fb},+k{$fb},+F{$f9},+H{$fb},

x:
*/
+

Bitte Taste drueckena${CBM-R}"v"{CBM-M}3300

{$f4}F(a$){CBM-W}256{CBM-M}
3
{$e8}"":"reset ja/nein"
g
{$f2}{CBM-K}a$:a${CBM-R}""{CBM-M}1010
z
{$fc}a${CBM-R}"j"{CBM-M}64738
H
a${CBM-R}"n"{CBM-M}

l"name des zu loeschenden files:

va$
{CBM-Q}
{$60}1,8,15,"s:"{CBM-N}a$
{CBM-X}
J 1,8,15:1300
G
{CBM-A}""
{SHIFT-+}
{SHIFT-@}"disk name";a$
{$e8}
D"id";b$
NC(a$){CBM-E}p 2 0":{CBM-K}#2,a$:a${CBM-R}""{CBM-M}a${CBM-R}G(0)
Z{CBM-K}#2,b$:b${CBM-R}""{CBM-M}b${CBM-R}G(0)
>{$7f}a{CBM-R}F(a$):b{CBM-R}F(b$):a{CBM-R}0{CBM-P}b{CBM-R}255{CBM-M}2186
qa{CBM-R}18{CBM-P}b{CBM-R}1{CBM-M}2198
_x{CBM-R}b:2155
{$7f}1,"b-p 2 0":2,G(18);G(1);
{CBM-+}1,"u2 2 0 18"x:1,"i": 2: 1:1300
{$e3}"directory ist schon geschuetzt":t{CBM-R}1{CBM-@}1000:: 1: 2*
{CBM-N}
"*   = d. listschutz
y
{CBM-H}
"e   = programm ende

{CBM-V}
"l   = programm laden";
{CBM-X}
C
"a   = ',8:'anhaengen";
{$ed}
D
"d   = drucken dir. "
E
" 162":t{CBM-R}1{CBM-@}C(a$):2,J(a$,t,1);:
$Bt{CBM-R}C(a$){CBM-@}5:2,G(160);:
lF1,"u2 2 0 18 0":1,"i": 2: 1:1300
SP1,"u1 2 0 18 0":"neuer name ";a$
ZC(a$){CBM-E}16{CBM-M}"name zu lang":t{CBM-R}1{CBM-@}1000:
K{$e4}1,"b-p 2 144":i{CBM-R}1{CBM-@}C(a$):2,J(a$,i,1);:
{SHIFT--}{$ee}C(a$){CBM-R}5{CBM-M}2060
{$f9}{$f8}i{CBM-R}1EINTRAGUNGEN!":
8X""x{CBM-Q}1 "disk eintragungen!":198,0:198,1:aa{CBM-R}0:1300
>{CBM--}
u{$e6}"copy name":a$
N{$f0}"programm name":b$
{$fa}15,8,15,"c:"{CBM-N}a${CBM-N}"="{CBM-N}b$
 15:1300
{CBM-I}@""
{CBM-U}j"neuer name":a$
Nt"alter name":b$
{$f4}^15,8,15,"r:"{CBM-N}a${CBM-N}"="{CBM-N}b$: {$de}1,"i": 1: 2
{$e8}"directory ist frei":t{CBM-R}1{CBM-@}1500::1300
={$fc}"directory listschutz"
v"sind sie sicher ?"
J{CBM-K}a$:a${CBM-R}""{CBM-M}2320
{$7c}a${CBM-R}"j"{CBM-M}2350
{CBM-W}$a${CBM-R}"n"{CBM-M}"o.k. dann nicht !":t{CBM-R}1{CBM-@}1500::1300
{CBM-X})2320
{SHIFT-+}." o.k...  lets go !"

15{CBM-M}"disk name zu lang":t{CBM-R}1{CBM-@}1000::1200
8X1,8,15,"n:"{CBM-N}a${CBM-N}","{CBM-N}b$
d{$e2} 1,8,15
n{$ec}1300
A"":15,8,15
:{CBM-K}#15,aa$:aa$;:st{CBM-W}{CBM-E}64{CBM-M}1301
 15:198,0:198,1
(
VX1,8,0,"$":{CBM-K}#1,a$,b$:{CBM-K}#1,a$,b$:{CBM-K}#1,a$,b$:aa{CBM-R}0{CBM-M}1405
{$f9}Y"drucker geraet nr. :
{$ed}1300

1,8,15,"i":2,8,2,"#":x{CBM-R}1:
.1,"u1 2 0 18"x:1,"b-p 2 0"
h{CBM-I}{CBM-K}#2,a$:a${CBM-R}""{CBM-M}a${CBM-R}G(0)
B{CBM-D}{CBM-K}#2,b$:b${CBM-R}""{CBM-M}b${CBM-R}G(0)
V{CBM-L}a{CBM-R}F(a$):b{CBM-R}F(b$)
{SHIFT-*}a{CBM-R}18{CBM-P}b{CBM-R}1{CBM-M}2260
Ja{CBM-R}0{CBM-P}b{CBM-R}255{CBM-M}2280
{CBM-D}Ox{CBM-R}b: 2201
{SHIFT--}T1,"b-p 2 0":2,G(0);G(255);:1,"u2 2 0 18"x
{$ee}v   = view bam"
fH
"by 'royal games'"
RR
"joerg kranz and"
{CBM--}
"andre krugenberg"
I{$e6}
"(c) 1987"
{CBM--},{CBM-K}a$:a${CBM-R}""{CBM-M}300
{$ed}6a${CBM-R}"0"{CBM-M}1000
{$fe}@a${CBM-R}"1
{CBM-U}f{CBM-R}1:15,"b-p 2";w:2,G(160);",8:":2950
d{$e4}x${CBM-R}"":15,8,15,"i0"
U{$ee}"   12345678901234567890123456789012345"
{SHIFT-POUND}{$f8}"    track  1-35     + = belegt - = frei "
P
{CBM-G}a(z){CBM-R}2{CBM-S}(s{CBM-Q}{CBM-J}(s{CBM-Z}8){CBM-D}8){CBM-P}(sb({CBM-J}(s{CBM-Z}8)))
{CBM-*}
/z{CBM-R}999:1,8,15,"i":2,8,2,"#":1,"u1 2 0 18 0"
 31,"b-p 2 144"
s42,G(20)G(20)G(20)G(34)G(100)G(20)G(31)G(204);
J8t{CBM-R}1{CBM-@}20:2,G(0);:
b1,"u2 2 0 18 0":1,"i": 2: 1
l53270,8:1300
{CBM-N}D"":{CBM-I}
{CBM-X}{$f0}
"":a{CBM-R}18:b{CBM-R}1
{$fe}{$fa}
"an welches programm soll(N
 *** mathehilfe *****************
.

9H
 3610
nR
 i{CBM-R}1 {CBM-@} 2000: i
F{CBM--}
 53280,0: 53281,0
{$e6}
"          m a t h e m a t i k    "
H{$f0}
"      geschrieben von k-d mueller"
{$e9}{$fa}
"                       "
 a {CBM-R} 1 {CBM-@} 2000: "grundwert   :   g=a*100/p            "
y{CBM-S}"prozentsatz :   p=w*100/g            "
{CBM-U}"prozentwert :   w=p*g/100            "
{CBM-F}B"jahreszins  :   z=k*p/100            "
{$ec}L"monatszins  :   z=k*p/100/12         "
V"kapit
o(34){CBM-N}a${CBM-N}G(34)",8"
{$f0}"run"
 198,4:631,19:632,13:633,13:634,13


$,x{CBM-Q}1){CBM-N}"";
h
t{CBM-E}24{CBM-P}s{CBM-R}18{CBM-M}" ";:3500
X
o1${CBM-R}"+":o2${CBM-R}"-":t{CBM-R}18{CBM-M}o1${CBM-R}"+":o2${CBM-R}"-"

s{CBM-R}0{CBM-@}20

t{CBM-W}18{CBM-M}3495
{CBM-S}
t{CBM-E}30{CBM-P}s{CBM-R}17{CBM-M}" ";:3500
I
t{CBM-E}24{CBM-P}s{CBM-R}18{CBM-M}" ";:3500
{$e4}{CBM-K}
t{CBM-E}1*~              "
8d"kreisumfang :   u=2*~*r              "
In"kreisringfl.:   f=~*(r(2)^2-r(1)^2)  "
x"ellipsenfl. :   f=~*a*b              "
KB"kugelvol.   :   v=4/3*~*r^3          "
{$fc}L"kugeloberfl.:   o=4*~*r^2     2,8,2,"#"


15,"b-p:2,144":t{CBM-R}1{CBM-@}18:{CBM-K}#2,a$:n${CBM-R}n${CBM-N}a$::15,"b-p:2,1"
A
"disk name:";n$;"":15,"u1:2,0,18,0
U
i{CBM-R}20{CBM-@}0{SHIFT-POUND}{CBM-Q}1:i:

t{CBM-R}1{CBM-@}35:x{CBM-R}t{CBM-N}4:3400::3520
{CBM-N}h
{CBM-K}#2,sc$,a$,b$,c$
{SHIFT-*}r
ts{CBM-R}ts{CBM-N}F(sc${CBM-N}G(0))
U\
sb(0){CBM-R}F(a${CBM-N}G(0)
 ',8:'          angehaengt werden"
"ja/nein"
=15,8,15:2,8,2,"#":i{CBM-R}1{CBM-@}8:t$(i){CBM-R}"":
la{CBM-R}0{CBM-A}b{CBM-R}0{CBM-M}
15,"u1 2 0";a;b:15,"b-p 2 0":{CBM-K}#2,a$,b$:a1{CBM-R}F(a${CBM-N}G(0))
{CBM-J}"b1{CBM-R}F (b${CBM-N}G(0)):w{CBM-R}4:t{CBM-R}1{CBM-@}8:15,"b-p 2";w{CBM-Q}2
{$e1},{CBM-K}#2,p$:p{CBM-R}F(p${CBM-N}G(0)):p{CBM-W}{CBM-E}130{CBM-P}p{CBM-W}{CBM-E}1 a
 53280,2: 53281,6:""
j"          h a u p t m e n u e "
V""      was moechtest du errechnen ?"
{CBM-G},"  (bitte entsprechende ziffer waehlen)"
R6 {CBM-T}5)"1= formelausg.     2= prozent"
{$fd}@ {CBM-T}5)"3= flaechen        4= koerperal     :   k=z*100/p            "
n "zinssatz    :   p=z*100/k            "
{$7f}{$ea}"zeitber.    :   z2=k*p/100           "
{CBM-A}{$f4}"zeitber.    :   i=z1/z2              "
{$e1}{$fe}"recteckumf. :   u=l+b+l+b            "

"rechteckfl. : Z"noch einmal anzeigen? (j/n)   j";n$
.{$e4} n${CBM-R}"j" {CBM-M} 420
b{$ee} n${CBM-W}{CBM-E}"j" {CBM-M} 270
X{$f8}"            prozentrechnung  ": 53280,11
{CBM-M}"  (bitte entsprechende ziffer waehlen)"
X {CBM-T}5)"1= grundwert         2= prozentsatz"
 {CBM-T}5)"3= proz       "
1V:"zum weiterfahren << return >> druecken";a$:
C"wuerfelvol. :   v=k^3                "
"quadervol.  :   v=a^2*c              "
E"quaderoberfl:   o=2*a^2+4*a*b        "
{$f6}"pyram.vol.  :   v=1/3*k*k*h       )
{$ea}F
sb(1){CBM-R}F(b${CBM-N}G(0))
~P
sb(2){CBM-R}F(c${CBM-N}G(0))
-Z
""{CBM-N}H(x$,x{CBM-Q}1){CBM-N}"";
h
t{CBM-E}24{CBM-P}s{CBM-R}18{CBM-M}" ";:3500
X
o1${CBM-R}"+":o2${CBM-R}"-":t{CBM-R}18{CBM-M}o1${CBM-R}"+":o2${CBM-R}"-"

s{CBM-R}0{CBM-@}20

t{CBM-W}18{CBM-M}3495
{CBM-S}
t{CBM-E}30{CBM-P}s{CBM-R}17{CBM-M}" ";:3500
I
t{CBM-E}24{CBM-P}s{CBM-R}18{CBM-M}" ";:3500
{$e4}{CBM-K}
t{CBM-E}1
94{CBM-M}2890
6y{CBM-R}1{CBM-@}16:15,"b-p 2";y{CBM-N}w:{CBM-K}#2,c$:t$(t){CBM-R}t$(t){CBM-N}c$::
!@w{CBM-R}w{CBM-N}32
(jt
gtw{CBM-R}17:t{CBM-R}1{CBM-@}8:t$(t){CBM-R}""{CBM-M}2950
u^""t$(t)
IH{CBM-K}s$:s${CBM-R}""{CBM-M}2920
ZRs${CBM-R}"j"{CBM-M}3000
Ss${CBM-R}"n"{CBM-M}2950
{$7c}2920
{CBM-O}w{CBM-R}w{CBM-N}32:t:f{CBM-R}1{CBM-M}15,"u2 2 0";a;b
Na{CBM-R}a1:b{CBM-R}b1: 2: 15
X2830"

j {CBM-T}5)"*= ende"
6
t"             0= hauptmenue"
l
^"ziffer";b$
A
H b${CBM-R}"1" {CBM-M}  420
V
R b${CBM-R}"2" {CBM-M}  760

{$7c} b${CBM-R}"3" {CBM-M}  1330
{CBM-I}
 b${CBM-R}"4" {CBM-M}  2110
{CBM-J}
 b${CBM-R}"0" {CBM-M} 270
{$f6}
 b${CBM-R}"*" {CBM-M} "          t s c h u e s s !!  ":
({CBM-@}  f=l*b                "
c
"quadr. fl.  :   f=s*s                "
T
"quadr. umf. :   u=s*4                "
{CBM-G}
&"dreieck fl. :   f=g*h/2              "
V
0"dreieck umf.:   u=g*3                "
:"kreisflaeche:   f=r^2entwert       4= zinsen"
  {CBM-T}5)"0= hauptmenue"
4*"ziffer";d$
g4 d${CBM-R}"1" {CBM-M} 870
[> d${CBM-R}"2" {CBM-M} 1020
Oh d${CBM-R}"3" {CBM-M} 1170
r d${CBM-R}"4" {CBM-M} 2260
\ d${CBM-R}"0" {CBM-M} 270
GF"              grundwert  ": 53280,12
{$f4}P"beispiel:  herr e. ist mi
   "
'{CBM-POUND}"pyram.oberf.:   o=g+(k*h/2*4)        "
x{CBM-R}"zylindervol.:   v=~*r^2*h            "
{CBM-C}"zylinderob. :   o=2*~*r*(r+h)        "
{SHIFT-@}F"kegelvol.   :   v=~*r^2/3*h          "
{$eb}P"kegeloberfl.:   o=~*r*(r+s)          "
7{CBM-P}s{CBM-R}19{CBM-M}" ";:3500
~{CBM-T}
t{CBM-E}17{CBM-P}s{CBM-R}20{CBM-M}" ";:3500
{CBM-M}
{CBM-G}a(s){CBM-R}0{CBM-M}o1$;:3500
"{CBM-N}
o2$;
-{CBM-D}
"";
6{CBM-L}
 :
Y{SHIFT-*}
"blocks free:";ts{CBM-Q}18;"            "
A
{CBM-K}a$:a${CBM-R}""{CBM-M}3521
J
 2: 15:1300
{CBM-POUND}T""
A{$7e}"programm name":a$
{$e1}"load"{CBM-N}Gl"anteil";w
vp{CBM-R}w{CBM-D}100{CBM-Z}g
,{$60}"  p=w*100/g  "
tJ"der prozentsatz betraegt";p;"%"
T"noch eine berechnung? (j/n)  j";n$
{$7e} n${CBM-R}"j" {CBM-M} 1020
{CBM-N} n${CBM-W}{CBM-E}"j" {CBM-M} 270
{CBM--}"             prozentwert  ": 53280,14
eisringberechnung  ": 53280,7
 "radius i";r(1)
" "radius a";r(2)
: {CBM-POUND}f{CBM-R}~{CBM-D}(r(2){CBM-S}2{CBM-Q}r(1){CBM-S}2)
x {CBM-R}"kreisringflaeche=";f
 {CBM-C}"  f=~*(r(2)^2-r(1)^2)  "
{CBM-Y} F"noch eine berechnung? (j/n)   j";n$
L P  n${CBM-R}"j" {CBM-M} 1930
 t 42% an "
Z"einem geschaeft beteiligt."
h"er bekommt vom gewinn 6300 dm ausbezahlt"
Q"wie hoch ist der gesamte gewinn?"
"grundwert(g)=6300dm*100/42;g=1500dm"
P{CBM-I}"----------------------------------------"
{$e5}{CBM-D}"wieviel %";p
{$f8} n${CBM-R}"j" {CBM-M} 1590
{$fc} n${CBM-W}{CBM-E}"j" {CBM-M} 270
2"           dreieckberechnung  ": 53280,5
[{CBM-@}"        (gleichseitiges dreieck)"
T{CBM-S}"grundlinie";g
{CBM-U}"hoehe";h
Bu{CBM-R}g{CBM-D}3
Lf{CBM-R}g{CBM-D}h{CBM-Z}2
{CBM-R}V"flaeche=";f
{$de} "  f=
menue"
{$f8}N"ziffer";d$
X d${CBM-R}"1" {CBM-M}  1480
$ d${CBM-R}"2" {CBM-M}  1590
: d${CBM-R}"3" {CBM-M}  1690
p d${CBM-R}"4" {CBM-M}  1820
F  d${CBM-R}"5" {CBM-M}  1930
{$7c}{CBM-N} d${CBM-R}"6" {CBM-M}  2020
{CBM-H} d${CBM-R}"0" {CBM-M} 270
 {CBM-V} d${CBM-R}"*" {CBM-M}
WH"           rechteckberechnung  ": 53280,3
{$ec}l"
{$fa}"P {CBM-T}5)"*= ende            0= hauptmenue"
#Z"ziffer";d$
$# d${CBM-R}"1" {CBM-M} 2880
8# d${CBM-R}"2" {CBM-M} 2990
l# d${CBM-R}"3" {CBM-M} 3100
{$60}#{CBM-I} d${CBM-R}"4" {CBM-M} 3220
T#{CBM-D} d${CBM-R}"5" {CBM-M} 3350
#{CBM-L} d${CBM-R}"6" {CBM-M} 3470
#{SHIFT-*} d${CBM-R}"*" {CBM-M}
{CBM-D}#J d${CBM-R}"0" {CBM-M} 270
U#T"              zi"beispiel:  herr w. kauft einen"
({CBM-+}"farbfernseher fuer 2400 dm.
t{CBM-A}"bei barzahlung gibt der haendler 3%"
{$7e}{SHIFT-@}"rabatt. wieviel dm spart herr w.,"
D"wenn er bar bezahlt?"
{CBM-V}N"w=3*2400 dm/100; w=72 dm"
{$ef}X"--------------------------
 Z n${CBM-W}{CBM-E}"j" {CBM-M} 270
!{$e4}"           ellipsenberechnung  ": 53280,1
+!{$ee}"breite";a
>!{$f8}"hoehe";b
j!f{CBM-R}~{CBM-D}a{CBM-D}b
_!"flaeche=";f
!"  f=~*a*b  "
{CBM-V}! "noch eine berechnung? (j/n)   j";n$
S!* n$ {CBM-R}"j"{CBM-L}"anteil=";a
{SHIFT-*}g{CBM-R}a{CBM-D}100{CBM-Z}p
.J"der grundwert betraegt "g;" dm"
\T" g=a*100/p "
{$de}"noch eine berechnung? (j/n)   j";n$
{$e8} n${CBM-R}"j" {CBM-M} 870
{CBM-W}{$f2} n${CBM-W}{CBM-E}"j" {CBM-M} 270
{$e6}{$fc}"              prozentsatz  ": 53280,13g*h/2  "
{$f2}{$ea}"umfang=";u
{$f4}"  u=g*3    "
m{$fe}"noch eine berechnung? (j/n)   j";n$
A n${CBM-R}"j" {CBM-M} 1690
U n${CBM-W}{CBM-E}"j" {CBM-M} 270
{CBM-N}"            kreisberechnung  ": 53280,6
{CBM-B}&"radius";r
K0f{CBM-R}r{CBM-S}2{CBM-D}~
W:u{CBM-R}R"laenge";l

{CBM--}"breite";b
{$e6}f{CBM-R}l{CBM-D}b:u{CBM-R}l{CBM-N}b{CBM-N}l{CBM-N}b
){$f0}"flaeche=";f
d{$fa} {CBM-T}20)"> f=l*b <"
x"umfang=";u
W {CBM-T}20)"> u=l+b+l+b <"
{CBM-+}"noch eine berechnung? (j/n)   j";n$
{SHIFT-@}" n${CBM-R}"j" {CBM-M} 1480
M, n${CBM-W}{CBM-E}"j" {CBM-M}270
6"nsrechnen  "
${$de}" (bitte entsprechende ziffer waehlen)"
3${$e8} {CBM-T}5)"1= zinsen (j)       2= zinsen (m)"
{$60}${$f2} {CBM-T}5)"3= kapital          4= zinssatz"
${$fc} {CBM-T}5)"5= zeitber.         0= hauptmenue"
{CBM-@}$"ziffer";d$
{CBM-U}$ d${CBM-R}"1" {CBM-M} 2380
L$ d${CBM-R}"2" --------------"
{$e2}"gesamtwert";g
{$ec}"prozentsatz";p
*{$f6}w{CBM-R}p{CBM-D}g{CBM-Z}100
w
"  w=p*g/100  "

"der prozentwert betraegt ";w "dm"
{CBM-A}"noch eine berechnung? (j/n)   j";n$
D n${CBM-R}"j" {CBM-M} 1170
X( n${CBM-W}{CBM-E}"j" {CBM-M} 270
2 {CBM-M} 2020
{$e7}!4 n${CBM-W}{CBM-E}"j" {CBM-M} 270
">"           koerperberechnung  ": 53280,8
l"h"  (bitte entsprechende ziffer waehlen)"
W"r {CBM-T}5)"1= kugel           2= wuerfel"
{CBM-T}"\ {CBM-T}5)"3= quader          4= pyramide"
L"F {CBM-T}5)"5= zylinder        6= kege

"beispiel:  in einer firma mit 750"
;"mitarbeitern sind 140 frauen be-"
H"schaeftigt. wieviel % der belegschaft"
{$7d}$"sind frauen?"
."p=140*100/750; p=18,7%"
O8"----------------------------------------"
{$e1}b"gesamt";g
{$f3}2{CBM-D}~{CBM-D}r
{$ec}d"flaeche=";f
n"  f=r^2*~  "
0x"umfang=";u
{$60}B"  u=2*~*r  "
L"noch eine berechnung? (j/n)   j";n$
{CBM-@}V  n${CBM-R}"j" {CBM-M} 1820
{CBM-O} n${CBM-W}{CBM-E}"j"  {CBM-M} 270
{$ef}"          kr           quadratberechnung  ": 53280,4
@"seitenlaenge";s
.jf{CBM-R}s{CBM-D}s:u{CBM-R}s{CBM-D}4
ct"flaeche=";f
J^"  f=s*s  "
{$7e}H"umfang=";u
{CBM-G}R"  u=s*4  "
T{$7c}"noch eine berechnung? (j/n)   j";n$
{$e8}{CBM-M} 2470
 $$ d${CBM-R}"3" {CBM-M} 2560
{$f4}$. d${CBM-R}"4" {CBM-M} 2650
%8 d${CBM-R}"5" {CBM-M} 2740
%b d${CBM-R}"0" {CBM-M} 270
o%l"             jahreszinsen  ": 53280,15
B%v"kapital";k
V%{$60}"zinssatz";p
%Jz{CBM-R}k{CBM-D}p{CBM-Z}100
{CBM-L}%T"die zinsen betragen fuer 1 jahr";z;" dm"
{$e4}%{$7e}"" welche flaeche soll berechnet werden ?"
:<"  (bitte entsprechende ziffer waehlen)"
Ff {CBM-T}5)"1= rechteck      2= quadrat"
p {CBM-T}5)"3= dreieck       4= kreis"
{CBM-L}z {CBM-T}5)"5= kreisring     6= ellipse"
{$e2}D {CBM-T}5)"*= ende          0= haupt
L+H"volumen=";v

,R"  v=4/3*~*r^3  "
,{$7c}"oberflaeche=";o
k,"  o=4*~*r^2  "
Z,"noch eine berechnung? (j/n)   j";n$
, n${CBM-R}"j" {CBM-M} 2880
{CBM-I},{CBM-@} n${CBM-W}{CBM-E}"j" {CBM-M} 270
Y,{CBM-S}"         zahlte zinsen";z
{CBM--}(X
p{CBM-R}z{CBM-D}100{CBM-Z}k
)
"der zinssatz betraegt";p;" %"
0)
"  p=z*100/k  "
_)
"noch eine berechnung? (j/n)   j";n$
S)
 n${CBM-R}"j" {CBM-M} 2650
){CBM-N}
 n${CBM-W}{CBM-E}"j" {CBM-M} 270
{CBM-F}){CBM-H}
"            zeitberechnung  ": 53280,2
{CBM-L}
s{CBM-R}{SHIFT-@}(h{CBM-S}2{CBM-N}r{CBM-S}2)
H2{SHIFT-*}
o{CBM-R}~{CBM-D}r{CBM-D}(r{CBM-N}s)
{CBM--}2J
"volumen=";v
3T
"  v=~*r^2/3*h  "
b3{$de}
"  s=sqr(h^2+r^2) "
z3{$e8}
"oberflaeche=";o
3{$f2}
"  o=~*r*(r+s)  "
{CBM-C}3{$fc}
"noch eine berechnu  z=k*p/100  "
&"noch eine berechnung? (j/n)   j";n$
'& n${CBM-R}"j" {CBM-M} 2380
;& n${CBM-W}{CBM-E}"j" {CBM-M} 270
N&{CBM-+}"             monatszinsen  ": 53280,0
&{CBM-A}"kapital";k
&{SHIFT-@}"zinssatz";p
{CBM-+}&Dz{CBM-R}k{CBM-D}p{CBM-Z}100{CBM-Z}12
T&N"die zinsen betragen
"hoehe";h
M/{CBM-R}v{CBM-R}1{CBM-Z}3{CBM-D}k{CBM-D}k{CBM-D}h
{CBM-*}/{CBM-C}o{CBM-R}g{CBM-N}(k{CBM-D}h{CBM-Z}2{CBM-D}4)
{$e9}/Fg{CBM-R}k{CBM-S}2
{$fd}/P"volumen=";v
00Z"  v=1/3*k*k*h  "
h0{$e4}"oberflaeche=";o
{$7c}0{$ee}"  o=g+(k*h/2*4)  "
{CBM-Q}0{$f8}"noch eine berechnung? (j/n)   j";n$
{CBM-B}0
Mz
{CBM-J}5l{CBM-R}C(tx$(k))
D5{CBM-+} i{CBM-R} 1 {CBM-@} l
Y5{CBM-A} J(tx$(k),i,1);
{$ed}5{SHIFT-@} y{CBM-R} 1 {CBM-@} 20: y
{$f5}5D i
{$fd}5N k
6X ta$

6{$e2}


(1){CBM-R}"mathehilfe-programm !"
948::
X4btx$(2){CBM-R}"                   dieses programm hilft bei ganz"
4l::
{SHIFT-POUND}4vtx$(3){CBM-R}" normalen rechenaufgabe  wuerfelberechnung  ": 53280,10
{$f3},{CBM-U}"kantenlaenge";k
~,Bo{CBM-R}6{CBM-D}k{CBM-S}2
-Lv{CBM-R}k{CBM-S}3
-V"volumen=";v
l- "  v=k^3  "
D-{$ea}"oberflaeche=";o
-{$f4}"  o=6*k^2  "
C-{$fe}"noch eine berechnung? (
N){CBM-V}
"kapital";k
{$e2})H
"zinssatz";p
{$f6})R
"zinsen";z 1
*{CBM--}
z 2{CBM-R}k{CBM-D}p{CBM-Z}100
*{$e6}
i{CBM-R}z 1 {CBM-Z}z 2
p*{$f0}
"das kapital in hoehe von";k;"dm bringt die zinsen"
{$7c}*{$fa}
"in der hoehe von";z 1;" dm in einem"
*"zeitraum von";i;" jahren"
L*"ng? (j/n)   j";n$
P3 n${CBM-R}"j" {CBM-M} 3470
{$e4}3 n${CBM-W}{CBM-E}"j" {CBM-M} 270
4"": 53280,2: 53281,9
4$ tl$
/4.tx$(1){CBM-R}"mathehilfe-programm !"
948::
X4btx$(2){CBM-R}"                   dieses programm hilft bei ganz"
4l::
{SHIFT-POUND}4vtx$(3){CBM-R}" normalen rechenaufgabe im monat";z;" dm"
'X"  z=k*p/100/12  "
4'{$e2}"noch eine berechnung? (j/n)   j";n$
h'{$ec} n${CBM-R}"j" {CBM-M} 2470
\'{$f6} n${CBM-W}{CBM-E}"j" {CBM-M} 270
'

"             k a p i t a l  ": 53280,1
{CBM-@}'

"zinssatz";p
{CBM-L}'
"zinsen";z
D'
k{CBM-R}z{CBM-D}1
 n${CBM-R}"j" {CBM-M} 3220
S0
 n${CBM-W}{CBM-E}"j" {CBM-M} 270

1
"          zylinderberechnung  ": 53280,13
1
"radius";r
11*
"hoehe";h
?14
v{CBM-R}~{CBM-D}r{CBM-S}2{CBM-D}h
q1>
o{CBM-R}2{CBM-D}~{CBM-D}r{CBM-D}(r{CBM-N}h)
E1h
"volumen=";v
1r
"  v=~*r^2*h  "
{CBM-P}1\
"oberflaeche=
 z{CBM-R}7
{CBM-L}6 k{CBM-R}1{CBM-@} z
F6l{CBM-R}C(tx$(k))
U6{CBM-+} i{CBM-R} 1 {CBM-@} l
{$ea}6{CBM-A} J(tx$(k),i,1);
{$fe}6{SHIFT-@} y{CBM-R} 1 {CBM-@} 20: y
7D i
7N k
7X ta$
7{$e2}


(1){CBM-R}"mathehilfe-programm !"
j58::
5btx$(2){CBM-R}"                   dieses programm hilft bei ganz"
5l::
{SHIFT-@}5vtx$(3){CBM-R}" norj/n)   j";n$
W- n${CBM-R}"j" {CBM-M} 2990
{$eb}- n${CBM-W}{CBM-E}"j" {CBM-M} 270
"."           quaderberechnung  ":  53280,11
<.&"kantenlaenge b";a
v.0"kantenlaenge h";c
B.:v{CBM-R}a{CBM-S}2{CBM-D}c
T.do{CBM-R}2{CBM-D}a{CBM-S}2{CBM-N}4{CBM-D}a{CBM-D}c
.n"volumen=";v
{CBM-O}.x"  v=a^2
  z2=k*p/100  "
{$fa}*"   i=z1/z2    "
)+""noch eine berechnung? (j/n)   j";n$
=+, n${CBM-R}"j" {CBM-M} 2740
q+6 n${CBM-W}{CBM-E}"j" {CBM-M} 270
+@"            kugelberechnung  ": 53280,9
+j"radius";r
{CBM-N}+tv{CBM-R}4{CBM-Z}3{CBM-D}~{CBM-D}r{CBM-S}3
{CBM-U}+^o{CBM-R}4{CBM-D}~{CBM-D}r{CBM-S}2n."
{$ef}4{$60}tx$(4){CBM-R}"                                    klaus-dieter mueller"
$5Jtx$(5){CBM-R}"                    im pfefferstueck 11"
w5Ttx$(6){CBM-R}"                     6295 merenberg 1"
5{$7e}tx$(7){CBM-R}"                        tel.: [phone]"
5 z{CBM-R}7
{CBM-G}5 k{CBM-R}1{CBM-@} 00{CBM-Z}p
{$ea}'(
"das kapital betraegt";k;" dm"
(2
"  k=z*100/p  "
g(<
"noch eine berechnung? (j/n)   j";n$
[(f
 n${CBM-R}"j" {CBM-M} 2560
O(p
 n${CBM-W}{CBM-E}"j" {CBM-M} 270
 (z
"               zinssatz  ": 53280,2
{CBM-W}(D
"kapital";k
N(N
"ge";o
{$e3}1F
"  o=2*~*r*(r+h)  "
2P
"noch eine berechnung? (j/n)   j";n$
&2Z
 n${CBM-R}"j" {CBM-M} 3350
:2
 n${CBM-W}{CBM-E}"j" {CBM-M} 270
P2
"            kegelberechnung  ": 53280,14
2
"radius";r
2{CBM-I}
"hoehe";h
{CBM-M}2{CBM-D}
v{CBM-R}~{CBM-D}r{CBM-S}2{CBM-Z}3{CBM-D}h
{CBM-U}2
63000

      "17 + 4"
8
 idee: a. weingard
p
 written on c64 by
C
 ph. bertschg
R
 <c> 1983


s9${CBM-R}"AZSX"

c8${CBM-R}"23456789tbdka"
{CBM-V}
c9${CBM-R}" 2 3 4 5 6 7 8 91010101011"
I(
57000
T2
58000
{$e2}<
59468,12
{$ea}D
"
{$f4}c(52),p(10),d(*c  "
Q.B"oberflaeche=";o
/L"  o=2*a^2+4*a*b  "
4/V"noch eine berechnung? (j/n)   j";n$
h/ n${CBM-R}"j" {CBM-M} 3100
\/ n${CBM-W}{CBM-E}"j" {CBM-M} 270
/"          pyramidenberechnung  ": 53280,12
{CBM-D}/"kantenlaenge";k
{CBM-X}/{CBM-POUND}Xpk${CBM-R}"wir haben karten-gleichstand!"
"{CBM--}p34800
-@q21800
t{CBM-@}qk${CBM-R}"sie haben soeben  gewonnen!"
_r34800
JLrt{CBM-R}t{CBM-N}b1
UPr21800
s34800
{CBM-+}{$fc}sk${CBM-R}"sie haben gerade verloren!"
{CBM-E}{$60}t34800
{CBM-C}Dtt{CBM-R}t{CBM-Q}b1
B(u
Qzut{CBM-E}0{CBM-M}22200
 ut{CBM-W}0{CBM-M}22400
{$f0}u"ihr konund 4"
{$f4}34800
x20600
2{CBM-C}k${CBM-R}"sie haben 17 und 4"
=34800
k{$e8}b1{CBM-R}1.5{CBM-D}b1
vl20900
E@p{CBM-W}22{CBM-M}9200
 k${CBM-R}"sie haben sich totgekauft"
L 34800
!m1{CBM-R}1
{SHIFT-POUND}4!36000
{CBM-R}!m1{CBM-R}2
{CBM-X}#21500
K{$f0}#v{CBM-R}0{CBM-M}9400
Vt$17600
{$fb}{CBM-U}$k${CBM-R}"wollen sie noch eine k1000
{$f7}4l{CBM-E}2{CBM-M}42800
{$fd}
Jc$(i){CBM-R}"t"{CBM-M}41500
1{$fc}I(c$(i),1);s$(i);"     ";
<{$60}55000
t{CBM-I}"10";s$(i);"    ";
_{$fe}{CBM-+}55000
N0{CBM-M}l{CBM-E}3{CBM-M}43400
{CBM-M}c(i){CBM-W}11{CBM-M}43000
F{CBM-M}51000
{$f8}{CBM-M}c(i){CBM-E}2{CBM-M}43200
{SHIFT-POUND}\{CBM-POUND}51000
{CBM-F}{SHIFT-*}{CBM-POUND}c(i){CBM-E}3{CBM-M}53000
F{$f2}{CBM-POUND}52000
U{SHIFT-POUND}l{CBM-E}4{CBM-M}44200
{$e8}{$ec}{SHIFT-POUND}c(i){CBM-W}1110)
xs$(52),c$(52)
l24000
'{CBM-A}t{CBM-R}0
0{CBM--}j8{CBM-R}j
?@a9{CBM-W}4{CBM-M}2200
j24000
yj{CBM-W}42{CBM-M}2700
D{$60}24000

"wieviel dm setzen sie";
{$f0}
b1
{CBM-I}tk${CBM-R}b$
{CBM-R}{CBM-U}b1{CBM-R}0{CBM-M}23000
Ab1{CBM-E}0{CBM-M}3700
L{$e4}24000
Wb1{CBM-R}{CBM-Q}b1
{$e7}Tb1{CBM-E}{CBM-R}1{CBM-M}4000

X"mindestens 1 d
t{CBM-R}c(i)
{$fe}lHc(i){CBM-R}c(j)

{CBM-A}Hc(j){CBM-R}tt
Ii
XRa9{CBM-R}0
"<Sj{CBM-R}0
+ Sj1{CBM-R}2
4Tj8{CBM-R}0
:HT
d0Uj{CBM-R}j{CBM-N}1
pUp(m1){CBM-R}j
C{$f8}Uc(j){CBM-W}11{CBM-M}30600
O\Vp9{CBM-R}p9{CBM-N}1
{$7b}{SHIFT-*}Va9{CBM-R}a9{CBM-N}1
Wp{CBM-R}p{CBM-N}c(j)
{$ec}Wp{CBM-W}22{CBM-M}31100
{CBM-POUND}pXp9{CBM-R}0{CBM-M}31100
{CBM-W}{CBM-H}Xp{CBM-R}p{CBM-Q}10
{CBM-B}Yp9{CBM-R}p9{CBM-Q}1
U{$7c}Y""
 {CBM-S}Y39000
{$ea}dZj{CBM-R}jt"{CBM-M}46400
{CBM-A}{CBM-W}" ";s$(i);I(c$(i),1);
{CBM-H}55000
@{CBM-J}s$(i);"10";
({CBM-F}55000
3{$e4}{CBM-F}51000
c8G"       ";
nJG55000
F K"   ";s$(i);"   ";
QXM55000
O"  ";s$(i);" ";s$(i);"  ";
DQ55000
{CBM-V}{$f0}R"  ";s$(i);s$(i);s$(i);"  ";
DXV
KNWl
Q W
WX
{$ea}{SHIFT-*}Ztostand ist ausgeglichen (null)"
tv 1500
?{CBM-U}v"sie besitzen jetzt dm   ";t
iw1500
Ow"ihre schulden betragen dm",{CBM-Q}t
Y{$e4}w1500
Xy"

zt{CBM-R}0{CBM-M}23400
<zt{CBM-W}0{CBM-M}23600
L z"herzlichen glueckwunsch! sie duerfen"
{$eb}{CBM-N}zt" dm nach hause tragen!"
{$f6}
arte"

%34800

%"?";:i{CBM-R}1{CBM-@}150:
4
{CBM-R}%" ";:i{CBM-R}1{CBM-@}150:
h
F%{CBM-K}a$:a${CBM-R}""{CBM-M}9600
z
{$e4}%a${CBM-R}"j"{CBM-M}14900
L
h&a${CBM-R}"d"{CBM-M}14700

'k${CBM-R}"                     "

b'34800
{CBM-I}
T'17600
{CBM-S}
L9b1{CBM-R}2{CBM-D}b1
{CBM-L}
P9v{CBM-R}1
{SHIFT-*}
4:k${CBM-R}b$
L
F:m1{CBM-R}m1{CBM-N}1
W
:30000
{$e1}
{$60};8000
{$ea}
{SHIFT-*}dm1{CBM-R}1
{$f5}
{$f2}d3600{CBM-M}43650
{$f3}p{CBM-N}52000
{CBM-N}c(i){CBM-W}9{CBM-M}43750
{CBM-H}{CBM-N}54000
"{$e6}{CBM-N}c(i){CBM-E}3{CBM-M}43850
-{CBM-Q}52000
?j{CBM-Q}c(i){CBM-E}4{CBM-M}43900
jH{CBM-Q}51000
\{$7c}{CBM-Q}c(i){CBM-E}5{CBM-M}44000
GB{CBM-Q}52000
Y {CBM-Q}c(i){CBM-E}6{CBM-M}44100
&{CBM-D}53000
d{CBM-D}c(i){CBM-E}7{CBM-M}53000
{CBM-K}V{CBM-D}52000
{CBM-A}{CBM-POUND}{CBM-D}l{CBM-E}5{CBM-M}45100
C{CBM-Z}c(i){CBM-W}11{CBM-M}44500
NP{CBM-Z}51000
{$e1}T{CBM-Z}c(i){CBM-W}10{CBM-M}4465m setzen!

<1500
#
 b1{CBM-W}{CBM-R}25000{CBM-M}4400
3
{CBM-G}m1{CBM-R}1{CBM-M}40020
P
"das limit betraegt 25000 dm           "
{CBM-K}
6"                                        "
{CBM-Q}
H2700
A
0p{CBM-R}0:d{CBM-R}0:p9{CBM-R}0:d9{CBM-R}0
I
v{CBM-R}0
Q
$h{CBM-R}0
Y
"
{$e2}
{SHIFT-@}m1{CBM-R}1
{$ed}
{$ec}30000
{$f8}
{CBM-H}31300
{CBM-N}1
{$f6}{CBM-POUND}Zd(m1){CBM-R}j
{$7b}c(j){CBM-W}11{CBM-M}31900
P{$7b}d9{CBM-R}d9{CBM-N}1
!T{$7b}a9{CBM-R}a9{CBM-N}1
.{$7c}d{CBM-R}d{CBM-N}c(j)
>
{$7d}d{CBM-W}22{CBM-M}32400
nD{$7d}d9{CBM-R}0{CBM-M}32400
yH{$7d}d{CBM-R}d{CBM-Q}10
E,{$7e}d9{CBM-R}d9{CBM-Q}1
K{$7e}
Wi{CBM-R}1{CBM-@}52
Xp(i){CBM-R}0
{CBM--}d(i){CBM-R}0
@i
{CBM-@}
{CBM-+}i{CBM-R}1{CBM-@}52
{CBM-U}Lc$(i){CBM-N}s$(i);
{CBM-B}Pi
E4
K(
 {$f0}"";

""       {CBM-G}"
{$fc}${SHIFT-+}"       {CBM-G}"
{SHIFT-+}" {SHIFT-POUND}     {CBM-G}"
&{$ec}{SHIFT-+}"     {SHIFT-POUND} {CBM-G}"
<p{CBM--}"    {CBM-T}{CBM-*} {CBM-G}"
p{CBM-H}{CBM--}" {CBM-*}     {CBM-G}"
B{SHIFT--}"       {CBM-G}"
T{$7c}{SHIFT--}"       {CBM-G}"
Z {SHIFT--}
{CBM-POUND}{$de}""
{CBM-*}i{CBM-R}1{CBM-@}100
{CBM-N}P{CBM-*}"";{CBM-T}15)
CT{CBM-*}"17 und 04"
{SHIFT--}8 "";{CBM-T}[23800
'H["sie haben mit ausgeglichenem kontostand":
g["(null) das spiel beendet.
r[23800
0\"wir bedauern sehr, aber sie verlieren   dm";{CBM-Q}t"
{CBM-R}{$f8}\"vielen dank fuers mitspielen!":
F{SHIFT-*}]*misch-routine
{$f1}$^"ich mische die ka
0
{$fe}
{$fc}dm1{CBM-R}2
$ed{CBM-E}16{CBM-M}20000
vem1{CBM-R}m1{CBM-N}1
%e31300
0{$ec}e36000
;pf17700
l nd{CBM-W}{CBM-R}21{CBM-M}20400
nk${CBM-R}"der c64 hat sich totgekauft ----------  sie haben daher gewonnen"
{CBM-J}{CBM-L}n"";k$;""
G{$e8}n**gosub34800
Rlo21100
{$e1}{CBM-A}od{CBM-W}p{CBM-M}20900
{$f0}pd{CBM-E}p{CBM-M}21500
0
{$ec}{CBM-S}54000
{$fe}J{CBM-S}c(i){CBM-W}6{CBM-M}44800
{CBM-S}53000

{CBM-P}c(i){CBM-W}4{CBM-M}44950
&2{CBM-P}51000
1{CBM-P}52000
@,{CBM-A}l{CBM-E}6{CBM-M}45900
s{CBM-A}c(i){CBM-W}11{CBM-M}45350
^{$f4}{CBM-A}51000
P&{CBM-E}c(i){CBM-W}7{CBM-M}45500
{$7b}x{CBM-E}53000
{CBM-C}{CBM-E}c(i){CBM-R}4{CBM-M}45700
{$ee}{CBM-E}c(i){CBM-R}5{CBM-M}45700
{CBM-N} {CBM-R}51000
{CBM-J}{CBM-R}53000
Dl{CBM-W}l{CBM-E}7{CBM-M}48100
Q{$7e}{CBM-W}"    ";
{$e6}{CBM-W}c$(i){CBM-R}"56000:fre=1209#7-78-01#
{$7c}j1{CBM-R}j
({CBM-S}m1{CBM-R}2
3 30000
>{CBM-POUND}31300
f{$fd}
q36000
{$60}Pp{CBM-R}21{CBM-M}6600
OTd{CBM-W}21{CBM-M}8000
X{$f2}m1{CBM-R}1
36000
{CBM-K}8k${CBM-R}"c64 hat 17 und 4"
{CBM-D}
34800
{CBM-Y}D21500
{SHIFT-*}Hm1{CBM-R}1
KR36000
Z{CBM--}d{CBM-W}21{CBM-M}7100
{$fe},k${CBM-R}"wir beide haben 17 "                                     "
tk$;
{CBM-U}
% p5{CBM-R}0
/"";
:40000
cxp5{CBM-R}1
n@l{CBM-R}1{CBM-@}8
^em1{CBM-R}1{CBM-M}40020
Mji5{CBM-R}1{CBM-@}m1{CBM-Q}1
{$7e}l"";
oi5
tp5{CBM-R}1{CBM-M}40050
{CBM-I}^i{CBM-R}d(m1)
{CBM-Z}H40200
{CBM-O}Ri{CBM-R}p(m1)
C"";
N:r{CBM-R}c(i)
{SHIFT--}Ll{CBM-E}1{CBM-M}40500
{$e8}P515)
{$f7} "17 und 04"
{$fd}
{$e1}
D{$e1}
'{$e2}"spielregel 17 und 4
5{$e2}59468,14
={$e2}:
L{CBM-@}{$e2}"gespielt wird mit einem kartenspiel, das
{CBM-S}{$e2}"folgende karten enthaelt:
{CBM-D}{CBM-U}{$e2}"2 3 4 5 6 7 8 9 b d k a
{SHIFT-+}B{$e2}"dabei zaehlen die bilder (b,d,k) jewerten!
{$fc}{CBM-POUND}Ai{CBM-R}1{CBM-@}4
Bj{CBM-R}1{CBM-@}13
PBw1{CBM-R}13{CBM-D}(i{CBM-Q}1){CBM-N}j
0TBs$(w1){CBM-R}J(s9$,i,1)
f8Cc$(w1){CBM-R}J(c8$,j,1)
BCc(w1){CBM-R}E(J(c9$,2{CBM-D}j{CBM-Q}1,2))
I
Dj
PDDi
{$7c}HDi{CBM-R}1{CBM-@}52
,Ej{CBM-R}52{CBM-D}{CBM-F}(1){CBM-N}1
Ett${CBM-R}s$(i)
{CBM-N}{$f4}Es$(i){CBM-R}s$(j)
{CBM-U}xFs$(j){CBM-R}tt$
F{CBM-C}Ftt${CBM-R}c$(i)
V Gc$(i){CBM-R}c$(j)
{$e4}Gc$(j){CBM-R}tt$
{$f0}{$e8}Gt8GNaPA{CBM-Z}ba{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{$ee}@{CBM-Z}@M
{SHIFT-*}P{SHIFT-POUND}
@{CBM-S}@{CBM-X}0{SHIFT-*}T{CBM-X}\A
T{CBM-X}BT{CBM-X}{CBM-H}CT{CBM-X} DT{CBM-X}FT{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}Tl1{$ea}{$e4}~
{$f7}
~
{$f7}{CBM-J}~
~
{$f7}
~
~
{$f7}
{$f7}
~

{CBM-Y}~
{$f7}~{$f5}~

{$f7}
~~~~{$f5}
{$f7}
~
~
~~




{$f7}
{$f7}
{$f7}
~
~
{$f7}
{$f7}

~~{CBM-Y}~
{$f7}
~
~
{$f7}{$f7}
b


{CBM-J}

{CBM-X}^
t{SHIFT--}t{$f7}p{$f7}~Ut{SHIFT--}p{$f7}T TUt
t{$f7}p{$f7}tUtUp{$f7}t{$f7}tWt{SHIFT--}p{$f7}p{$f7}t@TTp{$f7}p{$f7}tT^U~_{SHIFT--}^~h~h~
~~h~~{$fd}~
j~h~~~{CBM-*}~^~h~h{$fd}^~^~h
h~^~h~h{$fd}~^~h~h@~{SHIFT--}{$7f}~h~h{$fd}^~^~]~h@^
\{CBM-X}h
]{CBM-B}~~
{CBM-B}
{CBM-B}


~
{CBM-B}
{CBM-*}~
~~~
{CBM-B}~
~
{CBM-B}
{CBM-B}
~
~
{CBM-B}
~{CBM-B}{CBM-B}~
{CBM-B}
{CBM-B}~
~
{CBM-B}
{CBM-B}
~

{CBM-B}{CBM-B}
{CBM-B}~{CBM-X}~

{CBM-B}
~~~{CBM-*}{CBM-X}
{CBM-B}
{CBM-B}
~
~${CBM-B}




~
{CBM-B}
{CBM-B}
~
~
{CBM-B}
{CBM-B}

~~{CBM-B}{CBM-B}
{CBM-B}~
~
{CBM-B}
{CBM-B}
b


{CBM-X}
{$f5}~~^~h~h
^~v~h{CBM-*}{CBM-*}{SHIFT--}_~~~h~h~^~^~h~hX{SHIFT-POUND}
{CBM-I}
TJP{$fa}{CBM-Z}{SHIFT-*}              17 & 4
           Der C64 zockt

Jetzt k{CBM-C}nnen Sie 17 & 4 gegen Ihren C64 spielen und es ihm so richtig zeigen. Schlie{CBM-V}lich hat er Sie auch schon ge{CBM-F}rgert, stimmt's?

Bei 17&4 sind folgende Karten im Spiel: die Zahlenkarten von 2 bis 9 sowieaetzlich
{$fe}B{$e3}"wird ihr einsatz verdoppelt.
$L{$e3}"           verstanden? (j/n)"
:V{$e3}{CBM-K} a$:a${CBM-R}""{CBM-M}58230
h{$e3}a${CBM-R}"j"{CBM-M}
[{$e3} a${CBM-R}"n"{CBM-M}58000
F{$e3}58230
{$f6} 169,0,141,32,208,141,33,208,141,0,4,141,1,4
E"{$f6} 141,2,4,169,149,141,0,221,169,5,141,24
{$ee},{$f6} 208,
ils

L{$e2}"zehn punkte, as 11 punkte, aber wenn 21
5V{$e2}"ueberschritten werden, nur 1 punkt.
D{SHIFT-+}{$e2}"die zahlen zaehlen ihren eigenwert. wer
 {$e2}"die hoechste punktezahl (max.21!) er-
{CBM-Y}{$ea}{$e2}"reicht (c64 oder sie), gewinnt.
X{$f4}{$e2}"        verstanden (j/n--------------------

Sie haben die M{CBM-C}glichkeit, zus{CBM-F}tzlich zu den beiden Karten, die Sie erhalten, eine weitere zu ordern. Sie m{CBM-X}ssen die Frage nur mit "J" beantworten. Tippen Sie "D" ein, bekommen Sie sogar zwei. Sinnvoll ist das nicht immer. Die H{CBM-C}chst{$f7}t{$f7}tU~tt{$f7}t
\
~{$f5}t{$f7}t
t
\{SHIFT--}t{$f7}p{$f7}^UtUt{$f7}~{$f7}~Wt{SHIFT--}p{$f7}t{$f7}tUt{SHIFT--}p{$f7}p{$f7}~
TPp{$f7}p{$f7}^UtUpVt{$f7}{$fd}U~Uv{$f7}~V
~~~~~~~( ~
~~~~~~~~~
~~~~~~~~~~h~

~~~



~~~~
{SHIFT-+}~{$fd}~~~~~~~
~~~~

h~~~
~O~{CBM-X}~~~j~~j
@E@{$f7}@{$f7}~E@M@{$f7}{$60} FE@
@{$f7}@{$f7}@E@E@{$f7}@{$f7}bG@M@{$f7}@{$f7}@@DE@{$f7}@{$f7}@D
{$7b}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}
T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}
T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}ab{SHIFT-POUND}
@{SHIFT-POUND}8{CBM-I}Gx{$60}
~
h~h~~~h~h~~~hh~h
n
~~h~

n~h~h~~
{CBM-*}~~~~~~h~h~~
~h~h~~
hh~h~~
~h{CBM-*}~{CBM-X}~~~j~~{CBM-*}{$fd}~~^~h~h
^~^~h{CBM-*}{CBM-*}]^~~~h~h{$fd}~\~h~h{$fd}~^~h~h~~__~h~h Bube, Dame, K{CBM-C}nig, As. Bube, Dame und K{CBM-C}nig z{CBM-F}hlen zehn, die Asse elf Punkte. Wer als erster die H{CBM-C}chstpunktzahl erreicht (egal, ob Sie oder Ihr C64 wobei wir nat{CBM-X}rlich Ihnen die Daumen dr{CBM-X}cken), hat gewonnen. Doch ganz so einfach, wie es sich anh{CBM-C}rt, i
_169,128,141,136,2,133,56,96,96
 6{$f6}i{CBM-R}50000{CBM-@}50035:a:i,a:
$ j{$f6}50000:G(147):G(5)
* t{$f6}


N die frage, ob sie noch eine
{$7d}d{$e3}"karte wollen, statt mit 'j' wie ja mit
{CBM-D}n{$e3}"'d' wie doppelt beantworten, dann erhal-
{SHIFT-+}x{$e3}"ten sie eine weitere karte, zus)"
{$ed}{$fa}{$e2}{CBM-K}a$:a${CBM-R}""{CBM-M}58106
~{$fb}{$e2}a${CBM-R}"j"{CBM-M}58110

{$fc}{$e2}58000
:{$fe}{$e2}"sie erhalten zwei karten und koennen so-
H{$e3}"viele nachziehen  wie sie wollen, aber
{$e3}"sie duerfen 21 punkte nicht ueberschrei
H{$e3}"ten, sonst verlieren sie. gleiches gilt
{$f6}&{$e3}"fuer tpunktzahl ist schnell {CBM-X}berschritten, und dann ist's Essig mit dem gro{CBM-V}en Geld.

Sie k{CBM-C}nnen einen Einsatz bis zum Limit von 25.000 Mark wagen. Nach Programmende wird Ihr Kontostand mit einem entsprechenden Kommentar eingeblendet. Viel Spa{CBM-V} beim Spielen, jE@{$f7}@{$f7}@E~@@{$f7}@
j
~{$f5}@{$f7}@
@
hM@{$f7}@{$f7}jE@Ed{$f7}~{$f7}~G@M@{$f7}@{$f7}@E@M@{$f7}@{$f7}~
b{SHIFT-*}@{$f7}@{$f7}jE@E@B@{$f7}~E~Eb{$f7}~Bl
~h~h~~~~h~H ~
~h~~~h~h~~~h~
~hh~h~h~~~h~h~~~hh~h
n
~~h~

n~h~h~~
{CBM-*}~~~~~~h~h~~
~h~h~~
hh~h~~
~h{CBM-*}~{CBM-X}~~~j~~{CBM-*}{$fd}~~^~h~h
^~^~h{CBM-*}{CBM-*}]^~~~h~h{$fd}~\~h~h{$fd}~^~h~h~~__~h~h           Composer V3.0
      Dreistimmige Kompositionen
Mit dem Composer entworfene Musikst{CBM-X}cke laufen interruptgesteuert ab und k{CBM-C}nnen deshalb als Hintergrundmusik ganz einfach in eigene Programme eingebunden werden.

Manche M{CBM-C}glichkeiten des C64 werdst es nicht: Es sollten maximal 21 Punkte sein, denn bei jedem Wert dar{CBM-X}ber haben Sie Ihren gesamten Einsatz, nach dem Sie vor Spielbeginn gefragt werden, verloren.

---------------------------------------
         H{CBM-C}chstens 21 Punkte
-------------------en von vielen nicht genutzt, da sie nicht einfach zu programmieren sind. Neben den grafischen F{CBM-F}higkeiten meinen wir in diesem Fall die Sound- und Musikbefehle. Ohne PEEKs und POKEs geht da leider nicht viel, ganz zu schweigen von der richtigen Auswahl dden c64. wenn sie das spiel been-
#0{$e3}"den wollen, setzen sie bitte null dm!
o:{$e3}"wenn sie die frage, ob sie noch eine
{$7d}d{$e3}"karte wollen, statt mit 'j' wie ja mit
{CBM-D}n{$e3}"'d' wie doppelt beantworten, dann erhal-
{SHIFT-+}x{$e3}"ten sie eine weitere karte, zus
Vund wenn's nicht geklappt hat, keine Sorge: Uns ist kein C64 bekannt, der seine Forderungen jemals eingetrieben hat.
rdern. Sie m{CBM-X}ssen die Frage nur mit "J" beantworten. Tippen Sie "D" ein, bekommen Sie sogar zwei. Sinnvoll ist das nicht immer. Die H{CBM-C}chsen" gew{CBM-F}hlt, so l{CBM-F}{CBM-V}t sich eines der beiden Musikst{CBM-X}cke, die sich ebenfalls auf der Diskette befinden, in den C64 holen. (Es sind die Demofiles "Silent Running" und "Wishing".) Geben Sie nur das Dollarzeichen ($) ein, so wird das Inhaltsverzeichnis Ihrer 55 Achtelnoten zur Verf{CBM-X}gung des "Komponisten" (das entspricht bei einem 4/4-Takt genau 32 Takten).

    So entstandene Melodien lassen sich problemlos auf Diskette speichern und wieder laden.

    Einfache Handhabung des gesamten Programms durch Window-er Notenwerte laut Handbuch.

Mit dem Programm "Composer" ist das jetzt vorbei. Sie k{CBM-C}nnen damit dreistimmige Musikst{CBM-X}cke erstellen und sie dann interruptgesteuert zu Ihren eigenen Programmen laufen lassen oder sie sich einfach nur anh{CBM-C}ren. Interruptgesth vorne springen, (wenn Sie die Taste "N" dr{CBM-X}cken), h{CBM-F}ngt von der Dauer ab. Ist hier zum Beispiel "1/2" eingestellt, so springt die Anzeige um vier Achtelnoten auf Note Nummer 5, bei einem Wert f{CBM-X}r eine Dauer von "3/4" auf Note Nummer 7. So k{CBM-C}nnen jeweil
, das Ihnen weitere Hinweise zu dieser Funktion gibt.
Das Programm arbeitet mit Achtelnoten und hat die einzelnen Werte auf den Funktionstasten liegen, so da{CBM-V} diese zur Eingabe der Notenwerte verwendet werden sollten: F1 = ein Achtel, F2 = zwei Achtel unge: 1/4.

Die Meldung "Note Nr." zeigt an, bei welcher Achtelnote Sie sich gerade befinden. Wollen Sie einen Takt, der aus acht Achtelnoten besteht, eingeben, so sind Sie danach bei der neunten Achtelnote angelangt. Zur sp{CBM-F}teren {SHIFT--}berpr{CBM-X}fung, ob Sie beispDiskette auf dem Bildschirm gezeigt (Directory). Beim Auswahlpunkt "Neue Melodie eingeben" gilt es, die Anzahl der Achtelnoten anzugeben, ebenso beim Editieren der Noten. Die Nummer der zu {CBM-F}ndernden Note k{CBM-C}nnen Sie ausrechnen oder sich {CBM-X}ber den Men{CBM-X}punkt
Technik und Men{CBM-X}-Steuerung.

    Die selbsterstellten Melodien ben{CBM-C}tigen nur wenig Speicherplatz, und zwar in dem von BASIC nicht genutzten Bereich von $C000 (49152) bis $CD14 (52500).

    Alle Musikfiles laufen auch ohne das Hauptprogramm und werden mieuert hei{CBM-V}t, da{CBM-V} der Computer neben dem Abspielen der Musik noch andere Dinge erledigen kann (wie Sie wissen, ist das in BASIC normalerweise nicht m{CBM-C}glich).

Hier kurz die F{CBM-F}higkeiten des Programms:
    Die erstellten Melodien laufen auch ohne das Hauptps bis zu acht Achtelnoten {CBM-X}bersprungen werden.
Bevor Sie den Men{CBM-X}punkt 9, "Ausdrucken", w{CBM-F}hlen, sollten Sie sicherstellen, da{CBM-V} der Drucker auch eingeschaltet ist. Da auf Escape-Sequenzen, (die sich nicht bei allen Druckern gleich auswirken), verzichtet wd so weiter bis F8.

---------------------------------------
     Werte auf Funktionstasten
---------------------------------------

Hierzu ein Beispiel, um einen Takt f{CBM-X}r das Programm Composer umzusetzen:

1. Note C - Oktave: zwischen 1 und 8 (no   rmalielsweise in Takt neun einen Fehler gemacht haben, w{CBM-F}hlen Sie den Punkt "Noten zeigen" und geben den Bereich der zu {CBM-X}berpr{CBM-X}fenden Achtelnoten ein. Der errechnet sich nach der Formel: 8 * (Takt-1) + 1, also bei Takt neun w{CBM-F}ren das die Noten 49 bis 56. Sie "Noten zeigen" ausgeben lassen.
Beispiel: Sie wollen Note Nummer 15 {CBM-F}ndern. Also w{CBM-F}hlen Sie Men{CBM-X}punkt 7 ("Neue Melodie eingeben") und teilen dem Computer die Anzahl der Achtelnoten mit. Nun zeigt die Anzeige Note Nummer 1. Um wieviel Achtelnoten Sie nac
t LOAD"(Name der Melodie)",8,1 geladen und mit der Anweisung SYS 52000 gestartet.

---------------------------------------
         Einfache Handhabung
---------------------------------------

Hinweise zur Bedienung: Haben Sie im Hauptmen{CBM-X} den Punkt "Ladrogramm und k{CBM-C}nnen problemlos in eigene Programme eingebaut werden.

    Alle Register des SID (Musik-Chip im C64) lassen sich ver{CBM-F}ndern, ebenso die Geschwindigkeit und die Lautst{CBM-F}rke, allerdings nicht die Filtereinstellung.

    F{CBM-X}r jede Stimme stehen 2urde, m{CBM-X}{CBM-V}te das Programm mit nahezu allen bekannten Druckertypen zusammenarbeiten. Je nach L{CBM-F}nge des Musikst{CBM-X}ckes nimmt der Ausdruck nat{CBM-X}rlich eine gewisse Zeit in Anspruch. Zum jeweils von Ihnen gew{CBM-F}hlten Men{CBM-X}punkt wird ein Fenster (Window) eingeblendet 4).
   L{CBM-F}nge: 1/4 (entspricht zwei Achtelnot   en), ben{CBM-X}tzen Sie bitte die Funktions   tasten F1 bis F8.

2. Note C - Oktave: siehe 1.
   L{CBM-F}nge: 1/8.
3. Note A - Oktave: eine niedriger als i   n 1. und 2.
   L{CBM-F}nge: 3/8.
4. Note C - Oktave: wie 1.
   L{CBM-F}n sehen, ein wenig sollte man schon von Musik verstehen ...
Wenn Sie ein Musik-File innerhalb eines eigenen Programms laden und starten wollen, benutzen Sie bitte folgende Zeile (mit Zeilennummer davor): SYS (57812) "(Name)<169>,8,1: POKE 780,0: SYS 65493
{SHIFT-*}



@
a!aq{CBM-*}P@ @D
{CBM-*}
{CBM-*}@{CBM-*}

{CBM-*}
@

{CBM-*}
{CBM-*}{$f5}
'''"""""

'"""''  "++444...+
+++'''"
''+"""""""""





4444.+.+""""""

4444.+'+'"""+
++."""+
++''''"
''+"""""""""





4444.+.+""""""

4444.+'+'"""+
++."""+
++''''"
''+"""""""""



'''"""""





















































~
~
{CBM-B}~
~
~
{CBM-B}
{CBM-B}
~
~
{CBM-B}
~
~
~~{CBM-B}
~
~
~

{CBM-B}
~
~
GG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}GG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}{CBM-W}{CBM-I}{CBM-W}{CBM-W}{CBM-I}{CBM-W}D6DD6DGGD6DD6DGD~@~@~d~{$e4}~@~{$f5}
{CBM-*}d{CBM-*}d~@{CBM-*}d~d~d{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}pppppppp{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ppppppppNNNNNNNN{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}pppppppp{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ppppppppNNNNNNNN{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}pppppppp{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ppppppppNNNNNNNN{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}pppppppp{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}ppppppppNNNN{$fd}a@{CBM-*}{$e4}{CBM-*}~a~j{$fd}j{$fd}{$fd}{SHIFT-*}
{$f5}^~
~
~
$_

{CBM-J}@$~


5b
~
~
@~~

~{CBM-X}{CBM-J}~
{CBM-B}~~


~@{CBM-G}@{CBM-J}

~
~
~{$ee}
~~~~~


~
{CBM-*}_$



{CBM-J}j~$
~
{CBM-G}
{CBM-X}

~{CBM-@}~~
~j{CBM-X}j~
~

{CBM-X}_{CBM-B}{CBM-X}~@[~~~
[
~~~~~~~
~~~~{$e5}~{CBM-*}~

~~~~
~
~~
~
~
{CBM-*}~
~~{CBM-*}~~
~
~{CBM-*}~~_
~{SHIFT--}~{CBM-*}
h~{CBM-*}{CBM-*}~

{CBM-M}: SYS 52000.
Das ebenfalls auf der Diskette vorhandene Maschinenprogramm COMP MC wird vom Composer-Hauptprogramm nachgeladen und ist f{CBM-X}r sich allein nicht lauff{CBM-F}hig.
nach der Formel: 8 * (Takt-1) + 1, also bei Takt neun w{CBM-F}ren das die Noten 49 bis 56. Sie~@~p~t~t~t~p~p~p{CBM-*}t~p{CBM-*}t{CBM-*}tj~p{CBM-*}@{CBM-*}x{CBM-*}h{SHIFT-+}@{CBM-*}p{CBM-*}x{SHIFT-+}ht{CBM-*}b{CBM-*}h{SHIFT-+}X@{CBM-*}@{CBM-*}@{CBM-*}hp{CBM-*}@{SHIFT-+}x{CBM-*}h@{CBM-*}@{CBM-*}{$fd}{CBM-*}hp{CBM-*}@{CBM-*}~{CBM-*}xp{CBM-*}@{CBM-*}h{CBM-*}x@
@{CBM-*}y{SHIFT-+}h@{CBM-*}@{CBM-*}h{SHIFT-+}x@{CBM-*}@{CBM-*}h{CBM-*}xp{CBM-*}@{CBM-*}h{CBM-*}xp{CBM-*}@{CBM-*}x{SHIFT-+}h@{CBM-*}@{CBM-*}h{SHIFT-+}h@{CBM-*}b{CBM-*}h{CBM-*}xp{CBM-*}S{CBM-*}x{CBM-*}{$fd}
{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}
{CBM-*}
{CBM-*}~~
{CBM-*}{CBM-*}
~
~~
{CBM-*}
{CBM-*}


~
{CBM-*}~
{CBM-*}{CBM-@}{CBM-*}{CBM-*}
~
~~{CBM-*}~~
{CBM-*}~
{CBM-*}

{CBM-*}{CBM-*}
{CBM-*}{CBM-*}
~
{CBM-*}{CBM-*}
~
~{CBM-*}~
~{CBM-*}~~~
{CBM-*}

'"""''  "++444...+
+++'''"
''+"""""""""




{CBM-*}
{CBM-*}~{CBM-*}@
~
~@{CBM-*}@

{CBM-*}U{CBM-*}
{CBM-*}
{CBM-*}
{CBM-*}@
{CBM-*}
~
@
~
{CBM-*}OOOOO{SHIFT-+}{SHIFT-+}{SHIFT-+}eeeee

OOO{SHIFT-+}{SHIFT-+}Oeee{CBM--}{CBM--}(((XXX{CBM--}
{CBM--}{CBM--}{CBM--}O
{CBM--}OOOOOOOOO





((((X{CBM--}X{CBM--}OOOOOO

((((X{CBM--}{CBM--}OOO{CBM--}
{CBM--}{CBM--}XOOO{CBM--}
{CBM--}{CBM--}O
{CBM--}OOOOOOOOO





((((X{CBM--}X{CBM--}OOOOOO

((((X{CBM--}{CBM--}OOO
G{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}GG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}{CBM-W}{CBM-I}{CBM-W}{CBM-W}{CBM-I}{CBM-W}D6DD6DGGD6DD6DGG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}GG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}{CBM-W}{CBM-I}{CBM-W}{CBM-W}{CBM-I}{CBM-W}D6DD6DGGD6DD6DGG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}GG{CBM-I}{$f6}M{$f6}{CBM-I}{$f6}M{$f6}{CBM-W}{CBM-I}{CBM-W}{CBM-W}{CBM-I}{CBM-W}D6DD6DGGD6DD6D~~
~
~
~
~
~


~ ~
~
~
~
~
~
~
~
~
~
~
~
~
~NNNN{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}{CBM-W}~h~@~
~
~@[@~
~
~@~@~
~{CBM-D}~@~@~
~
j@~@~
~

@~{SHIFT-+}NaPA{CBM-Z}ba{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{$ee}@{CBM-Z}@M
{SHIFT-*}P{SHIFT-POUND}
@{CBM-S}@{CBM-X}0{SHIFT-*}T{CBM-X}\A
T{CBM-X}BT{CBM-X}{CBM-H}CT{CBM-X} DT{CBM-X}FT{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}Tl1{$ea}{$e4}@~x4@@t~Xx~~t~xx@~t~xx{$e4}~
{CBM-*}
~@p~
~
@4@~t~
x@~T~xxT~{$f7}~X4@~t~h~
~~~[~{CBM-*}~~~~~{CBM-*}~
{CBM-G}@~@~
~{CBM-G}~{$7f}{CBM-*}_~
~~~{$7f}{CBM-X}{CBM-B}
~{$7f}@{$7f}{CBM-B}~

~~
_{$eb}
Z{$7f}~{$7f}

{CBM-B}
{CBM-*}{CBM-*}~_
{CBM-X}{CBM-X}j_~_{$e5}~
~
~{$7f}~


{$7f}
~
~{CBM-B}~
_~_ {CBM-@}{CBM-B}~~_~_{CBM-B}~{CBM-G}_{CBM-*}~
~~b_~_{CBM-B}


_~_
{CBM-J}
{CBM-X}@~@~{CBM-B}~{CBM-@}
{CBM-Z}j{CBM-P}
~y {$f7}{$f7}m{CBM-X}y
{$f7}{$f7}L{CBM-G}{$fd}{$f7}b{$fd}{CBM-X}h
{$f7}{CBM-G}@@{SHIFT-POUND}
{CBM-I}
JP{$fa}{CBM-Z}
{CBM-X}{$fd}
T{$f5}~^
~
~
{CBM-Z}

{CBM-Z}@{CBM-B}~
T
 ~T
~T{CBM-Z}
{CBM-P}
*~@~d~d~@~@~d~d~d~@~@~@~d~@{CBM-*}d{CBM-*}dj~~W~W{$f7}v{$f7}W~{CBM--}
d{SHIFT--}@{CBM--}
{CBM--}@{CBM--}@{CBM--}
{SHIFT--}
@{CBM--}@P
{SHIFT--}
@{CBM--}@{CBM--}{$f5}{CBM--}
@{CBM--}@{CBM--}~{CBM--}
@{CBM--}@{CBM--}
{SHIFT--}
@
@{CBM--}{CBM--}
@{CBM--}@{CBM--}
{CBM--}{SHIFT-*}@{CBM--}@{CBM--}
{CBM--}
@{CBM--}@{CBM--}
{CBM--}{SHIFT-*}@{CBM--}@{CBM--}
{CBM--}
@{CBM--}@{CBM--}
{CBM--}
@{CBM--}@{CBM--}{SHIFT--}
@{CBM--}T{CBM--}{SHIFT--}{$f4}
d{CBM-*}d{CBM-*}t{CBM-*}t{CBM-*}d{CBM-*}d{CBM-*}p{CBM-*}p{CBM-*}d~d~p{CBM-*}t{CBM-*}
~@~t~@{CBM-*}@~

p~@{CBM-*}d~
~{$f4}{CBM-*}d{CBM-*}@~
~~{CBM-*}t~d~
~t~{CBM-*}d

{CBM-*}t{CBM-*}p{CBM-*}d~
~@{CBM-*}t{CBM-*}@~
~t~t~~d{CBM-*}p~t~d~{CBM-*}~
~{CBM-*}{CBM-*}{CBM-*}~~~{CBM-*}{CBM-*}{CBM-*}~{CBM-J}
@{CBM--}@{CBM--}
{SHIFT--}
{CBM--}@{CBM--}@{CBM--}
{CBM--}
d{SHIFT--}@{CBM--}
{CBM--}@{CBM--}@{CBM--}
{SHIFT--}
@{CBM--}@P
{SHIFT--}
@{CBM--}@{CBM--}{$f5}{CBM--}
@{CBM--}@{CBM--}~{CBM--}
@{CBM--}@{CBM--}
{SHIFT--}
@
@{CBM--}{CBM--}
@{CBM--}@{CBM--}
{CBM--}{SHIFT-*}@{CBM--}@{CBM--}
{CBM--}
@{CBM--}@{CBM--}
{CBM--}{SHIFT-*}@{CBM--}@{CBM--}
{CBM--}
@{CBM--}@{CBM--}
{CBM--}
@{CBM--}@{CBM--}{SHIFT--}
@{CBM--}T{CBM--}{SHIFT--}{$f4}
d{CBM-*}d{CBM-*}t{CBM-*}t{CBM-*}d{CBM-*}d{CBM-*}p{CBM-*}p{CBM-*}d~d~p{CBM-*}t{CBM-*}
~@~t~@{CBM-*}@~

p~@{CBM-*}d~
~{$f4}{CBM-*}d{CBM-*}@~
~~{CBM-*}t~d~
~t~{CBM-*}d

{CBM-*}t{CBM-*}p{CBM-*}d~
~@{CBM-*}t{CBM-*}@~
~t~t~~d{CBM-*}p~t~d~{CBM--}
{CBM--}{CBM--}XOOO{CBM--}
{CBM--}{CBM--}O
{CBM--}OOOOOOOOO



OOOOO{SHIFT-+}{SHIFT-+}{SHIFT-+}eeeee

OOO{SHIFT-+}{SHIFT-+}Oeee{CBM--}{CBM--}(((XXX{CBM--}
{CBM--}{CBM--}{CBM--}O
{CBM--}OOOOOOOOO



~
~@~
~
~
~@~
~
~
~@~
{CBM-*}
~
~@~
j
{CBM-*}
k~~
{CBM-*}
~
~










































d~
~@~@~
~~@~@~d~xt~T~@x@~@~@@4D
{$fd}^~{$fd}
~
$_

{CBM-J}@$~

5b
~
~
@~~

~{CBM-X}{CBM-J}~-
{CBM-B}~
~
~@{CBM-J}@{CBM-J}

~
~
~{$ee}
~~~~~


~
{CBM-*}_



{CBM-J}^~$
~
{CBM-J}
{CBM-X}

~{CBM-@}~~
~j{CBM-X}j~~

{CBM-G}_{CBM-B}{CBM-X}{$fd}
{$e5}{CBM-*}aa{$e5}h{$e4}{CBM-*}aa{$f1}jA{CBM-*}a{$fd}@j{$fd}{CBM-*}a{$fd}{$fd}{$e5}{CBM-*}Aa~{CBM-*}@{CBM-*}aa{$fd}j{$e4}j{$e5}a

O~
{CBM-*}{$ef}
~{CBM-*}~~~
@
~a{CBM-*}{CBM-*}A
aaA
~_~A~
{$e4}

{CBM-B}~T
{SHIFT-*}

{CBM-X}@{CBM-X}

{CBM-Z}U~
{$f5}
~@~
~M{CBM-J}T~~~T{CBM-Z}~~{CBM-X}r{SHIFT-POUND}~
~X{SHIFT-POUND}
{CBM-I}
TJP{$fa}{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}
T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}
{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}
T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}T{CBM-Z}{SHIFT-*}ab{SHIFT-POUND}
@{SHIFT-POUND}8{CBM-I}Gx{$60}{$f5}
p~d~d_t~t~d~p
t~@~@~@~t~t~~~t{CBM-*}t~t{CBM-*}d~d~t{CBM-*}t~t~p~t~@~t{CBM-*}p~t~t~@~t~t7100
{CBM-A}{$f0}- ,1,0,"        Drucker einschalten        ",1
{$e2}{$fa}- ,1,1,"   und eine Taste druecken.......  ",1
{$ed}~-a{CBM-R}O(2)

. a{CBM-R}128 {CBM-M} 11778

. 11775
@. ,1,0,"  Video - Daten werden gedruckt !  ",1
R. ,1,1,"===================================",1
{$7e}.

{CBM-*}p{CBM-*}t~
~~t{CBM-*}@{CBM-*}d~d~t~t{CBM-*}d~D{CBM-*}t~{$f5}
{CBM-*}w{CBM-*}w{CBM-*}c{CBM-*}w{CBM-*}g{CBM-*}w{CBM-*}w~w{CBM-*}c{CBM-*}s{CBM-*}w_w~c~c{CBM-*}w{CBM-*}w{CBM-*}c~~{CBM-*}c~w{CBM-*}s~sjw{CBM-*}w~s~s
w{CBM-*}c{CBM-*}c~c{CBM-*}s~w{CBM-*}~~w{CBM-*}w{CBM-*}w{CBM-*}w~s~w{CBM-*}w~w~s{CBM-*}w{CBM-*}c~s{CBM-*}s{CBM-*}w{CBM-*}s{CBM-*}c~g{CBM-*}w{CBM-*}c~c~w{CBM-*}w{CBM-*}w{CBM-*}c{CBM-*}c{CBM-*}c{CBM-*}w~c_w{CBM-*}sk~~d~d~@{CBM-*}d~d~d~d~d~@~d~d{CBM-*}d~@~@~d~d~@~~~@~d~@~d[d~d~@~@
@~@~@~@~d~d~~~d{CBM-*}d~d~d~d~d{CBM-*}d~d~@~d~@~d~@~d~d            Disc Utility
       {SHIFT-+}nderungen im Directory

Schreibschutz, Leseschutz und Umbenennung von Programmtypen - das alles l{CBM-F}{CBM-V}t sich mit dem Programm Disc Utility V2 vornehmen.

Das Programm Disc Utility V2 erlaubt das Setzen und Aufheben eines Sc 10000
\{CBM-C}{$f2}1,vi$(q)
XA{$f2} st{CBM-R}64 {CBM-M} {$fe} #1: 62160
F{$f2} 62120
P{$f2} ,2,11: vi$(1)
{CBM-T} {$f3}a{CBM-R}O(2)
{CBM-R}"{$f3}d1${CBM-R}vi$(c)
D%{$f3} a{CBM-R}0 {CBM-M} 62240
{CBM--}*{$f3} a{CBM-R}5 {CBM-P} c{CBM-R}1 {CBM-M} 62240
{$f6}4{$f3} a{CBM-R}1 {CBM-P} c{CBM-R}q{CBM-Q}1 {CBM-M} 62240
>{$f3} a{CBM-R}1 {CBM-M} c{CBM-R}c{CBM-N}1
h{$f3} a{CBM-R}5 {CBM-M} c{CBM-R}c{CBM-Q}1
5m{$f3} a{CBM-R}128 {CBM-P} loe{CBM-R}0 {CBM-M} 7580
mn{$f3} a{CBM-R}128 {CBM-P} lo0170
H{$e2}{$ea} p2{CBM-R}130 {CBM-M}  9100
{$7e}{$ec}{$ea} p2{CBM-R}146 {CBM-M}  9200
{$f6}{$ea} p2{CBM-R}162 {CBM-P} ef{CBM-R}1 {CBM-M}  3080
{CBM-U}{$f7}{$ea} p2{CBM-R}162 {CBM-P} ef{CBM-R}2 {CBM-M}  3500
U{$f8}{$ea} p2{CBM-R}162 {CBM-P} ef{CBM-R}3 {CBM-M}  3300
{$f2}{$f9}{$ea} p2{CBM-R}162 {CBM-P} ef{CBM-R}4 {CBM-M}  3800
=
{$eb} p2{CBM-R}186 {CBM-M} {$fe} sl{CBM-Q}1,zl{CBM-Q}1,sr{CBM-N}1,zr{CBM-N}2: Q("0b00"),1,1:px{CBM-R}64:py{CBM-R}98{CBM-Q}y: 1960
i
{$eb} 60040
N.{$ea} ,7,2,"Verschiedene Zeichensaetze"
8{$ea} ,7,3,"--------------------------"
{CBM-O}<{$ea} ,28,22,"GVF (C)'89"
{$e6}={$ea}{$e7} 5,2: ,7,7,"qwertyuiopasdfghjklzxcvbnm"

@{$ea} ,7,9,"QWERTYUIOPASDFGHJKLZXCVBNM"
)b{$ea} ,14,11,"1234567890+-\"
ic{$ea}G(7): ,16,20,"Normal":{$fe} 2
Cd{$ea}G(7
a{CBM-R}5 {CBM-M} y{CBM-R}y{CBM-N}g
{$7d}{$e7}{$fe} 1,px,py{CBM-N}y:{$fe} 1,1
"{$e7}p2{CBM-R}N(1,1)
{CBM-K},{$e7} a{CBM-W}{CBM-E}128 {CBM-M} 59110
{CBM-U}6{$e7} p2{CBM-R}130 {CBM-M}  59300
{CBM--}@{$e7} p2{CBM-R}146 {CBM-M} text$(1){CBM-R}" ": 59900
*j{$e7} p2{CBM-R}178 {CBM-M} {$fe} sl{CBM-Q}1,zl{CBM-Q}1,sr{CBM-N}1,zr{CBM-N}2: Q("0b00"),1,1:y{CBM-R}0:px{CBM-R}64:py{CBM-R}178: 1960
6t{$e7} 59110
[{CBM-@}{$e7}============================t in konventionellem BASIC-Programmierstil, eines nach dem anderen. Hier h{CBM-F}tte eine professionellere Fileauswahl zwar f{CBM-X}r mehr Komfort sorgen k{CBM-C}nnen. So aber ist das Programm {CBM-X}bersichtlicher und daher besonders gut nachzuverfolgen. Der Programmierstil unhreibschutzes sowohl f{CBM-X}r die ganze Diskette als auch f{CBM-X}r einzelne Files. Weiterhin k{CBM-C}nnen Filetypen umbenannt, zus{CBM-F}tzliche Directoryeintr{CBM-F}ge geschaffen sowie der Diskettenname und die ID umge{CBM-F}ndert werden. Au{CBM-V}erdem lassen sich nat{CBM-X}rlich s{CBM-F}mtliche Floppyb
e{CBM-R}1 {CBM-M}
Qr{$f3} ,2,11: "                    "
\{$f3} ,2,11: vi$(c)
F{$f3} 62240
{CBM-L}{$f6}===============================
N"{$f6}    programm saven
{$f3},{$f6}===============================
6{$f6}pn${CBM-R}"a": 15,8,15
c;{$f6} G(14):" Das Programm  A.BACKUP  wird geloescht."
0{$f2}===============================
1{$f2}    disknamen einlesen
{CBM-P}2{$f2}===============================
Q3{$f2} ,2,11,"                    "
{$e1}:{$f2}li{CBM-R}1:{$fe} 1,0
{$fe}d{$f2} 1,8,15,"i": 2,8,2,"#"
n{$f2}1,"u1 2 0 18 0"
&x{$f2}1,"b-p 2 144"
1B{$f2}dn${CBM-R}""
vL{$f2} i{CBM-R}1 {CBM-@} 20:{CBM-K}#2,a$:dn): ,16,20,"D I N"
f{$ea} 0,B(0) {CBM-A} 64: 1,B(1) {CBM-P} 191
l{$ea}{$fe}"font 1"
An{$ea} 0,47: 2604,(B(2604) {CBM-P} 241) {CBM-A} 2{CBM-S}3:G(7)
{CBM--}p{$ea} ,16,20,"Outline":{$fe} 2
{$eb}r{$ea}{$fe}"font 2"
t{$ea} ,16,20,"Altenglisch":G(7):{$fe} 3
bv{$ea} 2604,(B(2604) {CBM-P} 241) {CBM-A} 2{CBM-S}2:G(14): wv: 40
G{$60}{$ea}===========
X{CBM-S}{$e7}   auswahl  zeichensatz
{CBM-U}{$e7}===============================
{CBM-POUND}B{$e7}{$fe} 1,0
{CBM-W}L{$e7}a{CBM-R}O(2)
LV{$e7} a{CBM-R}5 {CBM-P} zs{CBM-R}0 {CBM-M} 59340
{$e5} {$e7} a{CBM-R}1 {CBM-P} zs{CBM-R}3 {CBM-M} 59340
{$f9}{$ea}{$e7} a{CBM-R}5 {CBM-M} zs{CBM-R}zs{CBM-Q}1

{$f4}{$e7} a{CBM-R}1 {CBM-M} zs{CBM-R}zs{CBM-N}1
${$fe}{$e7} a{CBM-R}128 {CBM-M} {$fe} 1,1:
e~{$e7} zs{CBM-R}0 {CBM-M} zs${CBM-R}"0 Normal     "
F
{$e8} zs{CBM-R}1 {CBM-M} zs$d die Gliederung in kurze, {CBM-X}berschau bare Routinen machen das Programm besonders f{CBM-X}r denjenigen als Studienobjekt interessant, der selbst programmiert und gerne wissen m{CBM-C}chte, wie sich solche {SHIFT-+}nderungen im Directory realisieren lassen. Daher wird im folgefehle eingeben.
Das Programm ist einfach und klar geschrieben. Die Auswahl der einzelnen Optionen erfolgt {CBM-X}ber ein Men{CBM-X} durch Bet{CBM-F}tigung der Funktionstasten. Die Handhabung ist einfach. Die Auswahl einzelner Files, etwa zum Umbennen des Filetyps, erfolg
{$e6}_@{$f6}15,"s0:"{CBM-N}pn${CBM-N}".backup"
e{$f6}" Das Programm  A  wird in  A.BACKUP      umbenannt."
{CBM-X}j{$f6}15,"r0:"{CBM-N}pn${CBM-N}".backup="{CBM-N}pn$
Ft{$f6}  15
{$f2}y{$f6}" Das Programm  A  wird gesaved...."

^{$f6} pn$,8:" fertig !"
H{$f6}"run"
&R{$f6}""


0 {CBM-M} 7580
mn{$f3} a{CBM-R}128 {CBM-P} lo${CBM-R}dn${CBM-N}a$: i
MV{$f2} ,2,9:""dn$""
T{$7b}{$f2}{$fe}
{$f2}===============================
{CBM-Y}{$f2}    video-daten einlesen
{CBM--}{$f2}===============================
{$fa}{$f2}c{CBM-R}1:q{CBM-R}0:{$fe}
 #1,"video.dat"
{CBM-POUND}{$f2}q{CBM-R}q{CBM-N}1
.{CBM-Z}{$f2} E(H(ds$,2)){CBM-R}62 {CBM-M} {$fe} #1:fe{CBM-R}3: 10000
n{CBM-R}{$f2} st{CBM-R}0 {CBM-M} {$fe} #1:fe{CBM-R}3:=======================
J{$ea} joystick abfrage (zeit einst.)
{CBM-E}T{$ea}===============================
{CBM-C}{$ea}a{CBM-R}O(2)
W{$ea} a{CBM-R}1 {CBM-P} p2{CBM-W}132 {CBM-M} 60040
{$f2}{$ea} a{CBM-R}5 {CBM-P} p2{CBM-E}184 {CBM-M} 60040
{CBM-+}{$ea} a{CBM-R}1 {CBM-M} y{CBM-R}y{CBM-Q}g
{CBM-A}{$ea} a{CBM-R}5 {CBM-M} y{CBM-R}y{CBM-N}g
.{SHIFT-@}{$ea}{$fe} 1,px,py{CBM-N}y:{$fe} 1,1
=D{$ea}p2{CBM-R}N(1,1)
rN{$ea} a{CBM-W}{CBM-E}128 {CBM-M} 6{CBM-R}"1 DIN        "
{$e8} zs{CBM-R}2 {CBM-M} zs${CBM-R}"2 Outline    "
{CBM-POUND}{$e8} zs{CBM-R}3 {CBM-M} zs${CBM-R}"3 Altenglisch"
{CBM-V}{$e8} ,18,4: "";zs$
J{$e8} 59340
{$ef}{$fc}{$e9}===============================

{$ea}  demo  zeichensaetze
/{$ea}===============================
:{$ea} 9300
q${$ea}{$e7} 5,15:{$e7} 0,1:{$e7} 4,1
Xenden nicht nur auf die Programmbedienung, sondern detailliert auch auf das Programm als solches eingegangen.

Wie bereits angesprochen, erfolgt die Auswahl {CBM-X}ber ein Men{CBM-X} durch Funktionstastendruck.

F1: Schreibschutz setzen f{CBM-X}r die
    ganze Diskette

FX
340:G(14)G(147)
'310:64738
Ea${CBM-R}"* info.txt":i{CBM-R}1{CBM-@}C(a$):511{CBM-N}i,F(J(a$,i,1))::511{CBM-N}i,0
631,136:632,68:633,76:198,3
"410:50387:
{CBM-E}6f${CBM-R}"/ed.exe":490
{CBM-B}@st{CBM-W}{CBM-E}64{CBM-M}
{$ed}j51698,0:50489,B(781):50490,B(782):281
t4096,cpv1.1t. Diese Kanalnummer ist nicht die logische Ger{CBM-F}teadresse, sondern entspricht der Sekund{CBM-F}radresse, die beim Befehl OPEN8,8,8,"#" verwendet wurde. Dies wird hier im Programm nicht ganz deutlich. Ein solcher Pufferspeicher braucht vom Computer nicht als gaBuchstaben A, der das richtige Format f{CBM-X}r unsere Diskettenstation kennzeichnet. Wenn dieser Buchstabe durch einen anderen ausgetauscht wird, etwa durch X, verweigert die Diskettenstation Schreibzugriffe auf die Diskette. Zum direkten Lesen und Beschreibel stattgefunden hat, besonders wenn die ID dieser Diskette dieselbe ist, sorgt der Initialize-Befehl OPEN15,8,15,"I" daf{CBM-X}r, da{CBM-V} die BAM der neuen Diskette auch wirklich in den BAM-Pufferspeicher der Diskettenstation gelangt.
F{CBM-X}r {SHIFT-+}nderungen des Directorie
2: Diskettenschreibschutz aufheben

F3: Schreibschutz f{CBM-X}r einzelne Files
    setzen und l{CBM-C}schen

F4: Floppybefehle eingeben

F5: Filetyp festlegen. Es kann zwischen
    PRG, REL, SEQ, DEL und USR gew{CBM-F}hlt
    werden

F6: File offen/geschlossen (Leseschutznitialize-Befehl in Zeile 900 sorgt daf{CBM-X}r, da{CBM-V} die BAM neu eingelesen wird und dadurch der Schreibschutz sogleich wirksam ist. Die beiden ge{CBM-C}ffneten Kan{CBM-F}le sind jetzt nur noch zu schlie{CBM-V}en, und das Werk ist vollbracht. Das Aufheben des Diskettenschreibscmc,"syscon64"
^pr:a{CBM-R}pr{CBM-Q}1:400
:HB(55){CBM-R}al {CBM-P} B(56){CBM-R}ah{CBM-M}
nR55,al:56,ah:
H{$7c}pr:f$:490:f$:490
65028,255:65029,191:
{CBM-I}ah{CBM-R}{CBM-J}(a{CBM-Z}256):al{CBM-R}a{CBM-Q}256{CBM-D}ah:
Ua{CBM-R}256{CBM-D}(B(50490){CBM-N}B(4097)){CBM-N}B(50489){CBM-N}B(4096):400
{$ef}{CBM-@}65026,al:65027,ah:


{$ea}57812f$
nzes gelesen oder beschrieben werden, es kann der Zugriff auch auf einzelne Bytes darin erfolgen. Das geschieht mit Hilfe eines Pufferzeigers, der mit dem Befehl B-P nach Belieben positioniert werden kann.
In Zeile 870 wird der Pufferzeiger von Datenkanan von Diskettenbl{CBM-C}cken mu{CBM-V} die Information erst in einen Pufferspeicher der Diskettenstation gebracht werden, bevor sie vom Computer eingelesen oder auf die Diskette geschrieben werden kann.

User-Befehle U1 und U2:
-----------------------
Das Lesen und s gibt es keinerlei spezielle Befehle, so da{CBM-V} mit Direktzugriffen auf Spuren und Sektoren gearbeitet werden mu{CBM-V}. Bevor dies geschehen kann, ist ein Datenkanal f{CBM-X}r den Direktzugriff zu {CBM-C}ffnen. Das erfolgt hier durch OPEN8,8,8,"#". Angaben {CBM-X}ber das Diskett)

F7: ID {CBM-F}ndern. Bis zu f{CBM-X}nf Buchstaben
    sind m{CBM-C}glich

F8: Disknamen {CBM-F}ndern

In den Zeilen 90 bis 195 erfolgt die Ausgabe des Men{CBM-X}s auf den Bildschirm. Daran schlie{CBM-V}en sich in den Zeilen 200 bis 220 die Tastaturabfrage und die Tastenauswertung an. Dehutzes vollzieht sich analog zum Set zen. Allerdings gibt es dabei eine Schwierigkeit. Da die Diskette schreibgesch{CBM-X}tzt ist, kann das ver{CBM-F}nderte Formatbyte nicht so einfach wieder durch den richtigen Wert ersetzt werden. Um dies dennoch bewerkstelligen z
,8,1

{$f4}780,0:65493:


310:64738
Ea${CBM-R}"* info.txt":i{CBM-R}1{CBM-@}C(a$):511{CBM-N}i,F(J(a$,i,1))::511{CBM-N}i,0
631,136:632,68:633,76:198,3
"410:50387:
{CBM-E}6f${CBM-R}"/ed.exe":490
{CBM-B}@st{CBM-W}{CBM-E}64{CBM-M}
{$ed}j51698,0:50489,B(781):50490,B(782):281
t4096,cpv1.1l 8 auf Byte Nummer zwei gesetzt. In Zeile 880 wird dieses Byte mit dem Buchstaben X f{CBM-X}r falsches Format {CBM-X}berschrieben. Danach braucht in Zeile 890 der Pufferinhalt nurmehr auf die Diskette in Spur 18 und Sektor 0 zur{CBM-X}ck geschrieben werden. Der erneute ISchreiben von der Diskette in den Pufferspeicher geschieht mit dem User-Befehl U1, das Schreiben des Pufferspeichers auf die Diskette mit dem User-Befehl U2. In Zeile 860 wird Spur 18, Sektor 0 von Laufwerk 0 in den Pufferspeicher f{CBM-X}r den Kanal 8 gebrachenformat, Diskettennamen und ID sowie die BAM-Belegungtabelle finden sich in Spur 18 Sektor 0.
F{CBM-X}r das Schreibsch{CBM-X}tzen einer Diskette ist besonders das Byte Nummer zwei aus diesem Sektor interessant. Normaler weise handelt es sich bei diesem Byte um den r Ansprung der gew{CBM-F}hlten Option erfolgt {CBM-X}ber eine Sprungleiste in Zeile 220.

Diskette schreibsch{CBM-X}tzen:
-------------------------
Die Routine dazu befindet sich in den Programmzeilen 850 bis 910. F{CBM-X}r den Fall, da{CBM-V}, was anzunehmen ist, ein Diskettenwechseu k{CBM-C}nnen, m{CBM-X}ssen wir wissen, da{CBM-V} eine ganz bestimmte Speicherzelle im RAM der Diskettenstation 1541 das Formatkennzeichen enth{CBM-F}lt. Bevor die Diskette wieder berichtigt werden kann, mu{CBM-V} erst in die Speicherstelle $101 die richtige Formatkennung A oder chrZeilen 460 bis 610 wieder zur{CBM-X}ckgeschrieben. Eine Information ist noch wichtig, damit wir die Filenamen am Bildschirm anzeigen k{CBM-C}nnen: Der Dateiname steckt in den Bytes drei bis 18, das hei{CBM-V}t im vierten bis 19ten Byte der Variablen DD$. Beim Scratchschutist der Abstand, der 32 Bytes betr{CBM-F}gt. Die L{CBM-F}nge eines Eintrages betr{CBM-F}gt 30 Bytes, die beiden restlichen Bytes sind uninteressant.
In den Programmzeilen 380 bis 400 wird der Directoryeintrag in die Variable DD$ eingelesen. F{CBM-X}r das Sch{CBM-X}tzen von Files und chenergebnis m{CBM-X}ssen wir anhand der ersten beiden Verweisbytes die erforderliche Anzahl von Sektoren, deren Reihenfolge beliebig sein kann, nach vorne bl{CBM-F}ttern, bis wir schlie{CBM-V}lich den richtigen Sektor in Zugriff haben. Das wird durch die Schleife von ZeiEintr{CBM-F}ge, jedoch zwei Eintr{CBM-F}ge, die uns sagen, wo das Inhaltsverzeichnis beginnt. Byte Nummer null gibt die Spur an, Byte Nummer eins den Sektor. Die Sektoren des Inhaltsverzeichnisses enthalten in den ersten beiden Bytes ebenfalls einen Zeiger auf die F
$(65) geschrieben werden. Das geschieht durch den Memory-Write-Befehl in Zeile 980. Danach ist das L{CBM-C}schen des Schreibschutzes kein Problem mehr.

{SHIFT-+}nderung von Diskettenname
und Disketten-ID:
--------------------------
Der Diskettenname und die Diskettenle 1560 sollten wir die IF-Anweisung weglassen und nur schreiben: HH$=CHR$(ASC(HH$)AND15). Nicht ordnungsgem{CBM-F}{CBM-V} geschlossene Files k{CBM-C}nnen nicht geladen werden, so da{CBM-V} sie lesegesch{CBM-X}tzt und so vor neugierigen Blicken sicher sind.
Zus{CBM-F}tzlich zu unseren Infoz-Setzen wird in Zeile 1130 mit 64 geodert, beim Schratchschutz-L{CBM-C}schen werden 64 wieder subtrahiert. In der Zeile 1400 wird der Programmtyp addiert. Vorher h{CBM-F}tte er nicht so umst{CBM-F}ndlich zu r{CBM-X}ckgesetzt zu werden brauchen. HI=HI AND 15 h{CBM-F}tte dasselbe voll
das {SHIFT-+}ndern der Filetypen ist das erste Byte oder Byte Nummer null des Eintrages interessant. Ein Wert von 0 bis 127 kennzeichnet eine nicht ordnungsgem{CBM-F}{CBM-V} abgeschlossene Datei, ein Wert von 128 bis 191 eine normal abgeschlossene, h{CBM-C}here Werte eine schreible 350 verursacht.
In diesem Sektor mu{CBM-V} sodann der gew{CBM-X}nschte Direktoryeintrag ausfindig gemacht werden. Hierzu wird der beim Teilen entstandene Rest ben{CBM-C}tigt. Dieser ist mit der L{CBM-F}nge 32 eines Directoryeintrages zu multiplizieren. Au{CBM-V}erdem ist der Wert ortsetzung in den anderen Sektoren. Wenn uns weiterhin bekannt ist, da{CBM-V} ein Directoryeintrag aus 32 Bytes besteht und ein Sektor acht solcher Eintr{CBM-F}ge enth{CBM-F}lt, sollte die Position eines Direktoryeintrages leicht auffindbar sein.
Zuerst mu{CBM-V} der richtige S-ID sind wie die Formatkennung in Spur 18, Sektor 0 vorzufinden. Der Diskettenname ist sechzehn Zeichen lang. Bei k{CBM-X}rzeren Namen wird der Rest mit geshifteten Leerzeichen aufgef{CBM-X}llt. Der Diskettenname belegt die Bytes von Nummer 144 bis 159, die Diskette
rmationen sollten Sie Ihr Floppyhandbuch zu Rate ziehen, da wir im Hinblick auf dieses Buch unsere Ausf{CBM-X}hrungen etwas knapp gehalten haben.im Programm etwas schiefgelaufen zu sein. Statt OR 64 m{CBM-X}{CBM-V}te es in Programmzeile 1540 richtig hei{CBM-V}en: OR 128. In Zeibracht wie die Zeilen 1370 bis 1390.
Beim Verwandeln von ordnungsgem{CBM-F}{CBM-V} abgeschlossenen Files in nicht abgeschlossene und umgekehrt scheint im Programm etwas schiefgelaufen zu sein. Statt OR 64 m{CBM-X}{CBM-V}te es in Programmzeile 1540 richtig hei{CBM-V}en: OR 128. In Zei
- und l{CBM-C}schgesch{CBM-X}tze Datei. Zu diesen Werten 0, 128 oder 192 ist der Dateityp zu addieren:

0 = DEL
1 = SEQ
2 = PRG
3 = USR
4 = REL

Scratchschutz und Typ{CBM-F}nderungen k{CBM-C}nnen somit bewerkstelligt werden. Nach den {SHIFT-+}nderungen wird der Directoryeintrag in den Zwei zu addieren, da die Eintr{CBM-F}ge erst nach den beiden Verweisbytes beginnen. Die Positionierung des Pufferzeigers erfolgt in Zeile 370.
Auch wenn wir vorher gesagt haben, die L{CBM-F}nge eines Directoryeintrages sei 32 Bytes, so ist dies nur halb richtig. Es ektor gefunden werden. Dies erreichen wir, indem wir die Nummer des Direktoryeintrages um eins erniedrigen und durch acht teilen. Das geschieht in Zeile 280. Danach wird in Zeile 290 der Sektor 0 von Spur 18 in den Puffer gelesen. Entsprechend unserem Ren-ID die Bytes Nummer 162 bis 166. Die beiden Routinen finden Sie im Programm von Zeile 620 bis 810.

Directory-Eintr{CBM-F}ge:
-------------------
Die Eintr{CBM-F}ge des Disketteninhaltsverzeichnisses befinden sich auf der Spur 18. Der Sektor 0 enth{CBM-F}lt dabei keine       W{CBM-X}rthele's Expanded BASIC
 BASIC-Erweiterung ohne Speicherverlust
Es gibt sehr viele BASIC-Erweiterungen f{CBM-X}r den C 64. Alle bieten neue Befehle, aber fast alle "schlucken" etwas vom Speicherplatz. "W{CBM-X}rthele's Expanded BASIC" bietet jedoch mehr Speeraus starten wollen. "W{CBM-X}rthele's Expanded BASIC" bietet mehr Speicher, als normal f{CBM-X}r das BASIC ben{CBM-C}tigt wird. Zus{CBM-F}tzlich kann ein eigener Zeichensatz und ein Grafikbildschirm verwendet werden, wobei immer noch gen{CBM-X}gend Platz f{CBM-X}r eigene Sprites bleibt. n, sind Demos, die bei Verwendung der BASIC-Erweiterung geladen werden k{CBM-C}nnen. Etwas Besonderes hat die Erweiterung zu bieten. So ist die Integrierung von "No-Border-Sprites" kein Problem. Das mitgelieferte Demo "EB CLOCK SHOW" beweist das sehr anschauli als normalerweise. Erreicht wird dies durch die Bildschirmspeicherverschiebung ins RAM oberhalb der Adresse 49152. Wer also nicht auf den Datasettenbetrieb verzichten will, gibt folgendes nach dem Installieren von "WEB" ein:

Poke 43,254:Poke 44,3:Poke prites
  werden im vierten VIC-Block
  abgespeichert

- erweiterte Befehle (GOTO Variable)

- bei Textmodus (keine Grafikseite)
  64 Sprites-Bl{CBM-C}cke verf{CBM-X}gbar

- sonstige Erweiterungen

Insgesamt stehen Ihnen 17 neue Befehle sowie verbesserte GOTO- und LI
entnehmen Sie bitte der Tabelle 1.
Bei IF...THEN-Konstruktionen ist zu beachten, da{CBM-V}, sofern auf THEN ein "WEB"-Befehl folgt, dieser vom THEN-Statement durch einen Doppelpunkt abzutrennen ist. Ein Beispiel:

IF a=4 THEN:@B6

Ebenfalls neu ist der @!-Befeicher, als im normalen Betrieb f{CBM-X}r das BASIC gebraucht wird.
Die BASIC-Erweiterung wird absolut (LOAD "WEB",8,1) geladen und anschlie{CBM-V}end mit SYS49152 gestartet. Wenn Sie sie aus unserem Disclader heraus laden, ben{CBM-C}tigen Sie die SYS-Anweisung nicht, da wDer somit gr{CBM-C}{CBM-V}ere freie Speicherplatz kann auch f{CBM-X}r eigene Routinen benutzt werden. Der komplette ROM-Bereich wird, wenn es nicht f{CBM-X}r das BASIC verwendet wird, gen{CBM-X}tzt. Auf der Diskette ist zus{CBM-F}tzlich noch das Programm "EB Anweisung" enthalten, in dem Si
ch. "WEB", die Kurzform von "W{CBM-X}rthele's Expanded BASIC", verf{CBM-X}gt {CBM-X}ber sehr schnelle Grafikbefehle, die sogar die Geschwindigkeit von "Simons's BASIC" {CBM-X}bertreffen.

Die Benutzerf{CBM-X}hrung
-------------------
"WEB" ist nach dem Installieren nur f{CBM-X}r reinen Flo1021,0:New

Die BASIC-Erweiterung bietet einige neue und n{CBM-X}tzliche Befehle, die dem Programmierer ungeahnte Vorteile bringen:

- Grafikbefehle (Linien, Punkte etc.)

- eigener Zeichensatz m{CBM-C}glich ohne
  Speichereinschr{CBM-F}nkungen

- Sprite-Handling

- No-BoST-Befehle zur Verf{CBM-X}gung.jDer RAM-Speicher des C64 kann mit "WEB" fast vollst{CBM-F}ndig gen{CBM-X}tzt werden. Die RAM-Bereiche unterhalb des ROMs werden f{CBM-X}r die Bitmap, den Zeichensatz und die Sprites genutzt, der Rest steht dem BASIC-Speicher zur Verf{CBM-X}gung.jjDurchhl.
Dieser kann nur im Direktmodus eingegeben werden. Im Notfall kann dadurch ein abgest{CBM-X}rztes Programm wieder listbar gemacht werden. Es handelt sich allerdings nicht um ein 100prozentiges RENEW.
Mit SYS50231 k{CBM-C}nnen Sie sich den Diskstatus beziehungswei
ir einen kleinen Programmlader (web.loader), der das eigentliche Programm nachl{CBM-F}dt und es startet, auf der Diskette abgespeichert haben. Verwenden Sie also am besten immer diesen kleinen Lader, auch wenn Sie das Programm nicht aus unserem Diskettenmen{CBM-X} he alle wichtigen Befehle der Erweiterung erkl{CBM-F}rt bekommen.
Sie sollten sich deshalb, bevor Sie richtig mit dem Programm arbeiten wollen, die Anleitung mit ihren Demonstrationen anschauen. Alle Programme auf der Diskette, die mit "EB" im Filenamen beginneppybetrieb vorgesehen. Der Kassettenpuffer wird als BASIC-Speicher verwendet. Wer dennoch mit Kassette arbeiten will, mu{CBM-V} den BASIC-Speicher nach 1022 hochlegen und opfert dadurch einige Bytes Speicherplatz. Dennoch steht mehr Speicherplatz zur Verf{CBM-X}gungrder-Sprites werden unterst{CBM-X}tzt

- Komfortabler Directory- und List-
  Befehl

- gr{CBM-C}{CBM-V}erer BASIC-Speicher als normal,
  auch wenn Grafikschirm, eigener
  Zeichensatz und Sprites voll aus-
  gesch{CBM-C}pft werden, sogar wenn die
  Datasette benutzt wird. Alle S die Erweiterung werden die bereits im C64 enthaltenen BASIC-Befehle nicht beeintr{CBM-F}chtigt, das hei{CBM-V}t alle alten Befehle des C64 bleiben erhalten.
Die neuen Befehle beginnen immer mit dem @-Zeichen (Klammeraffe).
Die genaue Auflistung aller neuen Befehle  se den Fehlerkanal #8 ausgeben lassen. Dieser Befehl ist ein Teil des Directory-Befehls und kann auch so angesprochen werden, quasi noch eine zus{CBM-F}tzliche Erweiterung des Befehlssatzes.

Hinweise f{CBM-X}r Programmierer
--------------------------
Zur Anpassung  opage) m{CBM-X}ssen vor dem Benutzen gerettet und nach der erstellten Routine wieder mit dem alten Wert geladen werden.
Vorsicht beim Interrupt-Programmieren! Wenn der Expanded Border Mode angeschaltet ist, wird der Interrupt daf{CBM-X}r umgeleitet und in eine zeitk  (1 = setzen, 0 = l{CBM-C}schen)

"WEB" vertr{CBM-F}gt sich mit einigen Fastloadern. Es ist aber zu beachten, da{CBM-V} zuerst "WEB" installiert werden mu{CBM-V}, danach der Fastloader mit dem entsprechenden SYS-Befehl. Das ist deshalb n{CBM-C}tig, da "WEB" den LOAD-Vektor verbiegt,  chwarzblende {CBM-X}ber den erweiterten Rahmen legen.

F{CBM-X}r Z gelten folgende Parameter:
Z =   0       Schwarzblende aus
Z = 255       Schwarzblende ein

W{CBM-F}hlen Sie f{CBM-X}r Z einen Wert, der zwischen Null und 255 liegt, k{CBM-C}nnen Sie die Bits der Schwarzblende setzen  Programm mit dem Autostart:
Sichern Sie Ihr Programm und verlassen Sie die BASIC-Erweiterung entweder durch einen Reset-Schalter, oder schalten Sie Ihren C64 einfach ab. Danach laden Sie den Autostarter ("AUT.STG.V4") im normalen BASIC absolut, also mit
einiger BASIC-Programme, die in den Bildschirmspeicher poken, sollten Sie zur Adresse den Wert 51200 dazuz{CBM-F}hlen (aus 1024 wird 52224).
Bei der Spritebenutzung legen Sie die Sprites ab Adresse 61440 ab, die Spritezeiger sind dann im Bereich 53240 bis 5324 gedr{CBM-X}ckter Taste ein Buchstabe oder Ausdruck gelistet.

Wenn Sie in Maschinensprache programmieren wollen, k{CBM-C}nnen Sie neben "WEB" auch Maschinenspracheroutinen benutzen. Dazu betrachten Sie unsere Tabelle 2, die Ihnen eine genaue Speicher{CBM-X}bersicht liefer ritische Routine verzweigt.

Ein paar n{CBM-X}tzliche Hinweise
---------------------------
F{CBM-X}r eine Kreis-Funktion fehlte innerhalb von "WEB" der Platz. Der folgende Dreizeiler erledigt das:

10 FORG*.7:Z=INT(SQR(1-(G/R))*R)
20 @PM,G+X,Y+Z:@PM,X+G,Y-Z:@PM,X-G,
um im Falle des Expanded Border Mode die Rahmenfarbe w{CBM-F}hrend des Ladevorgangs der Hintergrundfarbe anzupassen, damit ein Flimmern verhindert wird.jBeim Installieren von "WEB" mit SYS49152 durchl{CBM-F}uft das Programm automatisch den @R-Befehl. Wollen Sie dies und l{CBM-C}schen. Dadurch lassen sich recht interessante Effekte erzielen.

Das Autostartprogramm
---------------------
Auf Ihrer Diskette befindet sich auch ein zu "WEB" geh{CBM-C}render Autostartgenerator. Damit lassen sich alle Programme, die unter "WEB" erstell ",8,1". Anschlie{CBM-V}end geben Sie SYS49152 ein. Es erscheint eine Meldung, da{CBM-V} nun dieselbe Speicherkonfiguration wie unter "WEB" geschaffen wurde. Das "WEB" ist aber nicht installiert. Nun laden Sie Ihr erstelltes "WEB"-Programm. Beachten Sie, da{CBM-V} das Prog 7 anstatt im Bereich 2040 bis 2047 zu finden.
Im "W{CBM-X}rthele's Expanded BASIC" d{CBM-X}rfen auf den GOTO-Befehl auch Variablen oder mathematische Ausdr{CBM-X}cke folgen. Beispiel:

GOTO VA+4/INT(RND(1))

Der LOAD-Befehl gleicht im Expanded Border Mode Hintergrund- und
t. In diesem Fall verringern Sie am besten den BASIC-Speicher (zum Beispiel {CBM-X}ber Adresse 55/56). Sie k{CBM-C}nnen die 72 beziehungsweise 15 freien Bytes unter oder {CBM-X}ber den BASIC-Speicher als Zwischenspeicher verwenden. Andere Adressen (zum Beispiel in der Zer Y-Z:@PM,X-G,Y-Z:@PM,X-G,Y+Z:@PM,X+Z,Y+G:@PM,X+Z,Y-G
30 @PM,X-Z,Y-G:@PM,X-Z,Y+G:NEXT:RETURN

Der Aufruf erfolgt hier in unserem Beispiel durch GOSUB 10. Folgende Parameter werden verwendet:

x,y = Koordinaten des Kreismittelpunktesr   = Radius
m   = Modus  vermeiden, so k{CBM-C}nnen Sie auch erst bei der Adresse $COBB (dezimal 49339) in das Programm einspringen. N{CBM-X}tzlich ist das, wenn Sie einen eigenen Zeichensatz im Speicher nicht {CBM-X}berschreiben wollen.

Im Expanded Border Mode k{CBM-C}nnen Sie mit
POKE65535,Z
eine S t wurden, mit einem Autostarter versehen. Das hei{CBM-V}t, alle damit bearbeiteten Programme k{CBM-C}nnen nach der Installation von "WEB" geladen und automatisch gestartet werden. Dadurch entf{CBM-F}llt das l{CBM-F}stige Eintippen des RUN-Befehls.
Und so versehen Sie Ihr "WEB"-!ramm im Augenblick nicht lauff{CBM-F}hig ist.
Mit dem Befehl SYS49342 gelangen Sie in das Autostart-Generator-Men{CBM-X} (der SYS-Befehl wird in der Meldung mit angegeben). Hier w{CBM-F}hlen Sie nun den Namen des Programmes, das den Autostart bekommen soll. Anschlie{CBM-V}end w  Rahmenfarbe einander an, um ein Flackern im Split zu vermeiden. Mit dem LIST-Befehl k{CBM-C}nnen Sie das Listen mit einer beliebigen Taste anhalten, mit der Funktionstaste F7 wird die LIST-Funktion weiter ausgef{CBM-X}hrt. Wurde das Listen angehalten, wird je nach !r
--------------------
Rahmenfarbe x

@F x  Foreground Color
----------------------
Vordergrundfarbe x (x bedeutet den Wert der gew{CBM-X}nschten Farbe, siehe Handbuch)


ZWEIPARAMETRIGE BEFEHLE

@M x,z  Modify Bitmap's Color
-----------------------------
Der !setzt (LSB/HSB wird automatisch gesetzt)

@P m,x,y
--------
PLOTPOINT: Ist m gleich eins, so wird der Punkt x,y in der Bitmap gesetzt. Ist m gleich null, so wird er gel{CBM-C}scht

@L m,x,y,z,t
------------
LINEPRINT: m ist gleich in Punkt n) beschrieben. Es w!ensatz in Gro{CBM-V}/Grafik- oder Gro{CBM-V}/Kleinschrift-Modus geschrieben. Wenn kein eigener Zeichensatz erstellt wurde, so haben die Wert drei und eins sowie vier und zwei jeweils dieselbe Wirkung.

 --------------------------------------
            TABELLE 2
 -!ird das Autostart-Programm erstellt. Bei sehr langen Programmen kann dies eine Weile dauern, also haben Sie bitte etwas Geduld. Dieser Autostart-Generator fand aus Speicherplatz-Gr{CBM-X}nden keinen Platz mehr in der eigentlichen BASIC-Erweiterung. In der vorl!
ch, die Einblendung erst
   vorzunehmen, wenn die Bildschirm-
   maske des Programmes fertig ist.
   Dadurch geben Sie Ihren Programmen
   einen professionellen Touch.

Noch ein Tip, wie Sie in bereits bestehende Programme die Zeile null einf{CBM-X}gen k{CBM-C}nnen.!7, mit anderer Taste warten

@E  Expand Border
-----------------
schaltet erweiterten Rahmen ein

@G  Graphic Mode
----------------
schaltet den Grafikschirm an

@I  Invert Bitmap
-----------------
invertiert den Grafikbildschirm

@N  Normal Text Mode
--!Textschirm wird mit Zeichen gef{CBM-X}llt, die bei eingeschaltetem Grafikmodus der Farbwahl Zeichenfarbe x auf Hintergrund x entspricht. Im Textmodus kann der Bildschirm mit denselben Zeichen gef{CBM-X}llt werden.

@M 0,2
------
l{CBM-C}scht den Textbildschirm


DREI- UND!
ird von x,y nach z,t eine Linie gezogen

@T m,b,x,y,a$
-------------
TEXT IN BITMAP: Der String a$ wird in die Bitmap in Zeile x, Spalte y geschrieben. Auch darf der String in Anf{CBM-X}hrungszeichen folgen.
Ist m eins, so wird der String "normal" ausgegeben. !-------------------------------------

SPEICHER{SHIFT--}BERSICHT

00000 - 00694   Zeropage beziehungs-
                weise Systemadressen
00695 - 00767   72 Bytes frei
00768 - 00819   Vektoren und System-
                speicher, Sprung-
                adres!iegenden Form kann der Generator auch sehr lange Programme verwalten.

Folgendes ist beim Autostart-Generator zu beachten:

1. Die erste Zeile mu{CBM-V} immer die
   Nummer "0" tragen

2. RUN-STOP/RESTORE ist blockiert.
   Soll die Funktion dennoch frei-
   ge! Dazu geben Sie einfach POKE808,237:POKE53265,27 ein. Alles ist dann genau so, als w{CBM-F}re ein "normales" Programm geladen und mit RUN gestartet worden. Wir w{CBM-X}nschen Ihnen viel Spa{CBM-V} beim Ausprobieren und Experimentieren.

-----------------------------------!
------------------
Textschirm, Gegenteil zu d)

@O  Old Border
--------------
Normalschirm, Gegenteil zu c)

@R  Redfine Charset
-------------------
setzt als aktuellen Zeichensatz den normalen C=-Zeichensatz


EINPARAMETRIGE BEFEHLE

@B x  Border's Colo! MEHRPARAMETRIGE BEFEHLE

@A x,z,a$
---------
PRINTAT: Der String a$ (darf auch in Anf{CBM-X}hrungszeichen direkt folgen) wird in Spalte y und Zeile x auf den Bildschirm geschrieben

@S a,x,y
--------
SPRITESET: Das Sprite Nummer a wird an die Position x ,y ge!Ist m zwei, wird er revers geschrieben.
Mit b wird der Textmodus geregelt. Ist b eins, so wird der normale Gro{CBM-V}/Grafik-Modus eingeschaltet. Ist b zwei, wird der Gro{CBM-V}/Kleinschrift-Modus eingeschaltet. Ist b drei beziehungsweise vier, wird der eigene Zeich"sen
00820 - 40960   40139 Bytes BASIC-
                Speicher frei
40961 - 49151   BASIC-ROM, im RAM
                darunter
                die Grafik-Bitmap
49152 - 52223   Hauptprogramm

UNTERROUTINEN:

52224 - 53224   Bildschirmspeicher
53225 - 53!geben werden, so geben Sie
   POKE808,237 ein, und die Abfrage
   wird wieder eingeschaltet

3. Der Bildschirm ist beim Start des
   Programmes ausgeblendet. Mit
   POKE53265,27 k{CBM-C}nnen Sie den Bild-
   schirm wieder einblenden. Weiterhin
   ist es m{CBM-C}gli!---
             TABELLE 1
--------------------------------------

PARAMETERLOSE BEFEHLE

@C  Clear Bitmap
----------------
l{CBM-C}scht den Grafikschirm

@D  Display Directory
---------------------
zeigt das Inhaltsverzeichnis einer Diskette an. Abbruch mit F"?{$7e}
N{$7e}{$ea} "    R = i*p/N / ( 1 - (i/N+1)^(-N*Y)) "
T{$7e}{$f4}
{$7e}{$fe} " R = regelm{CBM-F}{CBM-V}ige Zahlungen"
{CBM-Z}{$7e}  " p = Darlehen"
I{$7e}  " i = Jahreszinssatz"
{$f3}{$7e}  " N = Anzahl der Zahungen pro Jahr"
{$7f}&  " Y = Anzahl der Jahre"
{$7f}0 {CBM-K}{$f9}a$
.{$7f}:  a${CBM-R}" " {CBM-M} 8240
>{$7f}d ::"*********************************************
G>!
h!        letzte zahlung fuer ein darlehen
r!
{$e9}\! ***********************************************************************
{$ef}F!{$e8}
{$f7}P!:
3Z! "          Letze Zahlung f{CBM-X}r ein Darlehen           "239   15 Bytes frei
53240 - 53247   Spriteblockzeiger
                Sprite 0 - 7
53248 - 54296   VIC-Adressen, SID-
                Adressen Zeichen-ROM
54297 - 55296   Farb-RAM
                Zeichen-ROM
55297 - 57343   System-Adressen
              "{CBM-F}lligkeit"
zVh
CVr{CBM-K}{$f9}a$
WV\ a${CBM-R}" " {CBM-M} 7250
VF:::::
{CBM-L}VP "    Zukunftswert                  : ";t
{CBM-C}VZ
{$eb}V "    Diskontsatz                   : ";d
{$f7}Vd{CBM-R}d{CBM-Z}100
{$fd}V
,W{CBM-I} "    Tage bis zur F{CBM-F}lligkeit       : ";n
4W{CBM-D}:
eW{CBM-L}d1{CBM-R}t{CBM-D}d{CBM-D}n{CBM-Z}360
DW"
 " Zahlungen, der Anzahl der Zahlungen pro Jahr und der Laufzeit"
YX
{CBM-G}Y{$e2}" des Darlehens ab."
{CBM-Q}Y
{SHIFT-+}Y "    p = R*N/i * ( 1 - 1/(1+i/N)^(N*Y)) "
{$e1}Y(
{$f7}Y2 " p = Darlehen"
Z< " R = regelm{CBM-F}{CBM-V}ige Zahlungen"
6Zf " i = Jahreszinssatz"
{$60}Zp " N ="
r{$7c} a${CBM-R}" " {CBM-M} 7940
\{$7c} 140
{CBM-N}{$7c}@ ***********************************************************************
{CBM-A}{$7c}j
{$e7}{$7c}t        regelmaessige zahlungen fuer ein darlehen
{$ed}{$7c}^
;{$7d}H ***********************************************************************
":::
W{$7f}n  "    H{CBM-C}he des Darlehens                      : ";p
{$7d}{$7f}x
{CBM-L}{$7f}B  "    Jahreszinssatz                          : ";i
{CBM-C}{$7f}L
{$f5}{$7f}V  "    Anzahl der Zahlungen / Jahr             : ";n
{$fb}{$7f}
5  "    Laufzeit in Jahren und Monaten   Jahre  : ";yo
"
"
;!:
! " Dieses Programm berechnet den Betrag der letzten Zahlung f{CBM-X}r ein"
!
U{CBM-I}!" Darlehen. Der Betrag ist normalerweise verschieden von dem Betrag"
{SHIFT-+}{CBM-D}!
{$fe}{CBM-L}! " der regelm{CBM-F}{CBM-V}igen Zahlung."
{SHIFT-*}!

J!
:T!"       Betrag der          rege
Q  Zeichen-ROM
57344 - 61439   Zeichensatzdaten im
                RAM I/O
61440 - 65535   Spritedaten im RAM I/O       darunter
                die Grafik-Bitmap
49152 - 52223   Hauptprogramm

UNTERROUTINEN:

52224 - 53224   Bildschirmspeicher
53225 - 53"J " Diskont   : ";d1;" DM"
WO " Kosten    : ";t{CBM-Q}d1;" DM"
W{$de}{CBM-K}{$f9}a$
{CBM-I}W{$e8} a${CBM-R}" " {CBM-M} 7390
{CBM-D}W{$f2} 140
{$fa}Wl ***********************************************************************

Xv
X{$60}        darlehen
XJ
JXT ***********************************" Anzahl der Zahungen pro Jahr"
{$7e}Zz " Y = Anzahl der Jahre"
ZD{CBM-K}{$f9}a$
ZN a${CBM-R}" " {CBM-M} 7780
{CBM-Q}ZX:::::
ZZ "    regelm{CBM-F}{CBM-V}ige Zahlung           : ";r
 Z
{$7b} "    Jahreszinssatz                : ";i
{$7b}
d{$7b}{CBM-N} "    Anzahl der Zahlungen / Jahr   :"
a{$7d}R{$e8}
k{$7d}{$7c}::
{$7d} "          Regelm{CBM-F}{CBM-V}ige Zahlungen f{CBM-X}r ein Darlehen"
{$7d}::
Y{$7d} " Dieses Programm berechnet den Betrag, der als regelm{CBM-F}{CBM-V}ige Zahlung"
{CBM-*}{$7d}{CBM-@}
3{$7e}{CBM-S} " zur Abstattung eines Darlehens f{CBM-X}r eine gegebene Laufzeit erfoderlich ist."
9{$7e}V
"N  "                                     Monate : ";m
V :
{CBM-POUND} y{CBM-R}(12{CBM-D}yo{CBM-N}m){CBM-Z}12
{CBM-R} i{CBM-R}i{CBM-Z}100
{CBM-H}{CBM-C} r{CBM-R}i{CBM-D}p{CBM-Z}n{CBM-Z}(1{CBM-Q}(i{CBM-Z}n{CBM-N}1){CBM-S}({CBM-Q}n{CBM-D}y))
{$ec}F  " regelm{CBM-F}{CBM-V}ige Zahlungen : ";{CBM-J}(r{CBM-D}100{CBM-N}.5){CBM-Z}100;" DM"
{$f5}P {CBM-K}{$f9}a$
Z  a${CBM-R}" " {CBM-M} 8400
{$e4}  140
A4! **************************#lm{CBM-F}{CBM-V}ge   "
{$7e}{$de}!"                        =             + hypothetischer Saldo"
{CBM-N}{$e8}!"       letzten Zahlung     Zahlung  "
{CBM-A}{$f2}!
{CBM-O}{$fc}!{CBM-K}{$f9}a$
M" a${CBM-R}" " {CBM-M} 8700
{SHIFT--}":::::
" "    regelm{CBM-F}{CBM-V}ige Zahlung           : ";r
T"
a{$7e}" "    Jahreszinssatz  "ettowertes erfolgt mit folgender Formel :"
{$7c}U
{CBM-@}U "    Diskont = T * D/100 * N/360"
{CBM-N}U
LU "  Nettowert = T - Diskont"
RU
V* " T = gesamter Zukunftswert (Wert bei F{CBM-F}lligkeit)"
$V4 " D = Diskontsatz"
tV> " N = Anzahl der TAge bis zur F"************************************
PX{$7e}{$e8}
ZX::
X "          Darlehen"
X::
{$eb}X{CBM-+} " Dieses Programm berechnet die H{CBM-C}he eines aufzunehmenden Darlehens."
{$f1}X{CBM-A}
8Y{SHIFT-@} " Dieser Betrag h{CBM-F}ngt vom Zinssatz, der Anzahl der regelm{CBM-F}{CBM-V}igen"
>YD
YN" ";n
j{$7b}{CBM-H}
{$7b}{CBM-V} "    Anzahl der Jahre und Monate    Jahre  : ";yo
{CBM-O}{$7b}H "                                   Monate : ";m
A{$7b}R:
T{$7b}{CBM--}y{CBM-R}(12{CBM-D}yo{CBM-N}m){CBM-Z}12
 {$7b}{$e6}i{CBM-R}i{CBM-Z}100

{$7c}{$f0}p{CBM-R}r{CBM-D}n{CBM-Z}i{CBM-D}(1{CBM-Q}1{CBM-Z}(1{CBM-N}i{CBM-Z}n){CBM-S}(n{CBM-D}y))
5{$7c}{$fa} " H{CBM-C}he des Darlehens : ";{CBM-J}(p{CBM-D}100{CBM-N}.5){CBM-Z}100;" DM"
>{$7c}{CBM-K}{$f9}a$#
k<( "    regelm{CBM-F}{CBM-V}ige Zahlungen                   : ";r
qf(
p( "    Abrechnungsperioden / Jahr              : ";n
z(
JD( "    Laufzeit in Jahren und Monaten   Jahre  : ";yo
N( "                                     Monate : ";m
X(:
(#              : ";i
g"
V" "    H{CBM-C}he des Darlehens            : ";p
{$7c}"
{CBM-Q}" "    Anzahl der Zahlungen/Jahr     : ";n
{CBM-E}"
{$e9}{CBM-+}" "    Anzahl der Jahre und Monate    Jahre  : ";yo
 {CBM-A}" "                                   Monate : ";m
({SHIFT-@}":
;D#erechnet den Restsaldo nach einer gegebenen Anzahl"
A#
X#" von Zahlungen."
{$7e} #
{CBM-H}#
{CBM-V}#
DH#"                              amortisierter Betrag"
R#"       Restsaldo = Darlehen - nach N*(Y-1)+1 Zahlungen"
{CBM--}#
{$e6}#
{$f0}#{CBM-K}{$f9}a$
+{$fa}# a${CBM-R}" " {CBM-M}# j1
wL$ " Restsaldo     : ";{CBM-J}(b0{CBM-D}100{CBM-N}.5){CBM-Z}100;" DM"
{$60}V${CBM-K}{$f9}a$
T $ a${CBM-R}" " {CBM-M} 9430
{$7e}{$ea}$ 140
L% ***********************************************************************
R&%
{$f8}0%        laufzeit eines darlehens
{$fe}:%
ld% ***************************#
ungen/Jahr"
oK% "       R = Betrag der Zahlungen"
uP%
^Z%{CBM-K}{$f9}a$
R{$e4}% a${CBM-R}" " {CBM-M} 9690
{$ee}%:::::
{CBM-E}{$f8}% "    regelm{CBM-F}{CBM-V}ige Zahlung           : ";r
{CBM-Y}&
{$e6}& "    Jahreszinssatz                : ";i
{$ec}&
 & "    H{CBM-C}he des Darlehens            : ";#ehen"
#{$60}':
LJ' " Dieses Programm berechnet den verlangten Jahreszinssatz f{CBM-X}r ein"
RT'
{$7e}'" Darlehen.
{CBM-A}'
G{SHIFT-@}' " Die Berechnung erfolgt mit einem N{CBM-F}herungverfahren :"
MD'
{$f9}N' "    R = i*(p/N) / (1-(1+i/N)^(-N*Y))
~X'
{$e2}' " i = Zinsatz"#y{CBM-R}(12{CBM-D}yo{CBM-N}m){CBM-Z}12
,(i{CBM-R}10:i2{CBM-R}0
q(r1{CBM-R}(i{CBM-D}p{CBM-Z}n){CBM-Z}(1{CBM-Q}1{CBM-Z}((i{CBM-Z}n{CBM-N}1){CBM-S}(n{CBM-D}y)))
I (r1{CBM-R}{CBM-J}(r1{CBM-D}100{CBM-N}.5){CBM-Z}100
{$7f}{CBM-K}(i3{CBM-R}{CBM-L}(i{CBM-Q}i2){CBM-Z}2:i2{CBM-R}i
{CBM-I}( r1{CBM-R}r {CBM-M} 10408
{CBM-G}{CBM-T}( r1{CBM-E}r {CBM-M} 10406
{CBM-A}{CBM-@}(i{CBM-R}i{CBM-N}i3
{CBM-C}{CBM-G}( 10390
G{CBM-+}(i{CBM-R}i{CBM-Q}i3
S{CBM-M}( 10390
{$f9}{CBM-POUND}(i{CBM-R}(({CBM-J}((i{CBM-D}1000){CBM-D}100{CBM-N}.5)){CBM-Z}100){CBM-Z}1000
!{SHIFT-POUND}( "   Jahreszins#
"y{CBM-R}(12{CBM-D}yo{CBM-N}m){CBM-Z}12
gN"i{CBM-R}i{CBM-Z}100
pO"b0{CBM-R}p
CP" j1{CBM-R}1 {CBM-@} (n{CBM-D}y)
Q"i1{CBM-R}{CBM-J}((b0{CBM-D}i{CBM-Z}n){CBM-D}100{CBM-N}.5){CBM-Z}100
R"a{CBM-R}r{CBM-Q}i1
S"b0{CBM-R}b0{CBM-Q}a
{CBM-K}T" j1
V{$e2}" " letze Zahlung : ";{CBM-J}((r{CBM-N}b0){CBM-D}100{CBM-N}.5){CBM-Z}100;" DM"
{CBM-*}{$ec}"{CBM-K}{$f9}a$
{$f3}{$f6}" a${CBM-R}" " {CBM-M} 8940
{$fd}
# 140
k(# **************************************# 9210
;$:::::
J$ "    regelm{CBM-F}{CBM-V}ige Zahlung           : ";r
P$
"$ "    Jahreszinssatz                : ";i
{CBM-G},$
T6$ "    H{CBM-C}he des Darlehens            : ";p
Z@$
j$ "    Anzahl der Zahlungen/Jahr     : ";n
t$
n^$ "    letzte er#********************************************
rn%{$e8}
zx%:
B% "          Laufzeit eines Darlehens"
L%:
{SHIFT-+}V% " Dieses Programm berechnet die erforderliche Zeit f{CBM-X}r die R{CBM-X}ckzahlung"
{$e1}%
{$fa}%" eines Darlehens."

%
%
/{CBM-POUND}%"                 #p
!*&
p4& "    Anzahl der Zahlungen/Jahr     : ";n
x&:
D&i{CBM-R}i{CBM-Z}100
{CBM-I}&y{CBM-R}{CBM-Q}{CBM-C}(1{CBM-Q}p{CBM-D}i{CBM-Z}n{CBM-Z}r){CBM-Z}{CBM-C}(1{CBM-N}i{CBM-Z}n){CBM-D}1{CBM-Z}n
{CBM-D}&m{CBM-R}{CBM-J}(y{CBM-D}12{CBM-N}.5)
{CBM-G}{CBM-L}&yo{CBM-R}{CBM-J}(m{CBM-Z}12)
{CBM-W}{CBM-Y}&m{CBM-R}m{CBM-Q}yo{CBM-D}12
{$e1}{SHIFT-*}& " Laufzeit : ";yo;" Jahre ";m;" Monate"
{$ea}J&{CBM-K}{$f9}a$
{$fe}T& a${CBM-R}" " {CBM-M} 9930
{$de}& 140
u' *********#

5{$ec}' " R = regelm{CBM-F}{CBM-V}ige Zahlung"
u{$f6}' " p = H{CBM-C}he des Darlehens"

( " N = Anzahl der Abrechnungsperioden pro Jahr"
{CBM-POUND}
( " Y = Anzahl der Jahre"
{CBM-E}({CBM-K}{$f9}a$
C( a${CBM-R}""{CBM-M}10260
S(:::::
(( "    H{CBM-C}he des Darlehens                      : ";p
2(
psatz : ";i{CBM-D}100;" %"
*{CBM-N}({CBM-K}{$f9}a$
?{CBM-H}( a${CBM-R}" " {CBM-M} 10410
i{CBM-V}( 140
z){$e8}:G(142);:


chnungsperioden / Jahr              : ";n
z(
JD( "    Laufzeit in Jahren und Monaten   Jahre  : ";yo
N( "                                     Monate : ";m
X(:
(#*********************************
q2#
X<#        restsaldo eines darlehens
{$7e}f#
Lp# ***********************************************************************
Rz#{$e8}
ZD#:
N# "          Restsaldo eines Darlehens"
X#:
[# " Dieses Programm b#folgte Zahlung (Nr. der Zahlung, Jahr) : "
t_$
C$ "    Nummer der Zahlung           : ";n1
{CBM-E}H$ "    Jahr                         : ";y
{CBM-O}R$:
E$i{CBM-R}i{CBM-Z}100
N$b0{CBM-R}p
{$e8}$ j1{CBM-R}1 {CBM-@} (n{CBM-D}(y{CBM-Q}1){CBM-N}n1)
{CBM-@}$i1{CBM-R}{CBM-J}((b0{CBM-D}i{CBM-Z}n){CBM-D}100{CBM-N}.5){CBM-Z}100
{CBM-S}$a{CBM-R}r{CBM-Q}i1
{CBM-U}$b0{CBM-R}b0{CBM-Q}a
&B$#  log(1-p*i/N*R)"
^{CBM-R}%"            Y = -  -------------- *1/N "
{CBM-C}%"                     log(1+i/N) "
F%
{CBM-R}G% "       Y = Laufzeit in Jahren"
XH% "       p = H{CBM-C}he des Darlehens"
{$fa}I% "       i = Jahreszinssatz"
'J% "       N = Anzahl der Zahl#*************************************************************
['
$'        jahreszinssatz f{CBM-X}r ein darlehen
.'
{SHIFT-+}8' **********************************************************************
{$e1}b'{$e8}
{$e9}l':
v' "          Jahreszinssatz f{CBM-X}r ein Darl