0 CO=7*4096:VA=5*4096+6*256:AB=VA+1627
10 DIMP$(5),A(5,5),AU(5),V(5),VZ(5):GOSUB10000:PRINT"[144]"
55 PRINTTAB(7);"[195]OMPUTERB*RSE[160][200]AUPTMENU":PRINTTAB(7);"[215]ELCHE[160][194]*RSENGESCH@FTE"
70 PRINTTAB(7);"M*CHTEN[160][211]IE[160][212]@TIGEN[160]?":PRINTTAB(8);"[193]KTIEN[160]VERKAUFEN"
80 PRINTTAB(8);"[193]KTIEN[160]KAUFEN[160][160][160]":PRINTTAB(8);"[193]KTIEN[160]^BERSICHT":SYSCO,6,5
100 GOSUB40000:IFA=99THENGOTO47000
150 ONAGOTO1000,4000,8000
1000 REM
1005 MP=1:GOSUB50000:SYSCO,3:PRINT"[144]":PRINTTAB(6);"[193]KTIEN[160]VERKAUFEN"
1030 PRINTTAB(6);"[211]IE[160]HABEN[160]FOLGENDE[160]AKTIEN[160]:":GOSUB32000:GOSUB30000:GOSUB40000
1090 IFA=99THEN45000
1105 B=A:UU=0:MP=2:GOSUB50000:SYSCO,3:PRINT"[144]":PRINTTAB(6);"[193]KTIEN[160]VERKAUFEN"
1140 PRINTTAB(6);"[215]IVIELE[160][208]ROZENTPUNKTE":PRINTTAB(6);"M*CHTEN[160][211]IE[160]VERKAUFEN"
1151 PRINTTAB(6);"[144][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":POKE1024+13*40+15,29
1153 POKE1024+13*40+24,27:PRINTTAB(6);"[199]ESAMTSUMME[160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160]"
1155 PRINTTAB(15);"[214]ERKAUFEN[160]":SYSCO,6,6:SYSCO,3:GOSUB34000:GOSUB36000
1165 PRINT"";TAB(17);UU;"[157][160]":PRINTTAB(21);"[145]%":PRINTTAB(20);"[160][160][160][160][160][160][160][160][160][160][160][196][205][145]"
1172 PRINTTAB(20);UU*VZ(B);"[157][160]":SYSCO,6,6:GOSUB40000:IFA=1THENGOSUB1500
1190 IFA=2THENGOSUB1600
1200 IFA=3THEN1700
1210 IFA=99THEN45000
1220 GOTO1165
1500 UU=UU+1:IFUU>AU(B)THENUU=AU(B)
1530 RETURN
1600 UU=UU-1:IFUU<0THENUU=0
1620 RETURN
1700 A(AP,B)=A(AP,B)-UU:V(AP)=V(AP)+(UU*VZ(B)):KO=KO+(UU*VZ(B)):GOTO45000
4000 REM
4005 MP=1:GOSUB50000:SYSCO,3:PRINT"[144]":PRINTTAB(6);"[193]KTIEN[160]KAUFEN"
4030 PRINTTAB(6);"[193]NGEBOTENE[160][193]KTIEN:":GOSUB33000:GOSUB30000:GOSUB40000:IFA=99THEN45000
4105 B=A:UU=0:MP=4:GOSUB50000:SYSCO,3:PRINT"[144]":PRINTTAB(6);"[193]KTIEN[160]KAUFEN"
4140 PRINTTAB(6);"[215]IVIELE[160][208]ROZENTPUNKTE":PRINTTAB(6);"M*CHTEN[160][211]IE[160]KAUFEN"
4151 PRINTTAB(6);"[144][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":POKE1024+13*40+15,29
4153 POKE1024+13*40+24,27:PRINTTAB(6);"[199]ESAMTSUMME[160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160]"
4155 PRINTTAB(17);"KAUFEN":SYSCO,6,6:SYSCO,3:GOSUB33000:AU(1)=AU(B):GOSUB36000
4165 PRINT"";TAB(17);UU;"[157][160]":PRINTTAB(21);"[145]%":PRINTTAB(20);"[160][160][160][160][160][160][160][160][160][160][160][196][205][145]"
4172 PRINTTAB(20);UU*VZ(B);"[157][160]":SYSCO,6,6:GOSUB40000:IFA=1THENGOSUB1500
4190 IFA=2THENGOSUB1600
4200 IFA=3THEN4700
4210 IFA=99THEN45000
4220 GOTO4165
4700 A(AP,B)=A(AP,B)+UU:V(AP)=V(AP)-(UU*VZ(B)):KO=KO-(UU*VZ(B)):GOTO45000
8000 REM
8005 MP=5:GOSUB50000:SYSCO,3:PRINT"[144]";:PRINTTAB(6);"[193]KTIEN[160][255]BERSICHT"
8030 PRINTTAB(6);"[194]ESITZT[160]FOLGENDE[160][193]KTIEN :":PRINTTAB(32);"[215]EITER"
8032 AD=AP:AP=0:SYSCO,6,5:GOSUB56000
8035 AP=AP+1:IFAP=5THENAP=1
8036 PRINT"[144]";:PRINTTAB(6);"[160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157]";:SYS CO,6,5
8037 PRINTP$(AP)
8038 GOSUB32000:GOSUB31000:GOSUB55000
8050 GOSUB40000:IFA=1THENGOTO8035
8080 IFA=99THENAP=AD:GOTO45000
10000 REM
10007 NB=PEEK(CO+5)+PEEK(CO+6)*256:FORI=0TO9:A=PEEK(NB+0+I):GOSUB60000:P$(1)=P$(1)+CHR$(A)
10020 A=PEEK(NB+11+I):GOSUB60000:P$(2)=P$(2)+CHR$(A)
10030 A=PEEK(NB+22+I):GOSUB60000:P$(3)=P$(3)+CHR$(A)
10040 A=PEEK(NB+33+I):GOSUB60000:P$(4)=P$(4)+CHR$(A):NEXTI:FORI=1TO4:FORZ=1TO4
10080 A(I,Z)=PEEK(AB-1+Z+(I-1)*4):NEXTZ,I:AP=PEEK(VA+1):FORI=0TO3
10105 DU=PEEK(AB+23+I*8)AND128:D=PEEK(AB+20+I*8):D=D+PEEK(AB+21+I*8)*256
10130 D=D+PEEK(AB+22+I*8)*65536:D=D+(PEEK(AB+23+I*8)AND127)*16777216:IFDU=128THEND=-D
10150 V(I+1)=D:VZ(I+1)=INT(D/100):NEXTI:KB=VA+7+(AP-1)*67+2:DU=PEEK(KB+3)AND128
10180 D=PEEK(KB):D=D+PEEK(KB+1)*256:D=D+PEEK(KB+2)*65536
10183 D=D+(PEEK(KB+3)AND127)*16777216:IFDU=128THEND=-D
10199 KO=D:RETURN
20000 REM
20060 FORI=1TO4:FORZ=1TO4:POKE(AB-1+Z+(I-1)*4),A(I,Z):NEXTZ,I:FORI=0TO3
20110 D1=INT(V(I+1)/16777216):D2=INT((V(I+1)-D1*16777216)/65536)
20130 D3=INT((V(I+1)-D1*16777216-D2*65536)/256)
20140 D4=INT(V(I+1)-D1*16777216-D2*65536-D3*256):IFV(I+1)<0THEND1=D1+128
20150 POKE(AB+23+I*8),D1:POKE(AB+22+I*8),D2:POKE(AB+21+I*8),D3:POKE(AB+20+I*8),D4
20190 NEXTI:KB=VA+7+(AP-1)*67+2:D1=INT(KO/16777216)
20210 D2=INT((KO-D1*16777216)/65536):D3=INT((KO-D1*16777216-D2*65536)/256)
20230 D4=KO-D1*16777216-D2*65536-D3*256:IFKO<0THEND1=D1+128
20250 POKEKB,D4:POKEKB+1,D3:POKEKB+2,D2:POKEKB+3,D1:RETURN
30000 REM
30005 PRINT"":FORI=0TO3:PRINTTAB(6);"[144][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
30010 NEXTI:SYSCO,6,5:PRINT"":FORI=1TO4:PRINTTAB(6);"";AU(I)
30040 PRINTTAB(10);"[145]%[160]";P$(I);"[160]1%[160][160][160][160][160][160][160][196][205]":PRINTTAB(25);"[145]";VZ(I):NEXTI:SYSCO,6,5:RETURN
31000 REM
31005 PRINT"":FORI=0TO3:PRINTTAB(6);"[144][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":NEXTI:SYSCO,6,5
31020 PRINT"":FORI=1TO4:PRINTTAB(6);AU(I):PRINTTAB(10);"[145]%[160]";P$(I);"[160]1%[160][160][160] [160][160][160][196][205]"
31050 PRINTTAB(25);"[145]";VZ(I):NEXTI:SYSCO,6,5:RETURN
32000 REM
32010 FORI=1TO4:AU(I)=A(AP,I):NEXTI:RETURN
33000 REM
33005 AU(1)=100:AU(2)=AU(1):AU(3)=AU(1):AU(4)=AU(1):FORI=1TO4:FORZ=1TO4
33030 AU(I)=AU(I)-A(Z,I):NEXTZ,I:RETURN
34000 REM
34010 AU(B)=A(AP,B):RETURN
36000 REM
36010 PRINT"[144]":PRINTTAB(6);AU(B):PRINTTAB(10);"[145]%[160]";P$(B);"[160]1%[160][160][160][160][160][160][160][196][205]"
36040 PRINTTAB(25);"[145]";VZ(B):SYSCO,6,6:RETURN
40000 REM
40010 POKE2,0
40020 A=PEEK(2):IFA=0THEN40020
40030 RETURN
45000 REM
45030 GOSUB20000:SYSCO,9:SYSCO,20,0:SYSCO,10:RUN
47000 REM
47030 GOSUB20000:SYSCO,25,1:SYSCO,1,"L.PORTAL",8
50000 REM
50010 SYSCO,9:SYSCO,20,MP:SYSCO,10:RETURN
55000 REM
55010 SYSCO,3:B1$=" [145][157]":B2$="[144] [145][157]":RESTORE:FORI=1TO4:READDU
55031 PRINT"";TAB(2+I*6);:PRINTCHR$(DU);:DU=INT(AU(I)/10)
55037 IFDU=0THENPRINT"[144][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160]":GOTO55080
55040 FORZ=0TO9:IFZ<DUTHENPRINTB1$;
55060 IFZ=>DUTHENPRINTB2$;
55070 NEXTZ
55080 NEXTI:RETURN
56000 REM
56010 SYSCO,3:B$="[144][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160]":FORI=1TO4
56040 PRINT"";TAB(2+I*6);B$:NEXTI:SYSCO,6,6:RETURN
60000 REM
60010 IFA>=0ANDA=<31THENA=A+64:RETURN
60020 IFA>=64ANDA<=95THENA=A+128:RETURN
60030 IFA=96THENA=160
60040 RETURN:DATA 31,30,152,28
63000 GOSUB 32000:GOSUB31000:GOSUB55000
63010 RETURN