coingame P R 5"Gespielt wird jeweils mit 10 Cents (1 Dime)"  100d < ge=0 = anz=0 > v=0 A F24;"Spiel Nr" K#7,9 ;" " L#8,9 ;" " M10 ,14;" " N$12 ,9 ;" " P#9 ,9 ;" " Q(11 ,9 ;" " S$13 ,9 ;" " d 2000 s 1200 v0100d 4,0;"Reserve $" = v=v-1 @ 3000  g=0 anz=anz+1 5,25;anz  1000 a=ca=bg=c d=cd=eg=c &d=cd=bg=c 0a=ca=eg=c :c>9 (a=ba=e)g=a Dc>9 (d=bd=e)g=a N$c>9 a=ba=da=eg=5*a Wa=ba=ca=da=eg=10 *c  1100L v=v+g g=0800  %15,9 ;"" %16,9 ;"Sie bekommen " %17,9 ;"" =16,22;(g/10 );".";(g-(g/10 ));"0 "  3000 4-21,0;"Druecken Sie eine Taste" > 0 Wv04000 \621,0;" "  110n a=(*9 )+1 b=(*9 )+1 c=(*9 )+1 d=(*9 )+1 e=(*9 )+1 $ MKn=15:8,10 ;10 *((*10 )):5:n V8,10 ;10 *a Wl21,0;"Druecken Sie eine Taste":0:21,0;" " XKn=15:8,20;10 *((*10 )):5:n Y8,20;10 *b Zl21,0;"Druecken Sie eine Taste":0:21,0;" " `Ln=15:12 ,10 ;10 *((*10 )):5:n j12 ,10 ;10 *d kl21,0;"Druecken Sie eine Taste":0:21,0;" " lLn=15:12 ,20;10 *((*10 )):5:n m12 ,20;10 *e nl21,0;"Druecken Sie eine Taste":0:21,0;" " ~c>9 1169 Ln=15:10 ,15;10 *((*10 )):5:n 10 ,15;10 *c  Ln=15:10 ,15;10 *((*10 )):5:n 10 ,15;"**"  /8,10 ;" ";8,20;" " 10 ,15;" " 112 ,10 ;" ";12 ,20;" " &15,9 ;" " &16,9 ;" " &17,9 ;" "  4,11 ;" "   221,0;"Wieviele Dimes Startkapital?" v v02010 621,0;" "  ge=ge+v ged=(ge/10 ) gec=(ge-10 *ged) !3,0;"Startkap. $ "  $3,12 ;ged;".";gec;"0 " 4 vd=(v/10 ) vc=(v-10 *vd) "4,12 ;vd;".";vc;"0 "   #,,,,10 ;"GAME OVER" !,,6;"NEUES SPIEL (J/N)?" a$ #a$(1)="j"a$(1)="J" '  'A23637U\+256*23628L\-23755\;" Bytes used": 'W23730\+256*23731\-23653e\-256*23654f\;" Bytes Free" n veega bcdeAn