10 CODE=7*4096:VARS=5*4096+6*256
11 I=0:INFO=0:AC=PEEK(36862)-1:GR=PEEK(CODE+3)+PEEK(CODE+4)*256:GOSUB1100
12 GOSUB1200:B=VARS+7+2+((PEEK(VARS+1)-1)*67):X=PEEK(B+3)AND128:K=PEEK(B+0)
15 K=K+(PEEK(B+1)*256):K=K+(PEEK(B+2)*65536):K=K+((PEEK(B+3)AND127)*16777216)
18 IFX=128THENK=-K
19 GOSUB54000:GOSUB10000:SYSCODE,19,3,3,4,4,I
21 SYSCODE,3:POKE1024+17*40+7,29:POKE1024+17*40+12,27
22 PRINT"[155][212]YP";I+1;"[157][160]"
23 PRINT"[201]NFO[203]AUFEN[214]ERKAUFEN"
24 SYSCODE,6,3:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3:GOTO300
45 POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:IFCL=99THENSYSCODE,1,"L.EINRICHT",8
61 IFCL=1THEN300
62 IFCL=2THEN200
63 IFCL=3THEN250
64 IFCL=4THEN400
65 IFCL=5THEN1400
66 IFCL=6THEN1500
140 GOTO50
200 IFI>=8THEN50
210 I=I+1:SYSCODE,19,3,3,4,4,I:SYSCODE,3:PRINT"[212]YP";I+1;"[157][160]"
216 SYSCODE,6,3:GOTO50
250 IFI<=0THEN50
260 I=I-1:SYSCODE,19,3,3,4,4,I:SYSCODE,3:PRINT"[212]YP";I+1;"[157][160]"
266 SYSCODE,6,3:GOTO50
300 INFO=0:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3
315 SYSCODE,4,3,24,6:SYSCODE,5,I:PRINT""TAB(24)"[203]ONTO:";K:GOSUB2900
338 PRINT""TAB(24)"[208]REIS:";P:SYSCODE,6,3:GOTO50
400 IFINFO=0THEN500
410 IFINFO=1THEN600
420 IFINFO=2THEN700
430 IFINFO=3THEN800
440 IFINFO=4THEN900
450 IFINFO=5THEN1000
460 PRINT"[147]ERROR !!!!":END
500 INFO=INFO+1:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16
503 SYSCODE,6,3:GOSUB1100:GOSUB1200:PRINT""TAB(24)"[218]UR MAXIMALEN"
511 PRINT""TAB(24)"[193]USLASTUNG":PRINT""TAB(24)"BEN*TIGEN[160][211]IE:"
513 PRINT""TAB(23)"";AX;"[215]ASCHMASCHINEN"
514 PRINT""TAB(23)"";BX;"[197]INRICHTUNGEN"
515 PRINT""TAB(23)"";CX;"[211]ANIT@RANLAGEN"
516 PRINT""TAB(23)"";DX;"[203]^CHEN"
517 PRINT""TAB(23)"";EX;"[203]^HLSCHR@NKE"
518 PRINT""TAB(24)"[211]IE[160]BESITZEN:"
519 PRINT""TAB(23)"";AY;"[215]ASCHMASCHINEN"
520 PRINT""TAB(23)"";BY;"[197]INRICHTUNGEN"
521 PRINT""TAB(23)"";CY;"[211]ANIT@RANLAGEN"
522 PRINT""TAB(23)"";DY;"[203]^CHEN"
523 PRINT""TAB(23)"";EY;"[203]^HLSCHR@NKE":SYSCODE,6,3:GOTO50
600 INFO=INFO+1:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3
610 PRINT""TAB(24)"[215]ASCHMASCHINEN:":PRINT""TAB(24)"[212]YP[160][160][193]NZAHL"
613 PRINT""TAB(24)"-----------":PRINT""TAB(24)" 1     0"
615 PRINT""TAB(24)" 2     0":PRINT""TAB(24)" 3     0"
617 PRINT""TAB(24)" 4     0":PRINT""TAB(24)" 5     0"
619 PRINT""TAB(24)" 6     0":PRINT""TAB(24)" 7     0"
621 PRINT""TAB(24)" 8     0":PRINT""TAB(24)" 9     0"
623 PRINT""TAB(24)"10     0":GOSUB1200:PRINT"";:FORL=0TOAZ
650 PRINT"";:NEXT:PRINT"";AY:SYSCODE,6,3:GOTO50
700 INFO=INFO+1:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3
710 PRINT""TAB(24)"[197]INRICHTUNGEN:":PRINT""TAB(24)"[212]YP[160][160][193]NZAHL"
713 PRINT""TAB(24)"-----------":PRINT""TAB(24)" 1     0"
715 PRINT""TAB(24)" 2     0":PRINT""TAB(24)" 3     0"
717 PRINT""TAB(24)" 4     0":PRINT""TAB(24)" 5     0"
719 PRINT""TAB(24)" 6     0":PRINT""TAB(24)" 7     0"
721 PRINT""TAB(24)" 8     0":PRINT""TAB(24)" 9     0"
730 GOSUB1200:PRINT"";:FORL=0TOBZ:PRINT"";:NEXT
760 PRINT"";BY:SYSCODE,6,3:GOTO50
800 INFO=INFO+1:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3
810 PRINT""TAB(24)"[211]ANIT@RANLAGEN:":PRINT""TAB(24)"[212]YP[160][160][193]NZAHL"
813 PRINT""TAB(24)"-----------":PRINT""TAB(24)" 1     0"
815 PRINT""TAB(24)" 2     0":PRINT""TAB(24)" 3     0"
817 PRINT""TAB(24)" 4     0":PRINT""TAB(24)" 5     0"
819 PRINT""TAB(24)" 6     0":PRINT""TAB(24)" 7     0"
830 GOSUB1200:PRINT"";:FORL=0TOCZ:PRINT"";:NEXT
860 PRINT"";CY:SYSCODE,6,3:GOTO50
900 INFO=INFO+1:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3
910 PRINT""TAB(24)"[203]^CHEN:":PRINT""TAB(24)"[212]YP[160][160][193]NZAHL"
913 PRINT""TAB(24)"-----------":PRINT""TAB(24)" 1     0"
915 PRINT""TAB(24)" 2     0":PRINT""TAB(24)" 3     0"
917 PRINT""TAB(24)" 4     0":PRINT""TAB(24)" 5     0"
919 PRINT""TAB(24)" 6     0":PRINT""TAB(24)" 7     0"
921 PRINT""TAB(24)" 8     0":PRINT""TAB(24)" 9     0"
923 PRINT""TAB(24)"10     0":GOSUB1200:PRINT"";:FORL=0TODZ
950 PRINT"";:NEXT:PRINT"";DY:SYSCODE,6,3:GOTO50
1000 INFO=0:SYSCODE,3:SYSCODE,4,3,24,3:SYSCODE,7,96,16,16:SYSCODE,6,3
1010 PRINT""TAB(24)"[203]^HLSCHR@NKE:":PRINT""TAB(24)"[212]YP[160][160][193]NZAHL"
1013 PRINT""TAB(24)"-----------":PRINT""TAB(24)" 1     0"
1015 PRINT""TAB(24)" 2     0":PRINT""TAB(24)" 3     0"
1017 PRINT""TAB(24)" 4     0":PRINT""TAB(24)" 5     0"
1019 PRINT""TAB(24)" 6     0":PRINT""TAB(24)" 7     0"
1021 PRINT""TAB(24)" 8     0":PRINT""TAB(24)" 9     0"
1023 PRINT""TAB(24)"10     0":GOSUB1200:PRINT"";:FORL=0TOEZ
1050 PRINT"";:NEXT:PRINT"";EY:SYSCODE,6,3:GOTO50
1100 REM
1110 RT=PEEK(VARS+7+1+(PEEK(VARS+1)-1)*67):RB=VARS+7+67*4+6+RT*16:AX=PEEK(RB+0)
1150 BX=PEEK(RB+1):CX=PEEK(RB+2):DX=PEEK(RB+3):EX=PEEK(RB+4):GOTO10000
1200 REM
1210 W=GR+7+AC*31+(PEEK(VARS+2)-1)*31*6:AY=PEEK(W+5):BY=PEEK(W+6):CY=PEEK(W+7)
1250 DY=PEEK(W+8):EY=PEEK(W+9):AZ=PEEK(W+0):BZ=PEEK(W+1):CZ=PEEK(W+2):DZ=PEEK(W+3)
1310 EZ=PEEK(W+4):RETURN
1400 GOSUB2900:GOSUB1200:IFBY=BXTHENGOTO3000
1410 POKE(W+1),I:POKE(W+6),BX:K=K-(P*BX):IV=IV+(P*BX):GOSUB2000:INFO=0:GOTO400
1500 GOSUB2900:GOSUB1200:IFBY=0THENGOTO50
1506 IFBZ<>ITHENGOTO3100
1510 POKE(W+1),0:POKE(W+6),0:K=K+(P*BX):IV=IV-(P*BX):GOSUB2000:INFO=0:GOTO400
2000 QK=K:B=VARS+7+2+((PEEK(VARS+1)-1)*67):X=0:IFK<0THENK=K-K-K:X=128
2030 POKE(B+3),INT(K/16777216):K=K-(INT(K/16777216)*16777216):POKE(B+2),INT(K/65536)
2060 K=K-(INT(K/65536)*65536):POKE(B+1),INT(K/256):K=K-(INT(K/256)*256):POKE(B+0),K
2100 POKE(B+3),PEEK(B+3)ORX:K=QK:GOTO 55000
2900 IFI=0THENP=300
2901 IFI=1THENP=600
2902 IFI=2THENP=900
2903 IFI=3THENP=500
2904 IFI=4THENP=250
2905 IFI=5THENP=620
2906 IFI=6THENP=800
2907 IFI=7THENP=1250
2908 IFI=8THENP=330
2909 IFI=9THENP=0
2910 RETURN
3000 GOTO50
3100 GOTO50
10000 W=GR+AC*31+(PEEK(VARS+2)-1)*31*6:YY=PEEK(W+3)AND15:AX=AX*YY:BX=BX*YY
10040 CX=CX*YY:DX=DX*YY:EX=EX*YY:RETURN
54000 B=VARS+1643+((PEEK(VARS+1)-1)*8)
54002 X=PEEK(B+3) AND 128
54003 IV=PEEK(B+0)
54004 IV=IV+(PEEK(B+1)*256)
54005 IV=IV+(PEEK(B+2)*65536)
54006 IV=IV+((PEEK(B+3) AND 127)*16777216)
54007 IF X=128 THEN IV=-IV
54010 RETURN
55000 B=VARS+1643+((PEEK(VARS+1)-1)*8)
55020 X=0:IF IV<0THEN IV=IV-IV-IV:X=128
55030 POKE(B+3),INT(IV/16777216)
55040 IV=IV-(INT(IV/16777216)*16777216)
55050 POKE(B+2),INT(IV/65536)
55060 IV=IV-(INT(IV/65536)*65536)
55070 POKE(B+1),INT(IV/256)
55080 IV=IV-(INT(IV/256)*256)
55090 POKE(B+0),IV
55100 POKE(B+3),PEEK(B+3) OR X
55200 RETURN