home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 55 / Tiger_Disk_055_19xx_Tiger-Crew-Disk_de_Side_B.d64 / trennprogramm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  32 lines
  1. 5 poke53280,6:printchr$(14)
  2. 10 printchr$(147)"[212]rennprogramm":print"[218]u trennende [215]orte eingeben!"
  3. 15 print"[197]nde mit '[210][197][212][213][210][206]'!":goto430
  4. 20 a%(0)=len(a$):ifa%(0)<5orv=1then120
  5. 30 b$=left$(a$,5):ifb$="unter"then120
  6. 50 b$=left$(a$,4):ifb$="nach"orb$="]ber"orb$="miss"thenb%=4:goto370
  7. 60 b$=left$(a$,3):ifb$="ver"orb$="zer"orb$="auf"orb$="ein"thenb%=3:goto370
  8. 70 ifb$="weg"orb$="hin"orb$="dar"orb$="ent"orb$="vor"thenb%=3:goto370
  9. 80 ifb$="aus"orb$="her"thenb%=3:goto370
  10. 90 b$=left$(a$,2):ifb$="be"orb$="zu"orb$="er"orb$="an"thenb%=2:goto370
  11. 100 ifb$="ur"orb$="um"orb$="un"orb$="ab"orb$="ge" thenb%=2:goto370
  12. 110 v=1
  13. 120 fori=1toa%(0):b$=mid$(a$,i,1)
  14. 130 ifb$="a"orb$="e"orb$="i"orb$="o"orb$="u"thena%(i)=1:nexti:goto160
  15. 135 ifb$="["orb$="]"orb$="\"thena%(i)=1:nexti:goto160
  16. 140 ifb$="[193]"orb$="[197]"orb$="[201]"orb$="[207]"orb$="[213]"thena%(i)=1:next:goto160
  17. 150 a%(i)=0:next
  18. 160 i=0
  19. 170 i=i+1:ifi>a%(0)then410
  20. 180 ifa%(i)=0then170
  21. 190 b=0
  22. 200 b=b+1:ifb+i>a%(0)then410
  23. 210 ifmid$(a$,b+i,1)=" "thenb%=b+i:goto370
  24. 220 ifa%(b+i)=0then200
  25. 230 ifb=1then200
  26. 240 b%=i+b-2:ifb%<2then320
  27. 250 ifb%<3then270
  28. 260 ifmid$(a$,b%-1,3)="sch"thenb%=b%-2:f=0:goto350
  29. 270 b$=mid$(a$,b%,2)
  30. 280 ifb$="ch"orb$="ei"orb$="au"orb$="ph"orb$="th"orb$="st"thenb%=b%-1
  31. 290 chr$
  32.