home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / STUDIO.SAMPLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  685b  |  16 lines
  1. 10  REM  ****************************
  2. 20  REM  *      STUDIO SAMPLE       *
  3. 30  REM  *      BY ALLAN LAMB       *
  4. 40  REM  *    COPYRIGHT(C) 1989     *
  5. 50  REM  *     MICROSPARC, INC      *
  6. 60  REM  *    CONCORD, MA 01742     *
  7. 70  REM  ****************************
  8. 80 D$ =  CHR$(4):NC$ =  CHR$(27) +"$":CC$ =  CHR$(27) +"'": REM  ** Set variables
  9. 90  PRINT D$"PR#1": REM  ** Turn printer on
  10. 100  PRINT NC$;: REM  ** Print normal characters
  11. 110  PRINT "I ";
  12. 120  PRINT CC$;: REM  ** Print custom characters
  13. 130  PRINT "A";: REM  ** Print a heart
  14. 140  PRINT NC$;: REM  ** Switch back to normal print
  15. 150  PRINT " my computer!"
  16. 160  PRINT D$"PR#0": END : REM  ** Turn printer off and end