home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / basics (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  3.0 KB  |  110 lines
  1. 1 poke53281,9:poke53280,9:print""tab(13)"please wait..."
  2. 2 ifpeek(52498)<>226thenpoke147,0:sys57812"windows.o",8,1:sys62631
  3. 3 wi=52496:ad=49152
  4. 5 m$(1)="highlighted options"
  5. 6 m$(2)="pointer to options"
  6. 7 m$(3)="numbered options"
  7. 8 m$(4)="lettered options"
  8. 9 m$(5)="pull-down menus"
  9. 10 m$(6)="return to loadstar"
  10. 11 m$(7)="pull up submenu"
  11. 19 goto100
  12. 37  
  13. 38     --- box w/out memory ---
  14. 39  
  15. 40 sys52496,fr,fc,tr,tc,ad,fu,co,rv:return
  16. 47  
  17. 48     --- change box color ---
  18. 49  
  19. 50 sys52496,fr,fc,tr,tc,ad,fu,co,rv,cc:return
  20. 57  
  21. 58     --- box with memory ---
  22. 59  
  23. 60 sys52496,fr,fc,tr,tc,ad,fu,co,rv
  24. 61 if(fuand1)thenad=ad+(tr-fr+1)*(tc-fc+1)*2:n=n+1
  25. 62 if(fuand1)thenfr(n)=fr:fc(n)=fc:tr(n)=tr:tc(n)=tc
  26. 63 return
  27. 67  
  28. 68     --- restore memory ---
  29. 69  
  30. 70 fr=fr(n):fc=fc(n):tr=tr(n):tc=tc(n)
  31. 71 ad=ad-(tr-fr+1)*(tc-fc+1)*2:n=n-1
  32. 72 sys52496,fr,fc,tr,tc,ad,8,1,1
  33. 73 return
  34. 97  
  35. 98     --- highlighted options ---
  36. 99  
  37. 100 print""tab(11)"highlighted bars menu"
  38. 110 fori=1to6:printtab(12)m$(i):print:next:k=1
  39. 115 poke214,22:print:printtab(5)"use cursor keys and then return"
  40. 120 poke214,1+2*k:print
  41. 130 printtab(12)""m$(k)"":poke198,0
  42. 140 geta$:ifa$<>""anda$<>""anda$<>chr$(13)then140
  43. 150 ifa$=chr$(13)thenonkgoto100,200,300,400,500,800
  44. 160 printtab(12)m$(k)
  45. 170 ifa$=""thenk=k+1:ifk>6thenk=1
  46. 180 ifa$=""thenk=k-1:ifk<1thenk=6
  47. 190 goto120
  48. 197  
  49. 198      --- pointer to options ---
  50. 199  
  51. 200 print""tab(10)"pointer to options menu"
  52. 210 fori=1to6:printtab(12)m$(i):print:next:k=1
  53. 215 poke214,22:print:printtab(5)"use cursor keys and then return"
  54. 220 poke214,1+2*k:print
  55. 230 printtab(8)"-->""":poke198,0
  56. 240 geta$:ifa$<>""anda$<>""anda$<>chr$(13)then240
  57. 250 ifa$=chr$(13)thenonkgoto100,200,300,400,500,800
  58. 260 printtab(8)"   "
  59. 270 ifa$=""thenk=k+1:ifk>6thenk=1
  60. 280 ifa$=""thenk=k-1:ifk<1thenk=6
  61. 290 goto220
  62. 297  
  63. 298      --- numbered options ---
  64. 299  
  65. 300 print""tab(10)"numbered options menu"
  66. 310 fori=1to6:printtab(8)""i".  "m$(i):print:next:k=1
  67. 320 poke214,22:print:printtab(8)"press a number (1 - 6)"
  68. 330 geta$:ifa$<"1"ora$>"5"then330
  69. 340 onval(a$)goto100,200,300,400,500,800
  70. 397  
  71. 398      --- lettered options ---
  72. 399  
  73. 400 print""tab(10)"lettered options menu"
  74. 410 fori=1to6:printtab(9)""chr$(i+64)".  "m$(i):print:next:k=1
  75. 420 poke214,22:print:printtab(9)"press a letter (a - f)"
  76. 430 geta$:ifa$<"a"ora$>"e"then430
  77. 440 onasc(a$)-64goto100,200,300,400,500,800
  78. 497  
  79. 498      --- pull-down menus ---
  80. 499  
  81. 500 print"":fori=0to15:print" whatever is on your screen at the time":next
  82. 510 fori=0to3
  83. 520 fr=0:fc=10*i:tr=2:tc=9+10*i:fu=4:co=7:rv=7:gosub40
  84. 530 next
  85. 540 print"menu 1menu 2menu 3menu 4":k=1
  86. 550 poke214,22:print:printtab(5)"use cursor keys and then return"
  87. 560 fr=0:fc=(k-1)*10:tr=2:tc=9+(k-1)*10:fu=16:co=1:rv=0:cc=1:gosub50
  88. 570 geta$:ifa$<>""anda$<>""anda$<>chr$(13)then570
  89. 580 fr=0:fc=(k-1)*10:tr=2:tc=9+(k-1)*10:fu=16:co=7:rv=7:cc=7:gosub50
  90. 585 ifa$=chr$(13)then600
  91. 590 ifa$=""thenk=k+1:ifk>4thenk=1
  92. 595 ifa$=""thenk=k-1:ifk<1thenk=4
  93. 597 goto560
  94. 600 fr=2:fc=0:tr=13:tc=39:fu=3:co=7:rv=0:gosub60
  95. 610 fr=2:fc=0:tr=13:tc=39:fu=4:co=7:rv=0:gosub60:l=1
  96. 620 poke214,1:print:printtab((k-1)*10)"{CBM-X}        {CBM-Z}"
  97. 630 ifk=1thenprint"{SHIFT--}"
  98. 635 ifk=4thenprint""tab(39)"{SHIFT--}"
  99. 640 poke214,4:print:fori=1to7:printtab(9)m$(i):next
  100. 650 poke214,3+l:print:printtab(9)""m$(l):poke198,0
  101. 660 geta$:ifa$<>chr$(13)anda$<>""anda$<>""then660
  102. 670 ifa$=chr$(13)thengosub70:onlgoto100,200,300,400,500,800,560
  103. 680 poke214,3+l:print:printtab(9)m$(l)
  104. 690 ifa$=""thenl=l+1:ifl>7thenl=1
  105. 700 ifa$=""thenl=l-1:ifl<1thenl=7
  106. 720 goto640
  107. 800 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  108. 810 ifer<>63thenend
  109. 820 load"hello connect",8
  110.