home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.voreinst
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
68 lines
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