5 'Gold Rush 10 CLS:CLV:POKE#700,61,110,247,74,73,65,38,40,92,94,223,223,157,224,155,167,177,222,95,94,94,94,62,78,68,68,68,72,72,120,126,127 12 FORI=0TO31:M=PEEK(#700+I):FORJ=0TO7:N=N<<1+M&1:M=M>>1:NEXT:POKE#720+I,N:NEXT:FORI=0TO63:POKE#740+I,0:NEXT:FORI=0TO2:FORJ=0TO3:POKE#760+I*13+J*3,#E0+I*4+J,31,28,0:NEXT:NEXT 14 LC0,1:?CHR$(#98,#91,#99);:FORI=2TO18:LC0,I:?CHR$(#92*(I<8),3,#92*(I<15)+2*(I>14));:NEXT 16 FORI=1TO31:LCI,19:?CHR$(3);:NEXT:FORI=15TO18:LC31,I:?CHR$(3);:NEXT:FORI=0TO12:COPY#946+I*32,#B66,26:NEXT:FORI=3TO30:LCI,15:?STR$(#77A);:NEXT:X=4:S=#760:GSB80:GSB90 20 W=W+1:IFW>40:W=0:FORI=0TO2:A=#71F+I*32-L:POKEA,~PEEK(A):NEXT:L=L+1:IFL>31:LC11,21:?"GAME OVER!":END 30 K=INKEY():IFK<28||K>29GOTO20 40 S=#77A:GSB90:X=X-(K=28)+(K=29):S=#760+13*(K=28):GSB90 50 IFX>29S=#77A:GSB90:G=G+1:GSB80:X=29:S=#760:GSB90:IFG>199LC13,21:?"CLEAR!":END 60 IFX<4S=#77A:GSB90:X=4:S=#76D:GSB90:IFL>0FORI=0TO2:FORJ=0TOL-1:A=#71F+I*32-J:POKEA,~PEEK(A):NEXT:NEXT:L=0 70 GOTO20 80 LC0,0:?"$";G;:RTN 90 LCX,15:?STR$(S);:RTN
お金を取るか命を取るかのせめぎあいですね。お金を取るスピードが早めなので、ついつい欲張ってしまいます。今回もドット絵がすごい!