Difference between revisions of "ASCII Table One-Liner"

From Bitchin100 DocGarden
Jump to: navigation, search
Line 2: Line 2:
  
 
<pre>
 
<pre>
1 FORY=1TO7:FORX=0TO31:PRINTCHR$(Y*32+X);:NEXT:PRINT:NEXT:FORZ=-1TO0:Z=INKEY$="":NEXT:MENU
+
FORY=1TO7:FORX=0TO31:C=Y*32+X:IFC=127THENPRINT:NEXTY:ELSEPRINTCHR$(C);:NEXT:PRINT:NEXT:Z$=INPUT$(1):MENU
.
+
 
</pre>
 
</pre>
  

Revision as of 12:16, 13 August 2011

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

Listing

ASCII-BA.gif

Output

ASCII-OUT.gif