home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 April / 1989-04.d64 / survey (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  2KB  |  75 lines
  1. 5 gosub 500
  2. 10 open15,8,15,"i0"
  3. 20 open1,8,8,"0:64 contents,s,r":input#15,en,em$:if en>0 then130
  4. 30 input#1,mo$:input#1,it:dimn$(it),j$(it)
  5. 40 it=it-3:rem ** screen proof,mlx,surv
  6. 50 fori=0toit:input#1,n$(i),j$(i):next
  7. 60 close1:close15
  8. 70 open15,8,15,"i0"
  9. 80 open1,8,8,"0:128 contents,s,r":input#15,en,em$:if en>0 then130
  10. 90 input#1,mo$:input#1,ot:dimn1$(ot),j1$(ot)
  11. 100 ot=ot-3:rem ** screen proof,mlx,surv
  12. 110 fori=0toot:input#1,n1$(i),j1$(i):next
  13. 120 close1:close15:goto140
  14. 130 close1:close15:print"[147]disk error":end
  15. 140 sp$="                         "
  16. 150 l$="............................................."
  17. 160 h1$="compute!'s gazette disk survey for the "+mo$+" 1989 issue"
  18. 170 open4,4:cmd4
  19. 180 print h1$:print
  20. 190 print"please rate the following gazette ";:print"programs on a scale of ";
  21. 200 print"1-10. a blank":print"space has been provided for your personal ";
  22. 210 print"comments and suggestions."
  23. 220 forx=1to71:print"*";:next:print
  24. 230 print"program title       rating                 comments"
  25. 240 forx=1to71:print"*";:next:print:print
  26. 250 fori=0to(it)
  27. 260 iflen(n$(i))>20 then n$(i)=left$(n$(i),19)
  28. 270 sp=20-len(n$(i))
  29. 280 n$(i)=n$(i)+left$(sp$,sp)+" [  ] "+l$+chr$(13)
  30. 290 printn$(i)
  31. 300 next
  32. 310 print"* 128 programs *":print
  33. 320 fori=0to(ot)
  34. 330 iflen(n1$(i))>20 then n1$(i)=left$(n1$(i),19)
  35. 340 sp=20-len(n1$(i))
  36. 350 n1$(i)=n1$(i)+left$(sp$,sp)+" [  ] "+l$+chr$(13)
  37. 360 printn1$(i)
  38. 370 next
  39. 380 forx=1to71:print"*";:next:print
  40. 390 print"list any additional comments below:":print
  41. 400 forx=1to3:fory=1to71
  42. 410 print".";:next:print:print
  43. 420 next
  44. 430 forx=1to71:print"*";:next:print
  45. 440 print"return this form to the address below.";:print" thank you for your ";
  46. 450 print"participation.":print
  47. 460 print"attention: submissions reviewer"
  48. 470 print"p.o. box 5406"
  49. 480 print"greensboro, nc  27403"
  50. 490 print#4:close4
  51. 495 goto 600
  52. 500 print"[147]":poke53281,0:poke53280,0
  53. 510 print"we're interested in your opinions about"
  54. 520 print"the gazette disk service and the"
  55. 530 print"programs we publish. to help us serve"
  56. 540 print"you better, please take the time to"
  57. 550 print"fill out our survey sheet. any"
  58. 551 print"comments, critical or complimentary,"
  59. 552 print"are welcome. the gazette survey will be"
  60. 553 print"printed to your printer. make sure your"
  61. 555 print"printer is on-line and the paper is"
  62. 556 print"positioned at the top of form."
  63. 557 print" m [146] return to menu."
  64. 558 print" p [146] print survey."
  65. 560 geta$:ifa$="" then 560
  66. 570 if a$="m" then goto600
  67. 580 if a$="p" then return
  68. 590 goto560
  69. 600 v=peek(772)+256*peek(773)
  70. 601 ifv=17165 then run"128 menu"
  71. 610 print"[147][144]load";chr$(34);"mn";chr$(34);",8"
  72. 611 print"printchr$(147):run"
  73. 612 poke198,3:poke631,19:poke632,13:poke633,13:poke634,13:poke635,13
  74. 630 end
  75.