File SPIEL8.BA (BASIC source file)

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

10 DIM S(10),A(10),E(10),L$(10,70),M$(10,70),N$(10,70),O$(10,70)
11 DIM S$(70)
12 LET L$(1)="DEUTSCHE BANK"
14 LET M$(1)="SIEMENS AG"
15 LET N$(1)="BRITISH PETROLEUM COMPANY"
17 LET O$(1)="DIGITAL EQUIPMENT CORPERATION"
20 LET K=1000\ V=0
30 FOR I=1 TO 4
40 LET S(I)=100\ A(I)=0
50 NEXT I
60 PRINT "IHR KONTOSTAND";K
61 PRINT "AKTIENBESITZ:     ";\INPUT S$\IF S$<>"J" THEN62\GOSUB 1700
62 IF K<=0 THEN 1300
65 PRINT "TRANSAKTION:     ";
70 INPUT S$
80 IF S$<>"KAUFEN" THEN 90\GOTO 110
90 IF S$<>"VERKAUFEN" THEN 95\GOTO 300
95 IF S$<>"ENDE" THEN 100\GOTO 1500
100 IF S$<>"KEINE" THEN 105\GOTO 800
105 PRINT "UNBEKANNTE EINGABE"\GOTO 65
110 PRINT "WELCHEN KONZERN MOECHTEN SIE     ";
120 INPUT T$
130 IF T$<>"DB" THEN 140\PRINT L$(1)\ LET I=1
135 GOTO 180
140 IF T$<>"SI" THEN 150\PRINT M$(1)\LET I=2\GOTO 180
150 IF T$<>"BP" THEN 160\PRINT N$(1)\LET I=3\GOTO 180
160 IF T$<>"DEC" THEN 170\PRINT O$(1)\LET I=4\GOTO 180
170 PRINT "DIESE KONZERNABKUERZUNG IST MIR UNBEKANNT"\GOTO 110
180 PRINT\PRINT\PRINT\PRINT
185 PRINT "FUER WIEVIEL MARK WOLLEN SIE AKTIEN KAUFEN     ";
190 INPUT V
200 IF V<=K THEN 220
210 PRINT "SIE HABEN NUR NOCH ";K;"MARK" \ GOTO 185
220 LET Y=INT(V/S(I))
230 K=K-V\A(I)=A(I)+Y
240 PRINT "SIE HABEN";Y;" AKTIEN GEKAUFT"
245 PRINT\PRINT\PRINT
250 GOTO 810
300 PRINT "WELCHEN KONZERN MOECHTEN SIE     ";
310 INPUT T$
320 IF T$<>"DB" THEN 330\PRINT L$(1)\I=1\GOTO 500
330 IF T$<>"SI" THEN 340\PRINT M$(1)\I=2\GOTO 500
340 IF T$<>"BP" THEN 350\PRINT N$(1)\I=3\GOTO 500
350 IF T$<>"DEC"THEN 360\PRINT O$(1)\I=4\GOTO 500
360 PRINT "DIESE KONZERNABKUERZUNG IST MIR UNBEKANNT!"\PRINT\GOTO 300
500 IF A(I)>0 THEN 520
510 PRINT "SIE BESITZEN KEINE AKTIEN VON ";T$\GOTO 60
520 PRINT "WIEVIELE AKTIEN VON ";T$;" WOLLEN SIE VERKAUFEN     ";
530 INPUT X
540 IF X<=A(I) THEN 560
550 PRINT "SIE HABEN NUR ";A(I);"AKTIEN VON ";T$\GOTO 520
560 LET U=INT(S(I)*X)\K=K+U\A(I)=A(I)-X
570 PRINT "SIE HABEN ";X;" AKTIEN IM WERT VON ";U;"MARK VERKAUFT"
580 GOTO 810
800 PRINT "KEINE TRANSAKTION"
810 PRINT TAB(23);"KURSSTAND:"
820 PRINT "DB","SIEMENS","BP","DEC"
830 PRINT S(1),S(2),S(3),S(4)
840 RANDOMIZE
850 FOR J=1 TO 2
860 LET E(J)=INT(1+4*RND(J))
870 NEXT J
880 RANDOMIZE
890 LET F=INT(1+4*RND(1))
895 LET E1=E(1)\E2=E(2)
897 IF E1=E2 THEN 840
900 IF F=1 THEN 920\IF F=2 THEN 950
910 IF F=3 THEN 970\IF F=4 THEN 990
920 LET S(E1)=S(E1)*2
930 S(E2)=S(E2)/2
935 LET S(E1)=INT(S(E1))\S(E2)=INT(S(E2))
940 GOTO 1200
950 LET S(E1)=INT(S(E1)+100)\ S(E2)=INT(S(E2)-100)
960 GOTO 1200
970 LET S(E1)=INT(S(E1)+60)\ S(E2)=INT(S(E2)-60)
980 GOTO 1200
990 LET S(E1)=INT(S(E1)+40)\ S(E2)=INT(S(E2)-40)
1200 PRINT \PRINT\PRINT\PRINT TAB(23);"KURSSTAND:"
1210 PRINT "DB","SIEMENS","BP","DEC"
1220 PRINT S(1),S(2),S(3),S(4)
1230 GOTO 60
1300 FOR H=1 TO 4\IF A(H)>0 THEN 65
1310 NEXT H\PRINT\PRINT\PRINT
1320 PRINT "SIE BESITZEN WEDER AKTIEN NOCH GELD"\PRINT\PRINT\PRINT
1500 PRINT "WOLLEN SIE NOCHEINMAL VERSUCHEN(JA ODER NEIN)   ";
1510 INPUT A$
1520 IF A$="JA" THEN 10
1530 IF A$="NEIN" THEN 2000
1540 PRINT "WAS SOLL DAS BEDEUTEN?"
1560 GOTO 1500
1570 GOTO 2000
1700 REM SUBROUTINE AKTIENBESITZ
1710 PRINT "SIE BESITZEN FOLGENDE AKTIEN:"
1720 PRINT "VON ";L$(1);A(1);" AKTIEN IM WERT VON ";A(1)*S(1);" MARK"
1730 PRINT
1740 PRINT "VON ";M$(1);A(2);" AKTIEN IM WERT VON ";A(2)*S(2);"MARK"
1750 PRINT
1760 PRINT "VON ";N$(1);A(3);" AKTIEN IM WERT VON ";A(3)*S(3);" MARK"
1770 PRINT
1780 PRINT "VON ";O$(1);A(4);" AKTIEN IM WERT VON ";A(4)*S(4);"MARK"
1790 PRINT\PRINT\PRINT\RETURN
2000 PRINT TAB(22);"CALL EXIT"\END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search