brian@csufresno.EDU.UUCP (08/19/87)
Here's a demo quicky demo I wrote a few years back but never gave
to anyone. Try it out and let me know what you think. I've got
another one ready to send if there is interest ( and this one makes it
through intact. )
-brian BITNET: FETPC19@CALSTATE
UUCP: ... ucbvax!ucdavis!csufres!brian
ARPA: fetpc19%calstate.bitnet@wiscvm.wisc.edu
~~~~~~~~~~~~~~~~~~ cut chop etc. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 GOSUB 1000
2 GO TO 5000
100 POKE 1543,PRI
101 PLOT 0,0
110 POKE 1555,SEC
120 POKE 1786,0
140 POKE 204,LO:POKE 205,HI
150 D=USR(1696):RETURN
160 REM -- - - - - - - - - - - - - - -
1000 FOR R=1536 TO 1570
1010 READ CODE:POKE R,CODE
1020 NEXT R
2000 DATA 104,173,250,6,160,0
2001 DATA 105,255,145,204,200,192,40
2002 DATA 208,247,173,250,6,105,255
2003 DATA 141,250,6,165,204,24,105,40
2004 DATA 133,204,144,2,230,205,96
2010 FOR R=1696 TO 1707
2020 READ CODE:POKE R,CODE
2030 NEXT R:RETURN
2501 DATA 104,162,0,32,1,6,232,224,193
2503 DATA 208,248,96
2999 REM - - - - - - - - - - - - - - -
3000 POKE 764,255:FOR WX=1 TO 100 STEP 0.1:IF PEEK(764)<>255 THEN WX=100
3010 NEXT WX:RETURN
4000 PLOT 0,0:GRAPHICS GR+32:LUM=6:IF GR=9 THEN LUM=0
4010 SETCOLOR 4,0,LUM:HI=PEEK(89):LOW=PEEK(88):RETURN
4999 REM - - - - - - - - - - - - - - -
5000 GRAPHICS 11:REM demo1
5005 GR=11:LUM=6:GOSUB 4000
6000 SEC=0:FOR PRI=220 TO 255:GOSUB 100:NEXT PRI
6010 FOR PRI=0 TO 35:GOSUB 100:NEXT PRI:GOSUB 3000
6499 REM demo2
6500 SEC=14:FOR PRI=10 TO 45:GOSUB 100:NEXT PRI:GOSUB 3000
6999 REM - - - - - - - - - - - - - - -
7000 REM more demos
7010 RESTORE 9000:TRAP 7999
7020 READ GR,PRI,SEC
7025 IF LAST<>GR THEN GOSUB 4000
7027 LAST=GR
7030 GOSUB 100:GOSUB 3000
7040 GO TO 7020
7999 TRAP 40000:GO TO 5000
9000 DATA 11,14,14
9010 DATA 11,15,240
9020 DATA 9,1,240
9030 DATA 9,65,239
9040 DATA 9,220,247
9050 DATA 9,176,247
9060 DATA 11,255,119
9070 DATA 11,1,84
9080 DATA 9,139,238
9090 DATA 11,255,151
9100 DATA 11,113,122
9110 DATA 9,44,14
9130 DATA 11,75,119
9140 DATA 9,15,0
9150 DATA 11,62,224
9180 DATA 9,107,29
9190 DATA 9,107,14
9200 DATA 11,15,44
9510 DATA PLAIDS.BAS
9520 DATA BY BRIAN WARKENTINE
9530 DATA 5 / 23 / 1985
32700 GRAPHICS 0:POKE 710,160:END