2 FILEV#1:"TV:"
4 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
5 PRINT#1: "WILLKOMMEN IM DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!"
6 PRINT#1:  \PRINT#1:"DEIN SPIELER HEUTE NACHT IST PETER P. EIGHT."
7 REM   PRINT "WATCH HIM CLOSELY.... HE HAS A REPUTATION FOR"
8 REM   PRINT "DEALING OFF THE BOTTOM OF THE DECK."\PRINT#1:
9 RANDOMIZE
10 DIM A(13) \DIM L$(20)
20 REM   PRINT "FRAGEN DIE EIN JA ODER NEIN ERFORDERN,"
25 PRINT#1:"ANTWORTE  MIT 'J' FUER JA, 'N' FUER NEIN."\PRINT#1:
30 PRINT#1:"MINDESTEINSATZ 100 DM   .........VIEL GLUECK"
32 PRINT#1:
40 PRINT#1:"MIT WIEVIELEN DM WILLST DU STARTEN";\CLOSE#1 \FILE#2:"TV:"
41 INPUT#2:F \CLOSE#2 \FILEV#1:"TV:"
42 PRINT#1:
43 F1=F
50 PRINT#1:\PRINT#1:"WAS IST DEIN EINSATZ JETZT"; \CLOSE#1 \FILE#2:"TV:"
51 INPUT#2:W \CLOSE#2 \FILEV#1:"TV:" \PRINT#1:PNT(102)
52 PRINT#1:
53 IF W>F GOTO 56
54 IF W<10 GOTO 58
55 GOTO 100
56 PRINT#1:"DEINE WETTE UEBERSTEIGT DEINE KAPITAL."
57 GOTO 50
58 PRINT#1:"KLEINSTER EINSATZ DM 10."
59 GOTO 50
100 GOSUB 780
102 P1=I
104 PRINT#1:"DEINE ERSTE  KARTE IST EIN";L$  \REM  CHR$(L)
106 GOSUB 780
110 P2=I
112 PRINT#1:"DEINE ZWEITE KARTE IST EIN";L$  \REM CHR$(L)
115 GOTO 200
117 PRINT#1:\  PRINT#1:"DU HAST ";P3;" GESEHEN." \PRINT#1:
119 GOSUB 760
120 P3=P3+I
122 PRINT#1:"DU BEKOMMST EIN";L$ \REM  CHR$(L)
123 IF P3>21 GOTO 820
124 GOTO 117
200 GOSUB 780
201 P3=P1+P2
202 D1=I
204 GOSUB 780
206 D2=I
208 PRINT#1: \ PRINT#1: "SPIELER ZIEHT EIN";L$  \REM CHR$(L)
210 GOTO 117
212 D3=D1+D2
214 PRINT#1:"SPIELER HAT ";D3
216 IF D3>16 GOTO 222
217 GOSUB 780
218 PRINT#1:"SPIELER GIBT EIN";L$ \REM  CHR$(L)
219 D3=D3+I
220 GOTO 214
222 IF D3<22 GOTO 800
224 PRINT#1:"SPIELER BANKROTT."
226 GOTO 802
760 PRINT#1:"NOCH EINE KARTE ?"; \CLOSE#1 \FILE#2:"TV:"
762 INPUT#2: K$ \CLOSE#2 \FILEV#1:"TV:"
764 PRINT#1:
766 IF K$="N" GOTO 212
768 GOSUB 780
770 RETURN
780 I=INT(13*RND(0)+1)
782 A(I)=A(I)+1
784 IF A(I)>4 GOTO 780
786 GOSUB 900
788 RETURN
800 IF D3>=P3 GOTO 820
802 F=F+W
806 PRINT#1:"DU GEWINNST. DU HAST NUN DM ";F
808 GOTO 980
820 F=F-W
822 PRINT#1:"DU VERLIERST. DU HAST NOCH DM ";F
824 GOTO 980
900 IF I<>1 GOTO 910
904 I=11
906 L=1
908 GOTO 942
910 IF I<>13 GOTO 920
912 I=10
914 L=11
916 GOTO 942
920 IF I<>12 GOTO 930
922 I=10
924 L=17
926 GOTO 942
930 IF I<>11 GOTO 937
932 I=10
934 L=10
936 GOTO 942
937 IF I<>10 GOTO 940
938 L=20
939 GOTO 944
940 L=I+48
942 IF L < 27 THEN 944
943 L$ = "E  "&CHR$(L) \GOTO 960
944 IF L = 10 THEN 945 \GOTO 946
945 L$ = "EN  JUNGEN" \GOTO 960
946 IF L = 17 THEN 947 \GOTO 948
947 L$ = "E   DAME" \GOTO 960
948 IF L = 11 THEN 949 \GOTO 950
949 L$ = "EN   KOENIG" \GOTO 960
950 L$ = "  ASS"
960 RETURN
980 PRINT#1:"MOECHTEST DU WEITER SPPIELEN ?"; \CLOSE#1 \FILE#2:"TV:"
982 INPUT#2:K$  \CLOSE#2 \FILEV#1:"TV:"
984 PRINT#1: \PRINT#1:
986 IF K$="J" GOTO 50
987 PRINT#1:\PRINT#1:\PRINT#1: \IF F>F1 THEN 995
988 PRINT#1:PNT(102)\ PRINT#1:"NICHT VERZWEIFELN! DU HAST";F1-F;"D-MARK"
989 PRINT#1:"AN DAS EDUSYSTEM CASINO VERLOREN"
990 GOTO 998
995 PRINT#1:"NICHT SCHLECHT! DU HAST";F-F1;"D-MARK"
996 PRINT#1:"IM EDUSYSTEM CASINO GEWONNEN"
998 PRINT#1:\PRINT#1:"HOFFE ES HAT DIR GEFALLEN.  DANKE FUER DAS SPIEL."
999 CLOSE#1 \ FILE#2:"TV:" \INPUT#2:X \CLOSE#2 \END