home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #8 / utv2n8s2.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  4KB  |  143 lines
  1. 100 rem *** opening / menu ***
  2. 105 poke53280,0:poke53281,0:poke53269,0
  3. 106 print"[147]"chr$(8)chr$(14)
  4. 107 gosub4000
  5. 108 if peek(2)=1 then 170
  6. 110 print"[151][213]p[212]ime presents..."
  7. 115 fori=15360to15360+1023
  8. 120 :pokei,96
  9. 130 nexti
  10. 140 poke53272,245
  11. 150 gosub1000
  12. 160 poke53272,21
  13. 165 delay=5:gosub2000
  14. 170 gosub60000
  15. 178 printchr$(14)
  16. 179 poke2,1
  17. 180 gosub3000
  18. 190 geta$:a=val(a$)
  19. 200 ifa<1ora>np+1then190
  20. 210 ifa=np+1then500
  21. 215 a=a-1
  22. 220 print"[147]";tab((40-len(t$(a)))/2);t$(a)
  23. 230 gosub3500
  24. 240 print""
  25. 250 fori=0tonl(a)-1
  26. 260 :printtab((40-len(ds$(a,i)))/2);ds$(a,i)
  27. 270 :delay=.5:gosub2000
  28. 280 nexti
  29. 285 delay=2:gosub2000
  30. 290 print"[204][207][193][196][201][206][199] ";t$(a)
  31. 300 print"[144]load";chr$(34);left$(t$(a),2);chr$(34);",8:[145][145][145][145]"
  32. 315 poke631,13:poke632,asc("r"):poke633,asc("[213]"):poke634,asc(":"):poke635,13
  33. 320 poke198,5:poke53269,0:stop
  34. 500 if peek(56)<=128 then sys32772
  35. 502 print"[147][208]lease put the disk away..."
  36. 505 delay=3:gosub2000
  37. 510 print"good-bye!"
  38. 515 delay=5:gosub2000
  39. 520 sys64738
  40. 1000 rem *** set up opening screen ***
  41. 1010 print"[147]";
  42. 1015 sp$="  "
  43. 1020 fori=1to17
  44. 1030 :sp$=sp$+" ":printsp$;
  45. 1040 :reada:ifa=0then1060
  46. 1050 :printchr$(a);:goto1040
  47. 1060 :printchr$(146);chr$(169)
  48. 1070 nexti
  49. 1080 readt$:print"";tab((40-len(t$))/2);t$
  50. 1090 return
  51. 2000 rem *** timer ***
  52. 2010 ti$="000000"
  53. 2020 ifti/60<delaythen2020
  54. 2030 return
  55. 3000 rem *** menu ***
  56. 3010 print"[147]";tab(10);tt$;
  57. 3015 print:print
  58. 3020 gosub 3500
  59. 3080 print"[195]hoose a program:"
  60. 3090 fori=0tonp-1
  61. 3100 :print"    ";str$(i+1);".  ";t$(i);""
  62. 3105 delay=.5:gosub2000
  63. 3110 nexti
  64. 3120 print"    ";str$(np+1);".  [197]xit [208]rogram"
  65. 3130 print"[217]our choice? (1-";str$(np+1);") "
  66. 3140 return
  67. 3500 rem *** line across screen ***
  68. 3510 print"";
  69. 3520 fori=1to40
  70. 3530 :print"[178]";
  71. 3540 nexti
  72. 3550 fori=1to40
  73. 3560 :print"[177]";
  74. 3570 nexti
  75. 3575 print"";
  76. 3580 return
  77. 4000 rem *** read program data ***
  78. 4005 read tt$
  79. 4010 readnp:rem number of progs
  80. 4020 fori=0tonp-1
  81. 4030 :readt$(i),nl(i)
  82. 4040 :forj=0tonl(i)-1
  83. 4050 ::readds$(i,j)
  84. 4060 :nextj
  85. 4070 nexti
  86. 4080 return
  87. 5000 rem *** program data ***
  88. 5005 data"[198] [210] [193] [195] [212] [201] [207] [206] [211]   1"
  89. 5010 data5
  90. 5040 data"[206][213][205][197][210][193][212][207][210] and [196][197][206][207][205][201][206][193][212][207][210]",1
  91. 5050 data"    "
  92. 5060 data"[210][197][196][213][195][201][206][199][160][198][210][193][195][212][201][207][206][211]",1
  93. 5070 data"    "
  94. 5080 data"[195][207][205][208][193][210][201][206][199] [198][210][193][195][212][201][207][206][211]",1
  95. 5090 data"    "
  96. 5100 data"[201][205][208][210][207][208][197][210][160][198][210][193][195][212][201][207][206][211]",1
  97. 5110 data"    "
  98. 5120 data"[195][200][193][206][199][201][206][199] [205][201][216][197][196][160][206][213][205][197][210][193][204][211]",1
  99. 5130 data"    "
  100. 10000 rem *** data for opening screen
  101. 10010 data28,127,18,32,32,32,32,32,32,32,32,146,169,32,28,18,169,32,32,32,32
  102. 10020 data32,32,32,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
  103. 10030 data28,127,18,32,32,32,32,32,32,146,169,32,28,18,169,32,32,32,32
  104. 10040 data32,32,32,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
  105. 10050 data28,127,18,32,32,32,32,146,169,32,28,18,169,32,32,32,32
  106. 10060 data32,32,32,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
  107. 10070 data28,127,18,32,127,146,28,32,32,32,32,127,169,32,32,32,32,18,169,32
  108. 10080 data146,169,28,32,18,169,32,32,32,32,32,32,32,32,32,0
  109. 10090 data28,127,169,32,5,127,18,32,32,127,169,32,32,146,169,178,117,105,178
  110. 10100 data117,105,176,174,28,18,32,32,32,32,32,32,0
  111. 10110 data32,28,18,169,127,146,5,127,18,32,32,32,32,146,169,28,18,169,5,146,194
  112. 10120 data106,105,194,194,194,194,194,28,18,32,32,32,32,32,0
  113. 10130 data28,127,18,32,127,146,5,127,18,32,32,146,169,28,18,169,32,5,146,177
  114. 10140 data106,107,177,106,107,173,173,28,18,32,32,32,32,0
  115. 10150 data28,127,18,32,127,146,5,127,169,28,18,169,32,146,169,5,83,79,70,84,87
  116. 10160 data65,82,69,28,18,32,32,32,0
  117. 10170 data28,127,18,32,127,169,32,146,169,28,32,18,169,32,32,32,32,32,32,32,32
  118. 10180 data32,0
  119. 10190 data28,127,18,32,32,146,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
  120. 10200 :
  121. 10210 data28,127,169,32,28,18,169,32,32,32,32,32,32,32,32,32,0
  122. 10230 data32,28,18,169,32,32,32,32,32,32,32,32,32,0
  123. 10250 data28,127,18,32,32,32,32,32,32,32,32,0
  124. 10270 data28,127,18,32,32,32,32,32,32,0
  125. 10290 data28,127,18,32,32,32,32,0
  126. 10310 data28,127,18,32,32,0
  127. 10330 data28,127,18,0
  128. 10340 data"f r a c t i o n s   1"
  129. 60000 if peek(2)=1then60004
  130. 60001 for i=704 to 767
  131. 60002 readx:pokei,x
  132. 60003 next
  133. 60004 poke2040,11
  134. 60005 poke53269,peek(53269)or1
  135. 60006 poke53287,2:poke53277,255:poke53271,255
  136. 60007 poke53248,30:poke53249,58
  137. 60008 return
  138. 60009 data252,252,252,121,249,248,51,243,240
  139. 60010 data7,231,224,15,207,192,7,159,128
  140. 60011 data3,63,0,0,126,0,0,252,0
  141. 60012 data0,120,0,0,48,0,0,0,0
  142. 60013 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  143.