home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29b.dsk / PIN.SETTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  785b  |  17 lines
  1. 10  REM  **********************
  2. 20  REM  *     PIN.SETTER     *
  3. 30  REM  *  BY WILLIAM EBURN  *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80 C(1) = 0:PW(1) = 80:DS(1) = 128:P(1) = 11:B(1) = 30:E(1) = 0:LF(1) = 64
  9. 90 C(2) = 1:PW(2) = 0:DS(2) = 0:P(2) = 11:B(2) = 22:E(2) = 0:LF(1) = 0
  10. 100  REM  *** ACCESS AUXILIARY TEXT PAGE #1 ***
  11. 110  POKE 49153,0: POKE 49238,0: POKE 49237,0
  12. 120  REM  *** CONFIGURE PORT #1 ***
  13. 130  POKE 1144,DS(1) +B(1): POKE 1145,P(1): POKE 1146,E(1) +LF(1) +C(1): POKE 1147,PW(1)
  14. 140  REM  *** CONFIGURE PORT #2 ***
  15. 150  POKE 1148,DS(2) +B(2): POKE 1149,P(2): POKE 1150,E(2) +LF(2) +C(2): POKE 1151,PW(2)
  16. 160  REM  *** RETURN TO MAIN MEMORY ***
  17. 170  POKE 49236,0: POKE 49152,0