10 CODE=7*4096:VARS=5*4096+6*256:N=0:SYSCODE,15:SYSCODE,3
30 PRINT"[211]PIELERNAME[160][160]":PRINT"[210]ESTAURANT[160][160][160]"
32 PRINT"[198]IRMENNAME[160][160][160]":PRINT"[198]IRMENLOGO[160][160][160]"
34 PRINT"[211]PIELER[160]X[160][160]"
35 PRINT"[210]EST.[160][206]AME[160]"
36 POKE1024+4*40+34,PEEK(VARS+1)+48:POKE1024+8*40+18,27:POKE1024+8*40+22,29
38 POKE1024+16*40+18,27:POKE1024+16*40+22,29:GOSUB3000:SYSCODE,6,5:POKEVARS+3,1
46 SYSCODE,14:POKE2,0:CL=0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:IFCL=1THENGOSUB1000
70 IFCL=2THENGOTO4000
80 IFCL=3THENGOTO4500
90 IFCL=4THENGOSUB2000
100 IFCL=5THEN300
110 IFCL=6THEN400
120 IFCL=99THENGOTO5000
130 GOTO50
300 POKEVARS+3,PEEK(VARS+3)-1:IFPEEK(VARS+3)=0THENPOKEVARS+3,10
310 SYSCODE,14:GOTO50
400 POKEVARS+3,PEEK(VARS+3)+1:IFPEEK(VARS+3)=11THENPOKEVARS+3,1:GOTO410
410 SYSCODE,14:GOTO50
1000 SYSCODE,3:PRINT"[160][160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157][157]";
1001 SYSCODE,6,5:L=0
1010 SYSCODE,6,5:GETA$:IFA$=""THEN1010
1011 IFA$=""ORA$="[147]"ORASC(A$)=34ORASC(A$)=148THEN1010
1012 IFASC(A$)=13THEN1100
1020 IFASC(A$)<>20THEN1040
1030 IFASC(A$)=20ANDL>0THENL=L-1:PRINT"[157][160][157]";:GOTO1010
1035 GOTO1010
1040 IFL=11THEN1010
1045 IFASC(A$)=32THENL=L+1:PRINT"[160]";:GOTO1010
1050 L=L+1:PRINTA$;:GOTO1010
1100 SYSCODE,13:RETURN
2000 SYSCODE,3:PRINT"[160][160][160][160][160][160][160][160][160][160][160][157][157][157]";
2001 PRINT"[157][157][157][157][157][157][157][157]";:SYSCODE,6,5:L=0
2010 SYSCODE,6,5:GETA$:IFA$=""THEN2010
2011 IFA$=""ORA$="[147]"ORASC(A$)=34ORASC(A$)=148THEN2010
2012 IFASC(A$)=13THEN2100
2020 IFASC(A$)<>20THEN2040
2030 IFASC(A$)=20ANDL>0THENL=L-1:PRINT"[157][160][157]";:GOTO2010
2035 GOTO2010
2040 IFL=11THEN2010
2045 IFASC(A$)=32THENL=L+1:PRINT"[160]";:GOTO2010
2050 L=L+1:PRINTA$;:GOTO2010
2100 REM
2110 RETURN
3000 IFN=0THENPRINT"[198]ASTFOOD[160][160][160]"
3010 IFN=1THENPRINT"[201]TAL.[160][160][160][160][160][160]"
3020 IFN=2THENPRINT"[196]EUTSCH[160][160][160][160]"
3030 IFN=3THENPRINT"[193]SIATISCH[160][160]"
3040 IFN=4THENPRINT"[198]RANZ*S.[160][160][160]"
3045 POKEVARS+7+1+(PEEK(VARS+1)-1)*67,N:RETURN
4000 IFN=0THENN=4:GOTO4010
4005 N=N-1
4010 POKEVARS+7+1+(PEEK(VARS+1)-1)*67,N:GOSUB3000:SYSCODE,6,5:GOTO50
4500 IFN=4THENN=0:GOTO4510
4505 N=N+1
4510 POKEVARS+7+1+(PEEK(VARS+1)-1)*67,N:GOSUB3000:SYSCODE,6,5:GOTO50
5000 IFPEEK(VARS+0)=PEEK(VARS+1)THEN5100
5010 POKEVARS+1,PEEK(VARS+1)+1:CLR:RUN
5100 IFPEEK(VARS+0)=4THEN5115
5101 X=PEEK(VARS+0)+1:POKEVARS+1,X:Y=1:FORZ=XTO4
5104 SYSCODE,3:PRINT"[195]OMPUTER[160][157]"Y:SYSCODE,13
5105 N=INT(RND(1)*5):POKEVARS+8+(PEEK(VARS+1)-1)*67,N:N=0:N=INT(RND(1)*9)+1
5108 POKEVARS+7+(PEEK(VARS+1)-1)*67,N:N=0
5110 N=INT(RND(1)*5)+1:POKEVARS+3,N:SYSCODE,14:Y=Y+1:POKEVARS+1,PEEK(VARS+1)+1:NEXTZ
5115 POKEVARS+1,1:SYSCODE,1,"L.HAUPTSIT*",8