Guess the Animal

[bplus]

REMline   i don't know this instruction i was looking in the wiki but i can't understand what it is for 

Found it searching Wiki: https://www.qb64.org/wiki/Line_number

First I searched remline, nothing, then remline.bas and hit!

[Kiara87]

Found it searching Wiki: https://www.qb64.org/wiki/Line_number

First I searched remline, nothing, then remline.bas and hit!

only gives me error?
https://imgur.com/yXPNoeg

[bplus]

only gives me error?

REMline is a .bas program that needs the program name for the .BAS Source file to remove the line numbers from.

Store the remline.bas program in same folder where your .bas file is that you want to remove line numbers from.
RUN the program to compile it. (Make sure the Save EXE in same folder as Source is bulleted in the RUN menu of IDE)
Run the program again and input the name of the bas file to remove the numbers from (looks like it does quotes too.)

What I do is look for every GOTO and GOSUB and comment those line numbers then I remove all line numbers not commented then I remove comments to line numbers and make sure the program still works correctly.

[MidnightOwl]

here is the program converted to QB64 code. I have done things like this so much that it was a piece of cake.

Code: QB64: [Select]

1. [DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
2.  
3. PRINT TAB(32); "ANIMAL"
4. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
5. PRINT: PRINT: PRINT
6. PRINT "PLAY 'GUESS THE ANIMAL'"
7. PRINT
8. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
9. PRINT
10. DIM SHARED A$(200), K, N, T$
11. FOR I = 0 TO 3
12.    90 READ A$(I)
13. NEXT I
14. N = VAL(A$(0))
15.  
16. MAIN
17. SYSTEM
18.  
19. '         MAIN CONTROL SECTION
20. SUB MAIN ()
21.     DO
22.         DO
23.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
24.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
25.         IF A$ = "LIST" THEN SHOWLIST: MAIN
26.         IF LEFT$(A$, 1) = "N" THEN SYSTEM
27.         K = 1
28.         DO
29.             SHOWQUESTION
30.             IF LEN(A$(K)) = 0 THEN SYSTEM
31.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
32.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
33.         INPUT A$
34.         A$ = LEFT$(A$, 1)
35.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
36.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
37.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
38.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
39.         INPUT X$
40.         DO
41.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
42.             INPUT A$
43.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
44.         IF A$ = "Y" THEN B$ = "N"
45.         IF A$ = "N" THEN B$ = "Y"
46.         Z1 = VAL(A$(0))
47.         A$(0) = STR$(Z1 + 2)
48.         A$(Z1) = A$(K)
49.         A$(Z1 + 1) = "\A" + V$
50.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
51.     LOOP
52. END SUB
53.  
54. '  SUBROUTINE TO PRINT QUESTIONS
55. SUB SHOWQUESTION ()
56.     Q$ = A$(K)
57.     DO
58.         FOR Z = 3 TO LEN(Q$)
59.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
60.         NEXT Z
61.         INPUT C$: C$ = UCASE$(C$)
62.         C$ = LEFT$(C$, 1)
63.     LOOP UNTIL C$ = "Y" OR C$ = "N"
64.     T$ = "\" + C$
65.     FOR X = 3 TO LEN(Q$) - 1
66.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
67.     NEXT X
68.     FOR Y = X + 1 TO LEN(Q$)
69.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
70.     NEXT Y
71.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
72. END SUB
73.  
74. SUB SHOWLIST ()
75.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
76.     X = 0
77.     FOR I = 1 TO 200
78.        620 IF LEFT$(A$(I), 2) = "\A" THEN
79.            624 PRINT TAB(15 * X);
80.            630 FOR Z = 3 TO LEN(A$(I))
81.                640 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
82.            642 NEXT Z
83.            645 X = X + 1: IF X = 4 THEN X = 0: PRINT
84.         END IF
85.     NEXT I
86.     PRINT
87.     PRINT
88. END SUB
89.  
90.  
91.  
92. /code]

[MidnightOwl]

Here is a version that saves a data file so that the program doesn't forget what it learned

Code: QB64: [Select]

1. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
2.  
3. PRINT TAB(32); "ANIMAL"
4. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
5. PRINT: PRINT: PRINT
6. PRINT "PLAY 'GUESS THE ANIMAL'"
7. PRINT
8. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
9. PRINT
10. DIM SHARED A$(200), K, N, T$
11. ON ERROR GOTO NOFILE
12. OPEN "ANIMAL.DAT" FOR INPUT AS #3
13. FOR I = 0 TO 200
14.     INPUT #3, A$(I)
15. NEXT I
16. CLOSE #3
17. NOFILE:
18. FOR I = 0 TO 3
19.     READ A$(I)
20. NEXT I
21. ON ERROR GOTO 0
22.  
23. N = VAL(A$(0))
24.  
25. MAIN
26. SYSTEM
27.  
28. '         MAIN CONTROL SECTION
29. SUB MAIN ()
30.     DO
31.         DO
32.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
33.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
34.         IF A$ = "LIST" THEN SHOWLIST: MAIN
35.         IF LEFT$(A$, 1) = "N" THEN KEEPDATA: SYSTEM
36.         K = 1
37.         DO
38.             SHOWQUESTION
39.             IF LEN(A$(K)) = 0 THEN KEEPDATA: SYSTEM
40.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
41.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
42.         INPUT A$
43.         A$ = LEFT$(A$, 1)
44.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
45.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
46.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
47.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
48.         INPUT X$
49.         DO
50.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
51.             INPUT A$
52.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
53.         IF A$ = "Y" THEN B$ = "N"
54.         IF A$ = "N" THEN B$ = "Y"
55.         Z1 = VAL(A$(0))
56.         A$(0) = STR$(Z1 + 2)
57.         A$(Z1) = A$(K)
58.         A$(Z1 + 1) = "\A" + V$
59.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
60.     LOOP
61. END SUB
62.  
63. '  SUBROUTINE TO PRINT QUESTIONS
64. SUB SHOWQUESTION ()
65.     Q$ = A$(K)
66.     DO
67.         FOR Z = 3 TO LEN(Q$)
68.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
69.         NEXT Z
70.         INPUT C$: C$ = UCASE$(C$)
71.         C$ = LEFT$(C$, 1)
72.     LOOP UNTIL C$ = "Y" OR C$ = "N"
73.     T$ = "\" + C$
74.     FOR X = 3 TO LEN(Q$) - 1
75.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
76.     NEXT X
77.     FOR Y = X + 1 TO LEN(Q$)
78.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
79.     NEXT Y
80.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
81. END SUB
82.  
83. SUB SHOWLIST ()
84.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
85.     X = 0
86.     FOR I = 1 TO 200
87.         IF LEFT$(A$(I), 2) = "\A" THEN
88.             PRINT TAB(15 * X);
89.             FOR Z = 3 TO LEN(A$(I))
90.                 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
91.             NEXT Z
92.             X = X + 1: IF X = 4 THEN X = 0: PRINT
93.         END IF
94.     NEXT I
95.     PRINT
96.     PRINT
97. END SUB
98.  
99. '        SUBROUTINE TO SAVE DATA FILE
100. SUB KEEPDATA ()
101.     OPEN "ANIMAL.DAT" FOR OUTPUT AS #2
102.     FOR I = 0 TO 200
103.         WRITE #2, A$(I)
104.     NEXT I
105.     CLOSE #2
106. END SUB

[Kiara87]

Here is a version that saves a data file so that the program doesn't forget what it learned

Code: QB64: [Select]

1. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
2.  
3. PRINT TAB(32); "ANIMAL"
4. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
5. PRINT: PRINT: PRINT
6. PRINT "PLAY 'GUESS THE ANIMAL'"
7. PRINT
8. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
9. PRINT
10. DIM SHARED A$(200), K, N, T$
11. ON ERROR GOTO NOFILE
12. OPEN "ANIMAL.DAT" FOR INPUT AS #3
13. FOR I = 0 TO 200
14.     INPUT #3, A$(I)
15. NEXT I
16. CLOSE #3
17. NOFILE:
18. FOR I = 0 TO 3
19.     READ A$(I)
20. NEXT I
21. ON ERROR GOTO 0
22.  
23. N = VAL(A$(0))
24.  
25. MAIN
26. SYSTEM
27.  
28. '         MAIN CONTROL SECTION
29. SUB MAIN ()
30.     DO
31.         DO
32.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
33.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
34.         IF A$ = "LIST" THEN SHOWLIST: MAIN
35.         IF LEFT$(A$, 1) = "N" THEN KEEPDATA: SYSTEM
36.         K = 1
37.         DO
38.             SHOWQUESTION
39.             IF LEN(A$(K)) = 0 THEN KEEPDATA: SYSTEM
40.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
41.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
42.         INPUT A$
43.         A$ = LEFT$(A$, 1)
44.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
45.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
46.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
47.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
48.         INPUT X$
49.         DO
50.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
51.             INPUT A$
52.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
53.         IF A$ = "Y" THEN B$ = "N"
54.         IF A$ = "N" THEN B$ = "Y"
55.         Z1 = VAL(A$(0))
56.         A$(0) = STR$(Z1 + 2)
57.         A$(Z1) = A$(K)
58.         A$(Z1 + 1) = "\A" + V$
59.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
60.     LOOP
61. END SUB
62.  
63. '  SUBROUTINE TO PRINT QUESTIONS
64. SUB SHOWQUESTION ()
65.     Q$ = A$(K)
66.     DO
67.         FOR Z = 3 TO LEN(Q$)
68.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
69.         NEXT Z
70.         INPUT C$: C$ = UCASE$(C$)
71.         C$ = LEFT$(C$, 1)
72.     LOOP UNTIL C$ = "Y" OR C$ = "N"
73.     T$ = "\" + C$
74.     FOR X = 3 TO LEN(Q$) - 1
75.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
76.     NEXT X
77.     FOR Y = X + 1 TO LEN(Q$)
78.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
79.     NEXT Y
80.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
81. END SUB
82.  
83. SUB SHOWLIST ()
84.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
85.     X = 0
86.     FOR I = 1 TO 200
87.         IF LEFT$(A$(I), 2) = "\A" THEN
88.             PRINT TAB(15 * X);
89.             FOR Z = 3 TO LEN(A$(I))
90.                 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
91.             NEXT Z
92.             X = X + 1: IF X = 4 THEN X = 0: PRINT
93.         END IF
94.     NEXT I
95.     PRINT
96.     PRINT
97. END SUB
98.  
99. '        SUBROUTINE TO SAVE DATA FILE
100. SUB KEEPDATA ()
101.     OPEN "ANIMAL.DAT" FOR OUTPUT AS #2
102.     FOR I = 0 TO 200
103.         WRITE #2, A$(I)
104.     NEXT I
105.     CLOSE #2
106. END SUB

big thank you for transforming the program

this is what bplus intends to translate the code from one structure to another structure

obviously for those who do not have much practice it is more tiring

but i will try to study above and thanks for translating the program

[bplus]

Here is a version that saves a data file so that the program doesn't forget what it learned

Code: QB64: [Select]

1. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
2.  
3. PRINT TAB(32); "ANIMAL"
4. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
5. PRINT: PRINT: PRINT
6. PRINT "PLAY 'GUESS THE ANIMAL'"
7. PRINT
8. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
9. PRINT
10. DIM SHARED A$(200), K, N, T$
11. ON ERROR GOTO NOFILE
12. OPEN "ANIMAL.DAT" FOR INPUT AS #3
13. FOR I = 0 TO 200
14.     INPUT #3, A$(I)
15. NEXT I
16. CLOSE #3
17. NOFILE:
18. FOR I = 0 TO 3
19.     READ A$(I)
20. NEXT I
21. ON ERROR GOTO 0
22.  
23. N = VAL(A$(0))
24.  
25. MAIN
26. SYSTEM
27.  
28. '         MAIN CONTROL SECTION
29. SUB MAIN ()
30.     DO
31.         DO
32.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
33.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
34.         IF A$ = "LIST" THEN SHOWLIST: MAIN
35.         IF LEFT$(A$, 1) = "N" THEN KEEPDATA: SYSTEM
36.         K = 1
37.         DO
38.             SHOWQUESTION
39.             IF LEN(A$(K)) = 0 THEN KEEPDATA: SYSTEM
40.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
41.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
42.         INPUT A$
43.         A$ = LEFT$(A$, 1)
44.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
45.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
46.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
47.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
48.         INPUT X$
49.         DO
50.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
51.             INPUT A$
52.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
53.         IF A$ = "Y" THEN B$ = "N"
54.         IF A$ = "N" THEN B$ = "Y"
55.         Z1 = VAL(A$(0))
56.         A$(0) = STR$(Z1 + 2)
57.         A$(Z1) = A$(K)
58.         A$(Z1 + 1) = "\A" + V$
59.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
60.     LOOP
61. END SUB
62.  
63. '  SUBROUTINE TO PRINT QUESTIONS
64. SUB SHOWQUESTION ()
65.     Q$ = A$(K)
66.     DO
67.         FOR Z = 3 TO LEN(Q$)
68.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
69.         NEXT Z
70.         INPUT C$: C$ = UCASE$(C$)
71.         C$ = LEFT$(C$, 1)
72.     LOOP UNTIL C$ = "Y" OR C$ = "N"
73.     T$ = "\" + C$
74.     FOR X = 3 TO LEN(Q$) - 1
75.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
76.     NEXT X
77.     FOR Y = X + 1 TO LEN(Q$)
78.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
79.     NEXT Y
80.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
81. END SUB
82.  
83. SUB SHOWLIST ()
84.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
85.     X = 0
86.     FOR I = 1 TO 200
87.         IF LEFT$(A$(I), 2) = "\A" THEN
88.             PRINT TAB(15 * X);
89.             FOR Z = 3 TO LEN(A$(I))
90.                 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
91.             NEXT Z
92.             X = X + 1: IF X = 4 THEN X = 0: PRINT
93.         END IF
94.     NEXT I
95.     PRINT
96.     PRINT
97. END SUB
98.  
99. '        SUBROUTINE TO SAVE DATA FILE
100. SUB KEEPDATA ()
101.     OPEN "ANIMAL.DAT" FOR OUTPUT AS #2
102.     FOR I = 0 TO 200
103.         WRITE #2, A$(I)
104.     NEXT I
105.     CLOSE #2
106. END SUB

