home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 March / 64er_Magazin_91-03_1991_Markt__Technik_de_Side_A.d64 / vokabelchecker (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines

  1. 0 dimd$(200,3):dimkl(200):dimlk(200):dimf$(200,2):poke53272,23:printchr$(8)
  2. 1 g$=chr$(34):lk=0:z=2:c=1:print"[147]"spc(50)"[205]enu"spc(75)"1.[197]ingabe"spc(71)
  3. 2 print"2.[193]bfrage"spc(71)"3.[193]usdruck"spc(70)"4.[211]ave"spc(74)"5.[204]oad"spc(74)"6.[197]nd
  4. 3 [151]19,0:[129]a[178]0[164]v[170]1:kl(a)[178]0:[130]a:[133]"";w:[145]w[137]13,18,8,9,11:[153]"load":[128]
  5. 4 m[178]4:p[178][181](v[172][187](1)):q[178]3:[145]2[171]kl(p)[137]4:[153]"load"d$(p,z)
  6. 5 [141]16:[145]f[137]1:[139]d$(p,c)[179][177]d$(v,3)[167][153]"ascalsch !":m[178]m[171]1:[145]m[137]4:[137]5
  7. 6 [153]"(NULL)ichtig !":kl(p)[178]1:m[178]m[170]1:lk[178]lk[170]1:o[178]v[171]lk[170]1:[145]o[137]1:[137]4
  8. 7 v[178]v[171]1:[145]g[137]1:[129]r[178]v[164]t[171]1:d$(r,1)[178]f$(r,1):d$(r,2)[178]f$(r,2):[130]r:v[178]t:[137]1
  9. 8 [133]"1 [str$rucker] oder 2 [peekildschirm]";y:[153]"load":[159]4,5[171]y:[129]i[178]0[164]v[171]1:[137]19
  10. 9 [133]"(NULL)ame";o$:[159]1,8,1,o$[170]",s,w":[152]1,v:[129]s[178]0[164]v:[152]1,g$[170]d$(s,1)
  11. 10 [152]1,g$[170]d$(s,2):[130]s:[160]1:[137]1
  12. 11 [133]"(NULL)ame";s$:[159]1,8,0,s$[170]",s,r":[132]1,v:[129]s[178]0[164]v:[132]1,d$(s,1)
  13. 12 [132]1,d$(s,2):[130]s:[160]1:[137]1
  14. 13 [133]"(1) atnnhaengen / (2) (NULL)erbessern";g:[145]g[137]15:t[178]v
  15. 14 [133]" nach vokabel nr. ";v:[129]r[178]v[171]1[164]t:f$(r,1)[178]d$(r,1):f$(r,2)[178]d$(r,2):[130]r
  16. 15 [153]"(NULL)okabel:":q[178]1:[141]16:[153]"peekedeutung:":q[178]2:[141]16:v[178]v[170]1:[145]f[170]1[137]15,7
  17. 16 [153]">";[199](34)[199](13)"oncont";:[151]631,29:[151]198,1:[151]19,64:[133]d$(v,q)
  18. 17 [151]19,0:[153]:[153]:f[178][171](d$(v,q)[178]"menu"):[142]
  19. 18 [133]"(1) peek. > (NULL). oder (2) (NULL).> peek.";b:[145]b[137]4:z[178]1:c[178]2:[137]4
  20. 19 [152]4,[199](017)"  nr."i[170]1;d$(i,1);" / "d$(i,2):[130]:[160]4:[146]203,63:[137]1
  21.