2in1 (VIC 20) by Jeffrey Daniels

by Jeffrey Daniels, 2023

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

This program contains two distinct games that play in succession.

UFO RUSH is a two key game.  Evade collision using any two keys (some keys steer left, the others steer right).  Recommended keys include: Z X C E R S F : ; / L

BOMBER is a one button game.  Clear the skyline and land using any key.

BASIC Listing:

1 E=36876:Z=E+3:Y=Z-1:J=32:POKEY,Q:POKEZ,11:POKEE+1,Q:V=E-2:PRINT"{clr}{white}"A,"{cyan}{DF}{rvson} UFO RUSH {down}"
2 K=1:POKEV,Q:POKE646,9:FORT=QTO17:PRINT"az"SPC(RND(T)*28):NEXT:A=A+K:C=8196:M=197:X=64
3 I=PEEK(M)AND3:B=C-22+(I=K)-(I=2):D=PEEK(B):POKEB,65:POKEC,J:POKEE,Q:IFC<7724THEN1
4 G=(G+K)AND3:POKEY,9+G*J:C=B:POKEE,190:FORT=QTO40-A*2:NEXT:IFD=JTHEN3
5 POKEE+K,220:FORI=15TOQSTEP-.1:POKEY,I:POKEZ,262-PEEK(Z):NEXT:WAITM,X,X:IFA<5THENRUN
6 POKEZ,105:PRINT"{clr}{yellow}{down}{right}BOMBER":D=30720:FORA=8167TO8183:FORC=QTOK+RND(A)*9
7 B=A-C*22:POKEB+D,2+(AAND3):POKEB,189:NEXT:NEXT:A=7745:C=8186:B=C:POKEV,140:N=E+K
8 POKEA,J:A=A+K:POKEA,62:POKEB,J:IFPEEK(A+K)>JTHENPOKEY,Q:WAITM,X,X:RUN
9 B=B-22*(B<C):POKEN,F*-(PEEK(B)=189):IFPEEK(M)<XANDB>=CTHENB=A:F=239:REM JDANIELS 2023
10 POKEB,42:POKEB+D,K:POKEY,9:POKEC-K,233:POKEE,F:F=F+7*(F>128):POKEN,Q:GOTO8