10 PRINT"[147]UPPER CASE"
20 PRINT
30 FORT=91TO96
40 PRINTCHR$(142)TCHR$(T),
50 NEXT
60 FORT=123TO127
70 PRINTCHR$(142)TCHR$(T),
80 NEXT
90 FORT=161TO192
100 PRINTCHR$(142)TCHR$(T),
110 NEXT
120 FORT=219TO255
130 PRINTCHR$(142)TCHR$(T),
140 NEXT
150 PRINT"PRESS SPACE BAR"
160 GETA$:IFA$<>" "THEN160
170 IFT=0THENT=1:PRINTCHR$(142);"UPPER CASE";:GOTO160
180 T=0:PRINTCHR$(14);"LOWER CASE";:GOTO160