home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / einsteig / asctab.bas next >
Encoding:
BASIC Source File  |  1990-06-05  |  298 b   |  11 lines
  1. 5 REM *******  Listing AscTab.bas  ***********************
  2. 6 REM
  3. 10 'Beispiel für eine FOR-Schleife
  4. 20 'ASCII-Tabelle ab Wert 33
  5. 30 CLS
  6. 40 FOR LAUFVAR = 33 TO 254
  7. 50    PRINT "    "; CHR$(LAUFVAR);
  8. 60    IF (LAUFVAR - 8) MOD 12 = 0 THEN PRINT ELSE PRINT CHR$(32);
  9. 70 NEXT LAUFVAR 
  10. 80 END
  11.