home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listknacker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  54 lines
  1. 7 rem       von
  2. 8 rem  georg engist
  3. 9 rem 7818 achkarren
  4. 10 goto220
  5. 20 poke646,14:get#2,a$
  6. 30 ifa$=""goto160
  7. 40 b=asc(a$)
  8. 50 ifb=gthenifathena=h:goto120
  9. 60 ifb=gthena=i
  10. 70 ifa=hgoto120
  11. 80 ifb>jthenifb<kthenprinta$;:goto20
  12. 90 ifb>lthenprinta$;:goto20
  13. 100 b$=","+right$(str$(b),len(str$(b))-1)
  14. 110 poke646,i:printb$;:goto20
  15. 120 ifb>mthenifb<nthenprinta$(b-p);:goto20
  16. 130 ifb>nthenifb<qthenprinta$(b-r);:goto20
  17. 140 ifb>jthenprinta$;:goto20
  18. 150 printchr$(5)","right$(str$(b),len(str$(b))-1);:goto20
  19. 160 forz=1to3:get#2,a$:nextz
  20. 170 get#2,b$:a$=a$+chr$(.):b$=b$+chr$(.)
  21. 180 ifst=66thenclose1:close2:end
  22. 190 c=asc(a$):d=asc(b$):e=256*d+c
  23. 200 a$=str$(e):b$=right$(a$,len(a$)-1)+" "
  24. 210 print:printb$;:a=.:goto20
  25. 220 clr:printchr$(142)chr$(147)chr$(5)"
  26. 230 [153]"  =  = (NULL)right$ or=^ ^(NULL)right$ (NULL)right$= (NULL)right$ (NULL)right$ ^(NULL)right$ or^ orright$
  27. 240 print"  [221]  [221] [202][201]  [221]  [171][177][201] [221][202][179] [171][179] [221]  [171][177][201] [171]  [171][179]
  28. 250 [153]"  /exp >closemid$(NULL)  >  exp mid$ > > (NULL)mid$ mid$(NULL) exp mid$ /exp >mid$
  29. 260 printtab(17)"v o n
  30. 270 [153][163]9)"g e o r g  e n g i s t"[199](154)
  31. 280 g[178]34:i[178]1:j[178]31:k[178]128:l[178]159:m[178]127:n[178]204:p[178]128:q[178]256:r[178]205
  32. 290 [153][163]7)"diskette einlegen ! (ctrl)":[151]649,.:[146]653,4:[151]649,10
  33. 300 [159]1,8,15,"i0":[153][163]4)
  34. 310 [133]"programmname ";na$
  35. 320 [159]2,8,0,"0:"[170]na$
  36. 330 [132]1,en,en$
  37. 340 [139]en[167][153][163]17)""en:[153][163]20[171][181]([195](en$)[173]2))en$:[128]
  38. 350 [134]a$(75):[129]z[178].[164]75:[135]a$(z):[130]z:[153][199](147)
  39. 360 [129]z[178].[164]1:[161]#2,a$:[130]z:[137]160
  40. 370 [131]end,for,next,data,"input#"
  41. 380 [131]input,dim,read,let,goto,run
  42. 390 [131]if,restore,gosub,return
  43. 400 [131]rem,stop,on,wait,load,save
  44. 410 [131]verify,def,poke,"print#",print
  45. 420 [131]cont,list,clr,cmd,sys,open
  46. 430 [131]close,get,new,"tab(",to,fn
  47. 440 [131]"spc(",then,not,step,+
  48. 450 [131]-,*,/,^,and,or,">"
  49. 460 [131]=,"<",sgn,int,abs,usr,fre
  50. 470 [131]pos,sqr,rnd,log,exp,cos,sin
  51. 480 [131]tan,atn,peek,len,"str$",val
  52. 490 [131]asc,"chr$","left$","right$"
  53. 500 [131]"mid$",go
  54.