home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1991 March & April / rerun-1991-03-04.d64 / menu 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  2.0 KB  |  77 lines
  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>13 then n$(i)=left$(n$(i),13)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 280 getm$:ifm$=""then 280
  28. 290 ifm$<"a"orm$>chr$(64+f)then280
  29. 300 p=asc(m$)-64:print"[147]"
  30. 310 if d$(p)<>"run" then 340
  31. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  32. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  33. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  34. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  35. 360 a$=d$(p)
  36. 370 a$=a$+chr$(13)
  37. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  38. 390 new
  39. 400 poke 53280,0:poke 53281,0
  40. 410 ov=peek(53265)
  41. 420 poke 53265,peek(53265)and 247
  42. 430 poke 53265,(peek(53265)and248)+7
  43. 440 pr$="[209][165]                                    [167][209]"
  44. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  45. 460 md$="[209][165][194]                                  [194][167][209]"
  46. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  47. 480 hd$="march/april 1991 rerun"
  48. 490 print"[147]";
  49. 500 print tp$;:gosub 590
  50. 510 for i=1 to 2:print md$;:gosub 590:next
  51. 520 print"[145]";hd$;:gosub 590
  52. 530 print:print"[145]";
  53. 540 for i=1 to 1:print md$;:gosub 590:next
  54. 550 print bt$;:gosub 590
  55. 560 for i=1 to 19:print pr$;:gosub 590:next
  56. 570 poke 53265,27
  57. 580 return
  58. 590 rem sound routine here
  59. 600 poke v+23,15:poke v+4,9:poke v+5,0:poke v,1:poke v+3,32:poke v+3,33
  60. 610 return
  61. 1000 rem file list
  62. 1010 rem first entry is the number of programs on this disk
  63. 1020 rem followed by each filename
  64. 1030 rem second data item is run or sysxxxxx
  65. 1040 rem run if file is basic and sys xxxxx if ml
  66. 1050 data 10
  67. 1060 data search-replce,run
  68. 1070 data help screen,run
  69. 1080 data seq scanner,run
  70. 1090 data dir display,run
  71. 1100 data freeze key,run
  72. 1110 data double display,run
  73. 1120 data smart shopper,run
  74. 1130 data boot overkill,run
  75. 1140 data ade 64,run
  76. 1150 data calculator,run
  77.