From: mmphosis@macgui.com   
      
   Here is another one with a slightly different approach.   
      
    0  GOTO 1: ONERR AI READ LY RND   
    1  LET X = 256 *  PEEK (104)   
    2  LET X = X +  PEEK (103) + 7   
    3  LET E = 61588:M =  - 1   
    4  FOR I = E + 9 TO E STEP M   
    5  POKE 65, PEEK (I): CALL X   
    6  NEXT   
      
   https://rosettacode.org/mw/index.php?title=Show_ASCII_table&oldi   
   =339063#Applesoft_BASIC   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)