home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / mutate!indexer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  49 lines
  1. 10 rem         mutate!indexer
  2. 20 rem         copyright 1992
  3. 30 rem  compute publications intl ltd
  4. 40 rem      all rights reserved
  5. 50 rem
  6. 60 rem  all mutate! programs & fonts
  7. 70 rem     written by gary noakes
  8. 80 rem
  9. 90 poke53280,0:poke53281,0:print"[147]":clr:i1$="   [211]tand [194]y..."
  10. 100 i2$="     [195]ompleted   ":fi$="$:m!*":dima$,b$,f,g,i,lm,t,x,fo$(73)
  11. 110 print"[147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  12. 120 print"[153]              [205] [213] [212] [193] [212] [197] !            "
  13. 130 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":printspc(14)"[155][198]ont [201]ndexer"
  14. 140 print"  [146] [155][208]lace disk in device 8- press [210][197][212][213][210][206]"
  15. 150 getg$:ifg$<>chr$(13)then150
  16. 160 poke214,7:print
  17. 170 print"  [146] [155][211]earching directory for "+chr$(34)+"[205]!"+chr$(34)+" fonts."
  18. 180 printi1$:open3,8,0,"$0:m!*":poke781,3:sys65478:geta$,a$
  19. 190 geta$,a$:ifa$=""then230
  20. 200 geta$,b$
  21. 210 geta$:ifa$=""thenlm=lm+1:goto190
  22. 220 fo$(lm)=fo$(lm)+a$:goto210
  23. 230 close3:sys65484
  24. 240 poke214,8:print:printi2$
  25. 250 print"  [146] [155][195]onverting filenames into arrays.":printi1$
  26. 260 lm=lm-2:iflm>30thenlm=30
  27. 270 fori=1tolm:fo$(i)=mid$(fo$(i),5,17):next
  28. 280 fori=1tolm:b$="":forx=1to16:a$=mid$(fo$(i),x,1):ifa$=chr$(34)thena$="":x=17
  29. 290 b$=b$+a$:next:fo$(i)=b$:next
  30. 300 poke214,10:print:printi2$
  31. 310 print"  [146] [155][211]orting filenames alphabetically.":printi1$
  32. 320 x=0:t=0:i=0:g=lm:a$=""
  33. 330 g=int(g/2):ifg=0then380
  34. 340 f=0:fori=1to(lm-g):x=x+1:iffo$(i)<fo$(i+g)then360
  35. 350 a$=fo$(i):fo$(i)=fo$(i+g):fo$(i+g)=a$:t=t+1:f=1
  36. 360 next:iffthen340
  37. 370 goto330
  38. 380 poke214,12:print:printi2$
  39. 390 print"  [146] [155][211]cratching old "+chr$(34)+"[205][213][212][193][212][197]![201][206][196][197][216]"+chr$(34)+" file."
  40. 400 printi1$:open15,8,15:print#15,"s0:mutate!index":print#15,"ui"
  41. 410 close15:poke214,14:print:printi2$
  42. 420 print"  [146] [155][215]riting new "+chr$(34)+"[205][213][212][193][212][197]![201][206][196][197][216]"+chr$(34)+" file."
  43. 430 printi1$:open2,8,2,"mutate!index,s,w":print#2,lm:fori=1tolm:print#2,fo$(i)
  44. 440 next:close2:poke214,16:print:printi2$:fori=1to2000:next
  45. 450 print"[147][155]"spc(10)"[201]ndex another disk?":printspc(17)"<[217]/[206]>"
  46. 460 getg$:ifg$="n"thenprint"[147]":end
  47. 470 ifg$<>"y"then460
  48. 480 goto90
  49.