CryptoGram finished!

[Jaze]

This is a code word game. You are given a phrase in code. You have to decode it. These types of puzzles are often found in a newspaper. I hope you like it.

Code: QB64: [Select]

1. ON ERROR GOTO crap
2. GOTO beginning
3. crap:
4. PRINT "Error, Line number"
5. PRINT ERR, _ERRORLINE
6. END
7. beginning:
8. WIDTH 80, 50
9. _FULLSCREEN
10. RANDOMIZE TIMER
11. CONST TRUE = 1
12. CONST FALSE = 0
13. CONST numberOfLines = 15
14. CONST Easy = 1
15. CONST Normal = 2
16. CONST arrowKeyMove$ = "L64O2C"
17. CONST enterKeyHit$ = "L45O4C"
18.  
19. DIM SHARED leftArrow$: leftArrow$ = CHR$(0) + "K"
20. DIM SHARED rightArrow$: rightArrow$ = CHR$(0) + "M"
21. DIM SHARED upArrow$: upArrow$ = CHR$(0) + "H"
22. DIM SHARED downArrow$: downArrow$ = CHR$(0) + "P"
23. DIM SHARED translationMatrix$(1 TO 26, 1 TO 2): FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": NEXT cl
24. DIM SHARED codedPhrase$: codedPhrase$ = ""
25. DIM SHARED answerPhrase$: answerPhrase$ = ""
26. DIM SHARED highlightedLetter: highlightedLetter = 0
27. DIM SHARED workingLines$(1 TO numberOfLines)
28. DIM SHARED initiallyCodedLines$(1 TO numberOfLines)
29. DIM SHARED answerLines$(1 TO numberOfLines)
30. DIM SHARED leftPositions(1 TO numberOfLines) AS INTEGER
31. DIM SHARED maxLineNumber: maxLineNumber = 0
32. DIM SHARED usersCode$(1 TO 26, 1 TO 2): FOR x = 1 TO 26: usersCode$(x, 1) = CHR$(x + 64): usersCode$(x, 2) = "-": NEXT x
33. DIM SHARED mode: mode = Normal
34. DIM SHARED loaded: loaded = FALSE
35. DIM SHARED numberOfPhrases
36. FOR cl = 1 TO numberOfLines
37.     workingLines$(cl) = ""
38.     initiallyCodedLines$(cl) = ""
39.     answerLines$(cl) = ""
40.     leftPositions(cl) = 0
41. NEXT cl
42.  
43. CALL Menu
44.  
45. SUB Menu
46.     opt = 1
47.     mode = Normal
48.     PrintAgain:
49.     COLOR 14, 2: CLS: tabs = 25
50.     a$ = "Main Menu": LOCATE 13, Center(a$): PRINT a$:
51.     LOCATE 14, Center(a$) - 1: PRINT "-----------"
52.     COLOR 14, 2: a$ = "Mode = Easy  Normal":
53.     LOCATE 16, Center(a$): PRINT "Mode = ";
54.     IF mode = Easy THEN
55.         COLOR 14, 0
56.     ELSEIF mode = Normal THEN
57.         COLOR 14, 2
58.     END IF
59.     PRINT "Easy";: COLOR 14, 2: PRINT " ";
60.     IF mode = Normal THEN
61.         COLOR 14, 0
62.     ELSEIF mode = Normal THEN
63.         COLOR 14, 2
64.     END IF
65.     PRINT "Normal"
66.  
67.     LOCATE 19, tabs
68.     COLOR 15, 2: PRINT "1.) ";
69.     IF opt = 1 THEN
70.         COLOR 14, 0:
71.     ELSE
72.         COLOR 14, 2
73.     END IF
74.     PRINT "Instructions"
75.  
76.     LOCATE 21, tabs
77.     COLOR 15, 2: PRINT "2.) ";
78.     IF opt = 2 THEN
79.         COLOR 14, 0
80.     ELSE
81.         COLOR 14, 2
82.     END IF
83.     PRINT "New Game"
84.  
85.     LOCATE 23, tabs
86.     COLOR 15, 2: PRINT "3.) ";
87.     IF opt = 3 THEN
88.         COLOR 14, 0
89.     ELSE
90.         COLOR 14, 2
91.     END IF
92.     PRINT "Load a Saved Game"
93.  
94.     LOCATE 25, tabs
95.     COLOR 15, 2: PRINT "4.) ";
96.     IF opt = 4 THEN
97.         COLOR 14, 0
98.     ELSE
99.         COLOR 14, 2
100.     END IF
101.     PRINT "Add New Phrase to Data File"
102.  
103.     LOCATE 27, tabs
104.     COLOR 15, 2: PRINT "5.) ";
105.     IF opt = 5 THEN
106.         COLOR 14, 0
107.     ELSE
108.         COLOR 14, 2
109.     END IF
110.     PRINT "End Game"
111.     DO
112.         choice$ = INKEY$
113.         SELECT CASE choice$
114.             CASE upArrow$
115.                 opt = opt - 1
116.                 IF opt = 0 THEN opt = 5
117.                 PLAY arrowKeyMove$
118.                 GOTO PrintAgain
119.             CASE leftArrow$
120.                 IF mode = Easy THEN
121.                     mode = Normal
122.                 ELSEIF mode = Normal THEN
123.                     mode = Easy
124.                 END IF
125.                 PLAY arrowKeyMove$
126.                 GOTO PrintAgain
127.             CASE downArrow$
128.                 opt = opt + 1
129.                 IF opt = 6 THEN opt = 1
130.                 PLAY arrowKeyMove$
131.                 GOTO PrintAgain
132.             CASE rightArrow$
133.                 IF mode = Easy THEN
134.                     mode = Normal
135.                 ELSEIF mode = Normal THEN
136.                     mode = Easy
137.                 END IF
138.                 PLAY arrowKeyMove$
139.                 GOTO PrintAgain
140.             CASE CHR$(13)
141.                 PLAY enterKeyHit$
142.                 IF opt = 1 THEN CALL Instructions
143.                 IF opt = 2 THEN CALL Main
144.                 IF opt = 3 THEN CALL LoadGame
145.                 IF opt = 4 THEN CALL AddPhrase
146.                 IF opt = 5 THEN END
147.                 GOTO PrintAgain
148.             CASE "1"
149.                 PLAY enterKeyHit$
150.                 CALL Instructions
151.                 GOTO PrintAgain
152.             CASE "2"
153.                 PLAY enterKeyHit$
154.                 loaded = FALSE
155.                 CALL Main
156.                 GOTO PrintAgain
157.             CASE "3"
158.                 PLAY enterKeyHit$
159.                 loaded = TRUE
160.                 CALL LoadGame
161.                 GOTO PrintAgain
162.             CASE "4"
163.                 PLAY enterKeyHit$
164.                 CALL AddPhrase
165.                 GOTO PrintAgain
166.             CASE "5"
167.                 PLAY enterKeyHit$
168.                 END
169.         END SELECT
170.     LOOP UNTIL choice$ = CHR$(13) OR choice$ = "5"
171. END SUB
172.  
173. SUB Instructions
174.     COLOR 10, 13: CLS
175.     a$ = "A random phrase picked from " + CHR$(34) + "Phrases.txt" + CHR$(34) + " will be displayed in code."
176.     LOCATE 12, Center(a$): PRINT a$
177.     a$ = "The goal is to decode the phrase. The coded letters are in one color": LOCATE 14, Center(a$): PRINT a$
178.     a$ = "and the letters you choose in another color. In easy mode, incorrect": LOCATE 16, Center(a$): PRINT a$
179.     a$ = "letters are displayed in yet another color. Different types": LOCATE 18, Center(a$): PRINT a$
180.     a$ = "of hints are available from the hint menu.": LOCATE 20, Center(a$): PRINT a$
181.     a$ = "Use the arrow keys to select the letter you wish to change. Type": LOCATE 25, Center(a$): PRINT a$
182.     a$ = "in the letter you wish to change it to. Push the [ESC] key": LOCATE 27, Center(a$): PRINT a$
183.     a$ = "to reset the puzzle to the starting code.": LOCATE 29, Center(a$): PRINT a$
184.  
185.     a$ = "Hit any key to return to the Main Menu": LOCATE 45, Center(a$): COLOR 11, 13: PRINT a$: l$ = P$
186. END SUB
187.  
188. SUB AddPhrase
189.     COLOR 11, 13
190.     CLS
191.     a$ = "Type in the phrase you want to add. Do not hit": LOCATE 15, Center(a$): PRINT a$
192.     a$ = " the [ENTER] key until you've entered the entire phrase. ": LOCATE 17, Center(a$): PRINT a$
193.     a$ = "Don't worry if your entry passes the end of the screen": LOCATE 19, Center(a$): PRINT a$
194.     a$ = "and continues on to the next line. In fact, longer": LOCATE 21, Center(a$): PRINT a$
195.     a$ = "phrases are easier to decode.": LOCATE 23, Center(a$): PRINT a$
196.  
197.     LOCATE 28, 10: LINE INPUT "Type in your phrase: ", newPhrase$
198.     maxIndex = FileStatus
199.     DIM fileArray$(1 TO maxIndex + 1)
200.     OPEN "Phrases.txt" FOR INPUT AS #1
201.     FOR index = 1 TO maxIndex
202.         LINE INPUT #1, fileArray$(index)
203.     NEXT index
204.     CLOSE #1
205.  
206.     fileArray$(maxIndex + 1) = newPhrase$
207.     OPEN "Phrases.txt" FOR OUTPUT AS #1
208.     FOR index = 1 TO maxIndex + 1
209.         PRINT #1, fileArray$(index)
210.     NEXT index
211.     PRINT #1, "EOF"
212.     CLOSE #1
213. END SUB
214.  
215.  
216. SUB LoadGame
217.     maxLineNumber = 0
218.     FOR index = 1 TO 26
219.         translationMatrix$(index, 1) = "": translationMatrix$(index, 2) = ""
220.         usersCode$(index, 1) = "": usersCode$(index, 2) = ""
221.     NEXT index
222.     codedPhrase$ = ""
223.     answerPhrase$ = ""
224.     highlightedLetter = 0
225.     mode = 0
226.     FOR index = 1 TO 15
227.         workingLines$(index) = ""
228.         initiallyCodedLines$(index) = ""
229.         answerLines$(index) = ""
230.         leftPositions(index) = 0
231.     NEXT index
232.  
233.     OPEN "CryptoGram" FOR INPUT AS #1
234.     LINE INPUT #1, mLN$: maxLineNumber = VAL(mLN$)
235.     FOR index = 1 TO 26
236.         LINE INPUT #1, translationMatrix$(index, 1)
237.         LINE INPUT #1, translationMatrix$(index, 2)
238.         LINE INPUT #1, usersCode$(index, 1)
239.         LINE INPUT #1, usersCode$(index, 2)
240.     NEXT index
241.     LINE INPUT #1, codedPhrase$
242.     LINE INPUT #1, answerPhrase$
243.     LINE INPUT #1, hL$: PRINT hL$: g$ = P$: highlightedLetter = VAL(hL$)
244.     LINE INPUT #1, m$: mode = VAL(m$)
245.     FOR index = 1 TO maxLineNumber
246.         LINE INPUT #1, workingLines$(index)
247.         LINE INPUT #1, initiallyCodedLines$(index)
248.         LINE INPUT #1, answerLines$(index)
249.         LINE INPUT #1, lP$: leftPositions(index) = VAL(lP$)
250.     NEXT index
251.     CLOSE #1
252.     loaded = TRUE: CALL Main
253. END SUB
254.  
255. SUB SaveGame
256.     OPEN "CryptoGram" FOR OUTPUT AS #1
257.     PRINT #1, S$(maxLineNumber)
258.     FOR index = 1 TO 26
259.         PRINT #1, translationMatrix$(index, 1)
260.         PRINT #1, translationMatrix$(index, 2)
261.         PRINT #1, usersCode$(index, 1)
262.         PRINT #1, usersCode$(index, 2)
263.     NEXT index
264.     PRINT #1, codedPhrase$
265.     PRINT #1, answerPhrase$
266.     PRINT #1, S$(highlightedLetter)
267.     PRINT #1, S$(mode)
268.     FOR index = 1 TO maxLineNumber
269.         PRINT #1, workingLines$(index)
270.         PRINT #1, initiallyCodedLines$(index)
271.         PRINT #1, answerLines$(index)
272.         PRINT #1, S$(leftPositions(index))
273.     NEXT index
274.     CLOSE #1
275.     _DELAY (0.25)
276.     PLAY arrowKeyMove$
277. END SUB
278.  
279. SUB Main
280.     IF loaded = FALSE THEN
281.  
282.         COLOR 15, 1
283.         'first, pick a phrase
284.         randomPhrase = INT(RND * FileStatus) + 1
285.         OPEN "Phrases.txt" FOR INPUT AS #1
286.         FOR x = 1 TO randomPhrase
287.             LINE INPUT #1, answerPhrase$
288.         NEXT x
289.         CLOSE #1
290.  
291.         'second, create a code
292.         usedAlphabet$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
293.         FOR allLetters = 1 TO 26
294.             translationMatrix$(allLetters, 1) = CHR$(allLetters + 64)
295.             newRndLet:
296.             randomLetter = INT(RND * LEN(usedAlphabet$)) + 1
297.             translationMatrix$(allLetters, 2) = MID$(usedAlphabet$, randomLetter, 1)
298.             IF translationMatrix$(allLetters, 1) = translationMatrix$(allLetters, 2) THEN GOTO newRndLet
299.             usedAlphabet$ = MID$(usedAlphabet$, 1, randomLetter - 1) + MID$(usedAlphabet$, randomLetter + 1, LEN(usedAlphabet$))
300.         NEXT allLetters
301.  
302.         'third: put the phrase in code
303.         FOR letter = 1 TO LEN(answerPhrase$)
304.             answerLetter$ = MID$(answerPhrase$, letter, 1)
305.             upAnsLet$ = UCASE$(answerLetter$)
306.             answerLetterNumber = ASC(upAnsLet$) - 64
307.             IF ASC(upAnsLet$) >= 65 AND ASC(upAnsLet$) <= 90 THEN
308.                 upCodeLet$ = translationMatrix$(ASC(upAnsLet$) - 64, 2)
309.                 IF ASC(answerLetter$) >= 65 AND ASC(answerLetter$) <= 90 THEN
310.                     codedLetter$ = upCodeLet$
311.                 ELSE
312.                     codedLetter$ = LCASE$(upCodeLet$)
313.                 END IF
314.             ELSE
315.                 codedLetter$ = answerLetter$
316.             END IF
317.             codedPhrase$ = codedPhrase$ + codedLetter$
318.         NEXT letter
319.  
320.         'next on the list is to center the phrases
321.         lineNumber = 0
322.         shrinkingCode$ = codedPhrase$
323.         shrinkingAnswer$ = answerPhrase$
324.         DO
325.             checking = 60
326.             DO
327.                 wheresSpace$ = MID$(shrinkingAnswer$, checking, 1)
328.                 checking = checking - 1
329.             LOOP UNTIL wheresSpace$ = CHR$(32)
330.             lineNumber = lineNumber + 1
331.             answerLines$(lineNumber) = MID$(shrinkingAnswer$, 1, checking)
332.             workingLines$(lineNumber) = MID$(shrinkingCode$, 1, checking)
333.             initiallyCodedLines$(lineNumber) = MID$(shrinkingCode$, 1, checking)
334.             leftPositions(lineNumber) = Center(answerLines$(lineNumber))
335.             shrinkingAnswer$ = MID$(shrinkingAnswer$, checking + 1, LEN(shrinkingAnswer$))
336.             shrinkingCode$ = MID$(shrinkingCode$, checking + 1, LEN(shrinkingCode$))
337.         LOOP UNTIL LEN(shrinkingAnswer$) <= 60
338.         lineNumber = lineNumber + 1
339.         answerLines$(lineNumber) = shrinkingAnswer$
340.         leftPositions(lineNumber) = Center(answerLines$(lineNumber))
341.         workingLines$(lineNumber) = shrinkingCode$
342.         initiallyCodedLines$(lineNumber) = shrinkingCode$
343.  
344.         maxLineNumber = lineNumber
345.  
346.         highlightedLetter = 1
347.     END IF
348.     refresh = TRUE
349.     DO
350.         userInput$ = UCASE$(INKEY$)
351.         SELECT CASE userInput$
352.             CASE "1"
353.                 PLAY enterKeyHit$
354.                 refresh = TRUE
355.                 CALL Hints
356.             CASE "2"
357.                 PLAY enterKeyHit$
358.                 CALL SaveGame
359.             CASE CHR$(27)
360.                 PLAY enterKeyHit$ + enterKeyHit$ + arrowKeyMove$
361.                 CALL RestartPuzzle
362.                 refresh = TRUE
363.             CASE "5"
364.                 PLAY enterKeyHit$
365.                 CALL Menu
366.             CASE leftArrow$
367.                 PLAY arrowKeyMove$
368.                 IF highlightedLetter > 1 THEN
369.                     highlightedLetter = highlightedLetter - 1
370.                 ELSE
371.                     highlightedLetter = 26
372.                 END IF
373.                 refresh = TRUE
374.             CASE rightArrow$
375.                 PLAY arrowKeyMove$
376.                 IF highlightedLetter < 26 THEN
377.                     highlightedLetter = highlightedLetter + 1
378.                 ELSE
379.                     highlightedLetter = 1
380.                 END IF
381.                 refresh = TRUE
382.             CASE "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
383.                 PLAY enterKeyHit$
384.                 usersCode$(highlightedLetter, 2) = userInput$
385.                 CALL Switch(userInput$)
386.                 refresh = TRUE
387.         END SELECT
388.  
389.         IF refresh = TRUE THEN
390.             refresh = FALSE
391.             CALL ShowPuzzle
392.         END IF
393.     LOOP UNTIL userInput$ = "9" OR CorrectPhrase = TRUE
394.     IF CorrectPhrase = TRUE THEN
395.         COLOR 11, 0
396.         LOCATE 25, Center("success")
397.         PRINT "SUCCESS!!"
398.         _DELAY (10)
399.     END IF
400. END SUB
401.  
402. SUB Hints
403.     nope:
404.     COLOR 14, 1
405.     CLS
406.     a$ = "You have an option of 3 types of hints to choose from.": LOCATE 10, Center(a$): PRINT a$
407.     a$ = "Wheel of Fortune reveals the letters for R, S, T, L, N and E": LOCATE 11, Center(a$): PRINT a$
408.     a$ = "Or you can choose to reveal a single letter.": LOCATE 12, Center(a$): PRINT a$
409.     a$ = "Example phrase = Rmtleyr ewatbr": LOCATE 14, Center(a$): COLOR 10, 1: PRINT "Example phrase ";: COLOR 14, 1: PRINT "=";: COLOR 10, 1: PRINT " Rmtleyr ewatbr": COLOR 14, 1
410.     a$ = "1.) Wheel of Fortune: Example phrase = Emtlele ewrtse": LOCATE 17, Center(a$): PRINT "1.) Wheel of Fortune: ";: COLOR 10, 1: PRINT "Example phrase = ";
411.     COLOR 12, 1: PRINT "E";: COLOR 10, 1: PRINT "mtle";: COLOR 12, 1: PRINT "le";: COLOR 10, 1: PRINT " ew";: COLOR 12, 1: PRINT "r";: COLOR 10, 1: PRINT "t";: COLOR 12, 1: PRINT "se": COLOR 14, 1
412.     a$ = "2.) Reveal a single random letter: Rmtleyr ewatbr": LOCATE 19, Center(a$): PRINT "2.) Reveal a single random letter: ";: COLOR 12, 1: PRINT "E";: COLOR 10, 1
413.     PRINT "mtley";: COLOR 12, 1: PRINT "e";: COLOR 10, 1: PRINT " ewrts";: COLOR 12, 1: PRINT "e": COLOR 14, 1
414.     a$ = "3.) Choose a single coded letter to decode:": LOCATE 21, Center(a$): PRINT a$
415.     a$ = "    Pick any letter in example phrase": LOCATE 22, Center(a$): PRINT "    Pick any letter in ";: COLOR 10, 1: PRINT "R";
416.     COLOR 12, 1: PRINT "m";: COLOR 10, 1: PRINT "tleyr ewatbr";: COLOR 14, 1
417.     a$ = "      to be revealed in example phrase": LOCATE 23, Center(a$): PRINT "      to be revealed in ";: COLOR 10, 1: PRINT "E";: COLOR 12, 1: PRINT "x";: COLOR 10, 1: PRINT "ample phrase": COLOR 14, 1
418.     a$ = "4.) Reveal a letter you think is in the answer phrase:": LOCATE 25, Center(a$): PRINT a$
419.     a$ = "Choosing " + CHR$(34) + "K" + CHR$(34) + " wouldn't reveal anything. Choosing " + CHR$(34) + "L" + CHR$(34): LOCATE 26, Center(a$): PRINT a$
420.     a$ = " Reveals the " + CHR$(34) + "L" + CHR$(34) + " -- example phrase": LOCATE 27, Center(a$): PRINT "reveals the " + CHR$(34) + "L" + CHR$(34) + " -- ";
421.     COLOR 10, 1: PRINT "Examp";: COLOR 12, 1: PRINT "l";: COLOR 10, 1: PRINT "e phrase": COLOR 14, 1
422.     a$ = "5.) Switch to easy mode": LOCATE 29, Center(a$): PRINT a$
423.     a$ = "6.) Display every coded letter and the letter": LOCATE 31, Center(a$): PRINT a$
424.     a$ = "       it should be for 2 seconds": LOCATE 32, Center(a$): PRINT a$
425.  
426.  
427.  
428.     a$ = "7.) Cancel": LOCATE 35, Center(a$): PRINT a$
429.     PLAY arrowKeyMove$
430.     r$ = P$
431.     PLAY enterKeyHit$
432.     SELECT CASE r$
433.         CASE "1"
434.             r$ = translationMatrix$(18, 2): re = ASC(r$) - 64: highlightedLetter = re: CALL Switch("R"): usersCode$(re, 2) = "R"
435.             ss$ = translationMatrix$(19, 2): se = ASC(ss$) - 64: highlightedLetter = se: CALL Switch("S"): usersCode$(se, 2) = "S"
436.             t$ = translationMatrix$(20, 2): te = ASC(t$) - 64: highlightedLetter = te: CALL Switch("T"): usersCode$(te, 2) = "T"
437.             l$ = translationMatrix$(12, 2): le = ASC(l$) - 64: highlightedLetter = le: CALL Switch("L"): usersCode$(le, 2) = "L"
438.             n$ = translationMatrix$(14, 2): ne = ASC(n$) - 64: highlightedLetter = ne: CALL Switch("N"): usersCode$(ne, 2) = "N"
439.             e$ = translationMatrix$(5, 2): ee = ASC(e$) - 64: highlightedLetter = ee: CALL Switch("E"): usersCode$(ee, 2) = "E"
440.         CASE "2"
441.             gotThis:
442.             tryAgain:
443.             there = FALSE
444.             someRandom$ = CHR$((INT(RND * 26)) + 65)
445.             FOR x = 1 TO maxLineNumber
446.                 FOR y = 1 TO LEN(answerLines$(x))
447.                     IF UCASE$(MID$(answerLines$(x), y, 1)) = someRandom$ THEN there = TRUE
448.                 NEXT y
449.             NEXT x
450.             IF there = FALSE THEN GOTO tryAgain
451.             itShouldBeCodedAs$ = translationMatrix$(ASC(someRandom$) - 64, 2)
452.             usersAttempt$ = usersCode$(ASC(itShouldBeCodedAs$) - 64, 2)
453.             IF usersAttempt$ = someRandom$ THEN GOTO tryAgain
454.             highlightedLetter = ASC(itShouldBeCodedAs$) - 64
455.             Switch (someRandom$)
456.             usersCode$(highlightedLetter, 2) = someRandom$
457.         CASE "3"
458.             PRINT: PRINT
459.             a$ = "What code letter do you want to know the answer letter for?    ": LOCATE , Center(a$): PRINT a$;
460.             invlInp:
461.             someCodedLetter$ = UCASE$(P$)
462.             ascSomeCodedLetter = ASC(someCodedLetter$) - 64
463.             correctLetter$ = ""
464.             FOR index = 1 TO 26
465.                 IF translationMatrix$(index, 2) = someCodedLetter$ THEN correctLetter$ = translationMatrix$(index, 1)
466.             NEXT index
467.             highlightedLetter = ascSomeCodedLetter
468.             CALL Switch(correctLetter$)
469.         CASE "4"
470.             a$ = "What answer letter do you want the code for?    ": LOCATE , Center(a$): PRINT a$;
471.             invlInpt:
472.             d$ = UCASE$(P$)
473.             da = ASC(d$) - 64
474.  
475.             ans$ = translationMatrix$(da, 2)
476.             highlightedLetter = da
477.             CALL Switch(ans$)
478.         CASE "5"
479.             mode = Easy
480.         CASE "6"
481.             COLOR 15, 1
482.             CLS
483.             FOR index = 1 TO 26
484.                 LOCATE 22, ((80 - 52) / 2) + (index * 2)
485.                 PRINT translationMatrix$(index, 1)
486.                 LOCATE 24, ((80 - 52) / 2) + (index * 2)
487.                 PRINT translationMatrix$(index, 2)
488.             NEXT index
489.             _DELAY (2)
490.         CASE "7"
491.             'just go away
492.         CASE ELSE
493.             GOTO nope
494.     END SELECT
495.     highlightedLetter = 1
496. END SUB
497.  
498. FUNCTION CorrectPhrase
499.     ag = TRUE
500.     FOR x = 1 TO maxLineNumber
501.         IF workingLines$(x) <> answerLines$(x) THEN ag = FALSE
502.     NEXT x
503.     CorrectPhrase = ag
504. END FUNCTION
505.  
506. SUB Switch (withThis$)
507.     DIM newLines$(1 TO maxLineNumber): FOR i = 1 TO maxLineNumber: newLines$(i) = "": NEXT i
508.     FOR l = 1 TO maxLineNumber
509.         FOR c = 1 TO LEN(workingLines$(l))
510.             letter$ = CHR$(highlightedLetter + 64)
511.             initialLetter$ = MID$(initiallyCodedLines$(l), c, 1)
512.             wcl$ = MID$(workingLines$(l), c, 1)
513.             IF ASC(initialLetter$) >= 65 AND ASC(initialLetter$) <= 90 THEN
514.                 withThis$ = UCASE$(withThis$)
515.             ELSEIF ASC(initialLetter$) >= 97 AND ASC(initialLetter$) <= 122 THEN
516.                 withThis$ = LCASE$(withThis$)
517.             ELSE
518.             END IF
519.             IF letter$ = UCASE$(initialLetter$) THEN
520.                 newLines$(l) = newLines$(l) + withThis$
521.             ELSE
522.                 newLines$(l) = newLines$(l) + wcl$
523.             END IF
524.         NEXT c 'haracter
525.     NEXT l 'ine
526.     FOR index = 1 TO maxLineNumber
527.         workingLines$(index) = newLines$(index)
528.     NEXT index
529. END SUB
530.  
531. SUB RestartPuzzle
532.     FOR c = 1 TO maxLineNumber
533.         workingLines$(c) = initiallyCodedLines$(c)
534.     NEXT c
535.     FOR xx = 1 TO 26
536.         usersCode$(xx, 2) = "-"
537.     NEXT xx
538. END SUB
539.  
540. SUB ShowPuzzle
541.     COLOR 10, 1: CLS
542.  
543.     FOR eachLine = 1 TO maxLineNumber
544.         LOCATE 13 + eachLine, leftPositions(eachLine)
545.         FOR eachLetter = 1 TO LEN(workingLines$(eachLine))
546.             f$ = MID$(workingLines$(eachLine), eachLetter, 1)
547.             icl$ = MID$(initiallyCodedLines$(eachLine), eachLetter, 1)
548.             correct$ = MID$(answerLines$(eachLine), eachLetter, 1)
549.             ac = ASC(UCASE$(icl$)) - 64
550.             IF f$ <> icl$ THEN
551.                 COLOR 12, 1
552.             END IF
553.             IF f$ = correct$ AND mode = Easy THEN
554.                 COLOR 15, 1
555.             END IF
556.             IF highlightedLetter = ac THEN
557.                 COLOR 10, 0
558.             END IF
559.             IF f$ = icl$ AND highlightedLetter <> ac AND f$ <> correct$ THEN COLOR 10, 1
560.  
561.             PRINT f$;
562.             COLOR 10, 1
563.         NEXT eachLetter
564.     NEXT eachLine
565.     spaces = 2
566.     FOR x = 1 TO 26
567.         IF x = highlightedLetter THEN
568.             COLOR 10, 0
569.         ELSE
570.             COLOR 10, 1
571.         END IF
572.         LOCATE 35, spaces
573.         PRINT usersCode$(x, 1)
574.         LOCATE 37, spaces
575.         PRINT usersCode$(x, 2)
576.         spaces = spaces + 3
577.     NEXT x
578.     a$ = "Push 1 to access the hint menu"
579.     LOCATE 43, Center(a$): COLOR 14, 1: PRINT a$
580.     a$ = "Push 2 to save the game and quit": COLOR 14, 1: LOCATE 45, Center(a$): PRINT a$
581.     a$ = "Push [ESC] to reset": LOCATE 47, Center(a$): COLOR 14, 1: PRINT a$
582.     a$ = "Push 5 to quit": LOCATE 49, Center(a$): COLOR 14, 1: PRINT a$
583. END SUB
584.  
585. FUNCTION FileStatus
586.     IF _FILEEXISTS("Phrases.txt") = 0 THEN
587.         OPEN "Phrases.txt" FOR OUTPUT AS #1
588.         PRINT #1, "Tomorrow, and tomorrow, and tomorrow, Creeps in this petty pace from day to day, To the last syllable of recorded time; And all our yesterdays have lighted fools The way to dusty death. Out, out, brief candle! Life's but a walking shadow, a poor player, That struts and frets his hour upon the stage, And then is heard no more. It is a tale Told by an idiot, full of sound and fury, Signifying nothing."
589.         PRINT #1, "To be, or not to be: that is the question: Whether 'tis nobler in the mind to suffer The slings and arrows of outrageous fortune, Or to take arms against a sea of troubles, And by opposing end them? To die: to sleep; No more; and by a sleep to say we end The heart-ache and the thousand natural shocks That flesh is heir to, 'tis a consummation Devoutly to be wish'd. To die, to sleep; To sleep: perchance to dream"
590.         PRINT #1, "If someone is able to show me that what I think or do is not right, I will happily change. For I seek the truth, by which no oe ever was truly harmed. Harmed is the person who continues in his self-deception and ignorance."
591.         PRINT #1, "Funny lines: Before you marry a person, you should first make them use a computer with slow internet to see who they really are. -- Someone asked me, if I were stranded on a desert island what book would I bring... " + CHR$(34) + "How to Build a Boat." + CHR$(34)
592.         PRINT #1, "Funny lines: I finally realized that people are prisoners of their own phones... that's why it's called a " + CHR$(34) + "cell" + CHR$(34) + " phone. -- Be decisive. Right or wrong, make a decision. The road is paved with flat squirrels who couldn't make a decision."
593.         PRINT #1, "Funny lines: If at first you don't succeed, then skydiving definitely isn't for you. -- My cell phone is acting up. I keep pressing the Home button but every time I look around, I'm still at work."
594.         PRINT #1, "Pangrams: Pack my box with five dozen liquor jugs. -- The quick brown fox jumps over the lazy dog. -- My girl wove six dozen plaid jackets before she quit."
595.         PRINT #1, "EOF"
596.         CLOSE #1
597.         numberOfPhrases = 7
598.     ELSE
599.         OPEN "Phrases.txt" FOR INPUT AS #1
600.         numberOfPhrases = 0
601.         DO
602.             numberOfPhrases = numberOfPhrases + 1
603.             LINE INPUT #1, lineCounting$
604.         LOOP UNTIL INSTR(lineCounting$, "EOF") <> 0
605.         numberOfPhrases = numberOfPhrases - 1
606.         CLOSE #1
607.     END IF
608.     FileStatus = numberOfPhrases
609. END FUNCTION
610.  
611. FUNCTION Center (text$)
612.     Center = INT((80 - LEN(text$)) / 2)
613. END FUNCTION
614.  
615. FUNCTION S$ (number)
616.     S$ = LTRIM$(STR$(number))
617. END FUNCTION
618.  
619. FUNCTION P$
620.     pause$ = INPUT$(1)
621.     IF pause$ = CHR$(27) THEN END
622.     P$ = pause$
623. END FUNCTION
624.  

