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