Directory of image this file is from
This file as a plain text file
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