| Routines

21425: Clear the screen and request the input method (keyboard, joystick, Int2)

Used by the routine at 21920.
21425 | LD BC,640 | INK 0: PAPER 6 for the top 20 lines of screen
21428 | LD DE,22529
21431 | LD HL,22528
21434 | LD (HL),48
21436 | LDIR
21438 | LD C,128 | INK 6: PAPER 6 for the bottom 4 lines of screen
21440 | LD (HL),54
21442 | LDIR
21444 | CALL 21419 | Make a short beep
21447 | LD H,64 | Clear the top two-thirds of the display file
21449 | LD D,H
21450 | LD (HL),L
21451 | LD B,16
21453 | LDIR
21455 | LD B,160 | Clear the remainder of the screen, except the bottom 3 lines (which contain machine code)
21457 | LD (HL),C
21458 | INC L
21459 | DJNZ 21457
21461 | LD L,B
21462 | INC H
21463 | BIT 3,H
21465 | JR Z,21455
21467 | LD A,128 | Set the column of the play area at the far left of the screen to 128
21469 | LD (32767),A
21472 | NOP |
21473 | CALL 20640 | Clear character buffer 214 (for no good reason)
21476 | LD A,246 | Message 246: 'None/Cursor/Kempston/Int2? (N,C,K or I)'
21478 | LD HL,16448 | Print this message
21481 | CALL 20668
21484 | LD HL,23611 | Clear bit 5 at 23611, ready for future keypresses
21487 | RES 5,(HL)
21489 | JP 21664 |