home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / CATALOG80.bas < prev    next >
BASIC Source File  |  2023-02-26  |  652b  |  12 lines
  1. 10  REM  ***********************
  2. 20  REM  *      CATALOG80      *
  3. 30  REM  *  BY ROBERT MELTZER  *
  4. 40  REM  *  COPYRIGHT (C) 1984 *
  5. 50  REM  *  MICROSPARC, INC.   *
  6. 60  REM  *  CONCORD, MA 01742  *
  7. 70  REM  ***********************
  8. 80 HEX$ = "ADA4: 2C N ADA8: A9 13 85 24 EA EA N ADC3: 20 8E FD 20 8E FD N F328G": GOSUB 120: CALL  -144
  9. 90 HEX$ = "AE2F: EA CE 9D B3 D0 08 20 0C FD A9 2C 8D 9D B3 A2 02 4C DF BC N F328G": GOSUB 120: CALL  -144
  10. 100 HEX$ = "BCDF: 20 4A F9 A2 8D AD 9D B3 6A 90 02 A2 A0 8A 20 ED FD 60 N F328G": GOSUB 120: CALL  -144
  11. 110  END 
  12. 120  FOR I = 1 TO  LEN(HEX$): POKE 511 +I, ASC( MID$ (HEX$,I,1)) +128: NEXT I: POKE 72,0: RETURN