[johnno56]

I used to do these things years ago, using that archaic system, pencil and paper (in this case puzzle magazines)... So much fun... Oh. Hang on... That involves a lot of thinking... It's all coming back to me now... I would finish a few of them then walk away due to 'brain strain'... That was the only part of these puzzles I did not like... I am SO glad you have an 'easy' setting...

Excellent job. Well done! Looking forward to your next project... Nudge. Nudge.  No pressure, right? lol

[Jaze]

Well, almost finished. I thought I had fixed the hints of option 3 and 4 but apparently not. I'll post the correct SELECT CASE for the block in the Hint SUB soon.

[Jaze]

I was planning on simply posting the correct SELECT CASE block in the Hints SUB. However, I noticed other errors in the code. Specifically if you started a game, went back to the main menu and started another game, the second game phrase was added to the first with a different codes for each. Since I fixed that too I thought the best thing to do would just be to repost the whole code. Hopefully there aren't any more errors that I missed.

Code: QB64: [Select]

1. ON ERROR GOTO crap
2. GOTO beginning
3. crap:
4. PRINT "Error, Line number"
5. PRINT ERR, _ERRORLINE
6. END
7. beginning:
8. WIDTH 80, 50
9. _FULLSCREEN
10. RANDOMIZE TIMER
11. CONST TRUE = 1
12. CONST FALSE = 0
13. CONST numberOfLines = 15
14. CONST Easy = 1
15. CONST Normal = 2
16. CONST arrowKeyMove$ = "L64O2C"
17. CONST enterKeyHit$ = "L45O4C"
18.  
19. DIM SHARED leftArrow$: leftArrow$ = CHR$(0) + "K"
20. DIM SHARED rightArrow$: rightArrow$ = CHR$(0) + "M"
21. DIM SHARED upArrow$: upArrow$ = CHR$(0) + "H"
22. DIM SHARED downArrow$: downArrow$ = CHR$(0) + "P"
23. DIM SHARED translationMatrix$(1 TO 26, 1 TO 2): FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": NEXT cl
24. DIM SHARED codedPhrase$: codedPhrase$ = ""
25. DIM SHARED answerPhrase$: answerPhrase$ = ""
26. DIM SHARED highlightedLetter: highlightedLetter = 0
27. DIM SHARED workingLines$(1 TO numberOfLines)
28. DIM SHARED initiallyCodedLines$(1 TO numberOfLines)
29. DIM SHARED answerLines$(1 TO numberOfLines)
30. DIM SHARED leftPositions(1 TO numberOfLines) AS INTEGER
31. DIM SHARED maxLineNumber: maxLineNumber = 0
32. DIM SHARED usersCode$(1 TO 26, 1 TO 2): FOR x = 1 TO 26: usersCode$(x, 1) = CHR$(x + 64): usersCode$(x, 2) = "-": NEXT x
33. DIM SHARED mode: mode = Normal
34. DIM SHARED loaded: loaded = FALSE
35. DIM SHARED numberOfPhrases
36. FOR cl = 1 TO numberOfLines
37.     workingLines$(cl) = ""
38.     initiallyCodedLines$(cl) = ""
39.     answerLines$(cl) = ""
40.     leftPositions(cl) = 0
41. NEXT cl
42. CALL Menu
43.  
44. SUB Menu
45.     opt = 1
46.     mode = Normal
47.     PrintAgain:
48.     COLOR 14, 2: CLS: tabs = 25
49.     a$ = "Main Menu": LOCATE 13, Center(a$): PRINT a$:
50.     LOCATE 14, Center(a$) - 1: PRINT "-----------"
51.     COLOR 14, 2: a$ = "Mode = Easy  Normal":
52.     LOCATE 16, Center(a$): PRINT "Mode = ";
53.     IF mode = Easy THEN
54.         COLOR 14, 0
55.     ELSEIF mode = Normal THEN
56.         COLOR 14, 2
57.     END IF
58.     PRINT "Easy";: COLOR 14, 2: PRINT " ";
59.     IF mode = Normal THEN
60.         COLOR 14, 0
61.     ELSEIF mode = Normal THEN
62.         COLOR 14, 2
63.     END IF
64.     PRINT "Normal"
65.  
66.     LOCATE 19, tabs
67.     COLOR 15, 2: PRINT "1.) ";
68.     IF opt = 1 THEN
69.         COLOR 14, 0:
70.     ELSE
71.         COLOR 14, 2
72.     END IF
73.     PRINT "Instructions"
74.  
75.     LOCATE 21, tabs
76.     COLOR 15, 2: PRINT "2.) ";
77.     IF opt = 2 THEN
78.         COLOR 14, 0
79.     ELSE
80.         COLOR 14, 2
81.     END IF
82.     PRINT "New Game"
83.  
84.     LOCATE 23, tabs
85.     COLOR 15, 2: PRINT "3.) ";
86.     IF opt = 3 THEN
87.         COLOR 14, 0
88.     ELSE
89.         COLOR 14, 2
90.     END IF
91.     PRINT "Load a Saved Game"
92.  
93.     LOCATE 25, tabs
94.     COLOR 15, 2: PRINT "4.) ";
95.     IF opt = 4 THEN
96.         COLOR 14, 0
97.     ELSE
98.         COLOR 14, 2
99.     END IF
100.     PRINT "Add New Phrase to Data File"
101.  
102.     LOCATE 27, tabs
103.     COLOR 15, 2: PRINT "5.) ";
104.     IF opt = 5 THEN
105.         COLOR 14, 0
106.     ELSE
107.         COLOR 14, 2
108.     END IF
109.     PRINT "End Game"
110.     DO
111.         choice$ = INKEY$
112.         SELECT CASE choice$
113.             CASE upArrow$
114.                 opt = opt - 1
115.                 IF opt = 0 THEN opt = 5
116.                 PLAY arrowKeyMove$
117.                 GOTO PrintAgain
118.             CASE leftArrow$
119.                 IF mode = Easy THEN
120.                     mode = Normal
121.                 ELSEIF mode = Normal THEN
122.                     mode = Easy
123.                 END IF
124.                 PLAY arrowKeyMove$
125.                 GOTO PrintAgain
126.             CASE downArrow$
127.                 opt = opt + 1
128.                 IF opt = 6 THEN opt = 1
129.                 PLAY arrowKeyMove$
130.                 GOTO PrintAgain
131.             CASE rightArrow$
132.                 IF mode = Easy THEN
133.                     mode = Normal
134.                 ELSEIF mode = Normal THEN
135.                     mode = Easy
136.                 END IF
137.                 PLAY arrowKeyMove$
138.                 GOTO PrintAgain
139.             CASE CHR$(13)
140.                 PLAY enterKeyHit$
141.                 IF opt = 1 THEN CALL Instructions
142.                 IF opt = 2 THEN CALL Main
143.                 IF opt = 3 THEN CALL LoadGame
144.                 IF opt = 4 THEN CALL AddPhrase
145.                 IF opt = 5 THEN END
146.                 GOTO PrintAgain
147.             CASE "1"
148.                 PLAY enterKeyHit$
149.                 CALL Instructions
150.                 GOTO PrintAgain
151.             CASE "2"
152.                 PLAY enterKeyHit$
153.                 loaded = FALSE
154.                 CALL Main
155.                 GOTO PrintAgain
156.             CASE "3"
157.                 PLAY enterKeyHit$
158.                 loaded = TRUE
159.                 CALL LoadGame
160.                 GOTO PrintAgain
161.             CASE "4"
162.                 PLAY enterKeyHit$
163.                 CALL AddPhrase
164.                 GOTO PrintAgain
165.             CASE "5"
166.                 PLAY enterKeyHit$
167.                 END
168.         END SELECT
169.     LOOP UNTIL choice$ = CHR$(13) OR choice$ = "5"
170. END SUB
171.  
172. SUB Instructions
173.     COLOR 10, 13: CLS
174.     a$ = "A random phrase picked from " + CHR$(34) + "Phrases.txt" + CHR$(34) + " will be displayed in code."
175.     LOCATE 12, Center(a$): PRINT a$
176.     a$ = "The goal is to decode the phrase. The coded letters are in one color": LOCATE 14, Center(a$): PRINT a$
177.     a$ = "and the letters you choose in another color. In easy mode, incorrect": LOCATE 16, Center(a$): PRINT a$
178.     a$ = "letters are displayed in yet another color. Different types": LOCATE 18, Center(a$): PRINT a$
179.     a$ = "of hints are available from the hint menu.": LOCATE 20, Center(a$): PRINT a$
180.     a$ = "Use the arrow keys to select the letter you wish to change. Type": LOCATE 25, Center(a$): PRINT a$
181.     a$ = "in the letter you wish to change it to. Push the [ESC] key": LOCATE 27, Center(a$): PRINT a$
182.     a$ = "to reset the puzzle to the starting code.": LOCATE 29, Center(a$): PRINT a$
183.  
184.     a$ = "Hit any key to return to the Main Menu": LOCATE 45, Center(a$): COLOR 11, 13: PRINT a$: l$ = P$
185. END SUB
186.  
187. SUB AddPhrase
188.     COLOR 11, 13
189.     CLS
190.     a$ = "Type in the phrase you want to add. Do not hit": LOCATE 15, Center(a$): PRINT a$
191.     a$ = " the [ENTER] key until you've entered the entire phrase. ": LOCATE 17, Center(a$): PRINT a$
192.     a$ = "Don't worry if your entry passes the end of the screen": LOCATE 19, Center(a$): PRINT a$
193.     a$ = "and continues on to the next line. In fact, longer": LOCATE 21, Center(a$): PRINT a$
194.     a$ = "phrases are easier to decode.": LOCATE 23, Center(a$): PRINT a$
195.  
196.     LOCATE 28, 10: LINE INPUT "Type in your phrase: ", newPhrase$
197.     maxIndex = FileStatus
198.     DIM fileArray$(1 TO maxIndex + 1)
199.     OPEN "Phrases.txt" FOR INPUT AS #1
200.     FOR index = 1 TO maxIndex
201.         LINE INPUT #1, fileArray$(index)
202.     NEXT index
203.     CLOSE #1
204.  
205.     fileArray$(maxIndex + 1) = newPhrase$
206.     OPEN "Phrases.txt" FOR OUTPUT AS #1
207.     FOR index = 1 TO maxIndex + 1
208.         PRINT #1, fileArray$(index)
209.     NEXT index
210.     PRINT #1, "EOF"
211.     CLOSE #1
212. END SUB
213.  
214.  
215. SUB LoadGame
216.     maxLineNumber = 0
217.     FOR index = 1 TO 26
218.         translationMatrix$(index, 1) = "": translationMatrix$(index, 2) = ""
219.         usersCode$(index, 1) = "": usersCode$(index, 2) = ""
220.     NEXT index
221.     codedPhrase$ = ""
222.     answerPhrase$ = ""
223.     highlightedLetter = 0
224.     mode = 0
225.     FOR index = 1 TO 15
226.         workingLines$(index) = ""
227.         initiallyCodedLines$(index) = ""
228.         answerLines$(index) = ""
229.         leftPositions(index) = 0
230.     NEXT index
231.  
232.     OPEN "CryptoGram" FOR INPUT AS #1
233.     LINE INPUT #1, mLN$: maxLineNumber = VAL(mLN$)
234.     FOR index = 1 TO 26
235.         LINE INPUT #1, translationMatrix$(index, 1)
236.         LINE INPUT #1, translationMatrix$(index, 2)
237.         LINE INPUT #1, usersCode$(index, 1)
238.         LINE INPUT #1, usersCode$(index, 2)
239.     NEXT index
240.     LINE INPUT #1, codedPhrase$
241.     LINE INPUT #1, answerPhrase$
242.     LINE INPUT #1, hL$
243.     LINE INPUT #1, m$: mode = VAL(m$)
244.     FOR index = 1 TO maxLineNumber
245.         LINE INPUT #1, workingLines$(index)
246.         LINE INPUT #1, initiallyCodedLines$(index)
247.         LINE INPUT #1, answerLines$(index)
248.         LINE INPUT #1, lP$: leftPositions(index) = VAL(lP$)
249.     NEXT index
250.     CLOSE #1
251.     loaded = TRUE: CALL Main
252. END SUB
253.  
254. SUB SaveGame
255.     OPEN "CryptoGram" FOR OUTPUT AS #1
256.     PRINT #1, S$(maxLineNumber)
257.     FOR index = 1 TO 26
258.         PRINT #1, translationMatrix$(index, 1)
259.         PRINT #1, translationMatrix$(index, 2)
260.         PRINT #1, usersCode$(index, 1)
261.         PRINT #1, usersCode$(index, 2)
262.     NEXT index
263.     PRINT #1, codedPhrase$
264.     PRINT #1, answerPhrase$
265.     PRINT #1, S$(highlightedLetter)
266.     PRINT #1, S$(mode)
267.     FOR index = 1 TO maxLineNumber
268.         PRINT #1, workingLines$(index)
269.         PRINT #1, initiallyCodedLines$(index)
270.         PRINT #1, answerLines$(index)
271.         PRINT #1, S$(leftPositions(index))
272.     NEXT index
273.     CLOSE #1
274.     _DELAY (0.25)
275.     PLAY arrowKeyMove$
276. END SUB
277.  
278. SUB Main
279.     IF loaded = FALSE THEN
280.         FOR cl = 1 TO 26
281.             translationMatrix$(cl, 1) = ""
282.             translationMatrix$(cl, 2) = ""
283.             usersCode$(cl, 1) = CHR$(cl + 64)
284.             usersCode$(cl, 2) = "-"
285.         NEXT cl
286.         codedPhrase$ = ""
287.         answerPhrase$ = ""
288.         highlightedLetter = 1
289.         FOR index = 1 TO numberOfLines
290.             workingLines$(index) = ""
291.             initiallyCodedLines$(index) = ""
292.             answerLines$(index) = ""
293.             leftPositions(index) = 0
294.             maxLineNumber = 0
295.         NEXT index
296.  
297.         COLOR 15, 1
298.         'first, pick a phrase
299.         randomPhrase = INT(RND * FileStatus) + 1
300.         OPEN "Phrases.txt" FOR INPUT AS #1
301.         FOR x = 1 TO randomPhrase
302.             LINE INPUT #1, answerPhrase$
303.         NEXT x
304.         CLOSE #1
305.  
306.         'second, create a code
307.         usedAlphabet$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
308.         FOR allLetters = 1 TO 26
309.             translationMatrix$(allLetters, 1) = CHR$(allLetters + 64)
310.             newRndLet:
311.             randomLetter = INT(RND * LEN(usedAlphabet$)) + 1
312.             translationMatrix$(allLetters, 2) = MID$(usedAlphabet$, randomLetter, 1)
313.             IF translationMatrix$(allLetters, 1) = translationMatrix$(allLetters, 2) THEN GOTO newRndLet
314.             usedAlphabet$ = MID$(usedAlphabet$, 1, randomLetter - 1) + MID$(usedAlphabet$, randomLetter + 1, LEN(usedAlphabet$))
315.         NEXT allLetters
316.  
317.         'third: put the phrase in code
318.         FOR letter = 1 TO LEN(answerPhrase$)
319.             answerLetter$ = MID$(answerPhrase$, letter, 1)
320.             upAnsLet$ = UCASE$(answerLetter$)
321.             answerLetterNumber = ASC(upAnsLet$) - 64
322.             IF ASC(upAnsLet$) >= 65 AND ASC(upAnsLet$) <= 90 THEN
323.                 upCodeLet$ = translationMatrix$(ASC(upAnsLet$) - 64, 2)
324.                 IF ASC(answerLetter$) >= 65 AND ASC(answerLetter$) <= 90 THEN
325.                     codedLetter$ = upCodeLet$
326.                 ELSE
327.                     codedLetter$ = LCASE$(upCodeLet$)
328.                 END IF
329.             ELSE
330.                 codedLetter$ = answerLetter$
331.             END IF
332.             codedPhrase$ = codedPhrase$ + codedLetter$
333.         NEXT letter
334.  
335.         'next on the list is to center the phrases
336.         lineNumber = 0
337.         shrinkingCode$ = codedPhrase$
338.         shrinkingAnswer$ = answerPhrase$
339.         DO
340.             checking = 60
341.             DO
342.                 wheresSpace$ = MID$(shrinkingAnswer$, checking, 1)
343.                 checking = checking - 1
344.             LOOP UNTIL wheresSpace$ = CHR$(32)
345.             lineNumber = lineNumber + 1
346.             answerLines$(lineNumber) = MID$(shrinkingAnswer$, 1, checking)
347.             workingLines$(lineNumber) = MID$(shrinkingCode$, 1, checking)
348.             initiallyCodedLines$(lineNumber) = MID$(shrinkingCode$, 1, checking)
349.             leftPositions(lineNumber) = Center(answerLines$(lineNumber))
350.             shrinkingAnswer$ = MID$(shrinkingAnswer$, checking + 1, LEN(shrinkingAnswer$))
351.             shrinkingCode$ = MID$(shrinkingCode$, checking + 1, LEN(shrinkingCode$))
352.         LOOP UNTIL LEN(shrinkingAnswer$) <= 60
353.         lineNumber = lineNumber + 1
354.         answerLines$(lineNumber) = shrinkingAnswer$
355.         leftPositions(lineNumber) = Center(answerLines$(lineNumber))
356.         workingLines$(lineNumber) = shrinkingCode$
357.         initiallyCodedLines$(lineNumber) = shrinkingCode$
358.  
359.         maxLineNumber = lineNumber
360.         highlightedLetter = 1
361.     END IF
362.     loaded = FALSE
363.     refresh = TRUE
364.     DO
365.         userInput$ = UCASE$(INKEY$)
366.         SELECT CASE userInput$
367.             CASE "1"
368.                 PLAY enterKeyHit$
369.                 refresh = TRUE
370.                 CALL Hints
371.             CASE "2"
372.                 PLAY enterKeyHit$
373.                 CALL SaveGame
374.                 CALL Menu
375.             CASE CHR$(27)
376.                 PLAY enterKeyHit$ + enterKeyHit$ + arrowKeyMove$
377.                 CALL RestartPuzzle
378.                 refresh = TRUE
379.             CASE "5"
380.                 CALL Menu
381.                 PLAY enterKeyHit$
382.                 highlightedLetter = 1
383.                 FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": usersCode$(cl, 1) = "": usersCode$(cl, 2) = "": NEXT cl
384.                 FOR cl = 1 TO numberOfLines
385.                     workingLines$(cl) = ""
386.                     initiallyCodedLines$(cl) = ""
387.                     answerLines$(cl) = ""
388.                     leftPositions(cl) = 0
389.                 NEXT cl
390.                 FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": usersCode$(cl, 1) = "": usersCode$(cl, 2) = "": NEXT cl
391.                 mode = Normal
392.  
393.             CASE leftArrow$
394.                 PLAY arrowKeyMove$
395.                 IF highlightedLetter > 1 THEN
396.                     highlightedLetter = highlightedLetter - 1
397.                 ELSE
398.                     highlightedLetter = 26
399.                 END IF
400.                 refresh = TRUE
401.             CASE rightArrow$
402.                 PLAY arrowKeyMove$
403.                 IF highlightedLetter < 26 THEN
404.                     highlightedLetter = highlightedLetter + 1
405.                 ELSE
406.                     highlightedLetter = 1
407.                 END IF
408.                 refresh = TRUE
409.             CASE "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
410.                 PLAY enterKeyHit$
411.                 usersCode$(highlightedLetter, 2) = userInput$
412.                 CALL Switch(userInput$)
413.                 refresh = TRUE
414.         END SELECT
415.  
416.         IF refresh = TRUE THEN
417.             refresh = FALSE
418.             CALL ShowPuzzle
419.         END IF
420.     LOOP UNTIL userInput$ = "9" OR CorrectPhrase = TRUE
421.     IF CorrectPhrase = TRUE THEN
422.         COLOR 11, 0
423.         LOCATE 25, Center("success")
424.         PRINT "SUCCESS!!"
425.         _DELAY (10)
426.     END IF
427. END SUB
428.  
429. SUB Hints
430.     nope:
431.     COLOR 14, 1
432.     CLS
433.     a$ = "You have an option of 3 types of hints to choose from.": LOCATE 10, Center(a$): PRINT a$
434.     a$ = "Wheel of Fortune reveals the letters for R, S, T, L, N and E": LOCATE 11, Center(a$): PRINT a$
435.     a$ = "Or you can choose to reveal a single letter.": LOCATE 12, Center(a$): PRINT a$
436.     a$ = "Example phrase = Rmtleyr ewatbr": LOCATE 14, Center(a$): COLOR 10, 1: PRINT "Example phrase ";: COLOR 14, 1: PRINT "=";: COLOR 10, 1: PRINT " Rmtleyr ewatbr": COLOR 14, 1
437.     a$ = "1.) Wheel of Fortune: Example phrase = Emtlele ewrtse": LOCATE 17, Center(a$): PRINT "1.) Wheel of Fortune: ";: COLOR 10, 1: PRINT "Example phrase = ";
438.     COLOR 12, 1: PRINT "E";: COLOR 10, 1: PRINT "mtle";: COLOR 12, 1: PRINT "le";: COLOR 10, 1: PRINT " ew";: COLOR 12, 1: PRINT "r";: COLOR 10, 1: PRINT "t";: COLOR 12, 1: PRINT "se": COLOR 14, 1
439.     a$ = "2.) Reveal a single random letter: Rmtleyr ewatbr": LOCATE 19, Center(a$): PRINT "2.) Reveal a single random letter: ";: COLOR 12, 1: PRINT "E";: COLOR 10, 1
440.     PRINT "mtley";: COLOR 12, 1: PRINT "e";: COLOR 10, 1: PRINT " ewrts";: COLOR 12, 1: PRINT "e": COLOR 14, 1
441.     a$ = "3.) Choose a single coded letter to decode:": LOCATE 21, Center(a$): PRINT a$
442.     a$ = "    Pick any letter in example phrase": LOCATE 22, Center(a$): PRINT "    Pick any letter in ";: COLOR 10, 1: PRINT "R";
443.     COLOR 12, 1: PRINT "m";: COLOR 10, 1: PRINT "tleyr ewatbr";: COLOR 14, 1
444.     a$ = "      to be revealed in example phrase": LOCATE 23, Center(a$): PRINT "      to be revealed in ";: COLOR 10, 1: PRINT "E";: COLOR 12, 1: PRINT "x";: COLOR 10, 1: PRINT "ample phrase": COLOR 14, 1
445.     a$ = "4.) Reveal a letter you think is in the answer phrase:": LOCATE 25, Center(a$): PRINT a$
446.     a$ = "Choosing " + CHR$(34) + "K" + CHR$(34) + " wouldn't reveal anything. Choosing " + CHR$(34) + "L" + CHR$(34): LOCATE 26, Center(a$): PRINT a$
447.     a$ = " Reveals the " + CHR$(34) + "L" + CHR$(34) + " -- example phrase": LOCATE 27, Center(a$): PRINT "reveals the " + CHR$(34) + "L" + CHR$(34) + " -- ";
448.     COLOR 10, 1: PRINT "Examp";: COLOR 12, 1: PRINT "l";: COLOR 10, 1: PRINT "e phrase": COLOR 14, 1
449.     a$ = "5.) Switch to easy mode": LOCATE 29, Center(a$): PRINT a$
450.     a$ = "6.) Display every coded letter and the letter": LOCATE 31, Center(a$): PRINT a$
451.     a$ = "       it should be for 2 seconds": LOCATE 32, Center(a$): PRINT a$
452.  
453.  
454.  
455.     a$ = "7.) Cancel": LOCATE 35, Center(a$): PRINT a$
456.     PLAY arrowKeyMove$
457.     r$ = P$
458.     PLAY enterKeyHit$
459.     SELECT CASE r$
460.         CASE "1"
461.             r$ = translationMatrix$(18, 2): re = ASC(r$) - 64: highlightedLetter = re: CALL Switch("R"): usersCode$(re, 2) = "R"
462.             ss$ = translationMatrix$(19, 2): se = ASC(ss$) - 64: highlightedLetter = se: CALL Switch("S"): usersCode$(se, 2) = "S"
463.             t$ = translationMatrix$(20, 2): te = ASC(t$) - 64: highlightedLetter = te: CALL Switch("T"): usersCode$(te, 2) = "T"
464.             l$ = translationMatrix$(12, 2): le = ASC(l$) - 64: highlightedLetter = le: CALL Switch("L"): usersCode$(le, 2) = "L"
465.             n$ = translationMatrix$(14, 2): ne = ASC(n$) - 64: highlightedLetter = ne: CALL Switch("N"): usersCode$(ne, 2) = "N"
466.             e$ = translationMatrix$(5, 2): ee = ASC(e$) - 64: highlightedLetter = ee: CALL Switch("E"): usersCode$(ee, 2) = "E"
467.         CASE "2"
468.             gotThis:
469.             tryAgain:
470.             there = FALSE
471.             someRandom$ = CHR$((INT(RND * 26)) + 65)
472.             FOR x = 1 TO maxLineNumber
473.                 FOR y = 1 TO LEN(answerLines$(x))
474.                     IF UCASE$(MID$(answerLines$(x), y, 1)) = someRandom$ THEN there = TRUE
475.                 NEXT y
476.             NEXT x
477.             IF there = FALSE THEN GOTO tryAgain
478.             itShouldBeCodedAs$ = translationMatrix$(ASC(someRandom$) - 64, 2)
479.             usersAttempt$ = usersCode$(ASC(itShouldBeCodedAs$) - 64, 2)
480.             IF usersAttempt$ = someRandom$ THEN GOTO tryAgain
481.             highlightedLetter = ASC(itShouldBeCodedAs$) - 64
482.             Switch (someRandom$)
483.             usersCode$(highlightedLetter, 2) = someRandom$
484.         CASE "3"
485.             PRINT: PRINT
486.             a$ = "What code letter do you want to know the answer letter for?    ": LOCATE 37, Center(a$): PRINT a$;
487.             aCodedLetter$ = P$: aCodedLetter$ = UCASE$(aCodedLetter$)
488.             theCorrectLetter$ = ""
489.             FOR index = 1 TO 26
490.                 IF translationMatrix$(index, 2) = aCodedLetter$ THEN theCorrectLetter$ = translationMatrix$(index, 1)
491.             NEXT index
492.             highlightedLetter = ASC(aCodedLetter$) - 64
493.             usersCode$(ASC(aCodedLetter$) - 64, 2) = theCorrectLetter$
494.             CALL Switch(theCorrectLetter$)
495.         CASE "4"
496.             a$ = "What answer letter do you want the code for?    ": LOCATE 37, Center(a$): PRINT a$;: theCorrectLetter$ = P$: theCorrectLetter$ = UCASE$(theCorrectLetter$)
497.             FOR index = 1 TO 26
498.                 LOCATE 40, index: PRINT translationMatrix$(index, 1)
499.                 LOCATE 41, index: PRINT translationMatrix$(index, 2)
500.             NEXT index
501.             f$ = P$
502.             clPosition = ASC(theCorrectLetter$) - 64
503.             letterCode$ = translationMatrix$(clPosition, 2)
504.             highlightedLetter = ASC(letterCode$) - 64
505.             CALL Switch(UCASE$(theCorrectLetter$))
506.             usersCode$(highlightedLetter, 2) = UCASE$(theCorrectLetter$)
507.         CASE "5"
508.             mode = Easy
509.         CASE "6"
510.             COLOR 15, 1
511.             CLS
512.             FOR index = 1 TO 26
513.                 LOCATE 22, ((80 - 52) / 2) + (index * 2)
514.                 PRINT translationMatrix$(index, 1)
515.                 LOCATE 24, ((80 - 52) / 2) + (index * 2)
516.                 PRINT translationMatrix$(index, 2)
517.             NEXT index
518.             _DELAY (2)
519.         CASE "7"
520.             'just go away
521.         CASE ELSE
522.             GOTO nope
523.     END SELECT
524.     highlightedLetter = 1
525. END SUB
526.  
527. FUNCTION CorrectPhrase
528.     ag = TRUE
529.     FOR x = 1 TO maxLineNumber
530.         IF workingLines$(x) <> answerLines$(x) THEN ag = FALSE
531.     NEXT x
532.     CorrectPhrase = ag
533. END FUNCTION
534.  
535. SUB Switch (withThis$)
536.     DIM newLines$(1 TO maxLineNumber): FOR i = 1 TO maxLineNumber: newLines$(i) = "": NEXT i
537.     FOR l = 1 TO maxLineNumber
538.         FOR c = 1 TO LEN(workingLines$(l))
539.             letter$ = CHR$(highlightedLetter + 64)
540.             initialLetter$ = MID$(initiallyCodedLines$(l), c, 1)
541.             wcl$ = MID$(workingLines$(l), c, 1)
542.             IF ASC(initialLetter$) >= 65 AND ASC(initialLetter$) <= 90 THEN
543.                 withThis$ = UCASE$(withThis$)
544.             ELSEIF ASC(initialLetter$) >= 97 AND ASC(initialLetter$) <= 122 THEN
545.                 withThis$ = LCASE$(withThis$)
546.             ELSE
547.             END IF
548.             IF letter$ = UCASE$(initialLetter$) THEN
549.                 newLines$(l) = newLines$(l) + withThis$
550.             ELSE
551.                 newLines$(l) = newLines$(l) + wcl$
552.             END IF
553.         NEXT c 'haracter
554.     NEXT l 'ine
555.     FOR index = 1 TO maxLineNumber
556.         workingLines$(index) = newLines$(index)
557.     NEXT index
558. END SUB
559.  
560. SUB RestartPuzzle
561.     FOR c = 1 TO maxLineNumber
562.         workingLines$(c) = initiallyCodedLines$(c)
563.     NEXT c
564.     FOR xx = 1 TO 26
565.         usersCode$(xx, 2) = "-"
566.     NEXT xx
567. END SUB
568.  
569. SUB ShowPuzzle
570.     COLOR 10, 1: CLS
571.  
572.     FOR eachLine = 1 TO maxLineNumber
573.         LOCATE 13 + eachLine, leftPositions(eachLine)
574.         FOR eachLetter = 1 TO LEN(workingLines$(eachLine))
575.             f$ = MID$(workingLines$(eachLine), eachLetter, 1)
576.             icl$ = MID$(initiallyCodedLines$(eachLine), eachLetter, 1)
577.             correct$ = MID$(answerLines$(eachLine), eachLetter, 1)
578.             ac = ASC(UCASE$(icl$)) - 64
579.             IF f$ <> icl$ THEN
580.                 COLOR 12, 1
581.             END IF
582.             IF f$ = correct$ AND mode = Easy THEN
583.                 COLOR 15, 1
584.             END IF
585.             IF highlightedLetter = ac THEN
586.                 COLOR 10, 0
587.             END IF
588.             IF f$ = icl$ AND highlightedLetter <> ac AND f$ <> correct$ THEN COLOR 10, 1
589.  
590.             PRINT f$;
591.             COLOR 10, 1
592.         NEXT eachLetter
593.     NEXT eachLine
594.     spaces = 2
595.     FOR x = 1 TO 26
596.         IF x = highlightedLetter THEN
597.             COLOR 10, 0
598.         ELSE
599.             COLOR 10, 1
600.         END IF
601.         LOCATE 35, spaces
602.         PRINT usersCode$(x, 1)
603.         LOCATE 37, spaces
604.         PRINT usersCode$(x, 2)
605.         spaces = spaces + 3
606.     NEXT x
607.     a$ = "Push 1 to access the hint menu"
608.     LOCATE 43, Center(a$): COLOR 14, 1: PRINT a$
609.     a$ = "Push 2 to save the game and quit": COLOR 14, 1: LOCATE 45, Center(a$): PRINT a$
610.     a$ = "Push [ESC] to reset": LOCATE 47, Center(a$): COLOR 14, 1: PRINT a$
611.     a$ = "Push 5 to quit": LOCATE 49, Center(a$): COLOR 14, 1: PRINT a$
612. END SUB
613.  
614. FUNCTION FileStatus
615.     IF _FILEEXISTS("Phrases.txt") = 0 THEN
616.         OPEN "Phrases.txt" FOR OUTPUT AS #1
617.         PRINT #1, "Tomorrow, and tomorrow, and tomorrow, Creeps in this petty pace from day to day, To the last syllable of recorded time; And all our yesterdays have lighted fools The way to dusty death. Out, out, brief candle! Life's but a walking shadow, a poor player, That struts and frets his hour upon the stage, And then is heard no more. It is a tale Told by an idiot, full of sound and fury, Signifying nothing."
618.         PRINT #1, "To be, or not to be: that is the question: Whether 'tis nobler in the mind to suffer The slings and arrows of outrageous fortune, Or to take arms against a sea of troubles, And by opposing end them? To die: to sleep; No more; and by a sleep to say we end The heart-ache and the thousand natural shocks That flesh is heir to, 'tis a consummation Devoutly to be wish'd. To die, to sleep; To sleep: perchance to dream"
619.         PRINT #1, "If someone is able to show me that what I think or do is not right, I will happily change. For I seek the truth, by which no oe ever was truly harmed. Harmed is the person who continues in his self-deception and ignorance."
620.         PRINT #1, "Funny lines: Before you marry a person, you should first make them use a computer with slow internet to see who they really are. -- Someone asked me, if I were stranded on a desert island what book would I bring... " + CHR$(34) + "How to Build a Boat." + CHR$(34)
621.         PRINT #1, "Funny lines: I finally realized that people are prisoners of their own phones... that's why it's called a " + CHR$(34) + "cell" + CHR$(34) + " phone. -- Be decisive. Right or wrong, make a decision. The road is paved with flat squirrels who couldn't make a decision."
622.         PRINT #1, "Funny lines: If at first you don't succeed, then skydiving definitely isn't for you. -- My cell phone is acting up. I keep pressing the Home button but every time I look around, I'm still at work."
623.         PRINT #1, "Pangrams: Pack my box with five dozen liquor jugs. -- The quick brown fox jumps over the lazy dog. -- My girl wove six dozen plaid jackets before she quit."
624.         PRINT #1, "EOF"
625.         CLOSE #1
626.         numberOfPhrases = 7
627.     ELSE
628.         OPEN "Phrases.txt" FOR INPUT AS #1
629.         numberOfPhrases = 0
630.         DO
631.             numberOfPhrases = numberOfPhrases + 1
632.             LINE INPUT #1, lineCounting$
633.         LOOP UNTIL INSTR(lineCounting$, "EOF") <> 0
634.         numberOfPhrases = numberOfPhrases - 1
635.         CLOSE #1
636.     END IF
637.     FileStatus = numberOfPhrases
638. END FUNCTION
639.  
640. FUNCTION Center (text$)
641.     Center = INT((80 - LEN(text$)) / 2)
642. END FUNCTION
643.  
644. FUNCTION S$ (number)
645.     S$ = LTRIM$(STR$(number))
646. END FUNCTION
647.  
648. FUNCTION P$
649.     pause$ = INPUT$(1)
650.     IF pause$ = CHR$(27) THEN END
651.     P$ = pause$
652. END FUNCTION
653.  

