100 ::::::CODE=7*4096:VARS=5*4096+6*256
111 GR=PEEK(CODE+3)+PEEK(CODE+4)*256:PG=VARS:PS=VARS+7:RS=PS+268
118 AS=RS+80+512:ES=AS+560:PA=ES+200:DATA 4,11,18,25,32,39,46,53::::
130 JA=PEEK(VARS+6)*256+PEEK(VARS+5):QU=PEEK(VARS+4):RU=(JA-6547)*4+QU-1
142 IFPEEK(PG+1)>PEEK(PG)THEN200
145 IFRU<4THEN200
150 Z=INT(RND(0)*100):DIMW(8):FORI=0TO7:READW(I):NEXTI:FORI=0TO7:IFW(I)>ZTHEN190
175 NEXTI
190 IFI=0THEN1000
191 IFI=1THEN2000
192 IFI=2THEN3000
193 IFI=3THEN4000
194 IFI=4THEN5000
195 IFI=5THEN6000
196 IFI=6THEN7000
197 IFI=7THEN8000
200 SYSCODE,1,"L.ABRECH",8
1000 ::::IFRU<8THEN1200
1010 A=0:N=PEEK(PG+1)*16+2:FORI=0TO6*9-1:IFPEEK(GR+31*I+2)=NTHENA=A+1
1040 NEXTI:IFA=0THENRETURN
1050 ZG=INT(RND(0)*A):FORI=0TO6*9-1:IFPEEK(GR+31*I+2)<>NTHEN1190
1080 A=A-1:IFA>0THEN1190
1100 P=GR+31*I:POKEP+2,(PEEK(P+2)AND240)+1:POKEP+3,PEEK(P+3)AND240:POKEP+4,0:POKEP+6,0
1150 FORX=7TO16:POKEP+X,0:NEXTX:FORX=17TO26:POKEP+X,255:NEXTX:FORX=27TO30:POKEP+X,0:NEXTX
1175 SYSCODE,22,48:SYSCODE,8:GOTO1200
1190 NEXTI
1200 GOTO200
2000 ::::IFRU<6THEN2140
2015 N=PEEK(PG+1)*16+2:FORI=0TO6*9-1:IFPEEK(GR+31*I+2)<>NTHEN2130
2040 A=0:FORE=12TO16:A=A+PEEK(GR+31*I+E):NEXTE:IFA=0THEN2130
2090 FORE=12TO16:POKE(GR+31*I+E),0:NEXTE:SYSCODE,22,49:SYSCODE,8:GOTO2140
2130 NEXTI
2140 GOTO200
3000 ::::GOSUB20000:K=K-100000:GOSUB10000:SYSCODE,22,50:SYSCODE,8:GOTO200
4000 ::::N=PEEK(PG+1)*16+2:FORI=0TO6*9-1:IFPEEK(GR+31*I+2)<>NTHEN4100
4040 IFPEEK(GR+31*I+7+5+3)=0THEN4100
4050 POKEPS+(PEEK(PG+1)-1)*67,1:SYSCODE,22,51:SYSCODE,8:GOTO4110
4100 NEXTI
4110 GOTO200
5000 ::::N=PEEK(PG+1)*16+2:FORI=0TO6*9-1:IFPEEK(GR+31*I+2)<>NTHEN5100
5040 A=PEEK(GR+31*I+6)AND15:IFA=0ORA=8THEN5100
5060 SYSCODE,22,52:SYSCODE,8:GOTO5110
5100 NEXTI
5110 SYSCODE,1,"L.FAHRSEQ",8
6000 ::::GOSUB20000:K=K+150000:GOSUB10000:SYSCODE,22,53:SYSCODE,8:GOTO200
7000 ::::GOSUB20000:K=K+200000:GOSUB10000:SYSCODE,22,54:SYSCODE,8:GOTO200
8000 ::::A=0:UP=0:N=PEEK(PG+1)*1+2:FORI=0TO6*9-1:IFPEEK(GR+31*I+2)<>NTHEN8070
8050 A=A+1:UP=UP+PEEK(GR+31*I+27)
8070 NEXTI:IFA=0THEN8170
8090 D=UP/A:IFD<50THEN8170
8110 GOSUB20000:K=K+80000:GOSUB10000:SYSCODE,22,55:SYSCODE,8
8170 GOTO200
10000 ::::QK=K:B=VARS+7+2+((PEEK(VARS+1)-1)*67):X=0:IFK<0THENK=K-K-K:X=128
10020 POKE(B+3),INT(K/16777216):K=K-(INT(K/16777216)*16777216):POKE(B+2),INT(K/65536)
10050 K=K-(INT(K/65536)*65536):POKE(B+1),INT(K/256):K=K-(INT(K/256)*256):POKE(B+0),K
10090 POKE(B+3),PEEK(B+3)ORX:K=QK:RETURN
20000 ::::B=VARS+7+2+((PEEK(VARS+1)-1)*67):X=PEEK(B+3)AND128:K=PEEK(B+0)
20040 K=K+(PEEK(B+1)*256):K=K+(PEEK(B+2)*65536):K=K+((PEEK(B+3)AND127)*16777216)
20070 IFX=128THENK=-K
20080 RETURN