home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05b.d64 / symbols (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  305b  |  19 lines
  1. 10 print"[147]upper case"
  2. 20 print
  3. 30 fort=91to96
  4. 40 printchr$(142)tchr$(t),
  5. 50 next
  6. 60 fort=123to127
  7. 70 printchr$(142)tchr$(t),
  8. 80 next
  9. 90 fort=161to192
  10. 100 printchr$(142)tchr$(t),
  11. 110 next
  12. 120 fort=219to255
  13. 130 printchr$(142)tchr$(t),
  14. 140 next
  15. 150 print"press space bar"
  16. 160 geta$:ifa$<>" "then160
  17. 170 ift=0thent=1:printchr$(142);"upper case";:goto160
  18. 180 t=0:printchr$(14);"lower case";:goto160
  19.