home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #9 / utv2n9s1.d64 / survey (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  5KB  |  201 lines
  1. 100 print "";
  2. 110 uptime=32772:de=186
  3. 120 poke53280,0: poke53281,0
  4. 130 gosub 530
  5. 140 gosub 770
  6. 150 get k$: if k$="" then 150
  7. 160 if k$=chr$(140) then 390
  8. 170 if k$<>chr$(13) then 150
  9. 180 gosub 850
  10. 190 get k$: if k$="" then 190
  11. 200 if k$=chr$(140) then 390
  12. 210 if k$<>chr$(13) then 190
  13. 220 gosub 930
  14. 230 get k$: if k$="" then 230
  15. 240 if k$=chr$(140) then 390
  16. 250 if k$<>chr$(13) then 230
  17. 260 gosub 1030
  18. 270 ml=23: gosub 1790
  19. 280 n$=t$: if t$="" then n$="an anonymous source"
  20. 290 gosub 1100
  21. 300 get k$: if k$="" then 300
  22. 310 if k$=chr$(140) then 390
  23. 320 if k$<>chr$(13) then 300
  24. 330 e1=0: gosub 1140
  25. 340 if e1=1 then goto 400
  26. 350 gosub 1700
  27. 360 get k$: if k$="" then 360
  28. 370 if k$=chr$(140) then 390
  29. 380 if k$<>chr$(13) then 360
  30. 390 poke de,8: sys uptime
  31. 400 gosub 710
  32. 410 printspc(6)" [150] [212]here is a printer error  [155]"
  33. 420 printspc(6)"[210]echeck all of your printer"
  34. 430 printspc(5)"connections and the printer's"
  35. 440 printspc(6)"paper supply and try again."
  36. 450 get k$: if k$="" then 450
  37. 460 if k$=chr$(140) then 390
  38. 470 if k$<>chr$(13) then 450
  39. 480 gosub 710
  40. 490 printspc(16)"[208]rinting"
  41. 500 printspc(12)"[210]eader's  [211]urvey"
  42. 510 goto 330
  43. 520 end
  44. 530 print"[147]";
  45. 540 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]"
  46. 550 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]"
  47. 560 m1$="[221]": m2$="                                     [146][221]"
  48. 570 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]"
  49. 580 c$="[158]": r$="": printtl$
  50. 590 for x=1to23
  51. 600 printm1$;c$;r$;m2$
  52. 610 if x=5 then x=6: c$="": r$="[146]": printm3$
  53. 620 if x=18 then x=19: c$="": r$="": printm3$
  54. 630 next
  55. 640 printbl$
  56. 650 printspc(10)" [213]p[212]ime [158] [205]agazine's"
  57. 660 printspc(12)"[210]eader's [211]urvey"
  58. 670 for x=1to16: print: next
  59. 680 printspc(7)"[208]ress [[210][197][212][213][210][206]] to [195]ontinue"
  60. 690 printspc(4)"[208]ress [198]8 to [197]xit [194]ack to [213]p[212]ime[155]"
  61. 700 return
  62. 710 print"";
  63. 720 for x=1to12
  64. 730 print"[221]                                     [221]"
  65. 740 next
  66. 750 print"[155]";
  67. 760 return
  68. 770 gosub 710
  69. 780 printspc(8)"[213]p[212]ime the [196]isk [205]onthly[155]"
  70. 790 printspc(2)"is the [159][206]umero 2[155] magazine on a disk"
  71. 800 printspc(7)"for the [195]ommodore 64/128"
  72. 810 printspc(5)"[215]e are constantly working to"
  73. 820 printspc(8)"improve our publication"
  74. 830 printspc(11)"and [217][207][213][155][160]can help!"
  75. 840 return
  76. 850 gosub 710
  77. 860 printspc(6)"[217]ou can help us stay #2[155] by"
  78. 870 printspc(9)"providing your input:
  79. 880 [153][166]6)"sys(NULL)raiselist, printlenriticismlist, openlenommentslist"
  80. 890 [153][166]4)"atnnything that you feel will help"
  81. 900 [153][166]7)"us meet your expectations"
  82. 910 [153][166]14)"with (NULL)p(NULL)imelist"
  83. 920 [142]
  84. 930 [141] 710
  85. 940 [153][166]3)"peeky following the next few prompts"
  86. 950 [153][166]5)"your printer will print out a"
  87. 960 [153][166]5)"reader's survey form for you."
  88. 970 [153][166]4)"(NULL)lease take the time to fill out"
  89. 980 [153][166]3)"the survey and return it using the"
  90. 990 [153][166]4)"enclosed business reply envelope."
  91. 1000 [153][166]4)"(NULL)e will use the results of this"
  92. 1010 [153][166]5)"survey to determine what it is"
  93. 1020 [153][166]3)"you've come to expect from (NULL)p(NULL)imelist": [142]
  94. 1030 [141] 710
  95. 1040 [153][166]3)"right$f you'd like to include your name"
  96. 1050 [153][166]10)"enter it now, please."
  97. 1060 [153][166]2)"(atn [(NULL)val(NULL)(NULL)(NULL)(NULL)] will make it anonymous)"
  98. 1070 [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("
  99. 1080 [153][166]8)"onon*cmd";
  100. 1090 [142]
  101. 1100 [141] 1950
  102. 1110 [153][166]11)"(NULL)eady your printer"
  103. 1120 [153][166]7)"(NULL)ress sys[(NULL)val(NULL)(NULL)(NULL)(NULL)]list when ready"
  104. 1130 [142]
  105. 1140 [159] 4,4,1:[160]4:s[178]st
  106. 1150 [139] s[179][177]0 [167] e1[178]1: [137] 1690
  107. 1160 [159] 4,4,7
  108. 1170 [152]4,[199](10)[199](10)
  109. 1180 [152]4,""[166]12)"(NULL)p(NULL)ime for the lenommodore 64/128, ";
  110. 1190 [152]4,"(NULL)olume (NULL)wo (NULL)umber (NULL)ine"
  111. 1195 [152]4,[199](10)
  112. 1200 [152]4,""[166]31)"- (NULL)eader's (NULL)urvey -"
  113. 1205 [152]4,[199](10)
  114. 1206 nn$[178]"     (NULL)his survey is from "[170]n$[170]"."
  115. 1210 [152]4,""[166][181]((80[171][195](nn$))[173]2));nn$
  116. 1220 [152]4,""
  117. 1230 l$[178]"totototototototototototototototo"
  118. 1240 [139] dw[178]1 [167] l$[178]"................"
  119. 1250 [152]4,"     ***********************************";
  120. 1260 [152]4,"***********************************"
  121. 1270 bx$[178]"[   ]   tototototototototototototototototototototototototototototototototototototo"
  122. 1280 [139] dw[178]1 [167] bx$[178]"[   ]   ....................................."
  123. 1290 [152]4,""
  124. 1300 [152]4,"     (NULL)lease rate the following programs and categories on a"
  125. 1310 [152]4,"     scale between 1 and 10 with 10 being the highest."
  126. 1320 [152]4,[199](10)[199](0)
  127. 1330 [152]4,"     (NULL)ombs of str$oom      ";bx$
  128. 1340 [152]4,[199](0)
  129. 1350 [152]4,"     peekunny left$op          ";bx$
  130. 1360 [152]4,[199](0)
  131. 1370 [152]4,"     (NULL)ustom (NULL)eyboard    ";bx$
  132. 1380 [152]4,[199](0)
  133. 1390 [152]4,"     lenalc 64/128        ";bx$
  134. 1400 [152]4,[199](0)
  135. 1410 [152]4,"     (NULL)agic (NULL)quare 64    ";bx$
  136. 1420 [152]4,[199](0)
  137. 1430 [152]4,"     (NULL)aint (NULL)verlay      ";bx$
  138. 1440 [152]4,[199](0)
  139. 1450 [143] print#4,"     (NULL)chr$(NULL)ing with (NULL)(NULL) lenol.";bx$
  140. 1460 [143] print#4,chr$(0)
  141. 1470 [152]4,"     (NULL)esar on (NULL)rack     ";bx$
  142. 1480 [152]4,[199](0)
  143. 1490 [152]4,"     (NULL)andom atnccess      ";bx$
  144. 1500 [152]4,[199](0)
  145. 1510 [152]4,"     (NULL)chr$(NULL)ing with (NULL)(NULL)     ";bx$
  146. 1520 [152]4,[199](0)
  147. 1530 [152]4,"     (NULL)ips and (NULL)ricks    ";bx$
  148. 1540 [152]4,[199](0)
  149. 1550 [152]4,"     (NULL)oftware (NULL)eviews   ";bx$:[152]4,[199](0)
  150. 1560 [152]4,"     right$'d rate the issue overall  [   ]
  151. 1570 print#4,chr$(0)
  152. 1580 print#4,chr$(0)
  153. 1590 print#4,"     [193]ny other comments or observations you'd care to make:"
  154. 1600 print#4,chr$(0)
  155. 1610 print#4,"     ";l$;l$;l$;l$
  156. 1620 print#4,chr$(0)
  157. 1630 print#4,"     ";l$;l$;l$;l$
  158. 1640 print#4,chr$(0)
  159. 1650 print#4,"     ";l$;l$;l$;l$
  160. 1660 print#4,chr$(0)
  161. 1670 print#4,"     ";l$;l$;l$;l$
  162. 1680 print#4,chr$(12)
  163. 1690 close4: return
  164. 1700 gosub 710
  165. 1710 printspc(5)"[212]hank-you for taking the time"
  166. 1720 printspc(8)"to print out the survey."
  167. 1730 printspc(3)"[215]e'll be waiting to hear from you."
  168. 1740 printspc(2)"[208]lease mail the completed survey to"
  169. 1750 printspc(8)"[213]p[212]ime, the [196]isk [205]onthly[155]"
  170. 1760 printspc(8)"[208].[207]. [194]ox 30008"
  171. 1770 printspc(8)"[211]hreveport, [204][193] 71130"
  172. 1780 return
  173. 1790 t$="": cs$="*[157]": ct=0
  174. 1800 get k$: if k$="" then 1800
  175. 1810 k=asc(k$)
  176. 1820 if k=140 then 390
  177. 1830 if k=13 then 1930
  178. 1840 if k<>20 then 1870
  179. 1850 if ct=0 then 1800
  180. 1860 ct=ct-1: print" [157][157] [157]";cs$;: t$=left$(t$,ct): goto 1800
  181. 1870 if ct=ml then 1800
  182. 1880 if (k=32) or (k=46) then 1910
  183. 1890 if (k$>="a") and (k$<="z") then 1910
  184. 1900 if (k$<"[193]") or (k$>"[218]") then 1800
  185. 1910 t$=t$+k$: ct=ct+1: printk$;: if ct<>24 then printcs$;
  186. 1920 goto 1800
  187. 1930 if t$="" then print"[193]nonymous";
  188. 1940 print" ": return
  189. 1950 printspc(9)"[155][195]an your printer print"
  190. 1960 printspc(5)"[195]ommodore [199]raphic characters?"
  191. 1970 printspc(15)"[158]< [217] / [206] >[155]": print"[145][145][145]";
  192. 1980 dw=0
  193. 1990 get k$: if k$ = "" then 1990
  194. 2000 if (k$="y") or (k$="[217]") then 2040
  195. 2010 if k$=chr$(140) then 390
  196. 2020 if (k$<>"n") and (k$<>"[206]") then 1990
  197. 2030 dw=1
  198. 2040 for x=1to3: print"                                   ": next
  199. 2050 print"[145][145][145][145]";
  200. 2060 return
  201.