Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Next revision Both sides next revision | ||
|
projects:ehbasic [2018/08/03 12:57] M.G. [Get the ProDOS Prefix into a Variable] |
projects:ehbasic [2018/08/03 13:52] M.G. more examples |
||
|---|---|---|---|
| Line 207: | Line 207: | ||
| <code> | <code> | ||
| - | 10 a$=" "+" " | + | 10 a$=""+" " |
| 20 POKE SADD(a$),2:REM 2 params | 20 POKE SADD(a$),2:REM 2 params | ||
| 30 POKE SADD(a$)+1,$60:REM unit # | 30 POKE SADD(a$)+1,$60:REM unit # | ||
| 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> | ||
| + | |||
| + | |||