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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  68 lines
  1. 10 code=7*4096:vars=5*4096+6*256:n=0:syscode,15:syscode,3
  2. 30 print"[211]pielername[160][160]":print"[210]estaurant[160][160][160]"
  3. 32 print"[198]irmenname[160][160][160]":print"[198]irmenlogo[160][160][160]"
  4. 34 print"[211]pieler[160]x[160][160]"
  5. 35 print"[210]est.[160][206]ame[160]"
  6. 36 poke1024+4*40+34,peek(vars+1)+48:poke1024+8*40+18,27:poke1024+8*40+22,29
  7. 38 poke1024+16*40+18,27:poke1024+16*40+22,29:gosub3000:syscode,6,5:pokevars+3,1
  8. 46 syscode,14:poke2,0:cl=0
  9. 50 cl=peek(2):ifcl=0then50
  10. 55 poke2,0:ifcl=1thengosub1000
  11. 70 ifcl=2thengoto4000
  12. 80 ifcl=3thengoto4500
  13. 90 ifcl=4thengosub2000
  14. 100 ifcl=5then300
  15. 110 ifcl=6then400
  16. 120 ifcl=99thengoto5000
  17. 130 goto50
  18. 300 pokevars+3,peek(vars+3)-1:ifpeek(vars+3)=0thenpokevars+3,10
  19. 310 syscode,14:goto50
  20. 400 pokevars+3,peek(vars+3)+1:ifpeek(vars+3)=11thenpokevars+3,1:goto410
  21. 410 syscode,14:goto50
  22. 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]";
  23. 1001 syscode,6,5:l=0
  24. 1010 syscode,6,5:geta$:ifa$=""then1010
  25. 1011 ifa$=""ora$="[147]"orasc(a$)=34orasc(a$)=148then1010
  26. 1012 ifasc(a$)=13then1100
  27. 1020 ifasc(a$)<>20then1040
  28. 1030 ifasc(a$)=20andl>0thenl=l-1:print"[157][160][157]";:goto1010
  29. 1035 goto1010
  30. 1040 ifl=11then1010
  31. 1045 ifasc(a$)=32thenl=l+1:print"[160]";:goto1010
  32. 1050 l=l+1:printa$;:goto1010
  33. 1100 syscode,13:return
  34. 2000 syscode,3:print"[160][160][160][160][160][160][160][160][160][160][160][157][157][157]";
  35. 2001 print"[157][157][157][157][157][157][157][157]";:syscode,6,5:l=0
  36. 2010 syscode,6,5:geta$:ifa$=""then2010
  37. 2011 ifa$=""ora$="[147]"orasc(a$)=34orasc(a$)=148then2010
  38. 2012 ifasc(a$)=13then2100
  39. 2020 ifasc(a$)<>20then2040
  40. 2030 ifasc(a$)=20andl>0thenl=l-1:print"[157][160][157]";:goto2010
  41. 2035 goto2010
  42. 2040 ifl=11then2010
  43. 2045 ifasc(a$)=32thenl=l+1:print"[160]";:goto2010
  44. 2050 l=l+1:printa$;:goto2010
  45. 2100 rem
  46. 2110 return
  47. 3000 ifn=0thenprint"[198]astfood[160][160][160]"
  48. 3010 ifn=1thenprint"[201]tal.[160][160][160][160][160][160]"
  49. 3020 ifn=2thenprint"[196]eutsch[160][160][160][160]"
  50. 3030 ifn=3thenprint"[193]siatisch[160][160]"
  51. 3040 ifn=4thenprint"[198]ranz*s.[160][160][160]"
  52. 3045 pokevars+7+1+(peek(vars+1)-1)*67,n:return
  53. 4000 ifn=0thenn=4:goto4010
  54. 4005 n=n-1
  55. 4010 pokevars+7+1+(peek(vars+1)-1)*67,n:gosub3000:syscode,6,5:goto50
  56. 4500 ifn=4thenn=0:goto4510
  57. 4505 n=n+1
  58. 4510 pokevars+7+1+(peek(vars+1)-1)*67,n:gosub3000:syscode,6,5:goto50
  59. 5000 ifpeek(vars+0)=peek(vars+1)then5100
  60. 5010 pokevars+1,peek(vars+1)+1:clr:run
  61. 5100 ifpeek(vars+0)=4then5115
  62. 5101 x=peek(vars+0)+1:pokevars+1,x:y=1:forz=xto4
  63. 5104 syscode,3:print"[195]omputer[160][157]"y:syscode,13
  64. 5105 n=int(rnd(1)*5):pokevars+8+(peek(vars+1)-1)*67,n:n=0:n=int(rnd(1)*9)+1
  65. 5108 pokevars+7+(peek(vars+1)-1)*67,n:n=0
  66. 5110 n=int(rnd(1)*5)+1:pokevars+3,n:syscode,14:y=y+1:pokevars+1,peek(vars+1)+1:nextz
  67. 5115 pokevars+1,1:syscode,1,"l.hauptsit*",8
  68.