10IFPAGE<>&1900:PAGE=&1900:CHAIN"MoCo nv" 20MODE7 30LOMEM=&4000 40PRINT"Four mode conversion programs "'"by M.Bobrowski."'"Choose:"'"1. Mode 0 /4"'"2. Mode 1/4"'"3. Mode 4/0"'"4. Mode 4/1" 50REPEAT 60A$=GET$ 70UNTILINSTR("1234",A$) 80IFA$="1":A%=&1B00 90IFA$="2":A%=&2200 100IFA$="3":A%=&2A00 110IFA$="4":A%=&3000 120OSCLI"K.0FORL%=&1900TO&2200STEP4:!L %=!A%:A%=A%+4:N.|MO.|MRUN|M" 130*FX138 0 128 140END