30 REM Cхоосе Gрапхицс Mоде⌡40 DIM MSS$(120)⌡50 TRAP 1000⌡60 ? "Wхат Gрапхицс Mоде? 1 ор 2";:INPUT A:IF A<>1 AND A<>2 THEN 60⌡70 GOSUB 100:GRAPHICS A+16⌡80 DL=PEEK(560)+256*PEEK(561)+6⌡90 FOR I=0 TO 6:POKE DL+I,133+A:NEXT I:GOTO 200⌡100 REM Mодифы маргинс то маке мессаге реадабле⌡110 POKE 82,10:POKE 83,29:? ⌡120 REM Iнпут мессаге⌡130 ? :? "Wхат ис мессаге?":? "Uсе ATARI инжерсе фор цолор еффецт. CAPITAL ор ловер."⌡140 INPUT MSS$:RETURN ⌡200 REM Lоцате DLI⌡210 FOR I=0 TO 42:READ B:POKE 1553+I,B:NEXT I⌡220 DATA 72,138,72,152,72,162,0,141,10,212⌡230 DATA 189,1,6,188,9,6,141,24,208,140,25,208⌡240 DATA 232,173,0,6,201,1,144,3,141,10,212⌡250 DATA 224,6,144,226,104,168,104,170,104,64⌡300 REM Lоцате Dефферед Vертицал Bланк⌡310 FOR I=0 TO 73:READ C:POKE 1599+I,C:NEXT I:POKE 1596,0⌡320 DATA 72,138,72,173,60,6,201,4,144,55,162,7⌡330 DATA 173,8,6,141,61,6,173,9,6,141,62,6⌡340 DATA 202,189,1,6,157,2,6⌡350 DATA 224,0,208,245,173,61,6⌡360 DATA 141,1,6,162,0,189,10,6,157,9,6,232,224,7,208,245,173,62,6,141,16,6,169,0⌡370 DATA 141,60,6,238,60,6,104,170,104,76,98,228⌡400 REM Cолор дата & # линес фор моде⌡410 FOR I=0 TO 7:POKE 1537+I,(8+I)*16+I*2:NEXT I⌡420 FOR I=0 TO 7:POKE 1545+I,(1+I)*16+I*2:NEXT I⌡430 POKE 1536,A⌡490 POSITION 0,0:? #6;" "⌡500 REM Eнабле DLI AND DVVBLK⌡510 POKE 512,17:POKE 513,6⌡520 POKE 548,63:POKE 549,6:POKE 54286,192⌡600 POSITION 1,2:? #6;MSS$⌡610 GOTO 610⌡1000 TRAP 40000:GOTO 50⌡