home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / matches (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.4 KB  |  111 lines
  1. 2 poke53280,.:poke53281,.
  2. 10 gosub 10000
  3. 120 clr:restore
  4. 121 dimw$(10),a$(10),ca(10):n=10
  5. 130 z$="0000000000000000000000"
  6. 140 b$="                                      [160] "
  7. 141 b2$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  8. 142 e$=""
  9. 143 e$=e$+b$+b2$
  10. 144 e2$=e$+""+b$+b2$
  11. 150 d$=chr$(17):u$=chr$(145)
  12. 160 ms$(0)="incorrect. it's #"
  13. 170 ms$(1)="correct"
  14. 190 forj=1ton:readw$(j),a$(j):next j
  15. 200 :
  16. 210 print"[147]             m a t c h e s"
  17. 211 print"[154]           by elizabeth deal"
  18. 212 print"[158]word"tab(22)"[153]answer"
  19. 220 ht$=left$(z$,n)
  20. 240 :
  21. 250 forkt=1ton
  22. 260 gosub550
  23. 270 v=kt:gosub520:print"[152]. [158]"w$(kt)tab(23);
  24. 280 gosub520:print"[152]. [153]";a$(rn)
  25. 290 ht$=left$(ht$,rn-1)+"x"+mid$(ht$,rn+1)
  26. 300 ca(rn)=kt
  27. 310 next kt :print
  28. 330 ht$=left$(z$,n)
  29. 340 print"";
  30. 350 :
  31. 360 forkt=1ton
  32. 370 gosub550:w=rn
  33. 380 :
  34. 390 :
  35. 391 print"[154]"e$"which [153]answer #[154] matches [158]"chr$(34)w$(w)chr$(34)
  36. 392 print"[154]guess [152]:     [157][157][157][157][157]";
  37. 395 ht$=left$(ht$,rn-1)+"x"+mid$(ht$,rn+1)
  38. 400 gosub 8000:ifa$=""thengosub9000:goto380
  39. 410 xx=val(a$)
  40. 420 :
  41. 430 fc=0:ifca(w)=xxthenc=c+1:fc=1
  42. 440 printe2$w$(w)" - "a$" : "ms$(fc);
  43. 450 iffc=0thenprintca(w);
  44. 460 print
  45. 470 nextkt
  46. 480 print""c"[146][152] out of "n"[146][152] correct[145][145]"
  47. 490 gosub9000
  48. 510 goto 120
  49. 520 print""right$(" "+str$(v),2);:return
  50. 530 :
  51. 540 :
  52. 550 forj=1to1e3:rn=int(rnd(1)*n+1)
  53. 560 ifmid$(ht$,rn,1)="x"thennextj
  54. 570 :
  55. 580 return
  56. 600 data dog,bark
  57. 604 data cat,meow
  58. 606 data machine lang,fast
  59. 617 data candy,sweet
  60. 620 data lemon,sour
  61. 625 data fire,hot
  62. 626 data ice,cold
  63. 635 data basic,slow
  64. 686 data senior editor,mike maynard
  65. 688 data assoc editor,jim row
  66. 8000 a$="":print"[164]";:forx=1to25
  67. 8010 getb$:ifb$=""then8010
  68. 8015 ifb$=chr$(20)andx>1thenx=x-1:printb$;:a$=left$(a$,x-1):print"[157][164]";:goto8010
  69. 8020 ifb$=chr$(20)then8010
  70. 8025 ifb$=chr$(13)thenprint:return
  71. 8030 ifb$<"0"orb$>"9"then8010
  72. 8037 ifx>2then8010
  73. 8040 a$=a$+b$:print"[157]"b$"[164]";:next
  74. 9000 print"[145][145][145]      do you wish to quit (y/n)         ";
  75. 9001 print"                                        [157]"
  76. 9010 geta$:ifa$=""then9010
  77. 9011 ifa$="y"ora$="[217]"then9050
  78. 9012 ifa$="n"thenprint"[145][145]                                      ":return
  79. 9013 goto9010
  80. 9050 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  81. 9051 ifer<>63 then print"[147]":end
  82. 9052 load"hello connect",8,1
  83. 10000 :
  84. 10010 print"[147]"
  85. 10020 print
  86. 10030 print"           [158]l o a d s t a r"
  87. 10040 print"           [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  88. 10050 print
  89. 10060 print"    U{$60}[178]{$60}I U[129]{$60}{$60}I [158]{$60}{$60}[178]{$60}{$60} U{$60}{$60}I [178]  [178] [156]U{$60}{$60}{$60}I"
  90. 10070 print"    {$7d} {$7d} {$7d} [129]{$7d}  {$7d}   [158]{$7d}   {$7d}    {$7d}  {$7d} [156]{$7d}"
  91. 10080 print"    {$7d} {$7d} {$7d} [129][171]{$60}{$60}[179]   [158]{$7d}   {$7d}    [171]{$60}{$60}[179] [156]J{$60}{$60}{$60}I"
  92. 10090 print"            p r e s e n t s            "
  93. 10100 print"    {$7d} {$7d} {$7d} [129]{$7d}  {$7d}   [158]{$7d}   {$7d}    {$7d}  {$7d}     [156]{$7d}"
  94. 10110 print"    [177] [177] [177] [129][177]  [177]   [158][177]   J{$60}{$60}K [177]  [177] [156]J{$60}{$60}{$60}K"
  95. 10120 print
  96. 10130 print
  97. 10140 print"              [159]written by"
  98. 10150 print
  99. 10160 print"            elizabeth deal"
  100. 10170 print
  101. 10180 print
  102. 10190 print
  103. 10200 print"           copyright [129]1987"
  104. 10210 print
  105. 10220 print
  106. 10230 print"       [154]press space to continue"
  107. 10240 print
  108. 10250 print"";
  109. 10300 geta$:ifa$<>" "then10300
  110. 10305 return
  111.