when i was a newbie, i made mistakes like this, and i've seen other newbies do it too

March 18 2006 at 8:22 PM

Response to * Longest code, so far, belongs to Pete.

10 CLS : M\$ = "": GOTO 50
20 N\$ = "": GOTO 130
30 WHILE 0 = 1
50 M\$ = M\$ + "H"
60 M\$ = M\$ + "E"
70 M\$ = M\$ + "L"
80 M\$ = M\$ + "L"
90 M\$ = M\$ + "O"
100 GOTO 20
110 WEND
120 WHILE 0 = 1
130 N\$ = N\$ + "W"
140 N\$ = N\$ + "O"
150 N\$ = N\$ + "R"
160 N\$ = N\$ + "L"
170 N\$ = N\$ + "D"
180 GOTO 30
185 WEND
190 SP\$ = CHR\$(ASC(SPACE\$(1)))
200 HW\$ = HW\$ + M\$
210 HW\$ = HW\$ + SP\$
220 HW\$ = HW\$ + N\$
230 COUNT = COUNT + 1
240 Q\$ = MID\$(HW\$, COUNT, 1)
250 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
260 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
270 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
280 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
290 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
300 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
310 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
320 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
330 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
340 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
350 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
360 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
370 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
380 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
390 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
400 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
410 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
420 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
430 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
440 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
450 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
460 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
470 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
480 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
490 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
500 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
510 IF Q\$ = "A" THEN PRINT "A";
520 IF Q\$ = "B" THEN PRINT "B";
530 IF Q\$ = "C" THEN PRINT "C";
540 IF Q\$ = "D" THEN PRINT "D";
550 IF Q\$ = "E" THEN PRINT "E";
560 IF Q\$ = "F" THEN PRINT "F";
570 IF Q\$ = "G" THEN PRINT "G";
580 IF Q\$ = "H" THEN PRINT "H";
590 IF Q\$ = "I" THEN PRINT "I";
600 IF Q\$ = "J" THEN PRINT "J";
610 IF Q\$ = "K" THEN PRINT "K";
620 IF Q\$ = "L" THEN PRINT "L";
630 IF Q\$ = "M" THEN PRINT "M";
640 IF Q\$ = "N" THEN PRINT "N";
650 IF Q\$ = "O" THEN PRINT "O";
660 IF Q\$ = "P" THEN PRINT "P";
670 IF Q\$ = "Q" THEN PRINT "Q";
680 IF Q\$ = "R" THEN PRINT "R";
690 IF Q\$ = "S" THEN PRINT "S";
700 IF Q\$ = "T" THEN PRINT "T";
705 IF Q\$ = "U" THEN PRINT "U";
710 IF Q\$ = "V" THEN PRINT "V";
715 IF Q\$ = "W" THEN PRINT "W";
720 IF Q\$ = "X" THEN PRINT "X";
725 IF Q\$ = "Y" THEN PRINT "Y";
730 IF Q\$ = "Z" THEN PRINT "Z";
735 IF Q\$ = "1" THEN PRINT "1";
740 IF Q\$ = "2" THEN PRINT "2";
745 IF Q\$ = "3" THEN PRINT "3";
750 IF Q\$ = "4" THEN PRINT "4";
755 IF Q\$ = "5" THEN PRINT "5";
760 IF Q\$ = "6" THEN PRINT "6";
765 IF Q\$ = "7" THEN PRINT "7";
770 IF Q\$ = "8" THEN PRINT "8";
775 IF Q\$ = "9" THEN PRINT "9";
780 IF Q\$ = "0" THEN PRINT "0";
785 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
790 IF Q\$ = "!" THEN PRINT "!";
795 IF Q\$ = "." THEN PRINT ".";
800 COUNT = COUNT + 1
805 Q\$ = MID\$(HW\$, COUNT, 1)
810 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
815 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
820 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
825 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
830 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
835 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
840 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
845 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
850 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
855 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
860 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
865 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
870 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
875 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
880 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
885 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
890 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
895 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
900 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
910 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
920 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
930 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
940 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
950 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
960 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
970 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
980 IF Q\$ = "A" THEN PRINT "A";
990 IF Q\$ = "B" THEN PRINT "B";
1000 IF Q\$ = "C" THEN PRINT "C";
1010 IF Q\$ = "D" THEN PRINT "D";
1020 IF Q\$ = "E" THEN PRINT "E";
1030 IF Q\$ = "F" THEN PRINT "F";
1040 IF Q\$ = "G" THEN PRINT "G";
1050 IF Q\$ = "H" THEN PRINT "H";
1060 IF Q\$ = "I" THEN PRINT "I";
1070 IF Q\$ = "J" THEN PRINT "J";
1080 IF Q\$ = "K" THEN PRINT "K";
1090 IF Q\$ = "L" THEN PRINT "L";
1100 IF Q\$ = "M" THEN PRINT "M";
1110 IF Q\$ = "N" THEN PRINT "N";
1120 IF Q\$ = "O" THEN PRINT "O";
1130 IF Q\$ = "P" THEN PRINT "P";
1140 IF Q\$ = "Q" THEN PRINT "Q";
1150 IF Q\$ = "R" THEN PRINT "R";
1160 IF Q\$ = "S" THEN PRINT "S";
1170 IF Q\$ = "T" THEN PRINT "T";
1180 IF Q\$ = "U" THEN PRINT "U";
1190 IF Q\$ = "V" THEN PRINT "V";
1200 IF Q\$ = "W" THEN PRINT "W";
1210 IF Q\$ = "X" THEN PRINT "X";
1220 IF Q\$ = "Y" THEN PRINT "Y";
1230 IF Q\$ = "Z" THEN PRINT "Z";
1240 IF Q\$ = "1" THEN PRINT "1";
1250 IF Q\$ = "2" THEN PRINT "2";
1260 IF Q\$ = "3" THEN PRINT "3";
1270 IF Q\$ = "4" THEN PRINT "4";
1280 IF Q\$ = "5" THEN PRINT "5";
1290 IF Q\$ = "6" THEN PRINT "6";
1300 IF Q\$ = "7" THEN PRINT "7";
1310 IF Q\$ = "8" THEN PRINT "8";
1320 IF Q\$ = "9" THEN PRINT "9";
1330 IF Q\$ = "0" THEN PRINT "0";
1340 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
1350 IF Q\$ = "!" THEN PRINT "!";
1360 IF Q\$ = "." THEN PRINT ".";
1370 COUNT = COUNT + 1
1380 Q\$ = MID\$(HW\$, COUNT, 1)
1390 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
1400 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
1410 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
1420 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
1430 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
1440 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
1450 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
1460 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
1470 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
1480 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
1490 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
1500 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
1510 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
1520 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
1530 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
1540 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
1550 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
1560 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
1570 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
1580 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
1590 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
1600 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
1610 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
1620 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
1630 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
1640 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
1650 IF Q\$ = "A" THEN PRINT "A";
1660 IF Q\$ = "B" THEN PRINT "B";
1670 IF Q\$ = "C" THEN PRINT "C";
1680 IF Q\$ = "D" THEN PRINT "D";
1690 IF Q\$ = "E" THEN PRINT "E";
1700 IF Q\$ = "F" THEN PRINT "F";
1710 IF Q\$ = "G" THEN PRINT "G";
1720 IF Q\$ = "H" THEN PRINT "H";
1730 IF Q\$ = "I" THEN PRINT "I";
1740 IF Q\$ = "J" THEN PRINT "J";
1750 IF Q\$ = "K" THEN PRINT "K";
1760 IF Q\$ = "L" THEN PRINT "L";
1770 IF Q\$ = "M" THEN PRINT "M";
1780 IF Q\$ = "N" THEN PRINT "N";
1790 IF Q\$ = "O" THEN PRINT "O";
1800 IF Q\$ = "P" THEN PRINT "P";
1810 IF Q\$ = "Q" THEN PRINT "Q";
1820 IF Q\$ = "R" THEN PRINT "R";
1830 IF Q\$ = "S" THEN PRINT "S";
1840 IF Q\$ = "T" THEN PRINT "T";
1850 IF Q\$ = "U" THEN PRINT "U";
1860 IF Q\$ = "V" THEN PRINT "V";
1870 IF Q\$ = "W" THEN PRINT "W";
1880 IF Q\$ = "X" THEN PRINT "X";
1890 IF Q\$ = "Y" THEN PRINT "Y";
1900 IF Q\$ = "Z" THEN PRINT "Z";
1910 IF Q\$ = "1" THEN PRINT "1";
1920 IF Q\$ = "2" THEN PRINT "2";
1930 IF Q\$ = "3" THEN PRINT "3";
1940 IF Q\$ = "4" THEN PRINT "4";
1950 IF Q\$ = "5" THEN PRINT "5";
1960 IF Q\$ = "6" THEN PRINT "6";
1970 IF Q\$ = "7" THEN PRINT "7";
1980 IF Q\$ = "8" THEN PRINT "8";
1990 IF Q\$ = "9" THEN PRINT "9";
2000 IF Q\$ = "0" THEN PRINT "0";
2010 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
2020 IF Q\$ = "!" THEN PRINT "!";
2030 IF Q\$ = "." THEN PRINT ".";
2040 COUNT = COUNT + 1
2050 Q\$ = MID\$(HW\$, COUNT, 1)
2060 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
2070 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
2080 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
2090 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
2100 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
2110 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
2120 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
2130 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
2140 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
2150 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
2160 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
2170 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
2180 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
2190 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
2200 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
2210 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
2220 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
2230 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
2240 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
2250 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
2260 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
2270 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
2280 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
2290 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
2300 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
2310 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
2320 IF Q\$ = "A" THEN PRINT "A";
2330 IF Q\$ = "B" THEN PRINT "B";
2340 IF Q\$ = "C" THEN PRINT "C";
2350 IF Q\$ = "D" THEN PRINT "D";
2360 IF Q\$ = "E" THEN PRINT "E";
2370 IF Q\$ = "F" THEN PRINT "F";
2380 IF Q\$ = "G" THEN PRINT "G";
2390 IF Q\$ = "H" THEN PRINT "H";
2400 IF Q\$ = "I" THEN PRINT "I";
2410 IF Q\$ = "J" THEN PRINT "J";
2420 IF Q\$ = "K" THEN PRINT "K";
2430 IF Q\$ = "L" THEN PRINT "L";
2440 IF Q\$ = "M" THEN PRINT "M";
2450 IF Q\$ = "N" THEN PRINT "N";
2460 IF Q\$ = "O" THEN PRINT "O";
2470 IF Q\$ = "P" THEN PRINT "P";
2480 IF Q\$ = "Q" THEN PRINT "Q";
2490 IF Q\$ = "R" THEN PRINT "R";
2500 IF Q\$ = "S" THEN PRINT "S";
2510 IF Q\$ = "T" THEN PRINT "T";
2520 IF Q\$ = "U" THEN PRINT "U";
2530 IF Q\$ = "V" THEN PRINT "V";
2540 IF Q\$ = "W" THEN PRINT "W";
2550 IF Q\$ = "X" THEN PRINT "X";
2560 IF Q\$ = "Y" THEN PRINT "Y";
2570 IF Q\$ = "Z" THEN PRINT "Z";
2580 IF Q\$ = "1" THEN PRINT "1";
2590 IF Q\$ = "2" THEN PRINT "2";
2600 IF Q\$ = "3" THEN PRINT "3";
2610 IF Q\$ = "4" THEN PRINT "4";
2620 IF Q\$ = "5" THEN PRINT "5";
2630 IF Q\$ = "6" THEN PRINT "6";
2640 IF Q\$ = "7" THEN PRINT "7";
2650 IF Q\$ = "8" THEN PRINT "8";
2660 IF Q\$ = "9" THEN PRINT "9";
2670 IF Q\$ = "0" THEN PRINT "0";
2680 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
2690 IF Q\$ = "!" THEN PRINT "!";
2700 IF Q\$ = "." THEN PRINT ".";
2710 COUNT = COUNT + 1
2720 Q\$ = MID\$(HW\$, COUNT, 1)
2730 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
2740 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
2750 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
2760 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
2770 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
2780 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
2790 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
2800 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
2810 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
2820 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
2830 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
2840 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
2850 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
2860 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
2870 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
2880 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
2890 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
2900 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
2910 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
2920 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
2930 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
2940 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
2950 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
2960 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
2970 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
2980 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
2990 IF Q\$ = "A" THEN PRINT "A";
3000 IF Q\$ = "B" THEN PRINT "B";
3010 IF Q\$ = "C" THEN PRINT "C";
3020 IF Q\$ = "D" THEN PRINT "D";
3030 IF Q\$ = "E" THEN PRINT "E";
3040 IF Q\$ = "F" THEN PRINT "F";
3050 IF Q\$ = "G" THEN PRINT "G";
3060 IF Q\$ = "H" THEN PRINT "H";
3070 IF Q\$ = "I" THEN PRINT "I";
3080 IF Q\$ = "J" THEN PRINT "J";
3090 IF Q\$ = "K" THEN PRINT "K";
3100 IF Q\$ = "L" THEN PRINT "L";
3110 IF Q\$ = "M" THEN PRINT "M";
3120 IF Q\$ = "N" THEN PRINT "N";
3130 IF Q\$ = "O" THEN PRINT "O";
3140 IF Q\$ = "P" THEN PRINT "P";
3150 IF Q\$ = "Q" THEN PRINT "Q";
3160 IF Q\$ = "R" THEN PRINT "R";
3170 IF Q\$ = "S" THEN PRINT "S";
3180 IF Q\$ = "T" THEN PRINT "T";
3190 IF Q\$ = "U" THEN PRINT "U";
3200 IF Q\$ = "V" THEN PRINT "V";
3210 IF Q\$ = "W" THEN PRINT "W";
3220 IF Q\$ = "X" THEN PRINT "X";
3230 IF Q\$ = "Y" THEN PRINT "Y";
3240 IF Q\$ = "Z" THEN PRINT "Z";
3250 IF Q\$ = "1" THEN PRINT "1";
3260 IF Q\$ = "2" THEN PRINT "2";
3270 IF Q\$ = "3" THEN PRINT "3";
3280 IF Q\$ = "4" THEN PRINT "4";
3290 IF Q\$ = "5" THEN PRINT "5";
3300 IF Q\$ = "6" THEN PRINT "6";
3310 IF Q\$ = "7" THEN PRINT "7";
3320 IF Q\$ = "8" THEN PRINT "8";
3330 IF Q\$ = "9" THEN PRINT "9";
3340 IF Q\$ = "0" THEN PRINT "0";
3350 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
3360 IF Q\$ = "!" THEN PRINT "!";
3370 IF Q\$ = "." THEN PRINT ".";
3380 COUNT = COUNT + 1
3390 Q\$ = MID\$(HW\$, COUNT, 1)
3400 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
3410 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
3420 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
3430 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
3440 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
3450 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
3460 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
3470 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
3480 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
3490 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
3500 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
3510 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
3520 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
3530 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
3540 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
3550 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
3560 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
3570 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
3580 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
3590 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
3600 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
3610 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
3620 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
3630 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
3640 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
3650 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
3660 IF Q\$ = "A" THEN PRINT "A";
3670 IF Q\$ = "B" THEN PRINT "B";
3680 IF Q\$ = "C" THEN PRINT "C";
3690 IF Q\$ = "D" THEN PRINT "D";
3700 IF Q\$ = "E" THEN PRINT "E";
3710 IF Q\$ = "F" THEN PRINT "F";
3720 IF Q\$ = "G" THEN PRINT "G";
3730 IF Q\$ = "H" THEN PRINT "H";
3740 IF Q\$ = "I" THEN PRINT "I";
3750 IF Q\$ = "J" THEN PRINT "J";
3760 IF Q\$ = "K" THEN PRINT "K";
3770 IF Q\$ = "L" THEN PRINT "L";
3780 IF Q\$ = "M" THEN PRINT "M";
3790 IF Q\$ = "N" THEN PRINT "N";
3800 IF Q\$ = "O" THEN PRINT "O";
3810 IF Q\$ = "P" THEN PRINT "P";
3820 IF Q\$ = "Q" THEN PRINT "Q";
3830 IF Q\$ = "R" THEN PRINT "R";
3840 IF Q\$ = "S" THEN PRINT "S";
3850 IF Q\$ = "T" THEN PRINT "T";
3860 IF Q\$ = "U" THEN PRINT "U";
3870 IF Q\$ = "V" THEN PRINT "V";
3880 IF Q\$ = "W" THEN PRINT "W";
3890 IF Q\$ = "X" THEN PRINT "X";
3900 IF Q\$ = "Y" THEN PRINT "Y";
3910 IF Q\$ = "Z" THEN PRINT "Z";
3920 IF Q\$ = "1" THEN PRINT "1";
3930 IF Q\$ = "2" THEN PRINT "2";
3940 IF Q\$ = "3" THEN PRINT "3";
3950 IF Q\$ = "4" THEN PRINT "4";
3960 IF Q\$ = "5" THEN PRINT "5";
3970 IF Q\$ = "6" THEN PRINT "6";
3980 IF Q\$ = "7" THEN PRINT "7";
3990 IF Q\$ = "8" THEN PRINT "8";
4000 IF Q\$ = "9" THEN PRINT "9";
4010 IF Q\$ = "0" THEN PRINT "0";
4020 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
4030 IF Q\$ = "!" THEN PRINT "!";
4040 IF Q\$ = "." THEN PRINT ".";
4050 COUNT = COUNT + 1
4060 Q\$ = MID\$(HW\$, COUNT, 1)
4070 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
4080 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
4090 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
4100 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
4110 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
4120 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
4130 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
4140 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
4150 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
4160 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
4170 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
4180 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
4190 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
4200 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
4210 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
4220 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
4230 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
4240 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
4250 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
4260 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
4270 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
4280 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
4290 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
4300 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
4310 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
4320 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
4330 IF Q\$ = "A" THEN PRINT "A";
4340 IF Q\$ = "B" THEN PRINT "B";
4350 IF Q\$ = "C" THEN PRINT "C";
4360 IF Q\$ = "D" THEN PRINT "D";
4370 IF Q\$ = "E" THEN PRINT "E";
4380 IF Q\$ = "F" THEN PRINT "F";
4390 IF Q\$ = "G" THEN PRINT "G";
4400 IF Q\$ = "H" THEN PRINT "H";
4410 IF Q\$ = "I" THEN PRINT "I";
4420 IF Q\$ = "J" THEN PRINT "J";
4430 IF Q\$ = "K" THEN PRINT "K";
4440 IF Q\$ = "L" THEN PRINT "L";
4450 IF Q\$ = "M" THEN PRINT "M";
4460 IF Q\$ = "N" THEN PRINT "N";
4470 IF Q\$ = "O" THEN PRINT "O";
4480 IF Q\$ = "P" THEN PRINT "P";
4490 IF Q\$ = "Q" THEN PRINT "Q";
4500 IF Q\$ = "R" THEN PRINT "R";
4510 IF Q\$ = "S" THEN PRINT "S";
4520 IF Q\$ = "T" THEN PRINT "T";
4530 IF Q\$ = "U" THEN PRINT "U";
4540 IF Q\$ = "V" THEN PRINT "V";
4550 IF Q\$ = "W" THEN PRINT "W";
4560 IF Q\$ = "X" THEN PRINT "X";
4570 IF Q\$ = "Y" THEN PRINT "Y";
4580 IF Q\$ = "Z" THEN PRINT "Z";
4590 IF Q\$ = "1" THEN PRINT "1";
4600 IF Q\$ = "2" THEN PRINT "2";
4610 IF Q\$ = "3" THEN PRINT "3";
4620 IF Q\$ = "4" THEN PRINT "4";
4630 IF Q\$ = "5" THEN PRINT "5";
4640 IF Q\$ = "6" THEN PRINT "6";
4650 IF Q\$ = "7" THEN PRINT "7";
4660 IF Q\$ = "8" THEN PRINT "8";
4670 IF Q\$ = "9" THEN PRINT "9";
4680 IF Q\$ = "0" THEN PRINT "0";
4690 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
4700 IF Q\$ = "!" THEN PRINT "!";
4710 IF Q\$ = "." THEN PRINT ".";
4720 COUNT = COUNT + 1
4730 Q\$ = MID\$(HW\$, COUNT, 1)
4740 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
4750 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
4760 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
4770 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
4780 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
4790 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
4800 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
4810 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
4820 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
4830 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
4840 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
4850 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
4860 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
4870 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
4880 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
4890 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
4900 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
4910 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
4920 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
4930 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
4940 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
4950 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
4960 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
4970 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
4980 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
4990 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
5000 IF Q\$ = "A" THEN PRINT "A";
5010 IF Q\$ = "B" THEN PRINT "B";
5020 IF Q\$ = "C" THEN PRINT "C";
5030 IF Q\$ = "D" THEN PRINT "D";
5040 IF Q\$ = "E" THEN PRINT "E";
5050 IF Q\$ = "F" THEN PRINT "F";
5060 IF Q\$ = "G" THEN PRINT "G";
5070 IF Q\$ = "H" THEN PRINT "H";
5080 IF Q\$ = "I" THEN PRINT "I";
5090 IF Q\$ = "J" THEN PRINT "J";
5100 IF Q\$ = "K" THEN PRINT "K";
5110 IF Q\$ = "L" THEN PRINT "L";
5120 IF Q\$ = "M" THEN PRINT "M";
5130 IF Q\$ = "N" THEN PRINT "N";
5140 IF Q\$ = "O" THEN PRINT "O";
5150 IF Q\$ = "P" THEN PRINT "P";
5160 IF Q\$ = "Q" THEN PRINT "Q";
5170 IF Q\$ = "R" THEN PRINT "R";
5180 IF Q\$ = "S" THEN PRINT "S";
5190 IF Q\$ = "T" THEN PRINT "T";
5200 IF Q\$ = "U" THEN PRINT "U";
5210 IF Q\$ = "V" THEN PRINT "V";
5220 IF Q\$ = "W" THEN PRINT "W";
5230 IF Q\$ = "X" THEN PRINT "X";
5240 IF Q\$ = "Y" THEN PRINT "Y";
5250 IF Q\$ = "Z" THEN PRINT "Z";
5260 IF Q\$ = "1" THEN PRINT "1";
5270 IF Q\$ = "2" THEN PRINT "2";
5280 IF Q\$ = "3" THEN PRINT "3";
5290 IF Q\$ = "4" THEN PRINT "4";
5300 IF Q\$ = "5" THEN PRINT "5";
5310 IF Q\$ = "6" THEN PRINT "6";
5320 IF Q\$ = "7" THEN PRINT "7";
5330 IF Q\$ = "8" THEN PRINT "8";
5340 IF Q\$ = "9" THEN PRINT "9";
5350 IF Q\$ = "0" THEN PRINT "0";
5360 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
5370 IF Q\$ = "!" THEN PRINT "!";
5380 IF Q\$ = "." THEN PRINT ".";
5390 COUNT = COUNT + 1
5400 Q\$ = MID\$(HW\$, COUNT, 1)
5410 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
5420 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
5430 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
5440 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
5450 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
5460 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
5470 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
5480 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
5490 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
5500 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
5510 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
5520 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
5530 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
5540 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
5550 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
5560 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
5570 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
5580 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
5590 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
5600 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
5610 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
5620 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
5630 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
5640 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
5650 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);
5660 IF Q\$ = CHR\$(ASC("Z") - 32) THEN PRINT CHR\$(ASC("Z") - 32);
5670 IF Q\$ = "A" THEN PRINT "A";
5680 IF Q\$ = "B" THEN PRINT "B";
5690 IF Q\$ = "C" THEN PRINT "C";
5700 IF Q\$ = "D" THEN PRINT "D";
5710 IF Q\$ = "E" THEN PRINT "E";
5720 IF Q\$ = "F" THEN PRINT "F";
5730 IF Q\$ = "G" THEN PRINT "G";
5740 IF Q\$ = "H" THEN PRINT "H";
5750 IF Q\$ = "I" THEN PRINT "I";
5760 IF Q\$ = "J" THEN PRINT "J";
5770 IF Q\$ = "K" THEN PRINT "K";
5780 IF Q\$ = "L" THEN PRINT "L";
5790 IF Q\$ = "M" THEN PRINT "M";
5800 IF Q\$ = "N" THEN PRINT "N";
5810 IF Q\$ = "O" THEN PRINT "O";
5820 IF Q\$ = "P" THEN PRINT "P";
5830 IF Q\$ = "Q" THEN PRINT "Q";
5840 IF Q\$ = "R" THEN PRINT "R";
5850 IF Q\$ = "S" THEN PRINT "S";
5860 IF Q\$ = "T" THEN PRINT "T";
5870 IF Q\$ = "U" THEN PRINT "U";
5880 IF Q\$ = "V" THEN PRINT "V";
5890 IF Q\$ = "W" THEN PRINT "W";
5900 IF Q\$ = "X" THEN PRINT "X";
5910 IF Q\$ = "Y" THEN PRINT "Y";
5920 IF Q\$ = "Z" THEN PRINT "Z";
5930 IF Q\$ = "1" THEN PRINT "1";
5940 IF Q\$ = "2" THEN PRINT "2";
5950 IF Q\$ = "3" THEN PRINT "3";
5960 IF Q\$ = "4" THEN PRINT "4";
5970 IF Q\$ = "5" THEN PRINT "5";
5980 IF Q\$ = "6" THEN PRINT "6";
5990 IF Q\$ = "7" THEN PRINT "7";
6000 IF Q\$ = "8" THEN PRINT "8";
6010 IF Q\$ = "9" THEN PRINT "9";
6020 IF Q\$ = "0" THEN PRINT "0";
6030 IF Q\$ = SPACE\$(1) THEN PRINT SPACE\$(1);
6040 IF Q\$ = "!" THEN PRINT "!";
6050 IF Q\$ = "." THEN PRINT ".";
6060 COUNT = COUNT + 1
6070 Q\$ = MID\$(HW\$, COUNT, 1)
6080 IF Q\$ = CHR\$(ASC("A") - 32) THEN PRINT CHR\$(ASC("A") - 32);
6090 IF Q\$ = CHR\$(ASC("B") - 32) THEN PRINT CHR\$(ASC("B") - 32);
6100 IF Q\$ = CHR\$(ASC("C") - 32) THEN PRINT CHR\$(ASC("C") - 32);
6110 IF Q\$ = CHR\$(ASC("D") - 32) THEN PRINT CHR\$(ASC("D") - 32);
6120 IF Q\$ = CHR\$(ASC("E") - 32) THEN PRINT CHR\$(ASC("E") - 32);
6130 IF Q\$ = CHR\$(ASC("F") - 32) THEN PRINT CHR\$(ASC("F") - 32);
6140 IF Q\$ = CHR\$(ASC("G") - 32) THEN PRINT CHR\$(ASC("G") - 32);
6150 IF Q\$ = CHR\$(ASC("H") - 32) THEN PRINT CHR\$(ASC("H") - 32);
6160 IF Q\$ = CHR\$(ASC("I") - 32) THEN PRINT CHR\$(ASC("I") - 32);
6170 IF Q\$ = CHR\$(ASC("J") - 32) THEN PRINT CHR\$(ASC("J") - 32);
6180 IF Q\$ = CHR\$(ASC("K") - 32) THEN PRINT CHR\$(ASC("K") - 32);
6190 IF Q\$ = CHR\$(ASC("L") - 32) THEN PRINT CHR\$(ASC("L") - 32);
6200 IF Q\$ = CHR\$(ASC("M") - 32) THEN PRINT CHR\$(ASC("M") - 32);
6210 IF Q\$ = CHR\$(ASC("N") - 32) THEN PRINT CHR\$(ASC("N") - 32);
6220 IF Q\$ = CHR\$(ASC("O") - 32) THEN PRINT CHR\$(ASC("O") - 32);
6230 IF Q\$ = CHR\$(ASC("P") - 32) THEN PRINT CHR\$(ASC("P") - 32);
6240 IF Q\$ = CHR\$(ASC("Q") - 32) THEN PRINT CHR\$(ASC("Q") - 32);
6250 IF Q\$ = CHR\$(ASC("R") - 32) THEN PRINT CHR\$(ASC("R") - 32);
6260 IF Q\$ = CHR\$(ASC("S") - 32) THEN PRINT CHR\$(ASC("S") - 32);
6270 IF Q\$ = CHR\$(ASC("T") - 32) THEN PRINT CHR\$(ASC("T") - 32);
6280 IF Q\$ = CHR\$(ASC("U") - 32) THEN PRINT CHR\$(ASC("U") - 32);
6290 IF Q\$ = CHR\$(ASC("V") - 32) THEN PRINT CHR\$(ASC("V") - 32);
6300 IF Q\$ = CHR\$(ASC("W") - 32) THEN PRINT CHR\$(ASC("W") - 32);
6310 IF Q\$ = CHR\$(ASC("X") - 32) THEN PRINT CHR\$(ASC("X") - 32);
6320 IF Q\$ = CHR\$(ASC("Y") - 32) THEN PRINT CHR\$(ASC("Y") - 32);

 Respond to this message
Responses