5 POKE53280,5:POKE53281,5:POKE646,0
10 PRINT"[147][215]INDOW - [205]ANAGER"
20 DIM ST(10):WI=0:ZI=49152:ST(WI)=ZI
30 FORJ=1TO23:FORI=0TO38:PRINT"A";:NEXT:PRINT:NEXT:PRINT"";
35 ZL=5:SP=3:BR=5:HO=5
40 FOR X=1TO5:GOSUB1100
45 SP=SP+1:FORI=1TO5:ZL=ZL+1:GOSUB1000:PRINT"12345":NEXT:SP=SP-1:ZL=ZL-5
50 ZL=ZL+2:SP=SP+3
55 NEXT:PRINT:PRINT," [212]ASTE DRUECKEN! [144]"
57 ZL=ZL-2:SP=SP-3
60 GETX$:IFX$=""THEN60
70 FOR X=1TO5:GOSUB1600
80 GETX$:IFX$=""THEN80
90 ZL=ZL-2:SP=SP-3
95 NEXT
100 ZL=20:SP=10:GOSUB1000:PRINT"[144]AAAAAAAAAAAAAAAAA"
999 END
1000 PRINT"";:IFZL=0THEN1020
1010 FORI9=1TOZL:PRINT:NEXT
1020 PRINTTAB(SP);
1030 RETURN
1040 :
1100 GOSUB1500:GOSUB1000
1110 PRINT"[176]";:IFBR=0THEN1130
1120 FORI9=1TOBR:PRINT"[192]";:NEXT
1130 PRINT"[174]":IFHO=0THEN1150
1140 FORI9=1TOHO:PRINTTAB(SP)"[221]"TAB(SP+BR+1)"[221]":NEXT
1150 PRINTTAB(SP)"[173]";:IFBR=0THEN1170
1160 FORI9=1TOBR:PRINT"[192]";:NEXT
1170 PRINT"[189]"
1180 RETURN
1190 :
1500 QU=1024+40*ZL+SP:AN=BR+1:IFWITHENZI=ST(WI)
1510 FORI9=0TOHO+1:GOSUB2100:QU=QU+40:ZI=ZI+AN+1:NEXT
1520 WI=WI+1:ST(WI)=ZI+1
1530 RETURN
1540 :
1600 ZI=1024+40*ZL+SP:AN=BR+1:IFWITHENQU=ST(WI-1)
1610 FORI9=0TOHO+1:GOSUB2100:QU=QU+AN+1:ZI=ZI+40:NEXT
1620 IFST(WI)=0THENRETURN
1630 ST(WI)=0:WI=WI-1:QU=ST(WI)
1640 RETURN
1650 :
2100 Z=ZI:GOSUB2200:POKE53,LO:POKE54,HI
2105 Z=QU:GOSUB2200:POKE781,LO:POKE782,HI
2110 POKE780,AN+1:SYS46728
2120 RETURN
2130 :
2200 HI=INT(Z/256):LO=Z-HI*256
2210 RETURN
2220 :