home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / survey (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.1 KB  |  163 lines
  1. 10 a=a+1:ifa=1thengosub60100:load"bload.o",8,1
  2. 20 sys 828,16384,"survey.text"
  3. 30 sys 828,49152,"survey.o"
  4. 40 :
  5. 50 poke55,.:poke56,64:clr:                 dim l$(20),an$(100,2),ad(100)
  6. 55 in$="53":rem open3,8,3,"features":get#3,a$,a$:input#3,in$:close3
  7. 60 poke214,22:print:print"     [208][210][197][211][211] [211][208][193][195][197] [212][207] [195][207][206][212][201][206][213][197]    ":poke198,.
  8. 70 ifpeek(203)<>60then70
  9. 80 :
  10. 100 poke53280,11:print"[147][158]              [210][197][193][196][197][210] [211][213][210][214][197][217]"
  11. 110 print"[154]       [215]hich would you like to do?"
  12. 120 print"       [[198][154]]ill out the reader survey"
  13. 130 print"       [[210][154]]eturn to [204]oadstar"
  14. 140 print"       [208]ress [198] [154]or [210][154]."
  15. 150 geta$:ifa$<>"f"anda$<>"r"then150
  16. 160 ifa$="r"then60000
  17. 165 st$="":fora=.to40:b=peek(16384+a):ifb<>13thenst$=st$+chr$(b):next
  18. 166 ss=a+1
  19. 170 poke250,ss:poke251,64:al$="abcdefghijklmnopqrstuvwxyz":cq=1
  20. 180 :
  21. 200 ifst$="[195]ritique"thenst$="[204][207][193][196][211][212][193][210] #"+in$+" [195][210][201][212][201][209][213][197]"
  22. 205 ta=20-len(st$)/2:print"[147][158]"tab(ta)st$
  23. 210 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][157][148][163]"
  24. 215 print"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  25. 216 fora=217to242:pokea,peek(a)or128:next
  26. 220 ad(cq)=peek(250)+peek(251)*256
  27. 225 sys49152,nl%,l$(1):ls=1
  28. 230 nc=val(left$(l$(nl%),2)):               oo=val(mid$(l$(nl%),3,1))
  29. 232 os=val(right$(l$(nl%),1))
  30. 235 gosub5000:nl%=nl%+(nc=99)*-7
  31. 237 if(nc=.)and(oo)thengosub7100
  32. 239 ce=int(8-nl%/2):print"[154]";:fora=1toce:print:next:nl%=nl%+(nc=99)*7
  33. 240 fora=1tonl%-1:print" "l$(a):next
  34. 250 if nc=99 then 400
  35. 260 if nc=. and (oo) then gosub9000:goto390
  36. 270 tc=peek(214)-nc-1:an$=left$(al$,nc)
  37. 275 poke198,.:if(nc)thengosub7000
  38. 280 geta$:if(a$<"a"ora$>right$(an$,1))and(a$<>chr$(13))then280
  39. 285 ifa$=chr$(13)then340
  40. 290 a=asc(a$):cs=a-65
  41. 292 if(os)thenpoke214,tc+ls:print:print"[154] "l$(nl%-nc+ls)
  42. 294 if(os)and((tc+ls-1)=nl%+ce)and(oo)thengosub8500:an$(cq,2)=""
  43. 295 poke214,cs+tc:print:ls=cs
  44. 300 ad=peek(209)+peek(210)*256+peek(211)+1
  45. 310 if(peek(ad)and128)=.thenprint " " l$(nl%-nc+cs):goto330
  46. 320 if(peek(ad)and128)thenprint "[154] " l$(nl%-nc+cs)
  47. 325 if ((tc+cs-1)=nl%+ce) and (oo) then gosub8000:an$(cq,2)="":goto280
  48. 330 if ((tc+cs-1)=nl%+ce) and (oo) thengosub7100:gosub8000:gosub9000:gosub7000
  49. 335 goto280
  50. 340 poke214,tc:print
  51. 350 fora=1tonc
  52. 360 ad=peek(209)+peek(210)*256+peek(211)+1
  53. 370 ifpeek(ad)and128thenan$(cq,1)=an$(cq,1)+chr$(64+a)
  54. 380 print:next:if(an$(cq,1)="")and(an$(cq,2)="")thengosub9500:goto280
  55. 390 cq=cq+1:goto220
  56. 395 :
  57. 400 print"     [154][215]ould you like to return your"
  58. 440 print"     responses to [204]oadstar on disk or"
  59. 445 print"     paper?"
  60. 446 print "   [217]ou may also quit without saving"
  61. 447 print"   your responses."
  62. 450 print"        [208]ress [196][154], [208][154], or [209][154]."
  63. 460 gosub6000
  64. 470 a=peek(203):ifa<>18anda<>41anda<>62then470
  65. 475 ifa=62then900
  66. 480 ifa=41then700
  67. 490 :
  68. 500 gosub5000:print"     [208]lease insert a disk to hold"
  69. 510 print"     your response information and"
  70. 520 print"     press [211][208][193][195][197][154] to continue.":poke198,.
  71. 525 print"     [206][207][212][197]: [212]his will erase any old"
  72. 526 print"     survey responses that are on"
  73. 527 print"     this disk.":poke198,.
  74. 530 ifpeek(203)<>60then530
  75. 540 gosub6000:poke214,21:print:print"  [211]aving your response information..."
  76. 550 open15,8,15,"i0":print#15,"s0:survey.response":close15
  77. 560 open3,8,3,"survey.response,p,w"
  78. 570 print#3,chr$(13)chr$(13);
  79. 580 print#3,in$
  80. 590 fora=1tocq
  81. 600 print#3,an$(a,1):print#3,an$(a,2)
  82. 610 next:close3:goto900
  83. 620 :
  84. 700 open15,4,15:close15:ifst=.then730
  85. 710 gosub6000:poke214,21:print:print"      [197][210][210][207][210]: [208][210][201][206][212][197][210] [206][207][212] [196][197][212][197][195][212][197][196]!"
  86. 720 fora=1to2000:poke54296,15:poke54296,.:next:gosub6000:goto470
  87. 730 gosub6000:poke214,21:print:print"      [208]rinting your responses ..."
  88. 740 open4,4,7:poke250,ss:poke251,64
  89. 745 fora=1tota:print#4," ";:next:print#4,st$
  90. 750 fora=1tocq-1:print#4
  91. 760 sys49152,nl%,l$(1)
  92. 770 nc=val(left$(l$(nl%),2)):               oo=val(mid$(l$(nl%),3,1))
  93. 780 forb=1tonl%-nc-1:print#4,l$(b):next
  94. 790 if (nc=.) then 840
  95. 800 forb=1tolen(an$(a,1))
  96. 810 c=asc(mid$(an$(a,1),b,1))-65
  97. 820 print#4,l$((nl%-nc)+c)
  98. 830 next
  99. 840 if (an$(a,2)<>"") and (oo) then print#4,":"an$(a,2)
  100. 850 next
  101. 860 :
  102. 900 gosub6000:poke214,20:print
  103. 920 print"   [154][208]ress [211][208][193][195][197] [154]to return to [204][207][193][196][211][212][193][210].":poke198,.
  104. 930 ifpeek(203)<>60then930
  105. 940 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  106. 950 ifer<>63thenend
  107. 960 load"hello connect",8
  108. 5000 print"";:fora=1to14
  109. 5010 print"                                       ":next:return
  110. 6000 poke214,19:print
  111. 6010 forb=1to4:print"                                      ":next
  112. 6020 return
  113. 7000 gosub6000
  114. 7005 print"     [154][208]lease make your selection(s):"
  115. 7010 a$="":fora=1tolen(an$)
  116. 7020 a$=a$+chr$(asc(mid$(an$,a,1))+128)
  117. 7030 ifa<>len(an$)thena$=a$+" "
  118. 7040 next:a$=a$+"  [154]or  [210][197][212][213][210][206]"
  119. 7050 ta=20-len(a$)/2+1:print""tab(ta)a$""
  120. 7060 return
  121. 7100 gosub6000
  122. 7105 print"      [154][208]lease enter your response."
  123. 7110 return
  124. 8000 poke214,cs+tc+1:print:print"                                      [145]"
  125. 8010 return
  126. 8500 poke214,ls+tc+1:print:print"                                      [145]"
  127. 8510 return
  128. 8900 :
  129. 9000 b$="":print"[154]:[164]";:poke198,.:fora=1to38
  130. 9010 geta$:ifa$=""then9010
  131. 9020 ifa$=chr$(13)thenprint"[157] ":an$(cq,2)=b$:return
  132. 9030 if(a$=chr$(20))and(a>1)thena=a-1:b$=left$(b$,a-1):print"[157][157]  [157][157][154][164]";:goto9010
  133. 9035 ifa=38then9010
  134. 9040 ifa$>=" "anda$<="z"then9070
  135. 9050 ifa$>="[193]"anda$<="[218]"then9070
  136. 9060 goto9010
  137. 9070 b$=b$+a$:print"[157]"a$;:poke212,.:print"[154][164]";
  138. 9080 next
  139. 9500 gosub6000:poke214,20:print:print"[150]  [217]ou [205][213][211][212] select at least one of the"
  140. 9510 print"     above items before continuing."
  141. 9530 fora=1to3000:next:gosub7000:return
  142. 59998 :
  143. 59999 :
  144. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  145. 60010 ifer<>63thenend
  146. 60020 load"hello connect",8
  147. 60098 :
  148. 60099 :
  149. 60100 poke53280, 0:poke53281, 0:print"[147]";
  150. 60101 print"[151][167][163][163][152][163][163][163][163][163][163][155][163][163][163][163][163][163][163][163][163][163][163][163][155][163][163][163][163][163][163][152][163][163][163][163][163][163][151][163][163][165]"
  151. 60102 print"[167]LOADSTARPRESENTS:[151][165]"
  152. 60103 print"[167][164][164][152][164][164][164][164][164][164][155][164][164][164][164][164][164][164][164][164][164][164][164][155][164][164][164][164][164][164][152][164][164][164][164][164][164][151][164][164][165]"
  153. 60104 print"[163][163][163][163][163][154][163][163][163][163][163][163][159][163][163][163][163][163][163][163][163][163][163][163][163][159][163][163][163][163][163][163][154][163][163][163][163][163][163][163][163][163][163][163][158]READE";
  154. 60105 print"RSURVEY"
  155. 60106 print"[156]PROGRAMBY:MikeMaynard"
  156. 60107 print"SURVEYBY:SoftdiskStaff"
  157. 60108 print"[158]COPYRIGHT1988"
  158. 60109 print"[164][164][164][164][164][154][164][164][164][164][164][164][159][164][164][164][164][164][164][164][164][164][164][164][164][159][164][164][164][164][164][164][154][164][164][164][164][164][164][164][164][164][164][164][151][167][163][163][152][163][163][163][163][163][163][155][163][163][163][163][163][163]";
  159. 60110 print"[163][163][163][163][163][163][155][163][163][163][163][163][163][152][163][163][163][163][163][163][151][163][163][165]"
  160. 60111 print"[167] [208][204][197][193][211][197] [215][193][201][212] -- [204][207][193][196][201][206][199] [198][201][204][197][211]  [151][165]"
  161. 60112 print"[167][164][164][152][164][164][164][164][164][164][155][164][164][164][164][164][164][164][164][164][164][164][164][155][164][164][164][164][164][164][152][164][164][164][164][164][164][151][164][164][165]"
  162. 60120 return
  163.