61000 GETA$:IFA$=""THEN61000
61001 IFA$="T"THENGOSUB61006
61002 IFA$="H"THENGOSUB61015
61003 IFA$="_"THENGOSUB61012
61004 IFA$="C"THENGOSUB61013
61005 GOTO61000:REM CHANGE LINE NUMBER TO MATCH YOUR GRAPHICS PROGRAM
61006 :REM TEXT MODE
61007 POKE56578,PEEK(56578)OR3
61008 POKE56576,(PEEK(56576)AND252)OR3
61009 POKE53272,21
61010 POKE53265,27
61011 RETURN
61012 SYS49152:RETURN
61013 N=1:FORI=0TO999:POKE22528+I,N:NEXT:RETURN:REM CHANGE N TO CHANGE HIRES
61014 REM COLORS. 16*(INK COLOR#)+(BACKGROUND COLOR#)
61015 :REM HI RES MODE
61016 POKE56578,PEEK(56578)OR3
61017 POKE56576,(PEEK(56576)AND252)OR2
61018 POKE53272,(PEEK(53272)AND15)OR104
61019 POKE53265,PEEK(53265)OR32
61020 RETURN