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