info-mac@utcsrgv.UUCP (info-mac) (05/15/84)
Date: Sat, 12 May 84 12:05:18 EDT From: Dave Farber <uw-beaver!farber@udel-ee.arpa> To: info-mac%sumex-aim.csnet@udel-ee.arpa Subject: from Compuserve 10 REM Color Demonstration Program 20 REM 30 REM Copyright (c) 1984 by Wayne R. Loofbourrow 40 REM 50 REM Permission is granted for personal, non-commercial 60 REM reproduction of this program, provided that this 70 REM notice and all copyright notices are included in any copy. 80 REM 90 DEFINT A-Z 100 DIM CODE(100) 110 DIM PIC(257), ARRAY(256*3-1) 120 CLS : PRINT : PRINT : PRINT : PRINT : GOSUB 430 130 REM Load in Machine Language code. 140 I=0 150 READ W : IF W = -1 THEN 180 160 CODE(I)=W : I=I+1 : GOTO 150 170 REM Create pictures. 180 CLS : PRINT " Dk. Red" : PRINT : PRINT : PRINT " Brown" 190 GOSUB 430 200 I=0 : GOSUB 450 210 CLS : PRINT : PRINT "Lt. Green" : PRINT : PRINT " Brown" 220 GOSUB 430 230 GOSUB 450 240 CLS : PRINT : PRINT : PRINT " Dk. Blue" : PRINT 250 GOSUB 430 260 GOSUB 450 270 CLS : PRINT "Color Demonstration" 280 PRINT "Copyright ";CHR$(169);"1984 by Wayne R. Loofbourrow" 290 PRINT : PRINT "Instructions:" 300 PRINT TAB(5); "(1) Make sure brightness isn't too high." 310 PRINT TAB(5); "(2) Make sure room lights are on." 320 PRINT TAB(5); "(3) Start Program." 330 PRINT TAB(5); "(4) Stare at it a while at eye level," 340 PRINT TAB(8); "adjusting brightness for best effect." 350 PRINT : PRINT "Press any key to begin." 360 PRINT "Press mouse button while mouse is in this window to exit." 370 IF MOUSE(0)<>0 THEN END 380 IF INKEY$="" THEN 370 390 CLS : DISPLAY#=VARPTR(CODE(0)) 400 CALL DISPLAY#(VARPTR(ARRAY(0))) 410 IF MOUSE(0)=0 THEN 400 420 CLS : END 430 PRINT : PRINT "Initializing... Please Wait..." 440 RETURN 450 GET (0,0)-(63,63), PIC 460 FOR J=2 TO 257 : ARRAY(I)=PIC(J) : I=I+1 : NEXT J 470 RETURN 480 DATA &H206F, &H0004, &H6114, &H611E 490 DATA &H6110, &H610E, &H610C, &H612E 500 DATA &H6108, &H612A, &H6104, &H6126 510 DATA &H4E75, &H3038, &H016C, &HB078 520 DATA &H016C, &H67FA, &H4E75, &H227C 530 DATA &H0001, &HBF10, &H70FF, &H723F 540 DATA &H22C0, &H2280, &HD2FC, &H003C 550 DATA &H51C9, &HFFF6, &H4E75, &H227C 560 DATA &H0001, &HBF10, &H723F, &H22D8 570 DATA &H2298, &HD2FC, &H003C, &H51C9 580 DATA &HFFF6, &H4E75 590 DATA -1