home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 88 / Tiger_Disk_088_20xx_Tiger-Crew-Disk_de_Side_D.d64 / show (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  708b  |  13 lines
  1. 10 print"[147]   basic shower for an                     double-size character set
  2. 11 [153]"   to use: type the letter, then           the shifted character. move
  3. 12 print"   the cursor down to the next line,       (lower left) and type 'rvs on'
  4. 13 [153]"   repeat steps 1 & 2. for example, a      letter 'a' will have this shape:
  5. 14 print"                  a[193]                                      a[193][146]"
  6. 15 print"        hit any key to show!            [146]"
  7. 16 geta$:ifa$=""then16
  8. 17 print"[147]"
  9. 18 print"          t[212]i[201]g[199]e[197]r[210] d[196]i[201]s[211]k[203]                     t[212]i[201]g[199]e[197]r[210] d[196]i[201]s[211]k[203]"
  10. 19 print" a[193]b[194]c[195]d[196]e[197]f[198]g[199]h[200]i[201]j[202]k[203]l[204]m[205]n[206]o[207]p[208]q[209]r[210]s[211]"
  11. 20 print" a[193]b[194]c[195]d[196]e[197]f[198]g[199]h[200]i[201]j[202]k[203]l[204]m[205]n[206]o[207]p[208]q[209]r[210]s[211]"
  12. 21 poke53272,25:poke198,0:wait198,1:poke198,0:poke53272,21:poke43,1:poke44,8:list
  13.