ASCII Table One-Liner: Difference between revisions

From Bitchin100 DocGarden
Jump to navigationJump to search
No edit summary
No edit summary
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 11: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