home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / CHARGER.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  649b  |  13 lines
  1. 1030  REM  ************************
  2. 1040  REM  *   CHARGER.DEMO2      *
  3. 1050  REM  *   BY W.T. BRIDGMAN   *
  4. 1060  REM  *  COPYRIGHT (C) 1985  *
  5. 1070  REM  *  BY MICROSPARC, INC  *
  6. 1080  REM  *  CONCORD, MA. 01742  *
  7. 1090  REM  ************************
  8. 1100  HOME : IF PR% = 0  THEN  PRINT "THIS PROGRAM CAN ONLY BE RUN BY": PRINT "CHAINING FROM CHARGER.DEMO": END 
  9. 1110  VTAB 5: PRINT "HERE WE ARE, AND THE PRESENT VALUE OF": PRINT "PR% IS:";PR%: IF PR% =  -1  THEN  PRINT "(NO PRINTER)"
  10. 1120  VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE": WAIT  -16384,128: POKE  -16368,0
  11. 1140  GOSUB 100
  12. 1150  VTAB 22: PRINT "ENJOY APPLESOFT SUPERCHARGER"
  13. 1160  END