home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side1.d64 / critique (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  6KB  |  169 lines
  1. 10 gosub60100
  2. 20 sys57812"critique.text",8,0:poke780,0:poke781,0:poke782,64:sys65493
  3. 30 sys57812"critique.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 40 :
  5. 50 poke55,.:poke56,64:clr:dim l$(20),an$(100,8),ad(100),c1$(60),c2$(60)
  6. 55 in$=chr$(peek(16385))+chr$(peek(16386))
  7. 56 np=val(chr$(peek(16388))+chr$(peek(16389)))
  8. 60 poke214,23:print:print"     [208][210][197][211][211] [211][208][193][195][197] [212][207] [195][207][206][212][201][206][213][197]    [145][145]":poke198,.
  9. 70 ifpeek(203)<>60then70
  10. 80 :
  11. 100 poke53280,11:print"[147][158]              [210][197][193][196][197][210] [211][213][210][214][197][217]"
  12. 110 print"[154]       [215]hich would you like to do?"
  13. 120 print"       [[198][154]]ill out the reader critique"
  14. 130 print"       [[210][154]]eturn to [204][207][193][196][211][212][193][210]"
  15. 140 print"       [208]ress [198] [154]or [210][154]."
  16. 150 geta$:ifa$<>"f"anda$<>"r"then150
  17. 160 ifa$="r"then60000
  18. 170 poke250,7:poke251,64:al$="abcdefghijklmnopqrstuvwxyz":cq=1
  19. 180 :
  20. 200 st$="[204][207][193][196][211][212][193][210] #"+in$+" [195][210][201][212][201][209][213][197]"
  21. 205 ta=20-len(st$)/2:print"[147][158]"tab(ta)st$
  22. 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]"
  23. 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]"
  24. 216 fora=217to242:pokea,peek(a)or128:next
  25. 220 ad(cq)=peek(250)+peek(251)*256
  26. 225 sys49152,nl%,l$(1):ls=1:el=3:ifcq=np+3thenel=6
  27. 230 nc=val(left$(l$(nl%),2)):               oo=val(mid$(l$(nl%),3,1))
  28. 232 os=val(right$(l$(nl%),1))
  29. 235 gosub5000:nl%=nl%+(nc=99)*-7
  30. 237 if(nc=.)and(oo)thengosub7100
  31. 238 ce=int(8-(nl%+el)/2):print"[154]";:ifce=.then240
  32. 239 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][207][193][196][211][212][193][210] on disk or"
  59. 445 print"     paper?"
  60. 450 print"             [208]ress [196] [154]or [208][154]."
  61. 460 gosub6000
  62. 470 a=peek(203):ifa<>18anda<>41then470
  63. 480 ifa=41then700
  64. 490 :
  65. 500 gosub5000:print"     [208]lease insert a disk to hold"
  66. 510 print"     your response information and"
  67. 520 print"     press [211][208][193][195][197][154] to continue.":poke198,.
  68. 525 print"     [206][207][212][197]: [212]his will erase any old"
  69. 526 print"     critique responses that are on"
  70. 527 print"     this disk.":poke198,.
  71. 530 ifpeek(203)<>60then530
  72. 540 gosub6000:poke214,21:print:print"  [211]aving your response information..."
  73. 550 open15,8,15,"i0":print#15,"s0:critique.rsp":close15
  74. 560 open3,8,3,"critique.rsp,p,w"
  75. 570 print#3,chr$(13)chr$(13);
  76. 580 print#3,in$
  77. 590 fora=1tocq
  78. 600 print#3,an$(a,1):print#3,an$(a,2)
  79. 610 next:close3:goto900
  80. 620 :
  81. 700 open15,4,15:close15:ifst=.then730
  82. 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]!"
  83. 720 fora=1to2000:poke54296,15:poke54296,.:next:gosub6000:goto470
  84. 730 gosub6000:poke214,21:print:print"      [208]rinting your responses ...":cl=0
  85. 732 poke250,7:poke251,64:fora=1to12:sys49152,nl%,l$(1)
  86. 733 cl=cl+1:c1$(cl)=l$(1)
  87. 734 cl=cl+1:c1$(cl)=an$(a,2):               cl=cl+1:c1$(cl)=an$(a,3)
  88. 735 cl=cl+1:c1$(cl)=an$(a,4):               cl=cl+1:c1$(cl)=" ":next
  89. 736 cl=.:fora=13tonp+2:sys49152,nl%,l$(1)
  90. 737 cl=cl+1:c2$(cl)=l$(1)
  91. 738 cl=cl+1:c2$(cl)=an$(a,2):               cl=cl+1:c2$(cl)=an$(a,3)
  92. 739 cl=cl+1:c2$(cl)=an$(a,4):               cl=cl+1:c2$(cl)=" ":next
  93. 745 :
  94. 750 sys49152,nl%,l$(1)
  95. 755 forb=1tonl%-1:cl=cl+1:c2$(cl)=l$(b):next
  96. 760 forb=1to6:cl=cl+1:c2$(cl)=an$(np+3,b+1):next
  97. 800 open4,4,7
  98. 810 fora=1tota+20:print#4," ";:next:print#4,st$:print#4:tl=0
  99. 850 fora=1to60:print#4,c1$(a)spc(40-len(c1$(a)))c2$(a):next
  100. 860 :
  101. 900 gosub6000:poke214,20:print
  102. 910 print"       [154][201]nsert a [204][207][193][196][211][212][193][210] disk and"
  103. 920 print" [154]press [211][208][193][195][197][154] to return to the menu.":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][205]ake 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][197]nter your response"
  123. 7107 print"           and press [210][197][212][213][210][206][154]."
  124. 7110 return
  125. 8000 poke214,cs+tc+1:print
  126. 8005 fora=1toel:print"                                      ":next
  127. 8010 fora=1toel:print"[145]";:next:return
  128. 8500 poke214,ls+tc+1:print
  129. 8505 fora=1toel:print"                                      ":next
  130. 8510 fora=1toel:print"[145]";:next:return
  131. 8900 :
  132. 9000 forl=1toel:print"[154]:":next:forl=1toel:print"[145]";:next:poke198,.:forl=1toel
  133. 9005 b$="":print"[154]:[164]";:fora=1to38
  134. 9010 geta$:ifa$=""then9010
  135. 9020 ifa$=chr$(13)thenprint"[157] ":an$(cq,l+1)=b$:return
  136. 9030 if(a$<>chr$(20))or(l=1)or(a>1)then9033
  137. 9032 print"[157] [145]"tab(38)"[154][164]";:l=l-1:a=38:b$=an$(cq,l+1):an$(cq,l+2)="":goto9010
  138. 9033 if(a$<>chr$(20))or(a=1)then9035
  139. 9034 a=a-1:b$=left$(b$,a-1):print"[157][157]  [157][157][154][164]";:goto9010
  140. 9035 if(a=38)and(l=el)then9010
  141. 9040 ifa$>=" "anda$<="z"then9070
  142. 9050 ifa$>="[193]"anda$<="[218]"then9070
  143. 9060 goto9010
  144. 9070 b$=b$+a$:print"[157]"a$;:poke212,.:print"[154][164]";:if(a=37)and(l<el)thena=38
  145. 9080 next:an$(cq,l+1)=b$:print"[157] ":next
  146. 9500 gosub6000:poke214,20:print:print"[150]  [217]ou [205][213][211][212] select at least one of the"
  147. 9510 print"     above items before continuing."
  148. 9530 fora=1to3000:next:gosub7000:return
  149. 59998 :
  150. 59999 :
  151. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  152. 60010 ifer<>63thenend
  153. 60020 load"hello connect",8
  154. 60098 :
  155. 60099 :
  156. 60100 poke53280, 0:poke53281, 0:print"[147]";
  157. 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]"
  158. 60102 print"[167]LOADSTARPRESENTS:[151][165]"
  159. 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]"
  160. 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]