BurgerTime (MSX, Dempa)

This page contains notes for the game BurgerTime (MSX, Dempa).

MSX-BASIC code#

This is the de-tokenized form of the MSX-BASIC code contained in the ROM. Lines 350-400 and line 490 handle the cheat codes.

10 CLEAR 200,&HEAFF:COLOR 15,0,0:KEY OFF:SCREEN 1,2,0:CLS:DEFINT A-Z:T=&H8000
20 DEF USR=&HAF00:A=USR(0):DEF USR=&H7E:A=USR(0)
30 LOCATE 9,6:PRINT"BURGERTIME"
40 LOCATE 0,16:PRINT"COPYRIGHT;1982;DATA;EAST;INC"
50 LOCATE 0,18:PRINT"ARRANGED;BY;DEMPA;AND;TABETA":FOR D=0 TO 2000:NEXT D
70 FOR D=0 TO 4:POKE T+&H6FF9+D,0:NEXT D:POKE T+&H6FFC,2
80 DEF USR0=T+&HD00:DEF USR1=T+&H1500:DEF USR2=T+&H1900:DEF USR3=T+&H17F1:GOTO 280
90 EN=0
100 FOR D=0 TO 4:POKE T+&H6F17+D,0:NEXT D:POKE T+&H6F1D,2
110 POKE T+&H6FFF,0:POKE T+&H6FFE,2:POKE T+&H6F2B,5:POKE T+&H6F2C,0
120 EN=EN+1:IF EN=21 THEN EN=1
130 POKE T+&H6F02,EN
140 A=USR1(0)
150 VPOKE&H18ED,&H52:VPOKE&H18EE,&H45:VPOKE&H18EF,&H41:VPOKE&H18F0,&H44:VPOKE&H18F1,&H59:VPOKE&H18F2,&HFC
160 PLAY "t160O4L8v11Bo5DDC16o4B16o5CEED16C16DF+F+E16F+16GDo4G","t160L8v10O3 BO4DGDCEAEDF+AF+GDO3G"
170 IF PLAY(0)=-1 THEN GOTO 170
180 FOR D=0 TO 5:VPOKE &H18ED+D,PEEK(T+&H6BED+D):NEXT D
190 A=VDP(1) AND 223:VDP(1)=A:A=USR2(0):A=VDP(1) OR 32:VDP(1)=A
200 A=PEEK(T+&H6F1F):IF A=0 THEN 510
210  PLAY"t200L8v11O3 F+A+O4C+F+C+ O3A+F+A+ O4C+F+","t200L8v9O3 C+F+A+ O4C+ O3A+F+C+F+A+ O4C+"
220 FOR D=0 TO 3:FORDD=0 TO 220:NEXT DD:VPOKE &H1B02,(14+D)*4:NEXT D
230 FOR D=0 TO 220:NEXT D:VPOKE &H1B02,64
240 FOR D=0 TO 220:NEXT D:VPOKE &H1B02,68
250 FOR D=0 TO 1000:NEXT D
260 IF A=2 THEN 420
270 A=USR3(0):GOTO 150
280 PUT SPRITE 0,(64,&HD0),0,0
290 FOR D=0 TO 2:PUT SPRITE D+1,(88+D*32,127),15,21+D:NEXT D
300 PUT SPRITE 4,(88,111),8,38
310 PUT SPRITE 5,(120,111),2,58
320 PUT SPRITE 6,(152,111),15,48:A=USR(0)
330 PUT SPRITE 0,(64,159),15,7
340 IF STRIG(0)=-1 OR STRIG(1)=-1 THEN GOTO 90
350 A$=INKEY$:IF A$="±" THEN EN=3:GOTO 100
360 IF A$="²" THEN EN=6:GOTO 100
370 IF A$="³" THEN EN=9:GOTO 100
380 IF A$="Ž" THEN EN=12:GOTO 100
390 IF A$="µ" THEN EN=15:GOTO 100
400 IF A$="Å" THEN EN=18:GOTO 100
410 GOTO 340
420 SC=0:HS=0:FOR D=0 TO 4:SC=SC+PEEK(T+&H6F17+D)*10^D:HS=HS+PEEK(T+&H6FF9+D)*10^D:NEXT D
430 IF SC<HS THEN GOTO 450
440 FOR D=0 TO 4:POKE T+&H6FF9+D,PEEK(T+&H6F17+D):NEXT D
450 FOR D=0 TO 2:PUT SPRITE D+2,(104+D*16,63),15,24+D:NEXT D
460 FOR D=0 TO 1:PUT SPRITE D+5,(104+D*16,87),15,27+D:NEXT D
470 PUT SPRITE 1,(136,87),15,29:TT=0
480 TT=TT+1:IF TT=700 THEN 280
490 IF INKEY$="À" THEN EN=EN-1:GOTO 100
500 GOTO 480
510 VPOKE &H1B02,28
520 A1$="t200v11o4e12r16r12e12f4e4d6c16d6a4g16f4r12r16g12r16r12g12a4b4o5c4o4b6o5c4"
530 A2$="t200v9o4c12c4d4c4o3g4g8b4c16b4g4o4d4o3b4d4c4g6o4c4"
540 PLAY A1$,A2$
550 FOR D=0 TO 3:VPOKE &H1B02,48:FOR DD=0 TO 400:NEXT DD
560 VPOKE &H1B02,28:FOR DD=0 TO 400:NEXT DD:NEXT D
570 FOR D=0 TO 1000:NEXT D:GOTO 120