Directory of image this file is from
This file as a plain text file

770 IF C=11 THEN 830
780 IF C=12 THEN 850
790 IF C=13 THEN 870
800 IF C=14 THEN 890
810 PRINT#1: C
820 GOTO 910
830 PRINT#1: "BUBE"
840 GOTO 910
850 PRINT#1: "DAME"
860 GOTO 910
870 PRINT#1: "KOENIG"
880 GOTO 910
890 PRINT #1:"ASS"
910 PRINT#1: \IF C>A THEN 930
920 GOTO 970
930 IF C>=B THEN 970
950 PRINT #1:PNT(123);"        DU GEWINNST       ";PNT(124)
955 Q=Q+M
960 GOTO 152
970 PRINT#1: "             SORRY, DU VERLIERST"
980 IF M>Q THEN 1010
990 Q=Q-M  \   GOTO 152
1000 PRINT #1:PNT(102)
1010 PRINT#1: "SORRY FREUND , ABER DEIN GELDBUENDEL IST VERBRAUCHT"
1020 PRINT #1:"MACHST DU WEITER ? (JA ODER NEIN)"
1021 CLOSE #1 \FILE#2:"TV:" \INPUT#2: A$ \CLOSE #2  \FILEV#1:"TV:"
1030 IF A$="JA" THEN 110
1032 IF A$ = "J" THEN 110 \IF A$ = "Y" THEN 110
1040 PRINT#1:\PRINT #1:"O.K. ICH HOFFE DU VERSTEHST SPASS"
1041 CLOSE #1 \FILE#2:"TV:" \INPUT #2: A$ \CLOSE #2 \FILEV#1:"TV:"
1042 PRINT#1:PNT(102);
1043 CLOSE #1
1050 END