BG 1 BG FILL 0,0 TO 31,31 CHAR 1 ON RASTER CALL HEXIT FOR X=0 TO 19 CELL X,5,2 NEXT X Y=0 FOR I=0 TO 4 CELL 5+I,Y,3 CELL 5+I,Y+1,3 Y=Y+2 NEXT I Y=Y+1 FOR I=0 TO 2 CELL 9-I,Y,4 CELL 9-I,Y+1,4 Y=Y+2 NEXT I CELL 7,5,0 CELL 10,10,5 CELL 7,5,6 DO WAIT VBL LOOP SUB HEXIT R=RASTER\8 IF R\2=R/2 THEN RR=4 ELSE RR=0 SCROLL 1,RR,0 END SUB #1:MAIN PALETTES 083F001A00203F3500170E0300153F3C 003F1519003F2A09002A0015003F3F00 #2:MAIN CHARACTERS 00000000000000000000000000000000 241800C300001824241800D300001824 0000FF22FF0000000000000000000000 5048382414120E090000000000000000 0A121C24284870900000000000000000 50483824284870900000000000000000 5048FF26FF120E090000000000000000