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