home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 43 / Digital_Talk_43_2000-06-12_Digital_Talk_de_Side_A.d64 / verw>sort.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  817b  |  26 lines
  1. 0 rem open1,8,15,"s:verw>sort.bas":close1:save"verw>sort.bas",8
  2. 1 rem zahlrutiene by skernsoft 1999
  3. 4 print"[208]rogramm zum [218]a:hlen von [197]intra:gen in  einer [211][197][209] [196]atei.
  4. 5 [153]"str$iese (NULL)ahl wird vor die (NULL)val(NULL) geschieben.
  5. 6 print"[196]ie letzten 4 [218]eichen werden durch .sor ergenzt.
  6. 7 [129]i[178]0[164] 52:[135]a:[151]49152[170]i,a:[130]
  7. 10 [133] "filename,u";n$,u :a[178]0
  8. 20 [159]1,u,0,n$[170]",s"
  9. 25 [153]"zahle...":[153]
  10. 30 [158]49152&1,a$:[139]st[167] [160]1:[153]a"(NULL)tu:ck":[137]60
  11. 40 a[178]a[170]1 :[153]a"on"
  12. 50 [137]30
  13. 60 [159]1,u,0,n$[170]",s":[139] [195](n$)[177]12 [167] n$[178][200](n$,12)
  14. 61 [159]2,u,1,n$[170]".sor,s"
  15. 65 [153]"fu:ge (NULL)ahl ein...
  16. 66 print#2,a
  17. 70 sys49152&1,a$:ifstthen f=1
  18. 75 print#2,a$:if stthen f=1
  19. 80 if f=0then 70
  20. 90 close1:close2
  21. 95 print"ok."
  22. 99 end
  23. 32000 data32,155,183,32,30,225,32,253,174,32,139,176,133,73,132,74,32,163,182
  24. 32001 data169,89,32,117,180,160,2,185,97,0,145,73,136,16,248,200,32,18,225,145
  25. 32002 data98,201,13,208,246,152,160,0,145,73,32,204,255,96
  26.