mmphosis Posted August 11, 2020 Report Share Posted August 11, 2020 https://www.wozbday.com/ Quote Link to post Share on other sites
mmphosis Posted August 11, 2020 Author Report Share Posted August 11, 2020 100 GR : CALL -936:R=39:B=6 110 COLOR=5: GOSUB 420:B=38 120 T=31: GOSUB 420:L=36:B=T 130 T=7: GOSUB 420:L=0:R=3 140 GOSUB 420:L=5:T=20:B=27 150 COLOR=12: GOSUB 390 160 COLOR=13: GOSUB 400 170 COLOR=9: GOSUB 390 180 COLOR=1: GOSUB 400 190 COLOR=3: GOSUB 390 200 COLOR=6: GOSUB 370 210 COLOR=2: GOSUB 410 220 COLOR=15:L=5:R=34:T=8 230 B=18: GOSUB 420: COLOR=0 240 VLIN 8,15 AT 8 250 VLIN 8,15 AT 12 260 VLIN 8,15 AT 12 270 VLIN 8,19 AT 16 280 VLIN 11,15 AT 20 290 VLIN 8,19 AT 24 300 HLIN 25,30 AT 11 310 HLIN 29,34 AT 15: PRINT 340 PRINT " HTTPS://"; 350 PRINT "WWW.WOZBDAY.COM/" 360 END 370 R=L+4: HLIN L,R AT 29 380 RETURN 390 GOSUB 370: GOTO 410 400 R=L+4 410 GOSUB 420:L=I: RETURN 420 FOR I=L TO R 430 VLIN T,B AT I: NEXT I 440 RETURN #wozdomday1 Quote Link to post Share on other sites
mmphosis Posted August 12, 2020 Author Report Share Posted August 12, 2020 Quote Link to post Share on other sites
Jinnai Posted August 12, 2020 Report Share Posted August 12, 2020 Happy birthday, Woz! Quote Link to post Share on other sites
mmphosis Posted August 13, 2020 Author Report Share Posted August 13, 2020 #wozdomday3 https://www.facebook.com/groups/5251478676/permalink/10160205307118677/ Quote Link to post Share on other sites
mmphosis Posted August 15, 2020 Author Report Share Posted August 15, 2020 #wozdomday4 100 P=-16298:A= PEEK (P):M=15 110 A= PEEK (P-3): POKE 34,20 120 A= PEEK (P-6): CALL -936 130 PRINT : TAB 11: PRINT "H"; 140 PRINT "TTPS://WWW.EFF.ORG" 150 R=39:B=R:C= RND (2)*M 160 D=M-C: IF RND (2) THEN C=1 170 COLOR=D: GOSUB 280: COLOR=C 180 L=2:R=37:T=13:B=26 190 GOSUB 280: COLOR=D 200 VLIN T,B AT 13 210 VLIN T,B AT 25 220 HLIN 6,12 AT 17 230 HLIN 6,12 AT 22 240 L=18:R=24: HLIN L,R AT 17 250 T=22: GOSUB 280 260 L=30:R=37: HLIN L,R AT 17 270 GOSUB 280: END 280 FOR I=L TO R: VLIN T,B AT I 290 NEXT I: RETURN Quote Link to post Share on other sites
mmphosis Posted August 16, 2020 Author Report Share Posted August 16, 2020 #wozdomday5 https://youtu.be/_bfHYecRN9o 100 gr : call -936 : print 110 up = 0:dn = 0 : x = 20 : y = 19 120 gosub 800:e=-16368 130 for q = 0 to 0 step 0 140 c = c + 1 : color = c : plot x, y 150 if c = 15 then c = 6 160 k = peek(-16384) 170 a = peek(e + (k < 128) * 32) 180 gosub 200 : next q 190 end 200 if k = 193 or k = 139 then 300 210 if k = 218 or k = 138 then 400 220 if k = 136 then 500 230 if k = 149 then 600 240 if k = 213 then 700 250 if k = 222 then 900 260 if k = 176 then 920 280 if k = 155 then q = 1 290 return 300 if y = 0 then return 310 y = y - 1 320 nu = scrn(x, y) 330 color = c : plot x, y 340 color = 5 : plot x, y + 1 350 color = dn : plot x, y + 2 360 dn = up : up = nu 390 return 400 if y = 38 then return 410 y = y + 1 420 nu = scrn(x, y + 1) 430 color = 5 : plot x, y + 1 440 color = c : plot x, y 450 color = up : plot x, y - 1 460 up = dn : dn = nu 490 return 500 if x = 0 then return 510 x = x - 1 520 nu = scrn(x, y) 530 nv = scrn(x, y + 1) 540 color = c : plot x, y 550 color = 5 : plot x, y + 1 560 color = up : plot x + 1, y 570 color = dn : plot x + 1, y + 1 580 up = nu : dn = nv 590 return 600 if x = 39 then return 610 x = x + 1 620 nu = scrn(x, y) 630 nv = scrn(x, y + 1) 640 color = c : plot x, y 650 color = 5 : plot x, y + 1 660 color = up : plot x - 1, y 670 color = dn : plot x - 1, y + 1 680 up = nu : dn = nv 690 return 700 f=0:up = 13 : dn = 13 : color = up 710 hlin x-1,x+2 at y - 3 720 for i = y-2 to y + 3 730 hlin x-2,x+3 at i : next i 740 hlin x-1,x+2 at y + 4 750 color = 0:v=y+1+f 760 plot x-1,y-1 : plotx+2,y-1 770 plot x-1,v : plotx+2,v 780 hlin x-1,x+2 at y+2-f 785 tab18 785 poke36,17 790 s = s + 1 - f * 2 : print s;" "; 800 c = 6 : color = c : plot x, y 810 color = 5 : plot x, y + 1 890 return 900 f = 1:up = 2 : dn = 0 : color = up 910 goto 710 920 color = 14 930 hlin x-2,x+3 at y - 3 940 hlin x-2,x+3 at y + 4 950 vlin y-1,y+2 at x-2 960 vlin y-1,y+2 at x+3 970 plot x-1,y-2: plot x+2,y-2 980 plot x-1,y+3: plot x+2,y+3 990 return Quote Link to post Share on other sites
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.