home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 127 / Tiger_Disk_127_20xx_Tiger-Crew-Disk_de_Side_B.d64 / engl. verben _tc (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 10 dima$(30,2):dimfr$(30)
  2. 20 poke53281,0:poke53280,2:poke53272,23
  3. 30 a=0:b=0:cc=1
  4. 40 print"[147] [158]        [214][160][197] [210] [194] [197] [206]  -[160][212][160][197][160][211][160][212]      [146]":gosub620:ifd$="j"then170
  5. 50 print"[201]ch nenne [196]ir nachfolgend einige"
  6. 60 print"englische [214]erben, zu denen [196]u mir"
  7. 70 print"die entsprechende [199]rundform sagst."
  8. 80 print"[211]chreibe immer nach dem > ? < das"
  9. 90 print"richtige [215]ort und druecke > [210][197][212][213][210][206] < ."
  10. 100 gosub 600
  11. 110 print"     [200][160][201][160][206][160][215][160][197][160][201][160][211][160]:[160][160][146]"
  12. 120 print"   [194]ei [197]ingabe weiterer [214]okabeln"
  13. 130 print"   bitte in den [218]eilen > 10 <"
  14. 140 print"   und > 170 < die [193]nzahl (30)"
  15. 150 print"   entsprechend erhoehen!"
  16. 160 print"":gosub600
  17. 170 forx=1to30:fory=1to2
  18. 180 reada$(x,y):nexty:nextx
  19. 190 ifcc>x-1then300
  20. 200 l=int(rnd(0)*(x-1))+1
  21. 210 ifcc>1thengosub670:ifdp=1thendp=0:goto190
  22. 220 fr$(cc)=a$(l,1):ifcc=1then250
  23. 230 geten$:ifen$=""then230
  24. 240 ifen$="e"thencc=cc-1:goto300
  25. 250 print"   ";a$(l,1)
  26. 260 input"[199][210][213][206][196][215][207][210][212] ";c$
  27. 270 ifc$=a$(l,2)thengosub550:goto290
  28. 280 gosub580
  29. 290 cc=cc+1:goto190
  30. 300 print"[147]       [197][206][196][197][160][196][201][197][211][197][210] [213][197][194][213][206][199]!"
  31. 310 print"  [196]u hattest ";a;" [215]oerter richtig"
  32. 320 print"  und ";b;" [215]oerter falsch."
  33. 330 c=int((a*100)/(cc))
  34. 340 print"  [196]as sind ";c;"% richtige [157][157][157][157][157][157][157][157][157][193]ntworten."
  35. 350 ifc<20thenprint"     [196]as ist [205][201][211][197][210][193][194][197][204][211][212]!!!":goto410
  36. 360 ifc<40thenprint"     [196]as ist recht maessig!":goto410
  37. 370 ifc<60thenprint"     [196]as ist wenig, ueben, ueben!":goto410
  38. 380 ifc<80thenprint"[205]it noch etwas [213]ebung wirst [196]u mal gut.":goto410
  39. 390 ifc<90thenprint"     [196]as war schon ganz gut!":goto410
  40. 400 ifc>90thenprint"        [208][160][210][160][201][160][205][160][193] ! [146] - [215]eiter so!"
  41. 410 gosub600
  42. 420 input"     [206][207][195][200][160][197][201][206][160][214][197][210][211][213][195][200] ? (j/n)   j [157][157][157][157]";d$
  43. 430 ifd$<>"j"thenprint"     [212][211][195][200][213][197][211][211]! - [194]is demnaechst !":gosub630:end
  44. 440 ifd$="j"thenrestore:goto30
  45. 450 databeaten,beat,bitten,bite,bled,bleed,blew,blow,broke,break,brought,bring
  46. 460 databought,buy,caught,catch,came,come,cut,cut,did,do
  47. 470 datadrank,drink,drove,drive,ate,eat,fell,fall
  48. 480 datafought,fight,found,find,flew,fly,forgot,forget
  49. 490 datafroze,freeze,got,get,gave,give,went,go,grew,grow
  50. 500 datahit,hit
  51. 510 datahurt,hurt
  52. 520 datakept,keep
  53. 530 datalaid,lay
  54. 540 dataleft,leave,lost,lose
  55. 550 print"               [210][201][195][200][212][201][199] !         [146]"
  56. 560 a=a+1
  57. 570 return
  58. 580 print:print"            [204][197][201][196][197][210] [198][193][204][211][195][200] !     [146]"
  59. 590 print"[196]as richtige [215]ort heisst ";a$(l,2):print"":b=b+1:return
  60. 600 print"          [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]        [146]"
  61. 610 poke198,0:wait198,1:poke198,0:print"[147]":return
  62. 620 print" (c) 1992 "
  63. 630 print"          [212][160][201][160][199][160][197][160][210] - [195][160][210][160][197][160][215]"
  64. 640 print"            [198][197][204][196][211][212][210][193][211][211][197]  17"
  65. 650 print"             36391 [211][201][206][206][212][193][204]"
  66. 660 poke198,0:wait198,1:poke198,0:print"[147]":return
  67. 670 forsu=1to(cc):iffr$(su)=a$(l,1)thensu=cc:dp=1
  68. 680 next
  69. 690 return
  70.