home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30a.dsk / JANUARY.1987 / IMAGEWRITER.PC.bas next >
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 10  REM  **********************
  2. 20  REM  *   IMAGEWRITER.PC   *
  3. 30  REM  *  BY JAN EUGENIDES  *
  4. 40  REM  * COPYRIGHT (C) 1987 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  REM  RUN THIS BEFORE BOOTING APPLEWRITER
  9. 90  TEXT : NORMAL 
  10. 100 S1$ = "300:A2 00 BD 11 03 C9 FF F0 07 20 ED FD 4C 02 03 60 1B 2D 1B 49 A6 48 00 06 09 16 09 09 16 09 7D 14 14 68 04 FF N F328G"
  11. 110  HOME : HTAB 8: PRINT "CUSTOM CHARACTER INSTALLER": HTAB 3: PRINT "COPYRIGHT 1986 BY MICROSPARC, INC."
  12. 120  VTAB 12: HTAB 8: PRINT "TURN ON YOUR IMAGEWRITER": VTAB 22: PRINT "PRESS <RETURN> WHEN READY ";: GET CH$: PRINT CH$
  13. 130  HOME : VTAB 10: PRINT "UPLOADING CHARACTER TO IMAGEWRITER..."
  14. 140  FOR X = 1 TO  LEN(S1$): POKE 511 +X, ASC( MID$ (S1$,X)) +128: NEXT 
  15. 150  POKE 72,0: POKE 223, PEEK(248): CALL  -144
  16. 160  PRINT  CHR$(4)"PR#1"
  17. 170  CALL 768: PRINT 
  18. 180  PRINT  CHR$(4)"PR#0"
  19. 190  HOME : VTAB 9: HTAB 10: PRINT "CHARACTER INSTALLED"
  20. 200  PRINT : PRINT "PRESS <RETURN> TO TEST, <ESC> TO END"
  21. 210  GET CH$: PRINT CH$: IF CH$ =  CHR$(27)  THEN  GOTO 250
  22. 220  PRINT  CHR$(4)"PR#1"
  23. 230  PRINT  CHR$(27); CHR$(42);"&"; CHR$(27); CHR$(36)
  24. 240  PRINT  CHR$(4)"PR#0"
  25. 250  TEXT : END