home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SYNONYMS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  187 lines
  1. 1 POKE808,225:GOSUB111:DIMR$(8),W$(10),L(30),R(15):GOTO91
  2. 2 UR$="":UI$="":IFUL=.THENUL=80
  3. 3 POKEUC,.
  4. 4 GETUI$:IFUI$=""THEN4
  5. 5 POKES+4,33:POKES+1,25:FORW=1TO8:NEXT:POKES+1,.
  6. 6 IFUI$=CHR$(13)ANDLEN(UR$)>=1THENPOKEUC,1:PRINT" [157]":RETURN
  7. 7 IFUI$=CHR$(20)THEN10
  8. 8 IFLEN(UR$)=>ULTHEN4
  9. 9 GOSUB12:UR$=UR$+UI$:PRINTUI$;:GOTO4
  10. 10 IFLEN(UR$)<1THEN4
  11. 11 UR$=LEFT$(UR$,LEN(UR$)-1):PRINT"[157]  [157][157]";:GOTO4
  12. 12 IFLEN(US$)=.THEN15
  13. 13 FORUS=1TOLEN(US$):IFUI$<>MID$(US$,US,1)THENNEXT:UI$=""
  14. 14 RETURN
  15. 15 IFASC(UI$)=46THENRETURN
  16. 16 IFUI$=CHR$(32)THENRETURN
  17. 17 IFASC(UI$)<48ORASC(UI$)>57THEN19
  18. 18 RETURN
  19. 19 IFASC(UI$)<65ORASC(UI$)>90THEN21
  20. 20 RETURN
  21. 21 IFASC(UI$)<193ORASC(UI$)>218THENUI$="":RETURN
  22. 22 IFPEEK(UT)=UL%THENUI$=CHR$(ASC(UI$)-128):RETURN
  23. 23 RETURN
  24. 24 PRINT"[147]":POKEUT,UU%:POKE53281,9:POKE53280,8
  25. 25 PRINT""SPC(16)"MENU"
  26. 26 PRINT" --------------------------------------"
  27. 27 PRINTSPC(7)"1.   SYNONYMS"
  28. 28 PRINTSPC(7)"2.   STUDENT INSTRUCTIONS"
  29. 29 PRINTSPC(7)"3.   TEACHER INSTRUCTIONS"
  30. 30 PRINTSPC(7)"4.   MODIFICATION OF PROGRAM"
  31. 31 PRINTSPC(7)"5.   QUIT"
  32. 32 PRINT" --------------------------------------"
  33. 33 PRINTSPC(7)"PRESS A NUMBER KEY (1-5) ";
  34. 34 UL=1:US$="12345":GOSUB2:US$="":ONVAL(UR$)GOSUB117,36,40,63,35:GOTO24
  35. 35 POKE53281,.:POKE53280,.:PRINT"[147]";:POKE808,237:END
  36. 36 PRINT"[147]":POKEUT,UL%:POKE53281,.:POKE53280,.
  37. 37 UP=.:UT$=" [211][217][206][207][206][217][205][211]":UG$="[211]TUDENT [201]NST":GOSUB109:GOSUB121
  38. 38 GOSUB106:GOSUB109:PRINT"[206]OTE:[212]O ADVANCE FROM ONE QUESTION"
  39. 39 PRINTSPC(6)"TO THE NEXT PRESS THE [153][211][208][193][195][197] [194][193][210]":GOTO106
  40. 40 PRINT"[147]":POKEUT,UL%:POKE53281,2:POKE53280,10
  41. 41 UP=.:UT$=" [211][217][206][207][206][217][205][211]":UG$="[212]EACHER [201]NST":GOSUB109
  42. 42 PRINTSPC(6)"[212]O THE BEST OF OUR KNOWLEDGE,"
  43. 43 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  44. 44 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  45. 45 PRINT"   PLEASE CONTACT:"
  46. 46 PRINTSPC(6)"[195]OMMODORE [194]USINESS [205]ACHINES"
  47. 47 PRINTSPC(10)"3370 [208]HARMACY [193]VE.
  48. 48 [153][166]10)"ATNGINCOURT, (null)NTARIO"
  49. 49 [153][166]10)"LENANADA   (null)1(null) 2(null)4"
  50. 50 [153][166]10)"(416) 499-4292":UP[178]1:[141]106:[141]109
  51. 51 [153][166]5)"(null)ROGRAM (null)AME: (null)YNONYMS
  52. 52 PRINTSPC(5)"[215]RITTEN [194]Y  : [213]NKNOWN
  53. 53 [153][166]5)"(null)PGRADED PEEKY : (null)AY (null)HITE
  54. 54 PRINTSPC(5)"[212]HIS PROGRAM WILL RUN ON ANY
  55. 55 [153][166]9)"LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)":[141]106:[141]109
  56. 56 [153]"(null)SE THIS PROGRAM IN A CLASS TO ENRICH"
  57. 57 [153]"A STUDENT'S VOCABULARY.  (null)HIS PROGRAM"
  58. 58 [153]"IS DESIGNED TO BE USED BY INTERMEDIATE
  59. 59 PRINT"GRADE LEVEL STUDENTS, BUT CAN BE "
  60. 60 PRINT"EASILY MODIFIED FOR JUNIOR GRADE
  61. 61 [153]"STUDENTS.
  62. 62 PRINT"([211]EE [208][210][207][199][210][193][205][160][205][207][196][201][198][201][195][193][212][201][207][206][211] )":GOTO106
  63. 63 PRINT"[147]":POKEUT,UL%
  64. 64 UP=.:UT$=" [211][217][206][207][206][217][205][211]":UG$="[208]ROGRAM [205]OD":GOSUB109
  65. 65 PRINT"[205]ODIFICATION OF THIS PROGRAM CAN BE"
  66. 66 PRINT"ACCOMPLISHED BY ADDING MORE DATA "
  67. 67 PRINT"STATEMENTS TO IT.  [193]DD THE DATA"
  68. 68 PRINT"STATEMENTS FROM LINE 173 ON."
  69. 69 PRINT"[212]HE FIRST PIECE OF DATA IN THE LINE"
  70. 70 PRINT"IS THE NUMBER CORRESPONDING TO HOW"
  71. 71 PRINT"MANY WORDS THERE ARE IN THAT DATA
  72. 72 [153]"LINE.":[141]106:[141]109
  73. 73 [153]"(null)HE FIRST WORD IS THE WORD THE
  74. 74 PRINT"COMPUTER WILL ASK A SYNONYM FOR, AND
  75. 75 [153]"THE FOLLOWING WORDS ARE THE SYNONYMS
  76. 76 PRINT"THE COMPUTER RECOGNIZES.":GOSUB106:GOSUB109
  77. 77 PRINT"[193]LSO, YOU [205][213][211][212] ADD "CHR$(34)"1"CHR$(34)" TO THE NUMBER"
  78. 78 PRINT"IN LINE "CHR$(34)"172"CHR$(34)" FOR EVERY NEW DATA LINE"
  79. 79 PRINT"YOU ADD OR THE COMPUTER WILL NOT USE"
  80. 80 PRINT"THIS NEW INFORMATION.":GOSUB106:GOSUB109
  81. 81 PRINT"[197][216][193][205][208][204][197][146]:"
  82. 82 PRINT"183 DATA 7,"CHR$(34)"HOUSE[146]"CHR$(34)",DWELLING,COTTAGE
  83. 83 [153]",DOMICILE,LODGING,HABITATION,HOME"
  84. 84 [153]"(null)HE  "[199](34)"7"[199](34)"  IS  THE NUMBER WHICH TELLS"
  85. 85 [153]"THE COMPUTER HOW MANY WORDS ARE IN THE"
  86. 86 [153]"DATA LINE. (null)HE FIRST WORD, ENCLOSED BY"
  87. 87 [153]"A REVERSE KEY AND A SHIFTED REVERSE
  88. 88 PRINT"KEY, IS WHAT THE COMPUTER DISPLAYS;
  89. 89 [153]"THE OTHER WORDS ARE WORDS THE COMPUTER
  90. 90 PRINT"WILL ACCEPT  AS  SYNONYMS.":GOTO106
  91. 91 PRINT"[147]";:POKEUT,UU%:POKE53280,14:POKE53281,6
  92. 92 FORI=1TO38:PRINT"[166][146]";:NEXT
  93. 93 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  94. 94 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  95. 95 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  96. 96 PRINT""SPC(18)"[169]  [146]
  97. 97 [153][166]18)" WAIT   WAITSTEP
  98. 98 PRINTSPC(18)" [146]  [163][223]
  99. 99 [153][166]18)"(null)  WAIT
  100. 100 PRINTSPC(12)"C O M M O D O R E
  101. 101 [153][166]15)"EDUCATIONAL
  102. 102 PRINTSPC(16)"SOFTWARE
  103. 103 [153][200](UD$,24)[166]9)"PRESS SPACE BAR OR WAITWAIT":I[178].:[151]UO,.
  104. 104 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]104
  105. 105 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178].:[141]157:[137]24
  106. 106 [153][200](UD$,24)[166]6)"PRESS SPACE BAR TO CONTINUEWAIT":[151]UO,.
  107. 107 [161]UI$:[139]UI$[179][177]" "[167]107
  108. 108 [151]S[170]4,17:[151]S[170]1,35:[129]W[178]1[164]10:[130]:[151]S[170]1,.:[142]
  109. 109 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21)[201](UP$[170]UG$[170][196](UP),18)
  110. 110 [153]" --------------------------------------":[142]
  111. 111 UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  112. 112 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198
  113. 113 UD$[178]""
  114. 114 UP$[178]"                                       "
  115. 115 UT$[178]" (null)(null)(null)(null)(null)(null)(null)(null)   CLOSECLOSECLOSECLOSECLOSECLOSE"
  116. 116 S[178]54272:[129]X[178]S[164]S[170]23:[151]X,.:[130]:[151]S[170]24,15:[151]S[170]6,240:[142]
  117. 117 [153]"LOAD";:[140]:[151]53281,.:[151]53280,.
  118. 118 R$(1)[178]"RIGHT":R$(2)[178]"CORRECT":R$(3)[178]"FINE"
  119. 119 R$(4)[178]"GOOD":R$(5)[178]"CHECK"
  120. 120 [129]A[178]1[164]15:R(A)[178].:[130]:C[178].:[137]127
  121. 121 [153]"ATN SYNONYM IS A WORD IN THE VALNGLISH
  122. 122 PRINT"LANGUAGE WHICH HAS THE SAME OR NEARLY"
  123. 123 PRINT"THE SAME MEANING AS ANOTHER WORD."
  124. 124 PRINT"[201] CHOOSE A WORD -- YOU TYPE A SYNONYM.
  125. 125 [153]"RIGHT$F YOU CAN'T THINK OF A WORD, TYPE"
  126. 126 [153]"PRINT?WAIT AND RIGHT$ WILL GIVE YOU A SYNONYM.":[142]
  127. 127 [153]"LOAD":UP[178].
  128. 128 [140]:C[178]C[170]1:[135]N:UT$[178]" SYNONYMS"
  129. 129 [139]C[177]N[167]150
  130. 130 N1[178][181]([187](1)[172]N[170]1)
  131. 131 [139]R(N1)[178]1[167]130
  132. 132 R(N1)[178]1
  133. 133 [129]I[178]1[164]N1:[135]N2:[129]J[178]1[164]N2:[135]W$(J):[130]:[130]
  134. 134 [129]J[178]1[164]N2:L(J)[178]J:[130]
  135. 135 L(0)[178]N2:G[178]1
  136. 136 UG$[178]"QUESTION":[141]109
  137. 137 [153]"OPENWHAT IS A SYNONYM OF "W$(G)"?":[153]""[166]13);
  138. 138 UL[178]15:US$[178]"?ABCDEFGHIJKLMNOPQRSTUVWXYZ":[141]2:A$[178]UR$:[139]A$[178]"Q"[167][142]
  139. 139 [139]A$[178]"?"[167]147
  140. 140 [129]K[178]1[164]N2:[139]G[178]K[167]142
  141. 141 [139]A$[178]W$(K)[167]144
  142. 142 [130]:RE[178]RE[170]1:[139]RE[177]2[167]147
  143. 143 UP[178]UP[171]1:[153][166]15)"PRINTTRY AGAIN.":[141]155:[141]106:[137]136
  144. 144 OF[178][181]([187](1)[172]5)[170]1:[153]"SYS"[166]18[171][195](R$(OF))[173]2)R$(OF)"!!":[141]152
  145. 145 [139]V[179]4[167]128
  146. 146 [129]S[178]1[164]2000:[130]:V[178].:[153]"LOAD":[137]128
  147. 147 G1[178][181]([187](1)[172]L(0)[170]1):[139]G1[179]2[167]G1[178]G1[170]1
  148. 148 [153]"DEFA SYNONYM OF "W$(G)" IS "W$(L(G1))".":[141]106
  149. 149 L(G1)[178]L(L(0)):L(0)[178]L(0)[171]1:RE[178].:[137]128
  150. 150 [153]"LOAD"[166]7)"SYSSYNONYM DRILL COMPLETED..."
  151. 151 [141]106:[156]:[141]111:[137]24
  152. 152 [141]116:[151]S[170]5,8:[151]S[170]6,255:[151]S[170]4,21
  153. 153 [129]E[178]1[164]2:[129]F1[178]100[164]180[169]10:[151]S[170]1,F1:[129]F2[178]100[164]20[169][171]20
  154. 154 [151]S[170]15,F2:[130]:[130]:[130]:[137]116
  155. 155 [151]S[170]4,65:[151]S[170]2,10:[151]S[170]3,10
  156. 156 [129]E[178]15[164]5[169][171].25:[151]S[170]1,E:[130]:[151]S[170]1,.:[142]
  157. 157 [151]53280,.:[151]53281,.:[153]"LOAD"[166]11)"SYSPEEKROUGHT TO YOU BY"
  158. 158 [153][166]7)"VALVANSVILLE (null)RINTING LENORP.":[153][166]7)"";
  159. 159 [153]"(null)ODIFIED BY: (null)EAN (null)INSTEAD":[151]S[170]4,33
  160. 160 [129]E[178]1[164]33:[153]""[166]7)"PRINT#VALVANPRINT#SVILPRINT#LE (null)RPRINT#INTIPRINT#NG LENOPRINT#RP."
  161. 161 [153][166]20)"PRINT#(null)EAN PRINT#(null)INSPRINT#TEAD";
  162. 162 [151]S[170]1,8[170]E[172].5:[129]W[178]1[164]10:[130]:[151]S[170]1,.:[129]W[178]1[164]10:[130]
  163. 163 [153]""[166]7)"PRINT#VALVAPRINT#NSVIPRINT#LLE (null)PRINT#RINTPRINT#ING LENPRINT#ORP."
  164. 164 [153][166]20)"PRINT#(null)EAPRINT#N (null)INPRINT#STEAPRINT#D";
  165. 165 [151]S[170]1,20[173](E[173]4):[129]W[178]1[164]10:[130]:[151]S[170]1,.:[129]W[178]1[164]10:[130]
  166. 166 [153]""[166]7)"VALVPRINT#ANSVPRINT#ILLE PRINT#(null)RINPRINT#TING PRINT#LENORPPRINT#."
  167. 167 [153][166]20)"(null)EPRINT#AN (null)IPRINT#NSTEPRINT#AD";
  168. 168 [151]S[170]1,9[170]E[173]6:[129]W[178]1[164]10:[130]:[151]S[170]1,.:[129]W[178]1[164]10:[130]
  169. 169 [153]""[166]7)"VALPRINT#VANSPRINT#VILLPRINT#E (null)RIPRINT#NTINPRINT#G LENORPRINT#P."
  170. 170 [153][166]20)"(null)PRINT#EAN (null)PRINT#INSTPRINT#EAD";
  171. 171 [151]S[170]1,50[171]E[172]1.5:[129]W[178]1[164]10:[130]:[151]S[170]1,.:[129]W[178]1[164]10:[130]:[130]:[142]
  172. 172 [131]13
  173. 173 [131]6,"LARGEWAIT",BIG,GREAT,COLOSSAL,ENORMOUS,IMMENSE
  174. 174 [131]4,"HELPWAIT",ASSISTANCE,AID,SECURITY
  175. 175 [131]9,"IMITATEWAIT",COPY,MIRROR,REFLECT,REPRODUCE,REPEAT,ECHO,MATCH,PARALLEL
  176. 176 [131]5,"DISLOYALWAIT","UNFAITHFUL","FALSE","UNTRUE","INCONSTANT"
  177. 177 [131]5,"SIMILARWAIT",ALIKE,SAME,LIKE,RESEMBLING
  178. 178 [131]9,"CREEDWAIT",BELIEF,DOCTRINE,PERSUASION,CREDO,DOGMA,FAITH,TENET,FORMULA
  179. 179 [131]5,"MODELWAIT",PATTERN,PROTOTYPE,STANDARD,EXAMPLE
  180. 180 [131]7,"MESSWAIT",DISORDER,LITTER,JUMBLE,BOTCH,PREDICAMENT,DIFFICULTY
  181. 181 [131]6,"SMALLWAIT",INSIGNIFICANT,LITTLE,TINY,MINUTE,MINISCULE
  182. 182 [131]6,"STOPWAIT",HALT,STAY,ARREST,CHECK,STANDSTILL
  183. 183 [131]7,"HOUSEWAIT",DWELLING,RESIDENCE,DOMICILE,LODGING,HABITATION,HOME
  184. 184 [131]7,"PITWAIT",HOLE,HOLLOW,WELL,GULF,CRASH,ABYSS
  185. 185 [131]7,"PUSHWAIT",SHOVE,THRUST,PROD,POKE,BUTT,PRESS
  186. 186 [131]7,"REDWAIT",ROUGE,SCARLET,CRIMSON,FLAME,RUBY
  187.