[Jaze]

It still doesn't load correctly when you finish a puzzle and begin another one without exiting. Alas. So, if you run it and want to do another quote, just exit and then restart.

[bplus]

I was planning on simply posting the correct SELECT CASE block in the Hints SUB. However, I noticed other errors in the code. Specifically if you started a game, went back to the main menu and started another game, the second game phrase was added to the first with a different codes for each. Since I fixed that too I thought the best thing to do would just be to repost the whole code. Hopefully there aren't any more errors that I missed.

Code: QB64: [Select]

1. ON ERROR GOTO crap
2. GOTO beginning
3. crap:
4. PRINT "Error, Line number"
5. PRINT ERR, _ERRORLINE
6. END
7. beginning:
8. WIDTH 80, 50
9. _FULLSCREEN
10. RANDOMIZE TIMER
11. CONST TRUE = 1
12. CONST FALSE = 0
13. CONST numberOfLines = 15
14. CONST Easy = 1
15. CONST Normal = 2
16. CONST arrowKeyMove$ = "L64O2C"
17. CONST enterKeyHit$ = "L45O4C"
18.  
19. DIM SHARED leftArrow$: leftArrow$ = CHR$(0) + "K"
20. DIM SHARED rightArrow$: rightArrow$ = CHR$(0) + "M"
21. DIM SHARED upArrow$: upArrow$ = CHR$(0) + "H"
22. DIM SHARED downArrow$: downArrow$ = CHR$(0) + "P"
23. DIM SHARED translationMatrix$(1 TO 26, 1 TO 2): FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": NEXT cl
24. DIM SHARED codedPhrase$: codedPhrase$ = ""
25. DIM SHARED answerPhrase$: answerPhrase$ = ""
26. DIM SHARED highlightedLetter: highlightedLetter = 0
27. DIM SHARED workingLines$(1 TO numberOfLines)
28. DIM SHARED initiallyCodedLines$(1 TO numberOfLines)
29. DIM SHARED answerLines$(1 TO numberOfLines)
30. DIM SHARED leftPositions(1 TO numberOfLines) AS INTEGER
31. DIM SHARED maxLineNumber: maxLineNumber = 0
32. DIM SHARED usersCode$(1 TO 26, 1 TO 2): FOR x = 1 TO 26: usersCode$(x, 1) = CHR$(x + 64): usersCode$(x, 2) = "-": NEXT x
33. DIM SHARED mode: mode = Normal
34. DIM SHARED loaded: loaded = FALSE
35. DIM SHARED numberOfPhrases
36. FOR cl = 1 TO numberOfLines
37.     workingLines$(cl) = ""
38.     initiallyCodedLines$(cl) = ""
39.     answerLines$(cl) = ""
40.     leftPositions(cl) = 0
41. NEXT cl
42. CALL Menu
43.  
44. SUB Menu
45.     opt = 1
46.     mode = Normal
47.     PrintAgain:
48.     COLOR 14, 2: CLS: tabs = 25
49.     a$ = "Main Menu": LOCATE 13, Center(a$): PRINT a$:
50.     LOCATE 14, Center(a$) - 1: PRINT "-----------"
51.     COLOR 14, 2: a$ = "Mode = Easy  Normal":
52.     LOCATE 16, Center(a$): PRINT "Mode = ";
53.     IF mode = Easy THEN
54.         COLOR 14, 0
55.     ELSEIF mode = Normal THEN
56.         COLOR 14, 2
57.     END IF
58.     PRINT "Easy";: COLOR 14, 2: PRINT " ";
59.     IF mode = Normal THEN
60.         COLOR 14, 0
61.     ELSEIF mode = Normal THEN
62.         COLOR 14, 2
63.     END IF
64.     PRINT "Normal"
65.  
66.     LOCATE 19, tabs
67.     COLOR 15, 2: PRINT "1.) ";
68.     IF opt = 1 THEN
69.         COLOR 14, 0:
70.     ELSE
71.         COLOR 14, 2
72.     END IF
73.     PRINT "Instructions"
74.  
75.     LOCATE 21, tabs
76.     COLOR 15, 2: PRINT "2.) ";
77.     IF opt = 2 THEN
78.         COLOR 14, 0
79.     ELSE
80.         COLOR 14, 2
81.     END IF
82.     PRINT "New Game"
83.  
84.     LOCATE 23, tabs
85.     COLOR 15, 2: PRINT "3.) ";
86.     IF opt = 3 THEN
87.         COLOR 14, 0
88.     ELSE
89.         COLOR 14, 2
90.     END IF
91.     PRINT "Load a Saved Game"
92.  
93.     LOCATE 25, tabs
94.     COLOR 15, 2: PRINT "4.) ";
95.     IF opt = 4 THEN
96.         COLOR 14, 0
97.     ELSE
98.         COLOR 14, 2
99.     END IF
100.     PRINT "Add New Phrase to Data File"
101.  
102.     LOCATE 27, tabs
103.     COLOR 15, 2: PRINT "5.) ";
104.     IF opt = 5 THEN
105.         COLOR 14, 0
106.     ELSE
107.         COLOR 14, 2
108.     END IF
109.     PRINT "End Game"
110.     DO
111.         choice$ = INKEY$
112.         SELECT CASE choice$
113.             CASE upArrow$
114.                 opt = opt - 1
115.                 IF opt = 0 THEN opt = 5
116.                 PLAY arrowKeyMove$
117.                 GOTO PrintAgain
118.             CASE leftArrow$
119.                 IF mode = Easy THEN
120.                     mode = Normal
121.                 ELSEIF mode = Normal THEN
122.                     mode = Easy
123.                 END IF
124.                 PLAY arrowKeyMove$
125.                 GOTO PrintAgain
126.             CASE downArrow$
127.                 opt = opt + 1
128.                 IF opt = 6 THEN opt = 1
129.                 PLAY arrowKeyMove$
130.                 GOTO PrintAgain
131.             CASE rightArrow$
132.                 IF mode = Easy THEN
133.                     mode = Normal
134.                 ELSEIF mode = Normal THEN
135.                     mode = Easy
136.                 END IF
137.                 PLAY arrowKeyMove$
138.                 GOTO PrintAgain
139.             CASE CHR$(13)
140.                 PLAY enterKeyHit$
141.                 IF opt = 1 THEN CALL Instructions
142.                 IF opt = 2 THEN CALL Main
143.                 IF opt = 3 THEN CALL LoadGame
144.                 IF opt = 4 THEN CALL AddPhrase
145.                 IF opt = 5 THEN END
146.                 GOTO PrintAgain
147.             CASE "1"
148.                 PLAY enterKeyHit$
149.                 CALL Instructions
150.                 GOTO PrintAgain
151.             CASE "2"
152.                 PLAY enterKeyHit$
153.                 loaded = FALSE
154.                 CALL Main
155.                 GOTO PrintAgain
156.             CASE "3"
157.                 PLAY enterKeyHit$
158.                 loaded = TRUE
159.                 CALL LoadGame
160.                 GOTO PrintAgain
161.             CASE "4"
162.                 PLAY enterKeyHit$
163.                 CALL AddPhrase
164.                 GOTO PrintAgain
165.             CASE "5"
166.                 PLAY enterKeyHit$
167.                 END
168.         END SELECT
169.     LOOP UNTIL choice$ = CHR$(13) OR choice$ = "5"
170. END SUB
171.  
172. SUB Instructions
173.     COLOR 10, 13: CLS
174.     a$ = "A random phrase picked from " + CHR$(34) + "Phrases.txt" + CHR$(34) + " will be displayed in code."
175.     LOCATE 12, Center(a$): PRINT a$
176.     a$ = "The goal is to decode the phrase. The coded letters are in one color": LOCATE 14, Center(a$): PRINT a$
177.     a$ = "and the letters you choose in another color. In easy mode, incorrect": LOCATE 16, Center(a$): PRINT a$
178.     a$ = "letters are displayed in yet another color. Different types": LOCATE 18, Center(a$): PRINT a$
179.     a$ = "of hints are available from the hint menu.": LOCATE 20, Center(a$): PRINT a$
180.     a$ = "Use the arrow keys to select the letter you wish to change. Type": LOCATE 25, Center(a$): PRINT a$
181.     a$ = "in the letter you wish to change it to. Push the [ESC] key": LOCATE 27, Center(a$): PRINT a$
182.     a$ = "to reset the puzzle to the starting code.": LOCATE 29, Center(a$): PRINT a$
183.  
184.     a$ = "Hit any key to return to the Main Menu": LOCATE 45, Center(a$): COLOR 11, 13: PRINT a$: l$ = P$
185. END SUB
186.  
187. SUB AddPhrase
188.     COLOR 11, 13
189.     CLS
190.     a$ = "Type in the phrase you want to add. Do not hit": LOCATE 15, Center(a$): PRINT a$
191.     a$ = " the [ENTER] key until you've entered the entire phrase. ": LOCATE 17, Center(a$): PRINT a$
192.     a$ = "Don't worry if your entry passes the end of the screen": LOCATE 19, Center(a$): PRINT a$
193.     a$ = "and continues on to the next line. In fact, longer": LOCATE 21, Center(a$): PRINT a$
194.     a$ = "phrases are easier to decode.": LOCATE 23, Center(a$): PRINT a$
195.  
196.     LOCATE 28, 10: LINE INPUT "Type in your phrase: ", newPhrase$
197.     maxIndex = FileStatus
198.     DIM fileArray$(1 TO maxIndex + 1)
199.     OPEN "Phrases.txt" FOR INPUT AS #1
200.     FOR index = 1 TO maxIndex
201.         LINE INPUT #1, fileArray$(index)
202.     NEXT index
203.     CLOSE #1
204.  
205.     fileArray$(maxIndex + 1) = newPhrase$
206.     OPEN "Phrases.txt" FOR OUTPUT AS #1
207.     FOR index = 1 TO maxIndex + 1
208.         PRINT #1, fileArray$(index)
209.     NEXT index
210.     PRINT #1, "EOF"
211.     CLOSE #1
212. END SUB
213.  
214.  
215. SUB LoadGame
216.     maxLineNumber = 0
217.     FOR index = 1 TO 26
218.         translationMatrix$(index, 1) = "": translationMatrix$(index, 2) = ""
219.         usersCode$(index, 1) = "": usersCode$(index, 2) = ""
220.     NEXT index
221.     codedPhrase$ = ""
222.     answerPhrase$ = ""
223.     highlightedLetter = 0
224.     mode = 0
225.     FOR index = 1 TO 15
226.         workingLines$(index) = ""
227.         initiallyCodedLines$(index) = ""
228.         answerLines$(index) = ""
229.         leftPositions(index) = 0
230.     NEXT index
231.  
232.     OPEN "CryptoGram" FOR INPUT AS #1
233.     LINE INPUT #1, mLN$: maxLineNumber = VAL(mLN$)
234.     FOR index = 1 TO 26
235.         LINE INPUT #1, translationMatrix$(index, 1)
236.         LINE INPUT #1, translationMatrix$(index, 2)
237.         LINE INPUT #1, usersCode$(index, 1)
238.         LINE INPUT #1, usersCode$(index, 2)
239.     NEXT index
240.     LINE INPUT #1, codedPhrase$
241.     LINE INPUT #1, answerPhrase$
242.     LINE INPUT #1, hL$
243.     LINE INPUT #1, m$: mode = VAL(m$)
244.     FOR index = 1 TO maxLineNumber
245.         LINE INPUT #1, workingLines$(index)
246.         LINE INPUT #1, initiallyCodedLines$(index)
247.         LINE INPUT #1, answerLines$(index)
248.         LINE INPUT #1, lP$: leftPositions(index) = VAL(lP$)
249.     NEXT index
250.     CLOSE #1
251.     loaded = TRUE: CALL Main
252. END SUB
253.  
254. SUB SaveGame
255.     OPEN "CryptoGram" FOR OUTPUT AS #1
256.     PRINT #1, S$(maxLineNumber)
257.     FOR index = 1 TO 26
258.         PRINT #1, translationMatrix$(index, 1)
259.         PRINT #1, translationMatrix$(index, 2)
260.         PRINT #1, usersCode$(index, 1)
261.         PRINT #1, usersCode$(index, 2)
262.     NEXT index
263.     PRINT #1, codedPhrase$
264.     PRINT #1, answerPhrase$
265.     PRINT #1, S$(highlightedLetter)
266.     PRINT #1, S$(mode)
267.     FOR index = 1 TO maxLineNumber
268.         PRINT #1, workingLines$(index)
269.         PRINT #1, initiallyCodedLines$(index)
270.         PRINT #1, answerLines$(index)
271.         PRINT #1, S$(leftPositions(index))
272.     NEXT index
273.     CLOSE #1
274.     _DELAY (0.25)
275.     PLAY arrowKeyMove$
276. END SUB
277.  
278. SUB Main
279.     IF loaded = FALSE THEN
280.         FOR cl = 1 TO 26
281.             translationMatrix$(cl, 1) = ""
282.             translationMatrix$(cl, 2) = ""
283.             usersCode$(cl, 1) = CHR$(cl + 64)
284.             usersCode$(cl, 2) = "-"
285.         NEXT cl
286.         codedPhrase$ = ""
287.         answerPhrase$ = ""
288.         highlightedLetter = 1
289.         FOR index = 1 TO numberOfLines
290.             workingLines$(index) = ""
291.             initiallyCodedLines$(index) = ""
292.             answerLines$(index) = ""
293.             leftPositions(index) = 0
294.             maxLineNumber = 0
295.         NEXT index
296.  
297.         COLOR 15, 1
298.         'first, pick a phrase
299.         randomPhrase = INT(RND * FileStatus) + 1
300.         OPEN "Phrases.txt" FOR INPUT AS #1
301.         FOR x = 1 TO randomPhrase
302.             LINE INPUT #1, answerPhrase$
303.         NEXT x
304.         CLOSE #1
305.  
306.         'second, create a code
307.         usedAlphabet$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
308.         FOR allLetters = 1 TO 26
309.             translationMatrix$(allLetters, 1) = CHR$(allLetters + 64)
310.             newRndLet:
311.             randomLetter = INT(RND * LEN(usedAlphabet$)) + 1
312.             translationMatrix$(allLetters, 2) = MID$(usedAlphabet$, randomLetter, 1)
313.             IF translationMatrix$(allLetters, 1) = translationMatrix$(allLetters, 2) THEN GOTO newRndLet
314.             usedAlphabet$ = MID$(usedAlphabet$, 1, randomLetter - 1) + MID$(usedAlphabet$, randomLetter + 1, LEN(usedAlphabet$))
315.         NEXT allLetters
316.  
317.         'third: put the phrase in code
318.         FOR letter = 1 TO LEN(answerPhrase$)
319.             answerLetter$ = MID$(answerPhrase$, letter, 1)
320.             upAnsLet$ = UCASE$(answerLetter$)
321.             answerLetterNumber = ASC(upAnsLet$) - 64
322.             IF ASC(upAnsLet$) >= 65 AND ASC(upAnsLet$) <= 90 THEN
323.                 upCodeLet$ = translationMatrix$(ASC(upAnsLet$) - 64, 2)
324.                 IF ASC(answerLetter$) >= 65 AND ASC(answerLetter$) <= 90 THEN
325.                     codedLetter$ = upCodeLet$
326.                 ELSE
327.                     codedLetter$ = LCASE$(upCodeLet$)
328.                 END IF
329.             ELSE
330.                 codedLetter$ = answerLetter$
331.             END IF
332.             codedPhrase$ = codedPhrase$ + codedLetter$
333.         NEXT letter
334.  
335.         'next on the list is to center the phrases
336.         lineNumber = 0
337.         shrinkingCode$ = codedPhrase$
338.         shrinkingAnswer$ = answerPhrase$
339.         DO
340.             checking = 60
341.             DO
342.                 wheresSpace$ = MID$(shrinkingAnswer$, checking, 1)
343.                 checking = checking - 1
344.             LOOP UNTIL wheresSpace$ = CHR$(32)
345.             lineNumber = lineNumber + 1
346.             answerLines$(lineNumber) = MID$(shrinkingAnswer$, 1, checking)
347.             workingLines$(lineNumber) = MID$(shrinkingCode$, 1, checking)
348.             initiallyCodedLines$(lineNumber) = MID$(shrinkingCode$, 1, checking)
349.             leftPositions(lineNumber) = Center(answerLines$(lineNumber))
350.             shrinkingAnswer$ = MID$(shrinkingAnswer$, checking + 1, LEN(shrinkingAnswer$))
351.             shrinkingCode$ = MID$(shrinkingCode$, checking + 1, LEN(shrinkingCode$))
352.         LOOP UNTIL LEN(shrinkingAnswer$) <= 60
353.         lineNumber = lineNumber + 1
354.         answerLines$(lineNumber) = shrinkingAnswer$
355.         leftPositions(lineNumber) = Center(answerLines$(lineNumber))
356.         workingLines$(lineNumber) = shrinkingCode$
357.         initiallyCodedLines$(lineNumber) = shrinkingCode$
358.  
359.         maxLineNumber = lineNumber
360.         highlightedLetter = 1
361.     END IF
362.     loaded = FALSE
363.     refresh = TRUE
364.     DO
365.         userInput$ = UCASE$(INKEY$)
366.         SELECT CASE userInput$
367.             CASE "1"
368.                 PLAY enterKeyHit$
369.                 refresh = TRUE
370.                 CALL Hints
371.             CASE "2"
372.                 PLAY enterKeyHit$
373.                 CALL SaveGame
374.                 CALL Menu
375.             CASE CHR$(27)
376.                 PLAY enterKeyHit$ + enterKeyHit$ + arrowKeyMove$
377.                 CALL RestartPuzzle
378.                 refresh = TRUE
379.             CASE "5"
380.                 CALL Menu
381.                 PLAY enterKeyHit$
382.                 highlightedLetter = 1
383.                 FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": usersCode$(cl, 1) = "": usersCode$(cl, 2) = "": NEXT cl
384.                 FOR cl = 1 TO numberOfLines
385.                     workingLines$(cl) = ""
386.                     initiallyCodedLines$(cl) = ""
387.                     answerLines$(cl) = ""
388.                     leftPositions(cl) = 0
389.                 NEXT cl
390.                 FOR cl = 1 TO 26: translationMatrix$(cl, 1) = "": translationMatrix$(cl, 2) = "": usersCode$(cl, 1) = "": usersCode$(cl, 2) = "": NEXT cl
391.                 mode = Normal
392.  
393.             CASE leftArrow$
394.                 PLAY arrowKeyMove$
395.                 IF highlightedLetter > 1 THEN
396.                     highlightedLetter = highlightedLetter - 1
397.                 ELSE
398.                     highlightedLetter = 26
399.                 END IF
400.                 refresh = TRUE
401.             CASE rightArrow$
402.                 PLAY arrowKeyMove$
403.                 IF highlightedLetter < 26 THEN
404.                     highlightedLetter = highlightedLetter + 1
405.                 ELSE
406.                     highlightedLetter = 1
407.                 END IF
408.                 refresh = TRUE
409.             CASE "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
410.                 PLAY enterKeyHit$
411.                 usersCode$(highlightedLetter, 2) = userInput$
412.                 CALL Switch(userInput$)
413.                 refresh = TRUE
414.         END SELECT
415.  
416.         IF refresh = TRUE THEN
417.             refresh = FALSE
418.             CALL ShowPuzzle
419.         END IF
420.     LOOP UNTIL userInput$ = "9" OR CorrectPhrase = TRUE
421.     IF CorrectPhrase = TRUE THEN
422.         COLOR 11, 0
423.         LOCATE 25, Center("success")
424.         PRINT "SUCCESS!!"
425.         _DELAY (10)
426.     END IF
427. END SUB
428.  
429. SUB Hints
430.     nope:
431.     COLOR 14, 1
432.     CLS
433.     a$ = "You have an option of 3 types of hints to choose from.": LOCATE 10, Center(a$): PRINT a$
434.     a$ = "Wheel of Fortune reveals the letters for R, S, T, L, N and E": LOCATE 11, Center(a$): PRINT a$
435.     a$ = "Or you can choose to reveal a single letter.": LOCATE 12, Center(a$): PRINT a$
436.     a$ = "Example phrase = Rmtleyr ewatbr": LOCATE 14, Center(a$): COLOR 10, 1: PRINT "Example phrase ";: COLOR 14, 1: PRINT "=";: COLOR 10, 1: PRINT " Rmtleyr ewatbr": COLOR 14, 1
437.     a$ = "1.) Wheel of Fortune: Example phrase = Emtlele ewrtse": LOCATE 17, Center(a$): PRINT "1.) Wheel of Fortune: ";: COLOR 10, 1: PRINT "Example phrase = ";
438.     COLOR 12, 1: PRINT "E";: COLOR 10, 1: PRINT "mtle";: COLOR 12, 1: PRINT "le";: COLOR 10, 1: PRINT " ew";: COLOR 12, 1: PRINT "r";: COLOR 10, 1: PRINT "t";: COLOR 12, 1: PRINT "se": COLOR 14, 1
439.     a$ = "2.) Reveal a single random letter: Rmtleyr ewatbr": LOCATE 19, Center(a$): PRINT "2.) Reveal a single random letter: ";: COLOR 12, 1: PRINT "E";: COLOR 10, 1
440.     PRINT "mtley";: COLOR 12, 1: PRINT "e";: COLOR 10, 1: PRINT " ewrts";: COLOR 12, 1: PRINT "e": COLOR 14, 1
441.     a$ = "3.) Choose a single coded letter to decode:": LOCATE 21, Center(a$): PRINT a$
442.     a$ = "    Pick any letter in example phrase": LOCATE 22, Center(a$): PRINT "    Pick any letter in ";: COLOR 10, 1: PRINT "R";
443.     COLOR 12, 1: PRINT "m";: COLOR 10, 1: PRINT "tleyr ewatbr";: COLOR 14, 1
444.     a$ = "      to be revealed in example phrase": LOCATE 23, Center(a$): PRINT "      to be revealed in ";: COLOR 10, 1: PRINT "E";: COLOR 12, 1: PRINT "x";: COLOR 10, 1: PRINT "ample phrase": COLOR 14, 1
445.     a$ = "4.) Reveal a letter you think is in the answer phrase:": LOCATE 25, Center(a$): PRINT a$
446.     a$ = "Choosing " + CHR$(34) + "K" + CHR$(34) + " wouldn't reveal anything. Choosing " + CHR$(34) + "L" + CHR$(34): LOCATE 26, Center(a$): PRINT a$
447.     a$ = " Reveals the " + CHR$(34) + "L" + CHR$(34) + " -- example phrase": LOCATE 27, Center(a$): PRINT "reveals the " + CHR$(34) + "L" + CHR$(34) + " -- ";
448.     COLOR 10, 1: PRINT "Examp";: COLOR 12, 1: PRINT "l";: COLOR 10, 1: PRINT "e phrase": COLOR 14, 1
449.     a$ = "5.) Switch to easy mode": LOCATE 29, Center(a$): PRINT a$
450.     a$ = "6.) Display every coded letter and the letter": LOCATE 31, Center(a$): PRINT a$
451.     a$ = "       it should be for 2 seconds": LOCATE 32, Center(a$): PRINT a$
452.  
453.  
454.  
455.     a$ = "7.) Cancel": LOCATE 35, Center(a$): PRINT a$
456.     PLAY arrowKeyMove$
457.     r$ = P$
458.     PLAY enterKeyHit$
459.     SELECT CASE r$
460.         CASE "1"
461.             r$ = translationMatrix$(18, 2): re = ASC(r$) - 64: highlightedLetter = re: CALL Switch("R"): usersCode$(re, 2) = "R"
462.             ss$ = translationMatrix$(19, 2): se = ASC(ss$) - 64: highlightedLetter = se: CALL Switch("S"): usersCode$(se, 2) = "S"
463.             t$ = translationMatrix$(20, 2): te = ASC(t$) - 64: highlightedLetter = te: CALL Switch("T"): usersCode$(te, 2) = "T"
464.             l$ = translationMatrix$(12, 2): le = ASC(l$) - 64: highlightedLetter = le: CALL Switch("L"): usersCode$(le, 2) = "L"
465.             n$ = translationMatrix$(14, 2): ne = ASC(n$) - 64: highlightedLetter = ne: CALL Switch("N"): usersCode$(ne, 2) = "N"
466.             e$ = translationMatrix$(5, 2): ee = ASC(e$) - 64: highlightedLetter = ee: CALL Switch("E"): usersCode$(ee, 2) = "E"
467.         CASE "2"
468.             gotThis:
469.             tryAgain:
470.             there = FALSE
471.             someRandom$ = CHR$((INT(RND * 26)) + 65)
472.             FOR x = 1 TO maxLineNumber
473.                 FOR y = 1 TO LEN(answerLines$(x))
474.                     IF UCASE$(MID$(answerLines$(x), y, 1)) = someRandom$ THEN there = TRUE
475.                 NEXT y
476.             NEXT x
477.             IF there = FALSE THEN GOTO tryAgain
478.             itShouldBeCodedAs$ = translationMatrix$(ASC(someRandom$) - 64, 2)
479.             usersAttempt$ = usersCode$(ASC(itShouldBeCodedAs$) - 64, 2)
480.             IF usersAttempt$ = someRandom$ THEN GOTO tryAgain
481.             highlightedLetter = ASC(itShouldBeCodedAs$) - 64
482.             Switch (someRandom$)
483.             usersCode$(highlightedLetter, 2) = someRandom$
484.         CASE "3"
485.             PRINT: PRINT
486.             a$ = "What code letter do you want to know the answer letter for?    ": LOCATE 37, Center(a$): PRINT a$;
487.             aCodedLetter$ = P$: aCodedLetter$ = UCASE$(aCodedLetter$)
488.             theCorrectLetter$ = ""
489.             FOR index = 1 TO 26
490.                 IF translationMatrix$(index, 2) = aCodedLetter$ THEN theCorrectLetter$ = translationMatrix$(index, 1)
491.             NEXT index
492.             highlightedLetter = ASC(aCodedLetter$) - 64
493.             usersCode$(ASC(aCodedLetter$) - 64, 2) = theCorrectLetter$
494.             CALL Switch(theCorrectLetter$)
495.         CASE "4"
496.             a$ = "What answer letter do you want the code for?    ": LOCATE 37, Center(a$): PRINT a$;: theCorrectLetter$ = P$: theCorrectLetter$ = UCASE$(theCorrectLetter$)
497.             FOR index = 1 TO 26
498.                 LOCATE 40, index: PRINT translationMatrix$(index, 1)
499.                 LOCATE 41, index: PRINT translationMatrix$(index, 2)
500.             NEXT index
501.             f$ = P$
502.             clPosition = ASC(theCorrectLetter$) - 64
503.             letterCode$ = translationMatrix$(clPosition, 2)
504.             highlightedLetter = ASC(letterCode$) - 64
505.             CALL Switch(UCASE$(theCorrectLetter$))
506.             usersCode$(highlightedLetter, 2) = UCASE$(theCorrectLetter$)
507.         CASE "5"
508.             mode = Easy
509.         CASE "6"
510.             COLOR 15, 1
511.             CLS
512.             FOR index = 1 TO 26
513.                 LOCATE 22, ((80 - 52) / 2) + (index * 2)
514.                 PRINT translationMatrix$(index, 1)
515.                 LOCATE 24, ((80 - 52) / 2) + (index * 2)
516.                 PRINT translationMatrix$(index, 2)
517.             NEXT index
518.             _DELAY (2)
519.         CASE "7"
520.             'just go away
521.         CASE ELSE
522.             GOTO nope
523.     END SELECT
524.     highlightedLetter = 1
525. END SUB
526.  
527. FUNCTION CorrectPhrase
528.     ag = TRUE
529.     FOR x = 1 TO maxLineNumber
530.         IF workingLines$(x) <> answerLines$(x) THEN ag = FALSE
531.     NEXT x
532.     CorrectPhrase = ag
533. END FUNCTION
534.  
535. SUB Switch (withThis$)
536.     DIM newLines$(1 TO maxLineNumber): FOR i = 1 TO maxLineNumber: newLines$(i) = "": NEXT i
537.     FOR l = 1 TO maxLineNumber
538.         FOR c = 1 TO LEN(workingLines$(l))
539.             letter$ = CHR$(highlightedLetter + 64)
540.             initialLetter$ = MID$(initiallyCodedLines$(l), c, 1)
541.             wcl$ = MID$(workingLines$(l), c, 1)
542.             IF ASC(initialLetter$) >= 65 AND ASC(initialLetter$) <= 90 THEN
543.                 withThis$ = UCASE$(withThis$)
544.             ELSEIF ASC(initialLetter$) >= 97 AND ASC(initialLetter$) <= 122 THEN
545.                 withThis$ = LCASE$(withThis$)
546.             ELSE
547.             END IF
548.             IF letter$ = UCASE$(initialLetter$) THEN
549.                 newLines$(l) = newLines$(l) + withThis$
550.             ELSE
551.                 newLines$(l) = newLines$(l) + wcl$
552.             END IF
553.         NEXT c 'haracter
554.     NEXT l 'ine
555.     FOR index = 1 TO maxLineNumber
556.         workingLines$(index) = newLines$(index)
557.     NEXT index
558. END SUB
559.  
560. SUB RestartPuzzle
561.     FOR c = 1 TO maxLineNumber
562.         workingLines$(c) = initiallyCodedLines$(c)
563.     NEXT c
564.     FOR xx = 1 TO 26
565.         usersCode$(xx, 2) = "-"
566.     NEXT xx
567. END SUB
568.  
569. SUB ShowPuzzle
570.     COLOR 10, 1: CLS
571.  
572.     FOR eachLine = 1 TO maxLineNumber
573.         LOCATE 13 + eachLine, leftPositions(eachLine)
574.         FOR eachLetter = 1 TO LEN(workingLines$(eachLine))
575.             f$ = MID$(workingLines$(eachLine), eachLetter, 1)
576.             icl$ = MID$(initiallyCodedLines$(eachLine), eachLetter, 1)
577.             correct$ = MID$(answerLines$(eachLine), eachLetter, 1)
578.             ac = ASC(UCASE$(icl$)) - 64
579.             IF f$ <> icl$ THEN
580.                 COLOR 12, 1
581.             END IF
582.             IF f$ = correct$ AND mode = Easy THEN
583.                 COLOR 15, 1
584.             END IF
585.             IF highlightedLetter = ac THEN
586.                 COLOR 10, 0
587.             END IF
588.             IF f$ = icl$ AND highlightedLetter <> ac AND f$ <> correct$ THEN COLOR 10, 1
589.  
590.             PRINT f$;
591.             COLOR 10, 1
592.         NEXT eachLetter
593.     NEXT eachLine
594.     spaces = 2
595.     FOR x = 1 TO 26
596.         IF x = highlightedLetter THEN
597.             COLOR 10, 0
598.         ELSE
599.             COLOR 10, 1
600.         END IF
601.         LOCATE 35, spaces
602.         PRINT usersCode$(x, 1)
603.         LOCATE 37, spaces
604.         PRINT usersCode$(x, 2)
605.         spaces = spaces + 3
606.     NEXT x
607.     a$ = "Push 1 to access the hint menu"
608.     LOCATE 43, Center(a$): COLOR 14, 1: PRINT a$
609.     a$ = "Push 2 to save the game and quit": COLOR 14, 1: LOCATE 45, Center(a$): PRINT a$
610.     a$ = "Push [ESC] to reset": LOCATE 47, Center(a$): COLOR 14, 1: PRINT a$
611.     a$ = "Push 5 to quit": LOCATE 49, Center(a$): COLOR 14, 1: PRINT a$
612. END SUB
613.  
614. FUNCTION FileStatus
615.     IF _FILEEXISTS("Phrases.txt") = 0 THEN
616.         OPEN "Phrases.txt" FOR OUTPUT AS #1
617.         PRINT #1, "Tomorrow, and tomorrow, and tomorrow, Creeps in this petty pace from day to day, To the last syllable of recorded time; And all our yesterdays have lighted fools The way to dusty death. Out, out, brief candle! Life's but a walking shadow, a poor player, That struts and frets his hour upon the stage, And then is heard no more. It is a tale Told by an idiot, full of sound and fury, Signifying nothing."
618.         PRINT #1, "To be, or not to be: that is the question: Whether 'tis nobler in the mind to suffer The slings and arrows of outrageous fortune, Or to take arms against a sea of troubles, And by opposing end them? To die: to sleep; No more; and by a sleep to say we end The heart-ache and the thousand natural shocks That flesh is heir to, 'tis a consummation Devoutly to be wish'd. To die, to sleep; To sleep: perchance to dream"
619.         PRINT #1, "If someone is able to show me that what I think or do is not right, I will happily change. For I seek the truth, by which no oe ever was truly harmed. Harmed is the person who continues in his self-deception and ignorance."
620.         PRINT #1, "Funny lines: Before you marry a person, you should first make them use a computer with slow internet to see who they really are. -- Someone asked me, if I were stranded on a desert island what book would I bring... " + CHR$(34) + "How to Build a Boat." + CHR$(34)
621.         PRINT #1, "Funny lines: I finally realized that people are prisoners of their own phones... that's why it's called a " + CHR$(34) + "cell" + CHR$(34) + " phone. -- Be decisive. Right or wrong, make a decision. The road is paved with flat squirrels who couldn't make a decision."
622.         PRINT #1, "Funny lines: If at first you don't succeed, then skydiving definitely isn't for you. -- My cell phone is acting up. I keep pressing the Home button but every time I look around, I'm still at work."
623.         PRINT #1, "Pangrams: Pack my box with five dozen liquor jugs. -- The quick brown fox jumps over the lazy dog. -- My girl wove six dozen plaid jackets before she quit."
624.         PRINT #1, "EOF"
625.         CLOSE #1
626.         numberOfPhrases = 7
627.     ELSE
628.         OPEN "Phrases.txt" FOR INPUT AS #1
629.         numberOfPhrases = 0
630.         DO
631.             numberOfPhrases = numberOfPhrases + 1
632.             LINE INPUT #1, lineCounting$
633.         LOOP UNTIL INSTR(lineCounting$, "EOF") <> 0
634.         numberOfPhrases = numberOfPhrases - 1
635.         CLOSE #1
636.     END IF
637.     FileStatus = numberOfPhrases
638. END FUNCTION
639.  
640. FUNCTION Center (text$)
641.     Center = INT((80 - LEN(text$)) / 2)
642. END FUNCTION
643.  
644. FUNCTION S$ (number)
645.     S$ = LTRIM$(STR$(number))
646. END FUNCTION
647.  
648. FUNCTION P$
649.     pause$ = INPUT$(1)
650.     IF pause$ = CHR$(27) THEN END
651.     P$ = pause$
652. END FUNCTION
653.  

Actually on line 314 you use Mid$ incorrectly for the 2nd Mid$ on the right of the = sign.
It does not produce error because QB64 is forgiving when you ask for more bytes = characters or letters, past the start position than are available in string, it just gives you all the letters it can.
Update: Lines 350 and 351 suffer the same problem and are "forgiven" by QB64 the same way, other Basics can be more picky! In all 3 cases you could use the 2 parameter version of Mid$ ie Mid$(s$, startPosition)

You do use Mid$() correctly everywhere you need a single letter Mid$(s$, startPosition, 1(letter))
And you use Mid$() correctly when the start position = 1 then the number of letters = the end position!

 

[Jaze]

I'm in the habit of giving MID$ three variables. If I hadn't been aware that MID$ would not give an error instead of the the empty string for letters beyond the end, I would've had to change my habitual use of three terms. And then there's the fact that if QB didn't return an empty string for every requested character beyond the length of the string, I would've had to code it differently, wouldn't I have?