QB / QB64 Discussion Forum      Other Subforums, Links and Downloads
 

 Return to Index  

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
mennonite  (no login)


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

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement