home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / auto-menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines
  1. 0 rem auto menu    video ventures
  2. 1 rem copyright 1986
  3. 2 rem programmed by shawn ort
  4. 3 forx=49152to49191:reada:pokex,a:nextx
  5. 4 poke53280,2:poke53281,.
  6. 5 printchr$(142)"[147]     please wait...reading directory"
  7. 10 dimn$(170)
  8. 30 open2,8,0,"$0"
  9. 50 pn$=""
  10. 55 forx=0to170
  11. 60 sys49152
  12. 65 ifpeek(8193)=1then100
  13. 70 get#2,pn$
  14. 80 n$(x)=n$(x)+pn$:get#2,pn$:ifpn$<>chr$(34)then80
  15. 85 forxt=1to26-len(n$(x)):get#2,pn$:nextxt
  16. 90 next
  17. 100 close2:sr=1:poke53265,peek(53265)or16:print"[147]":ns=23
  18. 105 print"":fora=1tons:print"                    ":next:print""
  19. 110 forl=srtosr+ns-1
  20. 112 ifl>170then133
  21. 114 ifl=xthenpoke646,6
  22. 115 print"[153]"l""n$(l)
  23. 130 next
  24. 135 gosub1000
  25. 140 geta$:ifa$=""then140
  26. 150 ifa$="n"thensr=sr+ns:ifsr<160andsr<x+1then105
  27. 152 ifa$="n"thensr=sr-ns
  28. 155 ifa$="f"thensr=1:goto105
  29. 160 ifa$="p"thensr=sr-ns:ifsr>0then105
  30. 161 ifa$="l"then180
  31. 162 ifa$="r"then180
  32. 165 ifsr>171thensr=sr-ns
  33. 166 ifsr<0thensr=1
  34. 170 goto140
  35. 180 print"";spc(21);"[154]enter number:":printspc(21)"-->";
  36. 181 gosub60500:l=val(b$):ifl>160then180
  37. 182 ifl=.thenprint"[145][145]";:fora=1to2:printtab(21)"             ":next:print"[145][145]";
  38. 183 ifl=.then140
  39. 184 ifl=0then180
  40. 185 f$=n$(l)
  41. 190 print"[147]auto menu                 copyright 1987"
  42. 193 print"programmed by shawn ort"
  43. 195 print"":print"load"chr$(34);f$;chr$(34)",8,1[145][145][145]"
  44. 200 ifa$="o"thenpoke631,13:poke198,1:end
  45. 205 poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:poke198,5:end
  46. 250 data162,2,32,198,255,32,207,255,201,199,240,16,201,214,240,12,201,34,208
  47. 251 data236,169,0,141,1,32,76,33,192,169,1,141,1,32,162,1,32,198,255,96,255
  48. 1000 print""tab(25)"[158]auto-menu"
  49. 1010 printtab(23)"l[154]oad program"
  50. 1015 printtab(23)"r[154]un program"
  51. 1020 printtab(23)"n[154]ext screen"
  52. 1025 printtab(23)"p[154]revious screen"
  53. 1030 printtab(23)"f[154]irst screen"
  54. 1040 printtab(23)"[158]copyright 1987  "
  55. 1050 return
  56. 60500 print"[164]";:b$="":fora=1to4
  57. 60510 geta$:ifa$=""then60510
  58. 60520 ifa$=chr$(13)thenprint"[157] ":return
  59. 60530 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:b$=left$(b$,a-1):goto60510
  60. 60535 ifa=4then60510
  61. 60540 ifa$<"0"ora$>"9"then60510
  62. 60550 print"[157]"a$"[164]";:b$=b$+a$:next
  63.