'CMM2 FontPlay.Bas  
 Dim Integer I, J
 cls
 
 For I = 0 to 15  '0 to 100
   for J = 0 to 15  '0 to 9
     if (I*16+32)+J => 256 then goto SkipIt
     text (J*10),20+I*20,chr$((I*16+32)+J),LT,1,1,RGB(green)
   Next J
 Next I
Skipit:
 
For I = 0 to 15
   for J = 0 to 15
     if (I*16+32)+J => 127 then goto SkipIt2
     text (J*12)+200,20+I*40,chr$((I*16+32)+J),LT,2,1,RGB(green)
   Next J
 Next I
SkipIt2:

For I = 0 to 15
   for J = 0 to 15
     if (I*16+32)+J => 127 then goto SkipIt3
     text (J*20)+400,20+I*40,chr$((I*16+32)+J),LT,3,1,RGB(green)
   Next J
 Next I
SkipIt3:

For I = 0 to 15
   for J = 0 to 15
     if (I*16+32)+J => 127 then goto SkipIt4
     text (J*20),320+I*40,chr$((I*16+32)+J),LT,4,1,RGB(green)
   Next J
 Next I
SkipIt4:

For I = 0 to 15
   for J = 0 to 15
     if (I*16+32)+J => 127 then goto SkipIt5
     text (J*20)+400,320+I*40,chr$((I*16+32)+J),LT,5,1,RGB(green)
   Next J
 Next I
SkipIt5:

text 800,600,"Press A Key When Read", RB, 1,1,RGB(Cyan)
Do: loop while inkey$ = ""

Cls

For I = 4 to 9
   for J = 0 to 9
     if (I*10)+6 => 127 then goto SkipIt6
     text (J*40),I*70-250,chr$((I*10)+J),LT,6,1,RGB(green)
     text 15+J*40,I*70 - 180,Str$((I*10)+J),CB,1,1,RGB(cyan)
     Box J*40-5, I*70-250, 39, 69,,RGB(Gray)
   Next J
 Next I
Skipit6:
 
For I = 0 to 15
   for J = 0 to 15
     if (I*16+32)+J => 127 then goto SkipIt7
     text (J*20)+450,320+I*40,chr$((I*16+32)+J),LT,7,1,RGB(green)
   Next J
 Next I
SkipIt7:

End