home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB5.ZIP / NEWCHARS.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-09-13  |  4.7 KB  |  81 lines
  1. 10  REM--Select Download Character Set
  2. 20  LPRINT CHR$(27);CHR$(50);
  3. 30  REM--Redefines a
  4. 40 LPRINT CHR$(27);CHR$(37);CHR$(68);CHR$( 97 );
  5. 50  LPRINT CHR$(1);CHR$(2);CHR$(4);CHR$(8);CHR$(16);CHR$(32);CHR$(64);CHR$(0);CHR$(64);CHR$(32);CHR$(16);
  6. 60  REM--Redefines b
  7. 70 LPRINT CHR$(27);CHR$(37);CHR$(68);CHR$( 98 );
  8. 80  LPRINT CHR$(16);CHR$(32);CHR$(64);CHR$(0);CHR$(64);CHR$(32);CHR$(16);CHR$(8);CHR$(4);CHR$(2);CHR$(1);
  9. 90  REM--Redefines c
  10. 100 LPRINT CHR$(27);CHR$(37);CHR$(65);CHR$( 99 );
  11. 110  LPRINT CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(8);CHR$(0);CHR$(8);
  12.  130  Rem--Redefines d
  13.  140 Lprint chr$(27);chr$(37);chr$(65);chr$( 100 );
  14.  150  Lprint chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);chr$(127);chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);
  15.  160  Rem--Redefines e
  16.  170 Lprint chr$(27);chr$(37);chr$(65);chr$( 101 );
  17.  180  Lprint chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);chr$(119);chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);
  18.  190  Rem--Redefines f
  19.  200 Lprint chr$(27);chr$(37);chr$(65);chr$( 102 );
  20.  210  Lprint chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);chr$(112);chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);
  21.  220  Rem--Redefines g
  22.  230 Lprint chr$(27);chr$(37);chr$(65);chr$( 103 );
  23.  240  Lprint chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);chr$(7);chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);
  24.  250  Rem--Redefines h
  25.  260 Lprint chr$(27);chr$(37);chr$(65);chr$( 104 );
  26.  270  Lprint chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);chr$(119);chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);
  27.  280  Rem--Redefines i
  28.  290 Lprint chr$(27);chr$(37);chr$(65);chr$( 105 );
  29.  300  Lprint chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);chr$(119);chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);
  30.  310  Rem--Redefines j
  31.  320 Lprint chr$(27);chr$(37);chr$(65);chr$( 106 );
  32.  330  Lprint chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);chr$(7);chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);
  33.  340  Rem--Redefines k
  34.  350 Lprint chr$(27);chr$(37);chr$(65);chr$( 107 );
  35.  360  Lprint chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);chr$(7);chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);
  36.  370  Rem--Redefines l
  37.  380 Lprint chr$(27);chr$(37);chr$(65);chr$( 108 );
  38.  390  Lprint chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);chr$(112);chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);
  39.  400  Rem--Redefines m
  40.  410 Lprint chr$(27);chr$(37);chr$(65);chr$( 109 );
  41.  420  Lprint chr$(0);chr$(0);chr$(0);chr$(0);chr$(0);chr$(112);chr$(8);chr$(0);chr$(8);chr$(0);chr$(8);
  42.  430  Rem--Redefines o
  43.  440 Lprint chr$(27);chr$(37);chr$(65);chr$( 111 );
  44.  450  Lprint chr$(127);chr$(0);chr$(127);chr$(0);chr$(127);chr$(0);chr$(127);chr$(0);chr$(127);chr$(0);chr$(127);
  45.  460  Rem--Redefines p
  46.  470 Lprint chr$(27);chr$(37);chr$(65);chr$( 112 );
  47.  480  Lprint chr$(95);chr$(0);chr$(123);chr$(0);chr$(95);chr$(0);chr$(123);chr$(0);chr$(95);chr$(0);chr$(123);
  48.  490  Rem--Redefines q
  49.  500 Lprint chr$(27);chr$(37);chr$(65);chr$( 113 );
  50.  510  Lprint chr$(64);chr$(32);chr$(80);chr$(40);chr$(84);chr$(43);chr$(84);chr$(40);chr$(80);chr$(32);chr$(64);
  51.  520  Rem--Redefines r
  52.  530 Lprint chr$(27);chr$(37);chr$(68);chr$( 114 );
  53.  540  Lprint chr$(1);chr$(2);chr$(5);chr$(10);chr$(21);chr$(106);chr$(21);chr$(10);chr$(5);chr$(2);chr$(1);
  54.  550  Rem--Redefines s
  55.  560 Lprint chr$(27);chr$(37);chr$(65);chr$( 115 );
  56.  570  Lprint chr$(65);chr$(34);chr$(0);chr$(20);chr$(0);chr$(127);chr$(0);chr$(20);chr$(0);chr$(34);chr$(65);
  57.  580  Rem--Redefines t
  58.  590 Lprint chr$(27);chr$(37);chr$(65);chr$( 116 );
  59.  600  Lprint chr$(63);chr$(0);chr$(31);chr$(0);chr$(15);chr$(0);chr$(7);chr$(0);chr$(3);chr$(0);chr$(1);
  60.  610  Rem--Redefines u
  61.  620 Lprint chr$(27);chr$(37);chr$(65);chr$( 117 );
  62.  630  Lprint chr$(64);chr$(0);chr$(96);chr$(0);chr$(112);chr$(0);chr$(120);chr$(0);chr$(124);chr$(0);chr$(126);
  63.  640  Rem--Redefines v
  64.  650 Lprint chr$(27);chr$(37);chr$(65);chr$( 118 );
  65.  660  Lprint chr$(1);chr$(0);chr$(3);chr$(0);chr$(7);chr$(0);chr$(15);chr$(0);chr$(31);chr$(0);chr$(63);
  66.  670  Rem--Redefines w
  67.  680 Lprint chr$(27);chr$(37);chr$(65);chr$( 119 );
  68.  690  Lprint chr$(126);chr$(0);chr$(124);chr$(0);chr$(120);chr$(0);chr$(112);chr$(0);chr$(96);chr$(0);chr$(64);
  69.  700  Rem--Redefines x
  70.  710 Lprint chr$(27);chr$(37);chr$(65);chr$( 120 );
  71.  720  Lprint chr$(9);chr$(0);chr$(121);chr$(0);chr$(65);chr$(0);chr$(79);chr$(0);chr$(72);chr$(0);chr$(72);
  72.  730  Rem--Redefines y
  73.  740 Lprint chr$(27);chr$(37);chr$(65);chr$( 121 );
  74.  750  Lprint chr$(125);chr$(0);chr$(125);chr$(0);chr$(1);chr$(0);chr$(127);chr$(0);chr$(85);chr$(42);chr$(0);
  75.  760  Rem--Redefines z
  76.  770 Lprint chr$(27);chr$(37);chr$(68);chr$( 122 );
  77.  780  Lprint chr$(0);chr$(1);chr$(2);chr$(8);chr$(1);chr$(56);chr$(66);chr$(36);chr$(0);chr$(16);chr$(0);
  78.  790  Rem--Redefines n
  79.  800 Lprint chr$(27);chr$(37);chr$(65);chr$( 110 );
  80.  810  Lprint chr$(65);chr$(62);chr$(65);chr$(32);chr$(16);chr$(12);chr$(2);chr$(65);chr$(62);chr$(65);chr$(0);
  81.