MSXPen
MSX Developer Playground & Code EditorMSX Code Playground
​x
10 SCREEN1,2:COLOR1,15,1:WIDTH32:DEFINTA-Z:KEYOFF15 X=112:Y=148:EX=0:EY=0:HX=2:HY=220 ' color 130 DATA 00,00,00,00,00,FF,00,FF,FF,FF,00,FF,00,00,00,0040 DATA 00,00,00,00,00,FF,00,FF,FF,FF,00,FF,00,00,00,0050 ' 60 ' --- Slot 170 ' color 180 DATA 00,00,00,00,00,01,02,05,05,02,01,00,00,00,00,0090 DATA 00,00,00,00,00,80,40,A0,A0,40,80,00,00,00,00,00100 DATA *110 GOSUB 10000990 'PLAYER1000 S=STICK(0) OR STICK(1)1010 IF S=3 THEN X=X+21020 IF S=7 THEN X=X-21030 'BALL1040 IF EX<0 THEN HX=-HX:BEEP1050 IF EX>240 THEN HX=-HX:BEEP1060 IF EY<0 THEN HY=-HY:BEEP1070 EX=EX+HX1080 EY=EY+HY1090 'ATARI1100 IF ABS(X-EX)<16 AND ABS(Y-EY)<8 THEN HY=-HY:BEEP1110 'GAME OVER1120 IF EY>196 THEN HX=0:HY=0:LOCATE 11,10:PRINT"GAME OVER"1130 'SPRITE 1140 PUT SPRITE 0,(X ,Y),1,01150 PUT SPRITE 1,(EX,EY),1,11160 GOTO 100010000 REM -- LOAD SPRITES10010 S=BASE(9)10020 READ R$: IF R$="*" THEN RETURN ELSE VPOKE S,VAL("&H"+R$):S=S+1:GOTO 10020
Drive A: PenDisk
Drive A
Drive B
Hard Drive
Cartridge 1
Cartridge 2
Cassette
Swipe up/down on the Screen
to hide the browser bars!
to hide the browser bars!
Powered by WebMSX
or press Ctrl + Alt + R