Jump to content
mmphosis

Woz's 70th Birthday

Recommended Posts

  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

Share this post


Link to post
Share on other sites

#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

 

Share this post


Link to post
Share on other sites

#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

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×