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. #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
  2. #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. #wozdomday3 https://www.facebook.com/groups/5251478676/permalink/10160205307118677/
  4. 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://";
  5. 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
  6. http://fortune.com/2016/03/31/favorite-apple-products-poll/
  7. 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
×
×
  • Create New...