멋진 사이트 발견!
인상적인 결과를 보여주는 짧은 베이식 프로그램(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 플롯을 보여주는 프로그램
'Retro Game & PC > 정보' 카테고리의 다른 글
Type-in Mania: An Interactive Archive of Early BASIC Programs (0) | 2024.04.24 |
---|---|
AppleWin에서 실기 애플2용 패들 처럼 쓸만한 컨트롤러 DIY (1) | 2024.04.19 |
Apple2 Taipan pure basic source and machine code version (0) | 2023.12.13 |
Loading Machine Language Programs Part I & II (2) | 2023.12.06 |
Apple2 Call 3327 한글 쌍자음 입력 (0) | 2023.11.17 |