home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25a.dsk / JULY.1985 / IRIS.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  731b  |  17 lines
  1. 10  REM  **********************
  2. 20  REM  *     IRIS.DEMO      *
  3. 30  REM  * BY IVER P. COOPER  *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  PRINT  CHR$(4);"BLOAD IRIS"
  9. 90  HOME : PRINT "NAME OF HI-RES PICTURE FILE? ": INPUT NA$
  10. 100  PRINT  CHR$(4);"BLOAD";NA$;",A$4000"
  11. 110  HGR : HOME : VTAB 22: PRINT "** COPYRIGHT 1985 BY MICROSPARC, INC **"
  12. 120  HCOLOR= 3: REM  WHITE
  13. 130  HPLOT 0,0
  14. 140  CALL 62454: FOR I = 1 TO 1000: NEXT : REM  CLEAR SCREEN TO WHITE AND PAUSE
  15. 150  CALL 24576: REM  CALL IRIS ($6000)
  16. 160  IF  PEEK( -16384) <128  THEN  FOR I = 1 TO 1000: NEXT : GOTO 110: REM  LOOP UNTIL KEY PRESS
  17. 170  POKE  -16368,0: TEXT : HOME : END