home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 69 / Tiger_Disk_069_19xx_Tiger-Crew-Disk_de_Side_B.d64 / engl.stammformen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  90 lines
  1. 18 dimw$(20,4)
  2. 19 fori=1to20:forj=1to4:readw$(i,j):nextj:nexti:goto40
  3. 20 print"[147]":poke53280,6:poke53281,0
  4. 21 print" [156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  5. 22 print" [156][194][158]        englische stammformen       [156][194][146]"
  6. 23 print" [156][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][159]":return
  7. 28 gosub20:print""
  8. 29 printtab(6)"deutsche verben listen     [1]"
  9. 30 printtab(6)"deutsche verben ausdrucken [2]"
  10. 31 printtab(6)"englische stammformen      [3]"
  11. 33 printtab(6)"programm beenden           [4]"
  12. 34 poke198,0:wait198,1:gete$
  13. 35 ife$="1"then600
  14. 36 ife$="2"then700
  15. 37 ife$="3"then190
  16. 38 ife$="4"then5000
  17. 39 goto34
  18. 40 gosub20
  19. 41 printtab(10)"englische stammformen"
  20. 42 printtab(10):forg=1to21:print"[192]";:next:print"[159]"
  21. 43 printtab(10)"        v o n [154]"
  22. 44 printtab(13)"karlheinz herpel"
  23. 45 printtab(10)"     drueck space"
  24. 46 poke198,0:wait198,1:gete$
  25. 47 ife$=chr$(32)then28
  26. 48 goto46
  27. 180 fori=1to20:forj=1to4:readw$(i,j):nextj:nexti
  28. 190 gosub20
  29. 200 print"gib das deutsche verb, dessen englische"
  30. 210 print"stammformen gewuenscht werden,"
  31. 220 input"ein : ";v$
  32. 230 for i=1 to20
  33. 240 if v$=w$(i,1)then 275
  34. 250 next i
  35. 260 print"verb nicht im datenbestand vorhanden.":goto310
  36. 275 print""
  37. 280 print"verb : [129]";w$(i,1):print
  38. 290 print"englische stammformen : [129]":print
  39. 300 for j=2 to 4:printw$(i,j);"   ";:nextj:print
  40. 310 input"nochmal (j/n) ";a$
  41. 320 if a$="j" then190
  42. 330 goto28
  43. 500 data sein,be,was,been
  44. 502 data haben,have,had,had
  45. 504 data beginnen,begin,began,begun
  46. 506 data bringen,bring,brought,brought
  47. 508 data kommen,come,came,come
  48. 510 data tun/machen,do,did,done
  49. 512 data essen,eat,ate,eaten
  50. 514 data kaufen,buy,bought,bought
  51. 516 data fuehlen,feel,felt,felt
  52. 518 data finden,find,found,found
  53. 520 data gehen,go,went,gone
  54. 522 data verlieren,lose,lost,lost
  55. 524 data machen,make,made,made
  56. 526 data lesen,read,read,read
  57. 528 data laufen,run,ran,run
  58. 530 data sagen,say,said,said
  59. 532 data sehen, see,saw,seen
  60. 534 data sitzen,sit,sat,sat
  61. 536 data sprechen,speak,spoke,spoken
  62. 538 data nehmen,take,took,taken
  63. 600 gosub20:
  64. 601 fori=1to20:x=x+1
  65. 602 printtab(15);w$(i,1)
  66. 603 ifx=10thengosub650:gosub20:
  67. 604 ifx=20thengosub650:goto28
  68. 605 next
  69. 650 printtab(13)"drueck space[159]"
  70. 651 poke198,0:wait198,1:gete$
  71. 652 ife$=chr$(32)thenreturn
  72. 653 goto651
  73. 700 gosub20:print""
  74. 701 printtab(10)"drucker einschalten.."
  75. 702 printtab(13)"space druecken[129]":gosub651
  76. 710 poke768,61:open1,4,7:print#1,"";:close1:poke768,139
  77. 711 ifst<>-128then720
  78. 712 printtab(10)"drucker einschalten":fork=1to2000:next:goto700
  79. 720 open1,4
  80. 721 print#1,spc(20)chr$(14)"deutsche verben"chr$(15):print#1
  81. 722 fori=1to20
  82. 723 print#1,spc(20);w$(i,1):next:print#1:close1:goto28
  83. 5000 print"[147]":poke53280,0
  84. 5001 printtab(8)"programm beenden     [1]"
  85. 5002 printtab(8)"programm wiederholen [2]"
  86. 5004 poke198,0:wait198,1:gete$
  87. 5005 ife$="1"thensys64760
  88. 5006 ife$="2"thenclr:goto18
  89. 5008 goto5004
  90.