1 CODE=7*4096:VARS=5*4096+6*256:GR=PEEK(CODE+3)+PEEK(CODE+4)*256
3 ACTG=8*4096+15*256+254:SYSCODE,24,1:SYSCODE,3
45 PRINT"[209]UADRATMETER[160][160][160]":PRINT"[214][203]-[208]REIS/QM[160][160][160][160]"
47 PRINT"[214][203]-[208]REIS[160]GESAMT"
48 PRINT"[209][205][160][160][160][160][160][160][160][160]"
49 PRINT"[196][205][160][160][160][160][160][160][160][160]"
50 PRINT"[196][205][160][160][160][160][160][160][160][160]"
51 PRINT"[214]ERKAUFEN[160]"
52 SYSCODE,6,5:GOSUB600:SYSCODE,6,5:X=PEEK(VARS+7+5+((PEEK(VARS+1)-1)*67))AND128
62 K=(PEEK(VARS+7+2+((PEEK(VARS+1)-1)*67))*1)
63 K=K+(PEEK(VARS+7+3+((PEEK(VARS+1)-1)*67))*256)
64 K=K+(PEEK(VARS+7+4+((PEEK(VARS+1)-1)*67))*65536)
65 K=K+((PEEK(VARS+7+5+((PEEK(VARS+1)-1)*67))AND127)*16777216):IFX=128THENK=-K
68 GOSUB4000:POKE2,0
80 CL=PEEK(2):IFCL=0THEN80
90 POKE2,0:IFCL=99THEN 10000
110 IFCL=3THEN200
120 GOTO80
200 W=GR+(PEEK(VARS+2)-1)*31*6+PEEK(ACTG)*31:X=PEEK(W+2)AND240:IFX=0THENGOTO500
230 IFX=PEEK(VARS+1)*16THEN400
240 GOTO80
400 POKEW+2,0:K=K+PREIS:IV=IV-PREIS:GOTO1000
500 POKE(W+2),PEEK(W+2)ORPEEK(VARS+1)*16:POKEW+2,PEEK(W+2)OR1
530 K=K-PREIS:IV=IV+PREIS:GOTO1000
600 W=GR+(PEEK(VARS+2)-1)*31*6+PEEK(ACTG)*31:X=PEEK(W+5):GOSUB680:X=X*10:PREIS=QM*X
640 PRINT"[144][209][205]";QM
650 PRINT"[144][196][205]";X
660 PRINT"[144][196][205]";PREIS:RETURN
680 Z=(PEEK(W+3)AND240)/16:IFZ=1THENQM=250:RETURN
682 IFZ=2THENQM=500:RETURN
683 IFZ=3THENQM=500:RETURN
684 IFZ=4THENQM=750:RETURN
685 IFZ=5THENQM=750:RETURN
686 IFZ=6THENQM=1000:RETURN
687 IFZ=7THENQM=1250:RETURN
688 IFZ=8THENQM=1250:RETURN
690 PRINT"[147] ERROR !":SYSCODE,17:END
1000 Z=0:IFK<0THENK=K-K-K:Z=1
1001 B=(VARS+7+2+((PEEK(VARS+1)-1)*67)):POKEB+3,INT(K/16777216)AND127
1003 K=K-(INT(K/16777216)*16777216):POKEB+2,INT(K/65536):K=K-(INT(K/65536)*65536)
1006 POKEB+1,INT(K/256):K=K-(INT(K/256)*256):POKEB+0,K:POKEB+3,PEEK(B+3)ORZ*128
1010 SYSCODE,24,2:GOSUB5000:GOTO 10000
4000 REM
4001 B=VARS+1643+((PEEK(VARS+1)-1)*8):X=PEEK(B+3)AND128:IV=PEEK(B+0)
4004 IV=IV+(PEEK(B+1)*256):IV=IV+(PEEK(B+2)*65536)
4006 IV=IV+((PEEK(B+3)AND127)*16777216):IFX=128THENIV=-IV
4010 RETURN
5000 B=VARS+1643+((PEEK(VARS+1)-1)*8):X=0:IFIV<0THENIV=IV-IV-IV:X=128
5030 POKE(B+3),INT(IV/16777216):IV=IV-(INT(IV/16777216)*16777216)
5050 POKE(B+2),INT(IV/65536):IV=IV-(INT(IV/65536)*65536):POKE(B+1),INT(IV/256)
5080 IV=IV-(INT(IV/256)*256):POKE(B+0),IV:POKE(B+3),PEEK(B+3)ORX:RETURN
10000 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z):SYS CODE,1,A$,8