home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 April / 64er_Magazin_89-04_1989_Markt__Technik_de.d64 / vokabelchecker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 dimv(99):z=49152:i=1:n$=chr$(0):p$=".":e$="^":print"":pokez,255
  2. 2 ford=0to6:readv$:printv$:next:data"[147][214]okabelchecker [214]ersion 1"," 1 [197]ingeben"
  3. 3 restore:print"[194]itte waehlen [211]ie![145]":getv$:ifv$=e$thenprint"[147][208]rogrammende!":end
  4. 4 on-(v$<"1"orv$>"5")goto3:print"[147]":onval(v$)gosub5,8,14,16,19:goto2
  5. 5 print"[147] [197]ingeben":v$="":input" [214]okabel";v$:ifv$=""then5:data" 2 [193]bfragen"
  6. 6 v$=v$+n$:v(i)=z:i=i+1:ifv$=e$+n$theni=i-1:pokez,255:return:data" 3 [204]aden"
  7. 7 ford=1tolen(v$):pokez,asc(mid$(v$,d,1)):z=z+1:next:goto5:data" 4 [211]ichern"
  8. 8 print"[147] [193]bfragen":a=int(rnd(p*a/z)*(i-1))+1:p=v(a):ifa=>ithenreturn
  9. 9 w=peek(p):p=p+1:d=1:printchr$(w);:on-(w<>0andw<>46)goto9:print"[157] "
  10. 10 p=p-1:v$="":g$="":a$="":printd;:inputv$:ifv$=e$thenreturn:data" 5 [196]rucken"
  11. 11 p=p+1:g$=g$+a$:a$=chr$(peek(p)):on1-(a$=p$ora$=n$)goto11:data" ^ [194]eenden"
  12. 12 p=p+1:ifv$<>g$thenprint"[198]ehler! [210]ichtig: ";g$
  13. 13 d=d+1:on1-(peek(p-1)=0)goto10:print"<[212]aste>":wait198,1:getv$:goto8
  14. 14 gosub17:poke780,0:sys65493:i=1:z=49152:forc=0to255
  15. 15 v(i)=z:i=i+1:ford=99to0step-1:d=peek(z):z=z+1:next:c=peek(z):next:goto18
  16. 16 gosub17:poke193,0:poke194,192:poke175,int(z/256)+1:sys62957:goto18
  17. 17 print"[147][204]aden/[211]ichern":input"[206]ame";v$:sys(57812)v$,8,1:print"":return
  18. 18 open1,8,15:input#1,w,f$,w,w:printf$,"<[212]aste>":close1:wait198,1:getv$:return
  19. 19 open1,3:p=49152:forw=0to255:w=peek(p):p=p+1:ifw=0thenprint:next
  20. 20 print#1,chr$(w);:next:print"<[212]aste>":wait198,1:getv$:close1:return
  21.