Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
projects:ehbasic [2018/08/03 12:58] M.G. [Get volume in slot 6, drive 1 into a Variable] |
projects:ehbasic [2018/08/03 13:56] M.G. [Moire] |
||
|---|---|---|---|
| Line 215: | Line 215: | ||
| 70 PRINT "Volume in slot 6, drive 1 is ";v$ | 70 PRINT "Volume in slot 6, drive 1 is ";v$ | ||
| </code> | </code> | ||
| + | |||
| + | ==== Woz Signature ==== | ||
| + | |||
| + | <code> | ||
| + | 10 HGR:HCOLOR=3:READ A,B:FOR I=1 TO 9:READ X,Y:HPLOT A,B TO X,Y:A=X:B=Y:NEXT I | ||
| + | 15 READ A,B:FOR I=1 TO 16:READ X,Y:HPLOT A,B TO X,Y:A=X:B=Y:NEXT I | ||
| + | 20 DATA 75,50,69,57,76,62,71,88,53,118,87,71,130,31,76,111,116,66,143,44,132,82, | ||
| + | 123,83,108,95,104,104,112,107,130,94,133,80,154 | ||
| + | 25 DATA 73,146,89,158,88,162,94,139,141,122,160,119,156,139,126,194,85,232,64 | ||
| + | </code> | ||
| + | |||
| + | [[https://www.youtube.com/watch?v=tp4gIoTgF-E|Credit]]. | ||
| + | |||
| + | ==== Lo-res Heart ==== | ||
| + | |||
| + | I forgot where I found this. If I find out, I will credit it here. | ||
| + | |||
| + | <code> | ||
| + | 1 GR:COLOR=1:O=5:P=35:Y=2:FOR I=1 TO 4:READ X,Z:HLIN X+O,Z+O AT Y:HLIN P-Z,P-X AT Y:Y=Y+1:NEXT I | ||
| + | 2 FOR I=1 TO 30:READ X:HLIN X+O,P-X AT Y:Y=Y+1:NEXT I:COLOR=15:HLIN 9,12 AT 5:VLIN 4,7 AT 10:HLIN 24,26 AT 5:VLIN 4,6 AT 25 | ||
| + | 32 DATA 5,11,4,12,3,13,2,13,2,1,1,1,1,0,0,0,0,1,1,1,1,2,2,2,3,4,5,5,6,6,7,8,9,10,11,12,13,14,15,16,17,18 | ||
| + | </code> | ||
| + | |||
| + | ==== Hi-res Sine Wave ==== | ||
| + | |||
| + | Don't remember where this one came from, either. | ||
| + | |||
| + | <code> | ||
| + | 10 HGR:HCOLOR=3:LX=0:LY=80:FOR I=0 TO 279:A=SIN(I/8)*70+80:PRINT I,A:HPLOT I,A TO LX,LY:LX=I:LY=A:NEXT | ||
| + | </code> | ||
| + | |||
| + | ==== Moire ==== | ||
| + | |||
| + | My own variant of Brian's Theme. | ||
| + | |||
| + | <code> | ||
| + | 100 GET a:HGR0 | ||
| + | 105 oc=c | ||
| + | 110 X=INT(RND(0)*280):Y=INT(RND(0)*192) | ||
| + | 115 c=INT(RND(0)*7)+1 | ||
| + | 120 IF c=oc THEN 110 | ||
| + | 125 HCOLOR=c | ||
| + | 130 s=INT(RND(0)*4)+3 | ||
| + | 140 FOR i=0 TO 279 STEP s:HPLOT i,0 TO X,Y TO 279-i,191 | ||
| + | 145 NEXT | ||
| + | 150 FOR i=0 TO 191 STEP s:HPLOT 0,191-i TO X,Y TO 279,i | ||
| + | 155 NEXT | ||
| + | 170 GET a | ||
| + | 180 IF a=0 THEN GOTO 105 | ||
| + | 190 TEXT:HOME | ||
| + | </code> | ||
| + | |||