Nice! you fixed the parsing problem for asking the questions and converted everything to SUBs AND saved the new learning to file!  I recommend UCASE$ conversions for all INPUTs so can type INPUTs in lower case and will be automatically converted to upper and remain consistent to the other parts of program.

 

See? the dog lesson didn't take though it did ask the right question, it thinks it hasn't guessed it yet.

Ha! I've still not analysed the structure to the A$() array, I wanted to see how that N got used at the start, looks like MidnightOwl... no  he SHARED it along with some others with his SUBs.

Oh there's the data, right at the top, allready to go if a file hadn't been started yet!
Now what does file look like after I started dog?

Animal.DAT the saved lesson on DOG, I see N is increased to 6

" 6"
"\QDOES IT SWIM\Y2\N3\"
"\AFISH"
"\QDOES IT FLY\N 5\Y 4\"
"\ABIRD"
"\ADOG"

So N is left at A$(0) and tracks the last line number in the file or A$() array. I still need to go over structure for storing data in array. MidnightOwl had to solve all that.


So how do we get practice for Kiara using arrays and then SUBs and FUNCTIONs? This might have been too hard but maybe a demo of what you can do with some practice behind you.

All newbies need this practice, they are the bigger hurdles for novice.

[bplus]

I just added UCASE$ to all INPUTs of MidnightOwl's transformed code:

Code: QB64: [Select]

