Retro Game & PC/정보
Lee's Apple II Programs
smores
2024. 4. 18. 23:06
멋진 사이트 발견!
인상적인 결과를 보여주는 짧은 베이식 프로그램(1 또는 2줄)들이 다수 있다. 추억의 1라인 컨테스트가 기억난다.
https://www.apple2programs.com/
4월 18일 빠진 코드들 추가 버전
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Apple II One Liner 예
10HGR:HCOLOR=3:LX=0:LY=80:FORI=0TO279:A=SIN(I/8)*70+80:PRINTI,A:HPLOTI,ATOLX,LY:LX=I:LY=A:NEXT
1GR:COLOR=1:A=11:B=14:FORI=5TO20:VLINA,BATI:VLINA,BAT40-I:READX:Y%=X/10:A=A+Y%-4:B=B+X-10*Y%:NEXT:COLOR=15:HLIN9,12AT5:VLIN4,7AT10:HLIN24,26AT5:VLIN4,6AT25:DATA4,23,31,31,42,42,41,41,41,41,41,51,51,61,40,40
1HGR:FORZ=0TO10STEP.2:FORX=0TO10STEP.2:HCOLOR=3:Y=-10*COS(3*SQR((X-5)^2+(Z-5)^2))/2+50:X1=X*20+20+Z*3:Y1=Y+Z*10:HPLOTX1,Y1:HCOLOR=0:HPLOTX1,Y1+1TOX1,180:NEXT:NEXT:END
one liner 는 아니지만 그럴싸한 Apple II 3D 플롯을 보여주는 프로그램