Yesterbits
@yesterbits.com
Doing things (or, considering doing things, at some point) with old computers, usually.
I made a 1-line snake game in Applesoft. IJKM controls.
1GR:S=0:COLOR=1:FORY=0TO38:X=RND(1)*39:PLOTX,Y:NEXT:COLOR=9:HLIN0,YAT0:HLIN0,YATY:VLIN0,YAT0:VLIN0,YATY:FORZ=0TO1:COLOR=7:PLOTX,Y:K=PEEK(49152)-201:I=(K=2)-(K=1):J=(K=4)-(K=0):M=I<>J:X=X+I:Y=Y+J:C=SCRN(X,Y):S=S+(C=1):Z=M*C>1:?S:NEXT:GETA$
1GR:S=0:COLOR=1:FORY=0TO38:X=RND(1)*39:PLOTX,Y:NEXT:COLOR=9:HLIN0,YAT0:HLIN0,YATY:VLIN0,YAT0:VLIN0,YATY:FORZ=0TO1:COLOR=7:PLOTX,Y:K=PEEK(49152)-201:I=(K=2)-(K=1):J=(K=4)-(K=0):M=I<>J:X=X+I:Y=Y+J:C=SCRN(X,Y):S=S+(C=1):Z=M*C>1:?S:NEXT:GETA$
May 5, 2025 at 11:19 PM
I made a 1-line snake game in Applesoft. IJKM controls.
1GR:S=0:COLOR=1:FORY=0TO38:X=RND(1)*39:PLOTX,Y:NEXT:COLOR=9:HLIN0,YAT0:HLIN0,YATY:VLIN0,YAT0:VLIN0,YATY:FORZ=0TO1:COLOR=7:PLOTX,Y:K=PEEK(49152)-201:I=(K=2)-(K=1):J=(K=4)-(K=0):M=I<>J:X=X+I:Y=Y+J:C=SCRN(X,Y):S=S+(C=1):Z=M*C>1:?S:NEXT:GETA$
1GR:S=0:COLOR=1:FORY=0TO38:X=RND(1)*39:PLOTX,Y:NEXT:COLOR=9:HLIN0,YAT0:HLIN0,YATY:VLIN0,YAT0:VLIN0,YATY:FORZ=0TO1:COLOR=7:PLOTX,Y:K=PEEK(49152)-201:I=(K=2)-(K=1):J=(K=4)-(K=0):M=I<>J:X=X+I:Y=Y+J:C=SCRN(X,Y):S=S+(C=1):Z=M*C>1:?S:NEXT:GETA$
And if you hold Random while powering it on, you get to the Forth interpreter. Shows a directory of programs available, and you can add new ones to your SD card if you want. You can also enable a serial port. I tried Calc and Line.
November 25, 2024 at 2:20 PM
And if you hold Random while powering it on, you get to the Forth interpreter. Shows a directory of programs available, and you can add new ones to your SD card if you want. You can also enable a serial port. I tried Calc and Line.