Jump to content

mmphosis

6502
  • Content Count

    9
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. mmphosis

    Woz's 70th Birthday

    #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
  2. mmphosis

    Woz's 70th Birthday

    #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
  3. mmphosis

    Woz's 70th Birthday

    #wozdomday3 https://www.facebook.com/groups/5251478676/permalink/10160205307118677/
  4. mmphosis

    Woz's 70th Birthday

    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
  5. mmphosis

    Woz's 70th Birthday

    https://www.wozbday.com/
  6. Nasir Gebelli I just noticed these interviews posted recently by Apple Time Warp... http://appletimewarp.libsyn.com/nasir-gebelli-part-1-of-3 http://appletimewarp.libsyn.com/episode-4-nasir-gebelli-part-2-of-3 http://appletimewarp.libsyn.com/episode-5-nasir-gebelli-part-3-of-3
  7. mmphosis

    Vote for Apple II

    http://fortune.com/2016/03/31/favorite-apple-products-poll/
  8. mmphosis

    RetroChallenge Winter Warm-up 2008

    I'm late, but I am busy making HELLO WORLD programs for the original Apple 1. Although I am cheating because I don't actually have an original Apple 1 computer. There aren't many around, so I built "Isaac" an Apple 1 emulator that runs on my slightly retro iBook to run the programs. http://www.geocities.com/mmphosis/apple2/contest/2008/retrochallenge.net.html
×