\PRINTC$(9)\I(Z)=39\GOSUB 2000
4419 RETURN
4420 PRINTC$(10)\I(Z)=11\GOSUB 2000
4421 RETURN
30000 C=0\D=0
30002 FOR I=1 TO 39
30004 IF L(I)<>1 THEN 30006\C=C+1\A$(C)=G$(I)
30006 IF L(I)<>2 THEN 30007\D=D+1\B$(D)=G$(I)
30007 NEXT I\PRINT \PRINT
30008 PRINT N$(1);" OWNED THE FOLLOWING PROPERTY"
30009 FOR I=1 TO C\PRINTA$(I)\NEXT I
30010 PRINT "AND HAD";M(1);"DOLLARS AT THE END OF THE GAME"
30011 PRINT N$(2);" OWNED THE FOLLOWING PROPERTY"
30012 FOR I=1 TO D\PRINT B$(I)\NEXT I
30013 PRINT "AND HAD";M(2);"DOLLARS AT THE END OF THE GAME"
30020 END
5 FILEV#1:"TV:"
10 REM *** GAME OF ACEY-DUCEY WRITTEN BY BILL PALMBY
20 REM *** ADLAI STEVENSON HIGH SCHOOL. PRAIRE VIEW, ILL
30 REM *** TRANSLATED TO RSTS/E BY DAVE AHL, DIGITAL
40 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER...DEC
100 RANDOMIZE
101 PRINT #1:"ACEY-DUCEY WIRD IN FOLGENDER ART GESPIELT :"
102 PRINT #1:"DER SPIELER (COMPUTER) GIBT ZWEI KARTEN, GESICHT OBEN."
103 PRINT #1:"DU HAST DIE MOEGLICHKEIT  ZU WETTEN  ODER NICHT ZU WETTEN"
104 PRINT #1:"OB DIE WERTIGKEIT DER NAECHSTEN GESPIELTEN KARTE "
105 PRINT #1:"ZWISCHEN DEN AUSGESPIELTEN ZWEI KARTEN LIEGT."
106 PRINT #1:
107 PRINT #1:"DRUECKE 'XMIT'" \CLOSE #1 \FILE#2:"TV:" \INPUT #2:A$
108 CLOSE #2 \FILEV#1:"TV:"
110 PRINT #1:
150 N=100\Q=100
151 GOTO 165
152 PRINT#1: \  PRINT#1: "    ***  NEUES KAPITAL: ";Q;" D-MARK   ***"
153 PRINT#1:"(XMIT)"
163 CLOSE #1 \FILE#2:"TV:" \INPUT #2: A$ \CLOSE #2 \FILEV#1:"TV:"
164 IF Q=0 THEN 1000
165 PRINT#1:PNT(102);
190 PRINT #1:"DU HAST NUN ";Q;"D-MARK."
195 PRINT #1:
260 PRINT#1: "HIER SIND DEINE NAECHSTEN ZWEI KARTEN..."
270 A=INT(14*RND(0))+2
280 IF A<2 THEN 270
290 IF A>14 THEN 270
300 B=INT(14*RND(0))+2
310 IF B<2 THEN 300
320 IF B>14 THEN 300
330 IF A>=B THEN 270
350 IF A<11 THEN 400
360 IF A=11 THEN 420
370 IF A=12 THEN 440
380 IF A=13 THEN 460
390 IF A=14 THEN 480
400 PRINT #1:A
410 GOTO 500
420 PRINT#1: "BUBE"
430 GOTO 500
440 PRINT#1: "DAME"
450 GOTO 500
460 PRINT#1: "KOENIG"
470 GOTO 500
480 PRINT#1: "ASS"
500 IF B<11 THEN 550
510 IF B=11 THEN 570
520 IF B=12 THEN 590
530 IF B=13 THEN 610
540 IF B=14 THEN 630
550 PRINT#1: B
560 GOTO 650
570 PRINT#1: "BUBE"
580 GOTO 650
590 PRINT#1: "DAME"
600 GOTO 650
610 PRINT#1: "KOENIG"
620 GOTO 650
630 PRINT#1: "ASS"
650 PRINT#1:
660 PRINT#1: "WAS IST DEINE WETTE ?   ";
661 CLOSE #1 \FILE#2: "TV:"
665 INPUT#2: M  \CLOSE #2  \FILEV#1:"TV:"
666 PRINT #1: \PRINT#1:
670 IF M<>0 THEN 680
675 PRINT#1:PNT(102)
676 PRINT#1: "HUEHNCHEN!!"\PRINT #1:
677 GOTO 260
680 IF Q=0 THEN 1000
685 IF M <= Q THEN 730
690 PRINT#1: "SORRY, MEIN FREUND, ABER DEINE WETTE IST ZU HOCH"
700 PRINT#1: "DU HAST EINZIG";Q;"D-MARK ZUM WETTEN."
710 GOTO 650
730 PRINT #1: "GESPIELT:";
732 C=INT(14*RND(0))+2
740 IF C<2 THEN 730
750 IF C>14 THEN 730
760 IF C<11 THEN 810