home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64 / zeichen-tip (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  4KB  |  153 lines
  1. 0 :rem=================================
  2. 1 :rem
  3. 2 :rem    zeichen tip, das spiel fuer
  4. 3 :rem    profis
  5. 4 :rem
  6. 5 :rem
  7. 6 :rem=================================
  8. 7 :
  9. 8 :
  10. 9 :
  11. 10 :clr:goto1000:
  12. 11 :a$="zeichen-tip":open1,8,15,"s:"+a$:close1:savea$,8:return
  13. 12 :
  14. 16 :
  15. 17 :
  16. 18 :
  17. 19 :
  18. 20 :rem---set crsr
  19. 21 :poke214,p/40:poke211,p-peek(214)*40:sys58640:return
  20. 22 :
  21. 30 :rem---get zeichen
  22. 31 :c=fnr(25)+1:c$=chr$(c+64):i=fnr(nm):ifg$="[133]"then:return:
  23. 32 :j=i:b=i%(j):ifbthen:i=b
  24. 33 :ifnm>=.then:b=i%(nm):i%(j)=nm:ifbthen:i%(j)=b
  25. 34 :nm=nm-1:return:
  26. 35 :
  27. 36 :
  28. 40 :rem---get taste
  29. 41 :poke198,.:wait198,1:geta$:return
  30. 43 :
  31. 60 :rem---string-gen
  32. 61 :a$=a$+a$:on-(len(a$)*2<=m)goto61:a$=a$+left$(a$,m-len(a$)):return:
  33. 65 :
  34. 80 :rem---flimmer
  35. 81 :fori=1to160:poke53280,7:a=a:poke53280,3:a=a:poke53280,6:next:j=.:return:
  36. 82 :
  37. 90 :
  38. 100 :rem----liste sortieren
  39. 102 :forj=1tomx:m=j:fori=jtomx:ifz(i)>=z(m)then:m=i
  40. 104 :next:a=z(m):z(m)=z(j):z(j)=a::a$=n$(m):n$(m)=n$(j):n$(j)=a$:next:return:
  41. 196 :
  42. 197 :
  43. 198 :
  44. 199 :
  45. 200 :rem===============================
  46. 201 :rem
  47. 202 :rem     spiel - unter prg
  48. 203 :rem
  49. 204 :rem===============================
  50. 205 :
  51. 210 :print"[147][218]eichen-[212]ip[154]":
  52. 211 :ti$="000000":r%=-1:nm=919
  53. 212 :d1=peek(47):d2=peek(48):poke47,peek(49):poke48,peek(50):dimi%(nm)
  54. 213 :goto230
  55. 214 :
  56. 220 :rem---zeichen setzen
  57. 222 :gosub30:p=i+40:p0=p:gosub20:on-(fnbc(.)<>32)goto230:print""c$"[157]";:
  58. 223 :on-(g$>"[134]")goto230:gosub40:ifg$="[133]"then:print"[146] ";
  59. 224 :ifnot(c$="z"orc$="y")ordt=1goto226
  60. 225 :f=-((c$="z"anda$="y")or(c$="y"anda$="z")):on(1+f)goto240,230
  61. 226 :ifnot(a$=c$)goto240:
  62. 229 :
  63. 230 :rem---anzeigen
  64. 231 :p=40*24+15:gosub20:
  65. 232 :print"[146](richtig)";:r%=r%+1
  66. 233 :print"[146]"tab(24)"r:"r%;:
  67. 234 :on-(g$="[133]")goto220:ifr%<920then:on-(g$="[147]")goto220:fori=.to500:next:goto220
  68. 238 :gosub80:
  69. 239 :
  70. 240 :rem---ende
  71. 241 :poke49,peek(47):poke50,peek(48):poke47,d1:poke48,d2:
  72. 242 :p=p0:gosub20:print""c$;:poke212,.:t=ti/60:t=t-(t=.):gosub40:poke19,1:
  73. 243 :p=920:gosub20:print"[146] [211]ie haben "r%"[157][146]  [210]ichtige geschafft ! [146]"tab(40);
  74. 244 poke19,.:p=24*40:gosub20
  75. 245 :poke19,1:printint(r%/t*100)/100"[218]eichen pro [211]ekunde "tab(79);:poke19,.
  76. 246 :gosub40:j=.:ifr%<z(mx-1)orr%=.then:return:
  77. 247 :
  78. 248 :
  79. 250 :print"[147][211]ie haben einen [194]estplatz erreicht"
  80. 251 :print"[206]ame:  ";n$;:poke211,5:inputn$:
  81. 252 :z(mx)=r%:n$(mx)=left$(n$,zm):gosub100:fori=.to1000:next:j=1:return:
  82. 995 :
  83. 996 :
  84. 997 :
  85. 998 :
  86. 999 :
  87. 1000 :rem==============================
  88. 1001 :rem
  89. 1002 :rem    vorbereitungen
  90. 1003 :rem
  91. 1004 :rem==============================
  92. 1005 :
  93. 1030 :print"[147] [198]rei-[211]oft fuer  [211]pieleliebhaber"
  94. 1031 :print" [198]ree-[211]oft for   [199]amelovers"
  95. 1032 :print"[192][219][192][146][196].[194]reitinger[192][219][192][146] (2002)"
  96. 1033 :fori=1to3000:next:
  97. 1034 :
  98. 1035 :
  99. 1100 :dim i,j,r%,a,b,c,a$,c$,g$,n$,t,mx,p,p0,zm,d1,d2,m1,m2,m,f,dt,a%
  100. 1101 :deffn p(a)=peek(a)+peek(a+1)*256
  101. 1102 :deffn bc(a)=peek(peek(209)+peek(210)*256+pos(.))::bs=1064:fs=55336
  102. 1105 :deffn r(a)=int(rnd(1)*int(a+1)):a=rnd(-ti):g$="[133]":r$=chr$(13)
  103. 1200 :mx=6:dim z(mx),n$(mx)
  104. 1201 :zm=16:m=zm:a$=".":gosub60:l$=a$
  105. 1202 :fori=.tomx:n$(i)=l$::next
  106. 1203 :dt=1:dt$(.)="[196]eutsch":dt$(1)="[197]nglish":n$="[206]ame............":
  107. 1205 :z$="[154][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162]"
  108. 1300 :poke649,1:g$="[133]":j=1
  109. 1996 :
  110. 1997 :
  111. 1998 :
  112. 1999 :
  113. 2000 :rem==============================
  114. 2001 :rem
  115. 2002 :rem    titel seite
  116. 2003 :rem
  117. 2004 :rem==============================
  118. 2005 :
  119. 2006 :
  120. 2110 :f=53280:pokef,6:pokef+1,6:print"[147]";
  121. 2111 :print"[146][154][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  122. 2112 :print"[154] [155] [218]eichen-[212]ip :[154] "
  123. 2113 :print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  124. 2120 :print"<<<   ( [198]1 )  [211]tandard     "tab(30);"[154][155]hi[146][155]:";m1
  125. 2121 :print"<<<   ( [198]3 )  [214]ariant      "tab(30);"[154][155]hi[146][155]:";m2
  126. 2122 :print"<<<   ( _  )  [206]eustart"
  127. 2123 :
  128. 2124 :p=10*40:gosub20:print" [212]asten( [198]7 )[155]: "dt$(dt):
  129. 2125 :print""z$""
  130. 2130 :p=15*40:gosub20::print"[194]esten-[204]iste":print"------------"
  131. 2131 :fori=1tomx-1
  132. 2132 :printi"[157].";tab(5)n$(i)tab(5+zm)right$("    "+str$(z(i)),5)"  [218]eichen"
  133. 2133 :next:print""z$;:::on(j)gosub80
  134. 2197 :
  135. 2198 :
  136. 2199 :
  137. 2200 :gosub40:rem---warten auf eingabe
  138. 2201 :ifa$=r$ora$=" "then:a$=g$
  139. 2202 :ifa$="[136]"then:dt=1-dt:goto2124:
  140. 2203 :ifa$="[133]"ora$="[134]"ora$="[147]"goto2300:
  141. 2204 :if(a$="\")then:open1,8,15:close1:on-(st=.)gosub11:goto2000:
  142. 2205 :ifa$="_"then:run1100:
  143. 2206 :ifa$="[148]"then:print"edit";:sys64789:sys42107:
  144. 2207 :
  145. 2210 :goto2200:
  146. 2300 :rem---spiel aufruf
  147. 2301 :g$=a$:gosub200
  148. 2302 :if(g$="[133]"andr%>m1)then:m1=r%:
  149. 2303 :if(g$="[134]"andr%>m2)then:m2=r%
  150. 2304 :goto2110:
  151. 2305 :
  152. 2306 :
  153.