( BLACK JACK ======C16/116/P4==O (C) COMMODORE WELT ==v ================================ (P) BY == RALF VIEZENS == == ==9 C16/116/PLUS 4 ==` ================================f : V1$(17):V2$(145):V3$(18):V4$(146):V5$(130)V6$(131):V7$(19)F1$(5):F2$(158):F3$(31):F4$(30):F5$(159):F6$(156)5(G1$(191):G2$(175):G3$(180):G4$(183):G5$(170)A2H32000G<:nF --------------------------------P - HAUPTPROGRAMM -Z --------------------------------d:n:x0,3,14,3,1F2$" **************************************"DF4$" **************************************"vF2$" *** RALF VIEZENS PRAESENTIERT *******"F4$" **************************************":1,7,54)G1$G1$G1$24)G2$G2$G2$G2$G2$G2$.4)G1$" "G1$" "G1$" "G1$" "G1$G1$" "G1$" "G5$"11 "G3$}4)G1$" "V3$G1$V4$" "G1$" "V3$G1$V4$" "G1$" "G1$" "G1$6)G5$6)G3$4)G1$V3$G1$G1$G1$V4$" "G1$" "V3$G1$V4$" "G1$" "G1$" ";4)G1$" "V3$G1$V4$4)G5$6)G3$/4)G1$" "G1$" "G1$" "G1$G1$G1$" "G1$" "G1$G1$5)G5$" "G3$4)G1$" "V3$G1$V4$" "G1$" "G1$" "G1$" "G1$" "G1$" "G1$" "G5$6)G3$4)G1$G1$G1$" "G1$G1$G1$" "G1$" "G1$" "G1$G1$" "G1$" "G1$4)G5$6)G3$"30)G5$" 11"G3$,4)G2$G2$G2$G2$G2$ G2$21)G4$G4$G4$G4$G4$G4$963)G5$"11 "G3$7)G1$h@3)G5$6)G3$8)G1$4)G1$" "G1$G1$" "G1$J3)G5$6)G3$8)G1$" "V3$G1$V4$" "G1$" "G1$" "G1$T3)G5$" "G3$8)G1$" "V3$G1$V4$" "G1$" "G1$" "G1$" "V3$G1$V4$"^3)G5$6)G3$8)G1$3)G1$G1$G1$" "G1$" "G1$G1$bh3)G5$6)G3$6)G1$" "G1$" "G1$" "G1$" "G1$" "G1$" "G1$r3)G5$4)"11"G3$7)G1$G1$" "G1$" "G1$" "G1$G1$" "G1$" "G1$|4)G4$G4$G4$G4$G4$G4$:6S,D1,S,D D1=881,18,854,18,881,18,882,18,854,18,881,18,882,21,864,21,854,21,834,21810,18,811,18,834,21,854,18,854,18,854,21,881,21,882,21,864,18,854,18834,18,810,18,834,18,854,21,810,21,770,25,739,30,770,30,834,60,810,10 R$3430:KP100E0V0&KPKPE:E0.0KPKPE:E0::VVVV1VD KPH3 VV7 3570\NhX0,15,0tb4,15,0~lVV1v15)F2$"RUNDE"VF1$" KAPITAL ";V3$;KP;V4$;23)F5$"EINSATZ ";V3$;E;V4$ KP03240P40(19):2110V7$::2250)V7$::32340e3)V1$V1$V1$V1$V1$F2$"-WIEVIEL EINSATZ ???";n E2 E2KP E20 740EE2 V7$31)V1$F5$V3$;E;V4$AAW P48*V7$:42110>V7$::H2250RV7$::\2340 fABWpXAAAB.z X21 2600m3)V1$V1$V1$V1$V1$F6$"-WOLLEN SIE NOCH EINE KARTE ? (J/N)w3430 R$ R$"J"960 R$"N"1430920P56V7$:2110V7$::2250V7$::2340ACWXAAABAC$ X21 2930c$3)V1$V1$V1$V1$V1$F6$"-WOLLEN SIE NOCH EINE KARTE ? (J/N)m.3430v8 R$B R$"J"1120L R$"N"1430V1080`P64jV7$:t2110~V7$::2250V7$::2340ADW XAAABACAD X21 2930^3)V1$V1$V1$V1$V1$F6$"-WOLLEN SIE NOCH EINE KARTE ? (J/N)h3430q R$ R$"J"1280 R$"N"14301240P71 V7$:2110V7$::(22502V7$::<2340FAEW PXAAABACADAEZ X21 2930#d:Hn ------------------------------mx - COMPUTERKARTEN -REN :3)V2$"-COMPUTERKARTEN !!!! "P402110V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$ 2250QV7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$[2340V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$BAWP482110V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$2250 V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$! "2340Q ,V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$Z 6BBWf @YBABBu JYX3000 TT1500 ^T hP56 r2110 |V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$ 2250 !V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$! 2340G!V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$P!BCW_!YBABBBCn!Y213060}!YX3000!T1800!T!P64!2110!V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$! 2250"V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$ " 2340P"&V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$Y"0BDWk":YBABBBCBDz"DY213060"NYX3000"XT11000"bT"lP71"v2110"V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$"2250!#V7$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$,# 23405#BEWJ#YBABBBCBDBEY#Y213060h#YX3000v#T11000}#T#:# ******************************# * UNTERPROGRAMME *# ******************************# :$ -----------------------------@$  - KARTEN ERZEUGEN -d$* -----------------------------j$4:u$>1,7,6$HP)G5$G4$G4$G4$G4$G4$G4$G3$$RP40)G5$6)G3$$\P40)G5$6)G3$$fP40)G5$6)G3$$pP40)G5$6)G3$$zP40)G5$6)G3$%P40)G5$6)G3$)%P40)G5$6)G3$M%P40)G5$G2$G2$G2$G2$G2$G2$G3$T%4b%3,1010,9o%3,850,8u%%W((1)13)1% W1 2400% W12 2450% W13 2500%1,12,5%P1)W% :::% P4)W% &$ F((1)4)1&. F1 P123)F4$""9&8 F2 P123)F4$""T&B F3 P123)F6$""o&L F4 P123)F6$""u&V &` P1)F6$"BUBE"&j :::&t P3)F6$"BUBE"&~ W10& & P1)F6$"DAME"& :::& P3)F6$"DAME"& W10& ' P1)F6$"KING"' :::/' P3)F6$"KING"8' W10>' D' :i' ------------------------------' - BLACK JACK -' ------------------------------' :'( '2 0,5,4'< 4,5,4'F 1,7,2'P T125(Z "***************************************""(d T-(n 1,1,06(x V7$B( D120M( TT13]( T30 T0}( T)V5$;"BLACK JACK !!";V6$( D( EE2( T0( 2850( T115( S( D( 8( 1,S,D( T( T02000:T( 550D)" 516,20,517,20,643,19,644,19,685,25,686,25,770,40,717,17,643,17,717,16,643,19f), 571,19,685,25,620,40,643,50l)6 r)@ :)J ------------------------------)T - GEWONNEN ODER VERLOREN ? -)^ ------------------------------)h :*r V1$V1$V1$V1$V1$" "I*| 3)V1$V1$V5$F2$"-SIE HABEN LEIDER VERLOREN !!!! ";V6$S* 3500a* T1900h* Tq* 560* 7,35,169,35,262,60,7,65,0,2,7,30,169,30,262,60,7,65* V7$3)V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$; + V5$F2$"-ICH HABE GEWONNEN !!!!!! ";V6$+ 3500&+ T11000-+ T6+ 560j+ V7$3)V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$;+ V5$F2$"-SIE HABEN GEWONNEN !!!!!! ";V6$+ 6+ 3140+ +& S,D+0 1,S,D+: D1,D 810,10,834,10,854,10,864,10,881,10,897,10,911,20,911,20,897,12,897,12B,N 911,20,911,20,917,30,929,45,929,1Q,X T11000X,b Ta,l 550g,v :, ------------------------------, - SPIELENDE -, ------------------------------, :, 0,6,0, 4,6,0(- 9)V1$V1$V1$V1$V1$F2$"**** SPIELENDE **** ".- Q- 9)"******************* "W- z- 9)"**** SPIELENDE **** "- V1$V1$V1$V1$V1$F6$" -SIE HABEN LEIDER KEIN KAPITAL MEHR !! "- V1$V1$V1$V1$F3$"HIGHSCORE LISTE MIT X ,NEUE RUNDE MIT +". 6 . 450. . S,D$.* 1,S,D0.4 D18.> R$I.H R$"+"520[.R R$"X"4200e.\ 3390l.f 4w.p D13.z T1000700 30. 1,T,1. T. D. . 5. 2990. T19. S,D. 1,S,D. T. . 6. D13/T700 1000 10/1,T,2#/T*/$D;/.:V1$V1$V1$l/8F2$" **************************************/B2)V1$"SIE SIND MIR ZU GUT !!!!!!/L2)V1$"WOLLEN WIR NICHT LIEBER AUFHOEREN ??? "/V2)V1$"EINTRAG IN DIE HIGHSCORELISTE MOEGLICH"0`2)V1$"(J/N)???";0j R$.0t R$"J"373070~VV0=0W0 KPH1 H1KP:3810q0 KPH2 H2KP:39400 KPH3 H3KP:40700:0 -----------------------------0 - HIGHSCORE LISTE -0 -----------------------------1: 110,1,014,1,0*11,8,4G1 8)V1$"HIGHSCORE LISTE"s1V1$V1$V1$V1$V1$V1$" 2.PLATZ: "H2" "B$1V1$V1$" 3.PLATZ: "H3" "C$1(V7$V1$V1$V1$V1$V1$"1.PLATZ: "H1" ";12 A$1<V7$V1$V1$V1$V1$V1$14)" "A$02FV1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$23)"WEITER MIT +82PR$O2ZR$"+"520:Չ3920U2d`2n0,1,0k2x4,1,0v21,8,428)V1$"HIGHSCORE LISTE"2V1$V1$V1$" 1.PLATZ: "H1" "A$2V1$V1$V1$V1$V1$" 3.PLATZ: "H3" "C$3V7$V1$V1$V1$V1$V1$V1$V1$V1$" 2.PLATZ: "H2" ";3 B$K3V7$14)V1$V1$V1$V1$V1$V1$V1$V1$" "B$323)V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$"WEITER MIT +3R$3R$"+"520:Չ3920330,1,034,1,031,8,438)V1$"HIGHSCORE LISTE"4V1$V1$V1$V1$" 1.PLATZ: "H1" "A$/4"V1$V1$" 2.PLATZ: "H2" "B$N4,V1$V1$" 3.PLATZ: "H3" ";W46 C$4@V7$14)V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$" "C$4J23)V1$V1$V1$V1$V1$V1$V1$V1$"WEITER MIT +4TR$4^R$"+"520: Չ39204h4r0,1,04|4,1,051,8,4$58)V1$"HIGHSCORELISTE"J5V1$V1$V1$V1$" 1.PLATZ: "H1" "A$j5V1$V1$" 2.PLATZ: "H2" "B$5V1$V1$" 3.PLATZ: "H3" "C$523)V1$V1$V1$V1$V1$V1$V1$"WEITER MIT +5R$5R$"+"520: Չ392055:6 BLACK JACK ===========P4==(6 60617 BYTES MEMORY ==K6 09900 BYTES PROGRAMM ==n6 00323 BYTES VARIABLES ==6 50394 BYTES FRE (0) ==