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