10 PRINT"[147]   BASIC SHOWER FOR AN                     DOUBLE-SIZE CHARACTER SET
11 [153]"   TO USE: TYPE THE LETTER, THEN           THE SHIFTED CHARACTER. MOVE
12 PRINT"   THE CURSOR DOWN TO THE NEXT LINE,       (LOWER LEFT) AND TYPE 'RVS ON'
13 [153]"   REPEAT STEPS 1 & 2. FOR EXAMPLE, A      LETTER 'A' WILL HAVE THIS SHAPE:
14 PRINT"                  A[193]                                      A[193][146]"
15 PRINT"        HIT ANY KEY TO SHOW!            [146]"
16 GETA$:IFA$=""THEN16
17 PRINT"[147]"
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]"
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]"
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]"
21 POKE53272,25:POKE198,0:WAIT198,1:POKE198,0:POKE53272,21:POKE43,1:POKE44,8:LIST