This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next 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. another example |
||
---|---|---|---|
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> | ||
+ | text | ||
+ | |||
+ | Ready | ||
+ | list | ||
+ | |||
+ | 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> | ||
+ |