This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | Next 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:52] M.G. more examples |
||
---|---|---|---|
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> | ||
+ | |||
+ |