ASCII Table One-Liner: Difference between revisions

From Bitchin100 DocGarden
Jump to navigationJump to search
No edit summary
 
(2 intermediate revisions by 2 users not shown)
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>


== Listing ==


[[Image:ASCII-BA.gif]]


== Output ==
== Output ==


[[Image:ASCII-OUT.gif]]
[[Image:ASCII-OUT.gif]]

Latest revision as of 11:17, 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


Output

ASCII-OUT.gif