home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #7 / utv2n7s1.d64 / survey (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  7KB  |  279 lines
  1. 10 :
  2. 16 :
  3. 20 print "";
  4. 30 uptime=(8*4096)+4: de=186
  5. 40 poke53280,0: poke53281,0
  6. 95 :
  7. 100 gosub 1000
  8. 110 gosub 1500
  9. 115 :
  10. 120 get k$: if k$="" then 120
  11. 130 if k$=chr$(140) then 550
  12. 140 if k$<>chr$(13) then 120
  13. 195 :
  14. 200 gosub 1600
  15. 205 :
  16. 210 get k$: if k$="" then 210
  17. 220 if k$=chr$(140) then 550
  18. 230 if k$<>chr$(13) then 210
  19. 300 gosub 1700
  20. 305 :
  21. 310 get k$: if k$="" then 310
  22. 320 if k$=chr$(140) then 550
  23. 330 if k$<>chr$(13) then 310
  24. 400 gosub 1800
  25. 405 :
  26. 410 ml=23: gosub 5000
  27. 420 n$=t$: if t$="" then n$="an anonymous source"
  28. 425 :
  29. 430 gosub 1900
  30. 435 :
  31. 440 get k$: if k$="" then 440
  32. 450 if k$=chr$(140) then 550
  33. 460 if k$<>chr$(13) then 440
  34. 465 :
  35. 500 e1=0: gosub 2000
  36. 505 if e1=1 then goto 600
  37. 506 :
  38. 510 gosub 3000
  39. 520 get k$: if k$="" then 520
  40. 530 if k$=chr$(140) then 550
  41. 540 if k$<>chr$(13) then 520
  42. 545 :
  43. 550 poke de,8: sys uptime
  44. 595 :
  45. 596 rem ***************
  46. 597 rem  printer error
  47. 598 rem ***************
  48. 599 :
  49. 600 gosub 1400: rem *** clear text area ***
  50. 605 :
  51. 610 printspc(6)" [150] [212]here is a printer error  [155]"
  52. 620 printspc(6)"[210]echeck all of your printer"
  53. 630 printspc(5)"connections and the printer's"
  54. 640 printspc(6)"paper supply and try again."
  55. 645 :
  56. 650 get k$: if k$="" then 650
  57. 660 if k$=chr$(140) then 550
  58. 670 if k$<>chr$(13) then 650
  59. 680 gosub 1400
  60. 685 :
  61. 690 printspc(16)"[208]rinting"
  62. 700 printspc(12)"[210]eader's  [211]urvey"
  63. 710 goto 500: rem *** retry printer ***
  64. 990 end
  65. 995 :
  66. 996 rem *****************
  67. 997 rem  screen template
  68. 998 rem *****************
  69. 999 :
  70. 1000 print"[147]";
  71. 1010 tl$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  72. 1020 bl$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
  73. 1030 m1$="[221]": m2$="                                     [146][221]"
  74. 1040 m3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  75. 1050 c$="[158]": r$="": printtl$
  76. 1060 for x=1to23
  77. 1070 printm1$;c$;r$;m2$
  78. 1080 if x=5 then x=6: c$="": r$="[146]": printm3$
  79. 1090 if x=18 then x=19: c$="": r$="": printm3$
  80. 1100 next
  81. 1200 printbl$
  82. 1210 printspc(10)" [213]p[212]ime [158] [205]agazine's"
  83. 1220 printspc(12)"[210]eader's [211]urvey"
  84. 1230 for x=1to16: print: next
  85. 1240 printspc(7)"[208]ress [[210][197][212][213][210][206]] to [195]ontinue"
  86. 1250 printspc(4)"[208]ress [198]8 to [197]xit [194]ack to [213]p[212]ime[155]"
  87. 1290 return
  88. 1395 :
  89. 1396 rem *****************
  90. 1397 rem  clear text area
  91. 1398 rem *****************
  92. 1399 :
  93. 1400 print"";
  94. 1410 for x=1to12
  95. 1420 print"[221]                                     [221]"
  96. 1430 next
  97. 1440 print"[155]";
  98. 1450 return
  99. 1495 :
  100. 1496 rem ***********
  101. 1497 rem  screen #1
  102. 1498 rem ***********
  103. 1499 :
  104. 1500 gosub 1400
  105. 1505 :
  106. 1510 printspc(8)"[213]p[212]ime the [196]isk [205]onthly[155]"
  107. 1520 printspc(2)"is the [159][206]umero 2[155] magazine on a disk"
  108. 1530 printspc(7)"for the [195]ommodore 64/128"
  109. 1540 printspc(5)"[215]e are constantly working to"
  110. 1550 printspc(8)"improve our publication"
  111. 1560 printspc(11)"and [217][207][213][155][160]can help!"
  112. 1590 return
  113. 1595 :
  114. 1596 rem ***********
  115. 1597 rem  screen #2
  116. 1598 rem ***********
  117. 1599 :
  118. 1600 gosub 1400: rem *** clear text area ***
  119. 1605 :
  120. 1610 printspc(6)"[217]ou can help us stay #2[155] by"
  121. 1620 printspc(9)"providing your input:
  122. 1630 [153][166]6)"sys(NULL)raiselist, printlenriticismlist, openlenommentslist"
  123. 1640 [153][166]4)"atnnything that you feel will help"
  124. 1650 [153][166]7)"us meet your expectations"
  125. 1660 [153][166]14)"with (NULL)p(NULL)imelist"
  126. 1690 [142]
  127. 1695 :
  128. 1696 [143] ***********
  129. 1697 [143]  screen #3
  130. 1698 [143] ***********
  131. 1699 :
  132. 1700 [141] 1400: [143] *** clear text area ***
  133. 1705 :
  134. 1710 [153][166]3)"peeky following the next few prompts"
  135. 1720 [153][166]5)"your printer will print out a"
  136. 1730 [153][166]5)"reader's survey form for you."
  137. 1740 [153][166]4)"(NULL)lease take the time to fill out"
  138. 1750 [153][166]3)"the survey and return it using the"
  139. 1760 [153][166]4)"enclosed business reply envelope."
  140. 1770 [153][166]4)"(NULL)e will use the results of this"
  141. 1780 [153][166]5)"survey to determine what it is"
  142. 1790 [153][166]3)"you've come to expect from (NULL)p(NULL)imelist": [142]
  143. 1795 :
  144. 1796 [143] ***********
  145. 1797 [143]  screen #4
  146. 1798 [143] ***********
  147. 1799 :
  148. 1800 [141] 1400: [143] *** clear text area ***
  149. 1805 :
  150. 1810 [153][166]3)"right$f you'd like to include your name"
  151. 1820 [153][166]10)"enter it now, please."
  152. 1830 [153][166]2)"(atn [(NULL)val(NULL)(NULL)(NULL)(NULL)] will make it anonymous)"
  153. 1840 [153][166]4)"(NULL)ame:tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  154. 1850 [153][166]8)"onon*cmd";
  155. 1860 [142]
  156. 1895 :
  157. 1896 [143] *****************
  158. 1897 [143]  screen #4 con't
  159. 1898 [143] *****************
  160. 1899 :
  161. 1900 [141] 5200: [143] *** ck for dsywhl ***
  162. 1905 [153][166]11)"(NULL)eady your printer"
  163. 1910 [153][166]7)"(NULL)ress sys[(NULL)val(NULL)(NULL)(NULL)(NULL)]list when ready"
  164. 1920 [142]
  165. 1995 :
  166. 1996 [143] *******************
  167. 1997 [143]  output to printer
  168. 1998 [143] *******************
  169. 1999 :
  170. 2000 [159] 4,4,1:[160]4:s[178]st: [143] *** routine to open printer chn ***
  171. 2010 [139] s[179][177]0 [167] e1[178]1: [137] 2490
  172. 2015 [159] 4,4,7
  173. 2020 [152]4,[199](10)[199](10)
  174. 2025 [152]4,""[166]12)"(NULL)eader's (NULL)urvey for the lenommodore 64/128    ";
  175. 2027 [152]4,"(NULL)ol. 2 (NULL)o. 7"
  176. 2030 [152]4,[199](10)
  177. 2040 [152]4,"     (NULL)his survey is from ";n$;"."
  178. 2050 [152]4,[199](10)[199](0)
  179. 2100 l$[178]"totototototototototototototototo"
  180. 2105 [139] dw[178]1 [167] l$[178]"................"
  181. 2165 [152]4,"     ***********************************";
  182. 2167 [152]4,"***********************************"
  183. 2170 bx$[178]"[   ]   tototototototototototototototototototototototototototototototototototototo"
  184. 2172 [139] dw[178]1 [167] bx$[178]"[   ]   ....................................."
  185. 2175 [152]4,[199](10)[199](0)
  186. 2180 [152]4,"     (NULL)lease rate the following programs and categories on a"
  187. 2190 [152]4,"     scale between 1 and 10 with 10 being the highest."
  188. 2195 [152]4,[199](10)[199](0)
  189. 2200 [152]4,"     (NULL)eutron (NULL)an        ";bx$
  190. 2205 [152]4,[199](0)
  191. 2206 [152]4,"     ascish peekowl          ";bx$
  192. 2207 [152]4,[199](0)
  193. 2210 [152]4,"     (NULL)ight (NULL)irrors 128  ";bx$
  194. 2212 [152]4,[199](0)
  195. 2214 [152]4,"     (NULL)utline chr$enerator  ";bx$
  196. 2215 [152]4,[199](0)
  197. 2220 [152]4,"     (NULL)isual atnids        ";bx$
  198. 2225 [152]4,[199](0)
  199. 2230 [152]4,"     chr$val(NULL)(NULL) lenlip atnrt      ";bx$
  200. 2235 [152]4,[199](0)
  201. 2240 [152]4,"     str$e(NULL)orean ascont      ";bx$
  202. 2247 [152]4,[199](0)
  203. 2250 [152]4,"     (NULL)val(NULL) ascileclose(NULL)utor     ";bx$
  204. 2255 [152]4,[199](0)
  205. 2260 [152]4,"     (NULL)esar on (NULL)rack     ";bx$
  206. 2265 [152]4,[199](0)
  207. 2266 [152]4,"     (NULL)andom atnccess      ";bx$
  208. 2267 [152]4,[199](0)
  209. 2270 [152]4,"     (NULL)chr$(NULL)ing with (NULL)(NULL)     ";bx$
  210. 2271 [152]4,[199](0)
  211. 2278 [152]4,"     (NULL)oftware (NULL)eviews   ";bx$:[152]4,[199](0)
  212. 2280 [152]4,"     right$'d rate the issue overall  [   ]
  213. 2285 print#4,chr$(0)
  214. 2287 print#4,chr$(0)
  215. 2300 print#4,"     [193]ny other comments or observations you'd care to make:"
  216. 2305 print#4,chr$(0)
  217. 2310 print#4,"     ";l$;l$;l$;l$
  218. 2315 print#4,chr$(0)
  219. 2320 print#4,"     ";l$;l$;l$;l$
  220. 2325 print#4,chr$(0)
  221. 2326 print#4,"     ";l$;l$;l$;l$
  222. 2327 print#4,chr$(0)
  223. 2328 print#4,"     ";l$;l$;l$;l$
  224. 2330 print#4,chr$(12)
  225. 2490 close4: return
  226. 2995 :
  227. 2996 rem ***********
  228. 2997 rem  screen #5
  229. 2998 rem ***********
  230. 2999 :
  231. 3000 gosub 1400: rem clear text area
  232. 3005 :
  233. 3010 printspc(5)"[212]hank-you for taking the time"
  234. 3020 printspc(8)"to print out the survey."
  235. 3030 printspc(3)"[215]e'll be waiting to hear from you."
  236. 3040 printspc(2)"[208]lease send the completed survey to"
  237. 3050 printspc(8)"[213]p[212]ime, the [196]isk [205]onthly[155]"
  238. 3060 printspc(8)"[208][207] [194]ox 30008"
  239. 3070 prints