home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 43 / Digital_Talk_43_2000-06-12_Digital_Talk_de_Side_A.d64 / sort>verw.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  647b  |  20 lines
  1. 0 rem open1,8,15,"s:sort>verw.bas":close1:save"sort>verw.bas",8
  2. 1 rem by skernsoft 1999
  3. 4 print"[208]rogramm zum [197]ntfernen einer vrogestel-  lten [218]ahl in einer [211][197][209] [196]atei.
  4. 6 [153]"str$ie letzten 4 (NULL)eichen werden entfernt.
  5. 7 fori=0to 52:reada:poke49152+i,a:next
  6. 10 input "filename,u";n$,u
  7. 60 open1,u,0,n$+",s":n$=left$(n$,len(n$)-4)
  8. 61 open2,u,1,n$+",s"
  9. 65 print"enferne [218]ahl ...
  10. 66 [132]1,a:[153]a
  11. 70 [158]49152&1,a$:[139]st[167] f[178]1
  12. 75 [152]2,a$:[139] st[167] f[178]1
  13. 80 [139] f[178]0[167] 70
  14. 90 [160]1:[160]2
  15. 95 [153]"ok."
  16. 99 [128]
  17. 32000 [131]32,155,183,32,30,225,32,253,174,32,139,176,133,73,132,74,32,163,182
  18. 32001 [131]169,89,32,117,180,160,2,185,97,0,145,73,136,16,248,200,32,18,225,145
  19. 32002 [131]98,201,13,208,246,152,160,0,145,73,32,204,255,96
  20.