diff --git a/honoring_the_code/002 - lores tetris/htc2_tetris.bas b/honoring_the_code/002 - lores tetris/htc2_tetris.bas index e3f5613..c6c925c 100644 --- a/honoring_the_code/002 - lores tetris/htc2_tetris.bas +++ b/honoring_the_code/002 - lores tetris/htc2_tetris.bas @@ -74,7 +74,8 @@ REM check_lines REM GAME OVER -700 POKE KC,Z: PRINT CHR$(7)+CHR$(7)+CHR$(7): VTAB T2: HTAB T0: INVERSE: PRINT ">>> GAME OVER <<<"; : VTAB T4: HTAB N0: NORMAL: PRINT "PLAY AGAIN (Y/N) ? "; :GET K$: IF K$<>"N" THEN 2020 +700 POKE KC,Z:A=-868:G$=CHR$(7):PRINT G$G$G$:VTAB T1:HTAB 15:CALL A:VTAB T2:HTAB N0:CALL A:HTAB T0:INVERSE:PRINT ">>> GAME OVER <<<";:VTAB 23:HTAB N0:CALL A +705 VTAB T4:HTAB U:NORMAL:PRINT "PLAY AGAIN (Y/N) ? ";:CALL A:GET K$:IF K$<>"N" THEN 2020 710 TEXT: HOME: NORMAL: PRINT "THANKS FOR PLAYING ! ": IF DS THEN CALL 43089: REM RECONNECT DOS 715 END 720 POKE KC,Z: VTAB T4: HTAB U: INVERSE: ? "ARE YOU SURE (Y/N)?"; : GET K$ : IF K$ = "Y" THEN 710 diff --git a/honoring_the_code/002 - lores tetris/htc2_tetris.dsk b/honoring_the_code/002 - lores tetris/htc2_tetris.dsk index f4853e3..c696ef1 100644 Binary files a/honoring_the_code/002 - lores tetris/htc2_tetris.dsk and b/honoring_the_code/002 - lores tetris/htc2_tetris.dsk differ