This program displays the Model 100/102 printable character set.
FORY=1TO7:FORX=0TO31:C=Y*32+X:IFC=127THENPRINT:NEXTY:ELSEPRINTCHR$(C);:NEXT:PRINT:NEXT:Z$=INPUT$(1):MENU