This program displays the Model 100/102 printable character set.
1 FORY=1TO7:FORX=0TO31:PRINTCHR$(Y*32+X);:NEXT:PRINT:NEXT:FORZ=-1TO0:Z=INKEY$="":NEXT:MENU