1.  
2. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
3.  
4. PRINT TAB(32); "ANIMAL"
5. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
6. PRINT: PRINT: PRINT
7. PRINT "PLAY 'GUESS THE ANIMAL'"
8. PRINT
9. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
10. PRINT
11. DIM SHARED A$(200), K, N, T$
12. ON ERROR GOTO NOFILE
13. OPEN "ANIMAL.DAT" FOR INPUT AS #3
14. FOR I = 0 TO 200
15.     INPUT #3, A$(I)
16. NEXT I
17. CLOSE #3
18. NOFILE:
19. FOR I = 0 TO 3
20.     READ A$(I)
21. NEXT I
22. ON ERROR GOTO 0
23.  
24. N = VAL(A$(0))
25.  
26. MAIN
27. SYSTEM
28.  
29. '         MAIN CONTROL SECTION
30. SUB MAIN ()
31.     DO
32.         DO
33.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
34.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
35.         IF A$ = "LIST" THEN SHOWLIST: MAIN
36.         IF LEFT$(A$, 1) = "N" THEN KEEPDATA: SYSTEM
37.         K = 1
38.         DO
39.             SHOWQUESTION
40.             IF LEN(A$(K)) = 0 THEN KEEPDATA: SYSTEM
41.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
42.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
43.         INPUT A$
44.         A$ = UCASE$(LEFT$(A$, 1)) '<<<<<<<<<<<<<<  fix to ucase$
45.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
46.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
47.         V$ = UCASE$(V$) '<<<<<<<<<<<<<<  fix to ucase$
48.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
49.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
50.         INPUT X$
51.         X$ = UCASE$(X$) '<<<<<<<<<<<<<<  fix to ucase$
52.         DO
53.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
54.             INPUT A$
55.             A$ = UCASE$(A$) '<<<<<<<<<<<<<<  fix to ucase$
56.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
57.         IF A$ = "Y" THEN B$ = "N"
58.         IF A$ = "N" THEN B$ = "Y"
59.         Z1 = VAL(A$(0))
60.         A$(0) = STR$(Z1 + 2)
61.         A$(Z1) = A$(K)
62.         A$(Z1 + 1) = "\A" + V$
63.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
64.     LOOP
65. END SUB
66.  
67. '  SUBROUTINE TO PRINT QUESTIONS
68. SUB SHOWQUESTION ()
69.     Q$ = A$(K)
70.     DO
71.         FOR Z = 3 TO LEN(Q$)
72.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
73.         NEXT Z
74.         INPUT C$: C$ = UCASE$(C$)
75.         C$ = LEFT$(C$, 1)
76.     LOOP UNTIL C$ = "Y" OR C$ = "N"
77.     T$ = "\" + C$
78.     FOR X = 3 TO LEN(Q$) - 1
79.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
80.     NEXT X
81.     FOR Y = X + 1 TO LEN(Q$)
82.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
83.     NEXT Y
84.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
85. END SUB
86.  
87. SUB SHOWLIST ()
88.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
89.     X = 0
90.     FOR I = 1 TO 200
91.         IF LEFT$(A$(I), 2) = "\A" THEN
92.             PRINT TAB(15 * X);
93.             FOR Z = 3 TO LEN(A$(I))
94.                 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
95.             NEXT Z
96.             X = X + 1: IF X = 4 THEN X = 0: PRINT
97.         END IF
98.     NEXT I
99.     PRINT
100.     PRINT
101. END SUB
102.  
103. '        SUBROUTINE TO SAVE DATA FILE
104. SUB KEEPDATA ()
105.     OPEN "ANIMAL.DAT" FOR OUTPUT AS #2
106.     FOR I = 0 TO 200
107.         WRITE #2, A$(I)
108.     NEXT I
109.     CLOSE #2
110. END SUB
111.  
112.  

[Kiara87]

REMline is a .bas program that needs the program name for the .BAS Source file to remove the line numbers from.

Store the remline.bas program in same folder where your .bas file is that you want to remove line numbers from.
RUN the program to compile it. (Make sure the Save EXE in same folder as Source is bulleted in the RUN menu of IDE)
Run the program again and input the name of the bas file to remove the numbers from (looks like it does quotes too.)

What I do is look for every GOTO and GOSUB and comment those line numbers then I remove all line numbers not commented then I remove comments to line numbers and make sure the program still works correctly.

now i understand REMLINE  thanks

[bplus]

Complete makeover from 73 Lines of Code (LOC) to 64! More traces of old style removed including all CAPITALIZATION.

Code: QB64: [Select]

