home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 70 / 070.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  108 lines
  1. 10 poke53280,0:poke53281,0
  2. 20 dima$(2,8):fori=1to8:reada$(0,i),a$(1,i),a$(2,i):next:c$="[155][152][151][152][155]":gosub820
  3. 30 k=64:gosub450:forq=1to8:print"[147][159]":bx=1:ex=38:by=1:bd=1:bc=7:gosub470
  4. 40 print"[153]"tab(10)"[195]ommon [205]isquotations[159]":by=9:bd=3:gosub470:poke198,0
  5. 50 print"                                                  
  6. 60 [153]""a$(0,q):[151]214,11:[153]"on(NULL)lease enter correct quote below...
  7. 70 poke214,23:print"[145]                                       
  8. 80 [151]214,23:[153]"on"[163]35[171][195](a$(2,q)));"..."a$(2,q)
  9. 90 [151]214,17:[153]"on                                                    
  10. 100 print"                                      
  11. 110 [151]214,17:[153]"on"a$(0,q):[151]214,17:[153]"on";:li[178]60:w$[178]a$(0,q):[141]120:[141]660:[130]:[137]750
  12. 120 t[178][171]1:cp[178]0:x[178][194](211):y[178][194](214):l[178][194](648)[172]256[170]y[172]40[170]x:[139]li[178]0[167]li[178]39
  13. 130 in[178][171]1:[139][194](l)[178]32[176][194](l)[178]96[176][194](l)[178]160[176][194](l)[178]224[167]w$[178]"
  14. 140 fori=l+54272tol+54272+li:pokei,peek(646):next
  15. 150 geta$:on-(ti>15)gosub290:ifa$=""then150
  16. 160 on-(a$="")-2*(a$="[157]")-3*(a$=chr$(13))-4*(a$="")goto230,250,421,300
  17. 170 on-(a$=chr$(20))-2*(a$=chr$(148))-3*(a$="")goto310,320,390
  18. 180 if(a$<" "ora$>"_")thenifa$<"[193]"ora$>"[218]"then150
  19. 190 iflen(w$)>=lithen150
  20. 200 on-(cp<len(w$))-2*(cp>=len(w$))goto210,220
  21. 210 w$=left$(w$,cp)+a$+mid$(w$,cp+1-in):gosub280:cp=cp+1:gosub400:gosub410:goto150
  22. 220 w$=w$+a$:gosub280:cp=cp+1:printa$;:goto150
  23. 230 iflen(w$)thenifcp<len(w$)thengosub280:cp=cp+1:gosub290:poke212,0:print"";
  24. 240 goto150
  25. 250 iflen(w$)thenifcp>0thengosub280:cp=cp-1:gosub290
  26. 260 ifni=1thenin=-1:ni=0
  27. 270 goto150
  28. 280 iftthenreturn
  29. 290 pokel+cp,peek(l+cp)+128and255:ti$="000000":t=nott:return
  30. 300 in=notin:goto150
  31. 310 on-(cp=0)-2*(cp<len(w$)andcp>0)-3*(cp>=len(w$))goto150,340,380:goto150
  32. 320 iflen(w$)<lithenpoke631,32:poke632,157:poke198,2:ifin=-1thenni=1:in=0
  33. 330 goto150
  34. 340 ifcp>1then360
  35. 350 gosub280:w$=mid$(w$,cp+1):gosub400:goto370
  36. 360 gosub280:w$=left$(w$,cp-1)+mid$(w$,cp+1):gosub400
  37. 370 poke211,x+cp:poke214,y:sys58732:cp=cp-1:goto150
  38. 380 gosub280:w$=left$(w$,len(w$)-1):gosub400:print"[157]";:cp=cp-1:goto150
  39. 390 gosub280:cp=0:gosub290:goto150
  40. 400 poke211,x:poke214,y:sys58732:printw$" ";:return
  41. 410 poke211,cp+x:poke214,y:sys58732
  42. 420 return
  43. 421 gosub280:return
  44. 430 ifcp=len(w$)thenpoke211,x+cp:poke214,y:sys58732
  45. 440 return
  46. 450 ba$="[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][192]
  47. 460 a$[178]"(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd":[129]i[178]1[164]6:bd$[178]bd$[170]a$:[130]:[142]
  48. 470 oc[178][194](646):[151]646,bc:rv$[178]"":[139]rv[167]rv$[178]"
  49. 480 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  50. 490 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]
  51. 500 [151]211,bx:[151]214,by[170]1:[158]58732:[153]rv$[200](bd$,bd[172]3)"":[151]646,oc:rv[178]0:[142]
  52. 510 [131]"atn little knowledge is dangerous
  53. 520 data"[193] little learning is a dangerous thing","[193]lexander [208]ope
  54. 530 [131]"atn rose is a rose is a rose.","(NULL)ose is a rose is a rose is a rose.
  55. 540 data"[199]ertrude [211]tein","[193]las! [208]oor [217]orick. [201] knew him well.
  56. 550 [131]"atnlas! (NULL)oor (NULL)orick. right$ knew him, left$oratio.","(NULL)illiam (NULL)hakespeare
  57. 560 data"[205]usic has charms to soothe the savage   beast
  58. 570 [131]"(NULL)usic hath charms to soothe a savage    breast.","(NULL)illiam lenongreve
  59. 580 data"[208]ride goeth before the fall...
  60. 590 [131]"(NULL)ride goeth before destruction...","(NULL)roverbs 6:18
  61. 600 data"[205]oney is the root of all evil.
  62. 610 [131]"(NULL)he love of money is the root of all    evil.","right$ (NULL)imothy 6:10
  63. 620 data"[201] escaped by the skin of my teeth
  64. 630 [131]"right$ escaped with the skin of my teeth.","mid$ob 19:20
  65. 640 data"[211]pare the rod and spoil the child."
  66. 650 data"[200]e who spares the rod hates his son.","[208]roverbs"
  67. 660 print"        [200]mmmmmm....      "
  68. 670 j$="":k$="":forj=1tolen(w$):a=asc(mid$(w$,j,1)):ifa>kthenj$=j$+chr$(a)
  69. 680 next:forj=1tolen(a$(1,q)):a=asc(mid$(a$(1,q),j,1)):ifa>kthenk$=k$+chr$(a)
  70. 690 next:ms$="        [215][210][207][206][199][207]!       "
  71. 700 ifj$=k$thenc=c+1:ms$="       [212][200][193][212]'[211][160][210][201][199][200][212]!      "
  72. 710 print"                                                  
  73. 720 [153]"onononlenorrect quote is:sys":[153]a$(1,q)
  74. 730 [129]ii[178]1[164]15:[129]i2[178]1[164][195](c$):[153]""[202](c$,i2,1)[166]20[171][195](ms$)[173]2)ms$:[139][194](197)[179][177]64[167]ii[178]15
  75. 740 [130]:[130]:[142]
  76. 750 [153]"loadopen(NULL)ou scoredsys"c"openout of sys8open.
  77. 760 print"[159][195]are to try again? ([158][217][159]/[158][206][159])
  78. 770 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]770
  79. 780 [139]a$[178]"y"[167][138]
  80. 790 a$[178]"hello connect":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[179][177]63[167][153]"load":[128]
  81. 800 q$[178][199](34):[151]646,[194](53281):[153]"load":[153]"load"q$a$q$",8
  82. 810 print"run":poke631,13:poke632,13:poke198,2:end
  83. 820 poke53280,0:poke53281,0
  84. 830 print"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
  85. 840 a$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  86. 850 b$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  87. 860 cc$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
  88. 870 printcc$;:fori=1to3:printa$cc$b$cc$;:next
  89. 880 print"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
  90. 890 fori=217to242:pokei,peek(i)or128:next
  91. 900 a$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
  92. 910 poke214,12:print"[145]";:fori=1to31:printa$;:next:print"[155]"
  93. 920 fori=1to5:reada$:gosub930:next:goto970
  94. 930 printspc(20-len(a$)/2)""a$:a$="":return
  95. 940 data"[195][207][205][205][207][206][160][205][201][211][209][213][207][212][193][212][201][207][206][211]","by [202]eff [202]ones"
  96. 950 data"[208]ublished on [204][207][193][196][211][212][193][210] #70","[211]ubscriptions 1-800-831-2694"
  97. 960 data"[195]opyright ([195]) 1990 [211]oftdisk"
  98. 970 print"[159][197]dit the misquotation with cursor.
  99. 980 [153]" (NULL)paces and punctuation don't matter.
  100. 990 print" [200]int:  [193]ssume that the case is correct,";
  101. 1000 print" so don't change any case presented.
  102. 1010 [153]"    (NULL)here are eight misquotations, four
  103. 1020 print"from [212]he [194]ible, four from literature."
  104. 1030 c%=c%+1:ifc%>len(c$)thenc%=1
  105. 1040 poke214,24:print"[145]"left$(c$,c%)"   [211] [208][160][193][160][195] [197] [160] [212] [207] [160] [195][160][207] [206] [212] [201] [206] [213] [197]"
  106. 1050 geta$:ifa$<>" "then1030
  107. 1060 return
  108.