2in1 Junior (Commodore VIC20) by Denial

2in1 Junior (VIC 20) by Jeffrey Daniels (Denial), 2024

Created for the BASIC 10Liner Contest, PUR-80 Category

This program contains two distinct games that play in succession.

LIGHTS OUT is the familiar puzzle game.  Use the keyboard letters A to Y to turn all of the lights to the same state.  Any other key will exit to the other game.

TRAILS is the familiar snake game.  Use the W, A, S, and D keys to steer into the targets.

BASIC Listing:

1 DIMB(255):B=36876:POKEB+3,26:POKEB+2,9:PRINT"{clr}{red}","{cmd *}{rvson}LIGHTS OUT{black}":POKE198,0:FORC=0TO24
2 GOSUB4:POKEA,C+1:POKEA+30720,6:NEXT:FORE=1TO25:C=INT(RND(1)*20):GOSUB4:NEXT
3 GETA$:ON-(A$="")GOTO3:C=ASC(A$)-65:GOSUB4:W=W+1:PRINT"{home}{down}"W:ON-(C>-1ANDC<25)GOTO3:GOTO6
4 A=7840+INT(C/5)*44+(C/5-INT(C/5))*10:IFE=0THENA(0)=2:A(1)=44:A(2)=-2:A(3)=-44:RETURN
5 POKEB,173+C*2:FORD=0TO4:F=A+A(D):POKEF,128+PEEK(F)AND255:NEXT:POKEB,0:RETURN
6 A=36875:PRINT"{clr}{yellow}{down}{right}TRAILS":POKE646,8:PRINT"{A6}{A8}{A8}{A8}{A8}{A8}{A8}{A6}"SPC(205)"{white}xx{home}{down}{down}":C=7910:B=1:B(1)=C
7 D=D+1:I=7734+RND(1)*400:ON-(PEEK(I)><32)GOTO7:POKEA+4,10+RND(1)*6:POKEI,88:POKEA,163
8 C=C+B:E=PEEK(C):POKEC,9^2:I=PEEK(197):IFI<63THENB=((I=9)-(I=41))*22+(I=17)-(I=18)
9 F=F+1:POKEA,(FAND25)+215:B(G)=C:G=(G+1)*-(G<D):POKEB(G),32:ON-(E=88)-2*(E=32)GOTO7,8
10 PRINTD:POKEA+4,8:FORI=15TO0STEP-.1:POKEA+3,I:POKEA,99+I*9:NEXT:WAIT197,64,64:RUN