home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29a.dsk / NOVEMBER.1986 / C.ITOH.CHANGES.bas next >
BASIC Source File  |  2023-02-26  |  628b  |  14 lines
  1. 320  ON SE(TL) = 8 GOTO 400: ON SE(TL) GOSUB 340,340,340,340,340,340,340
  2. 370  REM 
  3. 380  REM 
  4. 390  REM 
  5. 1830  DATA  8,CODE MENU,BOLD,UNDERLINE,COMPRESSED,EXPANDED,ELITE,PROPORTIONAL,USER CODE 0,MORE CHOICES
  6. 1860  REM  C. ITOH 8510 CODES
  7. 1870 PC$(1,1) = EX$ +"!":PC$(1,0) = EX$ + CHR$(34): REM  BOLD
  8. 1880 PC$(2,1) = EX$ +"X":PC$(2,0) = EX$ +"Y": REM  UNDERLINE
  9. 1890 PC$(3,1) = EX$ +"Q":PC$(3,0) = EX$ +"N": REM  COMPRESSED
  10. 1900 PC$(4,1) =  CHR$(18):PC$(4,0) =  CHR$(20): REM  EXPANDED
  11. 1910 PC$(5,1) = EX$ +"E":PC$(5,0) = EX$ +"N": REM  ELITE
  12. 1920 PC$(6,1) = EX$ +"P":PC$(6,0) = EX$ +"N": REM  PROPORTIONAL
  13. 1930  REM 
  14. 1940  RETURN