1. _TITLE "Guess Animal - QB64 Conversion of Morristown Version" 'watching LOC, see code notes at bottom
2. REDIM A$(200)
3. L$ = CHR$(10) ' L is for line or next line
4. PRINT L$ + SPC(35) + "Guess Animal" + L$ + L$ + SPC(11) + "Originally from: CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" + L$ + L$ + L$
5. PRINT " Think of an animal and the computer will try and guess it." + L$
6. IF _FILEEXISTS("ANIMAL.DAT") THEN
7.     OPEN "ANIMAL.DAT" FOR INPUT AS #3
8.     FOR I = 0 TO 200
9.         INPUT #3, A$(I)
10.     NEXT
11.     CLOSE #3
12. ELSE
13.     FOR I = 0 TO 3
14.         READ A$(I)
15.     NEXT I
16. END IF
17. N = VAL(A$(0))
18. DO
19.     DO
20.         A$ = LCASE$(npt$(L$ + " Are you thinking of an animal (y/n/list)"))
21.         IF A$ = "list" THEN
22.             PRINT L$ + " Animals I already know are:" ' listing computers aimals
23.             FOR I = 1 TO 200
24.                 IF LEFT$(A$(I), 2) = "\A" THEN PRINT "   " + MID$(A$(I), 3),
25.             NEXT I
26.             PRINT L$ + L$
27.         END IF
28.     LOOP UNTIL LEFT$(A$, 1) = "y" OR LEFT$(A$, 1) = "n"
29.     IF LEFT$(A$, 1) = "n" THEN EXIT DO 'bug out main DO doesn't want to play
30.     K = 1
31.     WHILE LEFT$(A$(K), 2) = "\Q"
32.         Q$ = A$(K)
33.         DO 'parse question and use as prompt to get c$
34.             C$ = UCASE$(LEFT$(npt$(" " + MID$(Q$, 3, INSTR(3, Q$, "\") - 3)), 1))
35.         LOOP UNTIL C$ = "Y" OR C$ = "N"
36.         X = INSTR(3, LEFT$(Q$, LEN(Q$) - 1), "\" + C$)
37.         Y = INSTR(X + 1, Q$, "\")
38.         K = VAL(MID$(Q$, X + 2, Y - X - 2))
39.         IF LEN(A$(K)) = 0 THEN EXIT DO ' bug out of main DO loop, out of questions
40.     WEND
41.     A$ = UCASE$(npt$(" Is it a " + RIGHT$(A$(K), LEN(A$(K)) - 2)))
42.     IF LEFT$(A$, 1) = "Y" THEN PRINT " Why not try another animal?": _CONTINUE 'skip rest of this loop
43.     V$ = LCASE$(npt$(" The animal you were thinking of is a "))
44.     X$ = npt$(" Please type a question that would distinguish a " + V$ + " from a " + RIGHT$(A$(K), LEN(A$(K)) - 2))
45.     DO
46.         A$ = UCASE$(LEFT$(npt$(" For a " + V$ + " the answer would be "), 1))
47.     LOOP UNTIL A$ = "Y" OR A$ = "N"
48.     IF A$ = "Y" THEN B$ = "N" ELSE B$ = "Y"
49.     Z1 = VAL(A$(0))
50.     A$(0) = _TRIM$(STR$(Z1 + 2))
51.     A$(Z1) = A$(K)
52.     A$(Z1 + 1) = "\A" + V$
53.     A$(K) = "\Q" + X$ + "\" + A$ + _TRIM$(STR$(Z1 + 1)) + "\" + B$ + _TRIM$(STR$(Z1)) + "\"
54. LOOP
55. OPEN "ANIMAL.DAT" FOR OUTPUT AS #2
56. FOR I = 0 TO 200
57.     WRITE #2, A$(I)
58. NEXT I
59. CLOSE #2
60. DATA "4","\QDoes it live in water\Y2\N3\","\Afish","\Abird"
61. FUNCTION npt$ (prompt$) ' nice way to get more variable data into the prompt!
62.     PRINT prompt$;
63.     INPUT npt$
64. END FUNCTION
65.  
66. '===================================== Code Notes down here to watch LOC of this app =======================================
67.  
68. ' 2020-11-10 b+ Makeover = 2nd go at Midnight Owl's great start on conversion
69. ' note: first mod of Midnight's converstion added UCASE$ to all INPUTs solving a little user friendly problem.
70. ' 2020-11-10 A step further was to revise PRINT prompt : INPUT A$ : UCASE$(A$) into a single function.
71. ' Then one time call sub routines I put back into main code includeing the MAIN SUB!
72. ' That includes: the LIST animals SUB for LIST option (which I made known in prompt).
73. ' The SHOW QUESTION SUB and the KEEPDATA SUB.
74. ' I also removed the ON error and used more modern check _FILEEXISTS
75.  
76. ' savings: admittedly some of this makes understanding of code less clear
77. ' for X, Y use INSTR to skip FOR... NEXT loops
78.  
79. ' From this:
80. ' T$ = "\" + C$
81. ' FOR X = 3 TO LEN(Q$) - 1
82. '     IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
83. ' NEXT X
84.  
85. ' to this
86. ' X = INSTR(3, LEFT$(Q$, LEN(Q$) - 1), "\" + C$)
87.  
88. ' and from this
89. ' FOR Y = X + 1 TO LEN(Q$)
90. '     IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
91. ' NEXT Y
92. ' to this!
93. ' Y = INSTR(X + 1, Q$, "\")
94.  
95. ' I decided to get rid of all the CAPITALIZATION and make normal looking sentences. So I modified the INPUT Function
96. ' renaming it npt$ (input$ without vowels). Now if you want all caps use: UCASE$(npt$(prompt$)), same for lower
97. ' case. Since humans swim I changed the first question: Does it live in water? Now how would you answer that for beaver?
98. ' I hope not yes :) Nor do beavers or rabbits hibernate, I am learning myself!
99. ' 2020-11-10 post 64 LOC down from original 73, not bad since it is complete makeover.
100.  
101.